diff options
Diffstat (limited to 'ds9/library/plotdialog.tcl')
-rw-r--r-- | ds9/library/plotdialog.tcl | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/ds9/library/plotdialog.tcl b/ds9/library/plotdialog.tcl index 536d519..8694893 100644 --- a/ds9/library/plotdialog.tcl +++ b/ds9/library/plotdialog.tcl @@ -520,6 +520,67 @@ proc PlotLineSmoothMenu {which var} { -variable $var -value catrom } +proc PlotShapeMenu {varname} { + upvar #0 $varname var + global $varname + + set tt $var(graph,total) + set cc $var(graph,current) + + # Shape + menu $var(mb).data.shape + $var(mb).data.shape add radiobutton \ + -label [msgcat::mc {None}] \ + -variable ${varname}(graph$cc,shape,symbol) -value none \ + -command [list $var(proc,updateelement) $varname] + $var(mb).data.shape add radiobutton \ + -label [msgcat::mc {Circle}] \ + -variable ${varname}(graph$cc,shape,symbol) -value circle \ + -command [list $var(proc,updateelement) $varname] + $var(mb).data.shape add radiobutton \ + -label [msgcat::mc {Square}] \ + -variable ${varname}(graph$cc,shape,symbol) -value square \ + -command [list $var(proc,updateelement) $varname] + $var(mb).data.shape add radiobutton \ + -label [msgcat::mc {Diamond}] \ + -variable ${varname}(graph$cc,shape,symbol) -value diamond \ + -command [list $var(proc,updateelement) $varname] + $var(mb).data.shape add radiobutton \ + -label [msgcat::mc {Plus}] \ + -variable ${varname}(graph$cc,shape,symbol) -value plus \ + -command [list $var(proc,updateelement) $varname] + $var(mb).data.shape add radiobutton \ + -label [msgcat::mc {Cross}] \ + -variable ${varname}(graph$cc,shape,symbol) -value cross \ + -command [list $var(proc,updateelement) $varname] + $var(mb).data.shape add radiobutton \ + -label [msgcat::mc {Simple Plus}] \ + -variable ${varname}(graph$cc,shape,symbol) -value splus \ + -command [list $var(proc,updateelement) $varname] + $var(mb).data.shape add radiobutton \ + -label [msgcat::mc {Simple Cross}] \ + -variable ${varname}(graph$cc,shape,symbol) -value scross \ + -command [list $var(proc,updateelement) $varname] + $var(mb).data.shape add radiobutton \ + -label [msgcat::mc {Triangle}] \ + -variable ${varname}(graph$cc,shape,symbol) -value triangle \ + -command [list $var(proc,updateelement) $varname] + $var(mb).data.shape add radiobutton \ + -label [msgcat::mc {Arrow}] \ + -variable ${varname}(graph$cc,shape,symbol) -value arrow \ + -command [list $var(proc,updateelement) $varname] + $var(mb).data.shape add separator + $var(mb).data.shape add checkbutton \ + -label [msgcat::mc {Fill}] \ + -variable ${varname}(graph$cc,shape,fill) \ + -command [list $var(proc,updateelement) $varname] + $var(mb).data.shape add cascade -label [msgcat::mc {Color}] \ + -menu $var(mb).data.shape.color + + PlotColorMenu $var(mb).data.shape.color $varname graph$cc,shape,color \ + [list $var(proc,updateelement) $varname] +} + proc PlotExportDialog {varname format} { upvar #0 $varname var global $varname |