Import.
line source
function ltpdv_buildImportPanel(ph, mainfig)
Gproperties = getappdata(mainfig, 'Gproperties');
pmarg = 0.025;
% Build a panel to contain this tab
% panh = uipanel('Parent', ph, 'Position', [pmarg pmarg 1-2*pmarg 1-2*pmarg]);
%% Add new sub tabbed panel
Hmargin = 0.025;
Vmargin = 0.025;
PanLeft = Hmargin;
Tleft = Hmargin;
Theight = 1-2*Vmargin;
Tbottom = (1 - Theight - Vmargin);
Twidth = 1-2*Hmargin;
Pcol = [1 1 0.9];
htab = uitabgroup('Parent', ph, ...
'Units','normalized',...
'Tag', 'LTPDVimportTabPanel', ...
'Position',[Tleft Tbottom Twidth Theight], 'SelectionChangeFcn', {@ltpdv_tabChanged});
mt1 = uitab(htab, 'title', 'Server');
mt2 = uitab(htab, 'title', 'Workspace');
mt3 = uitab(htab, 'title', 'Build');
%-------------- Build Server Panel
buildServerPanel(mt1, mainfig);
%-------------- Build Workspace Panel
h = buildWorkspacePanel(mt2, mainfig);
%-------------- Build Build Panel
buildBuildPanel(mt3, mainfig);
end
%--------------------------------------------------------------------------
% Build import from server panel
function buildBuildPanel(hp, mainfig)
EditFontSize = 11;
vmarg = 0.03;
pmarg = 0.01;
CommHeight = EditFontSize/400;
ph = 1;
htab = uipanel('Parent', hp, 'Position', [pmarg 1-ph-pmarg 1-2*pmarg ph]);
set(htab, 'Units', 'Normalized')
set(htab, 'Title', '')
set(htab, 'BackgroundColor', [0.6 0.6 0.8]);
set(htab, 'ForegroundColor', 'w');
%----- Class selector
bh = CommHeight;
bl = pmarg;
bw = 0.15;
bb = 1-bh-1*vmarg;
sth = uicontrol(htab, 'Style','text',...
'String', 'Object Class',...
'Units', 'normalized', ...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
bl = bl+bw+pmarg;
bw = 0.2;
clsh = uicontrol(htab, ...
'Style', 'popupmenu', ...
'Units', 'normalized',...
'Fontsize', EditFontSize, ...
'BackgroundColor', 'w', ...
'String', utils.helper.ltpda_userclasses, ...
'Position', [bl bb bw bh],...
'Tag', 'LTPDVbuildObjectClass', ...
'Callback', {@ltpdv_build_class_select, mainfig});
%----- Set selector
bl = bl+bw+pmarg;
bw = 0.15;
sth = uicontrol(htab, 'Style','text',...
'String', 'Parameter Set',...
'Units', 'normalized', ...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
bl = bl+bw+pmarg;
bw = 0.3;
dtypeh = uicontrol(htab, ...
'Style', 'popupmenu', ...
'Units', 'normalized',...
'Fontsize', EditFontSize, ...
'BackgroundColor', 'w', ...
'String', ' ', ...
'Position', [bl bb bw bh],...
'Tag', 'LTPDVbuildSetSelect', ...
'Callback', {@ltpdv_build_set_select, mainfig});
% Parameter panel
ph = 0.8;
ppan = uipanel('Parent', htab, 'Position', [pmarg 0.08+vmarg 1-2*pmarg ph]);
set(ppan, 'Units', 'Normalized')
set(ppan, 'Title', 'Parameters')
set(ppan, 'BackgroundColor', [0.7 0.7 0.8]);
set(ppan, 'ForegroundColor', 'w');
set(ppan, 'Tag', 'LTPDVbuildParamsPanel');
pbh = uicontrol(htab,'Style','pushbutton',...
'String','Build object',...
'Callback', {@ltpdv_build_buildobject, mainfig}, ...
'Units', 'normalized', ...
'Fontsize', EditFontSize, ...
'Position',[pmarg vmarg 0.15 2*bh]);
% call back
ltpdv_build_class_select(clsh, mainfig)
%
% bh = CommHeight;
% bl = pmarg;
% bw = 1-2*pmarg;
% bb = vmarg;
% sth = uicontrol(hp, 'Style','text',...
% 'String', 'Build objects with the ''constructor helper'' then import from workspace.',...
% 'Units', 'normalized', ...
% 'BackgroundColor', 'w', ...
% 'Fontsize', EditFontSize, ...
% 'Position',[bl bb bw bh]);
end
%--------------------------------------------------------------------------
% Build import from server panel
function buildServerPanel(hp, mainfig)
% Data type
EditFontSize = 11;
vmarg = 0.03;
pmarg = 0.01;
CommHeight = EditFontSize/80;
% Import button
bw = 0.12;
bh = 0.05;
bl = pmarg;
bb = pmarg;
pbh = uicontrol(hp,'Style','pushbutton',...
'String','Import',...
'Callback', {@ltpdv_server_import, mainfig}, ...
'Units', 'normalized', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
%======== New tab panel
Tleft = pmarg;
Theight = 0.8;
Tbottom = 1-Theight - pmarg;
Twidth = 1-2*pmarg;
% htab = uitabgroup('Parent', hp, ...
% 'Units','normalized',...
% 'Position',[Tleft Tbottom Twidth Theight], 'SelectionChangeFcn', {@ltpdv_tabChanged});
% t1 = uitab(htab, 'title', 'Server Details');
% t2 = uitab(htab, 'title', 'Times');
% t3 = uitab(htab, 'title', 'Channels');
% ======= Server Details
ph = 0.3;
htab = uipanel('Parent', hp, 'Position', [pmarg 1-ph-pmarg 1-2*pmarg ph]);
set(htab, 'Units', 'Normalized')
set(htab, 'Title', 'Server settings')
set(htab, 'BackgroundColor', [0.3 0.7 0.3]);
set(htab, 'ForegroundColor', 'w');
bh = CommHeight;
bl = pmarg;
bw = 0.1;
bb = 1-bh-3*vmarg;
sth = uicontrol(htab, 'Style','text',...
'String', 'Data type',...
'Units', 'normalized', ...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
bl = bl+bw+pmarg;
bw = 0.17;
dtypeh = uicontrol(htab, ...
'Style', 'popupmenu', ...
'Units', 'normalized',...
'Fontsize', EditFontSize, ...
'BackgroundColor', 'w', ...
'String', {'frame data','h(t) frames', 'raw data', 'hour trends', 'day trends'}, ...
'Position', [bl bb bw bh],...
'Tag', 'LTPDVserverDataType', ...
'Callback', {@ltpdv_server_datatype_select, mainfig});
% Statistic
bl = bl + bw + pmarg;
bw = 0.1;
sth = uicontrol(htab, 'Style','text',...
'String', 'Statistic',...
'Units', 'normalized', ...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
bl = bl+bw+pmarg;
bw = 0.12;
th = uicontrol(htab, ...
'Style', 'popupmenu', ...
'Units', 'normalized',...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'String', {'rms','min', 'max', 'avg'}, ...
'Position', [bl bb bw bh],...
'Tag', 'LTPDVserverStat');
% Server drop-down box
bl = pmarg;
bw = 0.1;
bb = bb - bh - vmarg;
sth = uicontrol(htab, 'Style','text',...
'String', 'Server',...
'Units', 'normalized', ...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
bl = bl+bw+pmarg;
bw = 0.25;
th = uicontrol(htab, ...
'Style', 'popupmenu', ...
'Units', 'normalized',...
'BackgroundColor', 'w', ...
'String', {'130.75.117.159','130.75.117.73', '130.75.117.164', 'localhost'}, ...
'Fontsize', EditFontSize, ...
'Position', [bl bb bw bh],...
'Tag', 'LTPDVserverServer', ...
'Callback', {@ltpdv_server_server_select, mainfig});
% Server entry box
bl = bl+bw+pmarg;
bw = 0.22;
th = uicontrol(htab, ...
'Style', 'edit', ...
'Units', 'normalized',...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'String', '', ...
'Position', [bl bb bw bh],...
'Tag', 'LTPDVserverServerEdit');
% Port entry
bl = bl+bw+pmarg;
bw = 0.07;
sth = uicontrol(htab, 'Style','text',...
'String', 'Port',...
'Units', 'normalized', ...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
bl = bl+bw+pmarg;
bw = 0.1;
th = uicontrol(htab, ...
'Style', 'edit', ...
'Units', 'normalized',...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'String', '', ...
'Position', [bl bb bw bh],...
'Tag', 'LTPDVserverPortEdit');
% RDS
bl = pmarg;
bw = 0.1;
bb = bb - bh - vmarg;
sth = uicontrol(htab, 'Style','text',...
'String', 'RDS Level',...
'Units', 'normalized', ...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
bl = bl+bw+pmarg;
bw = 0.05;
th = uicontrol(htab, ...
'Style', 'edit', ...
'Units', 'normalized',...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'String', '', ...
'Position', [bl bb bw bh],...
'Tag', 'LTPDVserverRdsEdit');
% CAL
bl = pmarg + bl + bw;
bw = 0.1;
sth = uicontrol(htab, 'Style','text',...
'String', 'Cal Ver',...
'Units', 'normalized', ...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
bl = bl+bw+pmarg;
bw = 0.05;
th = uicontrol(htab, ...
'Style', 'edit', ...
'Units', 'normalized',...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'String', '', ...
'Position', [bl bb bw bh],...
'Tag', 'LTPDVserverCalEdit');
% call callbacks
ltpdv_server_server_select(0, mainfig);
ltpdv_server_datatype_select(dtypeh, mainfig);
% Query server button
bw = 0.13;
bb = vmarg;
bl = pmarg;
pbh = uicontrol(htab,'Style','pushbutton',...
'String','Query Server',...
'Callback', {@ltpdv_server_queryServer, mainfig}, ...
'Units', 'normalized', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw 1.4*CommHeight]);
% Get latest button
bl = bl + bw + pmarg;
pbh = uicontrol(htab,'Style','pushbutton',...
'String','Get latest',...
'Callback', {@ltpdv_server_getLatest, mainfig}, ...
'Units', 'normalized', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw 1.4*CommHeight]);
%---------------- Time entry
ph = 0.3;
htab = uipanel('Parent', hp, 'Position', [pmarg 1-2*ph-2*pmarg 1-2*pmarg ph]);
set(htab, 'Units', 'Normalized')
set(htab, 'Title', 'Times settings')
set(htab, 'BackgroundColor', [0.7 0.3 0.3]);
set(htab, 'ForegroundColor', 'w');
% time and channel lists
bb = 1-0.7*bh-pmarg;
bl = pmarg+0.4;
bw = 0.5;
timesH = uicontrol(htab, 'Style','text',...
'String', 'Times',...
'Units', 'normalized', ...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw 0.7*bh]);
bl = pmarg + 0.4;
bh = 0.7;
bb = bb - bh;
lh = uicontrol(htab, 'Style', 'listbox', ...
'String', '',...
'BackgroundColor', 'w', ...
'Value',1, 'Units', 'normalized', ...
'Fontsize', EditFontSize, ...
'Max', 1000, ...
'Tag', 'LTPDVtimesList', ...
'Position',[bl bb bw bh], ...
'Callback', {@ltpdv_server_timeslist, mainfig});
% delete times
bw = (0.5 - 3*pmarg)/ 4;
bh = CommHeight;
bb = bb - bh - vmarg;
pbh = uicontrol(htab,'Style','pushbutton',...
'String','Delete times',...
'Callback', {@ltpdv_server_deleteTimes, mainfig}, ...
'Units', 'normalized', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
% clear list
bl = bl + pmarg + bw;
pbh = uicontrol(htab,'Style','pushbutton',...
'String','Clear list',...
'Callback', {@ltpdv_server_clearTimes, mainfig}, ...
'Units', 'normalized', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
% save list
bl = bl + pmarg + bw;
pbh = uicontrol(htab,'Style','pushbutton',...
'String','Save list',...
'Callback', {@ltpdv_server_saveTimes, mainfig}, ...
'Units', 'normalized', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
% load list
bl = bl + pmarg + bw;
pbh = uicontrol(htab,'Style','pushbutton',...
'String','Load list',...
'Callback', {@ltpdv_server_loadTimes, mainfig}, ...
'Units', 'normalized', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
% start time
pos = get(timesH, 'Position');
bl = pmarg;
bw = 0.1;
bh = CommHeight;
bb = pos(2)-2*vmarg;
sth = uicontrol(htab, 'Style','text',...
'String', 'Start',...
'Units', 'normalized', ...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
bl = bl+bw+pmarg;
bw = 0.25;
th = uicontrol(htab, ...
'Style', 'edit', ...
'Units', 'normalized',...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'String', '', ...
'Position', [bl bb bw bh],...
'Callback', {@ltpdv_server_start_edit, mainfig}, ...
'Tag', 'LTPDVserverStartEdit');
% stop time
bl = pmarg;
bw = 0.1;
bb = bb - bh - vmarg;
sth = uicontrol(htab, 'Style','text',...
'String', 'Stop',...
'Units', 'normalized', ...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
bl = bl+bw+pmarg;
bw = 0.25;
th = uicontrol(htab, ...
'Style', 'edit', ...
'Units', 'normalized',...
'BackgroundColor', 'w', ...
'String', '', ...
'Fontsize', EditFontSize, ...
'Position', [bl bb bw bh],...
'Callback', {@ltpdv_server_stop_edit, mainfig}, ...
'Tag', 'LTPDVserverStopEdit');
% duration display
bw = 0.1;
bl = pmarg;
bb = bb - bh - vmarg;
sth = uicontrol(htab, 'Style','text',...
'String', 'Duration',...
'Units', 'normalized', ...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
bl = bl + bw + pmarg;
bw = 0.25;
sth = uicontrol(htab, 'Style','text',...
'String', '',...
'Units', 'normalized', ...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'Tag', 'LTPDVserverDurationDisplay', ...
'Position',[bl bb bw bh]);
% comment
pos = get(sth, 'Position');
bl = pmarg;
bw = pos(1) + pos(3) - pmarg;
bb = bb - 0.7*bh - vmarg;
sth = uicontrol(htab, 'Style','text',...
'String', 'Comment',...
'Units', 'normalized', ...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh*0.7]);
bb = bb - bh - pmarg;
bl = pmarg;
th = uicontrol(htab, ...
'Style', 'edit', ...
'Units', 'normalized',...
'BackgroundColor', 'w', ...
'String', '', ...
'Fontsize', EditFontSize, ...
'Position', [bl bb bw bh],...
'Tag', 'LTPDVserverCommentEdit');
% Add time button
bl = pmarg;
bb = bb - bh - vmarg;
pbh = uicontrol(htab,'Style','pushbutton',...
'String','Add to list',...
'Fontsize', EditFontSize, ...
'Callback', {@ltpdv_server_addTime, mainfig}, ...
'Units', 'normalized', ...
'Position',[bl bb bw bh]);
% ----------------- Channel list
ph = 0.3;
htab = uipanel('Parent', hp, 'Position', [pmarg pmarg+2*vmarg 1-2*pmarg ph]);
set(htab, 'Units', 'Normalized')
set(htab, 'Title', 'Channel settings')
set(htab, 'BackgroundColor', [0.3 0.3 0.7]);
set(htab, 'ForegroundColor', 'w');
bw = 0.5;
bb = 1 - vmarg - 0.7*bh;
bl = pmarg;
sth = uicontrol(htab, 'Style','text',...
'String', 'Channels',...
'Units', 'normalized', ...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw 0.7*bh]);
bh = 0.8;
bb = bb - bh;
lh = uicontrol(htab, 'Style', 'listbox', ...
'String', '',...
'BackgroundColor', 'w', ...
'Value',1, 'Units', 'normalized', ...
'Fontsize', EditFontSize, ...
'Max', 1000, ...
'Tag', 'LTPDVchannelList', ...
'Position',[bl bb bw bh], ...
'Callback', {@ltpdv_server_channellist, mainfig});
% include control chans
% bw = 0.3;
% bh = CommHeight;
% bb = bb - bh - pmarg;
% th = uicontrol(htab, ...
% 'Style', 'checkbox', ...
% 'Units', 'normalized',...
% 'BackgroundColor', 'w', ...
% 'String', 'Include control', ...
% 'Fontsize', EditFontSize, ...
% 'Position', [bl bb bw bh],...
% 'ForegroundColor', 'w',...
% 'Tag', 'LTPDVchannelIncludeControl');
% search box
bl = 0.55;
bw = 0.08;
bh = CommHeight;
bb = 1 - vmarg - bh;
sth = uicontrol(htab, 'Style','text',...
'String', 'Search',...
'Units', 'normalized', ...
'BackgroundColor', 'w', ...
'Fontsize', EditFontSize, ...
'Position',[bl bb bw bh]);
bl = bl+bw+pmarg;
bw = 0.17;
th = uicontrol(htab, ...
'Style', 'edit', ...
'Units', 'normalized',...
'BackgroundColor', 'w', ...
'String', '', ...
'Fontsize', EditFontSize, ...
'Position', [bl bb bw bh],...
'Callback', {@ltpdv_search_channels, mainfig}, ...
'Tag', 'LTPDVchannelSearchEdit');
pos = get(sth, 'Position');
bl = pos(1);
bb = bb - bh - vmarg;
pbh = uicontrol(htab,'Style','pushbutton',...
'String','Get channels',...
'Fontsize', EditFontSize, ...
'Callback', {@ltpdv_server_getChannels, mainfig}, ...
'Units', 'normalized', ...
'Position',[bl bb bw bh]);
end
%--------------------------------------------------------------------------
% Build import from workspace panel
function th = buildWorkspacePanel(hp, mainfig)
% Object list
pmarg = 0.025;
Lleft = pmarg;
Lbottom = 0.4+pmarg;
Lwidth = 1-2*pmarg;
Lheight = 1-Lbottom-pmarg;
th = uitable(hp, ...
'Units', 'normalized',...
'ColumnName', {'Name','Type', 'Size', 'kB'}, ...
'Position', [Lleft Lbottom Lwidth Lheight],...
'Tag', 'LTPDVworkspaceList', ...
'CellSelectionCallback', {@ltpdv_workspaceList_select, mainfig});
% set data
ltpdv_workspaceList_set_data(th);
% Make refresh button
pl = pmarg;
ph = 0.05;
pb = Lbottom - ph - pmarg;
pw = 0.1;
pbh = uicontrol(hp,'Style','pushbutton',...
'String','Refresh',...
'Callback', {@ltpdv_workspaceList_set_data, th}, ...
'Units', 'normalized', ...
'Position',[pl pb pw ph]);
% Make import button
pl = pmarg + pw + pmarg;
ph = 0.05;
pb = Lbottom - ph - pmarg;
pw = 0.1;
pbh = uicontrol(hp,'Style','pushbutton',...
'String','Import',...
'Callback', {@ltpdv_importObjs, mainfig, th}, ...
'Units', 'normalized', ...
'Position',[pl pb pw ph]);
% Selection box for renamin with var names
pl = pl + pw + pmarg;
ph = 0.05;
pb = Lbottom - ph - pmarg;
pw = 0.3;
ch = uicontrol(hp, 'Style', 'checkbox', ...
'String', 'use var name', ...
'TooltipString', 'Set object name to workspace variable name.', ...
'Units', 'normalized', ...
'Position', [pl pb pw ph], ...
'Value', 1, ...
'Tag', 'LTPDVusevarnameChk');
end