diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-31 18:11:55 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-31 18:11:55 (GMT) |
commit | 1c67d6f171b0c716a01ffcc04a697ac312cda953 (patch) | |
tree | 12c3192c2bda7ed0a2e71f342bdbbc837e0bb3d0 /ds9/library/marker.tcl | |
parent | 124a095a782587ddc834d4a1f7636e5ecb8d6822 (diff) | |
download | blt-1c67d6f171b0c716a01ffcc04a697ac312cda953.zip blt-1c67d6f171b0c716a01ffcc04a697ac312cda953.tar.gz blt-1c67d6f171b0c716a01ffcc04a697ac312cda953.tar.bz2 |
update ds9 parsers
Diffstat (limited to 'ds9/library/marker.tcl')
-rw-r--r-- | ds9/library/marker.tcl | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/ds9/library/marker.tcl b/ds9/library/marker.tcl index d63aca6..3adc9a8 100644 --- a/ds9/library/marker.tcl +++ b/ds9/library/marker.tcl @@ -1411,24 +1411,6 @@ proc ProcessRegionsCmd {varname iname sock fn} { incr i [expr $region::yycnt-1] } -proc MarkerCmdSet {which value {cmd {}}} { - global marker - - set marker($which) $value - if {$cmd != {}} { - eval $cmd - } -} - -proc PmarkerCmdSet {which value {cmd {}}} { - global pmarker - - set pmarker($which) $value - if {$cmd != {}} { - eval $cmd - } -} - proc RegionCmdLoad {} { global marker global current |