-- File: BoxObject.ads
-- Example of Ada style object



package BoxObject is

   type Box is record
         Length : INTEGER;
         Width  : INTEGER;
         Height : INTEGER;
      end record;

-- function Make_A_Box(In_Length, In_Width, In_Height : INTEGER)
--                                                        return Box;
   procedure Make_A_Box(Result_Box : out Box;
                           In_Length, In_Width, In_Height : Integer);
   function "="(Left, Right : Box) return Boolean;
   function "+"(Left, Right : Box) return Box;
   procedure Print_Box(Input_Box : IN Box);

end BoxObject;