%
% INPDELAY is a m-file with the menu for enter
% the time delay. 

%    Author:  Ole Barup Sorensen, Rapid Data Ltd 

%    Copyright (c) 1989-94 by Rapid Data Ltd
%    Revision 10:32  07/02/94

okflag=figflag('Input Delay',0);

if okflag==0,									
x=15;y=0;
Sx=350;
Sy=130;

t_str = num2str(t_delay);
mv=t_delay;
Fig1=figure('Numbertitle','off','Name','Input Delay','Menubar','none',...
'Units','normal','Position',[(145)/Scx (180)/Scy (350)/Scx (130)/Scy],'Nextplot',...
'new','Resize','off','Color',[0.5 0.5 0.5]);
drawnow
g(1)=uicontrol(Fig1,'Style','frame','Position',[(10)/Sx (50)/Sy (300)/Sx (30)/Sy]);
g(2)=uicontrol(Fig1,'Style','text','String','Enter Time delay (in seconds):',...
'Position',[(x+15)/Sx (55)/Sy (230)/Sx (20)/Sy]);
set(g(2),'Foregroundcolor',[0 0 0],'HorizontalAlignment','left');
g(3)=uicontrol(Fig1,'Style','edit','Position',[(x+220)/Sx (55)/Sy (50)/Sx (20)/Sy],'String',t_str,...
'Callback',['t_str=get(g(3),''String'');',...
'if t_str~=[],t_delay=str2num(t_str);end']);
set(g(3),'Backgroundcolor',[1 1 1]);
g(4)=uicontrol(Fig1,'Style','push','String','Done','Position',...
[(10)/Sx (y+15)/Sy (80)/Sx (20)/Sy],'Callback',...
['close(Fig1);clear Fig1 g t_str mv']);
g(5)=uicontrol(Fig1,'Style','push','String','Cancel','Position',...
[(100)/Sx (y+15)/Sy (80)/Sx (20)/Sy],'Callback',...
['close(Fig1);t_delay=mv;clear Fig1 g t_str mv']);
end
clear Sx Sy x y okflag