cpsFindFig.m

function [h,created] = cpsFindFig(tag,varargin)
    %cpsFindFig Create or find a figure-window by name.
    %   cpsFindFig(TAG) creates a new figure named and tagged with string
    %   TAG. Or, if a figure tagged with TAG already exists, brings it into
    %   focus.
    %
    %   cpsFindFig(...,'clf') additionallly clears the window.
    %
    %   cpsFindFig takes these optional parameter-value pairs:
    %       Parameter   Value (default in brackets):
    %       'visible'   Figure visibility upon creation [true] | false
    %       'position'  Figure position in pixels [leftx topy wid hei],
    %                   or an empty array ([], the default) which produces
    %                   a standard-size window.
    %       'create'    Toggle the creation of a new figure when a novel
    %                   TAG is provided [true] | false.
    %
    %   [H,CREATED] = cpsFindFig(...) Returns the figures's class object H
    %   and a logical which indicates if a novel figure has been created or
    %   not.
    %
    %   Part of <a href="matlab:help cpsPlotTools">cpsPlotTools</a>.
    %
    %   See also: figure
    
    %   Copyright 1998 Bart Krekelberg, 2016 Jacob Duijnhouwer
    
    if nargin==0
        error('Not enough input arguments, a figure name is required.');
    end
    
    % see if 'clf' flag has been provided
    clf_flag=contains('clf',varargin,'IgnoreCase',true);
    varargin(clf_flag)=[];
    clf_flag=any(clf_flag); 
    
    p=inputParser;
    p.addRequired('tag',@ischar);
    p.addParameter('visible',true,@islogical);
    p.addParameter('position',[],@(x)isempty(x) || isnumeric(x) && numel(x)==4);
    p.addParameter('create',true,@(x)islogical(x) || x==1 || x==0);
    p.parse(tag,varargin{:});
    
    if p.Results.visible
        visi='on';
    else
        visi='off';
    end
    
    h = findobj(get(0,'children'),'flat','tag',tag);
    if ~isempty(h)
        % set focus to already existing figure
        set(h,'visible',visi);
        figure(h);
        created=false;
    elseif p.Results.create
        h = figure('visible','off');
        set(h,'resize','on','tag',tag,...
            'visible','off','name',tag,'menubar','figure',...
            'numbertitle','off',...
            'paperunits','centimeters');
        drawnow;
        set(h,'visible',visi);
        created=true;
    else
        h=[];
        created=false;
        return;
    end
    if ~isempty(p.Results.position)
        set(h,'Position',p.Results.position);
    end
end