diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-04-10 21:27:06 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-04-10 21:27:06 (GMT) |
| commit | 365080c725d9a48479728a28a2670725978fc4f8 (patch) | |
| tree | ee9f30a58e99c84266b2eabaf0d8ae09b6c4e1ec /ds9/library/grid.tcl | |
| parent | b4a7cb80b5de39988bafee95af43885e9027de8e (diff) | |
| download | blt-365080c725d9a48479728a28a2670725978fc4f8.zip blt-365080c725d9a48479728a28a2670725978fc4f8.tar.gz blt-365080c725d9a48479728a28a2670725978fc4f8.tar.bz2 | |
restore non parser cmd code
Diffstat (limited to 'ds9/library/grid.tcl')
| -rw-r--r-- | ds9/library/grid.tcl | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/ds9/library/grid.tcl b/ds9/library/grid.tcl index 5ba0ca5..314a804 100644 --- a/ds9/library/grid.tcl +++ b/ds9/library/grid.tcl @@ -1163,7 +1163,6 @@ proc ProcessGridCmd {varname iname} { set grid(view) [FromYesNo [lindex $var $i]] GridUpdateCurrent } - type { incr i switch -- [string tolower [lindex $var $i]] { @@ -1179,7 +1178,6 @@ proc ProcessGridCmd {varname iname} { } GridUpdateCurrent } - system {incr i; set grid(system) [lindex $var $i]; GridUpdateCurrent} sky {incr i set grid(sky) [string tolower [lindex $var $i]] @@ -1195,7 +1193,6 @@ proc ProcessGridCmd {varname iname} { } GridUpdateCurrent } - grid { incr i switch -- [string tolower [lindex $var $i]] { @@ -1209,7 +1206,6 @@ proc ProcessGridCmd {varname iname} { } GridUpdateCurrent } - axes { incr i switch -- [string tolower [lindex $var $i]] { @@ -1222,7 +1218,6 @@ proc ProcessGridCmd {varname iname} { } GridUpdateCurrent } - format1 { incr i; set grid(format1) [lindex $var $i] GridUpdateCurrent @@ -1231,7 +1226,6 @@ proc ProcessGridCmd {varname iname} { incr i; set grid(format2) [lindex $var $i] GridUpdateCurrent } - tickmark - tickmarks - tick { @@ -1244,7 +1238,6 @@ proc ProcessGridCmd {varname iname} { } GridUpdateCurrent } - border { incr i switch -- [string tolower [lindex $var $i]] { @@ -1255,7 +1248,6 @@ proc ProcessGridCmd {varname iname} { } GridUpdateCurrent } - numeric - numerics - numlab { @@ -1292,7 +1284,6 @@ proc ProcessGridCmd {varname iname} { } GridUpdateCurrent } - title { incr i switch -- [string tolower [lindex $var $i]] { @@ -1325,7 +1316,6 @@ proc ProcessGridCmd {varname iname} { } GridUpdateCurrent } - label - labels - textlab { @@ -1363,7 +1353,6 @@ proc ProcessGridCmd {varname iname} { } GridUpdateCurrent } - view { # backward compatable incr i @@ -1390,20 +1379,17 @@ proc ProcessGridCmd {varname iname} { } GridUpdateCurrent } - reset {GridResetDialog} load { incr i set fn [lindex $var $i] FileLast gridfbox $fn - GridLoad $fn } save { incr i set fn [lindex $var $i] FileLast gridfbox $fn - GridSave $fn } default { |