Il CD di internet/CD.iso/SOURCE/TCL/BLT/_BLT.TAR/usr/lib/blt/demos/htext.txt

Text File | 1994-04-07 | 19.8 KB | 600 lines

        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 %%
label $blt_htext(widget).lab -text "append " -relief sunken \
        -font *-Courier-Bold-R-Normal-*-120-*
$blt_htext(widget) append $blt_htext(widget).lab
%% command.
For example,
%% message $blt_htext(widget).msg -relief sunken -bd 2 -aspect 10000 -font \
 *-Courier-Medium-R-Normal-*-120-* -text {set w $blt_htext(widget)
label $w.face -bitmap @bitmaps/face \
  -relief sunken -borderwidth 2
$w append $w.face -padx 2 -pady 0.25i}
$blt_htext(widget) append $blt_htext(widget).msg \
        -fill both %% added this %%
global tk_library
label $blt_htext(widget).face \
        -bitmap @$tk_library/demos/bitmaps/face  \
        -relief sunken -borderwidth 2
$blt_htext(widget) append $blt_htext(widget).face -padx 2 -pady 0.25i -fill both
%%.
There can be many types of widgets in the same document.  For example,
this is a simple %%
button $blt_htext(widget).but -bg pink -text { button } \
        -command { puts stderr { a stupid message } }
$blt_htext(widget) append $blt_htext(widget).but
%%. If you click on the button, it prints a stupid message.
Any Tk widget can be used, including %%
checkbutton $blt_htext(widget).ckbut -bg lightblue -text { check buttons } \
        -command { puts stderr { check button pressed } }
$blt_htext(widget) append $blt_htext(widget).ckbut
%%, %%
radiobutton $blt_htext(widget).rdbut -bg mediumseagreen -text { radio buttons } \
        -command { puts stderr { radio button pressed } }
$blt_htext(widget) append $blt_htext(widget).rdbut
%%,
and scales %%
scale $blt_htext(widget).sc -showvalue true \
        -length 100 \
        -sliderforeground powderblue \
        -sliderlength 10 \
        -orient horizontal
$blt_htext(widget) append $blt_htext(widget).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 $blt_htext(widget).frame
    frame $w
    message $w.msg -font *times-medium-r-normal--*-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

$blt_htext(widget) append $w -padx 1.0i -pady 0.25i
%%

