Homec4science
Diffusion Instrument Control (TekRSA-Freq-vs-Time) Browse

rINSTCONTROL/Utility functions/Dialogs/yesnodlg.m
820db88615caTekRSA-Freq-vs-Time

Last Change
Raw File

yesnodlg.m
View Options

% Analog of questdlg which runs more stable
function bool = yesnodlg(quest,title,default)
assert(islogical(default), 'Default value must be of logical type')
% Define geometry
btn_w=56;
btn_h=22;
sps=10; % spacing between elements
fig_w=2*btn_w+3*sps;
fig_h=btn_h+2*sps;
R=groot();
% Display the figure window in the center of the screen
fig_x=R.ScreenSize(3)/2-fig_w/2;
fig_y=R.ScreenSize(4)/2-fig_h/2;
F = figure('MenuBar','none', ...
'Name',title, ...
'NumberTitle','off', ...
'Resize','off', ...
'KeyPressFcn', @(x,y)figKeyPressCallback(x,y), ...
'Position',[fig_x,fig_y,fig_w,fig_h]);
Txt=uicontrol(F, 'Style', 'text', 'String', quest, 'Visible', 'off');
% Resize the figure to accomodate text
F.Position(3)=max(fig_w, Txt.Extent(3)+2*sps);
F.Position(4)=Txt.Extent(4)+3*sps+btn_h;
% Redraw the text and add buttons
uicontrol(F, 'Style', 'text', 'String', quest, ...
'Position', [sps, 2*sps+ btn_h, Txt.Extent(3), Txt.Extent(4)]);
delete(Txt);
uicontrol(F, 'Style', 'pushbutton', 'String', 'Yes', ...
'Position', [F.Position(3)/2-sps/2-btn_w, sps, btn_w, btn_h], ...
'KeyPressFcn', @(x,y)btnKeyPressCallback(x,y), ...
'Callback', @yesBtnCallback);
NoBtn=uicontrol(F, 'Style', 'pushbutton', 'String', 'No', ...
'Position', [F.Position(3)/2+sps/2, sps, btn_w, btn_h], ...
'KeyPressFcn', @(x,y)btnKeyPressCallback(x,y), ...
'Callback', @noBtnCallback);
uicontrol(NoBtn) % Set selection to the No button
bool=default;
% Wait until the figure is deleted
uiwait(F);
function yesBtnCallback(~, ~)
bool=true;
delete(F);
end
function noBtnCallback(~, ~)
bool=false;
delete(F);
end
function btnKeyPressCallback(Btn, EventData)
switch(EventData.Key)
case {'return'}
if strcmpi(Btn.String,'yes')
bool=true;
else
bool=false;
end
delete(F);
case 'escape'
bool=false;
delete(F);
end
end
function figKeyPressCallback(~, EventData)
switch(EventData.Key)
case 'escape'
bool=false;
delete(F);
end
end
end
c4science · Help