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
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
|
# RCS: @(#) $Id: explorer.tcl,v 1.17 2005/07/15 01:20:52 treectrl Exp $
set Dir [file dirname [file dirname [info script]]]
set shellicon 0
# Might work on other windows versions, but only tested on XP
if {$tcl_platform(os) eq "Windows NT" && $tcl_platform(osVersion) == 5.1} {
catch {
lappend auto_path $treectrl_library
package require shellicon $VERSION
set shellicon 1
}
}
proc DemoExplorerAux {scriptDir scriptFile} {
set T .f2.f1.t
set clicks [clock clicks]
set globDirs [glob -nocomplain -types d -dir $::Dir *]
set clickGlobDirs [expr {[clock clicks] - $clicks}]
set clicks [clock clicks]
set list [lsort -dictionary $globDirs]
set clickSortDirs [expr {[clock clicks] - $clicks}]
set clicks [clock clicks]
foreach file $list $scriptDir
set clickAddDirs [expr {[clock clicks] - $clicks}]
set clicks [clock clicks]
set globFiles [glob -nocomplain -types f -dir $::Dir *]
set clickGlobFiles [expr {[clock clicks] - $clicks}]
set clicks [clock clicks]
set list [lsort -dictionary $globFiles]
set clickSortFiles [expr {[clock clicks] - $clicks}]
set clicks [clock clicks]
foreach file $list $scriptFile
set clickAddFiles [expr {[clock clicks] - $clicks}]
set gd [ClicksToSeconds $clickGlobDirs]
set sd [ClicksToSeconds $clickSortDirs]
set ad [ClicksToSeconds $clickAddDirs]
set gf [ClicksToSeconds $clickGlobFiles]
set sf [ClicksToSeconds $clickSortFiles]
set af [ClicksToSeconds $clickAddFiles]
puts "dirs([llength $globDirs]) glob/sort/add $gd/$sd/$ad files([llength $globFiles]) glob/sort/add $gf/$sf/$af"
set ::TreeCtrl::Priv(DirCnt,$T) [llength $globDirs]
return
}
#
# Demo: explorer files
#
proc DemoExplorerDetails {} {
set T .f2.f1.t
set height [font metrics [$T cget -font] -linespace]
if {$height < 18} {
set height 18
}
#
# Configure the treectrl widget
#
$T configure -showroot no -showbuttons no -showlines no -itemheight $height \
-selectmode extended -xscrollincrement 20 \
-scrollmargin 16 -xscrolldelay "500 50" -yscrolldelay "500 50"
InitPics small-*
#
# Create columns
#
$T column create -text Name -tag name -width 200 \
-arrow up -itembackground #F7F7F7
$T column create -text Size -tag size -justify right -width 60 \
-arrowside left -arrowgravity right
$T column create -text Type -tag type -width 120
$T column create -text Modified -tag modified -width 120
# Demonstration of per-state column options and configure "all"
$T column configure all -background {gray90 active gray70 normal gray50 pressed}
#
# Create elements
#
if {$::shellicon} {
$T element create elemImg shellicon -size small
} else {
$T element create elemImg image -image {small-folderSel {selected} small-folder {}}
}
$T element create txtName text -fill [list $::SystemHighlightText {selected focus}] \
-lines 1
$T element create txtType text -lines 1
$T element create txtSize text -datatype integer -format "%dKB" -lines 1
$T element create txtDate text -datatype time -format "%d/%m/%y %I:%M %p" -lines 1
$T element create elemRectSel rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -showfocus yes
#
# Create styles using the elements
#
# column 0: image + text
set S [$T style create styName -orient horizontal]
$T style elements $S {elemRectSel elemImg txtName}
$T style layout $S elemImg -padx {2 0} -expand ns
$T style layout $S txtName -squeeze x -expand ns
$T style layout $S elemRectSel -union [list txtName] -ipadx 2 -iexpand ns
# column 1: text
set S [$T style create stySize]
$T style elements $S txtSize
$T style layout $S txtSize -padx 6 -squeeze x -expand ns
# column 2: text
set S [$T style create styType]
$T style elements $S txtType
$T style layout $S txtType -padx 6 -squeeze x -expand ns
# column 3: text
set S [$T style create styDate]
$T style elements $S txtDate
$T style layout $S txtDate -padx 6 -squeeze x -expand ns
# List of lists: {column style element ...} specifying text elements
# the user can edit
TreeCtrl::SetEditable $T {
{name styName txtName}
}
# List of lists: {column style element ...} specifying elements
# the user can click on or select with the selection rectangle
TreeCtrl::SetSensitive $T {
{name styName elemImg txtName}
}
# List of lists: {column style element ...} specifying elements
# added to the drag image when dragging selected items
TreeCtrl::SetDragImage $T {
{name styName elemImg txtName}
}
# During editing, hide the text and selection-rectangle elements.
$T notify bind $T <Edit-begin> {
%T item element configure %I %C txtName -draw no + elemRectSel -draw no
}
$T notify bind $T <Edit-accept> {
%T item element configure %I %C %E -text %t
}
$T notify bind $T <Edit-end> {
%T item element configure %I %C txtName -draw yes + elemRectSel -draw yes
}
#
# Create items and assign styles
#
set scriptDir {
set item [$T item create -open no]
$T item style set $item name styName type styType modified styDate
$T item element configure $item \
name txtName -text [file tail $file] , \
type txtType -text "Folder" , \
modified txtDate -data [file mtime $file]
if {$::shellicon} {
$T item element configure $item \
name elemImg -path $file
}
$T item lastchild root $item
}
set scriptFile {
set item [$T item create -open no]
$T item style set $item name styName size stySize type styType modified styDate
switch [file extension $file] {
.dll { set img small-dll }
.exe { set img small-exe }
.txt { set img small-txt }
default { set img small-file }
}
set type [string toupper [file extension $file]]
if {$type ne ""} {
set type "[string range $type 1 end] "
}
append type "File"
if {$::shellicon} {
$T item element configure $item \
name elemImg -path $file + txtName -text [file tail $file] , \
size txtSize -data [expr {[file size $file] / 1024 + 1}] , \
type txtType -text $type , \
modified txtDate -data [file mtime $file]
} else {
$T item element configure $item \
name elemImg -image [list ${img}Sel {selected} $img {}] + txtName -text [file tail $file] , \
size txtSize -data [expr {[file size $file] / 1024 + 1}] , \
type txtType -text $type , \
modified txtDate -data [file mtime $file]
}
$T item lastchild root $item
}
DemoExplorerAux $scriptDir $scriptFile
set ::SortColumn name
$T notify bind $T <Header-invoke> { ExplorerHeaderInvoke %T %C }
bindtags $T [list $T TreeCtrlFileList TreeCtrl [winfo toplevel $T] all]
return
}
proc ExplorerHeaderInvoke {T C} {
global SortColumn
if {[$T column compare $C == $SortColumn]} {
if {[$T column cget $SortColumn -arrow] eq "down"} {
set order -increasing
set arrow up
} else {
set order -decreasing
set arrow down
}
} else {
if {[$T column cget $SortColumn -arrow] eq "down"} {
set order -decreasing
set arrow down
} else {
set order -increasing
set arrow up
}
$T column configure $SortColumn -arrow none -itembackground {}
set SortColumn $C
}
$T column configure $C -arrow $arrow -itembackground #F7F7F7
set dirCount $::TreeCtrl::Priv(DirCnt,$T)
set lastDir [expr {$dirCount - 1}]
switch [$T column cget $C -tag] {
name {
if {$dirCount} {
$T item sort root $order -last "root child $lastDir" -column $C -dictionary
}
if {$dirCount < [$T item count] - 1} {
$T item sort root $order -first "root child $dirCount" -column $C -dictionary
}
}
size {
if {$dirCount < [$T item count] - 1} {
$T item sort root $order -first "root child $dirCount" -column $C -integer -column name -dictionary
}
}
type {
if {$dirCount < [$T item count] - 1} {
$T item sort root $order -first "root child $dirCount" -column $C -dictionary -column name -dictionary
}
}
modified {
if {$dirCount} {
$T item sort root $order -last "root child $lastDir" -column $C -integer -column name -dictionary
}
if {$dirCount < [$T item count] - 1} {
$T item sort root $order -first "root child $dirCount" -column $C -integer -column name -dictionary
}
}
}
return
}
proc DemoExplorerLargeIcons {} {
set T .f2.f1.t
# Item height is 32 for icon, 4 padding, 3 lines of text
set itemHeight [expr {32 + 4 + [font metrics [$T cget -font] -linespace] * 3}]
#
# Configure the treectrl widget
#
$T configure -showroot no -showbuttons no -showlines no \
-selectmode extended -wrap window -orient horizontal \
-itemheight $itemHeight -itemwidth 75 -showheader no \
-scrollmargin 16 -xscrolldelay "500 50" -yscrolldelay "500 50"
InitPics big-*
#
# Create columns
#
$T column create -tag C0
#
# Create elements
#
if {$::shellicon} {
$T element create elemImg shellicon -size large
} else {
$T element create elemImg image -image {big-folderSel {selected} big-folder {}}
}
$T element create elemTxt text -fill [list $::SystemHighlightText {selected focus}] \
-justify center -lines 1 -width 71 -wrap word
$T element create elemSel rect -fill [list $::SystemHighlight {selected focus} gray {selected}] -showfocus yes
#
# Create styles using the elements
#
# image + text
set S [$T style create STYLE -orient vertical]
$T style elements $S {elemSel elemImg elemTxt}
$T style layout $S elemImg -expand we
$T style layout $S elemTxt -pady {4 0} -squeeze x -expand we
$T style layout $S elemSel -union [list elemTxt] -ipadx 2
# List of lists: {column style element ...} specifying text elements
# the user can edit
TreeCtrl::SetEditable $T {
{C0 STYLE elemTxt}
}
# List of lists: {column style element ...} specifying elements
# the user can click on or select with the selection rectangle
TreeCtrl::SetSensitive $T {
{C0 STYLE elemImg elemTxt}
}
# List of lists: {column style element ...} specifying elements
# added to the drag image when dragging selected items
TreeCtrl::SetDragImage $T {
{C0 STYLE elemImg elemTxt}
}
# During editing, hide the text and selection-rectangle elements.
$T state define edit
$T element configure elemTxt -draw {no edit}
$T element configure elemSel -draw {no edit}
$T notify bind $T <Edit-begin> {
%T item state set %I ~edit
}
$T notify bind $T <Edit-accept> {
%T item element configure %I %C %E -text %t
}
$T notify bind $T <Edit-end> {
%T item state set %I ~edit
}
#
# Create items and assign styles
#
set scriptDir {
set item [$T item create -open no]
$T item style set $item C0 STYLE
$T item text $item C0 [file tail $file]
if {$::shellicon} {
$T item element configure $item C0 \
elemImg -path $file
}
$T item lastchild root $item
}
set scriptFile {
set item [$T item create -open no]
$T item style set $item C0 STYLE
switch [file extension $file] {
.dll { set img big-dll }
.exe { set img big-exe }
.txt { set img big-txt }
default { set img big-file }
}
set type [string toupper [file extension $file]]
if {$type ne ""} {
set type "[string range $type 1 end] "
}
append type "File"
if {$::shellicon} {
$T item element configure $item C0 \
elemImg -path $file + \
elemTxt -text [file tail $file]
} else {
$T item element configure $item C0 \
elemImg -image [list ${img}Sel {selected} $img {}] + \
elemTxt -text [file tail $file]
}
$T item lastchild root $item
}
DemoExplorerAux $scriptDir $scriptFile
$T activate [$T item id "root firstchild"]
$T notify bind $T <ActiveItem> {
%T item element configure %p C0 elemTxt -lines {}
%T item element configure %c C0 elemTxt -lines 3
}
$T item element configure active C0 elemTxt -lines 3
bindtags $T [list $T TreeCtrlFileList TreeCtrl [winfo toplevel $T] all]
return
}
# Tree is horizontal, wrapping occurs at right edge of window, each item
# is as wide as the smallest needed multiple of 110 pixels
proc DemoExplorerSmallIcons {} {
set T .f2.f1.t
DemoExplorerList
$T configure -orient horizontal \
-itemwidthmultiple 110 -itemwidthequal no
return
}
# Tree is vertical, wrapping occurs at bottom of window, each range has the
# same width (as wide as the longest item), xscrollincrement is by range
proc DemoExplorerList {} {
set T .f2.f1.t
set height [font metrics [$T cget -font] -linespace]
if {$height < 18} {
set height 18
}
#
# Configure the treectrl widget
#
$T configure -showroot no -showbuttons no -showlines no -itemheight $height \
-selectmode extended -wrap window -showheader no \
-scrollmargin 16 -xscrolldelay "500 50" -yscrolldelay "500 50" \
-itemwidthequal yes
InitPics small-*
#
# Create columns
#
$T column create -tag C0
#
# Create elements
#
if {$::shellicon} {
$T element create elemImg shellicon -size small
} else {
$T element create elemImg image -image {small-folderSel {selected} small-folder {}}
}
$T element create elemTxt text -fill [list $::SystemHighlightText {selected focus}] \
-lines 1
$T element create elemSel rect -fill [list $::SystemHighlight {selected focus} gray {selected !focus}] -showfocus yes
#
# Create styles using the elements
#
# image + text
set S [$T style create STYLE]
$T style elements $S {elemSel elemImg elemTxt}
$T style layout $S elemImg -expand ns
$T style layout $S elemTxt -squeeze x -expand ns -padx {2 0}
$T style layout $S elemSel -union [list elemTxt] -iexpand ns -ipadx 2
# List of lists: {column style element ...} specifying text elements
# the user can edit
TreeCtrl::SetEditable $T {
{C0 STYLE elemTxt}
}
# List of lists: {column style element ...} specifying elements
# the user can click on or select with the selection rectangle
TreeCtrl::SetSensitive $T {
{C0 STYLE elemImg elemTxt}
}
# List of lists: {column style element ...} specifying elements
# added to the drag image when dragging selected items
TreeCtrl::SetDragImage $T {
{C0 STYLE elemImg elemTxt}
}
# During editing, hide the text and selection-rectangle elements.
$T notify bind $T <Edit-begin> {
%T item element configure %I %C elemSel -draw no + elemTxt -draw no
}
$T notify bind $T <Edit-accept> {
%T item element configure %I %C %E -text %t
}
$T notify bind $T <Edit-end> {
%T item element configure %I %C elemSel -draw yes + elemTxt -draw yes
}
#
# Create items and assign styles
#
set scriptDir {
set item [$T item create -open no]
$T item style set $item C0 STYLE
$T item text $item C0 [file tail $file]
if {$::shellicon} {
$T item element configure $item C0 \
elemImg -path $file
}
$T item lastchild root $item
}
set scriptFile {
set item [$T item create -open no]
$T item style set $item C0 STYLE
switch [file extension $file] {
.dll { set img small-dll }
.exe { set img small-exe }
.txt { set img small-txt }
default { set img small-file }
}
set type [string toupper [file extension $file]]
if {$type ne ""} {
set type "[string range $type 1 end] "
}
append type "File"
if {$::shellicon} {
$T item element configure $item C0 \
elemImg -path $file + \
elemTxt -text [file tail $file]
} else {
$T item element configure $item C0 \
elemImg -image [list ${img}Sel {selected} $img {}] + \
elemTxt -text [file tail $file]
}
$T item lastchild root $item
}
DemoExplorerAux $scriptDir $scriptFile
$T activate [$T item firstchild root]
bindtags $T [list $T TreeCtrlFileList TreeCtrl [winfo toplevel $T] all]
return
}
|