www.pudn.com > LPCToolbox.rar > RCFIG_SETUP.M

 
function rcfig_setup 
global Handle 
 
Handle.rcfig = figure('menubar', 'none', 'units', 'normalized'); 
set(gcf, 'position', [0.1984 0.2451 0.6375 0.5479]); 
colordef(gcf, 'white'); 
set(Handle.rcfig, 'WindowButtonUpFcn', 'rcfig_click'); 
%set(Handle.rcfig, 'KeyPressFcn', 'rcfig_key'); 
setptr(Handle.rcfig, 'fullcrosshair'); 
 
ctl{1} = {'Ne&xt sound',        'x', 'menuactions(''nextsnd'')'}; 
ctl{2} = {'Pre&vious sound',    'v', 'menuactions(''prevsnd'')'}; 
ctl{3} = {'Play &sound',        's', 'menuactions(''playsnd'')'}; 
ctl{4} = {'&Change parameters', 'c', 'menuactions(''changeparams'')'}; 
ctl{5} = {'&Quit',              'q', 'menuactions(''quit'')'}; 
nctls = length(ctl); 
 
clear h h1 
 
h = uimenu(Handle.rcfig, 'label', '&Lpctool'); 
 
for i=1:nctls, 
 h1(i) = uimenu(h, 'label', ctl{i}{1}, ... 
                   'accelerator', ctl{i}{2}, ... 
                   'callback', ctl{i}{3}); 
end