Return to showVars.tcl CVS log

Up to [Micropolis - Activity] / micropolis / src / tk / library / demos

Annotation of micropolis/src/tk/library/demos/showVars.tcl, revision 1.1

1.1     ! root        1: # showVars w var var var ...
        !             2: #
        !             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
        !             5: #
        !             6: # Arguments:
        !             7: #    w -       Name to use for new top-level window.
        !             8: #    var -     Name of variable to monitor.
        !             9: 
        !            10: proc showVars {w args} {
        !            11:     catch {destroy $w}
        !            12:     toplevel $w
        !            13:     wm title $w "Variable values"
        !            14:     label $w.title -text "Variable values:" -width 20 -anchor center \
        !            15:            -font -Adobe-helvetica-medium-r-normal--*-180*
        !            16:     pack append $w $w.title {top fillx}
        !            17:     foreach i $args {
        !            18:        frame $w.$i
        !            19:        label $w.$i.name -text "$i: "
        !            20:        label $w.$i.value -textvar $i
        !            21:        pack append $w.$i $w.$i.name left $w.$i.value left
        !            22:        pack append $w $w.$i {top frame w}
        !            23:     }
        !            24:     button $w.ok -text OK -command "destroy $w"
        !            25:     pack append $w $w.ok {bottom pady 2}
        !            26: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.