[brlcad-commits] SF.net SVN: brlcad:[35367] brlcad/trunk/src/tclscripts/archer/ArcherCore. tcl
Open Source Solid Modeling CAD
Brought to you by:
brlcad
From: <bo...@us...> - 2009-07-29 14:11:23
|
Revision: 35367 http://brlcad.svn.sourceforge.net/brlcad/?rev=35367&view=rev Author: bob1961 Date: 2009-07-29 14:11:08 +0000 (Wed, 29 Jul 2009) Log Message: ----------- Tweak dbExpand in ArcherCore. Modified Paths: -------------- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl =================================================================== --- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2009-07-29 11:18:09 UTC (rev 35366) +++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2009-07-29 14:11:08 UTC (rev 35367) @@ -3415,8 +3415,12 @@ # find indices of matching children set mi [lsearch -all $searchType $lsItems $child] - foreach i $mi { - lappend tobjects [lindex $lsItems $i] + if {[llength $mi] == 0} { + lappend tobjects $obj + } else { + foreach i $mi { + lappend tobjects [lindex $lsItems $i] + } } } else { set path [file dirname $obj] @@ -3433,8 +3437,12 @@ # find indices of matching children set mi [lsearch -all $searchType $children $child] - foreach i $mi { - lappend tobjects "/$path/[lindex $children $i]" + if {[llength $mi] == 0} { + lappend tobjects $obj + } else { + foreach i $mi { + lappend tobjects "/$path/[lindex $children $i]" + } } } } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |