diff options
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 {"" {}} } |