Bwidget Source Code
Check-in [1a065c3764]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:demo themes are now base64 encoded
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 1a065c37641ecc7e2e85a6f68e7754963cb440b0
User & Date: oberdorfer 2009-09-16 20:41:02
Context
2009-10-25
19:09
ongoing developement check-in: 0cd7560b8b user: oberdorfer tags: trunk
2009-09-16
20:41
demo themes are now base64 encoded check-in: 1a065c3764 user: oberdorfer tags: trunk
20:31
demo themes are now bas64 encoded check-in: 9e600930e2 user: oberdorfer tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Added demo/themes/CreateImageLibCmd.tcl.






























































































































































































































































































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
#!/usr/bin/ksh
# the next line restarts using wish \
exec wish "$0" "[email protected]"


# CreateImageLibCmd.tcl ---
# -------------------------------------------------------------------------
# Purpose:
#   A utility script to create base64 multimedia encoded gif's
#   from a given image directory.
#
# Copyright(c) 2009,  Johann Oberdorfer
#                     mail-to: [email protected]
# -------------------------------------------------------------------------
# This source file is distributed under the BSD license.
# -------------------------------------------------------------------------


# where to find tcllib:
lappend auto_path [file join $::env(HOME) "t/lib1"]
  package require base64


namespace eval ::CreateImageLib:: {
  variable defaults
  
  array set defaults {
    pattern       "*.gif"
    imageDir       "images"
    imageLib       "ImageLib.tcl"
    dclsFile       "CreateImageLib.def"
    imageArrayName "images"
  }
}


proc ::CreateImageLib::ReadDeclaredImageNames { fname } {
  set imagename_dcls [list]

  if { ![file exists $fname] } { return $imagename_dcls }

  set fp [open $fname "r"]

  while { ![eof $fp] } {
    if { [string length [set row [string trim [gets $fp]]]] } {
      lappend imagename_dcls $row
    }
  }

  close $fp
  return $imagename_dcls
}


proc ::CreateImageLib::ConvertFile { fileName } {

  set fp [open $fileName "r"]
  fconfigure $fp -translation binary

  set data [read $fp [file size $fileName]]
  close $fp

  return [base64::encode $data]
}


proc ::CreateImageLib::CreateImageLib {dir} {
  variable defaults

  set cdir [pwd]
  cd $dir

  # verify if there is a declaration file available
  # which triggers the image lib creation... 

  if { ![file exists $defaults(dclsFile)] ||
       ![llength [set imagename_dcls \
                     [ReadDeclaredImageNames $defaults(dclsFile)]]] ||
       ![file isdirectory $defaults(imageDir)] ||
       ![llength [set fileList \
                    [glob -nocomplain \
                          [file join $defaults(imageDir) \
				     $defaults(pattern)]]]] } {
      cd $cdir
      return
  }

  # puts "Creating file: [file join $dir $defaults(imageLib)] ..."

  set fp [open $defaults(imageLib) "w"]
  puts $fp "# [file tail $defaults(imageLib)] ---"
  puts $fp "# Automatically created by: [file tail [info script]]\n"

  set cnt     0
  set created 0
  set skipped 0
  
  foreach fname $fileList {

      set keystr [file tail [file rootname $fname]]

      if { [file isfile $fname] &&
               [lsearch -regexp $imagename_dcls $keystr] != -1} {

          # assemble array name:
          set imageName $defaults(imageArrayName)
          append imageName "("
          append imageName [file rootname [file tail $fname]]
          append imageName ")"

          set imageData [ConvertFile $fname]

          puts $fp "set $imageName \[image create photo -data \{"
          puts $fp "$imageData\n\}\]"
          incr created
      } else {
          incr skipped
      }

      incr cnt
  }

  close $fp

  puts \
"
  [info script] summary:
  
      Image Library created ... [file join $dir $defaults(imageLib)]
      Images processed ........ $cnt
      Created images .......... $created
      Skipped ................. $skipped
"

  flush stdout
  cd $cdir
}


proc ::CreateImageLib::ProcessDir {dir} {
  variable defaults

  set cdir [pwd]
  cd $dir

  foreach fp [glob -nocomplain [file join $dir "*"]] {
    if { [file isdirectory $fp] &&
         [string compare -nocase [file tail $fp] "CVS"] != 0 &&
	 [string compare [file tail $fp] $defaults(imageDir)] != 0 } {
	
	# process current dir and continue proceccing afterwards...
        # puts "--> $fp"

	CreateImageLib $fp
        ProcessDir $fp
    }
  }

  flush stdout
  cd $cdir
}


proc ::CreateImageLib::RunCreate {} {

  # retrieve all sub'directories starting from:
  set dir [pwd]
  ProcessDir $dir
  cd $dir
}


# here we go ...
::CreateImageLib::RunCreate
exit 0

Added demo/themes/aquativo/CreateImageLib.def.




























































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
arrow_down_active
arrow_down_insensitive
arrow_down_normal
arrow_left_active
arrow_left_insensitive
arrow_left_normal
arrow_right_active
arrow_right_insensitive
arrow_right_normal
arrow_up_active
arrow_up_insensitive
arrow_up_normal
button
buttonNorm
buttonPressed
checkbox_checked
checkbox_unchecked
horizontal_trough
menubar_option
menubar_option_arrow
menubar_option_arrow_insensitive
notebook
notebook_active
option_in
option_out
progressbar
scrollbar_horizontal
scrollbar_horizontal_inactive
scrollbar_vertical
vertical_trough

Added demo/themes/aquativo/ImageLib.tcl.
























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
# ImageLib.tcl ---
# Automatically created by: CreateImageLibCmd.tcl

