API Reference

   function Self(  
      This : in Object'Class ) return Handle; 
 
   function Id(  
      This : in Object'Class ) return Object_ID; 
 
   procedure Mark_Deleted( 
      This : in Object'Class ); 
 
   function Is_Deleted( 
      This : in Object'Class ) return Boolean; 
 
   function Is_Valid( 
      This : in Object'Class ) return Boolean; 
 
   procedure Id( 
      This  : in out Object'Class; 
      Value : in Object_ID; 
      Name  : in String := "" ) ; 
 
   function Rootname( 
      This : in Object'Class ) return String; 
 
   function Rootname( 
      This : in Object'Class ) return Unbounded_String; 
 
 
   procedure Rootname(  
      This : in Object'Class; 
      Name : in String ) ; 
 
   Invalid_Object : exception; 
 
   procedure Descriptor( 
      This : in out Object'Class; 
      ID   : in Object_ID ); 
 
   function Descriptor( 
      This : in Object'Class ) return Object_ID; 
 

   procedure Load(  
      This     : in out Object; 
      S        : in Stream_Access; 
      Template : in Handle := null ) is abstract; 
 
   procedure Store( 
      This     : in out Object; 
      S        : in Stream_Access; 
      Template : in Handle := Null ) is abstract; 
 
   procedure Dump_Objects; 
 
   procedure Dump_Instance( 
      This     : in Object; 
      Tag_Name : in String := "" ); 
 
   procedure Reserve( 
      This : in out Object; 
      Name : in String := "" ); 
 
   procedure Commit( 
      This : in out Object ); 
 
   procedure Cancel( 
      This : in out Object ) ;