Fix. Default password should be [] not an empty string
line source
function varargout = ltpdalauncher(varargin)
% LTPDALAUNCHER presents the user with a control panel from which they can
% launch other LTPDA GUIs.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% DESCRIPTION: LTPDALAUNCHER presents the user with a control panel from
% which they can launch other LTPDA GUIs.
%
% CALL: ltpdalauncher
%
%
%
% VERSION: $Id: ltpdalauncher.m,v 1.13 2009/09/28 08:12:05 hewitson Exp $
%
% HISTORY: 07-03-08 M Hewitson
% Creation
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Check if I exist already
hs = findall(0);
found = -1;
for j=1:length(hs)
h = hs(j);
if strcmp(get(h, 'Tag'), 'LTPDAlauncher')
found = h;
end
end
if found ~= -1
figure(found);
return
end
% id = findobj('Tag', 'LTPDAlauncher');
% if ~isempty(id)
% figure(id)
% return
% end
%% Some initial setup
Gproperties.Gcol = [240 240 240]/255;
Gproperties.Gwidth = 400;
Gproperties.Gheight = 400;
Gproperties.Gborder = 10;
fontsize = getappdata(0, 'ltpda_repo_gui_fontsize');
Gproperties.Screen = get(0,'screensize');
Gproperties.Gposition = [150 ...
150 ...
Gproperties.Gwidth...
Gproperties.Gheight];
% Initialize and hide the GUI as it is being constructed.
mainfig = figure('Name', 'LTPDA Launch Bay',...
'NumberTitle', 'off',...
'Visible','off',...
'Position',Gproperties.Gposition,...
'Color', Gproperties.Gcol,...
'Toolbar', 'none',...
'Resize', 'off',...
'ToolBar', 'none', ...
'NextPlot', 'new', ...
'HandleVisibility', 'callback', ...
'MenuBar', 'none',...
'Tag', 'LTPDAlauncher');
% Set mainfig callbacks
set(mainfig, 'CloseRequestFcn', {'ltpda_launcher_close', mainfig});
% Set Application data
setappdata(mainfig, 'Gproperties', Gproperties);
%% Add Logo
M = 0.01;
ax = axes('Position', [M M 1-2*M 1-2*M], 'Parent', mainfig);
logo = imread('images/ltpda_blue.jpg');
image(logo, 'Parent', ax)
set(ax,'Visible', 'on', 'Box', 'off', 'Xtick', [], 'Ytick', []);
axis(ax, 'off');
%% Add launch buttons
BtnHeight = 20;
BtnWidth = Gproperties.Gwidth - 20;
BtnLeft = 10;
BtnBottom = Gproperties.Gheight - BtnHeight - 10;
%-- LTPDA GUI
BtnBottom = BtnBottom - BtnHeight - 10;
pbh = uicontrol(mainfig,'Style','pushbutton','String','LTPDA Workbench',...
'Position',[BtnLeft BtnBottom BtnWidth BtnHeight ],...
'Tag', 'LTPDAworkbench');
set(pbh, 'Callback', {'ltpda_launcher_workbench'});
%-- preferences
pos = get(pbh, 'Position');
BtnBottom = pos(2) - BtnHeight - 10;
pbh = uicontrol(mainfig,'Style','pushbutton','String','LTPDA Preferences',...
'Position',[BtnLeft BtnBottom BtnWidth BtnHeight ],...
'Tag', 'LTPDA_preferences');
set(pbh, 'Callback', 'LTPDAprefs');
%-- workspace browser
pos = get(pbh, 'Position');
BtnBottom = pos(2) - BtnHeight - 10;
pbh = uicontrol(mainfig,'Style','pushbutton','String','Workspace Browser',...
'Position',[BtnLeft BtnBottom BtnWidth BtnHeight ],...
'Tag', 'workspaceBrowser');
set(pbh, 'Callback', {@start_workspaceBrowser});
%-- LTPDA Repogui
% pos = get(pbh, 'Position');
% BtnBottom = pos(2) - BtnHeight - 10;
% pbh = uicontrol(mainfig,'Style','pushbutton','String','LTPDA REPO GUI',...
% 'Position',[BtnLeft BtnBottom BtnWidth BtnHeight ],...
% 'Tag', 'ltpda_launcher_repogui');
% set(pbh, 'Callback', {'ltpda_launcher_launch_repogui'});
%-- PZmodel helper
pos = get(pbh, 'Position');
BtnBottom = pos(2) - BtnHeight - 10;
pbh = uicontrol(mainfig,'Style','pushbutton','String','Pole/Zero Model Helper',...
'Position',[BtnLeft BtnBottom BtnWidth BtnHeight ],...
'Tag', 'ltpda_launcher_pzmodel');
set(pbh, 'Callback', {'ltpda_launcher_launch_pzmodel'});
%-- specwin helper
pos = get(pbh, 'Position');
BtnBottom = pos(2) - BtnHeight - 10;
pbh = uicontrol(mainfig,'Style','pushbutton','String','Spectral Windows GUI',...
'Position',[BtnLeft BtnBottom BtnWidth BtnHeight ],...
'Tag', 'ltpda_launcher_specwin');
set(pbh, 'Callback', {'ltpda_launcher_specwinViewer'});
%-- constructor helper
pos = get(pbh, 'Position');
BtnBottom = pos(2) - BtnHeight - 10;
pbh = uicontrol(mainfig,'Style','pushbutton','String','Constructor Helper',...
'Position',[BtnLeft BtnBottom BtnWidth BtnHeight ],...
'Tag', 'ltpda_constructor_helper');
set(pbh, 'Callback', {'ltpda_launcher_constructor'});
%-- object explorer
pos = get(pbh, 'Position');
BtnBottom = pos(2) - BtnHeight - 10;
pbh = uicontrol(mainfig,'Style','pushbutton','String','Object Explorer',...
'Position',[BtnLeft BtnBottom BtnWidth BtnHeight ],...
'Tag', 'ltpda_object_explorer');
set(pbh, 'Callback', {@call_explore_ao});
% %-- quicklook
% pos = get(pbh, 'Position');
% BtnBottom = pos(2) - BtnHeight - 10;
% pbh = uicontrol(mainfig,'Style','pushbutton','String','Quicklook',...
% 'Position',[BtnLeft BtnBottom BtnWidth BtnHeight ],...
% 'Tag', 'ltpdaquicklook');
% set(pbh, 'Callback', {'ltpdaquicklook'});
%-- signal builder
pos = get(pbh, 'Position');
BtnBottom = pos(2) - BtnHeight - 10;
pbh = uicontrol(mainfig,'Style','pushbutton','String','Signal Builder',...
'Position',[BtnLeft BtnBottom BtnWidth BtnHeight ],...
'Tag', 'SigBuilder');
set(pbh, 'Callback', 'sigBuilder');
%-- version string
v = ver('LTPDA');
sth = uicontrol(mainfig,'Style','text',...
'String',sprintf('%s %s', v.Name, v.Version),...
'HorizontalAlignment', 'left', ...
'BackgroundColor', [130 190 250]/255, ...
'ForegroundColor', 'w', ...
'Position',[10 10 120 25]);
%% Start the GUI
% Make the GUI visible.
set(mainfig,'Visible','on')
function start_workspaceBrowser(varargin)
workspaceBrowser;
end
function call_explore_ao(varargin)
ltpda_explorer;
end
end