Mercurial > hg > octave-lyh

diff scripts/plot/close.m @ 8190:73d6b71788c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use case-insensitive comparison for graphics properties; misc style fixes
author John W. Eaton <jwe@octave.org>
date Mon, 06 Oct 2008 21:06:05 -0400
parents 5747be3ac497
children 5dd06f19e9be
line wrap: on
line diff
--- a/scripts/plot/close.m
+++ b/scripts/plot/close.m
@@ -43,7 +43,7 @@
       figs = [];
     endif
   elseif (nargin == 1)
-    if (ischar (arg1) && strcmp (arg1, "all"))
+    if (ischar (arg1) && strcmpi (arg1, "all"))
       close_all_figures (false);
     elseif (isfigure (arg1))
       figs = arg1;
@@ -51,8 +51,8 @@
       error ("close: expecting argument to be \"all\" or a figure handle");
     endif
   elseif (nargin == 2
-	  && ischar (arg1) && strcmp (arg1, "all")
-	  && ischar (arg2) && strcmp (arg2, "hidden"))
+	  && ischar (arg1) && strcmpi (arg1, "all")
+	  && ischar (arg2) && strcmpi (arg2, "hidden"))
     close_all_figures (true);
   else
     print_usage ();
@@ -72,7 +72,7 @@
 
   while (! isempty (fig = get (0, "currentfigure")))
     ## handlevisibility = get (fig, "handlevisibility")
-    ## if (close_hidden_figs || ! strcmp (handlevisibility, "off"))
+    ## if (close_hidden_figs || ! strcmpi (handlevisibility, "off"))
     close (fig);
     ## endif
   endwhile