[brlcad-commits] SF.net SVN: brlcad:[35242] brlcad/trunk/src/tclscripts/archer/Archer.tcl

[<bo...@us...>]

Revision: 35242
          http://brlcad.svn.sourceforge.net/brlcad/?rev=35242&view=rev
Author:   bob1961
Date:     2009-07-21 18:05:50 +0000 (Tue, 21 Jul 2009)

Log Message:
-----------
Mod the clearTargetLedger method to clear the ledger.

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-07-21 17:28:00 UTC (rev 35241)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl	2009-07-21 18:05:50 UTC (rev 35242)
@@ -1803,6 +1803,7 @@
 	    # Possibly draw the updated object
 	    set ditem ""
 	    foreach item [gedCmd report 0] {
+		regexp {/([^/]+$)} $item all item
 		set l [split $item /]
 		set i [lsearch -exact $l $obj]
 		if {$i != -1} {
@@ -7368,7 +7369,8 @@
 
 ::itcl::body Archer::clearTargetLedger {} {
     set mLedgerGID 0
-    $mLedger
+    set alist [$mLedger ls]
+    eval $mLedger kill $alist
 }
 
 ::itcl::body Archer::createTargetLedger {} {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.