[brlcad-commits] SF.net SVN: brlcad:[51891] brlcad/trunk/src/tclscripts/archer/Archer.tcl
Open Source Solid Modeling CAD
Brought to you by:
brlcad
From: <bo...@us...> - 2012-08-10 15:07:20
|
Revision: 51891 http://brlcad.svn.sourceforge.net/brlcad/?rev=51891&view=rev Author: bob1961 Date: 2012-08-10 15:07:12 +0000 (Fri, 10 Aug 2012) Log Message: ----------- Fixed a problem that occurs when moving pipe points in Archer. Modified Paths: -------------- brlcad/trunk/src/tclscripts/archer/Archer.tcl Modified: brlcad/trunk/src/tclscripts/archer/Archer.tcl =================================================================== --- brlcad/trunk/src/tclscripts/archer/Archer.tcl 2012-08-10 14:02:31 UTC (rev 51890) +++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2012-08-10 15:07:12 UTC (rev 51891) @@ -6066,8 +6066,10 @@ updateSaveMode initEdit 0 - set center [$itk_component(ged) ocenter $_obj] - addHistory "ocenter $_obj $center" + if {$mSelectedObjType != "pipe" || $GeometryEditFrame::mEditParam1 == ""} { + set center [$itk_component(ged) ocenter $_obj] + addHistory "ocenter $_obj $center" + } } @@ -6100,11 +6102,18 @@ ::itcl::body Archer::endObjTranslate {_dm _obj _mx _my} { $itk_component(ged) pane_idle_mode $_dm - set ocenter [gedCmd ocenter $_obj] - set vcenter [gedCmd pane_m2v_point $_dm $ocenter] - set screen [gedCmd pane_view2screen $_dm $vcenter] + if {$mSelectedObjType == "pipe" && $GeometryEditFrame::mEditParam1 != ""} { + set sx $_mx + set sy $_my + } else { + set ocenter [gedCmd ocenter $_obj] + set vcenter [gedCmd pane_m2v_point $_dm $ocenter] + set screen [gedCmd pane_view2screen $_dm $vcenter] + set sx [lindex $screen 0] + set sy [lindex $screen 1] + } - handleObjCenter $_dm $_obj [lindex $screen 0] [lindex $screen 1] + handleObjCenter $_dm $_obj $sx $sy endObjCenter $_obj } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |