diff options
author | treectrl <treectrl> | 2005-05-13 20:18:58 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2005-05-13 20:18:58 (GMT) |
commit | 2daa0fcaefd530981cec2d63aa771c7dc0d4accd (patch) | |
tree | 9ccebdaa3241e6756aba3a3f024aaef82d6a9a76 /demos/bitmaps.tcl | |
parent | 261aaf35671f6a13eb00150dfd07d210507f66b3 (diff) | |
download | tktreectrl-2daa0fcaefd530981cec2d63aa771c7dc0d4accd.zip tktreectrl-2daa0fcaefd530981cec2d63aa771c7dc0d4accd.tar.gz tktreectrl-2daa0fcaefd530981cec2d63aa771c7dc0d4accd.tar.bz2 |
Use column -tag instead of zero, to handle -columnprefix option if used.
Diffstat (limited to 'demos/bitmaps.tcl')
-rw-r--r-- | demos/bitmaps.tcl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/demos/bitmaps.tcl b/demos/bitmaps.tcl index 4f0f700..ea063fd 100644 --- a/demos/bitmaps.tcl +++ b/demos/bitmaps.tcl @@ -17,7 +17,7 @@ proc DemoBitmaps {} { # Create columns # - $T column create -itembackground {gray90 {}} + $T column create -itembackground {gray90 {}} -tag C0 # # Create elements @@ -58,21 +58,21 @@ proc DemoBitmaps {} { foreach name $bitmapNames { set I [$T item create] # $T item style set $I 0 $S - $T item text $I 0 $name - $T item element configure $I 0 elemBmp -bitmap $name + $T item text $I C0 $name + $T item element configure $I C0 elemBmp -bitmap $name $T item lastchild root $I } foreach name $bitmapNames { set I [$T item create] - $T item style set $I 0 $S - $T item text $I 0 $name + $T item style set $I C0 $S + $T item text $I C0 $name if 1 { - $T item element configure $I 0 elemBmp -bitmap $name \ + $T item element configure $I C0 elemBmp -bitmap $name \ -foreground [list brown {}] \ -background {"" {}} } else { - $T item element configure $I 0 elemBmp -bitmap $name \ + $T item element configure $I C0 elemBmp -bitmap $name \ -foreground [list $::SystemHighlight {selected focus} brown {}] \ -background {"" {}} } |