summaryrefslogtreecommitdiffstats
path: root/ds9/library
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2018-06-18 20:35:12 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2018-06-18 20:35:12 (GMT)
commit2a2c1efa881b41e32e272b3686b8102a9ec6d234 (patch)
tree6e6580d08654b8ae22ab0fc2145756b79fa9b0c6 /ds9/library
parente18118239079bc8b1881e2095a3b5f6a3ff7a15b (diff)
downloadblt-2a2c1efa881b41e32e272b3686b8102a9ec6d234.zip
blt-2a2c1efa881b41e32e272b3686b8102a9ec6d234.tar.gz
blt-2a2c1efa881b41e32e272b3686b8102a9ec6d234.tar.bz2
update ds9 parsers
Diffstat (limited to 'ds9/library')
-rw-r--r--ds9/library/iis.tcl12
-rw-r--r--ds9/library/saveimage.tcl5
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