::
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]