diff options
author | treectrl <treectrl> | 2005-05-01 01:19:12 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2005-05-01 01:19:12 (GMT) |
commit | 2a66bc29882a3079ef0ac5ea496a81b86683eaaf (patch) | |
tree | cae4bf4a58fe1c783cb7a2ad8f33241bb5a35048 /demos/mailwasher.tcl | |
parent | 7a958b153686986ebd409514a9f0dd160bee397c (diff) | |
download | tktreectrl-2a66bc29882a3079ef0ac5ea496a81b86683eaaf.zip tktreectrl-2a66bc29882a3079ef0ac5ea496a81b86683eaaf.tar.gz tktreectrl-2a66bc29882a3079ef0ac5ea496a81b86683eaaf.tar.bz2 |
Fixed list sorting for checkbutton columns.
Diffstat (limited to 'demos/mailwasher.tcl')
-rw-r--r-- | demos/mailwasher.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/demos/mailwasher.tcl b/demos/mailwasher.tcl index 627d836..f890396 100644 --- a/demos/mailwasher.tcl +++ b/demos/mailwasher.tcl @@ -194,10 +194,10 @@ proc DemoMailWasher {} { } proc CompareOnOff {T C item1 item2} { - set s1 [$T item style set $item1 $C] - set s2 [$T item style set $item2 $C] + set s1 [$T item state forcolumn $item1 $C] + set s2 [$T item state forcolumn $item2 $C] if {$s1 eq $s2} { return 0 } - if {$s1 eq "styOff"} { return -1 } + if {[lsearch -exact $s1 CHECK] == -1} { return -1 } return 1 } |