Revision: 34366
http://brlcad.svn.sourceforge.net/brlcad/?rev=34366&view=rev
Author: bob1961
Date: 2009-04-29 20:17:25 +0000 (Wed, 29 Apr 2009)
Log Message:
-----------
Override the kill command in ArcherCore in order to remove any edit panels
associated with the object(s) being killed/deleted. Will need to look at other
commands that kill/delete objects from the database.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/Archer.tcl
Modified: brlcad/trunk/src/tclscripts/archer/Archer.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/Archer.tcl 2009-04-29 20:10:33 UTC
(rev 34365)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2009-04-29 20:17:25 UTC
(rev 34366)
@@ -142,6 +142,7 @@
# ArcherCore Override Section
method Load {_target}
method updateTheme {}
+ method kill {args}
}
protected {
@@ -769,7 +770,19 @@
}
}
+::itcl::body Archer::kill {args} {
+ eval gedWrapper kill 1 0 1 1 $args
+ if {$mSelectedObj != "" && [lsearch $args $mSelectedObj] != -1} {
+ set tops [$itk_component(ged) tops]
+ if {[llength $tops]} {
+ set obj [lindex $tops 0]
+ set obj [regsub -all {/} $obj ""]
+ selectNode [$itk_component(tree) find $obj] 0
+ }
+ }
+}
+
::itcl::body Archer::Load {_target} {
SetWaitCursor $this
if {$mNeedSave} {
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Register Now & Save for Velocity, the Web Performance & Operations
Conference from O'Reilly Media. Velocity features a full day of
expert-led, hands-on workshops and two days of sessions from industry
leaders in dedicated Performance & Operations tracks. Use code vel09scf
and Save an extra 15% before 5/3. http://p.sf.net/sfu/velocityconf
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