set images(arrow_down_active) [image create photo -data {
R0lGODlhDwAPAPUiAAYNFREUFw4ZJBUnOyIoLzc/SC5La1lsfytdlThfiz5w
qRZkxjl/0l9jvT2C0nOInU6N1UyQ1liV2GCd32Ke4G6l3nOm32yp6nCs7H7A
/5WqwJy835q/6aO344HH/6jI67HP7rrU8AAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEBACIALAAAAAAPAA8AAAbK
wMVisVgsFovFYrFYLBaLRqfDqTAcEQkF4/EsFo1O5/OxOCKSCsbjWSwanc4H
BHJEJBIMxrNYNICdzucTckAkk0vGs1g0Op0DIAAAAAwYj2exaHQ6G0IAABBM
MBjPYtHocD6PAACQqGA8nsWi0ekAP58CYAChYDyexaLR6XxAGoBCQsF4PItF
o9P5fEKIiESC8XgWi0an8wGFHBEJBePxLBaNTqcDAn4cEQkFg/EsFo1O5/Ox
OCISCsbjWSwWi8VisVgsFovFYrEIAgA7
}]
set images(arrow_down_insensitive) [image create photo -data {
R0lGODlhDAAMAPECAAAAALOzswAAAAAAACH5BAEBAAIALAAAAAAMAAwAAAJS
lChRokSJEiVKlChRokSJEiVKlChRYsKECRNKlJgwYcKEEiUqTJgwokSJEhMm
lChRokSFESVKlChRokSJEiVKlChRokSJEiVKlChRokSJEiVKBQA7
}]
set images(arrow_down_normal) [image create photo -data {
R0lGODlhDwAPAPMLAEZGRlhYWGVlZXFxcZGRka6urrq6usHBwdvb2+jo6Pj4
+P///wAAAAAAAAAAAAAAACH5BAEBAAsALAAAAAAPAA8AAASYsJRSSimllFJK
gcUopVRCKCmlFFTFKKWUSiklpaBSxSillFIoJQWVUqUopZRSKSWolFLFKKVI
AABAQJRSxSilVAAAgpCUUsUopVQBEICilFLFKKWUggOIpJRSxSilFFQImKSU
UsUopaBSqqSklFLFKAWVUgqlpJRSpSiolFIKpZSUUsVApZRSCaWUlFIFllJK
KaWUUkopsEQAOw==
}]
set images(arrow_left_active) [image create photo -data {
R0lGODlhDwAPAPUiAAYNFREUFw4ZJBUnOyIoLzc/SC5La1lsfytdlThfiz5w
qRZkxjl/0l9jvT2C0nOInU6N1UyQ1liV2GCd32Ke4G6l3nOm32yp6nCs7H7A
/5WqwJy835q/6aO344HH/6jI67HP7rrU8AAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEBACIALAAAAAAPAA8AAAbK
wMVisVgsFovFYrFYLBaLRqPRaDQajUaj0WgsFp1Op9PpdDqdTqfTWSw6nU6n
0+l0Op1Op7NYfICfz+fz+WwOn8+Hs1h8PiAQ6PMgBD6gz2WxqHxCIE0hEAiE
QBXGYuFwOBAAAAAAcDAcjsUCAoEAI4oBAACIRCKRxUIikUgkkYQAIJFIJIvF
ZDKZTCYVieEiqUwWCwwGg8FcMBcMBoPBLBaZTCaTAXo8HozH4/EsFh5PxuPx
eDwej8fjWSwWi8VisVgsFovFYrEIAgA7
}]
set images(arrow_left_insensitive) [image create photo -data {
R0lGODlhDAAMAPECAAAAALOzswAAAAAAACH5BAEBAAIALAAAAAAMAAwAAAJS
lChRokSJEiVKlChRokSJEiUqjChRokSJCSNKlChRYcKIEiVKTJgwokSJEhMm
jChRokSFCSNKlChRYsKIEiVKlKgwokSJEiVKlChRokSJEiVKBQA7
}]
set images(arrow_left_normal) [image create photo -data {
R0lGODlhDwAPAPMLAEZGRlhYWGVlZXFxcZGRka6urrq6usHBwdvb2+jo6Pj4
+AAAAAAAAAAAAAAAAAAAACH5BAEBAAsALAAAAAAPAA8AAASYsJhijDHGGGOM
gaYopZRSSimlFFSlKKWUUkoppaBSpSillFJKKQWVUqUopZRSShGolFKlKKWU
UiZAoJRKpaSkFBoAAqBUQqUghAoAEACAUEKlpJSSgQIAkFJKpaSUFEypBJCS
SqWkpKBSSiWilFKlKAWVUkoppZRSpSiolFJKKaWUUqVApZRSSimllFIFllKK
KaWUUoopsEQAOw==
}]
set images(arrow_right_active) [image create photo -data {
R0lGODlhDwAPAPUiAAYNFREUFw4ZJBUnOyIoLzc/SC5La1lsfytdlThfiz5w
qRZkxjl/0l9jvT2C0nOInU6N1UyQ1liV2GCd32Ke4G6l3nOm32yp6nCs7H7A
/5WqwJy835q/6aO344HH/6jI67HP7rrU8AAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEBACIALAAAAAAPAA8AAAbK
wMVisVgsFovFYrFYLBaLRqPRaDQajUaj0WgsFp1Op9PpdDqdTqfTWSw6nU6n
0+l0Oh1Op7NYcICfz+ew+Xw+n8/ns1hUPiBQgPAAgT6fz2exYFg+oQAgUNCE
Qh/LYuFwOBwAAAAAQDgcjsUiEoEAIQAAYKCAQCKRxUIikUgCgoREIpFIJIsF
hTKZGCQTCkVCoVQWiwvmcsFcMBgMBoPBLBaeTCaTAXo8mUwmk8ksFh6Px+Px
eDwejyfjWSwWi8VisVgsFovFYrEIAgA7
}]
set images(arrow_right_insensitive) [image create photo -data {
R0lGODlhDAAMAPECAAAAALOzswAAAAAAACH5BAEBAAIALAAAAAAMAAwAAAJS
lChRokSJEiVKlChRokSJCiNKlChRosKEEiVKlKgwYUSJEiUqTJhQokSJChMm
lChRosKEESVKlKgwoUSJEiUqjChRokSJEiVKlChRokSJEiVKBQA7
}]
set images(arrow_right_normal) [image create photo -data {
R0lGODlhDwAPAPMLAEZGRlhYWGVlZXFxcZGRka6urrq6usHBwdvb2+jo6Pj4
+AAAAAAAAAAAAAAAAAAAACH5BAEBAAsALAAAAAAPAA8AAASYsBhjjDGmGGOM
gaUopZRSSimlFFSlKKWUUkoppaBSpSillFJKKQWVSqUopRRRSimolFKlJKUU
CEZBpZRSpaCkFAAADqSUSqWghBIAEABQEEKlpJQSgACIk1JKpSSVFASgpJRS
SqUopaAiSSmllEqlKAWVUkoppZRSpSiolFJKKaWUUqVApZRSSimllFIFllKK
KaWYUkopsEQAOw==
}]
set images(arrow_up_active) [image create photo -data {
R0lGODlhDwAPAPUiAAYNFREUFw4ZJBUnOyIoLzc/SC5La1lsfytdlThfiz5w
qRZkxjl/0l9jvT2C0nOInU6N1UyQ1liV2GCd32Ke4G6l3nOm32yp6nCs7H7A
/5WqwJy835q/6aO344HH/6jI67HP7rrU8AAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEBACIALAAAAAAPAA8AAAbK
wMVisVgsFovFYrFYLBaLRqfz+VgcEQkF48ksFo1O5wP6OCISyiXjWSwanc4H
FHJEJJRLJrNYNICdzucTQkQklEvGs1g0OpzPRwNQRCqXjGexaHQ6H1ABMJBU
MB7PYtHocD6PAACQmGA8nsWi0ekAN4QAACCQXDyexaLR6RwCAQAAYMB4PItF
o9P5fEIOiGRyyXgWi0an8wF9GBDJ5JLxLBaNTqfzAVYcEAkFk8ksFo1OpzNh
QCKSCibjWSwWi8VisVgsFovFYrEIAgA7
}]
set images(arrow_up_insensitive) [image create photo -data {
R0lGODlhDAAMAPECAAAAALOzswAAAAAAACH5BAEBAAIALAAAAAAMAAwAAAJS
lChRokSJEiVKlChRokSJEiVKlChRokSJEiVKlChRYUSJEiVKTJhQokSJChMm
jChRYsKECRNKlJgwYcKEEiVKlChRokSJEiVKlChRokSJEiVKBQA7
}]
set images(arrow_up_normal) [image create photo -data {
R0lGODlhDwAPAPMLAEZGRlhYWGVlZXFxcZGRka6urrq6usHBwdvb2+jo6Pj4
+AAAAAAAAAAAAAAAAAAAACH5BAEBAAsALAAAAAAPAA8AAASYsJRSSimlmFJK
gcUopVRKCKWkFFTFKKWUUgglpaBSxSillFIoJQWVUsUopZRSJSWolFLFKKWU
QuDApJRSxSillBoAiqSUUsUopZQBEICilFLFKKVSgACAkJRSxiilCgQAAECU
UqUopaBSKqWklFLFKAWVUgqlpJRSxSiolFIJpaSUUsVApZRKCCGllFIFllJK
KaWUUoopsEQAOw==
}]
set images(button) [image create photo -data {
R0lGODlhGwAbAPIGAAAAAL+/v83NzdfX1+jo6Pb29gAAAAAAACH5BAEBAAYA
LAAAAAAbABsAAAP+aGZmhmZmZmhmZoZmZmZoZmaBERERGBERgRESERgRYYYW
IiIoIiKCIiIiKCIighJmISgiIoIiIiIoIiKCIiJhaCEygjIiIigyIoIiIjIo
YRaDIiMyOCMjgzIyMjgiE4YWIyM4IyODMyMyODMygxJmMTgzM4MzMzM4MzOD
MzNhaDEzgzMzMzgzNIMzMzM4YRaEMzQzOEMzg0MzM0gzE4YWM0NIQzODNDQz
ODNDgxRmQTg0M4NEM0M4NESEMzRhaEEzhERENEhDM4QzQzRIYRaERDM0OERE
hEREREhDFIYWRERIRESEQ0RDSEREhBRmQUhERIRERERIRESERERhaEGsRIRE
RERIRESFREVFSGIWhVREVUhFVIRFRERIRRSGFkRFWFREhEVFVUhFRIUUZlFY
VVSEVUVVSEVFhVVUYWhRRYVVVVVYVVWFVVVUWGEWhVVVVVhVVYVVVVVYVRWG
FlVVWFVVhVVVVVhVVYUVZlFYVVWFVVVVWFVVhVVVYWhRVYVVVVVYVVWFVVVV
WGFmgRIhIRghEYIhERIYEmKGZmZmaGZmhmZmZmhmZoZmlgA7
}]
set images(buttonNorm) [image create photo -data {
R0lGODlhGwAbAPIGAAAAAL+/v83NzdfX1+jo6Pb29gAAAAAAACH5BAEBAAYA
LAAAAAAbABsAAAP+aGZmhmZmZmhmZoZmZmZoZmaBERERGBERgRESERgRYYYW
IiIoIiKCIiIiKCIighJmISgiIoIiIiIoIiKCIiJhaCEygjIiIigyIoIiIjIo
YRaDIiMyOCMjgzIyMjgiE4YWIyM4IyODMyMyODMygxJmMTgzM4MzMzM4MzOD
MzNhaDEzgzMzMzgzNIMzMzM4YRaEMzQzOEMzg0MzM0gzE4YWM0NIQzODNDQz
ODNDgxRmQTg0M4NEM0M4NESEMzRhaEEzhERENEhDM4QzQzRIYRaERDM0OERE
hEREREhDFIYWRERIRESEQ0RDSEREhBRmQUhERIRERERIRESERERhaEGsRIRE
RERIRESFREVFSGIWhVREVUhFVIRFRERIRRSGFkRFWFREhEVFVUhFRIUUZlFY
VVSEVUVVSEVFhVVUYWhRRYVVVVVYVVWFVVVUWGEWhVVVVVhVVYVVVVVYVRWG
FlVVWFVVhVVVVVhVVYUVZlFYVVWFVVVVWFVVhVVVYWhRVYVVVVVYVVWFVVVV
WGFmgRIhIRghEYIhERIYEmKGZmZmaGZmhmZmZmhmZoZmlgA7
}]
set images(buttonPressed) [image create photo -data {
R0lGODlhGwAbAPQRAAAAAAAkrWOq3nOq73uy73u294y+54S+95a+7IzH/5zH
75zP/6XJ66XZ+b3T787f797r9wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAACH5BAEBABEALAAAAAAbABsAAAX+YBRFURRF
URRFURRFURRFURRFURRFURSAQRAEQRAEQRAEQRAEQRAEQRBFUQBBEARCEARB
EARBEARBEARBEBREUfA8z/M8D/g8z/M8z/M8z/M8zxNEUeA4juM4juM4oOM4
juM4juM4jhNEUcAwDMMwDMMwDMOADMMwDMMwDBNEUcAwDMMwDMMwDMMwDAMy
DMMwDBNEUaAoiqIoiqIoiqIoiqIoCqgoihJEUYAgCIIgiIEgCIIgCGIgCIIg
IBJEUYAgCIIgCoIgCIIgCIIoCIIgSBCBUWAYhmEYhmEYhmEYhmEYhmEYRhBF
AQIiCIIgCIIgCIIgCIIgCIIgSBBFgSD+CAIoCIIgCIIgCIIgCIIgCEIQRYEg
CIIgCKAgCIIgCIIgCIIgCEIQRYEgCIIgCIIggIIgCIIgCIIgCEIQRcEwDMMw
DMMwDMMADsMwDMMwDEMQRQFBEARBEARBEARBEARIEARBEEQQRUFRFEVRFEVR
FEVRFEVRFGBRFEUQRcFxHMdxHMdxHEVyHMdxHMdxgEkQRUGSHElyJEmSJEly
JEeSJEdyJEEERkGSLEmSJEmSJEmSJEmSLEmSJEEUBQu4LMuyLMuyNMvSLMuy
LMuyNEEUBU3TNGDTNE3TNE3TNE3TNE3TNEEUBU3TNE3TgE3TNE3TNE3TNE3T
NEEUBU3TNE070zRNAzZN0zRN0zRN0zRBFEVBEARBEARBEAQBGARBEARBEARR
FEVRFEVRFEVRFEVRFEVgFEVRFEVRFAIAOw==
}]
set images(checkbox_checked) [image create photo -data {
R0lGODlhEAAQAPQfAAAAAB4yQyQ2Ryg8US1BWTREVTRLZDpSakNUZAAkrVZo
rVuZ2mid6Gys32qr4nqp5Xmu8Hmw8YOp4Yqz4oS79pa86KC14o7B7o/H/ZrB
6ZDI/p7T/KDH7LXI6rbR7QAAACH5BAEBAB8ALAAAAAAQABAAAAXI4Pd93/d9
3/d93/d93/cpiqIoiqIoiqKA3/cpVtd1Xdd1XedZyvcpled5nud5ngd6lvJ9
ysQhSJVxHIJkk/J9ipQhQFFlBQgUmaR8nyJVUwEUBSBk1aN8n7I4TjMAICA0
jbMo36csjuMMACA4jrMo36cwUUSAgCAAQwQxyvcpEHUAAkUNwEE5yvcpkQYe
hKZh2FFokPJ9CrVt27Zt27ZtlPJ9Cvhc13Vd13VdFaR836coiqIoiqIoivJ9
4Pd93/d93/d93/d9XwgAOw==
}]
set images(checkbox_unchecked) [image create photo -data {
R0lGODlhEAAQAPIGAAAAAL+/v8zMzNbW1ujo6Pb29gAAAAAAACH5BAEBAAYA
LAAAAAAQABAAAAOWaGZmhmZmZmhmZoYRIREYERKBZhYiKCIigiIiYWgiIoMy
MiIoEmaBMyMzODMzg2IWMzgzM4MzM2FoMUODNENDOBNmgUQ0NDg0RIRhFkRI
RESERDRiaEFEhEREREgUZoFURVVYVFWEYRZUWFVVhUVVYWhRVYVVVVVYFWaB
VVVVWFVVhWFmEhgRIYIREWZoZmaGZmZmaGaWADs=
}]
set images(horizontal_trough) [image create photo -data {
R0lGODlhEQAPAIQYALm5ubq6usDAwMfHx8jIyNLS0tPT09ra2tvb2+Pj4+np
6erq6u3t7e7u7u/v7/Dw8PLy8vPz8/T09PX19ff39/j4+Pn5+fr6+v//////
/////////////////////////yH+EUNyZWF0ZWQgd2l0aCBHSU1QACwAAAAA
EQAPAAAFYmAQACQgimUqrGzrrkQsD/Qg34ZR7EWe88CDcIgoIobIhHLJbCoV
ioV0KoVCp46s9sHtcrWTsFhCLpPFlbR6zU5b3vC4/H2p2+/4eprC7/v/EREQ
gxCBhoeBDYqLjAyOjwwhADs=
}]
set images(in) [image create photo -data {
R0lGODlhBQAFAPECAJuuuf///wAAAAAAACH5BAEBAAIALAAAAAAFAAUAAAIP
BAgQYMKACBMCTBgQIEAUADs=
}]
set images(menubar_option) [image create photo -data {
R0lGODlhlgAWAPUoAGlpaXx8fAgInAAIpQAkrRggrTk8lCEopTFRxlJRtXN4
jVJxzlqCzlqG1mOq3nOq73uy73u294KCgpaWlpyavaCgoLm5uYy+54S+95e9
67O1wIzG/5zH75vP/6XJ66XY+73T78fHx9ra2s7f79ze497r9+fn5/39/QAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEBACgALAAAAACWABYAAAb+
QBQKhUKhUJMAIBCQBAKSQEASCAQCgUBAEpBIAoFAICAJBAKBQCAQCAQCgYAk
EAhIAoFAIBAIBICBgCQQkAQCgUAgEAgEApKARBIISAIBSSAQCAQCAUkgIAkE
JIGAJBAIBAKBQCAQkAQCkkBAEggAA4EAgUAgEAgEAoFAIBAIhQQKhUKhUCgU
CoVCSQCTScVisVgsFovFYrFYLBaLxWKxWCwWi8ViAVosFovFYrFYLBaLxWKx
WCwWi8VisVgsFovFYrFYLBaLxWKxWCwWi8VisVgsFovFYrFYLBaLxQK0WCwW
i8VisVgsFovFYrFYLBaLxWKxWCwWS6lUKpVKpVL+qVQqlUqjzOKAQqFQKBQK
hQIELCGRCCgSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJ
RCKRSCQSiUQikUgkEolEIhFQJBKJRCKRSCQSmUQikUgkEolEIpFJJBKJRCKR
SCQyiUQikUgkEolEIpFIJBKJRCLRaDQajUYj4Gg0Go1GI1ApszigUCgUCoUC
BCwhkchkMplMIpNJZDKZTCKTyGQSmUwik8lkMplMIpNJZDKZTECRyWQSmUQm
E8lkMplMJpHJJDKZTCaTyWQSmUQmk0hkMplMJpHJJDKZRCaTySQymUwmkUlk
MpmAJpPIJDKZTCKTyWT+MolMJpEJBAKBQCAQCAQCgUAjT6mUWRRQKBQKBQhM
QiKTyWQymUwmk8lkMgFNJpPJZDKZTCbTyWQymUwmk8lkMplMJtPJZDqZTCaT
6WQymUwmk8lkMplMJpPJZDKZTCaTyWQCmkwmk8lkMplMJpPJZDKdTCaTyWQy
mUwnk8lkMplMppPJZDKdTCaTyePxeDwej8fj8Xg8Ho+nBCxlFgUUCjWRTCoh
k8lkMplMJ5PJZDKdTqaTyWQ6mUwmk8lkOplOppPJZDKdTCeT6WQymUwnkwlo
MplMppPJZDKdTCaTyXQynUymk8l0MplMJtPJZDKZTieTyXQymUwmk+l0Mpn+
TCaTyXQymUwmE/BkOplMJpPp5PF4PB6Px+PxeDwej8fjKZkyiwMKJZlULCGR
yWQymUwmk8lkMplMJpPpZDKZTCag6WQymUwmk8lkMplMJpPJZDKZTCbTyWQy
mUymk8lkMp1MJ5PJZDKZTCbTyWQymUymk8lkMplMQJPJZDKZTCaTyWQymUwm
k8lkMplMJpPJZDKZTCaTycThcDgcDofD4XA4Ho6H4+GMRhmEoTKpVICWkEhk
MplMJpPJZDKZTCaTyUQymUwmk0lkMplMJpPJZDKZTCaTyWQymUwmkclkMplE
JpPJZDIBTSKTyWQymUwmk0lkMplMIpPJZDKZTCb+k8lkMplMJpPJZDKZTCaT
yWQymUwmk8lkMplMJhPJlAFeMplLJpPJZC6Zy+WSuVwymcxCUKlYLKGQKCQS
iUgikUgkEolEIpFIJBKJRCKRyCQSmUQikUgEFIlEIpFIJBKJRCKRSCQSiUQi
kUgkEolEIpFIJBKJRCKSSCQSiUQikUgkEolEIpFIJBKJRCKRCCgSiUQikUhk
EolEIpFIJBKJRCKRSCTyZDiZTCaTyXAymUwmk8lkMplMYzCpWCyhkEgkEolM
JhFQZBKZTCKTyGQSmUwik8gkEolEJpFJJDKZTCKTyGQSmUwkk8gkMolEJpPI
JDKZTCKTyGQyiUQioEn+ZDKZRCaRyWQSmUQmkUlkMolMIpNJZBKZRCaTSCQy
mUwmkUlkMolMIpFJZLpcLpnLJXO5ZC7Ay+aSyVwymUuGIZhULCGRSCQyiUwm
k8lkMplMIpPJZDKZTCSTyGQymUwmk8lkMplMJpPJZDKZgCaTyWQymUwmk8lk
MplMJpPJZDKZTCSTSWQymUwmk8kkMplMJpPJZDKZTCaTyWQymUwmk8lkMgFN
JpPJZDKZTCaTyWQyXTKYTCaTwWQymUwmk8lkMplMpjGoWEKhkEgkEplMJpPJ
ZDKZTCaTyWQCmkwmk8lkMplMJpPJZDKJTCaRyWQymUQmk8lkMplMJpPJZDL+
iUwmkclkMplMJpPJZDKZTCaTyQQ0mUwmk8hkMplMJpPJZDKZTCKTyWQymUQm
k8hkMplMJpOJZDI5HA6Hw+FwOBwOh8PhcDgcDocDyBBULCGRSGQymUwmk+lk
MplMJpPJZDKZTCaTyWQymUwmk8lkMplMJpPJZDKZTCaT6WQymUwmE9BkMplM
JpPJZDKZTCaTyWQymUwmk8lkMplMJpPJZDKZTCaTyXQymUwmk8l0MplMJpPJ
ZDKZTCagyWQymR6Px+PxeDwej8fj8Xg8HpDH47EYVCyhkEhkMplOp5PpdDqd
TqfT6XQ6nU6n0+l0Op1OwNPpdDqdTqfT6XQ6nU7+p9PJdDqdTqfT6XQ6nU6n
0+l0Op1Op9PpdDqdTqfT6XQ6nU6n0+l0Op2Ap9PpZDqdTqfT6WQ6nU6n0+l0
Op1Op9PpdDqdMBAIBAKBQCCPCAQCgUAgD8wDwxBYLCGRyHQyAU+n0+l0Op1O
p9PpdDqdTqfT6XQ6nU6n0+l0Op1Op9PpdDqdTqfT6XQ6nU6n0+l0Op1Op9Pp
dAKeTqfT6XQ6nU6n0+l0Op1Op9PpdDqdTqfT6XQ6nU6n0+l0Op1Op9PpdDqd
TqfT6XQ6nSCRSCQCjEQikUgkEolEIhFIJBJpDFAWkchkOp1Op9PpdDqdTqfT
6XQ6nU6n0+l0Op1Op9P+6XQ6nU6n0wl4Op1Op9PpdDqdTqfT6XQ6nU6n0+l0
Op1Op9PpdDqdTqfT6XQ6nU6n0+l0Op1Op9PpdDqdTqcT8HQ6nU6n0+l0Op1O
p9PpdDqdThgMBoPBYDAYDAaDwWAwGAwGg2kMUBWRyGQ6nU6n0+l0Op1OJ+Dp
dDqdTqfT6XQ6nU6n0+l0Op1Op9PpdDqdTqfT6XQ6nU6n0+l0Op1Op9PpdDqd
TqfT6XQ6nU7A0+l0Op1Op9PpdDqdTqfT6XQ6nU6n0+l0Op1Op9PpdDqdTqfT
6XQ6nU6bzWaz2Ww2m81ms9lsgJvNZpNZHFAo1ERkOp1Op9PpdDqdTqfT6XT+
Op1Op9PpdDqdTqfT6XQ6nU6n0+l0Op1Op9PpdDoBT6fT6XQ6nU6n0+l0Op1O
p9PpdDqdTqfT6XQ6nU6n0+l0Op1Op9PpdDqdTqfT6XQ6nU6n0+l0Ap5Op9Pp
dDqdTqfNZrPZbDabzWaz2Ww2m80msyigUCiUZWI6nU6n0+l0Op1Op9PpdDqd
TqfT6QQ8nU6n0+l0Op1Op9PpdDqdTqfT6XQ6nU6n0+l0Op1Op9PpdDqdTqfT
6XQ6nU6n0+l0Op1Op9MJeDqdTqfT6XQ6nU6n0+l0Op1Op9PpdDqdTqfT6XQ6
nU6nTqfD+XQ6nU6n0+l0Op1OZlFAoVAoFBBVmYj+TqfT6XQ6nU6n0+l0Op1O
p9PpdDqdTqfT6XQ6nU6n0+l0Op1Op9PpdDqdTqfT6XQ6nU4n4Ol0Op1Op9Pp
dDqdTqfT6XQ6nU6n0+l0Op1Op9PpdDqdTqfT6XQ6nU6n0+l0Op1Op9PpdDqd
TsDT5/P5fD6fz+fz+Xw+n09mcUChUCgUCoVCBSYWk+l0Op1Op9PpdDqdTqfT
6XQ6nU6n0+l0Op2Ap9PpdDqdTqfT6XQ6nU6n0+l0Op1Op9PpdDqdTqfT6XQ6
nU6n0+l0Op1Op9PpdDqdTqfT6XQ6AU+n0+l0Op1Op9PpdDqdTqfT6XQ6nU6n
0+cD+nw+n8/n8/l8Pp2OzOKAQqFQKBQKhUKhUCHLpFIBViqVSqVSqVQqlUql
UqlUKpVKpVKpVCqVSqVSqVQqlUqlUqlUKpVKpVKpVCqVSqVSqVQqlUqlAqxU
KpVKpVKpVCqVSqVSqVQqlUqlUqlUKpVKpVKpVCqVSqVSqVQqlUqlUqlUKpUK
gUAgEAgEAgFIIBAIhEIChUKhUChUEAA7
}]
set images(menubar_option_arrow) [image create photo -data {
R0lGODlhFQAQAPMOAAAAABgYGCIlIjI0MkBFQFJUUmVoZXV4dYKGgpOVk5ig
mLK1ssjMyOTm5AAAAAAAACH5BAEBAA4ALAAAAAAVABAAAATi0DnnnHPOOeec
g84555w7zTnnHHTOOeecc84556BpzjnnnHPOOQedc845d5pzzjnonHPOOeec
c87B05xzzjnnnHMOOuecc+4055xz0DnnnHPOOeecg6c55xwAAAAAAHTOOefc
ac45ByAAAAAAnHPOOQdRc845BwAAADjonHPOOdScc85BBwAAzjnnnHMOouac
c845AJxz0DnnnHOoOeecg84555xzzjnnHETNOeecc84556BzzjnnUHPOOQed
c84555xzzjmYmnPOOeecc85B55xzzjnnnHMOOuecc84555xzEQA7
}]
set images(menubar_option_arrow_insensitive) [image create photo -data {
R0lGODlhCAAQAPMMAIuTsLOzs6evzLS82b3F4sPL6MnR7svT8NLa99zk/uPr
/+31/wAAAAAAAAAAAAAAACH5BAEBAAwALAAAAAAIABAAAARXkDEWAmOMsRBC
gIyxEEIIgYUQAgwhhBBCCCEExiBjjDHGGGOMMQYZY4wxxhhjjDHIGGOMMcYY
Y4xBxhgLIYQQQggBhhBCCCyEEEJgkLEQQmCMMRYCg4xFADs=
}]
set images(notebook) [image create photo -data {
R0lGODlhIAAgAPIFAHx8fGOq3pzP/6XX//Hx8QAAAAAAAAAAACH5BAEBAAUA
LAAAAAAgACAAAAP+CAAAgAAAAAgAAIAAAAAIAACAADAzODMzgzMzMzgzM4Mz
MzM4MwCCIiIiKCIigiIiIigiIoIiIgEIERGBERERGBERgRERERgREYEBQERI
RESERERESEREhEREREhEAIRERERIRESERERESEREhEREBAhERIRERERIRESE
RERESEREhARAREhERIRERERIRESERERESEQAhEREREhERIRERERIRESEREQE
CEREhEREREhERIRERERIRESEBEBESEREhEREREhERIRERERIRACERERESERE
hEREREhERIRERAQIRESERERESEREhEREREhERIQEQERIRESERERESET+RIRE
RERIRACERERESEREhEREREhERIRERAQIRESERERESEREhEREREhERIQEQERI
RESERERESEREhEREREhEAIRERERIRESERERESEREhEREBAhERIRERERIRESE
RERESEREhARAREhERIRERERIRESERERESEQAhEREREhERIRERERIRESEREQE
CEREhEREREhERIRERERIRESEBEBESEREhEREREhERIRERERIRACERERESERE
hEREREhERIRERAQIRESERERESEREhEREREhERIQEQERIRESERERESEREhERE
REhEAIRERERIRESERERESEREhEREBAhERIRaRERESEREhEREREhERIQEQERI
RESERERESEREhEREREhEAIRERERIRESERERESEREhEREBAhARIRERERIRESE
RERESEREhAQAAAgAAIAAAAAIAACAAAAACACQADs=
}]
set images(notebook_active) [image create photo -data {
R0lGODlhWgAWAPU4AAAAAAgInAAIpQAatQAkrQAouQA6vRggrTk8lCEopQBF
xgBTygBm2ABt5wh67DFRxil91lJRtVJxzhiG9ymC1jOH3keO2EqW3lqCzlqI
1lKe3keX7FKe51qi71aq+2Oq3mWo7GOu/2uy72O4+3Oq7nOu/3uy73q293vF
+5yavYu854S+95a97KWqzovH/5vG7pvO/5TX96XJ66XZ+b3T787f797r9+fv
5wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEBADgALAAAAABaABYAAAb+
QBwOh4scBAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKB
QCAQCAQCgUAgEIAEAoFAIBAIBAKBQCAQCAQCgUAgHCI4HA6Hw+ESEpbNZrPZ
bDabzWaz2Ww2m81ms9lsNpvNZrMBbTabzWaz2Ww2m81ms9lsNpvNZrPZbDab
zWaz2Ww2m81ms9lsNpvNZrPZbDaWJIHD4XA4xINVA9ZqtVqtVqvVarVarVar
1Wq1Wq1Wq9VqtVqtVqvVarVarVar1Wq1Wq1Wq9VqtVqtVqvVarVarQas1Wq1
Wq1Wq9VqtVqtVqOxHggcDocLYGQyWq1Go9FoNBr+jUaj0Wg0Go1Go9FoNBqN
RqPRaDQaDUij0Wg0Go1Go9FoNBqNRqPRaDQajUaj0Wg0Go1Go9FoNBqNRqPR
aDKaJIDD4XCCDEsmk8lkMhlQJpPJZDKZTCaTyWQymUwmk8lkMplMJpPJZDKZ
TCaTyWQymUwmk8lkMplMJpPJZDKZTCaTyWQyoEwmk8lkMplMJlNhAjgcDjfI
sF4ymUwmk8lkMplMJpPJZDKZTCaTyWQymUwmk8lkMplMJpPJZECZTCaTyWQy
mUwmk8lkMplMJpPJZDKZTCaTyWQymUwmk8lYrMwAh8PhBhaVisV6vV6v14v1
kr2Ar9fr9Xq9Xi/ZSyb+k71eMtlL9nrJXq/X6/V6vWSv10smk7FestdL9nrJ
Xq/X6/V6vV4v2UsmkwFfLxmLpbIQcDgcrmBRqVgqlYrFYqlYLBWLxVKxWCwV
S8VSqVQslkrFUqlYKpZKxWKxWC+WSsUCqlQslUrFUrFUKhZLxWKpWCyWiqVi
qVQqloqlYqlUlgIOh8MVLCoViyVjsVgsFkvGYrFYLxaLBWSxWCwWi8VisWQs
FovFYr1YLBaLxWKxWCzWi8WSsVgslozFYrFeLBaLxWKxWCwWi8VisVgylQoI
KeBwOJyhQlKpVCqVSsVSqVgqlUrFYqlULJVKxVKxVCqVSqVSsVQqFYulUqn+
VCyVSsVSqVQqFlClUqlULJWKpVKxVCqWiqViqVgqlkqlUpEgBhwOhzNASCoW
i8VisVgsFovFUr1YKhaLxWKxWCwgi8VisVgsFoulYrFYLJbqxWKxWCwWi8Vi
sVgsFoulYqleLBaLxWK9VCwWi8VisVgqEsWAw+FwQAXEYvl8Pp/Pp/P5fD4f
0Af0+XxAoM/n8/mAPp/P5/MBfUCfD+jzAX0+oM/nA/p8Pp/P5/P5gICfD+gD
+nw+n87n8wF9PqDP56O5QBQ4HA63qGxAJBKJRCKRSCQSiUQikUgkEolEIpFI
JBKJRCIBSSQSiUQikUgkEolEIpFIJBKJRCKRSCT+EolEIpFIJBKJRCKRSCQS
iUQikTiXygKHw+EWFY7IZAKaTCaTyWQymUwmk8lkMplMJpPJZDKZTCaTyWQy
mUwmk8lkMplMJpPJZDKZTCYTyWQymUwmk8kENJlMJpPJZDKZTCaTicSpLHA4
HI6x6YhOp9PpZDqdTCfT6XQ6nUynk8l0Op1Oq9PpdDqdTieTCXgynUyn08l0
Op1Op9PpdDqdTqfT6XQynU6m08l0Op1Op5PpdDqJOhsGDofDMTag02q1Wq1W
qxVwtVq5TqvVauU6rVyn1Wq1Wq1Wq9VqtTq5Tq6Ta7U6rVyn1Wq1Wq1Wq9Vq
tVqtVivXaeU6rVYu4Gr+tVqtVqvVCbRh4HA4HKNTOrlcLpfL5Vq5XK7VyrVy
rVyulcvlWq1cK9dq5XK5XK6Va+VyuVZAl8vlcq1cLpfLtYKtXC6Xy+VyrVwu
l8u1crlWLpfL5UKVNgwcDodreE4nlyvmcrlcLpfL5XK5gC6Yy+WKuVwul8vl
grlcLpfL5XLBXC6XK+ZyuVwul8vlcrlcLpfLFXO5XC6Xy+VyuVwul8vlcgFd
rtPJ08DhcDiH54SCwWAwWQwGg8FmMBgMBpvBZrHYbAaDwWYwGGwGm71gMBgM
BovFYDAYDAYDxmYwGAwGg8FgMFhMBoPBYDDYDDaDwV4wGAzmQnkcOBwO5wju
oWCz2Ww2m81ms9lsNpvBZrPZbAaczWaz2Ww2m81ms9lsNpvNZrPZbDabzWaz
2Ww2m81ms9lsNpvNZrPZbDabzWaz2Ww2m81cKI8DiMPhcBMPKjabzWaz2Ww2
i81ms9lsNpvNZrPZbDabzWaz2Ww2m81ms9lsNpvNZrPZbDabzWYzGnA2m81m
s9lsNpvNZrPZbDabzWaz2SyGCjlwOBxugnLFZrPZbDabzWax2Ww2m81ms9ls
NpvNZDPgbDabzWaz2Ww2m81ms9lsNpvNZrPZbDabzWaz2Ww2m81ms9lsNpvN
ZrPZbDabxVyoCQ4XBAA7
}]
set images(option_in) [image create photo -data {
R0lGODlhEAAQAPQeAAAAACY+UipAVTZEVQAkrQgssFZorV+LvnOWuVmL31qY
2l+R42qT2XWW2GiY5Gqs4Xqq5Xmw8Y+26IK8+Zmv4JK+643A7o/I/pnB7JHI
/J/U/aHG67TH6bfS7QAAAAAAACH5BAEBAB4ALAAAAAAQABAAAAXIoOd5nud5
nud5nud5nud5RGEYhmEYBeGBnud5hGEYVMdRhmEQnucRhtFsXdd1XAMaBuF5
hcFgG7ZtG4YxRuF5hiFhGIZhGIhhkmF4nsFgGIYMA4JhGGN4nqE8zyMAICA8
z6MYnmcoz/MIACA8z6MYnmckUQSBjCAcURQlhucZRhRN03RN0xQZhucVxgJe
13Vd13UtRuF5hGE4maZpWuYYBuF5HkgYhgFVFmQYBuF5nucRhWEYhmEUhOd5
oOd5nud5nud5nud5XggAOw==
}]
set images(option_out) [image create photo -data {
R0lGODlhEAAQAPIGAAAAAL+/v8XFxdjY2Ofn5/Pz8wAAAAAAACH5BAEBAAYA
LAAAAAAQABAAAAOWaGZmhmZmZmhmZoYWEREYERKGZmYRGCEigiERZmgRIYMj
MyIYEWaCITMzKDMjgWIWMTgzM4MzI2FoMTODM0NDOBNmgUNERDg0RINhFkRI
RESERERhaDFEhURERUgTZoFBRUVYVESBYSZBWFVVhVUTYmgRQYRVVUQoEWaG
ERFUWCQRgWZmFigREYEhYWZoZmaGZmZmaGaWADs=
}]
set images(progressbar) [image create photo -data {
R0lGODlhGwAbAPQRAAAAAAAkrWOq3nOq73uy73u294y+54S+95a+7IzH/5zH
75zP/6XJ66XZ+b3T787f797r9wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAACH5BAEBABEALAAAAAAbABsAAAX+YBRFURRF
URRFURRFURRFURRFURRFURSAQRAEQRAEQRAEQRAEQRAEQRBFUQBBEARCEARB
EARBEARBEARBEBREUfA8z/M8D/g8z/M8z/M8z/M8zxNEUeA4juM4juM4oOM4
juM4juM4jhNEUcAwDMMwDMMwDMOADMMwDMMwDBNEUcAwDMMwDMMwDMMwDAMy
DMMwDBNEUaAoiqIoiqIoiqIoiqIoCqgoihJEUYAgCIIgiIEgCIIgCGIgCIIg
IBJEUYAgCIIgCoIgCIIgCIIoCIIgSBCBUWAYhmEYhmEYhmEYhmEYhmEYRhBF
AQIiCIIgCIIgCIIgCIIgCIIgSBBFgSD+CAIoCIIgCIIgCIIgCIIgCEIQRYEg
CIIgCKAgCIIgCIIgCIIgCEIQRYEgCIIgCIIggIIgCIIgCIIgCEIQRcEwDMMw
DMMwDMMADsMwDMMwDEMQRQFBEARBEARBEARBEARIEARBEEQQRUFRFEVRFEVR
FEVRFEVRFGBRFEUQRcFxHMdxHMdxHEVyHMdxHMdxgEkQRUGSHElyJEmSJEly
JEeSJEdyJEEERkGSLEmSJEmSJEmSJEmSLEmSJEEUBQu4LMuyLMuyNMvSLMuy
LMuyNEEUBU3TNGDTNE3TNE3TNE3TNE3TNEEUBU3TNE3TgE3TNE3TNE3TNE3T
NEEUBU3TNE070zRNAzZN0zRN0zRN0zRBFEVBEARBEARBEAQBGARBEARBEARR
FEVRFEVRFEVRFEVRFEVgFEVRFEVRFAIAOw==
}]
set images(scrollbar_horizontal) [image create photo -data {
R0lGODlh7AAPAPZmABUfZhkjaR4tdBkwfiAsbCMtdCU4c0tcaEtfcVdaaUtg
bElkdFJhalNtfgcohxIsiRQ4mBA/pyI9lhtIqBtTuypOjCRMkTJMlzpXmCNV
ti9hti90vztooylozCtn1zZ83Dd75kBZm0pxmExntF9upV5/ql1xsFyEnlaJ
uG+RrWSQs3SPrHqIt3GRqEyMykWD0EiW3FeI11KSzliY1lyO4Vud51qY916h
2Fyh6G6H22icxGKd+Waj2X2pxnmy32Kj62iq9G2z+Has6Hqs9Xqw7Ha5+nvC
+4SapYyYyoWW7Yma8oq32JiywZi61oWs742h94i46Ii49ZCg+JS/4Zi6/aG4
zqC+/prJ3YXK/IzT/prI6pTB/JTY/p3i/qnE2aLQ3rHF3qPN6KDN8aPQ6KLR
86Ll/v///////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEBAGcA
LAAAAADsAA8AAAf+gGdnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dn
Z2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dn
Z2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dn
Z2dnZ4BnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dn
Z2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dn
Z2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2ckBgYEBAUCAgIEBAH+gAEB
AAAAAAAAAQQFBQUFBQEEAAAAAAAAAQEFBQUFBQUBAQEAAAAAAAEEBAUFBQUF
AAAAAAAAAAAAAQQFBQUFBQEEAAAAAAAAAQEFBQUFBQUBAQEAAAAAAAEEBAUF
BQUFAAAAAAAAAAAAAQQFBQUFBQEEAAAAAAAAAQEFBQUFBYAFAQEBAAAAAAAB
AQQFBQUFBQABAQAAAAAAAAEEBQUFBQUBBAAAAAAAAAEBBQUFBQUFAQEBAAAA
AAABBAQFBQUFBQAAAAAAAAAAAAEEBQUFBQQBBAABBQUGBiRnZ2dnZ2csGAMX
I0lKSk9PT1JKSkpJSUlJSUlKSkpSUlJSUkr+gElJSUlJSUlKSkpKUlJST0pK
SklJSUlKSkpSUkpSUlJKSklJSUlJSUpKSlJSUlJSSklJSUlJSUlKSkpKUlJS
T0pKSklJSUlKSkpSUkpSUlJKSklJSUlJSUpKSlJSUlJSSklJSUlJSUlKSkpK
UlJSUkpKSklJSUlKSkpSUlJSUoBSSkpJSUlJSUlKSkpSUlJSUkpJSUlJSUlJ
SkpKSlJSUk9KSkpJSUlJSkpKUlJKUlJSSkpJSUlJSUlKSkpSUlJSUklJSUpJ
OSMXDxgsZ2dnSCEPDjlOVFZiW1tbYlZWVlRUVFRUVFRUVlZWVlZWVlZUVFZU
VFRUVFZWVlZWYlT+gFRUVFRUVFRUVFRWYlZWVlZWVFRUVFRWVFRWVlZWVlZW
VlRUVlRUVFRUVlZWVlZiVFRUVFRUVFRUVFRWYlZWVlZWVFRUVFRWVFRWVlZW
VlZWVFZUVFRUVFRUVlZWVlZWYlRUVFRUVFRUVFRiW1ZWVlZWVFRUVFRWVFRW
VlZWVoBWVlZUVFZUVFRUVFZWVlZWYlRUVFRUVFRUVFRUVmJWVlZWVlRUVFRU
VlRUVlZWVlZWU1ZWVmRkTzEODyFIZ2ckEBATNENUVFRbW1haW1pUUVFRUVRR
UVRRW1RUW1tUUVFRUVFRUVFUUVRbW1tbVFFUUU5RVFFOUVtbW1tUW1T+gFRR
UVFRUVFRUVRUW1RbVFRRUVFRUVFRUVRRVFtbW1tUUVRRTlFUUU5RW1tbW1Rb
VFRRUVFRUVFRUVRUW1RbVFRUUVFRUVFQWFRRVFFbW1RRVFFRUVFUTlRRVFtb
W1tbW1RRUVFRUVFRUVRUW1RUW1RRUVFRUVFRUVRRVFtbW4BbVFFUUU5RVFFO
UVtbW1tUW1RUUVFRUVFRUVFbVFRiVFRQUU5DUVtFNBMQEiZnXiEQERQvP0ND
RUVFRFA+RERCQkJCQkJERE5FUVFFREROQkRCQkJEREREUVFRRVFERERCQkJC
QkREQ1FEUUVRRERCQkJCQkJORERFUVFFRET+gE5CREJCQkRERERRUVFFUURE
REJCQkJCRERDUURRRVFEREJCQkJCQk5EREVRUUVERERCQkJCQkJCRERRUUVR
UUREQkJCQkJCQkRDRFFRUUVEREJCQkJCQk5EREVRUUVERE5CREJCQkRERERR
UVFFUUREREJCQkJCRERDUURRRYBRRERCQkJCQkJORERRUVFRRU5RUUNDRDgv
FBEQIVVVFRMUHRsuLzAzODc3OjcyLi4uLi4uLjIzMzM3MzMzMzIuLi4uLi4y
MzMzMzMzMzIuLi4uMi4yMjIzMzM3MzMyLi4uLi4uLjMzMzMzMzM3MjIuLi4u
Li4yMzMzMzMzMzL+gC4uLi4yLjIyMjMzMzczMzIuLi4uLi4uMzMzMzMzMzcy
Mi4uLi4uLjAzMzM3MzM3MjIuLi4uLi4yMjMzMzMzMzIuLi4uLi4uMzMzMzMz
MzcyMi4uLi4uLjIzMzMzMzMzMi4uLi4yLjIyMjMzMzczMzIuLi4uLi4uMzMz
MzM3N4A3LjI0MDIzLhsdFBMVVU0WGR4gMDA1OEBAQUFAPDg/NTU1NTU1P0A/
QEBBQUA4PzU1NTU1NTg/QEBAQEFAPzU/NTU1NTU/P0BBQUBBQD8/NTU1NTU1
Pz9AQEFBQEE4PzU1NTU1NTg/QEBAQEFAPzU/NTU1NTU/P0BBQUBBQD/+gD81
NTU1NTU/P0BAQUFAQTg/NTU1NTU4OD9AQEBAQUA/PzU1NTU1NT9AQEBBQEFB
OD81NTU1NTU/P0BAQUFAQTg/NTU1NTU1OD9AQEBAQUA/NT81NTU1NT8/QEFB
QEFAPz81NTU1NTU/P0BAQEBAQDs7NjY4ODAwHx4ZFk1gGIAaHR8wOEBBRkZG
RkZGRkFBQUFBQUFBRUVGRkZFRkFBQUFBQUFBRUVFRUZGRUVBQUFAQUFBQUFF
RUVGWEZFQUFBQUFBQUFBRUVGRkZGRUVBQUFBQUFBRUVFRUZGRUVBQUFAQUFB
QUFFRUVGWEZFQUFBQUFBQUFBRUVGRkZGRUX+gEZBQUFBQUZGRUVGUUVGRkFB
QUFBQUFBRkZGRkZGRkZBQUFBQUFBQUFFRUZGRkZFRUFBQUFBQUFFRUVFRkZF
RUFBQUBBQUFBQUVFRUZYRkVBRUFBQEFBQUFBRkZGRUZFRUFAQUVBODAfHRoY
YWAlHC4wOEZGRkZGRlxcWVlYRoBYRkZFWFhGWVlcWVlZWVhRWEZERlhYWFlZ
WVlZWVlYWFhYRkRYWFhYWVxZWVlZWEZYRkZFWFhYWVlZWVlZWVhRWEZERlhY
WFlZWVlZWVlYWFhYRkRYWFhYWVxZWVlZWEZYRkZFWFhYWVlZWVlZWUZGRkZG
RkZGWFlZZFxZWVz+gEZGRkZGRkZGRkZdRllZWVlYRlhGRkVYWFhZWVlZWVlZ
WFFYRkRGWFhYWVlZWVlZWVhYWFhGRFhYWFhZXFlZWVlYRVhYRkVYWFhZXFxZ
WVlZWFhFRkZBODMuHCVgZysiKDxFWFlGXWVlZWVdZVxcWVxZXFxcXV1dZWVl
XV1cXIBcXFlZXFxcXWVlZWVlZVxZWVlZXFxcXF1lZWVlXWVcXFlcWVxcXFxd
XWVlXWVlXFxcXFlZXFxcXWVlZWVlZVxZWVlZXFxcXF1lZWVlXWVcXFlcWVxc
XFxdXWVdXV1dXFlZWUZZXVxcZWVlZWVlZV1ZXFlZWVxZXV1lZWVdXWX+gFxc
WVxZXFxcXF1dZWVdZWVcXFxcWVlcXFxdZWVlZWVlXFlZWVlcXFxcXWVlZWVd
ZVxcWVxZXFxcXF1dZWVlXVxcWVlZXFlGNygiLWdnVSkqKj5YWWVlZWVlZWVc
XFlZWVpZXFlcXV1dXWVcXFxZWVhZWVxcXFxlXGVlZVxcXIBZXFlYXFlcXGVd
XV1cXFxZWVlaWVxZXF1dXWVlXFxcWVlYWVlcXFxcZVxlZWVcXFxZXFlYXFlc
XGVdXV1cXFxZWVlaWVxZXF1dXV1dXV1cWVlZRl1cXFxkZWVlZGRcWVlZWUZZ
XFlZXWVlZWVdXFxZWVlaWVxZXF1dXWVlXFz+gFxZWVhZWVxcXFxlXGVlZVxc
XFlcWVhcWVxcZV1dXVxcXFlZWVpZXFlcXVxlXV1kZGRkXFxcRj46KitVZ2dn
TC0nPUtaX1dXX19fX2FhWlpaWlpaWlpiYmJkZGFiWlpaWlpaWlphYmRkYVpi
YmFaWlNaWlpaY2JiZGJiYmFhWoBaWlpaWlpaYmJiYmJhYlpaWlpaWlpaYWJk
ZGFaYmJhWlpTWlpaWmNiYmRiYmJhYVpaWlpaWlpaYmJiWmRiWlpaWlpaWlpa
Y2FjYmFhWlxZWUZXWlhXV1lfX19fX19jYVpaWlpaWlpaYmJiYmJhYlpaWlpa
WlpaYWJkZGFaYmL+gGFaWlNaWlpaY2JiZGJiYmFaWlpaWlpaWlpiZFpaZGJe
Wk1NU1dLPSUtTGdnZ2dnZ0cLDQcKCwcHBwcHCQkJCQkJCQkJCQkJCQkJCQkJ
CQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJ
CQkJCYAJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJ
CQkMCQwMDAwHBwcMBwcICgwIBwcKCwsKCgoHCgcHCgoHBwkMCQkJCQkJCQkJ
CQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQn+gAkJ
CQkJCQkJCQkJCQwMCQcHCAgLDQ0KR2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dn
Z2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dn
Z2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ4BnZ2dnZ2dnZ2dn
Z2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dn
Z2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dn
Z2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2cOgGdnZ2dnZ2dnZ2dnZ4EAOw==
}]
set images(scrollbar_horizontal_inactive) [image create photo -data {
R0lGODlh7AAPAOdjAAAAAAEBAQICAgMDAwQEBAUFBQYGBgcHBwgICAkJCQoK
CgsLCwwMDA0NDQ4ODg8PDxAQEBERERISEhMTExQUFBUVFRYWFhcXFxgYGBkZ
GRoaGhsbGxwcHB0dHR4eHh8fHyAgICEhISIiIiMjIyQkJCUlJSYmJicnJygo
KCkpKSoqKisrKywsLC0tLS4uLi8vLzAwMDExMTIyMjMzMzQ0NDU1NTY2Njc3
Nzg4ODk5OTo6Ojs7Ozw8PD09PT4+Pj8/P0BAQEFBQUJCQkNDQ0REREVFRUZG
RkdHR0hISElJSUpKSktLS0xMTE1NTU5OTk9PT1BQUFFRUVJSUlNTU1RUVFVV
VVZWVldXV1hYWFlZWVpaWltbW1xcXF1dXV5eXl9fX2BgYGFhYWJiYmNjY2Rk
ZGVlZWZmZmdnZ2hoaGlpaWpqamtra2xsbG1tbW5ubm9vb3BwcHFxcXJycnNz
c3R0dHV1dXZ2dnd3d3h4eHl5eXp6ent7e3x8fH19fX5+fn9/f4CAgIGBgYKC
goODg4SEhIWFhYaGhoeHh4iIiImJiYqKiouLi4yMjI2NjY6Ojo+Pj5CQkJGR
kZKSkpOTk5SUlJWVlZaWlpeXl5iYmJmZmZqampubm5ycnJ2dnZ6enp+fn6Cg
oKGhoaKioqOjo6SkpKWlpaampqenp6ioqKmpqaqqqqurq6ysrK2tra6urq+v
r7CwsLGxsbKysrOzs7S0tLW1tba2tre3t7i4uLm5ubq6uru7u7y8vL29vb6+
vr+/v8DAwMHBwcLCwsPDw8TExMXFxcbGxsfHx8jIyMnJycrKysvLy8zMzM3N
zc7Ozs/Pz9DQ0NHR0dLS0tPT09TU1NXV1dbW1tfX19jY2NnZ2dra2tvb29zc
3N3d3d7e3t/f3+Dg4OHh4eLi4uPj4+Tk5OXl5ebm5ufn5+jo6Onp6erq6uvr
6+zs7O3t7e7u7u/v7/Dw8PHx8fLy8vPz8/T09PX19fb29vf39/j4+Pn5+fr6
+vv7+/z8/P39/f7+/v///yH5BAEBAP8ALAAAAADsAA8AAAj+AP8JHEiwoMGD
CBMqXMiwocOHECNKnEixYkJbbNho0dJli8eNSkIOGUlSCccuKLuYJFlSScqU
IZWwHGLyZMqZLE2+VKkFZ8idKkXm3LgTZ0mbKFfO/Lkz5lKdL2nKXIqUp0+X
TYUerWp0JFSUWlZizWjL4DJOXxy5upYtG7e33Npmu0a3rly4b+fWtXsXrty9
fd3m1Qu4Ld64e/ka9tu2sGDBcQkrPixZMeTIkvvibZxYc97EdOVe/js5LmPQ
nrnZvbbMlSMsnJYNvOYJi5Nl4M6hY4euN+/e54ILD967eHHiw3UbZ5e8+W7j
6JJHVw59+nTh0Jk3H/7cuHTi1XX+b6+uffu53965gw8vnvty89jRA1dP/Xhx
d+64HXOCxdM1gbaooYYgy3yDHTrqqIPgOeQ0SA6DD5JjXXQOVhhhfQwyCE6E
G3o3nYUOIvchiBd6x+GJHgZH4oPiXWfhOOpkKCGFEDZ4Tm4PhrcicuLtmONx
J2o4I3AjgjidduOQA843EoqzjCBq3IHLP+p4okYdkgRzzTffiOMlOOOAI2Y3
ZJYpJjjiNCjOmd2AY+aZDqbJZpltLqkkOXK6SWedaKrJpp58bqimkmPSKSaT
G+a5J59p4jnnnmIOSuiibX4jqKOAvtknpm4CeualeWZaJ6J4TgpppHEKyiU4
1QQjSR3+anhijjmMCCJJKrIcEwwz0FTj6zTVLHPMsMQesww0yFaDLLLCFmvs
stA2O6ywy1S7rLLQSFsstNdW6+yz3GZbLLXWJsvst8eE26u3zvJq7rraTnss
t/EOq26w9c5L77jGltvrud9y62s1/TJz7DGypCKJIIzMioglqejCDDPAbrON
mNtcU80103Ts8TUZW4zxxh57vLHFImc8Dccl03UxOBdnzHLLIL98McklA1tz
yhzP3LHLGMNMV84r1xw0ziafjLLQPv+89MtIf2w0zKw2rTPKMfecM9BUy0y0
y1hv46s00vg6sS6pWIKIOetwQkrEzFRz8XaffuqlcOLcWLf+mF7efc6XQdt9
d4xr7s133ngXXnffiANOteB5E2744cPdXXdwd+MZ3OTmTY4m4pgrDnnjir98
Zt/nSF646WLi/feaF69ZDTNok8IJO+sEo8oxcTf3zjvssBNjjH8neB47wAcv
PDkx5pagOspH/3zz0yMvfeqYPx+98uowf2PqCW4f/PQ3Vp/8+NgXH7745kHP
jjvJvwPfOfIcjz7x4mgvfvfNg+/+9uQDh/mklz/Cae930lMH4lgFjWOoIhjr
+AczZnGMa+SPOfKYhwbnkUEEAu9375CHCDcoQhDG73cZ3KAGz4c8EKZQgx38
YAtRmMIUmjB4LlThCqNnwhdycB7+HpxhCDMowhIq7zzy+J0OYWg9HLJjhDCM
ofV6WMMVghCHKFwiC3uoQil+0IUvTOL5gHcOgs2iGQIxRzOqJUB2LBGI54Pe
B4sYw+S5z4RA3OAVgaeOL3KwhAgc3xSLaEU7YlGJ79BjEPvYwj+KMY6DpKMR
g0c/ELpjg/hh4XmS50Mxci+SNgzkHUGYx0Jaj5FKLOIVBTnHRIoQP5n83Y2m
sQxmmGMg4miGMLYBI+H9j3vT09/73DG+YK4PP8IDpv/UQcz3AdCYvwSmMYOH
zP8Zb3rNbKY0g8k9YkIzQcTUJiOZw03xeROa4vPlNIeZzGIuM5sJRKc7wOnL
WaVuHNtiCEYzxGEQapgCFp8YhSk+QVCCguKgCE2oQhfK0IY69KEQjahEJ5rQ
UoCiFBgtRUE1GtBRlGIUBBWoKUZB0oCGFKSfuChFV8rSiWIUFCf9JyxGQQ2L
2PSmOM2pTnfK054aJCAAOw==
}]
set images(scrollbar_vertical) [image create photo -data {
R0lGODlhDwDsAPZmABUfZhkjaR4tdBkwfiAsbCMtdCU4c0tcaEtfcVdaaUtg
bElkdFJhalNtfgcohxIsiRQ4mBA/pyI9lhtIqBtTuypOjCRMkTJMlzpXmCNV
ti9hti90vztooylozCtn1zZ83Dd75kBZm0pxmExntF9upV5/ql1xsFyEnlaJ
uG+RrWSQs3SPrHqIt3GRqEyMykWD0EiW3FeI11KSzliY1lyO4Vud51qY916h
2Fyh6G6H22icxGKd+Waj2X2pxnmy32Kj62iq9G2z+Has6Hqs9Xqw7Ha5+nvC
+4SapYyYyoWW7Yma8oq32JiywZi61oWs742h94i46Ii49ZCg+JS/4Zi6/aG4
zqC+/prJ3YXK/IzT/prI6pTB/JTY/p3i/qnE2aLQ3rHF3qPN6KDN8aPQ6KLR
86Ll/v///////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEBAGcA
LAAAAAAPAOwAAAf+gGdnZ2dnVVVNX2BnZ2dnZ2dnZ0gmIRUWGCgrTGdnZ2dn
LCESEBMZGhwiKkxnZ2dnGA8QERQeHSgoKi1nZ2ckAw4TGR0gHzA3OidHZ2cG
Fzk0Lx0wMDhGPj0LZ2cCI09FPC4wMEZYW0sNZ2cCOWRbRTM3QUZdXFMNZ2cF
Q1ZRQ4AzNUFGWVxTC2dnAkpWQ0MxNkFGWVxNCGdnAUlWTlE0NkBYWVxaCGdn
AElWUFExO0FZXGRNCGdnAElWS04vQEVZXGRaB2dnBFJWW1AzQUVbZVxiCWdn
BVJWVFEzQEZZXWViCWdnBFJiW1E3QEZcXV1iCWdnBVJWW1EzQUVZZWX+gGIJ
Z2cFSlZbUTNARlxdZWIJZ2cET1RRRDM/RVllXGIJZ2cCSlRURDM/QVhcXFoJ
Z2cBSlRRTjI/RVhcXFoJZ2cASlRRQjI1QVhcXFoJZ2cASVRRQi41QUZZWVMJ
Z2cASVRRQi41QURZWVoJZ2cASVROQi41QUZcWVoJZ2cASYBUVEIuNUBYXFxa
CWdnAEpWUUIuNUFYXFxaCWdnAEpUVEQyNUFYXFxaCWdnBEpUVEQyP0VZZV1i
CWdnBVJWW0QzQEVZXFxiCWdnBVJiW1E4QEZZZVxaCWdnBVJbW1EzQEZcZWVk
CWdnBVJUW0UzQUVcZWVkCWdnBVJWW1EzQEX+gFllXWQJZ2cFSlRURDNARVlc
XVoJZ2cESlZRRDJARVhcXFoJZ2cASlROTjI/QVhcXFoJZ2cASVRRQi41QVhc
XFoJZ2cASlRUQi41QVFZWVoJZ2cASVRRQi41QUZZWFoJZ2cASVRRQi81QUZZ
WVcJZ2cASVRRQi41QFhcXFoJZ4BnAUlUUUQyNUFGXFxaCWdnAUpUVEQyOEFY
XFxaCWdnAUpWUUQyP0VcZVxaCWdnBVJWW1EzQUVZXWViCWdnBVJWW1EzQEVZ
ZV1iCWdnBVJWW1EzQUZZZVxiCWdnBVJWVFEzQEVcZV1kCWdnBUpWW1EzQEVZ
ZV1kCWdnAkpUW0T+gDNARVllXGIJZ2cCSlRRRDJARVhcXFoJZ2cESVRRRDI/
RVhcXFoJZ2cASlRUQi44QVhcXFoJZ2cASVRRQi41QUZZWVoJZ2cASlRRQi41
QURZWFoJZ2cASVRRQi41QEZcWVoJZ2cASVRRRC41QVhcWVoJZ2cASVRRRDI4
Q1hZWYBaCWdnAElWUUMyOEFYXFxaCWdnAEpWVEQyOEVZXGViCWdnBVJWW0Qz
QUVZZWViCWdnBVJWW1EzQEVZXF1aCWdnBVJWW1EzQUZcZV1kCWdnBVJiW0Uz
QEVcZWVaCWdnBVJWW1EzQEVcZWVaCWdnBVJUUVAzQEVZZVxkCWdnAEr+gFRR
RDM/RVhcXFoJZ2cBSlRRTjI/RUZcXFoJZ2cASVRRQjI1QVhcXFoJZ2cASVRR
Qi41QkZZWVoJZ2cASVRRQi41QUVZWVoJZ2cASVROQi41QUZcWVoJZ2cASVRU
Qi41QUZcXFoJZ2cASlZRQi41QUZcWVoJZ2cASlRURDI1RYBYXFlaCWdnBEpU
VEQyP0FZXV1jCWdnBVJWW0QzQEZZXV1aCWdnBVJiW1E4QEZZXWVfDGdnBVJb
W1EzQEZcZWVfCWdnBVJUW0UzQUVcZV1jDGdnBVJWVFEzQEZZXV1jDGdnBUpU
VEQzQEZZXV1fB2dnBUpUUUQzP0FGXVxaB2f+gGcASlRRRDM/RkZcXFoHZ2cA
SVRRQi41QUZcWVoKZ2cASlRUQi41QUZZWVcKZ2cASVRRQi40QUZZWFgKZ2cA
SVRRQi41QUZdRl0KZ2cASVRRQi41QUZGXUYLZ2cASlRRQi44QUZGRkYKZ2cB
SlRURDI4QUZdXVoKZ2cBSlRbRIAyOEVZXV1cC2dnBVJWVEUzQUVZZV1fCmdn
BVJWVFE3QEZZZWRaCmdnBVJWVFEzQUVcZV1jCmdnBVJWVFEzQEVcZWVhCWdn
BUpWW1EzQEVcZWVkDGdnAkpUW0QzQEVZZWVaCmdnAkpUUUQyQEVYXFxaCWdn
BElUUUQyP0VGXFz+gFoHZ2cASlRUQi44QVhcXFoHZ2cASVRRQi41QUZcWVoM
Z2cASlRRQi41QEVZWFcHZ2cASVRRQi41QUZcWVoHZ2cASVRRRC41QUVcWVoK
Z2cASVRRRDI4RkZZWVoKZ2cASVZRQzI4QUZcXFoMZ2cASlZURDI4RkZdXVwK
Z2cFUoBWW0QzQUZGXV1jDGdnBVJWW1EzQEZZZV1jCWdnBVJWW1EzQUZZZV1i
B2dnBVJWW1EzQEVZZWViCWdnBU9WW1EzQEZcXWViCWdnBE9UUUQzQEVZZVxa
CWdnAkpUVEQzP0VYXFxaCWdnAUpUUU4yP0FYXFxaCWdnAEpUUUIyNUH+gFhc
XFoJZ2cASVRRQi41QUZZWVoJZ2cASVRRQi41QURZWVoJZ2cASVROQi41QUZc
WVoJZ2cASVRUQi41QFhcWVoJZ2cASlZRQi41QVhcWVoJZ2cASlRURDI1QVhc
XFoJZ2cASlZURDI1RVldZWIJZ2cFUlZbRTNARVldXGIJZ4BnBVJiVFE3QUZZ
XWVaCWdnBVJbW1EzQEVcZV1kCWdnBVJWVEUzQUVcZV1kDGdnBUpWW1EzQEVZ
ZV1iCWdnBUpWVEQzQEVZXV1aCWdnBEpUUUQzP0VYXFxaCWdnAEpUUUQzP0FY
XFxaCWdnAElUUUIuNUFYXFxaCWdnAEpUVEL+gC41QVFZWVoJZ2cASVRRQi40
QUZZWFoJZ2cASVRRQi81QUZZWVcJZ2cASVRRQi41QFhcXFoJZ2cBSVRRRDI1
QUZcXFoJZ2cBSlRURDI4QVhcXFoJZ2cBSlZRRDI/RVxlXFoJZ2cFUlZbUTNB
RVldZWIJZ2cFUlZbUTNARVllXYBiCWdnBVJWW1EzQUZZZVxiCWdnBVJWVFEz
QEVcZV1kCWdnBUpWW1EzQEVZZV1kCWdnAkpUW0QzQEVZZVxiCWdnAkpUUUQy
QEVYXFxaCWdnBElUUUQyP0VYXFxaCWdnAEpUVEIuOEFYXFxaCWdnAElUUUIu
NUFGWVlaCWdnAEr+gFRRQi41QURZWFoJZ2cASVRRQi41QEZcWVoJZ2cASVRR
RC41QVhcWVoJZ2cASVRRRDI4Q1hZWVoJZ2cASVZRQzI4QVhcXFoJZ2cASlZU
RDI4RVlcZWIJZ2cFUlZbRDNBRVllZWIJZ2cFUlZbUTNARVlcXVoJZ2cFUlZb
UTNBRoBcZV1kCWdnBVJWW0Q8QEVZZWViCWdnBVJWW1EzQEZcXWViCWdnBEpW
VEQzP0VZZVxiCWdnAkpbUUQzP0FYXFxaCWdnAUpUUU4yP0VYXFxaCWdnAEpU
UUIyNUFYXFxaCWdnAElUUUIuNUFGWVlTCWdnAElUUUIuNUFEWVlaCWf+gGcA
SVROQi41QUZcWVoJZ2cASVRUQi41QFhcXFoJZ2cASlZRQi41QVhcXFoJZ2cA
SlRURDI1QVhcXFoJZ2cASlZURDI1RVldXVoJZ2cFUlZbRTNARVldXGQJZ2cF
UmJUUTdBRVllXGIJZ2cFUltbUTNARlxlZWQJZ2cFUlZURYAzQUVcZV1kDGdn
BUpWW1EzQEVZZV1iCWdnBUpWVEQzQEVZXV1aCWdnBEpUUUQzP0VYXFxaCWdn
AEpUUUQzP0FYXFxaCWdnAElUUUIuNUFYXFxaCWdnAEpUVEIuNUFRWVlaCWdn
AElUUUIuNEFGWVhaCWdnAElUUUIvNUFGWVn+gFcJZ2cASVRRQi41QFhcXFoJ
Z2cBSVRRRDI1QUZcXFoJZ2cBSlRURDI4QVhcXFoJZ2cBSlZRRDI/RVxlXFoJ
Z2cFUlZbUTNBRVldZWIJZ2cFUlZbUTNARVllXWIJZ2cFUlZbUTNBRlllXGIJ
Z2cFUlZUUTNARVxlXWQJZ2cFSoBWW1EzQEVZZV1kCWdnAkpUW0QzQEVZZVxi
CWdnAkpUUUQyQEVYXFxaCWdnBElUUUQyP0VYXFxaCWdnAEpUVEIuOEFYXFxa
CWdnAElUUUIuNUFGWVlaCWdnAEpUUUIuNUFEWVhaCWdnAElUUUIuNUBGXFla
CWdnAElUUUQuNUH+gFhcWVoJZ2cASVRRRDI4Q1hZWVoJZ2cASVZRQzI4QVhc
XFoJZ2cASlZURDI4RVlcZWIJZ2cFUlZbRDNBRVllZWIJZ2cFUlZbUTNARVlc
XVoJZ2cFUlZbUTNBRlxlXWQJZ2cFUlZbUTNARVxlZVoJZ2cFSlZbUTNARVxl
ZWIJZ4BnBE9UUUQzQEVZXVxiCWdnAkpUVEQzP0VYXFxaCWdnAUpUUUQyP0VG
XFxaCWdnAEpUUUIyNUFYXFxaCWdnAElUUUIuNUJGWVlaCWdnAElUUUIuOEFF
WVlaCWdnAElUTkIuNUFGXFlaCWdnAElUVEIuNUFYXFlXCWdnAEpWUUL+gC41
QUZZWVoJZ2cASlRURDI1RVhcXFoJZ2cESVZURDI/RlldXWQJZ2cESlZQUDJC
RlldXWEHZ2cET1ZaPjo+RlllZV8JZ2cCT1tYRjdBRlxlZV8HZ2cCT1tbRThB
RlldZV8KZ2cCUltbUTNBRlldZV8KZ2cET1RbRTNARkZdZYBXB2dnBEpWUUMx
OEFGRmVXB2dnBElUUUMxNUFGWVxXB2dnBiNOUT8uMDBBWFg9DWdnBhU5NC8d
MDA4Rj49DWdnJAMOExkdIB8wPConLWdnZxgPEBEUHh8uKCotZ2dnZywhEBAT
GRocIilMZ2dnZ2dIJCEVFhgnK1VnZ2dnZ2cOgGdnYFVNX15nZ2dnZ4EAOw==
}]
set images(vertical_trough) [image create photo -data {
R0lGODlhDwARAPQAALm5ubq6usDAwMfHx8jIyNLS0tPT09ra2tvb2+Pj4+np
6erq6u3t7e7u7u/v7/Dw8PLy8vPz8/T09PX19ff39/j4+Pn5+fr6+gAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAAAALAAAAAAPABEAAAViICAQxZEs
zlRZFxUxImmiKuvCY3mma/vGOsVD0rsBTUKi7ZdDDotMWSIJZQQEAwPi9Fw2
rtntouv7YrVcZRmMHqtdjeOu1oLEm/OiXU7T36V9NnZXBAZIPCwVEWaFh3SK
DSEAOw==
}]

