diff options
author | treectrl <treectrl> | 2005-01-03 21:18:08 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2005-01-03 21:18:08 (GMT) |
commit | 6b200a822c57f6ae42c2730736226210a2252933 (patch) | |
tree | 02548fc5daf909502cab04160d5f3838cd7d26e1 /demos/bitmaps.tcl | |
parent | 87fd0c04690415d182ca700536b82bcd2e92da35 (diff) | |
download | tktreectrl-6b200a822c57f6ae42c2730736226210a2252933.zip tktreectrl-6b200a822c57f6ae42c2730736226210a2252933.tar.gz tktreectrl-6b200a822c57f6ae42c2730736226210a2252933.tar.bz2 |
Added -backgroundimage example.
Removed unnecessary -foreground value.
Diffstat (limited to 'demos/bitmaps.tcl')
-rw-r--r-- | demos/bitmaps.tcl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/demos/bitmaps.tcl b/demos/bitmaps.tcl index fe60b1e..a129a39 100644 --- a/demos/bitmaps.tcl +++ b/demos/bitmaps.tcl @@ -7,7 +7,7 @@ proc DemoBitmaps {} { $T configure -showroot no -showbuttons no -showlines no \ -selectmode browse -orient horizontal -wrap "5 items" \ - -showheader no + -showheader no -backgroundimage sky $T column create -itembackground {gray90 {}} @@ -47,9 +47,15 @@ proc DemoBitmaps {} { set I [$T item create] $T item style set $I 0 $S $T item text $I 0 $name +if 1 { + $T item element configure $I 0 elemBmp -bitmap $name \ + -foreground [list brown {}] \ + -background {"" {}} +} else { $T item element configure $I 0 elemBmp -bitmap $name \ -foreground [list $::SystemHighlight {selected focus} brown {}] \ -background {"" {}} +} $T item lastchild root $I } |