diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-07-26 16:07:45 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-07-26 16:07:45 (GMT) |
commit | 73c393c9089a8f0d2b12b00040e781e735bd7096 (patch) | |
tree | 24889102f4c06d07e8aea2f61739d8eb185c0e69 | |
parent | 20cd3a2bc44796f3b844a8f790e4ac829bfa05a7 (diff) | |
download | blt-73c393c9089a8f0d2b12b00040e781e735bd7096.zip blt-73c393c9089a8f0d2b12b00040e781e735bd7096.tar.gz blt-73c393c9089a8f0d2b12b00040e781e735bd7096.tar.bz2 |
support multiple graphs per plot
-rw-r--r-- | ds9/library/plot.tcl | 2 | ||||
-rw-r--r-- | ds9/library/plotdialog.tcl | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl index dbf3c82..fbf8817 100644 --- a/ds9/library/plot.tcl +++ b/ds9/library/plot.tcl @@ -582,7 +582,7 @@ proc PlotUpdateCanvas {varname} { set last [lindex $var(graphs) end] foreach cc $var(graphs) { - switch ($cc,type) { + switch $var($cc,type) { line {} bar {$var($cc,graph) configure -barmode $var(bar,mode)} scatter {} diff --git a/ds9/library/plotdialog.tcl b/ds9/library/plotdialog.tcl index fa9d22f..c8d096c 100644 --- a/ds9/library/plotdialog.tcl +++ b/ds9/library/plotdialog.tcl @@ -224,7 +224,7 @@ proc PlotDialog {varname wtt} { $var(mb).graph add command -label "[msgcat::mc {Titles}]..." \ -command [list PlotGraphTitleDialog $varname] $var(mb).graph add separator - $var(mb).graph add cascade -label [msgcat::mc {Mode}] \ + $var(mb).graph add cascade -label [msgcat::mc {Bar Mode}] \ -menu $var(mb).graph.barmode menu $var(mb).graph.select @@ -677,17 +677,17 @@ proc PlotUpdateMenus {varname} { line { $var(mb) add cascade -label [msgcat::mc {Data}] \ -menu $var(mb).dataline - $var(mb).graph entryconfig [msgcat::mc {Mode}] -state disabled + $var(mb).graph entryconfig [msgcat::mc {Bar Mode}] -state disabled } bar { $var(mb) add cascade -label [msgcat::mc {Data}] \ -menu $var(mb).databar - $var(mb).graph entryconfig [msgcat::mc {Mode}] -state normal + $var(mb).graph entryconfig [msgcat::mc {Bar Mode}] -state normal } scatter { $var(mb) add cascade -label [msgcat::mc {Data}] \ -menu $var(mb).datascatter - $var(mb).graph entryconfig [msgcat::mc {Mode}] -state disabled + $var(mb).graph entryconfig [msgcat::mc {Bar Mode}] -state disabled } } |