Mercurial > hg > octave-nkf

diff scripts/plot/print.m @ 17146:bbda4d952eb5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Rik <rik@octave.org>
date Thu, 01 Aug 2013 21:25:26 -0700
parents 9d9fe4361870
children c3c1ebfaa7dc
line wrap: on
line diff
--- a/scripts/plot/print.m
+++ b/scripts/plot/print.m
@@ -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