diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-06 21:14:32 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-06 21:14:32 (GMT) |
commit | 8a03f0daaee5e3981cd4f9f69b3841694e8dc0be (patch) | |
tree | ec4faf7f1f6ae1126b2d80e9f2b15c3322626e3c /ds9/library/command.tcl | |
parent | f8e0575309361e2f2cb476d9ed4eb525c3b89b18 (diff) | |
download | blt-8a03f0daaee5e3981cd4f9f69b3841694e8dc0be.zip blt-8a03f0daaee5e3981cd4f9f69b3841694e8dc0be.tar.gz blt-8a03f0daaee5e3981cd4f9f69b3841694e8dc0be.tar.bz2 |
add ds9 parsers
Diffstat (limited to 'ds9/library/command.tcl')
-rw-r--r-- | ds9/library/command.tcl | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/ds9/library/command.tcl b/ds9/library/command.tcl index bb8d476..221ea12 100644 --- a/ds9/library/command.tcl +++ b/ds9/library/command.tcl @@ -279,12 +279,7 @@ proc ProcessCommand {argv argc} { -orient {incr i; ProcessOrientCmd argv i} -pagesetup {incr i; ProcessPageSetupCmd argv i} -pspagesetup {incr i; ProcessPSPageSetupCmd argv i} - -pan { - incr i - if {[ProcessPanCmd argv i] != 0} { - return; - } - } + -pan {incr i; ProcessPanCmd argv i} -panner { # backward compatibility set view(panner) 1 @@ -455,12 +450,7 @@ proc ProcessCommand {argv argc} { } -zscale {incr i; ProcessZScaleCmd argv i} -zmax {set scale(mode) zmax; ChangeScaleMode} - -zoom { - incr i; - if {[ProcessZoomCmd argv i] != 0} { - return; - } - } + -zoom {incr i; ProcessZoomCmd argv i} default { # allow abc, -, and -[foo] but not -abc |