diff options
| -rw-r--r-- | ds9/library/marker.tcl | 9 | ||||
| -rw-r--r-- | ds9/parsers/regionparser.tac | 2 |
2 files changed, 8 insertions, 3 deletions
diff --git a/ds9/library/marker.tcl b/ds9/library/marker.tcl index 3a94fdb..835da80 100644 --- a/ds9/library/marker.tcl +++ b/ds9/library/marker.tcl @@ -1411,6 +1411,11 @@ proc ProcessRegionsCmd {varname iname sock fn} { # we need to be realized ProcessRealizeDS9 + puts "format: $marker(format)" + puts "system: $marker(system)" + puts "sky: $marker(sky)" + puts "skyformat: $marker(skyformat)" + global debug if {$debug(tcl,parser)} { set marker(load,sock) $sock @@ -1977,7 +1982,7 @@ proc ProcessRegionsCmd {varname iname sock fn} { } proc RegionCmdSet {which value {cmd {}}} { - global bin + global marker set marker($which) $value if {$cmd != {}} { @@ -1986,7 +1991,7 @@ proc RegionCmdSet {which value {cmd {}}} { } proc PRegionCmdSet {which value {cmd {}}} { - global bin + global pmarker set pmarker($which) $value if {$cmd != {}} { diff --git a/ds9/parsers/regionparser.tac b/ds9/parsers/regionparser.tac index b558c8e..664828a 100644 --- a/ds9/parsers/regionparser.tac +++ b/ds9/parsers/regionparser.tac @@ -155,7 +155,7 @@ region : {RegionCmdLoad} # backward compatibility | SYSTEM_ skyframe {RegionCmdSet system wcs; RegionCmdSet sky $2} | SKY_ skyframe {RegionCmdSet sky $2} - | SKYFORMAT_ skyformat {RegionCmdSet skyformate $2} + | SKYFORMAT_ skyformat {RegionCmdSet skyformat $2} | STRIP_ yesno {RegionCmdSet strip $2} | DELIM_ delim {RegionCmdSet strip $2} | SHAPE_ shape {RegionCmdSet shape $2} |