You can add you own home-grown widgets.  Here's the blt_graph widget.
Beside it is the "color" demo.  Moving the scales, adjusts the background
color of the graph.
%%
proc makeplot { 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 -xdata $X -ydata {
        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 line -linewidth 0 -label VGS=2.0 -fg blue

    $widget element create a -xdata $X -ydata {
        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 cross -linewidth 0 -fg brown

    $widget element create Y2 -xdata $X -ydata {
        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 line -linewidth 0 -label VGS=3.5 -fg green

    $widget element create Y3 -xdata $X -ydata {
        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 line -linewidth 0  -label VGS=5.0 -fg red

    $widget element create t -xdata $X -ydata {
        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 plus -linewidth 0  -fg purple
}

option add *Blt_graph.title  "Plot Title"
option add *Blt_graph.xTitle "X Axis Label"
option add *Blt_graph.yTitle "Y Axis Label"
option add *Blt_graph.legendMapped false
option add *Blt_graph.relief ridge
option add *Blt_graph.borderWidth 2

blt_graph $blt_htext(widget).g -width 200 -height 200
#-xlog true -ylog true
makeplot $blt_htext(widget).g
$blt_htext(widget) append $blt_htext(widget).g -padx 0.25i -pady 0.25i

%% %%
#
# Simple script to change colors of a window.
#
global xlabel ylabel red green blue grph
set xlabel $blt_htext(widget).xlab
set ylabel $blt_htext(widget).ylab
set grph $blt_htext(widget).g
set w $blt_htext(widget).cf
set red 0
set green 0
set blue 0

option add *Scale.sliderForeground "#cdb79e"
option add *Scale.activeForeground "#ffe4c4"
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"
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 grph xlabel ylabel
    set $which $intensity
    set rgb [format #%02x%02x%02x $red $green $blue]
    $grph config -bg $rgb
    $xlabel config -bg $rgb
    $ylabel config -bg $rgb
}

$blt_htext(widget) append $w

%%
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 $blt_htext(widget).xlab -text { ??? ??? } -relief sunken
label $blt_htext(widget).ylab -text { ??? ??? } -relief sunken
bind $blt_htext(widget).g <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
}
$blt_htext(widget) append $blt_htext(widget).xlab -width 100 -fill x
%% and %%
$blt_htext(widget) append $blt_htext(widget).ylab -width 100 -fill x
%%.


There are three global variables automatically created when a hypertext
file is read:

        %%
button $blt_htext(widget).l1 -text "\$blt_htext(widget)" -command "puts stdout $blt_htext(widget)"
$blt_htext(widget) append $blt_htext(widget).l1 %% is the pathname of the hypertext widget.
        %%
button $blt_htext(widget).l2 -text "\$blt_htext(file)" -command "puts stdout $blt_htext(file)"
$blt_htext(widget) append $blt_htext(widget).l2
%% is the file being read and
        %%
button $blt_htext(widget).l3 -text "\$blt_htext(line)"  -command "puts stdout $blt_htext(line)"
$blt_htext(widget) append l3
%% is the current line number.

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 $blt_htext(widget).goto -text button -fg purple -bg white \
        -command "global endOfText; $blt_htext(widget) gotoline \$endOfText"
$blt_htext(widget) append $blt_htext(widget).goto
%% to jump to the end of the plain text.

         ------------------------------------------------------

This is version 1.4 of the BLT library.  It is an extension to
Tk toolkit (it requires no patching of the Tcl or Tk libraries).

This library works with the following releases of Tcl/Tk ONLY.

    Tcl 7.3 / Tk 3.6
    Tcl 7.2 / Tk 3.5
    Tcl 7.1 / Tk 3.4
    Tcl 7.0 / Tk 3.3

The BLT toolkit contains the following widgets/commands:

1) Drag-n-drop command: blt_drag&drop
    Updated version of Michael McLennan's drag and drop command
    (it's still maintained by Michael).

2) Hypertext widget: blt_htext
    Allows text and Tk widgets to combined in a single scroll-able
    window.

3) Busy window: blt_busy
    For handling user-interaction when the application is "busy".
    Manages an invisible "busy" window which prevents further
    user device (keyboard, mouse, button, etc.) interactions.
    Also provides a different cursor which supersedes application
    cursors.

4) Bitmap command: blt_bitmap
    Lets you read and write bitmaps from Tcl. Can define X bitmaps
    and create bitmaps from text strings.  Other options query any
        loaded X bitmap.

5) Background "exec" command: blt_bgexec
    Like "exec ... &", but collects the output of the detached
    UNIX subprocesses and sets a Tcl variable upon their completion.
    Can be used with "tkwait variable" to handle application's
    expose events, etc. while waiting for subprocesses to finish.

6) Table geometry manager: blt_table
    Specify window placements as table row,column positions. Also
    has many options for placing constraints on window resizes.

7) Barchart widget: blt_barchart

8) XY graph widget: blt_graph

9) Window option command: blt_win
    Lets you raise, lower, map, or, unmap any window.

10) Watch commands: blt_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.

11) Simple command trace: blt_debug
    Simply prints out each Tcl command before it's executed.

