Ada 95 :: x72_t0.ada

function laser ( mes:in String ) return String is
begin
  return "";
end laser;

function ink_jet ( mes:in String ) return String is
begin
  return "";
end ink_jet;

function about ( mes:in String ) return String is
begin
  return "";
end about;

with Class_input_manager, Class_window,
     Class_dialog, Class_menu, Class_menu_title, 
     laser, ink_jet, about;
use  Class_input_manager, Class_window,
     Class_dialog, Class_menu, Class_menu_title;
procedure main is
begin
  window_prologue;
  declare
    menu_bar     : Menu_title;
    printer_type : aliased Menu;
  begin
    framework( printer_type,
               "Laser",   null, laser'Access,
               "Ink jet", null, ink_jet'Access );
    framework( menu_bar,
               "About",   null, about'Access,
               "Print",   printer_type'Unchecked_Access, null );
    window_start;
  end;
  window_epilogue;
end main;


© M.A.Smith University of Brighton. Created September 1995 last modified May 1997.
Comments, suggestions, etc. M.A.Smith@brighton.ac.uk * [Home page]