Index: tree.tcl
===================================================================
RCS file: /cvsroot/tcllib/bwidget/tree.tcl,v
retrieving revision 1.37
diff -r1.37 tree.tcl
345c345
<             if { [set idx [lsearch $data(upd,nodes) $node]] == -1 } {
---
>             if { [set idx [lsearch -exact $data(upd,nodes) $node]] == -1 } {
410,415c410,415
< 	foreach node $lnodes {
< 	    if { [string compare $node "root"] && [info exists data($node)] } {
< 		set parent [lindex $data($node) 0]
< 		set idx	   [lsearch $data($parent) $node]
< 		set data($parent) [lreplace $data($parent) $idx $idx]
< 		set idx	   [lsearch $sel $node]
---
>         foreach node $lnodes {
>             if { [string compare $node "root"] && [info exists data($node)] } {
>                 set parent [lindex $data($node) 0]
>                 set idx    [lsearch -exact $data($parent) $node]
>                 set data($parent) [lreplace $data($parent) $idx $idx]
> 		set idx    [lsearch -exact $sel $node]
452c452
<     set idx         [lsearch $data($oldp) $node]
---
>     set idx         [lsearch -exact $data($oldp) $node]
524c524
< 		    if { [lsearch $data(selnodes) $node] == -1 } {
---
> 		    if { [lsearch -exact $data(selnodes) $node] == -1 } {
540c540
< 		    if { [lsearch $data(selnodes) $node] == -1 } {
---
> 		    if { [lsearch -exact $data(selnodes) $node] == -1 } {
609c609
<                 if { [set idx [lsearch $data(selnodes) $node]] != -1 } {
---
>                 if { [set idx [lsearch -exact $data(selnodes) $node]] != -1 } {
636c636
<             return [expr {[lsearch $data(selnodes) $node] != -1}]
---
>             return [expr {[lsearch -exact $data(selnodes) $node] != -1}]
703c703
<     return [expr {[lsearch $data($parent) $node] - 1}]
---
>     return [expr {[lsearch -exact $data($parent) $node] - 1}]
1183c1183
<         -tags   "TreeItemSentinal node n:$node"
---
>         -tags   [list TreeItemSentinal node n:$node]
1203c1203
<             -tags       "cross c:$node" -anchor c
---
>             -tags       [list cross c:$node] -anchor c
1208c1208
< 		-tags "TreeItemSentinal win i:$node"
---
> 	    -tags [list TreeItemSentinal win i:$node]
1211c1211
< 		-tags "TreeItemSentinal img i:$node"
---
> 	    -tags [list TreeItemSentinal img i:$node]
1268c1268
< 			    -tags "TreeItemSentinal win i:$node"
---
> 			-tags [list TreeItemSentinal win i:$node]
1276c1276
< 			    -tags "TreeItemSentinal img i:$node"
---
> 			-tags [list TreeItemSentinal img i:$node]
1301c1301
<                         -tags       "cross c:$node" -anchor c
---
>                         -tags       [list cross c:$node] -anchor c
1393c1393
< 		    -fill $selbg -outline $selbg -tags [list "sel s:$node"]]
---
> 			-fill $selbg -outline $selbg -tags [list [list sel s:$node]]]
1575c1575
<                             set index  [lsearch $data($parent) $node]
---
>                             set index  [lsearch -exact $data($parent) $node]
1583c1583
<                         set index  [expr {[lsearch $data($parent) $node] - 1}]
---
>                         set index  [expr {[lsearch -exact $data($parent) $node] - 1}]
1770c1770
< 	    set index [lsearch $nodes $node]
---
> 	    set index [lsearch -exact $nodes $node]
1788c1788
< 	    set index [lsearch $nodes $node]
---
> 	    set index [lsearch -exact $nodes $node]
1806c1806
< 		    set index [lsearch $nodes $node]
---
> 		    set index [lsearch -exact $nodes $node]
