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/saveimage.tcl | |
| parent | 1c67d6f171b0c716a01ffcc04a697ac312cda953 (diff) | |
| download | blt-5ef46e82c2166227ec7966c6844f9da625bc9a7b.zip blt-5ef46e82c2166227ec7966c6844f9da625bc9a7b.tar.gz blt-5ef46e82c2166227ec7966c6844f9da625bc9a7b.tar.bz2 | |
update ds9 parsers
Diffstat (limited to 'ds9/library/saveimage.tcl')
| -rw-r--r-- | ds9/library/saveimage.tcl | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/ds9/library/saveimage.tcl b/ds9/library/saveimage.tcl index 4729deb..35f5d96 100644 --- a/ds9/library/saveimage.tcl +++ b/ds9/library/saveimage.tcl @@ -160,15 +160,6 @@ proc ProcessSaveImageCmd {varname iname} { incr i [expr $saveimage::yycnt-1] } -proc SaveimageCmdSet {which value {cmd {}}} { - global saveimage - - set saveimage($which) $value - if {$cmd != {}} { - eval $cmd - } -} - proc SaveimageCmdLoad {format fn} { switch -- $format { fits {FileLast fitsfbox $fn} |