#----------------------------------------------------------------------------
# PLplot TK demos
# 
# Maurice LeBrun
# IFS, University of Texas at Austin
# 26-Jan-1995
#
# To plot these, start up plserver.  Type "source tkdemos.tcl", at which
# point a plframe extended widget is created.  Then type "1" for the first
# demo, "2" for the second, and so on.
#
# Note: each demo proc is supplied a widget argument if run from a widget,
# or "loopback" if being run from pltcl.  In the latter case, the
# "loopback cmd" does nothing, but is required two make the two styles of
# Tcl scripts compatible.
#
# $Id: tkdemos.tcl,v 1.1 1995/01/27 02:52:54 mjl Exp $
# $Log: tkdemos.tcl,v $
# Revision 1.1  1995/01/27  02:52:54  mjl
# New front-end demo file for use from plserver.  It uses the same example
# program files as pltcl but passes the name of the widget.
#
#----------------------------------------------------------------------------

plstdwin .
plxframe .plw
pack append . .plw {left expand fill}

for {set i 1} {$i <= 16} {incr i} {
    set demo x[format "%02d" $i]
    source $demo.tcl
    proc $i {} "$demo .plw.plwin"
}
