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.