-- File: component.adb
-- component Package Implementation
--
-- Prepared by Prof. Spiegel
-- Copyright © 1988-1998 Coronado Enterprises - Last update, February 1, 1998
-- Gordon Dodrill - dodrill@swcp.com

package body component is

procedure Initialize(Item : in out WIDGET) is
begin
   Put_Line("   This is from Initialize");
end Initialize;

procedure Adjust(Item : in out WIDGET) is
begin
   Put_Line("   This is from Adjust");
end Adjust;

procedure Finalize(Item : in out WIDGET) is
begin
   Put_Line("   This is from Finalize");
end Finalize;

end component;





-- Result of execution
--
--    This is from Initialize
--    This is from Initialize
-- Beginning this simple program
-- Paper record filled with data
--    This is from Finalize
--    This is from Adjust
-- Paper copied to Pencil
--    This is from Finalize
--    This is from Adjust
-- Pencil copied to Paper
--    This is from Finalize
--    This is from Finalize