runInstrumentWithGui.m
9b200e94ab31FreqRINCal

runInstrumentWithGui.m
View Options

			% 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

			% Apply color scheme
			applyLocalColorScheme(Fig);
			else

			% Bring the window of existing GUI to the front
			try
			setFocus(Gui);
			catch
			end
			end
			end