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
|
This is a (for lack of a better name) hypertext widget.
This widget combines text and other Tk widgets in the same window.
It is sort of a cross between a read-only text widget and the pack command.
Any widget can be attached to the hypertext window by the %%
set this $htext(widget)
label $this.lab -text "append " -relief sunken \
-font *-Courier-Bold-R-Normal-*-12-120-*
$this append $this.lab
%% command.
For example,
%% message $this.msg -relief sunken -bd 2 -aspect 10000 -font \
*-Courier-Medium-R-Normal-*-12-* -text {set w $htext(widget)
label $w.face -bitmap @bitmaps/face.xbm \
-relief sunken -borderwidth 2
$w append $w.face -padx 2 -pady 0.25i}
$this append $this.msg \
-fill both %% added this %%
global tk_library
label $this.face \
-bitmap @bitmaps/face.xbm \
-relief sunken -borderwidth 2
$this append $this.face -padx 2 -pady 0.25i
%%.
There can be many types of widgets in the same document. For example,
this is a simple %%
button $this.but -bg pink -text { button } \
-command { puts stderr { a stupid message } }
$this append $this.but
%%. If you click on the button, it prints a stupid message.
Any Tk widget can be used, including %%
set whichTile 0
proc ChangeTile { w } {
global whichTile
if { $whichTile } {
$w configure -tile bgTexture2
} else {
$w configure -tile bgTexture1
}
}
checkbutton $this.ckbut -bg lightblue -text { check buttons } \
-variable whichTile -command "ChangeTile $this"
$this append $this.ckbut -justify top
%%, %%
radiobutton $this.rdbut -bg mediumseagreen -text { radio buttons } \
-command { puts stderr { radio button pressed } }
$this append $this.rdbut -justify bottom
%%,
and scales %%
# -sliderforeground
scale $this.sc -showvalue true \
-length 100 \
-foreground powderblue \
-sliderlength 10 \
-orient horizontal
$this append $this.sc
%%.
Widget trees can be also be included. The following example is
*borrowed* from the widget demo. It is a couple of frames surrounding a
listbox, a message, and a button widget.
%%
set w $this.frame
frame $w
message $w.msg -font *times-medium-r-normal--*-12-120-* -aspect 300 \
-text "A listbox containing the 50 states is displayed below, along with a scrollbar. You can scan the list either using the scrollbar or by dragging in the listbox window with button 3 pressed. Click the \"OK\" button when you've seen enough." -bg lightsteelblue -relief sunken
frame $w.frame -borderwidth 10
pack append $w.frame \
[scrollbar $w.frame.scroll -relief sunken \
-command "$w.frame.list yview"] {right expand filly frame w} \
[listbox $w.frame.list -yscroll "$w.frame.scroll set" -relief sunken] \
{left expand filly frame e}
$w.frame.list insert 0 Alabama Alaska Arizona Arkansas California \
Colorado Connecticut Delaware Florida Georgia Hawaii Idaho Illinois \
Indiana Iowa Kansas Kentucky Louisiana Maine Maryland \
Massachusetts Michigan Minnesota Mississippi Missouri \
Montana Nebraska Nevada "New Hampshire" "New Jersey" "New Mexico" \
"New York" "North Carolina" "North Dakota" \
Ohio Oklahoma Oregon Pennsylvania "Rhode Island" \
"South Carolina" "South Dakota" \
Tennessee Texas Utah Vermont Virginia Washington \
"West Virginia" Wisconsin Wyoming
button $w.ok -text OK -command "puts stderr $w; destroy $w"
pack append $w $w.msg {top fill} $w.frame {top expand fill} \
$w.ok {bottom fill}
$w config -bg lightsteelblue -relief sunken
$this append $w -pady 0.25i
%%
You can add you own home-grown widgets. Here's the graph widget.
Beside it is the "color" demo. Moving the scales, adjusts the background
color of the graph.
%%
#
# Simple script to change colors of a window.
#
global xlabel ylabel red green blue graph
set red 255
set green 215
set blue 0
option add *Scale.sliderForeground "#cdb79e"
option add *Scale.activeForeground "#ffe4c4"
set w $this.colorFrame
frame $w
scale $w.red -command "color red" -label "Red Intensity" \
-from 0 -to 255 -orient horizontal -bg "#ffaeb9" -length 250
scale $w.green -command "color green" -label "Green Intensity" \
-from 0 -to 255 -orient horizontal -bg "#43cd80"
scale $w.blue -command "color blue" -label "Blue Intensity" \
-from 0 -to 255 -orient horizontal -bg "#7ec0ee"
$w.blue set $blue
$w.green set $green
$w.red set $red
pack append $w $w.red {top expand fill}
pack append $w $w.green {top expand fill}
pack append $w $w.blue {top expand fill}
proc color {which intensity} {
global red green blue graph xlabel ylabel
set $which $intensity
set rgb [format #%02x%02x%02x $red $green $blue]
$graph config -bg $rgb
$xlabel config -bg $rgb
$ylabel config -bg $rgb
}
$this append $w
%%
%%
proc makeplot { widget } {
graph $widget
set X {
2.00000e-01 4.00000e-01 6.00000e-01 8.00000e-01 1.00000e+00
1.20000e+00 1.40000e+00 1.60000e+00 1.80000e+00 2.00000e+00
2.20000e+00 2.40000e+00 2.60000e+00 2.80000e+00 3.00000e+00
3.20000e+00 3.40000e+00 3.60000e+00 3.80000e+00 4.00000e+00
4.20000e+00 4.40000e+00 4.60000e+00 4.80000e+00 5.00000e+00
}
$widget element create Y1 -x $X -y {
1.14471e+01 2.09373e+01 2.84608e+01 3.40080e+01 3.75691e+01
3.91345e+01 3.92706e+01 3.93474e+01 3.94242e+01 3.95010e+01
3.95778e+01 3.96545e+01 3.97313e+01 3.98081e+01 3.98849e+01
3.99617e+01 4.00384e+01 4.01152e+01 4.01920e+01 4.02688e+01
4.03455e+01 4.04223e+01 4.04990e+01 4.05758e+01 4.06526e+01
} -symbol circle -label VGS=2.0 -color blue4 -fill blue
$widget element create Y2 -x $X -y {
2.61825e+01 5.04696e+01 7.28517e+01 9.33192e+01 1.11863e+02
1.28473e+02 1.43140e+02 1.55854e+02 1.66606e+02 1.75386e+02
1.82185e+02 1.86994e+02 1.89802e+02 1.90683e+02 1.91047e+02
1.91411e+02 1.91775e+02 1.92139e+02 1.92503e+02 1.92867e+02
1.93231e+02 1.93595e+02 1.93958e+02 1.94322e+02 1.94686e+02
} -symbol diamond -label VGS=3.5 -color green4 -fill green
$widget element create Y3 -x $X -y {
4.07008e+01 7.95658e+01 1.16585e+02 1.51750e+02 1.85051e+02
2.16479e+02 2.46024e+02 2.73676e+02 2.99427e+02 3.23267e+02
3.45187e+02 3.65177e+02 3.83228e+02 3.99331e+02 4.13476e+02
4.25655e+02 4.35856e+02 4.44073e+02 4.50294e+02 4.54512e+02
4.56716e+02 4.57596e+02 4.58448e+02 4.59299e+02 4.60151e+02
} -symbol triangle -label VGS=5.0 -color red4 -fill red
}
option add *graph.title "Plot Title"
option add *graph.xTitle "X Axis Label"
option add *graph.yTitle "Y Axis Label"
#option add *graph.legendMapped false
option add *graph.elemPixels 8
option add *graph.relief ridge
option add *graph.borderWidth 2
set graph $this.graph
set xlabel $this.xlab
set ylabel $this.ylab
makeplot $graph
$this append $graph -padx 0.25i -pady 0.25i
%%
If you click on any button in the graph, you will get the coordinate
values at the pointer location.
The current coordinate values are %%
label $xlabel -text { ??? ??? } -relief sunken
label $ylabel -text { ??? ??? } -relief sunken
bind $graph <ButtonPress> {labelxy [ %W invtransform %x %y ]}
proc labelxy { values } {
global xlabel ylabel
scan $values "%e %e" x y
$xlabel config -text $x
$ylabel config -text $y
}
$this append $this.xlab -width 100 -fill x
%% and %%
$this append $this.ylab -width 100 -fill x
%%.
There are four global variables automatically created when a hypertext
file is read. They are:
%%
button $this.l1 -text " \$htext(widget) " \
-command "puts $this" -bg orange
$this append $this.l1 -width 200 -pady 4
%%the pathname of the hypertext widget.
%%
button $this.l2 -text " \$htext(file) " \
-command "puts $htext(file)" -bg orange
$this append $this.l2 -width 200 -pady 4
%%the file being read.
%%
button $this.l3 -text " \$htext(line) " \
-command "puts $htext(line)" -bg orange
$this append $this.l3 -width 200 -pady 4
%%the current line number.
%%
button $this.l4 -text " \$htext(index) " \
-command "puts $htext(index)" -bg orange
$this append $this.l4 -width 200 -pady 4
%%the current index in the text.
Click on any button and the current value is printed on standard output.
The hypertext widget works with plain text too. If you don't want
to read it, click on the %%
button $this.goto -text button -fg purple -bg white \
-command "global endOfText; $this gotoline \$endOfText"
$this append $this.goto
%% to jump to the end of the plain text.
------------------------------------------------------
[This is a pre-release version of BLT. It's basically the latest
snapshot of BLT, as it moves towards a full release. What this means
is that the documentation and demos still need work. Let me know
about any configuration/compiler/installation goofs so I make sure
they're fixed for the next release.]
This is version 2.4 of the BLT library. It's an extension to the
Tcl/Tk toolkit. You simply compile and link with the Tcl/Tk
libraries. It does not require the Tcl or Tk source files.
BLT is available from
ftp.tcltk.com
in the "pub/blt" directory. The URL is
ftp://ftp.tcltk.com/pub/blt/BLT2.4.tar.gz
This release has been compiled and tested with versions:
Tcl 7.5 / Tk 4.1
Tcl 7.6 / Tk 4.2
Tcl/Tk 8.0
Tcl/Tk 8.1a2
What is BLT?
BLT is an extension to Tk. It adds plotting widgets (X-Y graph,
barchart, stripchart), a powerful geometry manager, a new canvas
item, and several new commands to Tk.
Plotting widgets:
graph, barchart, stripchart
BLT has X-Y graph, barchart, and stripchart widgets that are
both easy to use and customize. All the widgets work with
BLT vector data objects, which makes it easy to manage data.
Hierarchical list box:
hierbox Displays a general ordered tree which may be built
on-the-fly or all at once.
Tab set:
tabset Can be used either as a tab notebook or simple tabset.
Multi-tiered and/or scrolled tabsets are available.
Notebook pages can be torn-off into separate windows and
later put back.
Geometry Manager:
table A table-based geometry manager. Lets you specify widget
layouts by row and column positions in the table. Unlike the
packer or grid, you can finely control and constrain window
sizes.
Vector Data Object:
vector Lets you manage a vector of floating point values in a
high-level fashion. Vectors inter-operate seamlessly with
the plotting widgets. The graphs will automatically redraw
themselves when the vector data changes. Vector's components
can be managed through a Tcl array variable, a Tcl command,
or the using its own C API.
Background Program Execution:
bgexec Like Tcl's "exec ... &", but collects the output, error, and
status of the detached UNIX subprocesses. Sets a Tcl variable
upon completion.
Busy Command:
busy For preventing user-interactions when the application is
busy. Manages an invisible "busy" window which prevents
further user interactions (keyboard, mouse, button, etc.).
Also you can provide a busy cursor that temporarily
overrides those of the Tk widgets.
New Canvas Item:
eps An new item is added to the Tk canvas for handling
encapsulated PostScript. It lets you embed an EPS file into
the canvas displaying either an EPS preview image found in
the file, or a Tk image that you provide. When you print
the canvas the EPS item will automatically include the EPS
file, translating and scaling the PostScript. For example,
you could use "eps" items to tile several PostScript pages
into single page.
The "eps" item can also be used as a replacement for "image"
canvas items. Unlike "image" canvas items, the image of an
eps item can be printed and scaled arbitrarily.
Drag & Drop Facility:
drag&drop Adds drag-n-drop capabilities to Tk. It uses "send"-style
communication between drag-drop sources and targets. The
result is a much more powerful drag-and-drop mechanism than
is available with OpenLook or Motif.
Bitmap Command:
bitmap Lets you read and write bitmaps from Tcl. You can define
bitmaps from ordinary text strings. Bitmaps can also be
scaled and rotated. For example, you can create a button
with rotated text by defining a bitmap from a text string
and rotating it. You can then use the bitmap in the button
widget.
Miscellaneous Commands:
winop Basic window operations. You can raise, lower, map, or,
unmap windows. Other operations let you move the pointer
or take photo image snapshots of Tk widgets.
bltdebug Lets you trace the execution of Tcl commands and procedures.
Prints out each Tcl command before it's executed.
watch Lets you specify Tcl procedures to be run before and/or
after every Tcl command. May be used for logging, tracing,
profiling, or debugging or Tcl code.
spline Computes a spline fitting a set of data points (x and y
vectors) and produces a vector of the interpolated images
(y-coordinates) at a given set of x-coordinates.
htext A simple hypertext widget. Allows text and Tk widgets to
be combined in a scroll-able text window. Any Tk widget
can be embedded and used to form hyper-links. Other
options allow for selections and text searches.
What's new in 2.4?
1. "eps" canvas item.
An encapsulated PostScript canvas item lets you embed an EPS file into
the canvas. The "eps" item displays either a EPS preview image found
in the file, or a Tk image that you provide.
2. "hierbox" widget.
Hierarchical listbox widget. Displays a general ordered tree which
may be built on-the-fly or all at once.
3. "tabset" widget.
Can be used either as a tab notebook or simple tabset. Tabs can
be arranged in a variety of ways: multi-tiered, scrolled, and
attached to any of the four sides. Tab labels can contain both
images and text (text can be arbitrarily rotated). Notebook pages
can be torn-off into separate windows and replaced later.
4. Changes to vectors.
New features:
o Vector expressions. The vector now has an "expr" operation
that lets you perform math (including math library
functions) on vectors. There are several new functions
(such as "max", "min", "mean" "median", "q1", "q3", "prod",
"sum", "adev", "sdev", "skew", ...)
vector expr { sin(x)^2 + cos(x)^2 }
y expr { log(x) * $value }
o New syntax to create and destroy vectors:
vector create x
vector destroy x
The old syntax for creating vectors still works.
vector x
o Vectors are *not* automatically deleted when their Tcl
variable is unset anymore. This means that you can
temporarily map vectors to variables and use them as you
would an ordinary Tcl array (kind of like "upvar").
proc AddValue { vecName value } {
$vecName variable x
set x(++end) $value
}
There's an "-watchunset" flag to restore the old
behavior if you need it.
vector create x -watchunset yes
o Vectors still automatically create Tcl variables by
default. I'd like to change this, but it silently
breaks lots of code, so it will stay.
Bug fixes:
o Vector reallocation failed when shrinking the vector.
o Vector "destroy" callback made after vector was
already freed.
5. Changes to Graph, Barchart, Stripchart widgets.
New features:
o Drop shadows for text (titles, markers, etc). Drop
shadows improve contrast when displaying text over a
background with similar color intensities.
o Postscript "-preview" option to generate a EPS
PostScript preview image that can be read and
displayed by the EPS canvas item.
o New "-topvariable", "-bottomvariable",
"-leftvariable", and "-rightvariable" options. They
specify variables to contain the current margin
sizes. These variables are updated whenever the
graph is redrawn.
o New "-aspect" option. Let's you maintain a particular aspect
ratio for the the graph.
o Image markers can now be stretched and zoomed like
bitmap markers.
o Bind operation for legend entries, markers, and elements.
Much thanks to Julian Loaring <bigj@bigj.demon.co.uk>
for the suggestions.
o New "-xor" option for line markers, lets you draw the line
by rubberbanded by XOR-ing without requiring the graph to
be redrawn. This can be used, for example, to select regions
like in zooming.
Thanks to Johannes Zellner (joze@krisal.physik.uni-karlsruhe.de)
for the suggestion.
Bug fixes:
o Closest line (point) broken when using pens styles.
o Marker elastic coordinates were wrong.
o PostScript bounding box included the border of the page.
o Bad PostScript generated for barchart symbols with stipples.
o Wrong dimensions computed with postscript " -maxpect" option.
o Text markers fixed.
Thanks to De Clarke for the bug report and fix.
o Renamed axis configuration from "-range" to "-autorange" to
match the documentation.
Thanks to Brian Smith for the correction.
o Fixed polygon marker pick routine.
o Fixed active tab labels overlapping the selected tab.
What's incompatible with releases prior to BLT 2.4?
1. Vector names must start with a letter and contain letters, digits,
or underscores.
Namespace Issues: Vector names are still global. If Tcl provides
an API, vectors may in the future be created on
a per-namespace basis. Right now, there's no
mechanism for detecting when a namespace has been
destroyed. Which is why you can't currently
prefix a vector name with a namespace qualifier.
[Ok, there is... Thanks to Michael McLennan for
pointing this out to me. So maybe soon there
will be vectors on a per namespace basis.]
2. The "-mapped" options throughout the graph have been replaced
by the "-hide" option. The many usages of the word "map" was
getting confusing.
# No longer works.
.graph legend configure -mapped no
# Instead use this.
.graph legend configure -hide yes
How to compile and test BLT?
See the file "INSTALL" for instructions.
When will the so-called "official" BLT work with Windows?
It currently compiles and runs with MS VC++ and EGCS 1.1 under
Windows 95/NT (loadable binary versions will be forthcoming).
Everything pretty much works: graphs, bgexec, busy, drag&drop etc.
When will...?
In general, I can't answer the "When will" questions, mostly out of
embarrassment. My estimates of when new features and releases will
occur usually turn out to be way way off.
What does BLT stand for?
Whatever you want it to.
--gah
%%
global endOfText
set endOfText [expr $htext(line)-1 ]
global updateInterval count barchart
global Red Green Blue
set updateInterval 200
set count 0
set Red bb
set Green 00
set Blue 33
option add *barchart.title "Bar Chart"
option add *barchart.x.title "X"
option add *barchart.y.title "Y"
option add *barchart.y2.title "Y"
option add *barchart.Axis.subTicks 0
option add *barchart.x.stepSize 0
option add *barchart.x.Ticks 0
option add *barchart.legend.hide yes
option add *barchart.Axis.Font *-Courier-Bold-R-Normal-*-8-80-*
option add *barchart.y2.hide yes
set barchart $this.barchart
barchart $barchart -bd 2 -relief raised -tile bgTexture2
$barchart y2axis use y
$this append $barchart -fill both -padx 10 -pady 10 -relwidth 0.8
proc AnimateBarchart { } {
global updateInterval
global barchart count Red Blue Green
if { [info commands $barchart] != $barchart } {
return
}
incr count
if { $count > 100 } {
$barchart element delete [lindex [$barchart element show] end]
}
set color [format "%x" [expr $count%16]]
set Green ${color}${color}
$barchart element create $count -data { $count sin($count*0.1)} \
-fg #${Red}${Green}${Blue} -bg brown
after $updateInterval AnimateBarchart
}
AnimateBarchart
%%
Press %%
button $this.quit -command { exit } -text {Quit} -bg pink
$this append $this.quit
%% to remove the window.
|