%
%  Name: htmenu.m
% 
%  Usage: htmenu
% 
%  Description:
%     Initializes help and tasks menus
%

%  Version SWD970402
%
%  Author(s): Scott W. Doebling, doebling@lanl.gov
%
%  Institution: Los Alamos National Laboratory,
%		ESA-EA
%
%  Copyright (c) 1997, The Regents of the University
%     	of California. (See top level of code for
%        full copyright statement)
%

%===================================
% Task Menus
%===================================
hmmenu(11) = uimenu(figNumber,'Label','Tasks','enable','on');
hmmenu(12)=  uimenu(hmmenu(11),'Label','Modal Analysis',...
	'checked','on',...
	'callback', [ ...
	'if exist(''onHndlVector'')==1,', ...
	    'hideall(onHndlVector(ishandle(onHndlVector)));', ...
	'end,', ...
   'vismen = 1; menuvis,',...	
   'set(hmmenu(12),''checked'',''on'');',...
	'set(hmmenu(13:15),''checked'',''off'');',...
	'if ishandle(hl), delete(hl), end,',...
	'set(figNumber,''name'',''Diamond:  Modal Analysis'');']);	
hmmenu(13)=   uimenu(hmmenu(11),'Label','Damage Identification','callback', [ ...
	'if exist(''onHndlVector'')==1,', ...
	'hideall(onHndlVector(ishandle(onHndlVector)));', ...
	'end,', ...
	'vismen = 2; menuvis,',...	
	'set(hmmenu(13),''checked'',''on'');',...
	'set(hmmenu([12 14:15]),''checked'',''off'');',...
	'set(figNumber,''name'',''Diamond:  Damage Identification'');']);
hmmenu(14)=   uimenu(hmmenu(11),'Label','Model Correlation','callback', [ ...
	'if exist(''onHndlVector'')==1,', ...
	'hideall(onHndlVector(ishandle(onHndlVector)));', ...
	'end,', ...
   'vismen = 3; menuvis,',...	
   'set(hmmenu(14),''checked'',''on'');',...
	'set(hmmenu([12:13 15]),''checked'',''off'');',...
	'if ishandle(hl), delete(hl), end,',...
	'set(figNumber,''name'',''Diamond:  Model Correlation'');']);
hmmenu(15)=  uimenu(hmmenu(11),'Label','Test Simulation',...
	'callback','errordlg(''Test Simulator not Installed'')');	


%=======================================
% Help menu
%========================================
  hmmenu(16)=uimenu(figNumber,'Label','Help','enable','on');
     uimenu(hmmenu(16),'Label','Index','callback','disp(''This item is not operational yet'')','enable','off')
