diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-18 20:49:54 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-18 20:49:54 (GMT) |
commit | ee0c9f405c9ccbf762b2a9ebce4879683e00b801 (patch) | |
tree | be424737e6ea696faa223d7281ea48fd504443f1 /ds9/library/load.tcl | |
parent | 3e121d75852a441cb087ae5225fe9ef7d363173b (diff) | |
download | blt-ee0c9f405c9ccbf762b2a9ebce4879683e00b801.zip blt-ee0c9f405c9ccbf762b2a9ebce4879683e00b801.tar.gz blt-ee0c9f405c9ccbf762b2a9ebce4879683e00b801.tar.bz2 |
update parsers
Diffstat (limited to 'ds9/library/load.tcl')
-rw-r--r-- | ds9/library/load.tcl | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/ds9/library/load.tcl b/ds9/library/load.tcl index f07f405..714f962 100644 --- a/ds9/library/load.tcl +++ b/ds9/library/load.tcl @@ -428,20 +428,6 @@ proc ProcessSendPreserveCmd {proc id param {sock {}} {fn {}}} { preservesend::YY_FLUSH_BUFFER preservesend::yy_scan_string $param preservesend::yyparse - return - - global scale - global panzoom - global marker - - switch -- [string tolower $param] { - scale { - # backward compatibility - $proc $id "no\n" - } - pan {$proc $id [ToYesNo $panzoom(preserve)]} - regions {$proc $id [ToYesNo $marker(preserve)]} - } } # Update |