diff options
Diffstat (limited to 'ds9/library/util.tcl')
| -rw-r--r-- | ds9/library/util.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl index 1724235..04073f2 100644 --- a/ds9/library/util.tcl +++ b/ds9/library/util.tcl @@ -248,6 +248,11 @@ proc ProcessCmdFontStyle {varname key value {cmd {}}} { } } +proc ProcessCmdCVAR0 {cmd} { + global cvarname + eval $cmd $cvarname +} + proc ProcessCmdCVAR {key value {cmd {}}} { global cvarname upvar #0 $cvarname cvar |