summaryrefslogtreecommitdiffstats
path: root/ds9/library/load.tcl
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2018-06-18 20:49:54 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2018-06-18 20:49:54 (GMT)
commitee0c9f405c9ccbf762b2a9ebce4879683e00b801 (patch)
treebe424737e6ea696faa223d7281ea48fd504443f1 /ds9/library/load.tcl
parent3e121d75852a441cb087ae5225fe9ef7d363173b (diff)
downloadblt-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.tcl14
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