Changes to demo/themes/aquativo/aquativo.tcl.

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
..
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
#   Copyright (C) 2004 Pat Thoyts <[email protected]>
#
#   Import the aquativo Gtk theme (C) Andrew Wyatt, FEWT Software
#   Original: http://www.fewt.com
#   Link: http://art.gnome.org/themes/gtk2/432.php
# ------------------------------------------------------------------------------
# Revision change history:
#   $Id: aquativo.tcl,v 1.1 2009/09/09 19:30:56 oberdorfer Exp $
#
#   Aug.'08: code refractured for the use with >= tk8.5,
#            [email protected]
# ------------------------------------------------------------------------------

package require Tk 8.4;                 # minimum version for Tile
package require tile;                   # depends upon tile

namespace eval ttk {
  namespace eval theme {
    namespace eval aquativo {
      variable version 0.0.1
    }
  }
................................................................................

# TkDefaultFont", "TkTextFont" and "TkMenuFont
#   font create System {*}[font actual System] 
#   font configure System -size 16 -weight bold


namespace eval ttk::theme::aquativo {
  
  variable imgdir [file join [file dirname [info script]] aquativo gtk-2.0]
  variable I
  

  if {[info commands ::ttk::style] ne ""} {
    set styleCmd ttk::style
  } else {

    set styleCmd style

  }


  


  proc LoadImages {imgdir {patterns {*.gif}}} {
    foreach pattern $patterns {
      foreach file [glob -directory $imgdir $pattern] {
        set img [file tail [file rootname $file]]
        # puts "--> $img"
        if {![info exists images($img)]} {
          set images($img) [image create photo -file $file]
        }
      }
    }
    return [array get images]
  }
  
  array set I [LoadImages $imgdir "*.gif"]
  

  
  # "-parent" option controls the treeview "+" icon (collapse/expand)
  # at the beginning of each tree node
  
  $styleCmd theme create aquativo -settings {
    
    # Defaults
    
    $styleCmd configure "." \
        -font TkDefaultFont \
        -background "#fafafa" \
        -foreground "Black"
    
    # I really like the mapping options!
    $styleCmd map "." \
        -foreground { disabled "#565248" } \
        -background { disabled "#e3e1dd"
          pressed  "#bab5ab"
          active   "#c1d2ee" }
    
    # $styleCmd layout TButton {
    #  Button.button -children { Button.focus -children { Button.label } }
    # }
    
    $styleCmd configure TButton -padding {1 1} -width -11
    
    # Troughs

    # ttk::style layout Horizontal.TScrollbar:
    # Horizontal.Scrollbar.trough -sticky we -children {
    #   Horizontal.Scrollbar.leftarrow -side left -sticky {}
    #   Horizontal.Scrollbar.rightarrow -side right -sticky {}
    #   Horizontal.Scrollbar.thumb -expand 1 -sticky nswe
    # }

    # $styleCmd element create trough image $I(horizontal_trough) \
    #    -border 3

    $styleCmd element create Horizontal.Scrollbar.trough \
        image $I(horizontal_trough) -border 0 -sticky ew

    $styleCmd element create Vertical.Scrollbar.trough \
        image $I(vertical_trough) -border 0

    $styleCmd element create Vertical.Scale.trough \
        image $I(vertical_trough) -border 2
    $styleCmd element create Progress.trough \
        image $I(vertical_trough) -border 2
    
    # Buttons, Checkbuttons and Radiobuttons
    
    $styleCmd layout TButton {
      Button.background
      Button.button -children {
        Button.focus -children {
          Button.label
        }
      }
    }
    
    $styleCmd element create Button.button image \
        [list $I(buttonNorm) pressed $I(buttonPressed) active $I(button)] \
        -border {4 4} -padding 3 -sticky nsew
    
    $styleCmd element create Checkbutton.indicator image \
        [list $I(checkbox_unchecked) selected $I(checkbox_checked)] \
        -width 20 -sticky w
    $styleCmd element create Radiobutton.indicator image \
        [list $I(option_out) selected $I(option_in)] \
        -width 20 -sticky w
    
    # Menubuttons:
    
    $styleCmd element create Menubutton.button image \
        [list $I(menubar_option) ] \
        -border {7 10 29 15} -padding {7 4 29 4} -sticky news
    
    $styleCmd element create Menubutton.indicator image \
        [list $I(menubar_option_arrow) disabled $I(menubar_option_arrow_insensitive)] \
        -width 11 -sticky w -padding {0 0 18 0}
    
    # Scrollbar

    $styleCmd element create Horizontal.Scrollbar.thumb \
        image $I(scrollbar_horizontal) -border 7 -width 15 -height 0 -sticky nsew

    #$styleCmd element create Horizontal.Scrollbar.thumb \
    #    image [list $I(scrollbar_horizontal) \
	#       !selected $I(scrollbar_horizontal_inactive) \
	#       pressed  $I(scrollbar_horizontal)] -border 7 -width 15 -height 0 -sticky nsew

    $styleCmd element create Vertical.Scrollbar.thumb \
        image $I(scrollbar_vertical) -border 7 -width 0 -height 15 -sticky nsew
    
    # Scale
    
    $styleCmd element create Horizontal.Scale.slider \
        image $I(scrollbar_horizontal) \
        -border 3 -width 30 -height 16
    
    $styleCmd element create Vertical.Scale.slider \
        image $I(scrollbar_vertical) \
        -border 3 -width 16 -height 30
    
    # Progress
    
    $styleCmd element create Progress.bar image $I(progressbar)
    
    # Arrows
    
    $styleCmd element create uparrow image \
        [list $I(arrow_up_normal) \
        pressed $I(arrow_up_active) \
        disabled $I(arrow_up_insensitive)]
    $styleCmd element create downarrow image \
        [list $I(arrow_down_normal) \
        pressed $I(arrow_down_active) \
        disabled $I(arrow_down_insensitive)]
    $styleCmd element create leftarrow image \
        [list $I(arrow_left_normal) \
        pressed $I(arrow_left_active) \
        disabled $I(arrow_left_insensitive)]
    $styleCmd element create rightarrow image \
        [list $I(arrow_right_normal) \
        pressed $I(arrow_right_active) \
        disabled $I(arrow_right_insensitive)]
    
    # Notebook parts
    
    $styleCmd element create tab image \
        [list $I(notebook) selected  $I(notebook_active)] \
        -sticky news \
        -border {10 6 10 6} -height 10
    
    $styleCmd configure TNotebook.Tab -padding {2 2}
    $styleCmd configure TNotebook -expandtab {2 2}
    
    
    # Labelframes
    
    $styleCmd configure TLabelframe -borderwidth 2 -relief groove
  }
}

namespace eval ::tablelist:: {

