Mercurial > hg > octave-nkf
diff scripts/plot/ylabel.m @ 7215:dd88d61d443f
[project @ 2007-11-29 16:44:45 by jwe]
author | jwe |
---|---|
date | Thu, 29 Nov 2007 16:46:40 +0000 |
parents | a730e47fda4d |
children | c18512d0ddb6 |
line wrap: on
line diff
--- a/scripts/plot/ylabel.m +++ b/scripts/plot/ylabel.m @@ -25,32 +25,24 @@ ## Author: jwe -function h = ylabel (varargin) +function retval = ylabel (varargin) - if (isscalar (varargin{1}) && ishandle (varargin{1})) - ax = varargin{1}; - if (! strcmp (get (ax, "type"), "axes")) - error ("ylabel: expecting first argument to be an axes object"); - endif - if (rem (nargin, 2) == 1) - print_usage (); - endif - oldh = gca (); - unwind_protect - axes (ax); - tmp = __axis_label__ ("ylabel", varargin{2:end}); - unwind_protect_cleanup - axes (oldh); - end_unwind_protect - else - if (rem (nargin, 2) != 1) - print_usage (); - endif - tmp = __axis_label__ ("ylabel", varargin{1:end}); + [h, varargin, nargin] = __plt_get_axis_arg__ ("ylabel", varargin{:}); + + if (rem (nargin, 2) != 1) + print_usage (); endif + oldh = gca (); + unwind_protect + axes (h); + tmp = __axis_label__ ("ylabel", varargin{:}); + unwind_protect_cleanup + axes (oldh); + end_unwind_protect + if (nargout > 0) - h = tmp; + retval = h; endif endfunction