diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-04-04 21:18:43 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-04-04 21:18:43 (GMT) |
commit | e283edb9b6c7ee21b5d04cb3ac1af2cfcdf05b73 (patch) | |
tree | e503ad3c7faa48cacee911969ba35190be0f6d2f /ds9/library/plotprocess.tcl | |
parent | af94af4531e00d53fc38d5efee2631544575cb41 (diff) | |
download | blt-e283edb9b6c7ee21b5d04cb3ac1af2cfcdf05b73.zip blt-e283edb9b6c7ee21b5d04cb3ac1af2cfcdf05b73.tar.gz blt-e283edb9b6c7ee21b5d04cb3ac1af2cfcdf05b73.tar.bz2 |
add ds9 plot parser
Diffstat (limited to 'ds9/library/plotprocess.tcl')
-rw-r--r-- | ds9/library/plotprocess.tcl | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/ds9/library/plotprocess.tcl b/ds9/library/plotprocess.tcl index fc95984..4946b3d 100644 --- a/ds9/library/plotprocess.tcl +++ b/ds9/library/plotprocess.tcl @@ -567,7 +567,7 @@ proc PlotCmdRef {ref} { # look for reference in current list if {[lsearch $iap(windows) $ref] < 0} { - Error "[msgcat:: mc {Unable to find plot window}] $ref" + Error "[msgcat::mc {Unable to find plot window}] $ref" plot::YYABORT return } @@ -616,6 +616,7 @@ proc PlotCmdAnalysisPlotStdin {which} { } proc PlotCmdData {dim} { + global iap global cvarname upvar #0 $cvarname cvar @@ -628,7 +629,7 @@ proc PlotCmdData {dim} { } } if {$iap(buf) == {}} { - Error "[msgcat:: mc {Unable to load plot data}] $fn" + Error "[msgcat::mc {Unable to load plot data}] $fn" plot::YYABORT return } @@ -636,7 +637,7 @@ proc PlotCmdData {dim} { PlotRaise $cvarname PlotDataSet $cvarname $dim $iap(buf) - $var(proc,updategraph) $cvarname + $cvar(proc,updategraph) $cvarname PlotStats $cvarname PlotList $cvarname } @@ -654,7 +655,7 @@ proc PlotCmdSave {fn} { global cvarname if {$fn != {}} { - PlotSaveDataFile $varname $fn + PlotSaveDataFile $cvarname $fn FileLast apdatafbox $fn } } @@ -730,6 +731,14 @@ proc PlotCmdFontStyle {which value} { $cvar(proc,updategraph) $cvarname } +proc PlotCmdSelect {value} { + global cvarname + upvar #0 $cvarname cvar + + set cvar(data,current) $value + PlotCurrentData $cvarname +} + # File Menu proc ProcessPlotPrint {varname xarname iname} { upvar #0 $varname var |