diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-16 19:45:02 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-16 19:45:02 (GMT) |
| commit | 875f24c44180d9107146559ab37d0fb73298ffb0 (patch) | |
| tree | 1801fc6dbcf2a5b939293adf7804ce6dc8fbcc99 /ds9/library/colorbar.tcl | |
| parent | 69280a97cb244e095dc9598a80fb97ed8dddd389 (diff) | |
| download | blt-875f24c44180d9107146559ab37d0fb73298ffb0.zip blt-875f24c44180d9107146559ab37d0fb73298ffb0.tar.gz blt-875f24c44180d9107146559ab37d0fb73298ffb0.tar.bz2 | |
update ds9 parsers
Diffstat (limited to 'ds9/library/colorbar.tcl')
| -rw-r--r-- | ds9/library/colorbar.tcl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/ds9/library/colorbar.tcl b/ds9/library/colorbar.tcl index ecbde24..f23bdd5 100644 --- a/ds9/library/colorbar.tcl +++ b/ds9/library/colorbar.tcl @@ -1357,6 +1357,7 @@ proc ProcessSendCmapCmd {proc id param} { file {$proc $id "[$current(colorbar) get file name]\n"} invert {$proc $id [ToYesNo $colorbar(invert)]} value {$proc $id "[$current(colorbar) get contrast] [$current(colorbar) get bias]\n"} + # backward compatibility lock {$proc $id [ToYesNo $colorbar(lock)]} {} {$proc $id "[$current(colorbar) get name]\n"} } @@ -1381,11 +1382,9 @@ proc ProcessColorbarCmd {varname iname} { switch -- $item { match { - # backward compatibility MatchColorCurrent } lock { - # backward compatibility incr i if {!([string range [lindex $var $i] 0 0] == "-")} { set colorbar(lock) [FromYesNo [lindex $var $i]] @@ -1529,7 +1528,6 @@ proc ProcessSendColorbarCmd {proc id param} { switch -- [string tolower [lindex $param 0]] { lock { - #backward compatibility $proc $id [ToYesNo $colorbar(lock)] } orientation {$proc $id "$colorbar(orientation)\n"} |