[brlcad-commits] SF.net SVN: brlcad:[35827] brlcad/trunk/src/tclscripts/archer/Archer.tcl
Open Source Solid Modeling CAD
Brought to you by:
brlcad
From: <bo...@us...> - 2009-09-02 19:11:43
|
Revision: 35827 http://brlcad.svn.sourceforge.net/brlcad/?rev=35827&view=rev Author: bob1961 Date: 2009-09-02 19:11:36 +0000 (Wed, 02 Sep 2009) Log Message: ----------- Modified killWrapper to set the wait cursor sooner. 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-09-02 19:06:08 UTC (rev 35826) +++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2009-09-02 19:11:36 UTC (rev 35827) @@ -2095,6 +2095,8 @@ return [gedCmd $_cmd] } + SetWaitCursor $this + # Get the list of killed and modified objects. if {[lsearch $options -a] != -1} { set alist [eval gedCmd $_cmd -a -n $expandedArgs] @@ -2120,10 +2122,12 @@ set nindex [lsearch $options "-n"] if {$nindex == 0 || $nindex == 1} { + SetNormalCursor $this return [list $klist $mlist] } if {[llength $klist] == 0} { + SetNormalCursor $this return } @@ -2131,8 +2135,6 @@ set klist [lsort -unique $klist] set mlist [lsort -unique $mlist] - SetWaitCursor $this - # Need to checkpoint before they're gone checkpoint_olist $klist $LEDGER_DESTROY This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |