[brlcad-commits] SF.net SVN: brlcad:[44886] brlcad/trunk/src/tclscripts/archer/ArcherCore. tcl
Open Source Solid Modeling CAD
Brought to you by:
brlcad
From: <sta...@us...> - 2011-06-10 16:48:44
|
Revision: 44886 http://brlcad.svn.sourceforge.net/brlcad/?rev=44886&view=rev Author: starseeker Date: 2011-06-10 16:48:37 +0000 (Fri, 10 Jun 2011) Log Message: ----------- Archer's use of the search command needed updating after the syntax change - fixed highlighting of related items in Archer. Modified Paths: -------------- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl =================================================================== --- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2011-06-10 16:42:16 UTC (rev 44885) +++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2011-06-10 16:48:37 UTC (rev 44886) @@ -3914,8 +3914,9 @@ if {$mEnableListView} { if {$mEnableListViewAllAffected} { - foreach path [string trim [gedCmd search -name $mSelectedObj]] { + foreach path [string trim [gedCmd search / -name $mSelectedObj]] { set path [regsub {^/} $path {}] + puts $path foreach obj [split $path /] { if {$obj == $mSelectedObj} { continue @@ -3934,7 +3935,7 @@ } } } else { - foreach path [string trim [gedCmd search -name $mSelectedObj]] { + foreach path [string trim [gedCmd search / -name $mSelectedObj]] { set path [regsub {^/} $path {}] set pathNodes [getTreeNodes $path] set pnodes [lreverse [lindex $pathNodes 0]] @@ -4037,7 +4038,7 @@ if {$mEnableListView} { selectTreePath $mSelectedObj } else { - set paths [gedCmd search -name $mSelectedObj] + set paths [gedCmd search / -name $mSelectedObj] if {[llength $paths]} { selectTreePath [lindex $paths 0] } @@ -5431,7 +5432,7 @@ return "Usage: sed prim" } - set paths [gedCmd search -name $_prim] + set paths [gedCmd search / -name $_prim] # $itk_component(tree) selectpaths $paths # $itk_component(tree) selectitem $_prim This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |