time | calls | line |
---|
| | 1 | function [ax,args,nargs] = axescheck(varargin)
|
| | 2 | %AXESCHECK Process leading Axes object from input list
|
| | 3 | % [AX,ARGS,NARGS] = AXESCHECK(ARG1,ARG2,...) checks if ARG1 is an Axes
|
| | 4 | % and returns it in AX if it is and returns the processed argument
|
| | 5 | % list in ARGS and NARGS. If ARG1 is not an Axes, AX will return empty.
|
| | 6 | % Also checks arguments that are property-value pairs 'parent',ARG.
|
| | 7 |
|
| | 8 | % Copyright 1984-2006 The MathWorks, Inc.
|
| | 9 | % $Revision $
|
| | 10 |
|
| 185 | 11 | args = varargin;
|
| 185 | 12 | nargs = nargin;
|
| 185 | 13 | ax=[];
|
| 185 | 14 | if (nargs > 0) && (numel(args{1}) == 1) && ishghandle(args{1},'axes')
|
| | 15 | ax = args{1};
|
| | 16 | args = args(2:end);
|
| | 17 | nargs = nargs-1;
|
| | 18 | end
|
0.01 | 185 | 19 | if nargs > 0
|
0.02 | 185 | 20 | inds = find(strcmpi('parent',args));
|
| 185 | 21 | if ~isempty(inds)
|
| | 22 | inds = unique([inds inds+1]);
|
| | 23 | pind = inds(end);
|
| | 24 | if nargs >= pind && ishghandle(args{pind})
|
| | 25 | ax = args{pind};
|
| | 26 | args(inds) = [];
|
| | 27 | nargs = length(args);
|
| | 28 | end
|
| | 29 | end
|
| 185 | 30 | end
|