%
%  Name: delmenus.m
% 
%  Usage: delmenus
% 
%  Description:
%     Deletes existing 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)
%

%
%  Delete existing menus
%

for i = 1:length(hmmenu),
   if ishandle(hmmenu(i)),
      if strcmp('root',get(hmmenu(i),'type'))~=1
         delete(hmmenu(i))
      end
   end
end
