diff options
Diffstat (limited to 'ds9/library/plotprocess.tcl')
-rw-r--r-- | ds9/library/plotprocess.tcl | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/ds9/library/plotprocess.tcl b/ds9/library/plotprocess.tcl index d0ec4dd..e4af856 100644 --- a/ds9/library/plotprocess.tcl +++ b/ds9/library/plotprocess.tcl @@ -15,7 +15,7 @@ proc PrefsDialogPlot {} { # Graph set f [ttk::labelframe $w.plot.graph -text [msgcat::mc {Graph}]] ttk::label $f.tbg -text [msgcat::mc {Background}] - ColorMenuButton $f.bg pap graph,bg {} + ColorMenuButton $f.bg pap background {} grid $f.tbg $f.bg -padx 2 -pady 2 -sticky w @@ -341,11 +341,8 @@ proc PlotCmdSelectData {which} { global cvarname upvar #0 $cvarname cvar - set tt $cvar(graph,total) set cc $cvar(graph,current) - - set cvar(graph$cc,data,current) $which - + set cvar($cc,data,current) $which PlotCurrentData $cvarname } @@ -369,21 +366,19 @@ proc PlotSendCmdCVARGet {key} { global cvarname upvar #0 $cvarname cvar - set tt $cvar(graph,total) set cc $cvar(graph,current) global parse - $parse(proc) $parse(id) "$cvar(graph$cc,$key)\n" + $parse(proc) $parse(id) "$cvar($cc,$key)\n" } proc PlotSendCmdCVARYesNo {key} { global cvarname upvar #0 $cvarname cvar - set tt $cvar(graph,total) set cc $cvar(graph,current) global parse - $parse(proc) $parse(id) [ToYesNo $cvar(graph$cc,$key)] + $parse(proc) $parse(id) [ToYesNo $cvar($cc,$key)] } |