diff options
Diffstat (limited to 'ds9/library/rgbarray.tcl')
-rw-r--r-- | ds9/library/rgbarray.tcl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/ds9/library/rgbarray.tcl b/ds9/library/rgbarray.tcl index 44054bb..1bcccc1 100644 --- a/ds9/library/rgbarray.tcl +++ b/ds9/library/rgbarray.tcl @@ -163,6 +163,26 @@ proc ProcessRGBArrayCmd {varname iname sock fn} { FinishLoad } +proc RGBArrayCmdLoad {param} { + global array + + if {$array(load,sock) != {}} { + # xpa + if {![ImportRGBArraySocket $array(load,sock) $param]} { + InitError xpa + ImportRGBArrayFile $param + } + } else { + # comm + if {$array(load,fn) != {}} { + ImportRGBArrayAlloc $array(load,fn) $param + } else { + ImportRGBArrayFile $param + } + } + FinishLoad +} + proc ProcessSendRGBArrayCmd {proc id param sock fn} { global current |