function fontHelper(fig, val)
% FONTHELPER Helper function for the figure toolstrip

% Copyright 2020 The MathWorks, Inc.

ax = findall(fig, 'Type', 'axes');
text = findall(fig, 'Type', 'Text');
scale = 2;

oldTextSize = 0;

if ~isempty(text)
    oldTextSize = get(text(1), 'FontSize');
end

% I'm scaling up or down the font size
if strcmp(val, 'increase') 
    if ~isempty(text)
        set(text, 'FontSize', oldTextSize + scale);    
        set(text, 'FontSizeMode', 'auto');
    end
    
    if ~isempty(ax)
        for i=1:numel(ax)
            element = ax(i);
            size = element.getMaxResponsiveFontSize;
            element.setMaxResponsiveFontSize(size + scale);
        end
    end
elseif strcmp(val, 'decrease')
    if ~isempty(text)
        set(text, 'FontSize', oldTextSize - scale);
        set(text, 'FontSizeMode', 'auto');
    end
    if ~isempty(ax)
        for i=1:numel(ax)
            element = ax(i);
            size = element.getMaxResponsiveFontSize;
            element.setMaxResponsiveFontSize(size - scale);
        end
    end
else
    % I'm setting a FontName    
    set(ax, 'FontName', val);   
    set(text, 'FontName', val);
end

end