diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-11 16:45:42 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-11 16:45:42 (GMT) |
commit | d233cb16ebbd17b7b0279a369554531709e1e9e5 (patch) | |
tree | bb11d67d77e5976eec672e63a32cfc1dfdba8e5e /ds9/library/wcs.tcl | |
parent | 9a7fedd488a60e755afeffc1fa60c560f2492446 (diff) | |
download | blt-d233cb16ebbd17b7b0279a369554531709e1e9e5.zip blt-d233cb16ebbd17b7b0279a369554531709e1e9e5.tar.gz blt-d233cb16ebbd17b7b0279a369554531709e1e9e5.tar.bz2 |
add ds9 prefs send parser
Diffstat (limited to 'ds9/library/wcs.tcl')
-rw-r--r-- | ds9/library/wcs.tcl | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/ds9/library/wcs.tcl b/ds9/library/wcs.tcl index 1162369..d0e1f5c 100644 --- a/ds9/library/wcs.tcl +++ b/ds9/library/wcs.tcl @@ -1194,18 +1194,6 @@ proc ProcessSendWCSCmd {proc id param {sock {}} {fn {}}} { wcssend::YY_FLUSH_BUFFER wcssend::yy_scan_string $param wcssend::yyparse - return - - global current - global wcs - switch -- [string tolower $param] { - align {$proc $id [ToYesNo $current(align)]} - system {$proc $id "$wcs(system)\n"} - sky {$proc $id "$wcs(sky)\n"} - format - - skyformat {$proc $id "$wcs(skyformat)\n"} - default {$proc $id "$wcs(system)\n"} - } } # backward compatibilty |