Attachment "cvsdiff_tree" to
ticket [628041ffff]
added by
decosterjos
2002-10-31 13:50:55.
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]
