FIRST REPOSITORY

[eos/hostdependOTHERS.git] / I686LINUX / util / I686LINUX / lib / blt2.4 / demos / htext.txt

        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.