diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-18 20:35:12 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-18 20:35:12 (GMT) |
commit | 2a2c1efa881b41e32e272b3686b8102a9ec6d234 (patch) | |
tree | 6e6580d08654b8ae22ab0fc2145756b79fa9b0c6 /ds9/library | |
parent | e18118239079bc8b1881e2095a3b5f6a3ff7a15b (diff) | |
download | blt-2a2c1efa881b41e32e272b3686b8102a9ec6d234.zip blt-2a2c1efa881b41e32e272b3686b8102a9ec6d234.tar.gz blt-2a2c1efa881b41e32e272b3686b8102a9ec6d234.tar.bz2 |
update ds9 parsers
Diffstat (limited to 'ds9/library')
-rw-r--r-- | ds9/library/iis.tcl | 12 | ||||
-rw-r--r-- | ds9/library/saveimage.tcl | 5 |
2 files changed, 2 insertions, 15 deletions
diff --git a/ds9/library/iis.tcl b/ds9/library/iis.tcl index 837a6ed..8f13a39 100644 --- a/ds9/library/iis.tcl +++ b/ds9/library/iis.tcl @@ -382,17 +382,5 @@ proc ProcessSendIISCmd {proc id param {sock {}} {fn {}}} { iissend::YY_FLUSH_BUFFER iissend::yy_scan_string $param iissend::yyparse - return - - global current - - switch -- [string tolower [lindex $param 0]] { - filename { - if {$current(frame) != {}} { - $proc $id \ - "[$current(frame) get iis file name [lindex $param 1]]\n" - } - } - } } diff --git a/ds9/library/saveimage.tcl b/ds9/library/saveimage.tcl index 35f5d96..cf6b240 100644 --- a/ds9/library/saveimage.tcl +++ b/ds9/library/saveimage.tcl @@ -45,7 +45,6 @@ proc SaveImageDialog {format} { global tifffbox global pngfbox - puts "a:[array get tifffbox]" switch -- $format { fits {set fn [SaveFileDialog fitsfbox]} eps {set fn [SaveFileDialog epsfbox]} @@ -160,7 +159,7 @@ proc ProcessSaveImageCmd {varname iname} { incr i [expr $saveimage::yycnt-1] } -proc SaveimageCmdLoad {format fn} { +proc SaveImageCmdLoad {format fn} { switch -- $format { fits {FileLast fitsfbox $fn} eps {FileLast epsfbox $fn} @@ -172,7 +171,7 @@ proc SaveimageCmdLoad {format fn} { SaveImage $fn $format } -proc SaveimageCmdMPEG {fn na} { +proc SaveImageCmdMPEG {fn na} { global movie set movie(action) slice |