% Create an instrument instance with gui add them to the collector

function [Instr, Gui] = runInstrumentWithGui(name, instr_class, gui, varargin)

    % Get the unique instance of Collector
    Collector = MyCollector.instance();

    % Run instrument first
    if ~exist('instr_class', 'var') || ~exist('gui', 'var')
        
        % Run instrument without GUI
        Instr = runInstrument(name);
        
        % Load GUI name from InstrumentList
        InstrumentList = getLocalSettings('InstrumentList');
        
        ind = cellfun(@(x)isequal(x, name), {InstrumentList.name});
        
        assert(any(ind), [name ' must correspond to an entry in ' ...
            'InstrumentList.'])
        
        InstrEntry = InstrumentList(ind);
        
        if length(InstrEntry) > 1
            
            % Multiple entries found
            warning(['Multiple InstrumentList entries found with ' ...
                'name ' name]);
            InstrEntry = InstrEntry(1);
        end
        
        gui = InstrEntry.gui;
        
        assert(~isempty(gui), ['GUI is not specified for ' name]);
    else
        
        % All arguments are supplied explicitly
        Instr = runInstrument(name, instr_class, varargin{:});
    end
    
    % Check if the instrument already has GUI
    Gui = getInstrumentGui(Collector, name);
    if isempty(Gui)
        
        % Run a new GUI and store it in the collector
        Gui = feval(gui, Instr);
        addInstrumentGui(Collector, name, Gui);
        
        % Display the instrument's name 
        Fig = findFigure(Gui);
        if ~isempty(Fig)
           Fig.Name = char(name);
        else
           warning('No UIFigure found to assign the name')
        end
        
        try
            
            % Apply color scheme
            S = getLocalSettings('ColorScheme');
            S.colorSchemeFcn(Fig);
        catch ME
            warning(['Could not apply color scheme. Error: ' ME.message])
        end
    else
        
        % Bring the window of existing GUI to the front
        try
            setFocus(Gui);
        catch
        end
    end
end