diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-31 18:44:33 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-31 18:44:33 (GMT) |
| commit | 5ef46e82c2166227ec7966c6844f9da625bc9a7b (patch) | |
| tree | 55f1528586f494bade5e018e664ac7ac1c02c4cf /ds9/library/util.tcl | |
| parent | 1c67d6f171b0c716a01ffcc04a697ac312cda953 (diff) | |
| download | blt-5ef46e82c2166227ec7966c6844f9da625bc9a7b.zip blt-5ef46e82c2166227ec7966c6844f9da625bc9a7b.tar.gz blt-5ef46e82c2166227ec7966c6844f9da625bc9a7b.tar.bz2 | |
update ds9 parsers
Diffstat (limited to 'ds9/library/util.tcl')
| -rw-r--r-- | ds9/library/util.tcl | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl index e2a7a0f..6ac644b 100644 --- a/ds9/library/util.tcl +++ b/ds9/library/util.tcl @@ -1210,24 +1210,6 @@ proc DS9Backup {ch which} { # Process Cmds -proc ds9CmdSet {which value {cmd {}}} { - global ds9 - - set ds9($which) $value - if {$cmd != {}} { - eval $cmd - } -} - -proc pds9CmdSet {which value {cmd {}}} { - global pds9 - - set pds9($which) $value - if {$cmd != {}} { - eval $cmd - } -} - proc ProcessPrefsCmd {varname iname} { upvar $varname var upvar $iname i |