12) Cutbuffer and bell commands: blt_cutbuffer, blt_bell
    The commands are derived from the "bellcut" extensions and are
    provided as a convenience.  Credit should go to the author(s)
    (I can't remember who they are. Sorry) for this work.

---------

Changes since BLT-1.3:

1. Axis not re-scaling when changing log/linear scale.

2. New command: "blt_watch" arranges for Tcl procedures to be
   called before and/or after the execution of every Tcl command.
   This command may be used in the logging, profiling, or tracing of
   Tcl code.

3. Bug fixes:  See the file "ChangeLog" for details.  Thanks to all
   those who've sent me their reports and fixes.

---------

Changes since BLT-1.2:

1. Fixed manual scaling bug (seen in ./demos/graph2)

2. New feature: C interface to reset "blt_graph" element data.

3. Bug fixes:  See the file "ChangeLog" for details.  Again, thanks
   to all those who've sent me reports.

---------

Changes since BLT-1.1:

1. Fixed bug (coredump) in "blt_bgexec" command introduced
   last release.

2. Fixed bug (error) in "blt_graph" and "blt_barchart" commands
   introduced in last release.  Bug doesn't allow axis -min, -max options
   to be reset to autoscale.

3. Fixed bug in Kosherdill installation.

4. New feature in "blt_graph" and "blt_barchart".
   Added alternate x and y axes (x2, y2).
   Moved axis title options to their respective axis commands
    .graph configure -xtitle "X Axis Title"
   becomes
    .graph xaxis configure -title "X Axis Title"

---------

Changes since BLT-1.0:

1. Many changes to configuration and install files.  Hopefully this
   is an improvement.

2. New options in "blt_graph" to detect closest point and highlight
   single element data points.

3. New option in "blt_bitmap" command lets you create bitmaps of rotated
   text strings.

4. Restructured BLT library to facilitate loading as a shared object.

5. Lots of bug fixes:  See the file "ChangeLog" for details.  Again, thanks
   to all those who've sent me reports.

---------

Changes since BLT-1.0b2:

1. First BLT application.
                Kosher Dill
        ( KOmprehensive Storage HandlER / Disk ILLustrator )

       ---------------------------------------------------------------
          Copyright (c) 1993  AT&T Bell Laboratories
        Michael J. McLennan ([e-mail])
       ---------------------------------------------------------------

       Kosher Dill is a simple utility for managing disk usage.  It
       provides a graphical representation of the system "du" command,
       along with drag&drop facilities for exploring, compressing
       and removing files.

   It can be found in the new "blt-1.0/applications" directory.

2. Drag-and-drop facility "blt_drag&drop".  Michael McLennan has updated
   and added his drag-and-drop command.

3. Shared library target (for supported systems):  I've been able to test
   this only on SunOS 4.x, SunOS 5.x, and HP-UX 9.01 systems.

4. Add -updatevar flag to "blt_bgexec":  You can now get partial updates
   of output as the program is running.  See the script "demos/bgexec".

5. Library directory: This directory contains the drag-n-drop protocols
   and the PostScript prolog for graph and barchart.  The path can be
   set in the following ways:

    - compiled into the library.
    - set by the environment variable "BLT_LIBRARY"
    - set by the Tcl variable "blt_library"

6. Lots of bug fixes:  See the file "ChangeLog" for details.  Thanks to
   all those who've sent me reports.  I really appreciate it.

---------

How to get and test BLT:

The following describes how to get and install the BLT library.

0. FTP the distribution from harbor.ecn.purdue.edu

    ftp harbor.ecn.purdue.edu
    cd pub/tcl/extensions
    binary
    get BLT-1.4.tar.Z
    quit

1. Uncompress and untar the distribution file.

    zcat BLT-1.4.tar.Z | tar -xvf -


   This will create a directory "blt-1.4" with the following
   subdirectories:

                        blt-1.4
         ______________|_________________
             |          |       |      |    |
        applications  demos  library  man  src
                                            |
                                          shared

2. Run ./configure

   Go into the "blt-1.4" directory

    cd blt-1.4

   and run the auto-configuration script "./configure"

    ./configure

   * If you want to use gcc, it's "./configure -with-gcc"

    ./configure -with-gcc

   * By default, the demo program, libBLT.a, the library files, and
     manual pages will be installed in "/usr/local/blt".  You can
     change this by giving the -prefix option to ./configure.

    ./configure -prefix=/depot/stuff/blt

  You may be queried for the location of the Tcl and Tk libraries, if
  "configure" can't find them in the standard locations.

  The configure script creates an include file "src/bltConfig.h".
  It will also generate new Makefiles from their respective templates
  (Makefile.in).

    Makefile.in             ==> Makefile
    src/Makefile.in            ==> src/Makefile
    src/shared/Makefile.in    ==> src/shared/Makefile
    man/Makefile.in        ==> man/Makefile
    library/Makefile.in    ==> library/Makefile

  If "configure" can't find something (e.g. it can't find the X libraries),
  edit the file "config.status" and run it.

    ./config.status

  Otherwise, you'll have to edit the Makefiles files by hand.


