-- $Date: 2003/12/26 10:11:36 $
-- $Revision: 1.9 $
-- $Author: jcrocholl $

-- This file was automatically created with ado.php.
-- Manual changes will be lost when it is updated.

package body Parts is

   -- Constructor for instances.
   function Create
     (Name : in String-- The initial name.
     return Part        -- The newly created part.
   is
      Result : Part := new Part_Record;
   begin
      Result.Name := To_Unbounded_String(Name);
      return Result;
   end Create;

   -- Accessor to read the name of a part.
   function Get_Name
     (This : in Part-- The part to read from.
     return String is -- The name of that part.
   begin
      return To_String(This.Name);
   end Get_Name;

   -- Mutator to update the name of a part.
   procedure Set_Name
     (This : in Part;      -- The part to be updated.
      Name : in String) is -- The new name of that part.
   begin
      This.Name := To_Unbounded_String(Name);
   end Set_Name;

end Parts;