blob: 36917afcc3a8e67c32d1217856b8b3e5e3c6104c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#
# Demo: Bitmaps
#
proc DemoBitmaps {} {
set T .f2.f1.t
$T configure -showroot no -showbuttons no -showlines no \
-selectmode browse -orient horizontal -wrap "5 items" \
-showheader no
$T column configure 0 -itembackground {gray90 {}}
$T element create elemTxt text -fill [list $::SystemHighlightText {selected focus}]
$T element create elemSelTxt rect -fill [list $::SystemHighlight {selected focus}] \
-showfocus yes
$T element create elemSelBmp rect -outline [list $::SystemHighlight {selected focus}] \
-outlinewidth 4
$T element create elemBmp bitmap \
-foreground [list $::SystemHighlight {selected focus}] \
-background linen \
-bitmap {question {selected}}
set S [$T style create STYLE -orient vertical]
$T style elements $S {elemSelBmp elemBmp elemSelTxt elemTxt}
$T style layout $S elemSelBmp -union elemBmp \
-ipadn 6 -ipads 6 -ipadw 6 -ipade 6
$T style layout $S elemBmp -pads 6 -expand we
$T style layout $S elemSelTxt -union elemTxt -ipadw 2 -ipade 2
$T style layout $S elemTxt -expand we
set bitmapNames [list error gray75 gray50 gray25 gray12 hourglass info \
questhead question warning]
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 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 element configure $I 0 elemBmp -bitmap $name \
-foreground [list $::SystemHighlight {selected focus} brown {}] \
-background {"" {}}
$T item lastchild root $I
}
return
}
|
