blob: f647df93893b527de3110e06bc7263d8fd4041f2 (
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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
|
# RCS: @(#) $Id: column-lock.tcl,v 1.1 2006/10/11 01:42:45 treectrl Exp $
proc DemoColumnLock {} {
global ColumnLock
set T .f2.f1.t
#
# Configure the treectrl widget
#
$T configure \
-showbuttons no \
-showlines no \
-showroot no \
-xscrollincrement 6 \
-yscrollincrement 6
#
# Create columns
#
for {set i 0} {$i < 100} {incr i} {
$T column create -text "C$i" -tags C$i -width [expr {40 + 20 * ($i % 2)}] -justify center
}
$T column configure C0 -lock left -width ""
$T state define mouseover
#
# Create row labels
#
$T element create label1.bg rect -fill {gray80 mouseover gray {}}
$T element create label1.text text
$T style create label1 -orient horizontal
$T style elements label1 {label1.bg label1.text}
$T style layout label1 label1.bg -detach yes -iexpand xy
$T style layout label1 label1.text -expand wns -padx 2
for {set i 0} {$i < 10} {incr i} {
set I [$T item create -tags R$i -parent root]
$T item style set $I C0 label1
$T item text $I C0 "R$i"
}
$T element create label2.bd border -background $::SystemButtonFace \
-relief raised -thickness 2 -filled yes
$T element create label2.text text
$T style create label2 -orient horizontal
$T style elements label2 {label2.bd label2.text}
$T style layout label2 label2.bd -detach yes -iexpand xy
$T style layout label2 label2.text -expand news -padx 2 -pady 2
for {set i 10} {$i < 20} {incr i} {
set I [$T item create -tags R$i -parent root]
$T item style set $I C0 label2
$T item text $I C0 "R$i"
}
$T element create label3.div rect -fill black -height 2
$T element create label3.text text
$T style create label3 -orient horizontal
$T style elements label3 {label3.div label3.text}
$T style layout label3 label3.div -detach yes -expand n -iexpand x
$T style layout label3 label3.text -expand ws -padx 2 -pady 2
for {set i 20} {$i < 30} {incr i} {
set I [$T item create -tags R$i -parent root]
$T item style set $I C0 label3
$T item text $I C0 "R$i"
}
$T element create label4.rect rect -fill {#e0e8f0 mouseover}
$T element create label4.text text
$T element create label4.w window -clip yes
$T style create label4 -orient vertical
$T style elements label4 {label4.rect label4.text label4.w}
$T style layout label4 label4.rect -detach yes -iexpand xy
$T style layout label4 label4.text -expand we -padx 2 -pady 2
$T style layout label4 label4.w -iexpand x -padx 2 -pady {0 2}
for {set i 30} {$i < 40} {incr i} {
set I [$T item create -tags R$i -parent root]
$T item style set $I C0 label4
$T item element configure $I C0 label4.text -textvariable ::DemoColumnLock(R$i)
set clip [frame $T.clip$i -borderwidth 0]
$::entryCmd $clip.e -width 4 -textvariable ::DemoColumnLock(R$i)
$T item element configure $I C0 label4.w -window $clip
set ::DemoColumnLock(R$i) "R$i"
}
#
# Create elements
#
$T element create eRect rect -outline gray -outlinewidth 1 -open wn \
-fill {gray80 mouseover}
#
# Create styles using the elements
#
$T style create s1 -orient horizontal
$T style elements s1 eRect
$T style layout s1 eRect -detach yes -iexpand xy
$T element create windowStyle.rect rect -fill {#e0e8f0 mouseover}
$T element create windowStyle.text text
$T element create windowStyle.w window -clip yes
$T style create windowStyle -orient vertical
$T style elements windowStyle {windowStyle.rect windowStyle.text windowStyle.w}
$T style layout windowStyle windowStyle.rect -detach yes -iexpand xy
$T style layout windowStyle windowStyle.text -expand we -padx 2 -pady 2
$T style layout windowStyle windowStyle.w -iexpand x -padx 2 -pady {0 2}
#
# Create items and assign styles
#
foreach C [lrange [$T column list] 1 end] {
$T item style set "root children" $C s1
$T item style set 1 $C windowStyle
set clip [frame $T.clip1$C -borderwidth 0]
$::entryCmd $clip.e -width 4
$clip.e insert end "C$C"
$T item element configure 1 $C windowStyle.w -window $clip
$T item style set 20 $C windowStyle
set clip [frame $T.clip20$C -borderwidth 0]
$::entryCmd $clip.e -width 4
$clip.e insert end "C$C"
$T item element configure 20 $C windowStyle.w -window $clip
}
bind DemoColumnLock <Button1-Motion> {
# no-op
}
bind DemoColumnLock <Motion> {
ColumnLockMotion %W %x %y
}
set ColumnLock(prev) ""
bindtags $T [list $T DemoColumnLock TreeCtrl [winfo toplevel $T] all]
return
}
proc ColumnLockMotion {w x y} {
global ColumnLock
set id [$w identify $x $y]
if {$id eq ""} {
} elseif {[lindex $id 0] eq "header"} {
} elseif {[lindex $id 0] eq "item"} {
set item [lindex $id 1]
if {[lindex $id 2] eq "column"} {
set column [lindex $id 3]
} else {
set column [$w cget -treecolumn]
}
if {[list $item $column] ne $ColumnLock(prev)} {
if {$ColumnLock(prev) ne ""} {
eval $w item state forcolumn $ColumnLock(prev) !mouseover
}
$w item state forcolumn $item $column mouseover
set ColumnLock(prev) [list $item $column]
}
return
}
if {$ColumnLock(prev) ne ""} {
eval $w item state forcolumn $ColumnLock(prev) !mouseover
set ColumnLock(prev) ""
}
return
}
|
