Mercurial > octave-nkf

changeset 8239:041bb0c64f07

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
orient.m,print.f: validate figure handle
author Ben Abbott <bpabbott@mac.com>
date Mon, 20 Oct 2008 10:29:04 -0400
parents 6ef647359f07
children 5cfeb7bc497a
files scripts/ChangeLog scripts/plot/orient.m scripts/plot/print.m
diffstat 3 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog	Mon Oct 20 10:23:31 2008 -0400
+++ b/scripts/ChangeLog	Mon Oct 20 10:29:04 2008 -0400
@@ -3,6 +3,8 @@
 	* plot/__stem__.m: Respect new ordering of children when setting
 	baseline.
 
+	* plot/orient.m, plot/print.m: Properly validate figure handle.
+
 2008-10-20  David Bateman  <dbateman@free.fr>
 
 	* plot/plotyy.m: Test that an axes handle actually is one before
--- a/scripts/plot/orient.m	Mon Oct 20 10:23:31 2008 -0400
+++ b/scripts/plot/orient.m	Mon Oct 20 10:29:04 2008 -0400
@@ -32,7 +32,7 @@
 
   nargs = nargin;
 
-  if (nargs > 0 && numel (varargin{1}) == 1 && ishandle (varargin{1}))
+  if (nargs > 0 && numel (varargin{1]) == 1 && isfigure (varargin{1}))
     cf = varargin{1};
     varargin(1) = [];
     nargs--;
--- a/scripts/plot/print.m	Mon Oct 20 10:23:31 2008 -0400
+++ b/scripts/plot/print.m	Mon Oct 20 10:29:04 2008 -0400
@@ -190,7 +190,7 @@
 	elseif (length (arg) > 0)
 	  name = arg;
         endif
-      elseif (ishandle (arg))
+      elseif (isfigure (arg))
         figure (arg);
       else
         error ("print: expecting inputs to be character string options or a figure handle");
@@ -439,7 +439,7 @@
     endif
 
   unwind_protect_cleanup
-    if (ishandle (old_fig))
+    if (isfigure (old_fig))
       figure (old_fig)
     endif
   end_unwind_protect