Revision: 54285
http://brlcad.svn.sourceforge.net/brlcad/?rev=54285&view=rev
Author: bob1961
Date: 2013-02-01 17:11:52 +0000 (Fri, 01 Feb 2013)
Log Message:
-----------
Minor cleanup
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/Arb5EditFrame.tcl
brlcad/trunk/src/tclscripts/archer/Arb7EditFrame.tcl
brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
Modified: brlcad/trunk/src/tclscripts/archer/Arb5EditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/Arb5EditFrame.tcl 2013-02-01
14:03:12 UTC (rev 54284)
+++ brlcad/trunk/src/tclscripts/archer/Arb5EditFrame.tcl 2013-02-01
17:11:52 UTC (rev 54285)
@@ -68,7 +68,6 @@
method buildRotateFacePanel {parent}
# Override what's in Arb8EditFrame
- method arbEdgeMoveCallback {_edge_data}
method arbFaceMoveCallback {_face}
method buildUpperPanel {}
method updateUpperPanel {normal disabled}
@@ -89,42 +88,6 @@
}
-::itcl::body Arb5EditFrame::arbEdgeMoveCallback {_edge_data} {
- Arb8EditFrame::arbEdgeMoveCallback $_edge_data
- return
-
- set emode [lindex $_edge_data 0]
- set e1 [lindex $_edge_data 1]
-
- switch -- $emode {
- 5 -
- 6 -
- 7 -
- 8 {
- if {$e1 == 5} {
- set mEditMode $movePoint5
- } else {
- set mEditMode $emode
- }
- }
- default {
- set mEditMode $emode
- }
- }
-
- # Calling initEditState to set mEditParam1 in case a different face has
been selected
- initEditState
-
- foreach dname {ul ur ll lr} {
- set win [$itk_option(-mged) component $dname]
- bind $win <ButtonRelease-1> "[::itcl::code $this endArbObjMove $dname
$itk_option(-geometryObject) %x %y]; break"
- }
-
- set last_mouse [$itk_option(-mged) get_prev_ged_mouse]
- eval $itk_option(-mged) move_arb_edge_mode $itk_option(-geometryObject)
$mEditParam1 $last_mouse
-}
-
-
::itcl::body Arb5EditFrame::arbFaceMoveCallback {_face} {
switch -- $_face {
0 {
Modified: brlcad/trunk/src/tclscripts/archer/Arb7EditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/Arb7EditFrame.tcl 2013-02-01
14:03:12 UTC (rev 54284)
+++ brlcad/trunk/src/tclscripts/archer/Arb7EditFrame.tcl 2013-02-01
17:11:52 UTC (rev 54285)
@@ -69,7 +69,6 @@
method buildRotateFacePanel {parent}
# Override what's in Arb8EditFrame
- method arbEdgeMoveCallback {_edge_data}
method arbFaceMoveCallback {_face}
method buildUpperPanel {}
method updateUpperPanel {normal disabled}
@@ -90,43 +89,6 @@
}
-::itcl::body Arb7EditFrame::arbEdgeMoveCallback {_edge_data} {
- .archer0 putString "Arb7EditFrame::arbEdgeMoveCallback: _edge_data -
$_edge_data"
- Arb8EditFrame::arbEdgeMoveCallback $_edge_data
- return
-
- set emode [lindex $_edge_data 0]
- set e1 [lindex $_edge_data 1]
-
- switch -- $emode {
- 5 -
- 7 -
- 10 -
- 11 {
- if {$e1 == 5} {
- set mEditMode $movePoint5
- } else {
- set mEditMode $emode
- }
- }
- default {
- set mEditMode $emode
- }
- }
-
- # Calling initEditState to set mEditParam1 in case a different face has
been selected
- initEditState
-
- foreach dname {ul ur ll lr} {
- set win [$itk_option(-mged) component $dname]
- bind $win <ButtonRelease-1> "[::itcl::code $this endArbObjMove $dname
$itk_option(-geometryObject) %x %y]; break"
- }
-
- set last_mouse [$itk_option(-mged) get_prev_ged_mouse]
- eval $itk_option(-mged) move_arb_edge_mode $itk_option(-geometryObject)
$mEditParam1 $last_mouse
-}
-
-
::itcl::body Arb7EditFrame::arbFaceMoveCallback {_face} {
switch -- $_face {
0 {
Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2013-02-01 14:03:12 UTC
(rev 54284)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2013-02-01 17:11:52 UTC
(rev 54285)
@@ -6282,11 +6282,12 @@
}
::itcl::body ArcherCore::Z {args} {
- eval gedWrapper clear 0 0 0 1 $args
+ eval zap $args
}
::itcl::body ArcherCore::zap {args} {
eval gedWrapper clear 0 0 0 1 $args
+ gedCmd configure -primitiveLabels {}
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
http://p.sf.net/sfu/appdyn_d2d_jan
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
