diff scripts/miscellaneous/delete.m @ 6257:44c91c5dfe1d

[project @ 2007-01-30 19:16:52 by jwe]
author jwe
date Tue, 30 Jan 2007 19:16:55 +0000
parents 34f96dd5441b
children b298a4c12fc3
line wrap: on
line diff
--- a/scripts/miscellaneous/delete.m
+++ b/scripts/miscellaneous/delete.m
@@ -18,18 +18,23 @@
 ## 02110-1301, USA.
 
 ## -*- texinfo -*-
-## @deftypefn {Function File} {} delete (file)
-## Delete the named file.  Delete is a wrapper for @code{unlink}.
+## @deftypefn {Function File} {} delete (@var{file})
+## @deftypefnx {Function File} {} delete (@var{h})
+## Delete the named file or figure handle.
 ## @end deftypefn
 
 ## PKG_ADD: mark_as_command delete
 
 ## Author: jwe
 
-function delete (file)
+function delete (arg)
 
   if (nargin == 1)
-    unlink (file);
+    if (ischar (arg))
+      unlink (arg);
+    else
+      __uiobject_delete__ (arg);
+    endif
   else
     print_usage ();
   endif