comparison m-toolbox/m/gui/ltpdv/callbacks/ltpdv_buildPreprocessPanel.m @ 0:f0afece42f48

Import.
author Daniele Nicolodi <nicolodi@science.unitn.it>
date Wed, 23 Nov 2011 19:22:13 +0100
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:f0afece42f48
1 function ltpdv_buildPreprocessPanel(panH, mainfig)
2
3 Gproperties = getappdata(mainfig, 'Gproperties');
4
5 % List of functions
6 preFcns = ltpdv_preproc_function_list;
7
8 % Margins
9 pmarg = 0.025;
10 FONTSIZE = 12;
11
12 % Text string
13 ll = pmarg;
14 lh = 0.05;
15 lb = 1-pmarg-lh;
16 lw = 0.3;
17 sth = uicontrol(panH,'Style','text',...
18 'String','Functions',...
19 'Units', 'normalized', ...
20 'BackgroundColor', Gproperties.Gcol, ...
21 'Fontsize', FONTSIZE, ...
22 'Position',[ll lb lw lh]);
23
24 % Params panel
25 pl = pmarg + 0.3 + pmarg;
26 pb = 0.1;
27 pw = 1-pl-pmarg;
28 ph = 1 - pb - pmarg;
29
30 paramh = uipanel('Parent',panH,'Title','Parameters',...
31 'Units', 'normalized', ...
32 'BackgroundColor', 0.8*[0.87 0.92 0.99], ...
33 'Fontsize', FONTSIZE, ...
34 'Tag', 'LTPDVpreprocparampan', ...
35 'Position',[pl pb pw ph]);
36
37 % Function list
38 ll = pmarg;
39 lb = pmarg;
40 lw = 0.3;
41 lh = 1-2*pmarg - 0.05;
42 lh = uicontrol(panH, 'Style', 'listbox', ...
43 'String', preFcns(:,2),...
44 'BackgroundColor', 'w', ...
45 'Value',1, 'Units', 'normalized', ...
46 'Fontsize', FONTSIZE, ...
47 'Tag', 'LTPDVpreprocfcnlist', ...
48 'Position',[ll lb lw lh], ...
49 'Callback', {@ltpdv_preproc_fcnlist, paramh, mainfig});
50
51 % Build params
52 ltpdv_preproc_fcnlist(lh, paramh, mainfig);
53
54 % Process button
55 phght = 0.05;
56 pbott = pmarg;
57 pwidt = 0.2;
58 pleft = 1-pmarg-pwidt;
59 pbh = uicontrol(panH,'Style','pushbutton',...
60 'String','Process',...
61 'Callback', {@ltpdv_fcn_run, 'preproc', panH, mainfig}, ...
62 'Units', 'normalized', ...
63 'Position',[pleft pbott pwidt phght]);
64
65
66
67 % END