Revision: 54422
http://brlcad.svn.sourceforge.net/brlcad/?rev=54422&view=rev
Author: bob1961
Date: 2013-02-15 15:03:05 +0000 (Fri, 15 Feb 2013)
Log Message:
-----------
Update ArcherCore's render and erase methods to clear the -primitiveLabels
value if necessary.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2013-02-15 14:55:48 UTC
(rev 54421)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2013-02-15 15:03:05 UTC
(rev 54422)
@@ -3540,6 +3540,17 @@
} else {
gedCmd configure -primitiveLabels {}
}
+ } else {
+ set soi -1
+ set tmpObjPath [file dirname $mSelectedObjPath]
+ while {$soi == -1 && $tmpObjPath != "."} {
+ set soi [lsearch $_node $tmpObjPath]
+ set tmpObjPath [file dirname $tmpObjPath]
+ }
+
+ if {$soi != -1} {
+ gedCmd configure -primitiveLabels {}
+ }
}
if {$mSavedCenter != "" && $mTreeMode > $TREE_MODE_TREE &&
@@ -5812,6 +5823,11 @@
}
set soi [lsearch $tobjects $mSelectedObjPath]
+ set tmpObjPath [file dirname $mSelectedObjPath]
+ while {$soi == -1 && $tmpObjPath != "."} {
+ set soi [lsearch $tobjects $tmpObjPath]
+ set tmpObjPath [file dirname $tmpObjPath]
+ }
if {[catch {eval gedCmd erase $options $tobjects} ret]} {
if {$soi != -1} {
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Free Next-Gen Firewall Hardware Offer
Buy your Sophos next-gen firewall before the end March 2013
and get the hardware for free! Learn more.
http://p.sf.net/sfu/sophos-d2d-feb
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
