runSingletonApp.m
971d5cb9b217FreqRINCal

runSingletonApp.m
View Options

			function runSingletonApp(App, global_name)
			if isValidBaseVar(global_name)
			Fig = findFigure(App);
			close(Fig);

			% Make sure the new instance is deleted
			delete(App);
			App = evalin('base', global_name);

			% Bring to the focus the figure of existing app
			setFocus(App);

			error([global_name ' already exists']);
			else
			assignin('base', global_name, App);

			% Recolor app according to the present color scheme
			applyLocalColorScheme(App);

			% Move the app figure to the center of the screen
			centerFigure(App);

			% Set up a listener that will clear the global name
			addlistener(App, 'ObjectBeingDestroyed', @clearGlobalName);
			end

			% The declaration of listener callback
			function clearGlobalName(~, ~)
			if ~isempty(global_name)
			try
			evalin('base', sprintf('clear(''%s'');', global_name));
			catch ME
			warning(['Could not clear global variable ''' ...
			global_name '''. Error: ' ME.message]);
			end
			end
			end
			end