1 files changed, 17 insertions, 0 deletions
diff --git a/ds9/library/plotprocess.tcl b/ds9/library/plotprocess.tcl
index d4bef17..f21ccc3 100644
--- a/ds9/library/plotprocess.tcl
+++ b/ds9/library/plotprocess.tcl
@@ -294,6 +294,23 @@ proc PlotCmdFontStyle {which value} {
     $cvar(proc,updategraph) $cvarname
 }
 
+proc PlotCmdExport {format fn} {
+    global cvarname
+    upvar #0 $cvarname cvar
+
+    switch -- $format {
+	gif {FileLast giffbox $fn}
+	jpeg {FileLast jpegfbox $fn}
+	tiff {FileLast tifffbox $fn}
+	png {FileLast pngfbox $fn}
+	default {
+	    Error "[msgcat::mc {Not valid export format}] $format"
+	    return
+	}
+    }
+    PlotExport $cvarname $fn $format
+}
+
 proc ProcessSendPlotCmd {proc id param {sock {}} {fn {}}} {
     global iap
     global parse