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