TABLE OF CONTENTS


::pwtk::input::peek

SYNOPSIS

proc ::pwtk::input::peek {} {

PURPOSE

The "peek" proc for the input data & state. It returns the current input data & state as a list of the following format:

      array1 array1Data array2 array2Data

where arrayData is in the form to be used by "array set" command, e.g.:

      array set array1 $array1Data

SEE ALSO

For more explanation about the input data & state stack meschanism, see ::pwtk::input::push

SOURCE

    variable stack

    # use 'pushpop' to get the current input data & state
    #
    # N.B. without pushpop, the input data & state of the previous
    # stackLevel would be returned
    
    pushpop {
        return [lindex $stack end]
    }
}