% PTMENU is a mfile which make the menubar in the plotwindow

%    Author:  Ole Barup Sorensen, Rapid Data Ltd 

%    Copyright (c) 1989-94 by Rapid Data Ltd
%    Revision 14:57  26/01/94

%Filemenu
Han_fil=uimenu(gcf,'Label','&File');
uimenu(Han_fil,'label','&Save Plot Variables','Callback','savevar');
uimenu(Han_fil,'label','&Print...','Sep','on','Callback','print -v');
uimenu(Han_fil,'label','Printer &Setup...','Callback','print -dsetup');

Han_edit=uimenu(gcf,'label','&Edit','Callback','showpar');
uimenu(Han_edit,'label','Copy to &Metafile','Callback','print -dmeta');
uimenu(Han_edit,'label','Copy to &Bitmap','Callback','print -dbitmap');


Han_mod=uimenu(gcf,'Label','&Model');
uimenu(Han_mod,'label','&Goto Model-Window','Callback',...
'set(0,''Currentfigure'',Fig8);');


Han_plot=uimenu(gcf,'Label','&Plot');
uimenu(Han_plot,'Label','&Display plot...','Callback',...
['if an_type == 1,bodepl;',...
'elseif an_type == 2,nyqst;',...
'elseif an_type == 3,inyqst;',...
'elseif an_type == 4,nichls;',...
'elseif an_type == 5,rtloci;',...
'elseif an_type == 6,stepr;',...
'elseif an_type == 7,impulr;',...
'elseif an_type == 8,gpmarg;',...
'elseif an_type == 9,stably;end;']);

uimenu(Han_plot,'Label','&Plot-Range...','Callback','ranges')
uimenu(Han_plot,'Label','Plot pre&ferences...','Callback','plt_prf')

Han_plot=uimenu(gcf,'Label','&Options');
uimenu(Han_plot,'Label','Cursor...','Callback','curmenu')

if an_type==6,
  uimenu(Han_plot,'Label','Performance...','Callback','disp_per')
end