    proc aquativoTheme {} {
      variable themeDefaults






|






|







 







|
<

|
>
|
|
<
>
|
>
|
>
>
|
>
>
|
|
|
|
<
|
|
|
|
<
|
|
|
|
|
>




|



|





|





|



|










|


|


|


|

|




|








|



|


|





|



|





|


|




|




|



|





|



|



|



|



|






|




|
|




|







3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
..
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
#   Copyright (C) 2004 Pat Thoyts <[email protected]>
#
#   Import the aquativo Gtk theme (C) Andrew Wyatt, FEWT Software
#   Original: http://www.fewt.com
#   Link: http://art.gnome.org/themes/gtk2/432.php
# ------------------------------------------------------------------------------
# Revision change history:
#   $Id: aquativo.tcl,v 1.2 2009/09/16 20:41:02 oberdorfer Exp $
#
#   Aug.'08: code refractured for the use with >= tk8.5,
#            [email protected]
# ------------------------------------------------------------------------------

package require Tk 8.4;                 # minimum version for Tile
package require tile 0.8;               # depends upon tile

namespace eval ttk {
  namespace eval theme {
    namespace eval aquativo {
      variable version 0.0.1
    }
  }
................................................................................

# TkDefaultFont", "TkTextFont" and "TkMenuFont
#   font create System {*}[font actual System] 
#   font configure System -size 16 -weight bold


namespace eval ttk::theme::aquativo {


  variable I

  set thisDir  [file dirname [info script]]
  set imageDir [file join $thisDir "images"]
  set imageLib [file join $thisDir "ImageLib.tcl"] \


  # try to load image library file...
  if { [file exists $imageLib] } {

      source $imageLib
      array set I [array get images]

  } else {

      proc LoadImages {imgdir {patterns {*.gif}}} {
        foreach pattern $patterns {
          foreach file [glob -directory $imgdir $pattern] {
            set img [file tail [file rootname $file]]

            if {![info exists images($img)]} {
              set images($img) [image create photo -file $file]
            }
        }}

        return [array get images]
      }

      array set I [LoadImages $imageDir "*.gif"]
  }

  
  # "-parent" option controls the treeview "+" icon (collapse/expand)
  # at the beginning of each tree node
  
  ::ttk::style theme create aquativo -settings {
    
    # Defaults
    
    ::ttk::style configure "." \
        -font TkDefaultFont \
        -background "#fafafa" \
        -foreground "Black"
    
    # I really like the mapping options!
    ::ttk::style map "." \
        -foreground { disabled "#565248" } \
        -background { disabled "#e3e1dd"
          pressed  "#bab5ab"
          active   "#c1d2ee" }
    
    # ::ttk::style layout TButton {
    #  Button.button -children { Button.focus -children { Button.label } }
    # }
    
    ::ttk::style configure TButton -padding {1 1} -width -11
    
    # Troughs

    # ttk::style layout Horizontal.TScrollbar:
    # Horizontal.Scrollbar.trough -sticky we -children {
    #   Horizontal.Scrollbar.leftarrow -side left -sticky {}
    #   Horizontal.Scrollbar.rightarrow -side right -sticky {}
    #   Horizontal.Scrollbar.thumb -expand 1 -sticky nswe
    # }

    # ::ttk::style element create trough image $I(horizontal_trough) \
    #    -border 3

    ::ttk::style element create Horizontal.Scrollbar.trough \
        image $I(horizontal_trough) -border 0 -sticky ew

    ::ttk::style element create Vertical.Scrollbar.trough \
        image $I(vertical_trough) -border 0

    ::ttk::style element create Vertical.Scale.trough \
        image $I(vertical_trough) -border 2
    ::ttk::style element create Progress.trough \
        image $I(vertical_trough) -border 2
    
    # Buttons, Checkbuttons and Radiobuttons
    
    ::ttk::style layout TButton {
      Button.background
      Button.button -children {
        Button.focus -children {
          Button.label
        }
      }
    }
    
    ::ttk::style element create Button.button image \
        [list $I(buttonNorm) pressed $I(buttonPressed) active $I(button)] \
        -border {4 4} -padding 3 -sticky nsew
    
    ::ttk::style element create Checkbutton.indicator image \
        [list $I(checkbox_unchecked) selected $I(checkbox_checked)] \
        -width 20 -sticky w
    ::ttk::style element create Radiobutton.indicator image \
        [list $I(option_out) selected $I(option_in)] \
        -width 20 -sticky w
    
    # Menubuttons:
    
    ::ttk::style element create Menubutton.button image \
        [list $I(menubar_option) ] \
        -border {7 10 29 15} -padding {7 4 29 4} -sticky news
    
    ::ttk::style element create Menubutton.indicator image \
        [list $I(menubar_option_arrow) disabled $I(menubar_option_arrow_insensitive)] \
        -width 11 -sticky w -padding {0 0 18 0}
    
    # Scrollbar

    ::ttk::style element create Horizontal.Scrollbar.thumb \
        image $I(scrollbar_horizontal) -border 7 -width 15 -height 0 -sticky nsew

    #::ttk::style element create Horizontal.Scrollbar.thumb \
    #    image [list $I(scrollbar_horizontal) \
	#       !selected $I(scrollbar_horizontal_inactive) \
	#       pressed  $I(scrollbar_horizontal)] -border 7 -width 15 -height 0 -sticky nsew

    ::ttk::style element create Vertical.Scrollbar.thumb \
        image $I(scrollbar_vertical) -border 7 -width 0 -height 15 -sticky nsew
    
    # Scale
    
    ::ttk::style element create Horizontal.Scale.slider \
        image $I(scrollbar_horizontal) \
        -border 3 -width 30 -height 16
    
    ::ttk::style element create Vertical.Scale.slider \
        image $I(scrollbar_vertical) \
        -border 3 -width 16 -height 30
    
    # Progress
    
    ::ttk::style element create Progress.bar image $I(progressbar)
    
    # Arrows
    
    ::ttk::style element create uparrow image \
        [list $I(arrow_up_normal) \
        pressed $I(arrow_up_active) \
        disabled $I(arrow_up_insensitive)]
    ::ttk::style element create downarrow image \
        [list $I(arrow_down_normal) \
        pressed $I(arrow_down_active) \
        disabled $I(arrow_down_insensitive)]
    ::ttk::style element create leftarrow image \
        [list $I(arrow_left_normal) \
        pressed $I(arrow_left_active) \
        disabled $I(arrow_left_insensitive)]
    ::ttk::style element create rightarrow image \
        [list $I(arrow_right_normal) \
        pressed $I(arrow_right_active) \
        disabled $I(arrow_right_insensitive)]
    
    # Notebook parts
    
    ::ttk::style element create tab image \
        [list $I(notebook) selected  $I(notebook_active)] \
        -sticky news \
        -border {10 6 10 6} -height 10
    
    ::ttk::style configure TNotebook.Tab -padding {2 2}
    ::ttk::style configure TNotebook -expandtab {2 2}
    
    
    # Labelframes
    
    ::ttk::style configure TLabelframe -borderwidth 2 -relief groove
  }
}

namespace eval ::tablelist:: {

    proc aquativoTheme {} {
      variable themeDefaults

Added demo/themes/aquativo/images.tgz.

cannot compute difference between binary files

Changes to demo/themes/aquativo/pkgIndex.tcl.

1
2
3
4
5
6
# if { [catch {package require tile 0.8 }] != 0 } { return }

if {[file isdirectory [file join $dir aquativo]]} {
    package ifneeded ttk::theme::aquativo 0.0.1 \
        [list source [file join $dir aquativo.tcl]]
}
<

<
|
|
<
1

2
3



package ifneeded ttk::theme::aquativo 0.0.1 \
    [list source [file join $dir aquativo.tcl]]

Added demo/themes/keramik/CreateImageLib.def.






















































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
arrowdown-n
arrowdown-p
arrowleft-n
arrowleft-p
arrowright-n
arrowright-p
arrowup-n
arrowup-p
button-d
button-h
button-n
button-p
button-s
cbox-a
cbox-d
cbox-n
check-c
check-u
hsb-n
hsb-p
hsb-t
hslider-n
hslider-t
mbut-a
mbut-arrow-n
mbut-d
mbut-n
progress-h
progress-v
radio-c
radio-u
tab-n
tab-p
tbar-a
tbar-n
tbar-p
tree-n
tree-p
vsb-n
vsb-p
vsb-t
vslider-n
vslider-t

Added demo/themes/keramik/ImageLib.tcl.










































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
# ImageLib.tcl ---
# Automatically created by: CreateImageLibCmd.tcl

set images(arrowdown-n) [image create photo -data {
R0lGODlhEAAQAIQZAAAAAHNzc6urq9TU1NXV1dfX197e3uDg4OHh4eTk5OXl
5efn5+jo6Onp6evr6+3t7e7u7u/v7/Dw8PHx8fPz8/T09Pb29vf39/n5+f//
/////////////////////////yH+FUNyZWF0ZWQgd2l0aCBUaGUgR0lNUAAh
+QQBCgAfACwAAAAAEAAQAAAFdaAQjGRZismiMozqqseYJM6EVVIE7UcSBwmE
w3LLRR6JweEXbFgAUChyQGAinFFpsiq7PrNTLtCbBYSt5SzV2kgDtuxv9Nxl
WC5RCkSxlhkSFBZPFRQUDQQFTAdCEY07EBUJfyMLCgoLLJcqDxWNASImoSMC
IQA7
}]
set images(arrowdown-p) [image create photo -data {
R0lGODlhEAAQAIQSAAAAAAEBAQICAhgYGB4eHisrKzExMTc3Nz4+Pj8/P0ND
Q0VFRUpKSlFRUVJSUlhYWF5eXt/f3///////////////////////////////
/////////////////////////yH+FUNyZWF0ZWQgd2l0aCBUaGUgR0lNUAAh
+QQBCgAfACwAAAAAEAAQAAAFZmBwGAlgnsAxDEYgkg/kMPSisu6YxHN9t6+d
jMawrYC6R2S5NOKCSmbEiYRJp7+cVUrVXqVHbeIbyUKv3RfiEY000ofCocGO
OBqNxIBQNSiIRA5xBy4IBwcIiYiJCz0BAi6RkpMCIQA7
}]
set images(arrowleft-n) [image create photo -data {
R0lGODlhEQAQAIQdAAAAAHNzc5SUlNPT09TU1NXV1dfX19vb297e3uDg4OHh
4ePj4+Tk5OXl5efn5+jo6Onp6evr6+3t7e7u7u/v7/Pz8/T09PX19fb29vf3
9/n5+fv7+/39/f///////////yH+FUNyZWF0ZWQgd2l0aCBUaGUgR0lNUAAh
+QQBCgAfACwAAAAAEQAQAAAFiKAQjGRpig6jrqzqUGOTIEpt30sVK8wD/UAg
hTNyRCqYJCDJ1Gx0gQcFk9EAAJqspqqBRaeYq/iK0WAmMYplPE5a0AHHhD2+
WC6S4qRCv1YsFXlxe3N0ExQTDyMSFhANDFctjwwjFgwFBJkAmZwDBwojFAgG
BaWmpwUIoQwJra6vrgEiJrQkAiEAOw==
}]
set images(arrowleft-p) [image create photo -data {
R0lGODlhEQAQAIQSAAEBARgYGB4eHisrKzExMTc3Nz4+Pj8/P0NDQ0VFRUpK
SlFRUVJSUlhYWF5eXmBgYGZmZt/f3///////////////////////////////
/////////////////////////yH+FUNyZWF0ZWQgd2l0aCBUaGUgR0lNUAAh
+QQBCgAfACwAAAAAEQAQAAAFdCAgjmQ5GkWqrqmhiAUxEHRtFwtMFMbh/z8F
RGRALBrICHLpeOQALqQjEnFYHQ3rC6pIUr9K7LagYIDBSMbWdUYzGgmiYtGm
LhiL9TxRTygUBiIJDAcpVCwqIgwFAY0BEY6OMyIKAwKRmI0DlDE2njUmoSUh
ADs=
}]
set images(arrowright-n) [image create photo -data {
R0lGODlhEQAQAIQcAAAAAHNzc5SUlNPT09TU1NXV1dvb297e3uDg4OHh4ePj
4+Tk5OXl5efn5+jo6Onp6e3t7e7u7u/v7/Dw8PPz8/T09PX19fb29vf39/n5
+fv7+/39/f///////////////yH+FUNyZWF0ZWQgd2l0aCBUaGUgR0lNUAAh
+QQBCgAfACwAAAAAEQAQAAAFdqAQjGRpitKirqzaSGMiz/SsUOOj7/wubaOL
cHgBEDMaXCDDbGYAACaGCQtUrtAsVJi5REaTsFYrrHwDkvRYW7FARmnJGkqp
UN4BiH4OiUgiDiMtKlArDCojBIqLBACMAwYJIwWUlZaWB3AIm5ydnQEiJqIk
AiEAOw==
}]
set images(arrowright-p) [image create photo -data {
R0lGODlhEAAQAIQQAAEBARgYGCsrKzExMTc3Nz4+Pj8/P0VFRUpKSlFRUVJS
UlhYWF5eXmBgYGZmZt/f3///////////////////////////////////////
/////////////////////////yH+FUNyZWF0ZWQgd2l0aCBUaGUgR0lNUAAh
+QQBCgAQACwAAAAAEAAQAAAFZiAgjmQpIgihrmyBiAkxzHRNJKeh77yBOKKF
cPgYLhgNHIDBbD4ezCPjBVAontinkLGgorJZocKLAGcVi8OpbH4kFAnq4dCe
owoiluqpJ4gEAYGBD4KBAgN/gIWLAQIiNZCQJpMkIQA7
}]
set images(arrowup-n) [image create photo -data {
R0lGODlhEAARAIQeAAAAAHNzc5SUlNPT09TU1NXV1dfX19vb297e3uDg4OHh
4ePj4+Tk5OXl5efn5+jo6Onp6evr6+3t7e7u7u/v7/Ly8vPz8/T09PX19fb2
9vf39/n5+fv7+/39/f///////yH+FUNyZWF0ZWQgd2l0aCBUaGUgR0lNUAAh
+QQBCgAfACwAAAAAEAARAAAFgqAQjGRZipTVWdQ0SdLDKEgyOgvFbdmFWRPG
oWALzCCbZO9CaQyIo2NGkwH8ggSoUQHJbADgioSRLUrB6HE5ykW7ydqZe77e
dufqOLfqzpv3eHB/D3xoEw11DAgMFhlLFhYQBQZmCQoRFJkuExeKDDcNDQ4P
D6IODhJMFAEiJq4jAiEAOw==
}]
set images(arrowup-p) [image create photo -data {
R0lGODlhEAARAIQSAAEBARgYGB4eHisrKzExMTc3Nz4+Pj8/P0NDQ0VFRUpK
SlFRUVJSUlhYWF5eXmBgYGZmZt/f3///////////////////////////////
/////////////////////////yH+FUNyZWF0ZWQgd2l0aCBUaGUgR0lNUAAh
+QQBCgAfACwAAAAAEAARAAAFcyAgjmQpKgu0KGyiGAUxECKsPE7DNGsxBDRA
7OAo6hiKQgAoGjaeEV5CyRQSDg1HZLuYLoPOrdhbHYrPVDDhzP42rw02WY2V
p9/18/xtiOvvQgMFC08MDAsLBwECagQILJAKDD4FNQUFBpmYmQlICiagJCEA
Ow==
}]
set images(button-d) [image create photo -data {
R0lGODlhGAAYAOcAAAAAAAEBAQICAgMDAwQEBAUFBQYGBgcHBwgICAkJCQoK
CgsLCwwMDA0NDQ4ODg8PDxAQEBERERISEhMTExQUFBUVFRYWFhcXFxgYGBkZ
GRoaGhsbGxwcHB0dHR4eHh8fHyAgICEhISIiIiMjIyQkJCUlJSYmJicnJygo
KCkpKSoqKisrKywsLC0tLS4uLi8vLzAwMDExMTIyMjMzMzQ0NDU1NTY2Njc3
Nzg4ODk5OTo6Ojs7Ozw8PD09PT4+Pj8/P0BAQEFBQUJCQkNDQ0REREVFRUZG
RkdHR0hISElJSUpKSktLS0xMTE1NTU5OTk9PT1BQUFFRUVJSUlNTU1RUVFVV
VVZWVldXV1hYWFlZWVpaWltbW1xcXF1dXV5eXl9fX2BgYGFhYWJiYmNjY2Rk
ZGVlZWZmZmdnZ2hoaGlpaWpqamtra2xsbG1tbW5ubm9vb3BwcHFxcXJycnNz
c3R0dHV1dXZ2dnd3d3h4eHl5eXp6ent7e3x8fH19fX5+fn9/f4CAgIGBgYKC
goODg4SEhIWFhYaGhoeHh4iIiImJiYqKiouLi4yMjI2NjY6Ojo+Pj5CQkJGR
kZKSkpOTk5SUlJWVlZaWlpeXl5iYmJmZmZqampubm5ycnJ2dnZ6enp+fn6Cg
oKGhoaKioqOjo6SkpKWlpaampqenp6ioqKmpqaqqqqurq6ysrK2tra6urq+v
r7CwsLGxsbKysrOzs7S0tLW1tba2tre3t7i4uLm5ubq6uru7u7y8vL29vb6+
vr+/v8DAwMHBwcLCwsPDw8TExMXFxcbGxsfHx8jIyMnJycrKysvLy8zMzM3N
zc7Ozs/Pz9DQ0NHR0dLS0tPT09TU1NXV1dbW1tfX19jY2NnZ2dra2tvb29zc
3N3d3d7e3t/f3+Dg4OHh4eLi4uPj4+Tk5OXl5ebm5ufn5+jo6Onp6erq6uvr
6+zs7O3t7e7u7u/v7/Dw8PHx8fLy8vPz8/T09PX19fb29vf39/j4+Pn5+fr6
+vv7+/z8/P39/f7+/v///yH5BAEKAP8ALAAAAAAYABgAAAj+AP/9Q3fOnMGD
CBOaO4dO4D9z5MiVU2duHDhv3TJm5Lat47Zu4cw91AjOHMVy5sqpVEnOW7Zr
2mJyI8cN2zZs2sahS3eup8+C5L5Vk4YT2zVo2bBJo0buXLp06KJK5UluWzOk
2ZoVwzZNWbSSP8OeI9eNmbJp2IrtymqsGTiUYntC7KasbbZdsKopC6bM2zhy
Cg2SG9ctGd9qsEpNM9brGDdxf1euHCyO27FexqaVwiSN2K5i28KJi0iatLhw
29QSk4apETRhuoZpA3c6nO3bosFpG6ZLGLRGhV7nEobtGzjcuMF9wyZsOLRC
daAFwxXMmsbr2K1NDwatzhrpt4DQVeNGvrx58tWA3eK+Zox0XL+oZdPGLaZ9
+tqyUftFHdqYLdE09wta2RRo4IFcATNcNFtQsdguwUhz4IQGThPMLplRwcQ1
yvwijIT5UTiffsT8osw1TBRhDTTEDENUTElhIyM2I1qTTDHQXFNEFMjoZUyO
9923DXnYMMNMNckk4YYq1kyzTDPU2LRNkNx048020kxzzSpX2MLEMtZUE400
1Ujp0ZAgXZkNNE0Q8k8iRJhyolHXzDgjfeRN44oRZTg0Cxg1qCDooIQSSgMU
gggUEAA7
}]
set images(button-h) [image create photo -data {
R0lGODlhGAAYAMYAAO7u7vX19fr6+vz8/Ozs7O/v7/Ly8vn5+fPz8+jo6OHh
4d7e3t3d3dzc3ODg4Obm5uXl5dra2tfX19vb29/f3/v7+/j4+Pf39/b29uPj
49bW1tTU1NXV1djY2PT09P39/f////7+/tHR0dPT08nJyc/Pz+vr687OzsDA
wNLS0vHx8e3t7dDQ0MjIyLa2ts3NzcXFxaysrMrKysPDw8vLy6Kior+/v+rq
6piYmMbGxr6+vpGRkb29vcfHx+Tk5IGBgbu7u3p6erq6uufn53R0dMTExGxs
bLy8vGdnZ19fX9nZ2czMzMLCwllZWWJiYlpaWn5+frCwsLGxsWZmZomJiZOT
k1hYWLOzs29vb7m5uW5ubklJST8/P0dHR15eXoeHh///////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////////////////////yH5BAEKAH8A
LAAAAAAYABgAAAf+gH9/AAECA4eIiYkCAQCCfwQABQYHCAkKC5maDA2cDA4E
BH8PDg4KEJQIBaGsBAkOERITEw0UEAsTuA0FFRUWF8DBGAUZGhsRDQ0RHLQc
HR4fICHT1NMfGAwiI7MiJAwaJRwIHyEg5ufnAyYiJxoMJCgMKSQpKuTo6CEf
KywtKQwoXER4AaNEgQHkqlH7MGDFCRgvIriIoUHGjBcrLHzYyLGjhRU0ZsjQ
EKMGhxY2aNy4gLAjxwEXbtCw0YJDDRwccugg8SDAAQFAgwI9EOABCR05NuDY
sQEGjx4+PFywQLUq1QsefPTgAWPDjh8jYACB0cBEJABo0wIgYKKBWBjeI34E
aSoERgQIQ0zo3at3CIQIMOpuCEIkLJAiHRQo8KG48WLFHYqMHUHECAcYR4pI
UFCKgufPpRRIkAyDgxEkGlpw1bCAwYJksBu0XqABho4WGpAkUbKECQwNnTjF
Dt5AQo8ZS5QkaaJkRI/fxIczmK6ERo8RSpo4oSHhRQvs08OHX1BqQokSEmg8
gRKlg4YTLDTkEj/dgY9bHDQokTLlSJISHUiwAQeyaKIJBT4kqAAFKSRBxR9V
WBHDCUpEoESFEWSYIQMZdKjBFU1g8UgWWmzBxYkopphiF158IUggADs=
}]
set images(button-n) [image create photo -data {
R0lGODlhGAAYAMYAAO7u7vX19fr6+vz8/O/v7/T09Pf39/j4+P7+/vPz8+vr
6+jo6OXl5ePj4+Hh4fDw8Ofn5+Tk5Pn5+dzc3NnZ2d3d3ebm5t7e3tvb2/39
/fb29tfX19XV1dra2tPT09bW1tDQ0M/Pz8fHx83NzdTU1L29vcjIyO3t7bOz
s8TExMzMzMvLy6ampsDAwMnJyeDg4PHx8fLy8pmZmcbGxo+Pj8XFxby8vIaG
hru7u+rq6uzs7HZ2drq6utjY2OLi4mxsbLm5ucPDw9/f32RkZMLCwl1dXVVV
VU1NTUZGRlJSUsrKyklJSW9vb6ysrM7Ozq2trVdXV7a2tk5OToSEhImJiUVF
RaioqLCwsEdHR2ZmZmFhYTY2NisrKzQ0NFFRUYODg///////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////////////////////yH5BAEKAH8A
LAAAAAAYABgAAAf+gH9/AAECA4eIiYkCAQCCfwQFBgcIAgkKCwyamg0OnQ0M
DwR/EJoRChIIAwcSB66uBQsTFBW1DRYXGLkVARkIGRmKAhoQGxwdFRgUHhMY
HB8Fvr/A1L8FFyDMEyEiGB8jJAQC1OTUBgwhIx8YIiUTICYgJwaG5cHDDCPx
EyUoGyMpVCwIoEGAwYMGNQRgsCLFiA0oWHww0cLFCxgxFAbYuFFDDBgvXLQw
8YGFDA4zSoi4QABGgZcwX8IgcKHdDA4yaHioYaNGBQUnCAgdKvSEggo8a3ig
cWMnjhoYIOTQQbUq1RwQMNR46uHGDg8peKTo4cNHhLNoz5btETaFhx3PP8AC
CbJByIu7ePMK2RAEiNsfQ8DyIPJhQgUhtRIfrjDhAxGxHoYUIbGVMIYJmDNr
9hbkKYkiRiaWSMFBs+nMH1KUIGnkCAUVRGqUZnzacOMZRFRQOIKkh4cZsjHU
aoah+GXGPVaI8EABSRIl/0wwV6z4wl0MIUJsWLGESZMeH5yAWHfhAvUXERhc
eEbhCZQoR5z02ECCwwZdDvLnR/9ggQMhHkgxxR9UVGHFCBR0QEGCHTTYYAUN
RPjBFVhk8QgKWmzBxYYcdthhF158IUggADs=
}]
set images(button-p) [image create photo -data {
R0lGODlhGAAYAKUAAO7u7vb29vv7+/39/fHx8fr6+v////f39/T09PX19fn5
+ezs7Pj4+PDw8Ovr6+rq6v7+/unp6eTk5O3t7ejo6ODg4Obm5t/f3+Pj49ra
2t7e3uHh4dTU1Pz8/NnZ2c3Nzd3d3dbW1tzc3MXFxdXV1dvb27u7u7S0tNjY
2O/v762trdfX19PT052dndHR0ZSUlIuLi4KCguXl5dLS0np6enFxcefn521t
bWhoaG5uboSEhMrKyr6+vpeXl7i4uP///yH5BAEKAD8ALAAAAAAYABgAAAb+
wN8PEBAMjshkUhAACH+EwtEwKBwC2CwCkSBwFYTfIkFmDKjKYyHQcDTeiMWj
QXgXIPh8/hiISCYNABQVbxYOd3qJVQ0XEm8YGQ0UGhZmiXpHCRsaFA0ZHIwZ
GwppSh0BFx4XDRwfDyAhIgcdpUgdCSIhIA8fIxQZJCUIDAUdxsfGBQwIJSQZ
FCMmFp8ZBAoKBdna2dcE1BYmJxIoHCgpDNfp6goMKeQoEicqEissKEQH+fr7
TSgsKxJUtJAQwkWIB1zIKFyI4EHBEBJavCBoMIKXLRgzEojwUMILGBQPEkjR
IIXJkyUJODQoAUYMGShmhLBgcsLJkzZTWAhhT0aPDBq/OISgcLPoSQornFGg
UcMBrBUWANScQJXqSRsZdDm4gWMCBg8eJEg1evNBiQwYHtzIIWKChgwSFqQY
aRQBAQAZNEwQkUPHjgkUMGxwAICA4cMpuAQggIHChB06eNTAQFWGhTmHD3Nh
EIAqhho8fvToMQKEzQkOqlptgBHEiNFPfPS4Qbu27ds3evgQEgQAOw==
}]
set images(button-s) [image create photo -data {
R0lGODlhGAAYAMYAAO7u7vX19fr6+vz8/O/v7/T09Pf39/j4+P7+/vPz8+vr
6+jo6OXl5ePj4+Hh4fDw8Ofn5+Tk5NDQ0NbW1tvb297e3t3d3eDg4Obm5tPT
09nZ2dXV1dra2tzc3NjY2M/Pz8fHx83NzdTU1L29vcjIyLOzs9fX18TExMzM
zMvLy6ampsDAwMnJyZmZmcbGxo+Pj8XFxby8vIaGhru7u+3t7XZ2drq6uvHx
8WxsbLm5ucPDw2RkZMLCwv39/fb29l1dXVVVVU1NTUZGRlJSUsrKyklJSW9v
b6ysrM7Ozvn5+a2trVdXV7a2tt/f305OToSEhImJiUVFRaioqLCwsEdHR2Zm
ZmFhYTY2NisrKzQ0NFFRUYODg/r6+vr6+vr6+vr6+vr6+vr6+vr6+vr6+vr6
+vr6+vr6+vr6+vr6+vr6+vr6+vr6+vr6+vr6+vr6+vr6+vr6+vr6+vr6+vr6
+vr6+vr6+vr6+vr6+vr6+vr6+vr6+vr6+vr6+vr6+vr6+vr6+iH5BAEKAH8A
LAAAAAAYABgAAAf+gH9/AAECA4eIiYkCAQCCfwQFBgcIAgkKCwyamg0OnQ0M
DwR/EJoRChITFBUVFq6uFxEMra4NGBWrFBYZGq++FhUXFxQbHBYUGhkdxBMb
uhbLFNIUHdAeEsodHyAUEyEiG9Ud4+Tj0BMfIaogIx0SJBLh5fPj3vAdIyUm
IScoE/T0JqQ4EcJECRUTSKxgMUGYw4cOJ7BYQWKCihYbXIzgFqGjx48dTbBz
saHFiwwwYsCwsKCly5ctPaSEkeGFDJQzYFSgwbOnT54UYOTMIKNGhhM2Tly4
wbSpU6YWkJ7IUAPH0Rw6FgTYyrXr1go6ckzFseOoDR40DBjqwbbtAAG5Pi7w
SJphxw8RQnlo9SGgr9++PgIw0JFTxA8gCUecSLu2Ldu3PhicGFERSBANKHjA
ICDAseceBhi44IFCQxAhHjK4gFGgBwIEn2EXqJACBC8hQ4jsIxHA9eNFPiCY
+PDBRIoiRo54mIDEBIIBB5IcmD69wIIOGjZM0KBkCZMgSDyYAGdilYPz52M9
WOCgSQYnT/5AiSIlhAYOGu5z2L/fQoP/E0xBRRWPlGDFFVgkqOCCC2ahxRaC
BAIAOw==
}]
set images(cbox-a) [image create photo -data {
R0lGODlhLAAaAMZqACsrKzQ0ND8/P0dHR0lJSVhYWFlZWVpaWl1dXV9fX2Ji
YmZmZmdnZ2xsbG5ubm9vb3R0dHp6en19fYGBgYSEhIaGhomJiY+Pj5GRkZOT
k5iYmJmZmaGhoaKioqOjo6SkpKampqurq6ysrLCwsLGxsbKysrOzs7a2tre3
t7m5ubq6uru7u7y8vL29vb6+vr+/v8DAwMLCwsPDw8TExMXFxcbGxsfHx8jI
yMnJycrKysvLy8zMzM3Nzc7Ozs/Pz9DQ0NHR0dLS0tPT09TU1NXV1dbW1tfX
19jY2NnZ2dra2tvb29zc3N3d3d7e3t/f3+Dg4OHh4ePj4+Tk5OXl5ebm5ufn
5+jo6Orq6uvr6+zs7O3t7e7u7u/v7/Hx8fLy8vPz8/T09PX19fb29vf39/j4
+Pn5+fr6+vz8/P39/f7+/v//////////////////////////////////////
/////////////////////////////////////////////////yH5BAEKAH8A
LAAAAAAsABoAAAf+gH9/WmFmZ4eIiYqLjItmYVqCf1hbXF5lX1ZQT02dnp+g
oZ9MS6RMT1lYf1RPT1BTXgCyAbQBF1m4ubq7vFZPSUZKSktOUk1Kx0tcABQb
KM8oIGPT1NXW12JcUUVDSUtLSUTDREdgABtp6WlHM+lYae/v6vP06WhiTEBC
wkA4TEU+iHwJgIJeFTVqsCRciLChw4dqzmAB0qMIExwwmATBEaQLQYMIqagR
KRKiSTVp0Gj5cSMIExgnkvCg4YPLx3lV0jVJs3NnvZ8pz2jpQYNHkhMiiuSQ
wUPLTXVV0KARMrWq1KtYs6Iho0WHjBxFRHQgcuOFjitP00WtSpWq1rf+aM6M
uaLjxQ0iHTQQqeECB5W0aaqYMbODsOHBiBMrLhOGCg4XNYZowDCERgsbUgBX
IUOGRufPnEOLHj0GjBQbLWgMwWBBCA0WNppo/vLlRe3btHPr3g1mSxMbLGgI
sdD6dezZX1AkX767ee7ev4MPn+B6BY0lmrdsKbG9u/bv4MOnWkLDupAJESqr
oJFEMxYsIeDLf0+/vv0qU5LQWD8kAoTqMxyhGRRQfFDggQQmqKCCUhDIjnkQ
NEDEazMYoZkTTnCQ4YYYduihh61AYcQM1hHRAANF3JBaEZp9w8ESL774zYw0
0tgEE00UQYMLNxTBQAJI7BADDSwWhJOLMCa1WeOS3zBBihE2yLADEgkYgIQQ
NhDZYpIxMsmkk0wgoYMNQiBhgAI6GMHDDUIQdAROTnrAhJxygmnnnTi2ooQP
PhihwwESjHBEET38cAEIM1ShqKJOgsCEo47iKekTUkzRBBFFIEHCAiwk4MMR
RgxBRDCifNCEqaaKEkoxUjToRBAJWPBHBgWI0AMSSSChaxK89urrr8D6ykQU
xBZhggEPSJKCAwQI4Oyz0EYr7bTSDoBABYIEAgA7
}]
set images(cbox-d) [image create photo -data {
R0lGODlhLAAaAMZeACoqKisrKzQ0NDU1NUREREVFRUZGRklJSUxMTE1NTVBQ
UFFRUVRUVFdXV1tbW2BgYGNjY2VlZWtra25ubnV1dX19fYKCgoSEhIWFhYmJ
iY2NjY+Pj5iYmJmZmZ+fn6KioqOjo6Wlpaampqmpqaqqqqurq66urq+vr7Cw
sLOzs7W1tba2tre3t7i4uLm5ubq6uru7u7y8vL29vb+/v8DAwMHBwcLCwsPD
w8TExMXFxcbGxsfHx8jIyMnJycrKysvLy8zMzM3NzdDQ0NHR0dLS0tPT09TU
1NXV1dbW1tfX19jY2NnZ2dra2tvb29zc3N3d3d7e3t/f3+Dg4OHh4eLi4uPj
4+Tk5OXl5ebm5ufn5+jo6Onp6erq6v7+/v//////////////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////////////////////yH5BAEKAH8A
LAAAAAAsABoAAAf+gH9/WllYhoeIiYqLjFlagn9YVlZXXFhVUlBPm5ydnp+d
Tk2jTU9TWH9XnFJYAa4CsAIbV7S1tre4VlBLSUy+TlZOSk1KTFUBFx0syywi
Wc/Q0dLTklFHRMVKSUJLSkRGVgEdXeRdSjhaWlDq7Onu7+9bWVZNQdxLQTlK
RT5DUgIsypGDJiVLwYLTEj6z8gSIjyJKcsDApyPIv4ACoUXJsnGjQmoMfVRc
AgPFER81fEABKLBLISxKYMpkpMhKlSc9Uh5BEaKIDhk7nLDMSEvIFaNGcSm1
ScXJDhk6ioTgQAQHjBxNhpabZ0VI16+TwoodS2VKE4k4iHDQIMTGixv+TLQO
nDLFR927dPPq3UtFCpMbL2wI0YChrQsbSuS6pHtjSuPGeyPnlRJFiY3DQjBU
MGwjieIsUKDEEE06tOnTqDUluSy4wmbWnjFuDa0CSu3aqXOHfrIacwUKQmq0
qIHk86YTT5AjB8X8CRLhNYRQkBCcBY0jn504GbG9u/bv4MNrP0KDRXQJEIK3
mGHksy8QTODD90W/fn0nTJYYmTFcCAQHQ1w2QxGfLbGEBwcmaOCCDDbYTRE0
HDaEAwz4BEMNRBSYIIIIOujhgkXUAENUDCCQhA8z2JChbAMZyKGCHzaYnxE4
zOBDEggUgIQQONywYktZKKGEB0MWKeSRSCKTuUR+SPSQgxBJFLAADyfpIARA
SmTkywdMcMmlfWD60oR2SgABxBE9HDABCUgU8UMQG4iAgzS+hMCEnXaGCaYT
T0DRBBFFJFFCAysg8AMSRwxBxBHDkEIKCE1ACqmjlDrK5xR+LiFEAhf8kQEB
ItyoTRJJlmrqqUx8V4QJBkQASQoPDADArLTWauutuN4qgAIWCBIIADs=
}]
set images(cbox-n) [image create photo -data {
R0lGODlhLAAaAMZoAO3t7fX19fr6+vz8/O7u7vT09Pf39/j4+P7+/vPz8+vr
6+jo6OXl5ePj4+Hh4fDw8Ofn5+Tk5Pn5+dzc3NnZ2d3d3ebm5t7e3tvb2/39
/fb29tfX19XV1dra2tPT09bW1tDQ0M/Pz8fHx83NzdTU1O/v7729vcjIyLOz
s8TExMzMzMvLy6ampsDAwMnJyeDg4PHx8fLy8pmZmcbGxo+Pj8XFxby8vIaG
hru7u+rq6uzs7H5+fuLi4r+/v7e3t3Z2drq6utjY2LKysmxsbLm5ucPDw9/f
36urq2RkZMLCwqSkpF1dXaGhoVVVVU1NTUZGRlJSUsrKyqOjo0lJSW9vb6ys
rM7Ozq2trVdXV7a2tk5OToSEhImJiUVFRaioqLCwsEdHR2ZmZmFhYTY2Nisr
KzQ0NFBQUIKCgv//////////////////////////////////////////////
/////////////////////////////////////////////////yH5BAEKAH8A
LAAAAAAsABoAAAf+gH9/AAECA4eIiYqLjIsCAQCCfwQFBgcIAgkKCwydnp+g
oZ8NDqQNDA8EfxCdEQoSZLFls2U0B7e4ubq7BQsTFBXBDRYXGMUVAWRbMj7N
PiyN0YkCGhAbHB0VGBQeExgcHwVkMgjlCEEpGRkK6+3q7/DwCBkFFyDdEyEi
GB8jJCVlfJgrB0Edu4PxEsYzwCDEiA8YRJiYAOIECAABByIomMFCx48KEw6g
xmCExQkmUGwYkULFgowDIQgQcIGmzZk4c+rUEIDBihQjNqBg8eFECxcvYJqD
ECCAB6dQm0qdOlVDDBgvXLQ48YGFDA4zTIi4oJRggQIe0Ko9y7atWxj+JS5I
nMFBBg0PNWzUqFB2Y4kSKgAL/ku4sGEACirkreGBxg28OGpg6AtBh44alzNb
3sy5cw4IGGpE9nBjB+QaFCh36sGANWtRohrwoCCa8Q7TtVMLjNnJBwPfvmGH
kk179I4fHlIASRGEcoQIQqBLf069unUePNAt9/BjSHIiRTZQfvHiSPnz5NOr
X//CyIYiRFJ4GIIkOZAkHygHU1KBP/9gAAYYoBEVTPBBEtshsQQJouFH2QQT
MBHhhBBWaOGF3nxQRGQkLNFEUSakwMGDE0ooIYYoVvhBCiZw1YQTFKiQRA0j
7rYUhCZSmOKFBX4wQxIqUODEE0F4MAONlGGogAETSzap5JNQQjlBgUGsIIIH
FDwBRRQrneBBQEHEFIwUFZBJpoBoBnMBeRiEEMIGK0xBRRVBfGAFCDSwkAIE
fPIZDAsVAApommi+EAEDF4BDwRVYZOGEFUFsQAIHGxjjwKWYKuGApppi6umn
Dhj6wAIOGOGBFlv8wUUXXoxAQQcUvNrBrLTWauuttVbQwK4ffAFGGJKgIMYY
sRRr7LHIJptsGWacIUggADs=
}]
set images(check-c) [image create photo -data {
R0lGODlhEwATAKU1AAEBAS0tLTQ0NDw8PEVFRU5OTk9PT1lZWVpaWl1dXWJi
YmVlZW5ubm9vb3FxcXh4eH19fYCAgIqKio2NjZycnK2trbCwsLe3t729vcbG
xszMzNDQ0NTU1NXV1dfX19vb29zc3N3d3eDg4OHh4eLi4uPj4+Tk5OXl5ejo
6Orq6uvr6+zs7O7u7u/v7/Dw8PPz8/T09PX19fb29vn5+f7+/v//////////
/////////////////////////////////yH+FUNyZWF0ZWQgd2l0aCBUaGUg
R0lNUAAh+QQBCgA/ACwAAAAAEwATAAAGtkCNcEgsFkOppHKpDBE3M5p0SqXJ
NkQMjIbper20GSYzrMRoh4R6rQ5XLkOKjKYAAD74jz1MsQwlcw12AFKDYRJ+
QhCBNIOGVhCJGg5bDYWPNDAOkgsuNJaNmC8Lkggtn6GOUioIkgYsn4+GIwaS
BCg0EXtTexwEkgMhIyQrJiMlJyckIB0cA5ICGxwcHiAiIcLJIyMCkgwB4OHi
4QWSGhcTD+rr7A8TcEMZFxb09fYWF2RG+/tBADs=
}]
set images(check-u) [image create photo -data {
R0lGODlhEwATAKU0AC0tLTQ0NDw8PEVFRU5OTk9PT1lZWVpaWl1dXWJiYmVl
ZW5ubm9vb3FxcXh4eH19fYCAgIqKio2NjZycnK2trbCwsLe3t729vcbGxszM
zNDQ0NTU1NXV1dfX19vb29zc3N3d3eDg4OHh4eLi4uPj4+Tk5OXl5ejo6Orq
6uvr6+zs7O7u7u/v7/Dw8PPz8/T09PX19fb29vn5+f7+/v//////////////
/////////////////////////////////yH+FUNyZWF0ZWQgd2l0aCBUaGUg
R0lNUAAh+QQBCgA/ACwAAAAAEwATAAAGq8CMcEgsFkGopHKpBBE1spl0Sp3F
NMTLa3bper0z2QUzpMBmBoR6rQ5TLMNJbJbw2O/28KQyjMwZVVQyEXxCD3+B
UzEPhRkNW4CJMy8NjQotM5GJLgqNByyZkjMpB40FK6GSIgWNAyczEKIbA40C
ICIjKiUiJCYmIx8cGwKNARobGx0fISC3viIiAY0LANXW19YEjRkWEg7f4OEO
EnBDGBYV6errFRZkRvDwQQA7
}]
set images(hsb-n) [image create photo -data {
R0lGODlhFgAQAKUiACY9ZiY+ZyY+aCc+aCc/ai1FcDFJczFJdDdOeDdPeUVP
YkZRYzxUfkFYgUxjik1ji1JokFhulVlvll1zmV91nGZ1j2V6n2V6oGV7oWp/
o2qApWuBpm+EqHCEqXKHq3eLr32StYWZu///////////////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////yH+FUNyZWF0ZWQgd2l0aCBUaGUg
R0lNUAAh+QQBCgA/ACwAAAAAFgAQAAAGlcCFcEgsGhcVRWjJbDqbimjIYCgc
rtgsNhGKKhEJx2NMLpMnXSkko9m433C3B5RWSjr4vD7v+XjqIRIbHRsYhoeH
g4SAEhgaGBSRkpEZjhwagBEXGBYSnp+fFoYZgBMYEhGpqqsREhNoXiEYDwy1
tre4gLO4vLUNDYAJAwIBxcbHxQAEgAYDzs/Q0QN1XtXW11FH2kdBADs=
}]
set images(hsb-p) [image create photo -data {
R0lGODlhFgAQAKUnAFtmeFxneldvmFhwmlhxmllxm1pznWB5pGN8pmN8p2R9
p2mBq2mCrG6HsHGKsnKKs3yTunyUvIaVsIGYv4adxIeexYifxouhx4uhyI2k
ypGnzZKozpOpz5Op0Jar0Jet0piu05uw1Jux1Z6z2KK326i84K7D5f//////
////////////////////////////////////////////////////////////
/////////////////////////////////yH+FUNyZWF0ZWQgd2l0aCBUaGUg
R0lNUAAsAAAAABYAEAAABpfAgHBILBoDAJNyyWwyAZIkQ0GtWquHBMIE6Jow
kbB4LIYwFlxvaQRqu9/tj2eSTo5II5F+z99b6iYgeiAdhYaGgiB/XUkfIR8c
HhmTlJMcHx2LXh4cHBoWoKGhGhwbFIAXGBYVrK2uFRYcF4ANtba3uBEcgA4P
uL+1uoAGAgPGx8jGBAUMgAXP0NHSBQl1jNfY2YxH3EdBADs=
}]
set images(hsb-t) [image create photo -data {
R0lGODlhCQAQAOMKAKOjps7P0tXW2dzd4Obn6u7v8vP1+Pj5/fv8//3+////
/////////////////////yH5BAEKAA8ALAAAAAAJABAAAAQkEMg5g71X6L2H
/x8hjmNhnqehruvhvi8iz3Ni33iu73zfU8AIADs=
}]
set images(hslider-n) [image create photo -data {
R0lGODlhCwASAMZbAAoRHAwTIBATGAwUIQ0VIw4WJQ8XJw8YKRMaJxEbLRkc
IhIdMRQgNhYjOxYkPRgmQCElLyAmMSEoNBoqRxsrSCMrNygsMyUtPB0uTR0v
Tx4xUicwQCAzVSA0VyozRSE2Wio1Ryo1SyU3WCI4XSM5XyM5YCQ6YiQ7YiU8
ZSY9ZiY+ZyY+aCc+aDE9VCc/aSdAayhAayhBbSlCbilCbylDcCpDcSpEcixI
eC9IdjpHX0tLTUlOVlBQUDpTf0pce09mj1hmf2tsbmxtb1pwmGZ0jGF4n3V2
d3B5h3l5emZ8o31/g3OIrXiNsZCRkpGRkZSUlI+XpoWZu5manZ+lr66urqyw
uMDAwMHBwsTExMvLy8zMzP//////////////////////////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////////////////////yH+FUNyZWF0
ZWQgd2l0aCBUaGUgR0lNUAAh+QQBCgB/ACwAAAAACwASAAAHlIBaUD4rLoYp
RFVaUyc3UY+PNiVXQDZMl5hMLEciRUufoEs0ORhJpqemMi0TQ62urTAhDz+0
tbQrIA09u7y7KB4MOMLDwiYbCzXJyskkFwkz0NHQIxUHMdfY1x8SBS/e394d
EQgphuaGGhA7GSrt7ioOAlIDHCn29hQAPFpKFgQGAAMo0OFESxYrTYwICYLk
CRUsgQAAOw==
}]
set images(hslider-t) [image create photo -data {
R0lGODlhEgAPAMZEAC0uLzMzNDU2Nz8/QUFCQ0hJS01OT09QUlNUVVRUVlpb
XV1dYF9gYmJjZWVmaHBxc3FydYWGiJKSkpydoZ6fo6CipaKioqOjo6SkpKan
q6qqqq2trbCwsLS2ure5vb2/w7/AxcDBxsHDx8LDyMLEyMPFycTGysXHy8bI
zMfJzcjKzsnLz8rL0MrM0MvM0cvN0czN0szO0s7Q1NDS1tHT19PU2NPV2dTW
2tXW29bX29fZ3dja3t/h5OHj5uHj5+jp7enr7unr7+/x9PHz9v//////////
////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////////////////////yH5BAEKAH8A
LAAAAAASAA8AAAeggH+Cg4SFhoeIiYoojDaOjzYwLiiEHTk2PEM/m5wxKyge
gxMtLzVBQqipLSgpHxUbfxEnKCo9QLe4NCInJhEXfw8nJSQ7PsbHNyQlJw8W
fwsmJSEtONXWNssgDM4GJcMjM+HiOiwoGQrOEAPeJjHu7zwyLggQGIIOAgIl
Jvz9KRQFDkjgMChBAgAIEwIIQKCBBA2FOGCwQLEiRQwEFSkKBAA7
}]
set images(mbut-a) [image create photo -data {
R0lGODlhLAAaAMYAAO3t7fX19fr6+vz8/Ovr6+7u7u/v7/Ly8vn5+fPz8+jo
6OHh4eDg4N7e3t3d3dzc3Ozs7Obm5uXl5dra2tfX19vb29/f3+Tk5Pv7+/j4
+Pf39/b29uPj49bW1tTU1NXV1djY2PT09P39/f////7+/tHR0dPT08nJyc/P
z87OzsDAwNLS0vHx8dDQ0MjIyLa2ts3NzcXFxaysrMrKysPDw8vLy6Kior+/
v+rq6piYmMbGxr6+vszMzJGRkb29vcfHx4mJiby8vLe3t4GBgbu7u7Kysnp6
erq6uufn56urq3R0dMTExKSkpGxsbKGhoWdnZ19fX9nZ2cLCwllZWWJiYqOj
o1paWn19fbCwsKamprGxsWZmZpOTk1hYWLOzs29vb7m5uW5ubklJST8/P0dH
R11dXYaGhv//////////////////////////////////////////////////
/////////////////////////////////////////////////yH5BAEKAH8A
LAAAAAAsABoAAAf+gH9/AAECA4eIiYqLjIsCAQCCfwQFBgcICQoLDA2dnp+g
oZ8OD6QODBAEfxEMDAsSlwkGBRC1tre4ubcKDBMUFRUPFhcNFcUPBhgYGRrN
zs/Q0dAbBhwdHhMPDxMfwR8gISIjJOTl5AQk6Ojm7OwiGw4lJsAlJw4dKB8J
IiQj/v/+CIwQKBCgwYMDCJRI0cHBCRUOVpxYwYLfQX8RRmTMePEiCREAWrhY
4UDFiwkwYqAwMIBfOxINYMp8+VLEAAApYsCY8EJGhxk0YADIIKKoUaMmRCRN
erSp0wwAatCY0UGGjQ8ubtTAoaGlU6VgmX51OkADjho3XHywkeODjh3+JyIE
QCCgrt26PATkzXu3b18EASKc2KHDQ44eHmL4+HEhhIYMkCNDjpGBMmXJmDFr
CHHhh48YHnoAMREjyI8GBUIkWM169Y0Er1+3nj07RIEGP4LEMAFkdOnTqWmv
FpKAOHHhwm3j1s17CGkiMR4QgFCguvXqRQpkz369e/dUD2JANzHESOIjMSZI
QEKgvfv2SQjEj/++fn0kEibEQO/BiJLnS4CwwAIXDGjggEwskGCCBzZ4YIEL
gLDEeEo08UFpS1CwCQMWdOihBU6AKOKHJH7YygIUTBjDB0080YELn3XQgAMN
aGOjNk48kGOON/Z444wNdBDDDi508AQUUfC7IEUMHZRCio876ujjlE4+QMEP
NPAQBRRTRGHCD0w6+eSNUfJI5Y0OpBlFDT+YEMUUVNRAAQwuuJnmnXhW4YCe
euLpJ54NtFIBCihQUIMVV2ABQgcptNCBMTP6mYUDk07656UMXCBBAx90EIUW
WwQBBQogUODBB7+IwkQDq64qSijDXFCgBStAAcQfXHQhQwpRTBDFrxMEK+yw
xBY7rAMcJNuBF1N8IQkYYYgxxrTUVmvttdheS0YZZggSCAA7
}]
set images(mbut-arrow-n) [image create photo -data {
R0lGODlhCwALAIAAAAAAAP///yH5BAEKAAEALAAAAAALAAsAAAIUDI4Yy+3v
EniSpibvyhPreECbUwAAOw==
}]
set images(mbut-d) [image create photo -data {
R0lGODlhLAAaAMYAAOjo6Ofn5+bm5uTk5OXl5erq6uPj4+Dg4N7e3t3d3dzc
3Nvb2+Hh4dnZ2dfX19ra2tjY2Onp6d/f39XV1dLS0tDQ0NTU1M3NzcXFxdPT
08rKytHR0czMzLu7u8bGxrCwsMHBwcnJyaWlpb29vcfHx+Li4piYmMTExI2N
jcLCwrq6usPDw4WFhbm5uX19fby8vLW1tXV1dbi4uNbW1q+vr2tra7e3t8DA
wKmpqWNjY7+/v6Ojo1tbW5+fn1RUVExMTEVFRVFRUcjIyKKioklJSW5ubqqq
qsvLy6urq1dXV7a2tk1NTYSEhImJiURERKampq6urkZGRmVlZbOzs2BgYDU1
NSoqKjQ0NFBQUIKCgv//////////////////////////////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////////////////////yH5BAEKAH8A
LAAAAAAsABoAAAf+gH9/AAEChoeIiYqLjAEAgn8CAwMEBQIGBwgJm5ydnp+d
CgujCwkMAn8EnAcClgQCBLGys7S1swMIDQ4PvAoDChALEA8GABEByMnKy8zM
khITFMMQDhUNEBQWAwEREQDf4AAI4uTh5uHHAwsX1g0XGBAZGhuszcgHAfj4
9s0DCRwaMkDA0MGdhwsHXtmTEIAhQ37LJCXQcLBBhw8TNIDQgMDAAEYQBIQM
yUjRAAMJQmyc8EFEBg8jSCgo4dFWBQI3b9qqdbKEAhIjPGQQYYLCiQ4YFjAo
Malp0woDoEJ1SpVqCQYLCJ6gYAJFhRQqVjw4cJWB2bMMNKRdi7Zt2xL+Bx6s
UJGiAgoWX1ukgCDhgFuzKxgEDvz37wEJEFLorcDCRd4UDhIgmEyZ8gsEly9X
3sw5gQPFdV04Bh2ZM2UYCFCjNs3aM+gKLmJUACEDxAxQnGgk0K0bN+4ZtEFU
iFFjto0bExQoX84chwLnzplLn65gwg0bwmvkmC1Dh4UGDxTwGs9rxwPz5smr
Jy++gQUdtSvk4LFBsQ6BDfLr19+jQf/++wUoYDw36LUBDz681AEIFAi433/+
OShhfhmA0IFQPvzggAY6pNDgAxJCCOCE+4FowQk6aODAD0DMUMEJK0jDyzUQ
1FhjDxDgiKONPPYIAXgNzBACBhU4AEQQQmSA5EGR6403xANPPtnkegsoBwEH
HEwQAhFFGDFDBkdcYEEwC6wnwgNnnjmlegpItgAFGTiARBJK/HDEDBNsQMEE
ZJIyyg4LAAqon4T62SYDCCzQQAVLMPFHE048oSI1Dvho6aU9hqdcBlBEIQUk
U1BRhRWklmrqqaimiuoVWGQhSCAAOw==
}]
set images(mbut-n) [image create photo -data {
R0lGODlhLAAaAMYAAO3t7fX19fr6+vz8/O7u7vT09Pf39/j4+P7+/vPz8+vr
6+jo6OXl5ePj4+Hh4fDw8Ofn5+Tk5Pn5+dzc3NnZ2d3d3ebm5t7e3tvb2/39
/fb29tfX19XV1dra2tPT09bW1tDQ0M/Pz8fHx83NzdTU1O/v7729vcjIyLOz
s8TExMzMzMvLy6ampsDAwMnJyeDg4PHx8fLy8pmZmcbGxo+Pj8XFxby8vIaG
hru7u+rq6uzs7H5+fuLi4r+/v7e3t3Z2drq6utjY2LKysmxsbLm5ucPDw9/f
36urq2RkZMLCwqSkpF1dXaGhoVVVVU1NTUZGRlJSUsrKyqOjo0lJSW9vb6ys
rM7Ozq2trVdXV7a2tk5OToSEhImJiUVFRaioqLCwsEdHR2ZmZmFhYTY2Nisr
KzQ0NFBQUIKCgv//////////////////////////////////////////////
/////////////////////////////////////////////////yH5BAEKAH8A
LAAAAAAsABoAAAf+gH9/AAECA4eIiYqLjIsCAQCCfwQFBgcIAgkKCwydnp+g
oZ8NDqQNDA8EfxCdEQoSCAMHEge1tre4ubcFCxMUFcANFhcYxBUBGQgZGY3N
jQIaEBscHRUYFB4TGBwfBcnKy+EZCuPl4ufiygUXINkTISIYHyMkJQLo4eT6
+PwZBgwhRnzAIMLEBBAnQAAwYAifhQwPH/YTNwAagxEJJ5hAsWFEChULAmgQ
QLIkyQsCUKI0yZKlhgAMVqQYsQEFiw8nWrh4ASPGywBAg3oIMHRo0KNIRcaA
8cJFixMfWMjgMMOEiAslYBTYynWrhwJfv3YdOxZGiQsFZ3CQQcNDDRv+NSoo
AFCirt26KkrkzXu3b18ACiq8reGBxg23OGpggJBDh+PHjmvokCwZsmXLOSBg
qJHYw40diGtQ4HFKVA8Gp0+LEtWABwXOhHeAhj26dCgfDHDjXh2q9evOO354
SAEkRRAePCIoX65cSATnzplLl448CPEUHn4MGU6kyAYjL8KLF3/kRfny49Or
N7KhCBHsQ5AMB5Lkw4QKRoDpB6akQv/++wW4X34TfJBEcR4gsQQJnNWHwQQQ
RhghExNQSKGEGGYoTxGJkbBEEziZkAIHGUpoYYUlpgjhBymYAFUTTlCgQhI1
kFhBiideqKKEN34wQxIqUODEE0F4MEONGACmow0GTDLJBAZPPtnklFQ+eGMQ
K4jgAQVPQBFFRydsKaB+UlRQZpljCnhBeBiEEMIGK0xBRRVBfGAFCANdcIGA
LFTQZ59pBvhCBAxcwA0FV2CRhRNWBLEBCRxsUIwDlFaqhAOXXlrpppw6MOgD
CzhghAdabPEHF114MQIFHVDAagewxirrrLTKWkEDuH7wBRhhSIKCGGOQIeyw
xBZr7LHGlmHGGYIEAgA7
}]
set images(progress-h) [image create photo -data {
R0lGODlhIwAVAMZrABslLh8nMB0oMh8rNiMtNyEuOiQwPCQxPiUxPSc2Qys7
SS4/TzJEVjVIWzhMYDxSZz9WbEJacUVddkdhekljfU9rhVFth1JuiFRvilRw
jVNxjlRyj1Vyj1ZzkFV1k1h1kll2k1p3lFt4lVt5lVx5lV16l198mF98mWB9
mmB+mmB+m2F+mmF+m2J/m2J/nGN/nGKAnWOBnmSBnmWBnmaDoGaEoGeFoWiG
ommGo2uIpWyKpm2Kp22Lp2+MqG+MqXCNqXCOq3GOqXKOqnGQrnWTsnaUsXeU
sXiVsXeVtHiVsnmVsXmWsXqWsn2ZtX6atoCct4GeuYKeuYOeuoKfvIOfuoOf
u4Wgu4aivYqlwImmwommw4unwouoxY6pw46qxo+rxZCsxpOvyZSwy5m0zpu1
z5q20p+50qS+16bA2qvE3azG3///////////////////////////////////
/////////////////////////////////////////////////yH5BAEKAH8A
LAEAAQAhABMAAAf+gAGCg4SEBIeIiYkIBo0NVpCRkpJelZaXl0o5ODgAZ5+g
oaFqpKWmpl89NTUCaa6vsLCns6VkPzE1A2i7vL29tLRjQio0BWbHyMnJwLNh
NyUwB2HT1NXVZdjZ2tpgMiIpCV3i4+TkYufo6elYJx0vClHx8vPzWfb3+PhX
IxsoC0oAAwoUOKWgwYMHqYTgcIIBkIcQI0ZEQrGiRYtOPnAw0WCHx48gQQ4Z
SbJkySQgNjrQwbKlS5cmY5I0IkKDiQc+curcuZOIz59AgTYx8QEFhCNIkypV
irCpQSkqSLCIAKWq1atXtWjdypXrFRsrWkioQrasWbNc0qpdu3ZLkBkmLibw
mEu3bt0iePPq1fvkCpMlFCoIHkyYcIbDiBMntoDhwgUPgQAAOw==
}]
set images(progress-v) [image create photo -data {
R0lGODlhFQAjAMZrABslLh8nMB0oMh8rNiMtNyEuOiQwPCQxPiUxPSc2Qys7
SS4/TzJEVjVIWzhMYDxSZz9WbEJacUVddkdhekljfU9rhVFth1JuiFRvilRw
jVNxjlRyj1Vyj1ZzkFV1k1h1kll2k1p3lFt4lVt5lVx5lV16l198mF98mWB9
mmB+mmB+m2F+mmF+m2J/m2J/nGN/nGKAnWOBnmSBnmWBnmaDoGaEoGeFoWiG
ommGo2uIpWyKpm2Kp22Lp2+MqG+MqXCNqXCOq3GOqXKOqnGQrnWTsnaUsXeU
sXiVsXeVtHiVsnmVsXmWsXqWsn2ZtX6atoCct4GeuYKeuYOeuoKfvIOfuoOf
u4Wgu4aivYqlwImmwommw4unwouoxY6pw46qxo+rxZCsxpOvyZSwy5m0zpu1
z5q20p+50qS+16bA2qvE3azG3///////////////////////////////////
/////////////////////////////////////////////////yH5BAEKAH8A
LAEAAQATACEAAAf+gA0AAgMFBwkKCwwNDg8QERITFB4GODU1NDApLygnJp8o
LC0uSxeVNTEqJSIdGxyvGh8kKzNMpjk9P0I3MicjIR8gIiYqNkFXGAhKX2Rj
YWBYV1ROSUZNUldbTxYEXmrfamViWVNIQ0NEU1pcRRnd4OHj5efp6+3v4OLk
5ujq7O7e8snjV+8fvm/65vWzBxBeQoL+7gVEOJBexIYC91lkeDCexoUGJ3pU
WFCiw4ogTWYkebHjw40hT34smSGAlTNp0JgJ0yWKEiA7dPg4AqUKjwo2cerk
6ROoUKJGkd7MubPnz6BDix5NSpXp1adapSqt2hQr1K1Tl1p1mjUqV7UnZcG6
TUv2a1u0Y72yPSu261qzYd/W3RuYrl7Ac/P+lYvXb9y7FQIBADs=
}]
set images(radio-c) [image create photo -data {
R0lGODlhEwATAMZiAAEBASsrKzY2NklJSUpKSlhYWFxcXF9fX2VlZWpqamxs
bHBwcHFxcXV1dXd3d3h4eHl5eXt7e319fX5+foCAgIGBgYKCgoODg4aGhoeH
h4iIiIqKio6Ojo+Pj5CQkJSUlJaWlpeXl5mZmZqampycnJ6enqKioqSkpKWl
paqqqqysrLCwsLGxsbKysrOzs7W1tba2tri4uLm5ubq6uru7u7y8vL+/v8DA
wMHBwcLCwsPDw8TExMbGxsfHx8jIyMrKysvLy8zMzM3Nzc7Ozs/Pz9DQ0NHR
0dbW1tfX19jY2NnZ2dzc3N/f3+Hh4eLi4uPj4+Xl5ejo6Orq6uvr6+3t7e7u
7vDw8PLy8vT09PX19fb29vf39/j4+Pn5+fv7+/z8/P39/f7+/v//////////
////////////////////////////////////////////////////////////
/////////////////////////////////////////////////yH+FUNyZWF0
ZWQgd2l0aCBUaGUgR0lNUAAh+QQBCgB/ACwAAAAAEwATAAAH+4BBgoOEhYaE
SGGKikiHg0NhT1RaXFhVTUZDjj5JTT88oD9PSz6HOERBORkYFBM6MENENkCE
NzNBMBcaTlG9RylCMzWEKTwrCxtUXV9gX10xKzwmP4MeSBwRVF4A3ACKHEgb
OoMPVxYTW2Hd3mEWVg40gxBFHwle6t2KH0QLL4MZLF5cULROkYtjLQadsDCF
hKIsXRaFaUIhgr9BDkpMUSFRkZIRCETEG7SCQIgmUKBIqQKFCQgCElCMG/QD
hYEEJGwk2WFCQYEGIWRQI9TDBQMCAgIIGHCgAggXPQwB6SHDRIcLEi50MCGj
B61DP3TQeNHiBQ0dQx2pJRQIADs=
}]
set images(radio-u) [image create photo -data {
R0lGODlhEwATAMZhACsrKzY2NklJSUpKSlhYWFxcXF9fX2VlZWpqamxsbHBw
cHFxcXV1dXd3d3h4eHl5eXt7e319fX5+foCAgIGBgYKCgoODg4aGhoeHh4iI
iIqKio6Ojo+Pj5CQkJSUlJaWlpeXl5mZmZqampycnJ6enqKioqSkpKWlpaqq
qqysrLCwsLGxsbKysrOzs7W1tba2tri4uLm5ubq6uru7u7y8vL+/v8DAwMHB
wcLCwsPDw8TExMbGxsfHx8jIyMrKysvLy8zMzM3Nzc7Ozs/Pz9DQ0NHR0dbW
1tfX19jY2NnZ2dzc3N/f3+Hh4eLi4uPj4+Xl5ejo6Orq6uvr6+3t7e7u7vDw
8PLy8vT09PX19fb29vf39/j4+Pn5+fv7+/z8/P39/f7+/v//////////////
////////////////////////////////////////////////////////////
/////////////////////////////////////////////////yH+FUNyZWF0
ZWQgd2l0aCBUaGUgR0lNUAAh+QQBCgB/ACwAAAAAEwATAAAH8oBAgoOEhYaE
R2CKikeHg0JgTlNZW1dUTEVCjj1ITD47oD5OSj2HN0NAOBgXExI5L0JDNT+E
NjJALxYZTVC9RihBMjSEKDsqChpTXF5fXlwwKjslPoMdRxsQU12LixtHGjmD
DlYVElrcixVVDTODD0QeCNvoYB5DCi6DGCsuFvSKLY6xGGSigpQRirBw4cZk
AoR8gxqQkJKCXhIRB0K0G6RiAAgmT55EofJkyYcBEU6EG+TjRAEEI2og0VEi
AQEGIGJQI8SjxYIBAQAEEGCAwocWPAz94BGjBAcLESxwKBGDB61DPnLMcMHC
xYwcOx2JJRQIADs=
}]
set images(tab-n) [image create photo -data {
R0lGODlhGAAgAIQAAI+Pj1lZWVhYWOHh4eXl5dzc3NTU1NXV1d3d3dDQ0NLS
0tjY2Ovr69bW1unp6c7Ozs/Pz+fn583NzczMzNHR0cvLy+Li4srKyt/f38nJ
ycjIyNnZ2f///////////////yH5BAEKAB8ALAAAAAAYACAAAAX84AcEgWCe
aEoCnxgMRCHPdE0MARsYB0L8wKAQcTAEPoKEYsFoOp/QhSIhQCYSDYd2y+02
rlXBA3KImM/o9AHyCEsmFKE8SJlIwpNKwsLv+/8JFRN4en+GfoGDSBMXEBiP
kJGSEBeKAhUZEjWbNBIZFWEVGhMLpaanqBMaoEiiFQawsbKzrmEXq7O5sqIX
tqtXwMHCgRq9SLd6w8rExgLIy8q8vsnQwdLHv9XWxdPa283P3lfXztni5OHn
3NjU3ujm7uvlFQr19vf45JgSuv2erJcaNRhIsKBBSgArCDTIkCDCUBUgoJp4
CkKFhBE3aNzIsaNFjJo4cZJwsUoIADs=
}]
set images(tab-p) [image create photo -data {
R0lGODlhGAAgAMYAALa2tnV1dU5OTjw8PDs7O4yMjFNTU66uruDg4PPz89/f
37W1tVtbW9HR0efn5/z8/P7+/nl5eampqdzc3Pn5+VVVVdDQ0Nra2tfX1/j4
+P39/VFRUdLS0vX19VZWVszMzM3NzfLy8lxcXNTU1MfHx8nJye3t7fb29mFh
YcXFxcbGxujo6GdnZ8/Pz8LCwsTExPDw8Gtra87OzsHBwcPDw+Hh4evr63Fx
ccDAwOrq6nd3d7+/v3x8fOLi4r6+vtnZ2dvb29bW1t3d3YeHh4+Pj5eXl9jY
2KCgoNXV1aioqNPT08rKysvLy///////////////////////////////////
////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////////////////////yH5BAEKAH8A
LAAAAAAYACAAAAf+gH9/AAECAwSIiYoEAwIBAIKCBQYHCAkKmJmaCgkIBwYF
ggsMDQ4PEA+pqqunDw4NDAt/ERITCBQQubq7uhQIExIRfxUWFxgZGrzKGhkY
FxYVfxsXHBwdGtjZ2tkd1Rcbfx4XHyAhFKzoFCEgHxcefyIjJCUmJxT3+PkU
JyYlJCMi/qBokELFigQIEypMuEJFigYo/rBo4eKFAxgYM2rM6OCFixYsJFK0
uLEkxo4fQ8aQMYNGDRM2YsqcacNEDRozZMT4c0MGjhkIcqwYSrToihwIZuCQ
ceOPDhA7ZkxYUaOq1as1VkyYsQOEjj88PuzAMaHHprM9JuDY8YEH2A/MPnb8
UACkrt27QBT82OGjLVioO4IIwUC4sGEMQoLs6OqWB2DBhyMnXgyi8ePBkQ1P
Zvx3MeTMhTdX7hwYM2jEijk79mwatGjLrE8Tfk3682naQy4H2c27t+DUIIb8
IeITRxAgvpMjx7GUyPDix5P7Xt78T5EGOINcMMK9u3cjF4K0bFDkzxEkKl4c
n8C+vfsJyF+oQHLkTxIkH1QIfs8/sYoPSCTxxwItKLGEEkhUo+CC1SBhoBIt
yJICE0o00MKFGGaoYQNKMJHCH4EAADs=
}]
set images(tbar-a) [image create photo -data {
R0lGODlhCAAcAOcAAAAAAAEBAQICAgMDAwQEBAUFBQYGBgcHBwgICAkJCQoK
CgsLCwwMDA0NDQ4ODg8PDxAQEBERERISEhMTExQUFBUVFRYWFhcXFxgYGBkZ
GRoaGhsbGxwcHB0dHR4eHh8fHyAgICEhISIiIiMjIyQkJCUlJSYmJicnJygo
KCkpKSoqKisrKywsLC0tLS4uLi8vLzAwMDExMTIyMjMzMzQ0NDU1NTY2Njc3
Nzg4ODk5OTo6Ojs7Ozw8PD09PT4+Pj8/P0BAQEFBQUJCQkNDQ0REREVFRUZG
RkdHR0hISElJSUpKSktLS0xMTE1NTU5OTk9PT1BQUFFRUVJSUlNTU1RUVFVV
VVZWVldXV1hYWFlZWVpaWltbW1xcXF1dXV5eXl9fX2BgYGFhYWJiYmNjY2Rk
ZGVlZWZmZmdnZ2hoaGlpaWpqamtra2xsbG1tbW5ubm9vb3BwcHFxcXJycnNz
c3R0dHV1dXZ2dnd3d3h4eHl5eXp6ent7e3x8fH19fX5+fn9/f4CAgIGBgYKC
goODg4SEhIWFhYaGhoeHh4iIiImJiYqKiouLi4yMjI2NjY6Ojo+Pj5CQkJGR
kZKSkpOTk5SUlJWVlZaWlpeXl5iYmJmZmZqampubm5ycnJ2dnZ6enp+fn6Cg
oKGhoaKioqOjo6SkpKWlpaampqenp6ioqKmpqaqqqqurq6ysrK2tra6urq+v
r7CwsLGxsbKysrOzs7S0tLW1tba2tre3t7i4uLm5ubq6uru7u7y8vL29vb6+
vr+/v8DAwMHBwcLCwsPDw8TExMXFxcbGxsfHx8jIyMnJycrKysvLy8zMzM3N
zc7Ozs/Pz9DQ0NHR0dLS0tPT09TU1NXV1dbW1tfX19jY2NnZ2dra2tvb29zc
3N3d3d7e3t/f3+Dg4OHh4eLi4uPj4+Tk5OXl5ebm5ufn5+jo6Onp6erq6uvr
6+zs7O3t7e7u7u/v7/Dw8PHx8fLy8vPz8/T09PX19fb29vf39/j4+Pn5+fr6
+vv7+/z8/P39/f7+/v///yH5BAEKAP4ALAAAAAAIABwAAAhoABsJHNjoX8F/
CBMW5MeQX8GFDR/+20dxn0R9GPVdzCgxn8d8EvGJxCfxnsl7JU9KtMfSnsR6
MOu9jCmRnk16EufpnCdRnk95PX9KjEc0nkR4SOEdTRrUZ82bK1uGHLkRo0SC
BxNqDQgAOw==
}]
set images(tbar-n) [image create photo -data {
R0lGODlhCAAdAIQAAPz8/Pv7+/n5+fj4+Pf39/b29vX19fT09PPz8/Ly8vHx
8fDw8O/v7+7u7u3t7ezs7Ovr6+rq6unp6ejo6Ofn5+bm5uXl5eTk5OLi4uHh
4eDg4OPj4/39/fr6+vr6+vr6+iH5BAEKAB8ALAAAAAAIAB0AAAVrICCOY2Ce
pqCu6uC+LiHPRGHc+H3s/IEkwCBQQSwqFoykktFoOpuOh3T6gFiv1ohky5VM
vuAvpUIuVyzoNPrCbrMx8Dg8Q6/TNfg8fsPv8ymAgYAQEYWGEUxPTQdGRQMF
kJEFACwrHJeYlyEAOw==
}]
set images(tbar-p) [image create photo -data {
R0lGODlhCAAcAOcAAAAAAAEBAQICAgMDAwQEBAUFBQYGBgcHBwgICAkJCQoK
CgsLCwwMDA0NDQ4ODg8PDxAQEBERERISEhMTExQUFBUVFRYWFhcXFxgYGBkZ
GRoaGhsbGxwcHB0dHR4eHh8fHyAgICEhISIiIiMjIyQkJCUlJSYmJicnJygo
KCkpKSoqKisrKywsLC0tLS4uLi8vLzAwMDExMTIyMjMzMzQ0NDU1NTY2Njc3
Nzg4ODk5OTo6Ojs7Ozw8PD09PT4+Pj8/P0BAQEFBQUJCQkNDQ0REREVFRUZG
RkdHR0hISElJSUpKSktLS0xMTE1NTU5OTk9PT1BQUFFRUVJSUlNTU1RUVFVV
VVZWVldXV1hYWFlZWVpaWltbW1xcXF1dXV5eXl9fX2BgYGFhYWJiYmNjY2Rk
ZGVlZWZmZmdnZ2hoaGlpaWpqamtra2xsbG1tbW5ubm9vb3BwcHFxcXJycnNz
c3R0dHV1dXZ2dnd3d3h4eHl5eXp6ent7e3x8fH19fX5+fn9/f4CAgIGBgYKC
goODg4SEhIWFhYaGhoeHh4iIiImJiYqKiouLi4yMjI2NjY6Ojo+Pj5CQkJGR
kZKSkpOTk5SUlJWVlZaWlpeXl5iYmJmZmZqampubm5ycnJ2dnZ6enp+fn6Cg
oKGhoaKioqOjo6SkpKWlpaampqenp6ioqKmpqaqqqqurq6ysrK2tra6urq+v
r7CwsLGxsbKysrOzs7S0tLW1tba2tre3t7i4uLm5ubq6uru7u7y8vL29vb6+
vr+/v8DAwMHBwcLCwsPDw8TExMXFxcbGxsfHx8jIyMnJycrKysvLy8zMzM3N
zc7Ozs/Pz9DQ0NHR0dLS0tPT09TU1NXV1dbW1tfX19jY2NnZ2dra2tvb29zc
3N3d3d7e3t/f3+Dg4OHh4eLi4uPj4+Tk5OXl5ebm5ufn5+jo6Onp6erq6uvr
6+zs7O3t7e7u7u/v7/Dw8PHx8fLy8vPz8/T09PX19fb29vf39/j4+Pn5+fr6
+vv7+/z8/P39/f7+/v///yH5BAEKAP4ALAAAAAAIABwAAAh8AKUIHDiwWbaD
CKVsa8eQ4T+FDR1K0cauYsWH1Mpp1IhxI0cp1MiJFIlxJEmQJsmVNNnR48Ns
6GLGfClzpkKLF2/ifMjNnU+fD8HNGzo0KNGiUsDRW7o0KNOmUsrdmzr1oVSq
9x6aw8eVq9auXqVsBfsQXb6zZ63+W8s2IAA7
}]
set images(tree-n) [image create photo -data {
R0lGODlhDAAYAKUpACAhITU2N4aHioqLjouMj4yNj4yOkY2OkY2Oko+QlJGS
lZOVmJaYm5qbn5ydoZ2fop+hpKCipbm6vtbX3Nrb39vc4N3e4t7g49/g5OHj
5uLk5+Pk6OTl6ebn6+bo6+rr7+7v8/L09/T2+fX3+vb4+/j5/fn6/vv8//z9
////////////////////////////////////////////////////////////
/////////////////////////////////yH5BAEKAD8ALAAAAAAMABgAAAaD
QElgSCwCSJ2kcik4iZ7QaAFlqlqvB1Rpy+0OUKSweDw4jc7oNOEUarvfa5B8
Th+YPvi8nkDy+P+AfBqDhIUEIxiJiosGIxaPkJEIIxSVlpcJIxWbnJ0KjpGh
CyMXpaanDCMZq6ytDSQcsbKzD7CztxAkG7u8vREincEVEBMRxsfIDkEAOw==
}]
set images(tree-p) [image create photo -data {
R0lGODlhDAAYAMZxADU2NzY3ODk5Oj0+P0FBQ0VFR0hJSk1OT1FSVFdXWVxd
X2FiZGdoam1ucHFydXZ3enx9gIKDg4GDhoaIi4yNkJCRlJSVmZianZydoaCi
paGjpqKjp6OkqKSlqaanq6aoq6aorKeprKiqramrrqqrr6ussKutsaytsayu
sq2usq2vs66vs66wtK+xtbCytbGytrKzt7K0uLO1uLO1ubW3u7a3u7a4u7a4
vLe5vbi5vbi6vbm7vrm7v7q7v7u8wLy9wby+wr2+wr2/wr2/w76/w77AxL/A
xMDBxcDCxsHCxMHCxsHDx8LDx8PEyMTFycXGysbHy8bIzMfIzMfJzMjJzcjK
zcjKzsnLzsnLz8rLz8rM0MvM0MvN0czO0czO0s7Q09HS1tPV2dTV2dTW2dXW
2tnb3t3f4uHj5uLj5+Xn6ubn6+fp7Orr7+zt8fHy9vP0+PT1+P//////////
/////////////////////////////////////////////////yH5BAEKAH8A
LAAAAAAMABgAAAf+gACCg4IBhhE9PT5IXI1cNTExAkZHUmFsmGw6LiwDTUtd
aHCjcEKcBEVHXmpvrW9GLCoFRkFYa264bj8nKAZAPVRnbcNtOyMnBz05TGVp
zmkyISUIODI/ZGbZZiweIwkzKTZgYuRiJhwiCi0lL1uOXCQbIQsrJCxVUflR
IhohDCchVDgZQnCIiAwgGpAAcYIIj4c8QmTw4GCEhxJAaGikIdHDg4UnhtQY
WYOfBwglQqQggqMljhEbPkhAMaLFER84fZjoEGKCihMxpDAZykSFhxAUWLDA
kQWKUygxQoSo0CLGkC9asmrpUUKEBRg3nIyxQtaKkhcoLhRxciWKjrcOOsBM
eYIhg927eDMkCQQAOw==
}]
set images(vsb-n) [image create photo -data {
R0lGODlhEAAWAKUiACY9ZiY+ZyY+aCc+aCc/ai1FcDFJczFJdDdOeDdPeUVP
YkZRYzxUfkFYgUxjik1ji1JokFhulVlvll1zmV91nGZ1j2V6n2V6oGV7oWp/
o2qApWuBpm+EqHCEqXKHq3eLr32StYWZu///////////////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////yH+FUNyZWF0ZWQgd2l0aCBUaGUg
R0lNUAAh+QQBCgA/ACwAAAAAEAAWAAAGmcCFYkgsFheLkHLJXCqQocQE5Nlo
MhNGgzB4Jg8Pz6fDwWQbgC4UvPF0NBgJgxFQfx+bzgZjiczrXiFsHRgZEn50
doJ4hBSHf4qDGI6IgGuMk4+JgZKUkJyYnpuXeZmVkaGalneloquLeXt9n1AF
Dhodb3FzAooGCRl6GBcYDw8DvggQEswRExgYCQaBTdUhXkbZREgV2tkLQQA7
}]
set images(vsb-p) [image create photo -data {
R0lGODlhEAAWAKUnAFtmeFxneldvmFhwmlhxmllxm1pznWB5pGN8pmN8p2R9
p2mBq2mCrG6HsHGKsnKKs3yTunyUvIaVsIGYv4adxIeexYifxouhx4uhyI2k
ypGnzZKozpOpz5Op0Jar0Jet0piu05uw1Jux1Z6z2KK326i84K7D5f//////
////////////////////////////////////////////////////////////
/////////////////////////////////yH+FUNyZWF0ZWQgd2l0aCBUaGUg
R0lNUAAsAAAAABAAFgAABpvAAGBILBYDAZNyyVwCkCYGpjQCfTyXhsNQeCYV
kRFJFOJgGg9BFwoGjUQfjqXRGKy/EZAIxNFU6HZeJm0iHR4Wf3V3g3mFGYiA
i4Qdj4mBbI2UkIqCk5WRnZmfnJh6mpaSopuXeKajrIx6fH6gUAcQHyJwcnQE
iwkMHnsdGxwREQWLCAsTFs4UFxwcDAmCTdcmXkbbREgS3NsBQQA7
}]
set images(vsb-t) [image create photo -data {
R0lGODlhEAAJAOMKAKOjps7P0tXW2dzd4Obn6u7v8vP1+Pj5/fv8//3+////
/////////////////////yH5BAEKAA8ALAAAAAAQAAkAAAQpEAQxSDEHpc2B
pBamcZs3VVdGlh8qrokJpiMpu+p6h7nd8rXOjwYDRAAAOw==
}]
set images(vslider-n) [image create photo -data {
R0lGODlhEgALAMZbAAoRHAwTIBATGAwUIQ0VIw4WJQ8XJw8YKRMaJxEbLRkc
IhIdMRQgNhYjOxYkPRgmQCElLyAmMSEoNBoqRxsrSCMrNygsMyUtPB0uTR0v
Tx4xUicwQCAzVSA0VyozRSE2Wio1Ryo1SyU3WCI4XSM5XyM5YCQ6YiQ7YiU8
ZSY9ZiY+ZyY+aCc+aDE9VCc/aSdAayhAayhBbSlCbilCbylDcCpDcSpEcixI
eC9IdjpHX0tLTUlOVlBQUDpTf0pce09mj1hmf2tsbmxtb1pwmGZ0jGF4n3V2
d3B5h3l5emZ8o31/g3OIrXiNsZCRkpGRkZSUlI+XpoWZu5manZ+lr66urqyw
uMDAwMHBwsTExMvLy8zMzP//////////////////////////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////////////////////yH+FUNyZWF0
ZWQgd2l0aCBUaGUgR0lNUAAh+QQBCgB/ACwAAAAAEgALAAAHj4BaV0c5LSEg
HhsXFRIREAI8TlhVJSw0MjArKCYkIx8dGg4AOlRENkxLSUM/PTg1MzEvLioU
Ck8pUaiqrK6wsiopAUguuamrra+xsykGQcS6x73KwAZCz8a8yb/MRivFu8i+
ywRNPjfQ2eIqHBZWUCc2ReDSLykZA0pZWlNAIhgTDxowWJDgQAEEO6Ro0RII
ADs=
}]
set images(vslider-t) [image create photo -data {
R0lGODlhDwASAMZEAC0uLzMzNDU2Nz8/QUFCQ0hJS01OT09QUlNUVVRUVlpb
XV1dYF9gYmJjZWVmaHBxc3FydYWGiJKSkpydoZ6fo6CipaKioqOjo6SkpKan
q6qqqq2trbCwsLS2ure5vb2/w7/AxcDBxsHDx8LDyMLEyMPFycTGysXHy8bI
zMfJzcjKzsnLz8rL0MrM0MvM0cvN0czN0szO0s7Q1NDS1tHT19PU2NPV2dTW
2tXW29bX29fZ3dja3t/h5OHj5uHj5+jp7enr7unr7+/x9PHz9v//////////
////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////////////////////yH5BAEKAH8A
LAAAAAAPABIAAAeigH+Cfx0TEQ8LBhCDjCg5LScnJiUDDoyCKDYvKCWdJQIJ
lyg8NSokISSfCRyMNkNBPTstI5MAGK0/QkA+ODMxJgAWuLq8vsDCgza5u72/
wcPMxs/Jy8XOyILKxM3HjDAxLTQ3Njo8KQHYfy4rKCKpLDIUBOkoKCknJSco
LgUNt4wePpg4ASIDggMSWF2qcIiBAggSNFwStOGChYsYFE7cOCgQADs=
}]

Added demo/themes/keramik/images.tgz.

cannot compute difference between binary files

Changes to demo/themes/keramik/keramik.tcl.

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
..
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
...
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
# keramik.tcl - 
#
# A sample pixmap theme for the tile package.
#
#  Copyright (c) 2004 Googie
#  Copyright (c) 2004 Pat Thoyts <[email protected]>
#
# $Id: keramik.tcl,v 1.1 2009/09/09 19:19:07 oberdorfer Exp $

package require Tk 8.4;                 # minimum version for Tile
package require tile 0.8.0;             # depends upon tile 0.8.0


namespace eval ttk {
    namespace eval theme {
        namespace eval keramik {
            variable version 0.5.1
        }
    }
}

namespace eval ttk::theme::keramik {





























    variable colors
    array set colors {
        -frame      "#dddddd"
        -lighter    "#cccccc"
        -window     "#ffffff"
        -selectbg   "#eeeeee"
        -selectfg   "#000000"
        -disabledfg "#aaaaaa"
    }

    proc LoadImages {imgdir} {
        variable I
        foreach file [glob -directory $imgdir *.gif] {
            set img [file tail [file rootname $file]]
            set I($img) [image create photo -file $file -format gif89]
        }
    }

    LoadImages [file join [file dirname [info script]] keramik]

    ttk::style theme create keramik -parent alt -settings {


        # -----------------------------------------------------------------
        # Theme defaults
        #
        ttk::style configure . \
            -borderwidth 1 \
	    -foreground "Black" \
            -background $colors(-frame) \
            -troughcolor $colors(-lighter) \
	    -fieldbackground $colors(-window) \
            -font TkDefaultFont \
            ;

        ttk::style map . -foreground [list disabled $colors(-disabledfg)]
                
        # -----------------------------------------------------------------
        # Button elements
        #  - the button has a large rounded border and needs a bit of
        #    horizontal padding.
        #  - the checkbutton and radiobutton have the focus drawn around 
        #    the whole widget - hence the new layouts.
        #
        ttk::style layout TButton {
            Button.background
            Button.button -children {
                Button.focus -children {
                    Button.label
................................................................................
            Toolbutton.background
            Toolbutton.button -children {
                Toolbutton.focus -children {
                    Toolbutton.label
                }
            }
        }

        ttk::style element create button image [list $I(button-n) \
                {pressed !disabled}	$I(button-p) \
                {active !selected}	$I(button-h) \
                selected		$I(button-s) \
                disabled		$I(button-d)] \
            -border {8 6 8 16} -padding {6 6} -sticky news
        ttk::style configure TButton -padding {10 6} -anchor center

        ttk::style element create Toolbutton.button image [list $I(tbar-n) \
                {pressed !disabled}	$I(tbar-p) \
                {active !selected}	$I(tbar-a) \
                selected                $I(tbar-p)] \
            -border {2 9 2 18} -padding {2 2} -sticky news
	ttk::style configure Toolbutton -anchor center

        ttk::style element create Checkbutton.indicator \
	    image [list $I(check-u) selected $I(check-c)] \
            -width 20 -sticky w

        ttk::style element create Radiobutton.indicator \
	    image [list $I(radio-u) selected $I(radio-c)] \
            -width 20 -sticky w

        # The layout for the menubutton is modified to have a button element
        # drawn on top of the background. This means we can have transparent
        # pixels in the button element. Also, the pixmap has a special
        # region on the right for the arrow. So we draw the indicator as a
        # sibling element to the button, and draw it after (ie on top of) the
        # button image.
        ttk::style layout TMenubutton {
................................................................................
            }
            Menubutton.indicator -side right
        }
        ttk::style element create Menubutton.button image [list $I(mbut-n) \
                {active !disabled}      $I(mbut-a) \
                {pressed !disabled}     $I(mbut-a) \
                {disabled}              $I(mbut-d)] \
            -border {7 10 29 15} -padding {7 4 29 4} -sticky news
        ttk::style element create Menubutton.indicator image $I(mbut-arrow-n) \
            -width 11 -sticky w -padding {0 0 18 0}

	ttk::style element create Combobox.field image [list $I(cbox-n) \
	        {readonly disabled}     $I(mbut-d) \
		{readonly active}       $I(mbut-a) \
		{readonly}              $I(mbut-n) \
		{disabled}              $I(cbox-d) \
		{active}                $I(cbox-a) \
	    ] -border {9 10 32 15} -padding {9 4 8 4} -sticky news
	ttk::style element create Combobox.downarrow image $I(mbut-arrow-n) \
	    -width 11 -sticky e -border {22 0 0 0}

        # -----------------------------------------------------------------
        # Scrollbars, scale and progress elements
        #  - the scrollbar has three arrow buttons, two at the bottom and
        #    one at the top.
        #
        ttk::style layout Vertical.TScrollbar {
            Scrollbar.background 
            Vertical.Scrollbar.trough -children {
                Scrollbar.uparrow -side top
                Scrollbar.downarrow -side bottom
               Vertical.Scrollbar.thumb -side top -expand true -sticky ns
            }
        }
        
        ttk::style layout Horizontal.TScrollbar {
            Scrollbar.background 
            Horizontal.Scrollbar.trough -children {
                Scrollbar.leftarrow -side left
                Scrollbar.rightarrow -side right
                Horizontal.Scrollbar.thumb -side left -expand true -sticky we
            }
        }

        ttk::style element create Horizontal.Scrollbar.thumb \
	    image [list $I(hsb-n) {pressed !disabled} $I(hsb-p)] \
            -border {6 4} -width 15 -height 16 -sticky news
	ttk::style element create Horizontal.Scrollbar.trough image $I(hsb-t)

        ttk::style element create Vertical.Scrollbar.thumb \
	    image [list $I(vsb-n) {pressed !disabled} $I(vsb-p)] \
            -border {4 6} -width 16 -height 15 -sticky news
	ttk::style element create Vertical.Scrollbar.trough image $I(vsb-t)
        
        ttk::style element create Horizontal.Scale.slider image $I(hslider-n) \
	    -border 3
	ttk::style element create Horizontal.Scale.trough image $I(hslider-t) \
	    -border {6 1 7 0} -padding 0 -sticky wes
        
        ttk::style element create Vertical.Scale.slider image $I(vslider-n) \
            -border 3
	ttk::style element create Vertical.Scale.trough image $I(vslider-t) \
	    -border {1 6 0 7} -padding 0 -sticky nes
        
        ttk::style element create Horizontal.Progressbar.pbar \
	    image $I(progress-h) -border {1 1 6}
        
        ttk::style element create Vertical.Progressbar.pbar \
	    image $I(progress-v) -border {1 6 1 1}
        
        ttk::style element create uparrow \
	    image [list $I(arrowup-n) {pressed !disabled} $I(arrowup-p)]
                  
        ttk::style element create downarrow \
	    image [list $I(arrowdown-n) {pressed !disabled} $I(arrowdown-p)]

        ttk::style element create rightarrow \
	    image [list $I(arrowright-n) {pressed !disabled} $I(arrowright-p)]

        ttk::style element create leftarrow \
	    image [list $I(arrowleft-n) {pressed !disabled} $I(arrowleft-p)]

	# Treeview elements
	#
	ttk::style element create Treeheading.cell \
	    image [list $I(tree-n) pressed $I(tree-p)] \
	    -border {5 15 5 8} -padding 12 -sticky ewns

        # -----------------------------------------------------------------
        # Notebook elements
        #
        ttk::style element create tab \
	    image [list $I(tab-n) selected $I(tab-p) active $I(tab-p)] \
            -border {6 6 6 4} -padding {6 3} -height 12

	ttk::style configure TNotebook -tabmargins {0 3 0 0}
	ttk::style map TNotebook.Tab \
	    -expand [list selected {0 3 2 2} !selected {0 0 2}]

	## Settings.
	#
	ttk::style configure TLabelframe -borderwidth 2 -relief groove
	ttk::style configure Treeview.Row -background $colors(-window)
	ttk::style configure Treeview.Heading -borderwidth 0
    }
}


































package provide ttk::theme::keramik $::ttk::theme::keramik::version
|






|


|
>




|





|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>









|
<
<
<
<
<
<
<
<
<
<

|
|




|
|
|
|
|
|
|
|

|




|







 







|





|

|




|
|
|

|
|
|

|
|
|







 







|

|
|
|
|
|
|
|
|
|
|
|
|






|



|




|






|

|
|
|
|

|
|
|


|
|
|


|
|
|


|


|


|
|

|
|

|
|

|
|
|
|
|
|
|
|




|
|
|
|
|
|
|
|
|
|
|
|



>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

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
..
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
...
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
# keramik.tcl -
#
# A sample pixmap theme for the tile package.
#
#  Copyright (c) 2004 Googie
#  Copyright (c) 2004 Pat Thoyts <[email protected]>
#
# $Id: keramik.tcl,v 1.2 2009/09/16 20:42:00 oberdorfer Exp $

package require Tk 8.4;                 # minimum version for Tile
package require tile 0.8;               # depends upon tile


namespace eval ttk {
    namespace eval theme {
        namespace eval keramik {
            variable version 0.5.2
        }
    }
}

namespace eval ttk::theme::keramik {
    
    variable I
    
    set thisDir  [file dirname [info script]]
    set imageDir [file join $thisDir "images"]
    set imageLib [file join $thisDir "ImageLib.tcl"] \
            
    # try to load image library file...
    if { [file exists $imageLib] } {
        
        source $imageLib
        array set I [array get images]
        
    } else {
        
        proc LoadImages {imgdir {patterns {*.gif}}} {
            foreach pattern $patterns {
                foreach file [glob -directory $imgdir $pattern] {
                    set img [file tail [file rootname $file]]
                    if {![info exists images($img)]} {
                        set images($img) [image create photo -file $file]
                    }
                }}
            return [array get images]
        }
        
        array set I [LoadImages $imageDir "*.gif"]
    }
    
    variable colors
    array set colors {
        -frame      "#dddddd"
        -lighter    "#cccccc"
        -window     "#ffffff"
        -selectbg   "#eeeeee"
        -selectfg   "#000000"
        -disabledfg "#aaaaaa"
    }
    










    ttk::style theme create keramik -parent alt -settings {
        
        
        # -----------------------------------------------------------------
        # Theme defaults
        #
        ttk::style configure . \
                -borderwidth 1 \
                -foreground "Black" \
                -background $colors(-frame) \
                -troughcolor $colors(-lighter) \
                -fieldbackground $colors(-window) \
                -font TkDefaultFont \
                ;
        
        ttk::style map . -foreground [list disabled $colors(-disabledfg)]
        
        # -----------------------------------------------------------------
        # Button elements
        #  - the button has a large rounded border and needs a bit of
        #    horizontal padding.
        #  - the checkbutton and radiobutton have the focus drawn around
        #    the whole widget - hence the new layouts.
        #
        ttk::style layout TButton {
            Button.background
            Button.button -children {
                Button.focus -children {
                    Button.label
................................................................................
            Toolbutton.background
            Toolbutton.button -children {
                Toolbutton.focus -children {
                    Toolbutton.label
                }
            }
        }
        
        ttk::style element create button image [list $I(button-n) \
                {pressed !disabled}	$I(button-p) \
                {active !selected}	$I(button-h) \
                selected		$I(button-s) \
                disabled		$I(button-d)] \
                -border {8 6 8 16} -padding {6 6} -sticky news
        ttk::style configure TButton -padding {10 6} -anchor center
        
        ttk::style element create Toolbutton.button image [list $I(tbar-n) \
                {pressed !disabled}	$I(tbar-p) \
                {active !selected}	$I(tbar-a) \
                selected                $I(tbar-p)] \
                -border {2 9 2 18} -padding {2 2} -sticky news
        ttk::style configure Toolbutton -anchor center
        
        ttk::style element create Checkbutton.indicator \
                image [list $I(check-u) selected $I(check-c)] \
                -width 20 -sticky w
        
        ttk::style element create Radiobutton.indicator \
                image [list $I(radio-u) selected $I(radio-c)] \
                -width 20 -sticky w
        
        # The layout for the menubutton is modified to have a button element
        # drawn on top of the background. This means we can have transparent
        # pixels in the button element. Also, the pixmap has a special
        # region on the right for the arrow. So we draw the indicator as a
        # sibling element to the button, and draw it after (ie on top of) the
        # button image.
        ttk::style layout TMenubutton {
................................................................................
            }
            Menubutton.indicator -side right
        }
        ttk::style element create Menubutton.button image [list $I(mbut-n) \
                {active !disabled}      $I(mbut-a) \
                {pressed !disabled}     $I(mbut-a) \
                {disabled}              $I(mbut-d)] \
                -border {7 10 29 15} -padding {7 4 29 4} -sticky news
        ttk::style element create Menubutton.indicator image $I(mbut-arrow-n) \
                -width 11 -sticky w -padding {0 0 18 0}
        
        ttk::style element create Combobox.field image [list $I(cbox-n) \
                {readonly disabled}     $I(mbut-d) \
                {readonly active}       $I(mbut-a) \
                {readonly}              $I(mbut-n) \
                {disabled}              $I(cbox-d) \
                {active}                $I(cbox-a) \
                ] -border {9 10 32 15} -padding {9 4 8 4} -sticky news
        ttk::style element create Combobox.downarrow image $I(mbut-arrow-n) \
                -width 11 -sticky e -border {22 0 0 0}
        
        # -----------------------------------------------------------------
        # Scrollbars, scale and progress elements
        #  - the scrollbar has three arrow buttons, two at the bottom and
        #    one at the top.
        #
        ttk::style layout Vertical.TScrollbar {
            Scrollbar.background
            Vertical.Scrollbar.trough -children {
                Scrollbar.uparrow -side top
                Scrollbar.downarrow -side bottom
                Vertical.Scrollbar.thumb -side top -expand true -sticky ns
            }
        }
        
        ttk::style layout Horizontal.TScrollbar {
            Scrollbar.background
            Horizontal.Scrollbar.trough -children {
                Scrollbar.leftarrow -side left
                Scrollbar.rightarrow -side right
                Horizontal.Scrollbar.thumb -side left -expand true -sticky we
            }
        }
        
        ttk::style element create Horizontal.Scrollbar.thumb \
                image [list $I(hsb-n) {pressed !disabled} $I(hsb-p)] \
                -border {6 4} -width 15 -height 16 -sticky news
        ttk::style element create Horizontal.Scrollbar.trough image $I(hsb-t)
        
        ttk::style element create Vertical.Scrollbar.thumb \
                image [list $I(vsb-n) {pressed !disabled} $I(vsb-p)] \
                -border {4 6} -width 16 -height 15 -sticky news
        ttk::style element create Vertical.Scrollbar.trough image $I(vsb-t)
        
        ttk::style element create Horizontal.Scale.slider image $I(hslider-n) \
                -border 3
        ttk::style element create Horizontal.Scale.trough image $I(hslider-t) \
                -border {6 1 7 0} -padding 0 -sticky wes
        
        ttk::style element create Vertical.Scale.slider image $I(vslider-n) \
                -border 3
        ttk::style element create Vertical.Scale.trough image $I(vslider-t) \
                -border {1 6 0 7} -padding 0 -sticky nes
        
        ttk::style element create Horizontal.Progressbar.pbar \
                image $I(progress-h) -border {1 1 6}
        
        ttk::style element create Vertical.Progressbar.pbar \
                image $I(progress-v) -border {1 6 1 1}
        
        ttk::style element create uparrow \
                image [list $I(arrowup-n) {pressed !disabled} $I(arrowup-p)]
        
        ttk::style element create downarrow \
                image [list $I(arrowdown-n) {pressed !disabled} $I(arrowdown-p)]
        
        ttk::style element create rightarrow \
                image [list $I(arrowright-n) {pressed !disabled} $I(arrowright-p)]
        
        ttk::style element create leftarrow \
                image [list $I(arrowleft-n) {pressed !disabled} $I(arrowleft-p)]
        
        # Treeview elements
        #
        ttk::style element create Treeheading.cell \
                image [list $I(tree-n) pressed $I(tree-p)] \
                -border {5 15 5 8} -padding 12 -sticky ewns
        
        # -----------------------------------------------------------------
        # Notebook elements
        #
        ttk::style element create tab \
                image [list $I(tab-n) selected $I(tab-p) active $I(tab-p)] \
                -border {6 6 6 4} -padding {6 3} -height 12
        
        ttk::style configure TNotebook -tabmargins {0 3 0 0}
        ttk::style map TNotebook.Tab \
                -expand [list selected {0 3 2 2} !selected {0 0 2}]
        
        ## Settings.
        #
        ttk::style configure TLabelframe -borderwidth 2 -relief groove
        ttk::style configure Treeview.Row -background $colors(-window)
        ttk::style configure Treeview.Heading -borderwidth 0
    }
}


namespace eval ::tablelist:: {
    
    proc keramikTheme {} {
        variable themeDefaults
        array set themeDefaults [list \
                -background		white \
                -foreground		black \
                -disabledforeground	#aaaaaa \
                -stripebackground	"" \
                -selectbackground	#000000 \
                -selectforeground	#ffffff \
                -selectborderwidth	0 \
                -font			TkTextFont \
                -labelbackground	#cccccc \
                -labeldisabledBg	#cccccc \
                -labelactiveBg		#cccccc \
                -labelpressedBg		#cccccc \
                -labelforeground	black \
                -labeldisabledFg	#aaaaaa \
                -labelactiveFg		black \
                -labelpressedFg		black \
                -labelfont		TkDefaultFont \
                -labelborderwidth	2 \
                -labelpady		1 \
                -arrowcolor		black \
                -arrowstyle		flat8x5 \
                ]
    }
}



package provide ttk::theme::keramik $::ttk::theme::keramik::version

Changes to demo/themes/keramik/pkgIndex.tcl.

1
2
3
4
5
6
7
8
9
10
11
12
# pkgIndex.tcl for additional tile pixmap themes.
#
# We don't provide the package is the image subdirectory isn't present,
# or we don't have the right version of Tcl/Tk
#
# $Id: pkgIndex.tcl,v 1.1 2009/09/09 19:19:07 oberdorfer Exp $

if {![file isdirectory [file join $dir keramik]]} { return }
if {![package vsatisfies [package provide Tcl] 8.4]} { return }

package ifneeded ttk::theme::keramik 0.5.1 \
    [list source [file join $dir keramik.tcl]]
<
<
<
<
<
<
<
<
<
<
|










1
2









package ifneeded ttk::theme::keramik 0.5.2 \
    [list source [file join $dir keramik.tcl]]

Added demo/themes/keramik_alt/CreateImageLib.def.








>
>
>
>
1
2
3
4
hsb-a
hsb-h
vsb-a
vsb-h

Added demo/themes/keramik_alt/ImageLib.tcl.


















































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
# ImageLib.tcl ---
# Automatically created by: CreateImageLibCmd.tcl

set images(hsb-a) [image create photo -data {
R0lGODdhFgAQAKUAAJeXl4mJiXZ2dv///4eHh8jIyMfHx8nJyc7Ozs3Nzdra
2tzc3Obm5t/f3+3t7fDw8PHx8fX19fz8/OXl5fLy8vj4+O7u7unp6ePj4+zs
7Ovr6+Tk5NLS0tTU1NPT0729vby8vLu7u7m5ub+/v///////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////ywAAAAAFgAQAAAGk0BAYEgsGo+C
gXLJbDYJyULBcKhar1fEADpIIBSLsHg8ZmyTDccDwm672xHJeTCh2O94fKQS
mU8gFBAWg4SFgIF+Fg8WF42Ojg6KFA9zGBkWGhOam5wagw5zDBYTG6Wmp6UT
DGZcFgscsLGysxxzrrS4HB0ecwgfICHBwsPCIiNzBR/Ky8zNymcE0dLT1NVC
R9jYQQA7
}]
set images(hsb-h) [image create photo -data {
R0lGODdhFgAQAIQAAJeXl5KSknZ2dv///5CQkN7e3t/f3+Dg4OTk5OPj4+/v
7/Hx8fv7+/T09Pr6+v7+/vj4+Pn5+ejo6Orq6unp6dPT09LS0tHR0c/Pz9bW
1v///////////////////////ywAAAAAFgAQAAAFbiAQjGRpnsKgrmzbEmlh
FEdt3zcywEOCKIugcDhk7FINl/KVciyfx4ETquRNB4+sVuviQVaOsHjMlEoj
6LQa7WA4eYOFZE6v2yXR+H0vmVCiCBUWF4SFhoUYGVEGFY2Oj5CNRwSUlZaX
mCInm5shADs=
}]
set images(vsb-a) [image create photo -data {
R0lGODdhEAAWAKUAAImJiYeHh////87Ozubm5vz8/PX19fHx8fDw8O3t7dLS
0tPT07+/v729vcnJydzc3Pj4+PLy8u7u7tTU1Lm5ueXl5bu7u+vr6+Tk5Onp
6cfHx9ra2ry8vMjIyOzs7M3Nzd/f3+Pj45eXl3Z2dv//////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////ywAAAAAEAAWAAAGmkBAYEgsFgEA
gXLJXAaQggGhYDggEgTFgtF4Jh0PAyQSkWQnlC4UfDBEEJKKQmFRfx+HyEFy
wczrXgJsZQkVfnR2gnhlGYZ/iYMSjYeAa4uSjoiBkZOPm5edmpZ5mJSQoJmV
d6Shqoqsqad5e32eUBobCGRwcgociR0DCXoSHhIPDw3AHyAVziEEEhIDHYFN
1wJPIiPc3d7eIkEAOw==
}]
set images(vsb-h) [image create photo -data {
R0lGODdhEAAWAIQAAJKSkpCQkP///+Tk5Pv7+/r6+ujo6Onp6dbW1tPT0+Dg
4PHx8erq6s/Pz9HR0fn5+f7+/t7e3u/v79LS0t/f3+Pj4/T09Pj4+JeXl3Z2
dv///////////////////////ywAAAAAEAAWAAAFdSAQjGRZAoCgruwaoMJA
tIVxIMmbKktLGIxGDsajGQyO4a7HehyTOkFxVXAilVKmAFJ9Yqfb7jUK5lqh
RK3ZS1aL0cvVepyWv7/uM96ub7f6MBESRgYTWBQDLQILCwlYERUWBZMXBSoD
FFGKii8YGZ+goaEYIQA7
}]

Added demo/themes/keramik_alt/images.tgz.

cannot compute difference between binary files

Changes to demo/themes/keramik_alt/keramik_alt.tcl.

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
# keramik.tcl - 
#
# A sample pixmap theme for the tile package.
#
#  Copyright (c) 2004 Googie
#  Copyright (c) 2004 Pat Thoyts <[email protected]>
#
# $Id: keramik_alt.tcl,v 1.1 2009/09/09 19:21:14 oberdorfer Exp $

package require Tk 8.4;                 # minimum version for Tile
package require tile 0.8.0;             # depends upon tile 0.8.0
package require ttk::theme::keramik;    # the parent theme

namespace eval ttk {
    namespace eval theme {
        namespace eval keramik_alt {
	    variable version 0.5.1
	}
    }
}

namespace eval ttk::theme::keramik_alt {





























    variable colors
    array set colors {
        -frame      "#dddddd"
        -lighter    "#cccccc"
        -window     "#ffffff"
        -selectbg   "#eeeeee"
        -selectfg   "#000000"
        -disabledfg "#aaaaaa"
    }

    proc LoadImages {imgdir} {
        variable I
        foreach file [glob -directory $imgdir *.gif] {
            set img [file tail [file rootname $file]]
            set I($img) [image create photo -file $file -format gif89]
        }
    }

    LoadImages [file join [file dirname [info script]] keramik_alt]

    ttk::style theme create keramik_alt -parent keramik -settings {

        # -----------------------------------------------------------------
        # Theme defaults
        #
        ttk::style configure . \
            -borderwidth 1 \






|








|





>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>











<
<
<
<
<
<
<
<
<
<







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
# keramik.tcl - 
#
# A sample pixmap theme for the tile package.
#
#  Copyright (c) 2004 Googie
#  Copyright (c) 2004 Pat Thoyts <[email protected]>
#
# $Id: keramik_alt.tcl,v 1.2 2009/09/16 20:43:49 oberdorfer Exp $

package require Tk 8.4;                 # minimum version for Tile
package require tile 0.8.0;             # depends upon tile 0.8.0
package require ttk::theme::keramik;    # the parent theme

namespace eval ttk {
    namespace eval theme {
        namespace eval keramik_alt {
	    variable version 0.5.2
	}
    }
}

namespace eval ttk::theme::keramik_alt {

    variable I
    
    set thisDir  [file dirname [info script]]
    set imageDir [file join $thisDir "images"]
    set imageLib [file join $thisDir "ImageLib.tcl"] \
            
    # try to load image library file...
    if { [file exists $imageLib] } {
        
        source $imageLib
        array set I [array get images]
        
    } else {
        
        proc LoadImages {imgdir {patterns {*.gif}}} {
            foreach pattern $patterns {
                foreach file [glob -directory $imgdir $pattern] {
                    set img [file tail [file rootname $file]]
                    if {![info exists images($img)]} {
                        set images($img) [image create photo -file $file]
                    }
                }}
            return [array get images]
        }
        
        array set I [LoadImages $imageDir "*.gif"]
    }

    variable colors
    array set colors {
        -frame      "#dddddd"
        -lighter    "#cccccc"
        -window     "#ffffff"
        -selectbg   "#eeeeee"
        -selectfg   "#000000"
        -disabledfg "#aaaaaa"
    }











    ttk::style theme create keramik_alt -parent keramik -settings {

        # -----------------------------------------------------------------
        # Theme defaults
        #
        ttk::style configure . \
            -borderwidth 1 \

Changes to demo/themes/keramik_alt/pkgIndex.tcl.

2
3
4
5
6
7
8
9
10
11
12
13
14
15
#
# We don't provide the package is the image subdirectory isn't present,
# or we don't have the right version of Tcl/Tk
#
# To use this automatically within tile, the tile-using application should
# use tile::availableThemes and tile::setTheme 
#
# $Id: pkgIndex.tcl,v 1.1 2009/09/09 19:21:14 oberdorfer Exp $

if {![file isdirectory [file join $dir keramik_alt]]} { return }
if {![package vsatisfies [package provide Tcl] 8.4]} { return }

package ifneeded ttk::theme::keramik_alt 0.5.1 \
    [list source [file join $dir keramik_alt.tcl]]






|

<


|

2
3
4
5
6
7
8
9
10

11
12
13
14
#
# We don't provide the package is the image subdirectory isn't present,
# or we don't have the right version of Tcl/Tk
#
# To use this automatically within tile, the tile-using application should
# use tile::availableThemes and tile::setTheme 
#
# $Id: pkgIndex.tcl,v 1.2 2009/09/16 20:43:49 oberdorfer Exp $


if {![package vsatisfies [package provide Tcl] 8.4]} { return }

package ifneeded ttk::theme::keramik_alt 0.5.2 \
    [list source [file join $dir keramik_alt.tcl]]

Added demo/themes/plastik/CreateImageLib.def.










































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
arrow-d
arrowdown-n
arrowdown-p
arrowleft-n
arrowleft-p
arrowright-n
arrowright-p
arrowup-n
arrowup-p
border
button-h
button-n
button-p
check-hc
check-hu
check-nc
check-nu
check-pc
combo-a
combo-f
combo-fa
combo-n
combo-r
combo-ra
entry-f
entry-n
hprogress-b
hprogress-t
hsb-g
hsb-n
hsb-t
hslider-n
hslider-t
notebook-c
notebook-ta
notebook-tn
notebook-ts
radio-hc
radio-hu
radio-nc
radio-nu
radio-pc
tbutton-h
tbutton-n
tbutton-p
tree-n
tree-p
vprogress-b
vsb-g
vsb-n
vsb-t
vslider-n
vslider-t

Added demo/themes/plastik/ImageLib.tcl.




















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
# ImageLib.tcl ---
# Automatically created by: CreateImageLibCmd.tcl

set images(arrow-d) [image create photo -data {
R0lGODlhBwAEAIABAAAAAP///yH5BAEKAAEALAAAAAAHAAQAAAIIhA+BGWoN
WSgAOw==
}]
set images(arrowdown-n) [image create photo -data {
R0lGODlhEAAQAIQSAAAAAIyNkLm6u8PEyc7P1dDR19LT2dXW3NfY3trb4dzd
497f5eHi6OPk6ubn7ejp7+vs8vT09s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1iH5BAEKAB8ALAAAAAAQABAAAAVXoBCMZFmK
UKqu6xg9TsMsSoIcRkEMLizTNpyOF3jFZrVbbtc7ApXDJmBKBSyJxkYVIGQW
fQwq1JudAYLX5i/ZxYKfbTUSHf062WnRYM/v7wMCHyImhIEhADs=
}]
set images(arrowdown-p) [image create photo -data {
R0lGODlhEAAQAIQUAIeHh6mpqcDAwMHBwcLCwsPDw8TExMXFxcbGxsfHx8jI
yMnJycrKysvLy8zMzM3Nzc7Ozs/Pz9DQ0NHR0f//////////////////////
/////////////////////////yH5BAEKAB8ALAAAAAAQABAAAAVeYACMZFmK
QjqsA+EWcDEKxoEgibIsTOM4k1ntltv1fkEAzYbT8XxAIbP4REqJzmNUOaR4
vxQrlwmmQJNL4leLHjYp1W26aTxf6fH2NGsXPf4QgRGDEoUAAR8iJouIIQA7
}]
set images(arrowleft-n) [image create photo -data {
R0lGODlhEAAQAKUpAAAAAIyNkLm6u8PEycTFysbHzMjJzsrL0MzN0s7P1M7P
1dDR1tDR19HT2NLT2dPV2tXW3NXX3NfY3tfZ3tnb4Nrb4dzd493f5N7f5d7g
5eDi5+Hi6OLk6OPk6uTm6ubn6+bn7ejp7ejp7+rr7uzt8O7u8fDw8/Ly9PT0
9s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1iH5BAEKAD8ALAAAAAAQABAAAAZ+
wJ8gQCwai4IhaslsMoknkXRKlVKIJpB2y9VOiKWOeAwYiyNE0ma9BgDY6wdx
hKlj3AB7vUEMWf54AH+DC0QfFYgVeImICUQeEpGRbpKRCEQcEJqbAJuaB0Qa
DqOkpaMGRBkMq6ytqwVEFwqztLWzBAFDA7u8vbwBQkfCRAJBADs=
}]
set images(arrowleft-p) [image create photo -data {
R0lGODlhEAAQAIQUAIeHh6mpqcDAwMHBwcLCwsPDw8TExMXFxcbGxsfHx8jI
yMnJycrKysvLy8zMzM3Nzc7Ozs/Pz9DQ0NHR0f//////////////////////
/////////////////////////yH5BAEKAB8ALAAAAAAQABAAAAVv4BcAZGmW
wSisbMuSgiHPtMyQw6HvvH4DBIRwSBQ2SMEigkI8AgqJqJRCkSYcJINiu6VS
uAos4LAoL7wU8+JBIqu9aggJwajbqXaGHJBo+P8NFIARJGEOh4iJDoQAhoqK
EgAjE5SVlpUAIiebJAEhADs=
}]
set images(arrowright-n) [image create photo -data {
R0lGODlhEAAQAKUoAAAAAIyNkLm6u8PEycXGy8fIzcnKz8vN0s3P1M7P1dDR
1tDR19LT2NLT2dTW29XW3NbY3dfY3tja39rb4drc4dzd497f5d7g5eDi5uHi
6OHj5+Pk6uPl6eXm6ubn7ebo6+jp7ejp7+rr7uvs7+3u8O/v8vDx8/T09s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1iH5BAEKAD8ALAAAAAAQABAAAAZ/
QEFgSCwSBb/AaclsMgNCU2hKrU4pw5Jny+1uJUPSZrwBkM+Q4SjDzgAA7bZj
KLLYLW/A3c4YgiqAFXkAgRUKQx8TihN5i4oIQx0RkxFvlJQHQxwPnA8AnaAG
QxoNpaanpQVDGAutrq+tBEMXCbW2t7UDQwO8vb69UEJGw1A/QQA7
}]
set images(arrowright-p) [image create photo -data {
R0lGODlhEAAQAIQUAIeHh6mpqcDAwMHBwcLCwsPDw8TExMXFxcbGxsfHx8jI
yMnJycrKysvLy8zMzM3Nzc7Ozs/Pz9DQ0NHR0f//////////////////////
/////////////////////////yH5BAEKAB8ALAAAAAAQABAAAAVvYACMZEkG
HyCsbMsC4mDMdD0v43DsfL8zIwJiSCwOgYCCkWJENEaFhFRKoUyljpFBweVW
KV1FFnBYmM1fyvkxKp8X3zdkhGDY7dW7fQ5INP5/FICAESMJDoiJiogSI2KL
kI0AE5SVlpUwIiabMB8hADs=
}]
set images(arrowup-n) [image create photo -data {
R0lGODlhEAAQAIQSAAAAAIyNkLm6u8PEyc7P1dDR19LT2dXW3NfY3trb4dzd
497f5eHi6OPk6ubn7ejp7+vs8vT09s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1iH5BAEKAB8ALAAAAAAQABAAAAVY4CcEZGmS
ghhAbOuywRg9TsMsSoIcRkEMpFntltv1fkGaDafj+YAB4bLoREaVN0DzCJUy
AGDjM1kDm6tdmnnNJU+34+uQKbZ66Wg3EW4d+P+AgDEnhCUCIQA7
}]
set images(arrowup-p) [image create photo -data {
R0lGODlhEAAQAIQUAIeHh6mpqcDAwMHBwcLCwsPDw8TExMXFxcbGxsfHx8jI
yMnJycrKysvLy8zMzM3Nzc7Ozs/Pz9DQ0NHR0f//////////////////////
/////////////////////////yH5BAEKAB8ALAAAAAAQABAAAAVf4BcAZGmS
gQgI7OAScCEDo2AcCJIoy8I0DseEZMPpeD6gkHjL7Xq/4HDVPEKV06ITGV1S
jTtKUsoEU87dbPXMxpYR7Dj5u73OtdaxF//UTx+AEIIQEYUShxI0J4slASEA
Ow==
}]
set images(border) [image create photo -data {
R0lGODlhDwATAKEDAIaGhra2tu/v7////yH5BAEKAAMALAAAAAAPABMAAAIp
XICpEAYCoxTszUstlmjP7kVgmJHQGKKeurGYe8GfltKr3R4k4yxLUwAAOw==
}]
set images(button-h) [image create photo -data {
R0lGODlhFwAXAOcOAIyNkIGbt5Gsxp+xw7m6u7DC1cTFysXHzMfIzcjKz8rL
0MvN0s3O087Q1c/Q1s/Q19DQ1tDQ18/R1s/R19DR1tDR19HS2NHS2dLS2NHT
2NLT2dLT2tPT2dPT2tLU2dLU2tPU2dPU2tTU29TV29TV3NXV29XV3NTW29XW
29XW3NXW3dbW3NbW3dXX3NXX3dbX3NbX3dfX3tfY3tfY39fZ3tfZ39jZ4NnZ
4Nja39ja4Nna39na4Nra4drb4drb4trc4drc4tvc4dvc49zc4tzc49vd49zd
4tzd493e5N3e5d7e5N7e5d3f5N3f5d7f5t/f5d/f5t7g5d7g5t/g5d/g5t/h
5uDh5+Dh6OHh6ODi5+Hi5+Hi6OHi6eLi6eHj6eLj6OLj6ePk6ePk6uPk6+Tk
6uTk6+Pl6uPl6+Tl7OXl6+Xl7OTm6uTm7OXm6+Xm7OXn6+bn7ebn7ufn7efn
7ubo7ebo7ufo7Ofo7ujp7enq7uvr7+zt8O3u8e7v8vDw8/Hx9M/Q1s/Q1s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1iH5BAEKAIAALAAAAAAXABcAAAj+AAERAECwoMGD
BgkIBCCgocOHEB8CGFigosWLGDMS/DOno8ePID/+IOgHDpw4JuHQQRlHDpw6
dO7AkTOnDg6CfdCwSdMGjRo3btgEZdOmjZs2Qt3QIMhHjFMyUM2UEWNGzJiq
Y8ScGVOmBcE9W7xw6eIFTJezXcyCUQvmC5gTBPVYmXtlrpUrWLJksaIlC5a8
eT0QzPMEipQoU6gYnvLECRQoU6RQoZI4A0E8SDJrVsKEM5ImmZMwybyEAkE7
RIaoJiJkSBEhRY4QOWLkiGzbDU7z6MG7d48fvX0A+RHkBxAfuQG8wYFDx40c
OGzk2LEjhw7pO25Qz8GA4BoZMmKXgB8vYwb4GjTGm19AMEyLFPBVrGAxnwUM
GC9guHjh4r4Cgl+MIMIIBJJA4AgojGCgCQqagEIJCRCUhQYcgBACBxt08EEH
IYSgQQgfdCgiAgRVYcGJKKZoQQYrXrCiBRgcQFAUEFQQQQUOTCBBBBQ88IAE
FTxQYwUVTGAAQQMkqeSSTDY5EQABRCnllFROOdFCCGV5kEIBAQA7
}]
set images(button-n) [image create photo -data {
R0lGODlhFwAXAOeGAIyNkLm6u8PEycTFysXHzMfIzcjKz8rL0MvN0s3O087P
1s/P1s7Q1c7Q1s/Q1c/Q1tDR1tDR19DR2NHR19HR2NDS19DS2NHS2dLS2NLS
2dHT2NHT2dLT2NLT2dLU2dPU2tPU29TU2tPV2tPV29TV3NXV29XV3NTW29TW
3NXW29XW3NXX3NbX3dbX3tfX3dbY3dfY39jY3tjY39fZ3tfZ39jZ3tjZ39ja
39na4Nna4dra4Nra4dnb4Nrb4Nrb4dvb4dvb4trc4drc4tvc4dvc4tvd4tzd
493d49ze493e493e5N3e5d7e5N3f5N3f5d7f5N7f5d7g5d/g5t/g5+Dg5t/h
5uHh6ODi5+Di6OHi5+Hi6OLj6OLj6eLj6uPj6eLk6ePk6ePk6uPk6+Tk6uTk
6+Pl6uPl6+Tl6uTl6+Tm6uXm7OXm7ebm7OXn6+Xn7Obn7ebn7ufn7efn7ubo
7ebo7ufo7Ofo7efo7ujp7ejp7+jp8Onp7+jq7+nq7uvr7+zt8O3u8e7v8vDw
8/Hx9PLy9fT09s7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P
1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P
1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P
1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P
1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P
1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P
1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P
1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P1c7P
1c7P1c7P1c7P1c7P1c7P1SH5BAEKAP8ALAAAAAAXABcAAAj+AP8FAECwoMGD
BgMIBFCoocOHEB8CGEgoj8WLGDNiLEJwkJ49FkHm4TNS48UgBAXFsXPHDp07
cubEoTPHzhs5ceC8eQPnBsFAa9SocaOGjVCjQ5MKFTqDICAzZNCcmUrmjJkx
YcSECYNGzJkyY1YQ/MOFSxcvXL6UXcuW7QmCfrRowWIFi5YsVqxcuZLlyl2/
VrR4INhHihQqVAwrniJlSmLFhjUQxNNEyRMoTKBc1pwZsxMnTZY8gUCwjpEj
SJAYQZLktJHXrF/LZlD6hxAhRIgM+UEENxDdt33wFkIbQBsdPHjgWJ4jB44d
OJAvn94jAcE0NmrIoBEju43tMGKjyIhRA8Z4GQgIgnHRgj2LF+/jv4DPosX7
FgcIbjGRQgUJEiqckAIKKKhQggkqmFCCCimYYABBV4AQwggTfmChCB+EAMKF
H4xgYQEEVdGBBh1c0MEGHZTYAQcaZIBBix1g0AEBBEVhAQUSRJDjBBH0WMEE
O0ZgQY8DENTEA0g68MACDTzQgAMLMIlkAwow8IAAEwEgwJZcdulllxMthNCY
BykUEAA7
}]
set images(button-p) [image create photo -data {
R0lGODlhFwAXAIQVAIeHh6mpqcXFxcbGxsfHx8jIyMnJycrKysvLy8zMzM3N
zc7Ozs/Pz9DQ0NHR0dLS0tPT09TU1NXV1dbW1t/f3///////////////////
/////////////////////////yH+FUNyZWF0ZWQgd2l0aCBUaGUgR0lNUAAs
AAAAABcAFwAABZogFQBkaZ5mIAJC677wC4yCYd94jjPkoP86HmBwKBqPyGOD
REg6k0sAAUGtWq/WaAHLxTpIhYR4TC6TvwCDeW1GGxTwuHwuf5AO9DzdDjgs
/oCBgoEQJAiDiIOFAAgMjo+QkZCLCZKWkhEkCQ2cnZ6fnpkACqCloKIKDqqr
rK2sEiQLrrOusACytLkOsCMTvr/AwcAzKyjGJyohADs=
}]
set images(check-hc) [image create photo -data {
R0lGODlhEwANAOMLADIyMoyNkJaWloeivZSuyKu9zrm6u7zN3N/i5ejr7fL0
9f///////////////////yH5BAEKAA8ALAMAAAANAA0AAAQ60IRJa5Ak6z0m
EYBwjKDQBQSgCgqonp8ayqZ3uHQBHwkuJDobbhVE+WgwGgIHKxWeJdhgSq1e
LFhDBAA7
}]
set images(check-hu) [image create photo -data {
R0lGODlhEwANAOMNAIyNkIeivZSuyKu9zrm6u7zN3N/i5eLl6OXo6+jr7ezu
8O/x8/L09f///////////yH5BAEKAA8ALAMAAAANAA0AAAQ+kIBJK5Ai6x2m
KGAIDh3wMWjKkF6xvPDCmoVi38r8JXyf6AWEcIgAHo7IA9DAbBqAg6g0WhIE
rtjsxcIlRAAAOw==
}]
set images(check-nc) [image create photo -data {
R0lGODlhEwANAIQVADIyMoyNkJaWlrm6u9/f3+Hh4eTk5Ofn5+rq6uzs7O3t
7e7u7u/v7/Ly8vT09PX19fb29vj4+Pr6+vz8/P7+/v//////////////////
/////////////////////////yH5BAEKAB8ALAMAAAANAA0AAAVD4BCMZBmI
VKqu1EgJgDDNsBC5QC5IcP64vVgu1nBBgjoIw+VwBAVNhauBJCKAw+cBp1sE
DVhBYlwrjAjotJpwMrkHIQA7
}]
set images(check-nu) [image create photo -data {
R0lGODlhEwANAIQUAIyNkLm6u9/f3+Hh4eTk5Ofn5+rq6uzs7O3t7e7u7u/v
7/Dw8PLy8vT09PX19fb29vj4+Pr6+vz8/P7+/v//////////////////////
/////////////////////////yH5BAEKAB8ALAMAAAANAA0AAAVCYACMZAmI
U6qu0zhJcBxDbmTft+NCfN8zrodwOFS4GshkEuFiOJ9Pg2tBrVYLroR2uyW4
DuBweDASmM9owcnEDoQAADs=
}]
set images(check-pc) [image create photo -data {
R0lGODlhEwANAOMMAIKCgoyNkJKSkoeivZSuyKu9zrm6u7+/v7zN3N/i5ejr
7fL09f///////////////yH5BAEKAA8ALAMAAAANAA0AAAQ90IRJa5Ak6z0m
OcCBjODRBQQghAu4np8ayqaHuHQBIwp+KDobDhAKonzEEIyWABFhpYK0BBtY
r9iLZWuIAAA7
}]
set images(combo-a) [image create photo -data {
R0lGODlhIAAWAIQXAIyNkIGbt5Gsxp+xw7m6u7DC1cTExMnM0svO1MzP1c7R
18/T2dHU2tLW3NTX3dbZ39fb4dnc4tre5Nzf5d3h59/j6eDk6v//////////
/////////////////////////yH5BAEKAB8ALAAAAAAgABYAAAW94EcAZGme
aEqIgOG+8AsIdG3bwGhcfO/3s4JwSBQOAqTdb3kJWp7QqOWYZC6Dlax2W6G2
rL8gZUwuU7xKMC84abvfE7QaKChI7vi8RD5v1iOAgYIRfHNBEIiJihCFakEP
kJGSD41gQQ6YmZoOlVZBDaChog2dTEEMqKmqDKVXdQuwsbILrWF1Cri5ugq1
PkEJwMHCCb10BQjIycoIxWt1B9DR0gfNfgUD2Nna2EgjfX4B4eLj4jksKejp
JSshADs=
}]
set images(combo-f) [image create photo -data {
R0lGODlhIAAWAKU9AE9riIyNkICfvYa357m6u7PD08PEycTFysXHzMfIzcjK
z8rL0MvN0s3O087P1c7Q1c/Q1tDR1tHS2NHT2NLT2dLU2dTV29TW29XX3NbX
3dfY3tfZ3tja39na4Nrb4drc4dvd4tzd497f5d7g5N/g5t/h5eDi5uHi6OHj
5+Lj6eLk6OPl6eTl6+Xm6ubn6+bn7efo7Ofo7ujp7enq7enq8Orr7uvs7+3t
8O7u8e/v8vDw8/Hx9PT09v///////////yH5BAEKAD8ALAAAAAAgABYAAAbs
wF9BQCwaiYGkcskMEIQCgHRKnQZ42KxW64z2vuDwdxDY0c7oNBoU8IrfZF1s
Tq/TP23AGx7Ivf6AgYAceXtiZDgsiouMixuFhmBkNymVlpeWGJCRPWQ2J6Ch
oqEXm5FkNSSqq6yrFaaGZDMitLW2tROwe2QyIb6/wL8RunwwHsfIycgPxIcB
Lh3R0tPSDc1hZC0a29zd3AzXkgErGeXm5+YL4WMBKhbv8PHwCuudASgU+fr7
+gn1ZCYkCBxIcCCCfwFKQFjIsCHDAwhHOJhIsSJFAwGGDNjIsSPHAAZCihw5
0gmUIyibqFTyJAgAOw==
}]
set images(combo-fa) [image create photo -data {
R0lGODlhIAAWAIQaAE9riIyNkIGbt4CfvZGsxp+xw4a357m6u7DC1bPD08nM
0svO1MzP1c7R18/T2dHU2tLW3NTX3dbZ39fb4dnc4tre5Nzf5d3h59/j6eDk
6v///////////////////////yH5BAEKAB8ALAAAAAAgABYAAAXH4JcMZGmS
QaqubHCIAyDP9BwQeK7rbqz9wODPcEMYj0hjQRDwCZ9EAiJDrVozyybgCS1i
vuAwJuvkAqOIi3rNvpC35nPRQq/bLe+4XFrp+/8VeXoaaBSGh4gUgnpoE46P
kBOLcWgSlpeYEpNmaBGen6ARm1xoEKanqBCjXVIPrq+wD6tCaA62t7gOs0Fo
Db6/wA27ewgMxsfIDMNDRQvOz9ALy4RFCtbX2ArTaAXd3t/dTCMG5OXm5TcC
6uvs6y4wJ/Et8yovIQA7
}]
set images(combo-n) [image create photo -data {
R0lGODlhIAAWAKU6AIyNkLm6u8TExMPEycTFysXHzMfIzcjKz8rL0MvN0s3O
087P1c7Q1c/Q1tDR1tHS2NHT2NLT2dLU2dTV29TW29XX3NbX3dfY3tfZ3tja
39na4Nrb4drc4dvd4tzd497f5d7g5N/g5t/h5eDi5uHi6OHj5+Lj6eLk6OPl
6eTl6+Xm6ubn6+bn7efo7Ofo7ujp7enq7enq8Orr7uvs7+3t8O7u8e/v8vDw
8/Hx9PT09v///////////////////////yH5BAEKAD8ALAAAAAAgABYAAAbb
wF8AQCwaj8hkQAgQOJ/QJyBHrVqtgKFAx+16uwBcbEwukzvE7XetA9xc8Lg8
zkmz1wAba8/v8zN2d14ANSmGh4iHGIGCXAA0JpGSk5IVjI0AMySbnJ2cFJeC
ADIhpaanphKhdwAwH6+wsbAQq2wALx65uru6DrV4LRvCw8TDDL9fACsazM3O
zQrIgyoX1dbX1gnSYCgW3t/g3wjbjicT5+jp6AfkbSUR8PHy8QbtACMP+fr7
+gX2Ig0CChwokIA9EAsSKlyocEAWAI3ADJhIsWLFLEySaNxYZEkQADs=
}]
set images(combo-r) [image create photo -data {
R0lGODlhIAAWAMZSAIyNkLm6u8PEycTFysXGy8XHzMbIzcfIzcjJzsjKz8nK
z8rL0MrM0cvN0szN0s3O087P1c7Q1c/Q1tDR1tHS19HS2NHT2NLT2dLU2dPV
2tTV29TW29XW29XX3NbX3dbY3dfY3tfZ3tja39na39na4Nrb4drc4dvd4tzd
493f5N7f5d7g5N7g5d/g5t/h5d/h5uDi5uDi5+Hi6OHj5+Lj6OLj6eLk6OPk
6ePl6eTl6+Tm6uXm6uXn6+bn6+bn7efo7Ofo7ujp7enq7enq7unq8Orr7uvr
7+vs7+zt8O3t8O3u8e7u8e7v8u/v8vDw8/Hx9PLy9fT09v//////////////
////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////////////////////yH5BAEKAH8A
LAAAAAAgABYAAAf+gH8BAISFhoeIiQGCAFGOj5CPjZGUjgCDUESam5yaJgBP
naKaJ4RPQKipqqgjAE6rsKifrj61tre1IQBNuL21IoRMOcPExcMfAEvGy8O6
AEo10dLT0RwASdTZ0R2ESDLf4OHfGQBH4uffG4RGLe3u7+0YAEXw9fGEQyr6
+/z6FABC+gnUZ4FQEBQIEypEOAHAwYUQUTQE8KOExYsYLUagmLGjRkI8SIgc
SVLkAwA9Sqo0SUgHiJcwY750AGCHzJsvGxC64aGnz589GQDAAbRozwWEaGhY
yrTpUgUAbDidujQBoRgXsmrdmhUBgBlcw2Y9QOhFhbNo0541AACG2rc2ZwsQ
YiGhrt27dQkAcIG3b90BhFJAGEy48GDAKwwrHizgEgABkCNLjvx4smXIlxgl
2sy50KJAADs=
}]
set images(combo-ra) [image create photo -data {
R0lGODlhIAAWAMZOAIyNkIGbt5Gsxp+xw7m6u7DC1cTFysXGy8XHzMbIzcfI
zcjJzsjKz8nKz8rL0MrM0cvN0szN0s3O087Q1c/Q1tDR1tHS19HS2NHT2NLT
2dLU2dPV2tTV29TW29XW29XX3NbX3dbY3dfY3tfZ3tja39na39na4Nrb4drc
4dzd497f5d7g5d/g5t/h5d/h5uDi5uDi5+Hi6OHj5+Lj6OLj6eLk6OPk6ePl
6eTl6+Tm6uXm6uXn6+bn6+bn7efo7Ofo7ujp7enq7enq7urr7uvr7+vs7+zt
8O3t8O3u8e7u8e7v8u/v8vDw8/Hx9P//////////////////////////////
////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////////////////////yH5BAEKAH8A
LAAAAAAgABYAAAf+gH8EAISFhoeIiQSCAAKOj5CPjZGUjgCDBZmam5sAnJ+d
AE0/pKWmpCUATKespCiETD2ys7SyIwBLtbqyJIRKOMDBwsAhAEnDyMC3AEg0
zs/Qzh4AR9HWzh+ERjHc3d7cGwBF3+TcHYRELOrr7OoaAEPt8u6EQir3+Pn3
FgBB+v/3MBACkqKgwYMFKwAgiLBhCoUAfJyYSLHixAkRLWq8SGiHiY8gQ36U
AICHyJMjCeUQwbKlS5YRAOh4SZMlBEI2QOjcyVPnAwA3egrV6YDQDA5IkypF
2gBAjaVQkTIgBCOD1atYrS4AICOrV6sKCLm4QLasWbIJALw4y5YsAkIvKyjI
nUtX7gEALerqlWuA0IC/gAMHBiC48OBBARIrXqwYAOPHjRcNSkS5cqFFgQAA
Ow==
}]
set images(entry-f) [image create photo -data {
R0lGODlhDwATAMIFAE9riICfvYa357PD0+/v7////////////yH5BAEKAAcA
LAAAAAAPABMAAAM0eBPcHkMFQKsFcJbNexEM4I2gNnaleHLpyobu1sazW6/3
mZMw3ds/XFCXERiPSFBk8XhEEgA7
}]
set images(entry-n) [image create photo -data {
R0lGODlhDwATAMIEAIyNkLm6u8TExO/v7////////////////yH5BAEKAAcA
LAAAAAAPABMAAAMveAHcDkEBQasVcJLN+2aCJxLg6JUmh6akxrbhu6azWY+3
mJ8uu3c/1UIWWTwekQQAOw==
}]
set images(hprogress-b) [image create photo -data {
R0lGODlhGAATAKU3AGV4i2CDp2CEqGGEqWGFqWKGqmKGq2OGrGKHrGOHrGOH
rWSHrWOIrWSIrWSIrmSIr2SJrmSJr2WJr2WJsGSKr2WKsGaKsWWLsWaLsmaM
smeMsWeMs2aNs2eNsmeNs2eNtGiNs2eOtGiOs2iOtWmOtGiPtmmPtWmPtmmP
t2mQt2mQuGqQtmqQt2qQuGqRuWuRuGuRuWuSuWuSumySumyTu2+YwKy2wP//
/////////////////////////////////yH5BAEKAD8ALAAAAAAYABMAAAbb
wJ8NQCwaj0ebECBrOp21qHQqAwxdn6xWe6F5v18XjdjamM/nymzNZrdmRBV6
TonZ73dVjJjC+P9/ETCDhIQpMEQogIsQL46PjygvRCUWlpeXDCybnJwlLJQV
oqOjCSunqKglK0QjE6+wsAgntLW1IyetEru8vAYmwMHBIyZEIQ/IyckFJM3O
ziEkRB8O1dbWBCLa29sfIkQeC+Lj4wMg5+joHiBEHArv8PACHfT19RwdRBkH
/P39ARoCChSYQYM+fwgBDhxY0AqAABAjRmxAsaLFAFaWINmIREkQADs=
}]
set images(hprogress-t) [image create photo -data {
R0lGODlhFwAXAMIDAIyNkLm6u/Ly8v///////////////////yH5BAEKAAQA
LAAAAAAXABcAAANBSAHc/i4oIKq9+IIlhv9gGDKdaIrkqX7pqrauCccjRcv2
XZc6m/eeWU+oI96MNGRM6WKunK8fcAMABiULiPYhSQAAOw==
}]
set images(hsb-g) [image create photo -data {
R0lGODdhEgAKAOMMALe5vNDR19LT2dXW3NfY3trb4dzd497f5eHi6OPk6ubn
7fX29////////////////ywAAAAAEgAKAAAEQBAApSS1dWawUuIe+HUjYp5o
eh5s676tZBgyDcy1xBXF3i88H4dALBqPxYFyyWwuJQIBVAqITnWLQICj5W6z
3wgAOw==
}]
set images(hsb-n) [image create photo -data {
R0lGODdhFgAQAKUoAIyNkLm6u8PEycTFysbHzMjJzsrL0MzN0s7P1M7P1dDR
1tDR19HT2NLT2dPV2tXW3NXX3NfY3tfZ3tnb4Nrb4dzd497f5d7g5eDi5uHi
6OHj5+Pk6uPl6eXm6ubn7ebo6+jp7ejp7+rr7uvs7+3u8O/v8vDx8/T09s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1iwAAAAAFgAQAAAGgcAAYEgsGo3C
k3LJbDaHppB0Sq1OJ8OSZ8vtermSIWlDLpvPZchwlGm733C3Yyiy2O/4/J0x
BFX+gIGCgApDHxSIiYqLiQhDHRGRkpOUkgdDHA+am5ydmwZDGg2jpKWmpAVD
GAusra6vrQRDFwm1tre4tgNDAr2+v8DAAEJHxUcBQQA7
}]
set images(hsb-t) [image create photo -data {
R0lGODlhCAAQAMIDAOHh4e/v7/39/f///////////////////yH5BAEKAAQA
LAAAAAAIABAAAAMaCKM8Ey8GSKOUtV6abZ+b833iRoZgNwhrKyQAOw==
}]
set images(hslider-n) [image create photo -data {
R0lGODlhCwAPAKUgAIeHh5GRkampqba2tsrKyszMzM7Ozs/Pz9DQ0NHR0dPT
09TU1NXV1dbW1tjY2NnZ2dra2tvb293d3d/f3+Li4uTk5Obm5ufn5+jo6Onp
6erq6uzs7O7u7vDw8PLy8vT09P//////////////////////////////////
////////////////////////////////////////////////////////////
/////////////////////////////////yH5BAEKACAALAAAAAALAA8AAAZc
QJAAQCwCBELAZ8n8HAGejHSaiRA7g8Flm30QOYNPZRxuEDeUtJqyIGom8Pgk
QcRI7njJgWiB+P8QBUQVDoWGDgRPDIuMDEdJCpGRjyBJCJeUlUkGmZogAwED
nkEAOw==
}]
set images(hslider-t) [image create photo -data {
R0lGODlhBwARAKECAK2trcvLy////////yH5BAEKAAIALAAAAAAHABEAAAIQ
lI+pyxoA4UuQvghC27yvAgA7
}]
set images(notebook-c) [image create photo -data {
R0lGODlhDQANAMIFAIaGhra2tr6+vu/v7/j4+P///////////yH5BAEKAAcA
LAAAAAANAA0AAAMoeAHcHQqQSSlYZOi9Bcsc50mh+JXdiQ4jiLYrq75z6S1C
rutX5DiQBAA7
}]
set images(notebook-ta) [image create photo -data {
R0lGODlhDAAWAKU7AIyNkI+qxrm6u62/0srL0MrM0cvN0szO083P1M7Q1c/R
1tDS19HT2NLT2dLU2dPU2tPV2tTV29TW29XW3NXX3NbX3dbY3dfY3tfZ3tjZ
39ja39na4Nnb4Nrb4drc4dvc4tvd4tze493f5N7f5N7g5d/g5d/h5uDh5uDi
5+Hi5+Hj6OLj6OLk6ePk6ePl6uTl6uXm6+bn7Ofo7ejo7enp7urq7+vr8Ozs
8e3t8u7u8+/v9P///////////////////yH5BAEKAD8ALAAAAAAMABYAAAaV
wN9PACgaAQIhMcBsBpA/wGBKpQKiOpd26wJdATmWeMzyfHGqtFrF+d5Q8DhK
87WZ7ngT5lsj+f8kFl80IoWGIhRfMyGMjSESXzIfk5QfEF8xHZqbHQ5fMBuh
ohsMXy8ZqKkZC18tF6+wFwpfKxW2txUJXykTvb4TCF8nEcTFEQdfJQ/LzA8G
XyMN0tMNBV8E2NnZAEEAOw==
}]
set images(notebook-tn) [image create photo -data {
R0lGODlhDAAWAKU8AIyNkLm6u8rL0MrM0cvN0szO083P1M7Q1c/R1tDS19HT
2NLT2dLU2dPU2tPV2tTV29TW29XW3NXX3NbX3dbY3dfY3tfZ3tjZ39ja39na
4Nnb4Nrb4drc4dvc4tvd4tze493f5N7f5N7g5d/g5d/h5uDh5uDi5+Hi5+Hj
6OLj6OLk6ePk6ePl6uTl6uTm6+Xm6+bn7Ofo7ejo7enp7urq7+vr8Ozs8e3t
8u7u8+/v9PDw9fHx9v///////////////yH5BAEKAD8ALAAAAAAMABYAAAaX
wN8vACgaAQEhccds7pA/gM5Frbo+gGiOxe2yPFkATkUuqzjhG2rNRmnCNpN8
bsKEa6S8nmQJ00SAgSIUYTMgh4ggEmEyH46PHxBhMR2Vlh0OYTAbnJ0bDGEv
GaOkGQphLReqqxcJYSsVsbIVCGEpE7i5EwdhJxG/wBEGYSUPxscPBWEjDc3O
DQRhIQvU1QsDYQLa29sAQQA7
}]
set images(notebook-ts) [image create photo -data {
R0lGODlhDAAWAOMLAIaGhra2trm5ub6+vr+/v8DAwMHBwcLCwsPDw+/v7/j4
+P///////////////////yH5BAEKAA8ALAAAAAAMABYAAARJ8L0Aqg1yAsU7
wM+WjOQASCI5mqiirmfovkScqnX7Jrm89zdSwTZTDXWvo+91IO6aSBV0KXW+
EFYVNkraVordikCwG40l5YQkAgA7
}]
set images(radio-hc) [image create photo -data {
R0lGODlhEwATAMIHADAwMWqGoIyNkJCRk5OtyLy9vrrL3P///yH5BAEKAAcA
LAMAAgANAA0AAAM9eFrSXSq2QGpokhLDrTjMNgDkYBACQ41kSVzC1s5nI89k
HRt4jgor3OCV2rEAJhQEWOGciBKm5xMBOR6RBAA7
}]
set images(radio-hu) [image create photo -data {
R0lGODlhEwATAOMMAGqGoIyNkJOtyLy9vrrL3Ojq7Ors7uzu8O7w8vDy8/L0
9fT29////////////////yH5BAEKAA8ALAMAAgANAA0AAARH8MkRah0yVyA6
qBonEKQXPNRILGwZUByhzDMhfMGY7HxiVyOEcIj45QiHpPJgjBmeT9snRSpY
XZiAiGS7nSSbjveboVhemQgAOw==
}]
set images(radio-nc) [image create photo -data {
R0lGODlhEwATAIQQADIyMoyNkJaWlry9vtbX1+zs7O3t7e/v7/Dw8PLy8vT0
9PX19ff39/n5+fr6+vz8/P//////////////////////////////////////
/////////////////////////yH5BAEKABAALAMAAgANAA0AAAVNICQOQVkO
YloST0uUKuHMtPNCZNMIQC/oARKBwev5GK/AYmFsLksKRdMYLSUS0951hSga
BYgX6XDwCshBSIBgaLsNN9GqQE+mRqZTKgQAOw==
}]
set images(radio-nu) [image create photo -data {
R0lGODlhEwATAOMOAIyNkLy9vtbX1+zs7O3t7e/v7/Dw8PLy8vT09PX19ff3
9/n5+fr6+vz8/P///////yH5BAEKAA8ALAMAAgANAA0AAARE8MkAag0yV9G6
qJrAjCTzPdSiritACUosyx+Q3HieVEjv/4jKYUgsHjaGpFL5oRSeUKjrARAQ
rljCSbIZeGuZieWSiQAAOw==
}]
set images(radio-pc) [image create photo -data {
R0lGODlhEwATAMIHADAwMWqGoIyNkJCRk5OtyLy9vrrL3P///yH5BAEKAAcA
LAMAAgANAA0AAAM+eFrSXSq2QGpokhLDrTjMNjiDQQgMNTrCQFzCxjpmI89C
HRt4fgqqmesSMqxaNQiwwjG9PopJ5QmNMFgQRQIAOw==
}]
set images(tree-n) [image create photo -data {
R0lGODlhCQAYAKU+AIyNkLm6u8rL0MvM0czN0s3O087P1M/Q1dDR1tDS19HT
2NLT2dLU2dPU2tPV2tTV2tTV29XW29XW3NbX3NbX3dbY3dfY3tfZ3tjZ39ja
39na4Nnb4Nrb4drc4dvc4tvd4tzd493e5N3f5N7f5d7g5d/g5t/h5uDh5+Di
5+Hi6OHj6OLj6OLj6ePk6ePk6uTl6uTl6+Xm6+Xm7Obn7Ofo7ejp7unq7+rr
8Ovs8ezs8e3t8u7u8+/v9PHx9v///////yH5BAEKAD8ALAAAAAAJABgAAAaC
QIBwKAz0jsgjgCdrOj+AHWxK7QB0rqx2A8ixvuAMAJcqmy+A22nNrgBspbh8
AqiN7vgIgBbq+x97IIKDDgAzHoiJDAAxHI6PCgAvGpSVCQAtGJqbCAArFqCh
BwAqFKanBgAoEqytBQAmELKzBAAkDbi5AwAiC76/AgACw8TDRMcBQQA7
}]
set images(tbutton-h) [image create photo -data {
R0lGODlhEwATAMY7AIyNkLm6u8rL0MrM0MvN0s3O087P1NDR1tHS2NLT2dLT
2tPT2dLU2dLU2tPU2tPV2tPV29TV2tTV29TV3NTW29XW3NTX29bW3NbW3dXX
3NXX3dbX3NbX3dfX3dfX3tbY3dbY3tfY3dfY3tjZ3tjZ39ja3tja39na39na
4Nna4dnb4Nnb4drb4Nrb4drb4trc4drc4tvc4dvc4tvd4tvd49zd49ve4tve
49ze4tze493e5N3f5N3f5d7f5N7f5d7g5d/g5d/g5t7h5t/h5d/h5uDh59/i
5t/i5+Di5uDi5+Di6OHj6OHj6eLj6OLj6eHk6OHk6eLk6eLk6uPk6uLl6eLl
6uPl6ePl6uPl6+Tm6uTm6+Tm7OXm6+Tn7OXn7Obn7Ofp7enp7+rr8Ovs8ezt
8u7u9O/v9e/w9fHx9t3f5N3f5N3f5N3f5N3f5N3f5N3f5N3f5N3f5N3f5N3f
5N3f5N3f5N3f5N3f5N3f5N3f5N3f5N3f5N3f5N3f5N3f5N3f5CH5BAEKAH8A
LAAAAAATABMAAAf+gH8BAISFhocBggBojI2OjwCDZl6UlZaXOIRnW11aWlye
oVpYnlk2hGVXqlVWVqtTU1JUUVEvhGRLUE9MS0tMTky8vb0mhGNJyElKyUlI
RchGRyOEYkFEQ0TXQkJBQT8/QN8chGE8PTs9PT476D087Do6FoRgOTU59vg1
NTc0+/sRCH2ZIYOgjBcyZMCIEUNGjBYuGBDSwgLFihQrUGjUqKJjRwSEppAg
ccKEiZEkSpAYgZLEAUJNRMgMIQKECA8fPojgEKLDBwOEkmzYgEHDhQxIL1So
kGFphQKEiEyQIIECBaoRIkh4AEFrBAKEejhwoKCBAgYNFphlsCBBggURAyIB
EEC3rt27kRQd2lsoUSAAOw==
}]
set images(tbutton-n) [image create photo -data {
R0lGODlhEwATAIABAO/v793f5CH5BAEKAAEALAAAAAATABMAAAIRhI+py+0P
o5y02ouz3rx7VwAAOw==
}]
set images(tbutton-p) [image create photo -data {
R0lGODlhEwATAKUoAIyNkLO1ube4vbe5vbe5vrm6u7i6vrm6v7i7vrm7v7i8
v7m8v7m8wLm8wbq8wLq8wbm9wLm9wbq9wLq9wbq9wru9wbu9wry9wby9wru+
wbu+wry+wby+wry+w72+wr2+w7y/wry/w72/wr2/w72/xL7AxL7Axb7Bxb/B
xcLEyL/Bxb/Bxb/Bxb/Bxb/Bxb/Bxb/Bxb/Bxb/Bxb/Bxb/Bxb/Bxb/Bxb/B
xb/Bxb/Bxb/Bxb/Bxb/Bxb/Bxb/Bxb/BxSH5BAEKAD8ALAAAAAATABMAAAbf
wF8BQCwaj4UfMcBsOp+AoUBBrVqvG+KAwWU4GA0GxAvmcoiERuPrlUjWjQfj
0TgDDBDJ5BFxPCZuE30SDiBEBoB/E3sPFYqLEyJECIsVE5aYlpUVI0QHFRaX
FhmWFBmXFRUZJEQJpKYWsRoZGrMZFhWsAAkbsbgWGhccFhzFGxklRAwbHLXF
tRjNxRgayQALxc8azdvdxdaFINkg4hwgISEgHSAnRBIfICMdHR/o5+IeIR/t
ABXrIx8CilAHMISIESJMEOEUYoRDh/oePkQRBUCKixgzaowi5IhHI0mCAAA7
}]
set images(tree-p) [image create photo -data {
R0lGODlhCQAYAIQYAIyNkLO1ubS2urW3u7a4vLa5vbe5vbe6vrm6u7i6vri7
v7m7v7m8wLq8wLq9wbu9wbu+wry+wr2/w77AxL/BxcDCxsHDx8LEyP//////
/////////////////////////yH5BAEKAB8ALAAAAAAJABgAAAVgICCOIhKc
6AkERetGgOC+8WHfEjDcuM7buYFiSMwRiMQJgLBoOpUGhnQKnVIBhoZ2SwEk
HOBwN/Eom7sLs7kCWEDecPYiQq+zG3U7oCHp+y0AD35/gYN9gBeJiokkjQgh
ADs=
}]
set images(vprogress-b) [image create photo -data {
R0lGODlhEwAYAKU3AGV4i2CDp2CEqGGEqWGFqWKGqmKGq2OGrGKHrGOHrGOH
rWSHrWOIrWSIrWSIrmSIr2SJrmSJr2WJr2WJsGSKr2WKsGaKsWWLsWaLsmaM
smeMsWeMs2aNs2eNsmeNs2eNtGiNs2eOtGiOs2iOtWmOtGiPtmmPtWmPtmmP
t2mQt2mQuGqQtmqQt2qQuGqRuWuRuGuRuWuSuWuSumySumyTu2+YwKy2wP//
/////////////////////////////////yH5BAEKAD8ALAAAAAATABgAAAbI
wJ8NQCwajzYhgDaLwV6s1clEEoE6Gg1gKHO1VClUqTQahT4eTiYTINaYTqiU
asVqGm74MzqtXrN4AG9Ne3N+doGDcXx0f3d5hHJ9dYCQi4aUj4J6ko2IloWT
jomcjIeVghcVFBEQDAkIBgUEAwIBAYEyHxsbGBgWFRMSDw4LCgcHbQC6vL7A
wsTGyMrMvb/Bw8XHyUTVztjR29S71s/Z0tzL5N/Q2tPd69ft6OPN8ufi8Pbm
4e9DXmDEkDGDRk2GLUqOKCySJAgAOw==
}]
set images(vsb-g) [image create photo -data {
R0lGODlhCgASAOMMALe5vNDR19LT2dXW3NfY3trb4dzd497f5eHi6OPk6ubn
7fX29////////////////yH5BAEKAA8ALAAAAAAKABIAAAQ/EAB0JBkSLKqv
VgllFJcQgCI5mBIHeNJWLd6CHmN5hrjKTpUXJsahYWy83GqX0rWCME2xdlOa
qr7A0zKUzmoRADs=
}]
set images(vsb-n) [image create photo -data {
R0lGODdhEAAWAIQRAIyNkLm6u8PEyc7P1dDR19LT2dXW3NfY3trb4dzd497f
5eHi6OPk6ubn7ejp7+vs8vT09s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q
1s/Q1s/Q1s/Q1s/Q1s/Q1s/Q1iwAAAAAEAAWAAAFYWAAjGRZik+qrusIOQ2z
KAlyGAUxCC4s0zacjgd4xWa1W27XOwKVw+YvKWQWfcjgkmicaqNXJ3UrzUKt
XXOVi32uy25y2Htmi7/o9hicjvP1eHZ0bwAChoeIiAAiJo0jASEAOw==
}]
set images(vsb-t) [image create photo -data {
R0lGODlhEAAIAMIDAOHh4e/v7/39/f///////////////////yH5BAEKAAQA
LAAAAAAQAAgAAAMVCBPb/M1JyISiM+I9bOZf5nFYiAkJADs=
}]
set images(vslider-n) [image create photo -data {
R0lGODlhDwALAIQXAIyNkJqbnbe5vLm6u7y9vsPEyc7P1dDQ0dLT2dbX3drb
4d3f5N7f5eDi5uLj6ePl6ebn7ebo6+rr7u3u8PDx8/T09vX297/Bxb/Bxb/B
xb/Bxb/Bxb/Bxb/Bxb/Bxb/BxSH5BAEKAB8ALAAAAAAPAAsAAAVN4DcAZEkS
XyoCVeu2AJoCFCQIUK7H8+QIFodw6OABJIykcskAHAARhXRKlQYAj4R2y004
AQ3EDUEuI4wLA9DAbvNWhbg8/k6NTCVZKgQAOw==
}]
set images(vslider-t) [image create photo -data {
R0lGODlhEQAHAKECAK2trcvLy7/Bxb/BxSH5BAEKAAIALAAAAAARAAcAAAIU
lB8Ace0CTHxvTtosdnqf7gnJQhUAOw==
}]

Added demo/themes/plastik/images.tgz.

cannot compute difference between binary files

Changes to demo/themes/plastik/pkgIndex.tcl.

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#
# We don't provide the package is the image subdirectory isn't present,
# or we don't have the right version of Tcl/Tk
#
# To use this automatically within tile, the tile-using application should
# use tile::availableThemes and tile::setTheme 
#
# $Id: pkgIndex.tcl,v 1.1 2009/09/09 19:23:17 oberdorfer Exp $

if {![file isdirectory [file join $dir plastik]]} { return }
if {![package vsatisfies [package provide Tcl] 8.4]} { return }

package ifneeded ttk::theme::plastik 0.5.2 \
    [list source [file join $dir plastik.tcl]]







|

<





2
3
4
5
6
7
8
9
10

11
12
13
14
15
#
# We don't provide the package is the image subdirectory isn't present,
# or we don't have the right version of Tcl/Tk
#
# To use this automatically within tile, the tile-using application should
# use tile::availableThemes and tile::setTheme 
#
# $Id: pkgIndex.tcl,v 1.2 2009/09/16 20:44:15 oberdorfer Exp $


if {![package vsatisfies [package provide Tcl] 8.4]} { return }

package ifneeded ttk::theme::plastik 0.5.2 \
    [list source [file join $dir plastik.tcl]]

Changes to demo/themes/plastik/plastik.tcl.

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
...
200
201
202
203
204
205
206
207

# plastik.tcl - Copyright (C) 2004 Googie
#
# A sample pixmap theme for the tile package.
#
#  Copyright (c) 2004 Googie
#  Copyright (c) 2005 Pat Thoyts <[email protected]>
#
# $Id: plastik.tcl,v 1.1 2009/09/09 19:23:17 oberdorfer Exp $

package require Tk 8.4
package require tile 0.8.0


namespace eval ttk::theme::plastik {

    variable version 0.5.2
    package provide ttk::theme::plastik $version

    variable colors









    array set colors {
    	-frame 		"#efefef"
	-disabledfg	"#aaaaaa"
	-selectbg	"#657a9e"
	-selectfg	"#ffffff"
    }


    proc LoadImages {imgdir} {
        variable I

        foreach file [glob -directory $imgdir *.gif] {
            set img [file tail [file rootname $file]]

            set I($img) [image create photo -file $file -format gif89]
        }
    }


    LoadImages [file join [file dirname [info script]] plastik]














ttk::style theme create plastik -parent default -settings {
    ttk::style configure . \
	-foreground "Black" \
    	-background $colors(-frame) \
	-troughcolor $colors(-frame) \
	-selectbackground $colors(-selectbg) \
	-selectforeground $colors(-selectfg) \
	-fieldbackground $colors(-frame) \
................................................................................
    #
    ttk::style configure TButton -width -10 -anchor center
    ttk::style configure Toolbutton -anchor center
    ttk::style configure TNotebook -tabmargins {0 2 0 0}
    ttk::style configure TNotebook.Tab -padding {6 2 6 2} -expand {0 0 2}
    ttk::style map TNotebook.Tab -expand [list selected {1 2 4 2}]
    ttk::style configure Treeview -padding 0
} }







|

|
|

>


|
|

|
>
>
>
>
>
>
>
>
>
|
<
<
<
<
|
>

|
<
>
|

>
|
|
|
>
|
<

>
>
>
>
>
>
>
>
>
>
>
>
>
|







 







|
>
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
...
221
222
223
224
225
226
227
228
229
# plastik.tcl - Copyright (C) 2004 Googie
#
# A sample pixmap theme for the tile package.
#
#  Copyright (c) 2004 Googie
#  Copyright (c) 2005 Pat Thoyts <[email protected]>
#
# $Id: plastik.tcl,v 1.2 2009/09/16 20:44:15 oberdorfer Exp $

package require Tk 8.4;                 # minimum version for Tile
package require tile 0.8;               # depends upon tile


namespace eval ttk::theme::plastik {

  variable version 0.5.2
  package provide ttk::theme::plastik $version

  variable I

  set thisDir  [file dirname [info script]]
  set imageDir [file join $thisDir "images"]
  set imageLib [file join $thisDir "ImageLib.tcl"] \

  # try to load image library file...
  if { [file exists $imageLib] } {

      source $imageLib
      array set I [array get images]





  } else {

      proc LoadImages {imgdir {patterns {*.gif}}} {

        foreach pattern $patterns {
          foreach file [glob -directory $imgdir $pattern] {
            set img [file tail [file rootname $file]]
            if {![info exists images($img)]} {
              set images($img) [image create photo -file $file]
            }
        }}
        return [array get images]
      }


      array set I [LoadImages $imageDir "*.gif"]
  }


  variable colors
    array set colors {
    	-frame 		"#efefef"
	-disabledfg	"#aaaaaa"
	-selectbg	"#657a9e"
	-selectfg	"#ffffff"
    }


  ttk::style theme create plastik -parent default -settings {
    ttk::style configure . \
	-foreground "Black" \
    	-background $colors(-frame) \
	-troughcolor $colors(-frame) \
	-selectbackground $colors(-selectbg) \
	-selectforeground $colors(-selectfg) \
	-fieldbackground $colors(-frame) \
................................................................................
    #
    ttk::style configure TButton -width -10 -anchor center
    ttk::style configure Toolbutton -anchor center
    ttk::style configure TNotebook -tabmargins {0 2 0 0}
    ttk::style configure TNotebook.Tab -padding {6 2 6 2} -expand {0 0 2}
    ttk::style map TNotebook.Tab -expand [list selected {1 2 4 2}]
    ttk::style configure Treeview -padding 0
  }
}

Added demo/themes/winxpblue/CreateImageLib.def.








































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
arrow_down_normal
arrow_left_normal
arrow_right_normal
arrow_up_normal
button
buttonNorm
buttonPressed
checkbox_checked
checkbox_unchecked
horizontal_trough
menubar_option_arrow
notebook_active
notebook_inactive
option_in
option_out
progressbar
scroll_horizontal
scroll_vertical
through
vertical_trough

Added demo/themes/winxpblue/ImageLib.tcl.














































































































































































































































































































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
# ImageLib.tcl ---
# Automatically created by: CreateImageLibCmd.tcl

set images(arrow_down_normal) [image create photo -data {
R0lGODlhCwAMAPAAAE1hhQAAACH5BAEAAAEALAAAAAALAAwAAAITjI+py21w
IAI0UBkvnpVtB4ZBAQA7
}]
set images(arrow_left_normal) [image create photo -data {
R0lGODlhDAALAPAAAE1hhQAAACH5BAEAAAEALAAAAAAMAAsAAAIRjI+pa8AN
3IpS0Rfu06zinxQAOw==
}]
set images(arrow_right_normal) [image create photo -data {
R0lGODlhDAALAPAAAE1hhQAAACH5BAEAAAEALAAAAAAMAAsAAAIRjI+pG8AG
4mvyRbcu03b6VwAAOw==
}]
set images(arrow_up_normal) [image create photo -data {
R0lGODlhCwAMAPAAAE1hhQAAACH5BAEAAAEALAAAAAALAAwAAAIRjI+pywYN
4oo01Yqea7z7VAAAOw==
}]
set images(button) [image create photo -data {
R0lGODlhDwAUAPUAAAA8dBZNfuWXAPiyL/izMCVXg0hukEpxk1V9omeIoGqL
omyMpHqVqHuVqX2Zqv3YidzWwuHdyuPezOTfzuXhz+bh0Ojk0unn1ezp2O3q
2u/t3uno4evr5ezr5u/u6PDu4PPx5vPx5/Dw6/T06vHx7PLy7ff27/T08Pb2
8/j38Pn48vj49vr69vr6+fz8+/z8/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAAAALAAAAAAPABQAAAaz
wMskEpFAjkiJZGKZVBgFgHQKKCQslggD8eh6vQjGJVLovs7oV7egiQDMrri8
C+hI3o+Wft+if9xdK4KDKn53XSiJiih+gA+LinQaEwAEAygpiiYolgBtlQQi
IiQkoyQEBAAfd6ilpK+dfwADA6KmJB6xd7S2prkDqm6Wrh4euKiqFJUDHc3O
G8h/AbQDqNaoAwEgFAoHAt/g4AYKIxcYDlFUUgELIyYZGiAmKoMp9ir4GkEA
Ow==
}]
set images(buttonNorm) [image create photo -data {
R0lGODlhDwAUAPYAAAA8dBZNfiVXg0hukEpxk1V9omaHoGqLomyMpHqVqH2Z
qqOutLG3tra9vb/Hyr/O27/O3NXPw9XQxNbQxdzWwtvXzd/c0uHdyuPezOTf
zuDd1ODe1OXhz+bh0Ojk0unn1eTi2eXi2+bj3Ofk3e3q2u/t39Xf6Orn4Ovo
4evr5e3q5u3s5e/v6fDu4PDu6vPx5vDw6/T06vHx7PPx7vPz7vb17ff27vX1
8fX08vb28vb28/b29Pj38fn48vj49vj49/r6+Pz8+/z8/P7+/gAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAAAA
LAAAAAAPABQAAAfdgB8ZF4QUhoaEFx2CHQkCAJCRAAEHHR4XCQUQQ5ydQyYF
CR8YApueng8CJBcAnECuQUFDPjoAK6xAuT65vDosAC0YAEA+xcbFMyrArDvN
zjw7PDAjywA6OzQ62s06NCLAHNba49k0MCjVNOowNC7tNCrULazrMO4uOC4p
8qww7O7mzKX41iIcO38sWCAcWO2gv4crUBAMFzHFCospUJwQYWFZgAgWLISw
sAFEBwsVGgR4wcEAgQUSYkqYQJPBgAMxPJBQ8EgSpAAIYtAgUeJFth9ChNjo
QaOHDh4vAgEAOw==
}]
set images(buttonPressed) [image create photo -data {
R0lGODlhDwAUAPUAAAA8dBZNfiVXg0hukEpxk1V9omaHoGeIoGqLomyMpHqV
qHuVqX2ZqtzWwuHdyuPezOTfzuXhz+bh0Ojk0unn1e3q2u/t3uno4evr5ezr
5vDu4PPx5vT06vX06/b17fn48vr69gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAAAALAAAAAAPABQAAAaG
QArEQWwYjURHRChRCADQKCBwmEgcigIGk+lmMJdLQUFxCLZcLzgsqDgAaO83
fAFoHvCtPEO3v+NqfXd5aV1rdYOAhoJ/eoFhdniKc5AajYWUiBGEcod+nHKM
oIuVl52CEQGThwEbEQYEjqQDCBwTFQxPUlABCRweFRYbHh4gxh8eH8ofFkEA
Ow==
}]
set images(checkbox_checked) [image create photo -data {
R0lGODlhDQANAPMAACGhIRxRgOLi3eXl4efn4+rq5uzs6e/v7PHx7/Pz8fX1
8/f39vn5+Pz8+/39/QAAACH5BAAAAAAALAAAAAANAA0AAARKMMhJqbhijGIQ
StKlbUanKGFWcB6gLNLIJgCwwIEGlEgNMI1YodarAR0Sjq+2aDSQgZLC12g6
oJ4ToPq8SrI359UbOIXF44p6EgEAOw==
}]
set images(checkbox_unchecked) [image create photo -data {
R0lGODlhDQANAPMAABxRgOLi3eXl4efn4+rq5uzs6e/v7PHx7/Pz8fX18/f3
9vn5+Pz8+/39/QAAAAAAACH5BAAAAAAALAAAAAANAA0AAAREEMhJabhBCFKO
l5e2FUVighnBeaYiiStyKMryDgLpLbwNbBzZgsFYNCScAgLRYzSOAJKp+YSy
qFXJtVe1JrhdaGUMiAAAOw==
}]
set images(horizontal_trough) [image create photo -data {
R0lGODlhDAAMAPMAAPTz7vb18Pf38/n49Pn59/v7+Pv7+f39+v7++wAAAAAA
AAAAAAAAAAAAAAAAAAAAACH5BAAAAAAALAAAAAAMAAwAAAQzEMhJZbjg4qxJ
IAAxfB4hDif6BYZRFKZpyMRrvy3Runex7z3f70AsGomIpHLJbCYrUEAEADs=
}]
set images(menubar_option_arrow) [image create photo -data {
R0lGODlhCwAMAPAAAE1hhQAAACH5BAEAAAEALAAAAAALAAwAAAIUjI+pu5Bu
gDwShnonqvp1ZTHiyBQAOw==
}]
set images(notebook_active) [image create photo -data {
R0lGODlhWgAWAPMAAOaLLOuXLu6fMeSXPPm5OPu+Of/IPO/r3v///wAAAAAA
AAAAAAAAAAAAAAAAAAAAACH5BAEAAAkALAAAAABaABYAAARpMKEAqr046827
/9mASAJhnGiqrmzrvnC8FgKCHHiu73zv/8CgEGgbGo/I5LCobDqfPyZ0Sk1K
q9hs76rtZrneMBQsLltv5rSSrG772O54Di6P0+vtOz6t35f7fmGAgV2DhF9o
h3aJinkRADs=
}]
set images(notebook_inactive) [image create photo -data {
R0lGODlhWgAWAPMAAJGbnOTi2eXi2+ro4evq4+Tp7O/u6O/v6fDw6vDw6/Hx
7O3x8////wAAAAAAAAAAACH5BAEAAA0ALAAAAABaABYAAASwsDVAq7046827
19JUJGRpnmiqrmzrmoaxAJOivHiu76pBCBQbb0gsng4/ygnBbDqf0Kh0Sq1a
SQZBIGjsenOIrLJkLZvPaGoiuwXcvvD4UgxIpO/4PDULrMv/XwgKPn0keoeI
aQoCfW+Aj0M2g4WGiZaXUGxBjpCdYHR2mKKimm6cnqgshEqjrYglWpupsy0G
baGuuWl2pUK0vyi2rLrEZlixDMnKy8zNzs/Q0dLT0xEAOw==
}]
set images(option_in) [image create photo -data {
R0lGODlhDQANAPUAABOSECaWIySWJCGhISKiICmoJiqoJzi5NULDP0PDP02/
SlXVUSFVgiNWg1d8nFh+n1yBomaHo2CFpmmLp26QrXCRr5jIl5jJl5rMmKDS
nqncpp+zxKm5w6u6xa6+yK+/zbPDz7bF0rrJ1rzL2bzM2d/h3+Lo3tje4+Xl
4efn4+rq5uju5uzs6e/v7O7z7fHx7/Pz8fX18/P19vf39vn5+Pr6+fz8+/39
/QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAADgALAAAAAANAA0AAAZ+
QJzwtHkwHpuTcPlhRDooz4TxYTo4qZRK1QJBqicGB6XlvmAhBjFCRmkWllVs
Ril2tG9E4TKriR4NJyosCwgHAwE1NTINDx6DFgUCABY1NyQPHBEtLysWAhcu
Njd1YSEwc4qjJGo4Hw8hfZY3IxIgTA0UIjIjFFRLQ0WNSUtBADs=
}]
set images(option_out) [image create photo -data {
R0lGODlhDQANAPUAACFVgiNWg1V6mlh+n1uBoWSGoWCFpmiJpm6PrHCRr6a1
v5+zxKe3wau6xq+/zbLBzbXE0LnI1bzL2LzM2drc2uDg2+Li3tje4+Xl4ujo
5ezs6e/v7PHx7/Pz8fL09fX19Pf39vn5+Pv7+v39/AAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAACQALAAAAAANAA0AAAZv
QJLwshgABouLcOkAFBiUxgHgYAoUFgsmo3EQqheAoqLlbjoQwIVRIG81mk7n
gygyyprzZx8xUt4bHHMgIR5HDWaCH4QiE0gHeXKLISIjCUlUih+UIxNqJF4Q
k5UTBlVCTQgRHhMJVEtDRUcMSkJBADs=
}]
set images(progressbar) [image create photo -data {
R0lGODlhCAATAPQSACjSKynSLC7TMTXVNzXVOEHXRELXRU3aUE7aUFvdXmbf
aHXid3vjfXzkfo7nkI/okJXplqvtrP///wAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAAAALAAAAAAIABMAAAVCoCSOY2Se
IqSuYtMwbiMqdC0eOIKLRN8PIoAQEACIisLicShcJo0SJBEqbUoE2KyoYOh2
RYmwWLQom0WPh2PtILlDADs=
}]
set images(scroll_horizontal) [image create photo -data {
R0lGODlhdgAPAPUAAK/F9LDE8rHG87fG8bPH9bXJ87PI9bfK9bTI9rjJ8rnJ
87nL87rL9LjL9rvN9b3O97XN+rbN+7bO+7PP/LfN/LnN+7rQ/LrR/LrT/MDQ
98TS98HT+8LT/MPT/cLV/MPV/cXV/MbV/cXW/MbW/cjW+8rY+cjY+8nY/MrY
/dDf/Nnj9tvj+Nzm+ebu/P///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAC8ALAAAAAB2AA8AAAb+
wJdrSCwaj8ikcslsOp9M4aqBoFYPWGxjy+UivuCwVYFQULvosBjtZXfV4urX
PC+fv25vtTUcnEAkgYKCJyYmJ4iJHR0gjY6Ag4OJkyckIB0ijoGGKIiHgoCU
iY+OIiKRlZGqh6J/gSlDCpWGtLUona2qm7W1rbe6JrfCniYkicOJuruGxrzO
x7eTJIcmsYiBI5TG05PFJKfTqMmE2qkn4K2IIJPrxrmbI5J/2u7r85T2lSca
sY8jI4/+NAoRooM6U41MIfQnQiBBg47UAVxosEOIdY0ARnwEkREIhSNM/flH
ap0IkiD+Vbwo8BE/Fwoc/QMo8AQjmyFaLkyp0F/+RIstS/a0twiRx0Ytbdp8
hFCjzJJQado0uNTRg1hHP2jtsHWR1687P5rSCoKs1g9fvXo42jOtV7KXOnDg
kLZUJkcfyubNW7bRXrxuF/H1cNVFAg4f5s5dhEGuYsUaPHDwQLlyZbqMHyvG
ABmDZcqYO3DWTHr0ZMoiPoMmrTmx4kWQ565uMOQABxCPBbt+IJszZ62VP1yG
3cGDa9kaJnPwrJpuY9zLNcB+7CE53dPMLZM23lozZxG+J7tmMEQAhvMVzltY
bwEDBfUW0j9of76+/fX12bvHUGF9evv2PfBef+39hx576b0H4IIY4Jeefg0W
iN6A7j3QYIS0uSAABRPHQACBBBV8KAGIFEBQAQUoVhDiBCy22KGHHoY4ogQQ
UABijSl62OKHIqI4ooowhoijiTTqCMGOLx45oohFemiBhyCemKKNFUgwAY0I
lCckjFyaqOKXQHbZ5ZJdgglmiWKe+SWXaoYpJptvFrmll182QIGbAAyhggIH
MGAGA4D62UCgDSgAaKEFJKpoAQcw+qehgxoq6KGGHjBAo5gC+megk2o6aKB8
ZoHAogz0GSmohfrZqaCf+tknAyy4IAQUtNZq6624LvFCEAA7
}]
set images(scroll_vertical) [image create photo -data {
R0lGODlhDwB2APUAAK/F9LDE8rHG87fG8bPH9bXJ87PI9bfK9bTI9rjJ8rnJ
87nL87rL9LjL9rvN9b3O97XN+rbN+7bO+7PP/LfN/LnN+7rQ/LrR/LrT/MDQ
98TS98HT+8LT/MPT/cLV/MPV/cXV/MbV/cXW/MbW/cjW+8rY+cjY+8nY/MrY
/dDf/Nnj9tvj+Nzm+ebu/P///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAC8ALAAAAAAPAHYAAAb+
wJdrSCwSha1USfPIPByOBgHAGh5IJdLo8+lsLhLJwjoyaUfeDlhs/ZDeIxLn
gwkTrCiUaYTmcC4UFWMuB3l7fX+Bg4V6aB0cGBSKeCgkIX0agIKUJSEdjxwV
og1WJXl8HRiQEhWkLg55Wp8cGnWbhIaofpIVDJSHoBeivoQkZmV+q2zFhybJ
FWGLxmddX9FW03wfG2oSEdLHW15g39jh293lzNTj3uDU3OTv2l4U7ubwI/L4
9BsYFequnMOQ6t66ftACZtuy4cO+g+KsLRMIr9vEhdUeUtQWz6ABN9M+cBiB
YQKEAlY4vPHgxgOGkieHGHhD4oOIDx5cmkTp4uP+GxMiSOTEACGmCwJ83ogc
OkECzwNxTLjBqfMATwIdtChlGuHO0TclWJpg6lQmSD4q6ewc0sDUoW0bKthz
wDbWJS9fArlqkKfTp3iTcKEogWpD3MCwGqExrMnVAVOe/m7gRSwxisJfhlE6
k+pwr82YbTnG+KnOxXNeRJ1mJ3EeQzUAF+VanPcWI2CGeQ2qEOsTXk3EDpgY
jBl4qVO0NQ1KzDm3XivDcVuzXaY6ugsTbGOpGRHQMqRxaspxCKEsoaziqZac
cDX8Gw5keRqIE9aNH+zmkSqtOQe70flxbPFeSeY9phhctixiSnOTIRaLI4DZ
1hcqqQUSHHJoYFBbcMP7EUabXK2A9pcagd1W3HOvDMegcvx0x4pr10EDox+m
zRiKQRttQSOOGPmRkI01tiiSMvNI5SM07RnDxXgEyofeVEyxJ5N7LemUX3jO
CFXVUyBBqZOUPYHEgVRMGXWASjVVCZN8NCkJ35pmKZXlS0XxxBdxEBrnwp2X
JGfhEBKYQphkukFXSQieMIbindLp2VYlJ362JwmK/bZoLpKJcsudJXRAG2Vk
HPIaGJJekUU/aywywqmjXlMMqxm5CtU5DWm0Hao4lnHGCNz8iI2HOhJJBqw7
TuTpGXL80ZRXj5rgaTAyDqECAQkskEACCixAQAEBBKCCC0IYIS64QQAAOw==
}]
set images(through) [image create photo -data {
R0lGODlhEAAYAPQQAGhoaHd3d39+fayrpqyrp76+vu/v7/n5+fr5+fr6+fn5
+vr5+vr5+/n6+vr6+vr6+////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAAAALAAAAAAQABgAAAWEoAMNAmCe
pkBAjjMERSzPAeEwQmzs/B4LN0BhBykafYCW0GBsQgyFJGPpPEYZDmr1GVUO
t1yAQqGtQsXZ7/bsZa67iLLzrIirzd20G5/Ug+l2e3NRY3JNgIZWAAiBf1EI
ZHeDAAcIOURzUAIHBwQBPaAGNZwQBCUoJyoQlZWMrgisjJUhADs=
}]
set images(vertical_trough) [image create photo -data {
R0lGODlhDAAMAPMAAPTz7vb18Pf38/n49Pn59/v7+Pv7+f39+v7++wAAAAAA
AAAAAAAAAAAAAAAAAAAAACH5BAAAAAAALAAAAAAMAAwAAAQ6EIQxTLkHoSDn
xRoXTMSXFYBEleCRBkR8GdnWwYVBh52sn6JY6Yc4BHEg24jVOn4KhygHQKCY
DoZABAA7
}]

Added demo/themes/winxpblue/images.tgz.

cannot compute difference between binary files

Changes to demo/themes/winxpblue/pkgIndex.tcl.

1
2
3
4
5
6
# if { [catch {package require tile 0.8 }] != 0 } { return }

if {[file isdirectory [file join $dir winxpblue]]} {
    package ifneeded ttk::theme::winxpblue 0.0.1 \
        [list source [file join $dir winxpblue.tcl]]
}
<
<
<
|
|
<


1
2



package ifneeded ttk::theme::winxpblue 0.2 \
    [list source [file join $dir winxpblue.tcl]]

Changes to demo/themes/winxpblue/winxpblue.tcl.

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
...
157
158
159
160
161
162
163





164
165
166
167
168
169
170
171
# WinXP-Blue --
#
#   Copyright (C) 2004 Pat Thoyts <[email protected]>
#
#   Import the WinXP-Blue Gtk2 Theme by Ativo
#   URL: http://art.gnome.org/download/themes/gtk2/474/GTK2-WinXP-Blue.tar.gz
# ------------------------------------------------------------------------------
# Revision change history:
#   $Id: winxpblue.tcl,v 1.1 2009/09/09 19:25:06 oberdorfer Exp $
#
#   Aug.'08: code refractured/adopted slightly for the use with >= tk8.5,
#            [email protected]
# ------------------------------------------------------------------------------

package require Tk 8.4;                 # minimum version for Tile
package require tile;                   # depends upon tile


namespace eval ::ttk:: {
  namespace eval theme {
    namespace eval winxpblue {
      variable version 0.0.1
    }
  }
}


namespace eval ::ttk::theme::winxpblue {
  


  set imgdir [file join [file dirname [info script]] winxpblue gtk-2.0]


  
  if {[info commands ::ttk::style] ne ""} {
    set styleCmd ttk::style
  } else {
    set styleCmd style


  }


  


  proc LoadImages {imgdir {patterns {*.gif}}} {
    foreach pattern $patterns {
      foreach file [glob -directory $imgdir $pattern] {
        set img [file tail [file rootname $file]]
        if {![info exists images($img)]} {
          set images($img) [image create photo -file $file]
        }
      }
    }
    return [array get images]
  }
  
  array set I [LoadImages $imgdir "*.gif"]
  

  $styleCmd theme create winxpblue -settings {
    
    # defaults:
    
    $styleCmd configure "." \
        -foreground       "Black" \
        -background       "#ece9d8" \
        -selectbackground "#4a6984" \
        -selectforeground "#ffffff" \
	-font TkDefaultFont ;
    
    # gtkrc has #ece9d8 for background, notebook_active looks like #efebde
    
    # Mats: changed -background  disabled
    $styleCmd map "." \
      -foreground { disabled "#565248" } \
      -background { disabled "#ece9d8"
                    pressed  "#bab5ab"
                    active   "#c1d2ee" }

    # Buttons, checkbuttons, radiobuttons, menubuttons:
    
    $styleCmd layout TButton {
      Button.button -children { Button.focus -children { Button.label } }
    }
    $styleCmd configure TButton -padding 3 -width -11
    
    $styleCmd element create Button.button image \
        [list $I(buttonNorm) pressed $I(buttonPressed) active $I(button)] \
        -border {4 9} -padding 3 -sticky nsew

    $styleCmd element create Checkbutton.indicator image \
        [list $I(checkbox_unchecked) selected $I(checkbox_checked)] \
        -width 20 -sticky w
	
    $styleCmd element create Radiobutton.indicator image \
        [list $I(option_out) selected $I(option_in)] \
        -width 20 -sticky w

    $styleCmd element create Menubutton.indicator image $I(menubar_option_arrow)
    
    # Scrollbars, scale, progress bars:
    
    $styleCmd element create Horizontal.Scrollbar.thumb \
        image $I(scroll_horizontal) -border 3 -width 16 -height 0 -sticky nsew
    $styleCmd element create Vertical.Scrollbar.thumb \
        image $I(scroll_vertical) -border 3 -width 0 -height 16 -sticky nsew
    $styleCmd element create trough \
        image $I(horizontal_trough) -sticky ew -border {0 2}
    $styleCmd element create Vertical.Scrollbar.trough \
        image $I(vertical_trough) -sticky ns -border {2 0}
    $styleCmd element create Vertical.Scale.trough \
        image $I(vertical_trough) -sticky ns -border {2 0}
    $styleCmd element create Progress.bar image $I(progressbar)
    $styleCmd element create Progress.trough image $I(through) -border 4
    
    # Notebook parts:
    
    $styleCmd element create tab image \
        [list $I(notebook_inactive) selected $I(notebook_active)] \
        -border {2 2 2 1} -width 8
    $styleCmd configure TNotebook.Tab -padding {4 2}
    $styleCmd configure TNotebook -expandtab {2 1}
    
    # Arrows:
    
    $styleCmd element create uparrow image $I(arrow_up_normal) -sticky {}
    $styleCmd element create downarrow image $I(arrow_down_normal) -sticky {}
    $styleCmd element create leftarrow image $I(arrow_left_normal) -sticky {}
    $styleCmd element create rightarrow image $I(arrow_right_normal) -sticky {}

    # Panes:
    # doesn't work: $styleCmd configure Sash -sashthickness 6 -gripcount 10

    # maybe a nice effect
    # (although the image was not intended to be used like this):

    $styleCmd element create Sash.hsash \
        image $I(horizontal_trough) -border 1 -width 0 -height 8 -sticky nsew
    $styleCmd element create Sash.vsash \
        image $I(vertical_trough) -border 1 -width 0 -height 8 -sticky nsew
  }
}


namespace eval ::tablelist:: {

  proc winxpblueTheme {} {
................................................................................
	-labelfont		TkDefaultFont \
	-labelborderwidth	2 \
	-labelpady		1 \
	-arrowcolor		#aca899 \
	-arrowstyle		flat9x5 \
	-showseparators         yes \
      ]





  }
}


# -------------------------------------------------------------------------
# -------------------------------------------------------------------------

package provide ttk::theme::winxpblue $::ttk::theme::winxpblue::version
|







|






|
>




|







>
>
|
>
>
|
<
<
<
<
>
>
|
>
>
|
>
>
|
|
|
|
|
|
|
|
<
|
|
|
|
|
>
|



|









|







|


|

|



|



|



|



|

|

|
|
|
|
|

|
|



|


|
|



|
|
|
|


|




|
|
|
|







 







>
>
>
>
>








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
...
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
# winxpblue.tcl --
#
#   Copyright (C) 2004 Pat Thoyts <[email protected]>
#
#   Import the WinXP-Blue Gtk2 Theme by Ativo
#   URL: http://art.gnome.org/download/themes/gtk2/474/GTK2-WinXP-Blue.tar.gz
# ------------------------------------------------------------------------------
# Revision change history:
#   $Id: winxpblue.tcl,v 1.2 2009/09/16 20:44:42 oberdorfer Exp $
#
#   Aug.'08: code refractured/adopted slightly for the use with >= tk8.5,
#            [email protected]
# ------------------------------------------------------------------------------

package require Tk 8.4;                 # minimum version for Tile
package require tile 0.8;               # depends upon tile


namespace eval ::ttk:: {
  namespace eval theme {
    namespace eval winxpblue {
      variable version 0.2
    }
  }
}


namespace eval ::ttk::theme::winxpblue {
  
  variable I

  set thisDir  [file dirname [info script]]
  set imageDir [file join $thisDir "images"]
  set imageLib [file join $thisDir "ImageLib.tcl"] \





  # try to load image library file...
  if { [file exists $imageLib] } {

      source $imageLib
      array set I [array get images]

  } else {

      proc LoadImages {imgdir {patterns {*.gif}}} {
        foreach pattern $patterns {
          foreach file [glob -directory $imgdir $pattern] {
            set img [file tail [file rootname $file]]
            if {![info exists images($img)]} {
              set images($img) [image create photo -file $file]
            }
        }}

        return [array get images]
      }

      array set I [LoadImages $imageDir "*.gif"]
  }
  
  ::ttk::style theme create winxpblue -settings {
    
    # defaults:
    
    ::ttk::style configure "." \
        -foreground       "Black" \
        -background       "#ece9d8" \
        -selectbackground "#4a6984" \
        -selectforeground "#ffffff" \
	-font TkDefaultFont ;
    
    # gtkrc has #ece9d8 for background, notebook_active looks like #efebde
    
    # Mats: changed -background  disabled
    ::ttk::style map "." \
      -foreground { disabled "#565248" } \
      -background { disabled "#ece9d8"
                    pressed  "#bab5ab"
                    active   "#c1d2ee" }

    # Buttons, checkbuttons, radiobuttons, menubuttons:
    
    ::ttk::style layout TButton {
      Button.button -children { Button.focus -children { Button.label } }
    }
    ::ttk::style configure TButton -padding 3 -width -11
    
    ::ttk::style element create Button.button image \
        [list $I(buttonNorm) pressed $I(buttonPressed) active $I(button)] \
        -border {4 9} -padding 3 -sticky nsew

    ::ttk::style element create Checkbutton.indicator image \
        [list $I(checkbox_unchecked) selected $I(checkbox_checked)] \
        -width 20 -sticky w
	
    ::ttk::style element create Radiobutton.indicator image \
        [list $I(option_out) selected $I(option_in)] \
        -width 20 -sticky w

    ::ttk::style element create Menubutton.indicator image $I(menubar_option_arrow)
    
    # Scrollbars, scale, progress bars:
    
    ::ttk::style element create Horizontal.Scrollbar.thumb \
        image $I(scroll_horizontal) -border 3 -width 16 -height 0 -sticky nsew
    ::ttk::style element create Vertical.Scrollbar.thumb \
        image $I(scroll_vertical) -border 3 -width 0 -height 16 -sticky nsew
    ::ttk::style element create trough \
        image $I(horizontal_trough) -sticky ew -border {0 2} -height 18
    ::ttk::style element create Vertical.Scrollbar.trough \
        image $I(vertical_trough) -sticky ns -border {2 0} -width 18
    ::ttk::style element create Vertical.Scale.trough \
        image $I(vertical_trough) -sticky ns -border {2 0}
    ::ttk::style element create Progress.bar image $I(progressbar)
    ::ttk::style element create Progress.trough image $I(through) -border 4
    
    # Notebook parts:
    
    ::ttk::style element create tab image \
        [list $I(notebook_inactive) selected $I(notebook_active)] \
        -border {2 2 2 1} -width 8
    ::ttk::style configure TNotebook.Tab -padding {4 2}
    ::ttk::style configure TNotebook -expandtab {2 1}
    
    # Arrows:
    
    ::ttk::style element create uparrow image $I(arrow_up_normal) -sticky {}
    ::ttk::style element create downarrow image $I(arrow_down_normal) -sticky {}
    ::ttk::style element create leftarrow image $I(arrow_left_normal) -sticky {}
    ::ttk::style element create rightarrow image $I(arrow_right_normal) -sticky {}

    # Panes:
    # doesn't work: ::ttk::style configure Sash -sashthickness 6 -gripcount 10

    # maybe a nice effect
    # (although the image was not intended to be used like this):

    ::ttk::style element create Sash.hsash \
        image $I(horizontal_trough) -border 1 -width 0 -height 6 -sticky nsew
    ::ttk::style element create Sash.vsash \
        image $I(vertical_trough) -border 1 -width 0 -height 6 -sticky nsew
  }
}


namespace eval ::tablelist:: {

  proc winxpblueTheme {} {
................................................................................
	-labelfont		TkDefaultFont \
	-labelborderwidth	2 \
	-labelpady		1 \
	-arrowcolor		#aca899 \
	-arrowstyle		flat9x5 \
	-showseparators         yes \
      ]

    # for some reason, these options needs to be explicitely set:
    option add *Tablelist.foreground       $themeDefaults(-foreground)
    option add *Tablelist.background       $themeDefaults(-background)
    option add *Tablelist.stripebackground $themeDefaults(-stripebackground)
  }
}


# -------------------------------------------------------------------------
# -------------------------------------------------------------------------

package provide ttk::theme::winxpblue $::ttk::theme::winxpblue::version