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 brlcad-commits@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/brlcad-commits