blob: 9cca46836cb54784e521de0cf2a31b8dacf49b06 (
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
# RCS: @(#) $Id: textvariable.tcl,v 1.4 2006/10/04 04:09:52 treectrl Exp $
proc DemoTextvariable {} {
set T .f2.f1.t
#
# Configure the treectrl widget
#
$T configure -showroot no -showbuttons no -showlines no \
-selectmode extended -xscrollincrement 20 -showheader no
if {!$::clip} {
# Hide the borders because child windows appear on top of them
$T configure -borderwidth 0 -highlightthickness 0
}
#
# Create columns
#
$T column create -expand yes -tag C0
$T configure -treecolumn C0
#
# Create elements
#
$T element create eWindow window
$T element create eRect rect
$T element create eText1 text -width 300
$T element create eText2 text
#
# Create styles using the elements
#
set S [$T style create s1 -orient horizontal]
$T style elements $S eText1
$T style layout $S eText1 -padx 10 -pady 6
set S [$T style create s2 -orient vertical]
$T style elements $S {eRect eText2 eWindow}
$T style layout $S eRect -union {eText2 eWindow} -ipadx 8 -ipady 8 -padx 4 -pady {0 4}
$T style layout $S eText2 -pady {0 6}
$T style layout $S eWindow
#
# Create items and assign styles
#
set I [$T item create]
$T item style set $I C0 s1
$T item element configure $I C0 eText1 -text "Each text element and entry widget share the same -textvariable. Editing the text in the entry automatically updates the text element."
$T item lastchild root $I
foreach i {0 1} color {gray75 "light blue"} {
set I [$T item create]
$T item style set $I C0 s2
if {$::clip} {
set clip [frame $T.clip$I -borderwidth 0]
set e [$::entryCmd $clip.e -width 48 -textvariable tvar$I]
$T item element configure $I C0 \
eRect -fill [list $color] + \
eText2 -textvariable tvar$I + \
eWindow -window $clip -clip yes
} else {
set e [$::entryCmd $T.e$I -width 48 -textvariable tvar$I]
$T item element configure $I C0 \
eRect -fill [list $color] + \
eText2 -textvariable tvar$I + \
eWindow -window $e
}
$T item lastchild root $I
set ::tvar$I "This is item $I"
}
return
}
|
