0001 function fig = timeplt_figure( current_figure, timeplt_count ) 0002 0003 a = current_figure; 0004 figure(a); 0005 clf; 0006 set ( a, ... 0007 'CloseRequestFcn', 'timeplt_command exit', ... 0008 'MenuBar', 'None', ... 0009 'Tag', sprintf ( 'timeplt figure %d', timeplt_count ) ); 0010 0011 b = uimenu( 'Parent',a, ... 0012 'Label','File', ... 0013 'Tag','File Menu'); 0014 c = uimenu ( 'Parent', b, ... 0015 'Label', 'Save as M-file', ... 0016 'Callback', 'timeplt_command print_to_mfile', ... 0017 'Tag', 'print to mfile menu item' ); 0018 c = uimenu ( 'Parent', b, ... 0019 'Label', 'Save as JPEG', ... 0020 'Callback', 'timeplt_command print_jpeg', ... 0021 'Tag', 'print jpeg menu item' ); 0022 c = uimenu ( 'Parent', b, ... 0023 'Label', 'Save as PS', ... 0024 'Callback', 'timeplt_command print_ps', ... 0025 'Tag', 'print ps menu item' ); 0026 c = uimenu ( 'Parent', b, ... 0027 'Label', 'Save as EPS', ... 0028 'Callback', 'timeplt_command print_eps', ... 0029 'Tag', 'print eps menu item' ); 0030 c = uimenu ( 'Parent', b, ... 0031 'Label', 'Print to Printer', ... 0032 'Callback', 'timeplt_command print_to_printer', ... 0033 'Tag', 'print to printer menu item' ); 0034 c = uimenu ( 'Parent', b, ... 0035 'Label', 'Exit', ... 0036 'Callback', 'timeplt_command exit', ... 0037 'Tag', 'exit menu item' ); 0038 b = uimenu( 'Parent',a, ... 0039 'Label','Time Resolution', ... 0040 'Tag','Time Resolution Menu'); 0041 c = uimenu ( 'Parent', b, ... 0042 'Label', 'years', ... 0043 'Callback', 'timeplt_command set_time_years', ... 0044 'Tag', 'set_time_years menu item' ); 0045 c = uimenu ( 'Parent', b, ... 0046 'Label', 'months', ... 0047 'Callback', 'timeplt_command set_time_months', ... 0048 'Tag', 'set_time_months menu item' ); 0049 c = uimenu ( 'Parent', b, ... 0050 'Label', 'days', ... 0051 'Callback', 'timeplt_command set_time_days', ... 0052 'Tag', 'set_time_days menu item' ); 0053 c = uimenu ( 'Parent', b, ... 0054 'Label', 'hours', ... 0055 'Callback', 'timeplt_command set_time_hours', ... 0056 'Tag', 'set_time_hours menu item' ); 0057 c = uimenu ( 'Parent', b, ... 0058 'Label', 'minutes', ... 0059 'Callback', 'timeplt_command set_time_minutes', ... 0060 'Tag', 'set_time_minutes menu item' ); 0061 0062 fig = a;