Mercurial > hg > octave-lyh

comparison scripts/plot/__plt_get_axis_arg__.m @ 7286:c0c6aa5afff4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-11 16:52:56 by jwe]
author jwe
date Tue, 11 Dec 2007 16:57:39 +0000
parents 5389a52df87b
children 8e8afefe9466
comparison
equal deleted inserted replaced
7285:c8d362c69013 7286:c0c6aa5afff4
28 varargin(1) = []; 28 varargin(1) = [];
29 else 29 else
30 nogca = false; 30 nogca = false;
31 endif 31 endif
32 32
33 if (nargin > 1 && length (varargin) > 0 && ishandle (varargin{1})) 33 ## Figure handles are integers, but object handles are non integer,
34 ## therefore ignore integer scalars.
35 if (nargin > 1 && length (varargin) > 0 && ishandle (varargin{1})
36 && floor(varargin{1}) != varargin{1})
34 tmp = varargin{1}; 37 tmp = varargin{1};
35 obj = get (tmp); 38 obj = get (tmp);
36 if (strcmp (obj.type, "axes") || strcmp (obj.type, "hggroup")) 39 if (strcmp (obj.type, "axes") || strcmp (obj.type, "hggroup"))
37 h = ancestor (tmp, "axes"); 40 h = ancestor (tmp, "axes");
38 varargin(1) = []; 41 varargin(1) = [];
45 else 48 else
46 f = get (0, "currentfigure"); 49 f = get (0, "currentfigure");
47 if (isempty (f)) 50 if (isempty (f))
48 h = []; 51 h = [];
49 else 52 else
50 h = get (f, 'currentaxes'); 53 h = get (f, "currentaxes");
51 endif 54 endif
52 if (isempty (h)) 55 if (isempty (h))
53 if (nogca) 56 if (nogca)
54 h = NaN; 57 h = NaN;
55 else 58 else