gnuplot.tcl

::pwtk::gp::pause_

::pwtk::gp::pause_

SYNOPSIS

proc ::pwtk::gp::pause_ {value} {

PURPOSE

Set a pause value for the 'pause' gnuplot command. Options are:

RETURN VALUE

The following dictionary: pause $value pauseText $pauseText

SOURCE

    variable gp

    switch -- $value {
        mouse {
            set pauseText "Click on Gnuplot window"
        }
        default {
            if { [string is double -strict $value] } {
                if { $value >= 0.0 } {
                    if { $value == 1 } {
                        set pauseText "Wait for $value second"
                    } else {
                        set pauseText "Wait for $value seconds"
                    }
                } else {
                    set pauseText "Press <Enter> in the terminal"
                }
            } elseif { $value eq {} } {
                set pauseText {}            
            } else {
                ::pwtk::error "wrong value for gnuplot pause, must be 'mouse' or a number, but got: $value" 1
            }
        }
    }
    return [list pause $value pauseText $pauseText]
}

TABLE OF CONTENTS

::pwtk::gp::pause_