Mercurial > hg > octave-max

comparison 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
comparison
equal deleted inserted replaced
8187:b04109600a82 8188:946035db5605
17 ## <http://www.gnu.org/licenses/>. 17 ## <http://www.gnu.org/licenses/>.
18 18
19 ## -*- texinfo -*- 19 ## -*- texinfo -*-
20 ## @deftypefn {Function File} {} delete (@var{file}) 20 ## @deftypefn {Function File} {} delete (@var{file})
21 ## @deftypefnx {Function File} {} delete (@var{h}) 21 ## @deftypefnx {Function File} {} delete (@var{h})
22 ## Delete the named file or figure handle. 22 ## Delete the named file or graphics handle.
23 ## @end deftypefn 23 ## @end deftypefn
24 24
25 ## PKG_ADD: mark_as_command delete 25 ## PKG_ADD: mark_as_command delete
26 26
27 ## Author: jwe 27 ## Author: jwe
29 function delete (arg) 29 function delete (arg)
30 30
31 if (nargin == 1) 31 if (nargin == 1)
32 if (ischar (arg)) 32 if (ischar (arg))
33 unlink (arg); 33 unlink (arg);
34 elseif (ishandle (arg)) 34 elseif (all (ishandle (arg)))
35 ## Delete a graphics object. 35 ## Delete a graphics object.
36 __go_delete__ (arg); 36 for n = 1:numel(arg)
37 __go_delete__ (arg(n));
38 endfor
37 else 39 else
38 error ("delete: expecting argument to be a filename or graphics handle"); 40 error ("delete: expecting argument to be a filename or graphics handle");
39 endif 41 endif
40 else 42 else
41 print_usage (); 43 print_usage ();