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.

------------------------------------------------------------------------------
EditLive Enterprise is the world's most technically advanced content
authoring tool. Experience the power of Track Changes, Inline Image
Editing and ensure content is compliant with Accessibility Checking.
http://p.sf.net/sfu/ephox-dev2dev
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits

Reply via email to