%
% CURMENU is the m-file which display the result when the 
% cursor is used to pick a point. 

%    Author:  Ole Barup Sorensen, Rapid Data Ltd 

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

okflag=figflag('Cursor values',0);

if okflag==0,

xp=15; yp=65;
Sx=280;
Sy=190;
Mainfig=gcf;

Fig6=figure('Numbertitle','off','Name','Cursor values','Menubar','none',...
'Units','normal','Position',[(200)/Scx (200)/Scy (280)/Scx (170)/Scy],'Nextplot',...
'new','Resize','off','Color',[0.5 0.5 0.5],'Visible','off');

Han_b2(2)=uicontrol(Fig6,'Style','frame','Position',[(xp-5)/Sx (yp-5)/Sy (250)/Sx (70)/Sy]);

Han_b2(3)=uicontrol(Fig6,'Style','text','Position',[(xp-5)/Sx (yp+65)/Sy (200)/Sx (20)/Sy],'String',...
'Cursor values:');
Han_b2(4)=uicontrol(Fig6,'Style','text','Position',[(xp)/Sx (yp+40)/Sy (235)/Sx (20)/Sy],'String',...
' ');
Han_b2(5)=uicontrol(Fig6,'Style','text','Position',[(xp)/Sx (yp+20)/Sy (235)/Sx (20)/Sy],'String',...
' ');
Han_b2(6)=uicontrol(Fig6,'Style','text','Position',[(xp)/Sx (yp)/Sy (235)/Sx (20)/Sy],'String',...
' ');

set(Han_b2(3:6),'HorizontalAlignment','left');

Han_b2(7)=uicontrol(Fig6,'Style','push','String','Done','Position',...
[(xp-5)/Sx (yp-50)/Sy (60)/Sx (20)/Sy],'Callback',['close(Fig6); clear Fig6 Han_b2;']);
Han_b2(1)=uicontrol(Fig6,'Style','push','String','New point','Position',...
[(xp+65)/Sx (yp-50)/Sy (80)/Sx (20)/Sy],'Callback','set(0,''Currentfigure'',Mainfig);cursor;');

set(0,'Currentfigure',Mainfig);
cursor

end

clear okflag