Mercurial > hg > octave-lyh
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