Mercurial > hg > octave-nkf

diff scripts/plot/drawnow.m @ 6451:fdcb715e381c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-03-24 17:54:23 by jwe]
author jwe
date Sat, 24 Mar 2007 17:54:23 +0000
parents 71c052b5ce47
children 7c9b4a6e090b
line wrap: on
line diff
--- a/scripts/plot/drawnow.m
+++ b/scripts/plot/drawnow.m
@@ -98,6 +98,8 @@
       fprintf (plot_stream, "set output \"%s\"\n;", file);
     elseif (isunix () && isempty (getenv ("DISPLAY")))
       fprintf (plot_stream, "set terminal dumb\n;");
+    elseif (! isempty (h) && strcmp (getenv ("GNUTERM"), "wxt"))
+      fprintf (plot_stream, "set terminal wxt title \"Figure %d\";\n", h);
     endif
 
     if (isempty (__go_close_all_registered__))