12.10.3     GetVal and SetVal

 

# GETVAL and SETVAL.scr - a Tcl Script

# A simple script to Get the value of a Tag.

# add one to it.

# Set the value of the tag to the new value.

 

set value1 [expr [GETVAL SPEED] + 1]

SETVAL SPEED=$value1