function fig = timeplt_figure( current_figure, timeplt_count, whichdomain )
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Use of this program is described in:
%
% Sullivan, C.M., Warner, J.C., Martini, M.A., Voulgaris, G., 
% Work, P.A., Haas, K.A., and Hanes, D.H. (2006) 
% South Carolina Coastal Erosion Study Data Report for Observations
% October 2003 - April 2004., USGS Open-File Report 2005-1429.
%
% Program written in Matlab v7.1.0 SP3
% Program ran on PC with Windows XP Professional OS.
%
% "Although this program has been used by the USGS, no warranty, 
% expressed or implied, is made by the USGS or the United States 
% Government as to the accuracy and functioning of the program 
% and related program material nor shall the fact of distribution 
% constitute any such warranty, and no responsibility is assumed 
% by the USGS in connection therewith."
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%

a = current_figure;
figure(a);
clf;
%%%%%%%%%%%%%%%%edited by jpx on 3/18/99%%%%%%%%%%%%%%%%%%%%%
%set ( a, ...
%    'CloseRequestFcn', 'timeplt_command exit', ...
%    'MenuBar', 'None', ...  
%    'Tag', sprintf ( 'timeplt figure %d', timeplt_count ) );

set ( a, ...
    'Tag', sprintf ( 'timeplt figure %d', timeplt_count ) );
	
%     'CloseRequestFcn', 'timeplt_command exit', ...

%b = uimenu(    'Parent',a, ...
%        'Label','File', ...
%         'Tag','File Menu');

b = uimenu(    'Parent',a, ...
        'Label','[Save As]', ...
         'Tag','File Menu');
%%%%%%%%%%%%%%%%to accomadate CMGTooL on unix%%%%%%%%%%%%%%%%%%%
c = uimenu (    'Parent', b, ...
            'Label', 'Save as M-file', ...
            'Callback', 'timeplt_command print_to_mfile', ...
            'Tag', 'print to mfile menu item' );
c = uimenu (    'Parent', b, ...
            'Label', 'Save as JPEG', ...
            'Callback', 'timeplt_command print_jpeg', ...
            'Tag', 'print jpeg menu item' );
c = uimenu (    'Parent', b, ...
            'Label', 'Save as PS', ...
            'Callback', 'timeplt_command print_ps', ...
            'Tag', 'print ps menu item' );
c = uimenu (    'Parent', b, ...
            'Label', 'Save as EPS', ...
            'Callback', 'timeplt_command print_eps', ...
            'Tag', 'print eps menu item' );
c = uimenu (    'Parent', b, ...
            'Label', 'Save as ILL', ...
            'Callback', 'timeplt_command print_ill', ...
            'Tag', 'print illustrator menu item' );
c = uimenu (    'Parent', b, ...
            'Label', 'Print to Printer', ...
            'Callback', 'timeplt_command print_to_printer', ...
            'Tag', 'print to printer menu item' );
%c = uimenu (    'Parent', b, ...
%            'Label', 'Exit', ...
%            'Callback', 'timeplt_command exit', ...
%            'Tag', 'exit menu item' );

if strcmp(whichdomain,'tdomain')
	b = uimenu( 'Parent',a, ...
	         'Label','[Time Resolution]', ...
	         'Tag','Time Resolution Menu');
	c = uimenu ( 'Parent', b, ...
	          'Label', 'years', ...
	          'Callback', 'timeplt_command set_time_years', ...
	          'Tag', 'set_time_years menu item' );
	c = uimenu ( 'Parent', b, ...
	          'Label', 'months', ...
	          'Callback', 'timeplt_command set_time_months', ...
	          'Tag', 'set_time_months menu item' );
	c = uimenu ( 'Parent', b, ...
	          'Label', 'days', ...
	          'Callback', 'timeplt_command set_time_days', ...
	          'Tag', 'set_time_days menu item' );
	c = uimenu ( 'Parent', b, ...
	          'Label', 'hours', ...
	          'Callback', 'timeplt_command set_time_hours', ...
	          'Tag', 'set_time_hours menu item' );
	c = uimenu ( 'Parent', b, ...
	          'Label', 'minutes', ...
	          'Callback', 'timeplt_command set_time_minutes', ...
	          'Tag', 'set_time_minutes menu item' );
end;
		  
fig = a;
