xcd.tcl

::pwtk::xcd::runScript

::pwtk::xcd::runScript

SYNOPSIS

proc ::pwtk::xcd::runScript {flag} {

PURPOSE

Inform PWTK when to run xcrysden script.

ARGUMENTS

flag -- allowed values 0, 1, 2

The meaning of the flag values:

0 -- do not run xcrysden script
1 -- run xcrysden script
2 -- run xcrysden only if a figure does not yet exist

SOURCE

    variable runScript
    if { $flag != 0 && $flag != 1 && $flag != 2 } {
        ::pwtk::error "wrong flag received in ::pwtk::xcd::runScript, must be:\n0 -- do not run xcrysden script\n1 -- run xcrysden script\n2 -- run only if picture does not exist yet" 
    }
    set runScript $flag
}

TABLE OF CONTENTS

::pwtk::xcd::runScript