1 files changed, 63 insertions, 1 deletions
diff --git a/ds9/library/imgsvr.tcl b/ds9/library/imgsvr.tcl
index 1144069..2375731 100644
--- a/ds9/library/imgsvr.tcl
+++ b/ds9/library/imgsvr.tcl
@@ -427,7 +427,7 @@ proc IMGSVRParse {varname} {
     }
 
     switch -- $var(mode) {
-	new {MultiLoadBase}
+	new {MultiLoad}
 	current {}
     }
 
@@ -568,6 +568,68 @@ proc IMGSVRProcessCmd {varname iname vvarname} {
     }
 }
 
+proc IMGSVRCmd {varname which value} {
+    upvar #0 $varname var
+    global $varname
+
+    set var($which) $value
+}
+
+proc IMGSVRCmdName {varname value} {
+    upvar #0 $varname var
+    global $varname
+
+    set var(name) $value
+    if {$var(name) != {}} {
+	IMGSVRApply $varname 1
+    }
+}
+
+proc IMGSVRCmdCoord {varname xx yy skyformat} {
+    upvar #0 $varname var
+    global $varname
+
+    set var(x) $xx
+    set var(y) $yy
+    set var(skyformat) $skyformat
+    set var(skyformat,msg) $skyformat
+    IMGSVRApply $varname 1
+}
+
+proc IMGSVRCmdSize {varname ww hh rformat} {
+    upvar #0 $varname var
+    global $varname
+
+    set var(width) $ww
+    set var(height) $hh
+    set var(rformat) $rformat
+    set var(rformat,msg) $rformat
+}
+
+proc IMGSVRCmdPixels {varname ww hh} {
+    upvar #0 $varname var
+    global $varname
+
+    set var(width,pixels) $ww
+    set var(height,pixels) $hh
+}
+
+proc IMGSVRCmdUpdate {varname} {
+    upvar #0 $varname var
+    global $varname
+
+    IMGSVRUpdate $varname
+    IMGSVRApply $varname 1
+}
+
+proc IMGSVRCmdCrosshair {varname} {
+    upvar #0 $varname var
+    global $varname
+
+    IMGSVRCrosshair $varname
+    IMGSVRApply $varname 1
+}
+
 proc IMGSVRProcessSendCmd {proc id param vvarname} {
     upvar #0 $vvarname vvar