Mercurial > octave-nkf

diff scripts/miscellaneous/delete.m @ 8188:946035db5605

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
delete.m: Permit a vector of handles to be deleted.
author Ben Abbott <bpabbott@mac.com>
date Mon, 06 Oct 2008 20:36:31 -0400
parents a1dbe9d80eee
children 4c85b8056d0b
line wrap: on
line diff
--- a/scripts/miscellaneous/delete.m	Mon Oct 06 20:33:59 2008 -0400
+++ b/scripts/miscellaneous/delete.m	Mon Oct 06 20:36:31 2008 -0400
@@ -19,7 +19,7 @@
 ## -*- texinfo -*-
 ## @deftypefn {Function File} {} delete (@var{file})
 ## @deftypefnx {Function File} {} delete (@var{h})
-## Delete the named file or figure handle.
+## Delete the named file or graphics handle.
 ## @end deftypefn
 
 ## PKG_ADD: mark_as_command delete
@@ -31,9 +31,11 @@
   if (nargin == 1)
     if (ischar (arg))
       unlink (arg);
-    elseif (ishandle (arg))
+    elseif (all (ishandle (arg)))
       ## Delete a graphics object.
-      __go_delete__ (arg);
+      for n = 1:numel(arg)
+         __go_delete__ (arg(n));
+      endfor
     else
       error ("delete: expecting argument to be a filename or graphics handle");
     endif