diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-30 16:42:43 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-30 16:42:43 (GMT) |
commit | 61d150b29f6ff51cd57535ae46b452af0cf3c9b1 (patch) | |
tree | f0dcfb400fa2f6af62557761fae97a7de5d928b2 /ds9/library/colorbar.tcl | |
parent | 7a3a5963cc140393fe5ad2cb55c3c64fd1d9b58b (diff) | |
download | blt-61d150b29f6ff51cd57535ae46b452af0cf3c9b1.zip blt-61d150b29f6ff51cd57535ae46b452af0cf3c9b1.tar.gz blt-61d150b29f6ff51cd57535ae46b452af0cf3c9b1.tar.bz2 |
update ds9 view parser
Diffstat (limited to 'ds9/library/colorbar.tcl')
-rw-r--r-- | ds9/library/colorbar.tcl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ds9/library/colorbar.tcl b/ds9/library/colorbar.tcl index 56bf164..2207886 100644 --- a/ds9/library/colorbar.tcl +++ b/ds9/library/colorbar.tcl @@ -1486,11 +1486,13 @@ proc ProcessColorbarCmd {varname iname} { } } -proc ColorbarCmdView {which value} { +proc ColorbarCmdSet {which value {cmd {}}} { global colorbar set colorbar($which) $value - UpdateView + if {$cmd != {}} { + eval $cmd + } } proc ColorbarCmdFontStyle {value} { |