# HG changeset patch
# User Rik <rik@octave.org>
# Date 1375417526 25200
# Node ID bbda4d952eb5b90a99d39d7c120f93a8d630d08c
# Parent  f7fd413dcf4a6e7cdfcf6db7b538729b04357d0d
Fix pop-up of invisible figures during printing.

* scripts/plot/print.m, scripts/plot/private/__fltk_print__.m,
scripts/plot/private/__gnuplot_print__.m: Use 'set (0, "currentfigure", n)
to switch figures so that invisible figures aren't exposed.

diff -r f7fd413dcf4a -r bbda4d952eb5 scripts/plot/print.m
--- a/scripts/plot/print.m	Thu Aug 01 17:47:36 2013 -0700
+++ b/scripts/plot/print.m	Thu Aug 01 21:25:26 2013 -0700
@@ -293,7 +293,7 @@
   endif
 
   orig_figure = get (0, "currentfigure");
-  figure (opts.figure);
+  set (0, "currentfigure", opts.figure);
 
   if (opts.append_to_file)
     [~, ~, ext] = fileparts (opts.ghostscript.output);
@@ -437,7 +437,7 @@
   end_unwind_protect
 
   if (isfigure (orig_figure))
-    figure (orig_figure);
+    set (0, "currentfigure", orig_figure);
   endif
 
 endfunction
diff -r f7fd413dcf4a -r bbda4d952eb5 scripts/plot/private/__fltk_print__.m
--- a/scripts/plot/private/__fltk_print__.m	Thu Aug 01 17:47:36 2013 -0700
+++ b/scripts/plot/private/__fltk_print__.m	Thu Aug 01 21:25:26 2013 -0700
@@ -25,7 +25,7 @@
 
   dos_shell = (ispc () && ! isunix ());
 
-  figure (opts.figure);
+  set (0, "currentfigure", opts.figure);
   drawnow ("expose");
   __fltk_redraw__ ();
 
diff -r f7fd413dcf4a -r bbda4d952eb5 scripts/plot/private/__gnuplot_print__.m
--- a/scripts/plot/private/__gnuplot_print__.m	Thu Aug 01 17:47:36 2013 -0700
+++ b/scripts/plot/private/__gnuplot_print__.m	Thu Aug 01 21:25:26 2013 -0700
@@ -184,7 +184,7 @@
   else
     mono = false;
   endif
-  figure (opts.figure);
+  set (0, "currentfigure", opts.figure);
   if (isempty (opts.debug_file) || ! opts.debug)
     drawnow (term, file, mono);
   else