3. Compile the demonstation program "blt_wish".

    make


4. Test by running the demos.

   Go into the demos directory

    cd demos

   and run the test scripts.

    ./graph

   If your system doesn't support "#!" in shell scripts, then it's

    ../blt_wish -f ./graph


5. Installing BLT

   The following directories will be created when BLT is installed.
   By default, the top directory is /usr/local/blt.

       _____________|__________
       |      |        |      |
      bin    lib     library man

   You can change the top directory by supplying the -prefix option to
   ./configure.

   * If you don't install BLT, you will need to set the BLT_LIBRARY
     environment variable or the Tcl variable "blt_library" in your
     scripts.  Otherwise, you may not be able generate PostScript
     output for graphs and barcharts, or use the drag&drop facility
     properly.


6. BLT Applications

   In the "blt-1.4/applications" directory, there is the first
   application called "kosherdill".  It has its own README and
   configure script.

7. Creating a shared library.

   This is currently available (and tested) on the following
   systems:

    SunOS 4.x
    SunOS 5.x
    HP-UX 9.01

   From the "blt-1.4" directory:

    make sharedlib

   This will create a shared library in the directory src/shared.


8. Adding BLT to your program.

   Add the following lines to your program's Tcl_AppInit routine

    if (Blt_Init(interp) != TCL_OK) {
        return TCL_ERROR;
         }

   Link with libBLT.a

   and that's all there's to it.

9. Send bugs reports, correspondence, etc. to

       [e-mail]



%%
global endOfText
set endOfText [expr $blt_htext(line)-1 ]

global updateInterval count graph
global Red Green Blue
set updateInterval 2000
set count 0
set Red bb
set Green 00
set Blue 33

option add *Blt_barchart.title "Bar Chart"
option add *Blt_barchart.xTitle "X"
option add *Blt_barchart.yTitle "Y"
option add *Blt_barchart.y2Title "Y"
option add *Blt_barchart.ySubTicks 0
option add *Blt_barchart.xTicks 0
option add *Blt_barchart.legendMapped false
option add *Blt_barchart.AxisFont *-Courier-Bold-R-Normal-*-80-*
option add *Blt_barchart.y2Mapped true

blt_barchart $blt_htext(widget).b

$blt_htext(widget) append $blt_htext(widget).b \
        -relwidth 1.0 -relheight 0.5 -fill both
set graph $blt_htext(widget).b

proc AnimateBarchart {  } {
    global updateInterval
    global count graph Red Blue Green

    if { [info commands $graph] != $graph } {
        return
    }
    incr count
    if { $count > 16 } {
        $graph element delete [lindex [$graph element show] 0]
    }
    set color [format "%x" [expr $count%16]]
    set Green ${color}${color}
    $graph element create $count -data { $count sin($count*0.1)} \
        -fg #${Red}${Green}${Blue} -bg brown -mapy both
    after $updateInterval AnimateBarchart
}
AnimateBarchart

%%

        Press %%
button $blt_htext(widget).quit -command { destroy . } -text {Quit} -bg pink
$blt_htext(widget) append quit
%% to remove the window.