DataMuseum.dk

top - download

    Length: 3042 (0xbe2)
    Types: TextFile
    Names: »B«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

separate (Actions)
package body Module is

    procedure Image_Name (Handle : Dc.Gateway_Handle;
                          Visible : Boolean;
                          Read_Only : Boolean;
                          No_Image : out Boolean;
                          Show_Property_Image : out Boolean;
                          Id : out Dc.Image_Identity) is
    begin
        Model.Image_Name (Handle => Handle,
                          Visible => Visible,
                          Read_Only => Read_Only,
                          No_Image => No_Image,
                          Show_Property_Image => Show_Property_Image,
                          Id => Id);
    end Image_Name;

    procedure Build_Image (Handle : Dc.Gateway_Handle;
                           Visible : Boolean;
                           In_Place : Boolean;
                           First_Time : Boolean;
                           Read_Only : in out Boolean;
                           Image : Dc.Image_Id;
                           No_Image : out Boolean;
                           Underlying_Object : out Directory.Object) is
    begin
        Model.Build_Image (Handle => Handle,
                           Visible => Visible,
                           In_Place => In_Place,
                           First_Time => First_Time,
                           Read_Only => Read_Only,
                           Image => Image,
                           No_Image => No_Image,
                           Underlying_Object => Underlying_Object);
    end Build_Image;

    procedure Pre_Check_In (Handle : Dc.Gateway_Handle;
                            Subobject : Directory.Object;
                            Response : Profile.Response_Profile;
                            Action_Id : Action.Id;
                            Errors : in out Dc.Error_Counts) is
    begin
        Model.Pre_Check_In (Handle => Handle,
                            Subobject => Subobject,
                            Response => Response,
                            Action_Id => Action_Id,
                            Errors => Errors);
    end Pre_Check_In;

    procedure Pre_Make_Controlled (Handle : Dc.Gateway_Handle;
                                   Subobject : Directory.Object;
                                   Save_Source : Boolean;
                                   Allow_Controlled : out Boolean;
                                   Response : Profile.Response_Profile;
                                   Action_Id : Action.Id;
                                   Errors : in out Dc.Error_Counts) is
    begin
        Model.Pre_Make_Controlled (Handle => Handle,
                                   Subobject => Subobject,
                                   Save_Source => Save_Source,
                                   Allow_Controlled => Allow_Controlled,
                                   Response => Response,
                                   Action_Id => Action_Id,
                                   Errors => Errors);
    end Pre_Make_Controlled;

end Module;