git.zerfleddert.de Git - micropolis/blob - src/tk/library/demos/showVars.tcl

1 # showVars w var var var ...

3 # Create a top-level window that displays a bunch of global variable values

4 # and keeps the display up-to-date even when the variables change value

6 # Arguments:

7 # w - Name to use for new top-level window.

8 # var - Name of variable to monitor.

10 proc showVars {w args} {

     catch {destroy $w}

12 toplevel $w

13 wm title $w "Variable values"

     label $w.title -text "Variable values:" -width 20 -anchor center \

             -font -Adobe-helvetica-medium-r-normal--*-180*

16 pack append $w $w.title {top fillx}

17 foreach i $args {

18 frame $w.$i

         label $w.$i.name -text "$i: "

         label $w.$i.value -textvar $i

         pack append $w.$i $w.$i.name left $w.$i.value left

         pack append $w $w.$i {top frame w}

23 }

     button $w.ok -text OK -command "destroy $w"

     pack append $w $w.ok {bottom pady 2}