Revision: 37499
http://brlcad.svn.sourceforge.net/brlcad/?rev=37499&view=rev
Author: bob1961
Date: 2010-01-29 22:56:25 +0000 (Fri, 29 Jan 2010)
Log Message:
-----------
Updated the moveWrapper to bypass the ledger stuff if -f is specified.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/Archer.tcl
Modified: brlcad/trunk/src/tclscripts/archer/Archer.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/Archer.tcl 2010-01-29 22:52:11 UTC
(rev 37498)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2010-01-29 22:56:25 UTC
(rev 37499)
@@ -2207,7 +2207,10 @@
return [gedCmd $_cmd]
}
- if {$alen == 3} {
+ set fi [lsearch $args "-f"]
+ set ni [lsearch $args "-n"]
+
+ if {$fi != -1 || $ni != -1} {
# Must be using the -n option. If not, an error message
# containing the usage string will be returned.
return [eval gedCmd $_cmd $args]
@@ -2215,7 +2218,7 @@
# Get the list of potentially modified objects.
if {$_cmd == "mvall"} {
- set mlist [eval gedCmd $_cmd -n $args]
+ set mlist [lsort -dictionary -unique [eval gedCmd $_cmd -n $args]]
} else {
set mlist {}
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
The Planet: dedicated and managed hosting, cloud storage, colocation
Stay online with enterprise data centers and the best network in the business
Choose flexible plans and management services without long-term contracts
Personal 24x7 support from experience hosting pros just a phone call away.
http://p.sf.net/sfu/theplanet-com
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
