function [isaxarray,outarr]=objArrayDispatch(func,varargin)

% This function is undocumented and may change in a future release.

% Dispatches a function to multiple axes

%   Copyright 2019 The MathWorks, Inc.

    outarr=gobjects; 

    isaxarray=false; 

    args=varargin; 

    isAllowed=@(obj)isa(obj,'matlab.graphics.axis.AbstractAxes') || ... 

                    isa(obj,'matlab.graphics.chart.Chart') || ...

                    isa(obj,'matlab.graphics.layout.Layout') || ...

                    isa(obj,'matlab.graphics.illustration.Legend') || ...

                    isa(obj,'matlab.graphics.illustration.ColorBar') || ...

                    isa(obj,'matlab.ui.control.UIAxes');

    % Return if args/first arg is empty, or first arg is scalar or the first

    % arg contains anything other than an axes/chart

    if isempty(args) || isempty(args{1}) || isscalar(args{1}) || ~any(arrayfun(isAllowed,args{1}),'all') 

        return 

    end

    % Peel off axes array

    axarr=args{1};

    args(1)=[];

    isaxarray=true;

    % Error for heterogeneous arrays

    isHomogeneous=all(arrayfun(@(x)strcmp(class(x),class(axarr)),axarr));

    if ~isHomogeneous

        throwAsCaller(MException(message('MATLAB:rulerFunctions:MixedAxesVector')))

    end

    % Loop over axarr

    if nargout>1

        % the calling function has an output

        outarr=gobjects(size(axarr));

        for i = 1:numel(axarr)

            try

                outarr(i)=func(axarr(i),args{:});

            catch me

                throwAsCaller(me)

            end

        end

    else

        for i = 1:numel(axarr)

            try

                func(axarr(i),args{:});

            catch me

                throwAsCaller(me)

            end

        end

    end

end