DataMuseum.dk

top - download

    Length: 2353 (0x931)
    Types: TextFile
    Names: »V«

└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦9b46a407a⟧ 
            └─⟦12c68c704⟧ 
                └─⟦this⟧ 
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─ ⟦91c658230⟧ »DATA« 
        └─⟦458657fb6⟧ 
            └─⟦220843204⟧ 
                └─⟦this⟧ 

TextFile

with Directory;
with Diana;
package Ada_Object_Editor is

    Lock_Error, Undefined : exception;
    -- Lock_Error will be raised if the designated tree is open for
    -- update by the editor.
    -- Undefined exception will be raised if the designated object
    -- does not exist.

    function Current_Image     return Diana.Tree;
    function Current_Selection return Diana.Tree;
    -- Both functions return the appropriate tree with access mode none.
    -- Lock_Error and Undefined may be raised.

    procedure Display (Tree : Diana.Tree);
    -- Create a window displaying the given tree. If this tree is already
    -- displayed on an existing window this window will become the
    -- current focus. If a new window is created it will be designated
    -- read-only.

    type Window_State      is (Normal, Promoted, Demoted);
    type Selection_Request is (Must_Select, Dont_Select, Try_Select);
    type Display_Status    is (Successful, Locked_Out, Illegal_Access,
                               Cannot_Select, Nonexistent_Tree, Unknown_Error);

    procedure Display (Tree              :     Diana.Tree;
                       Status            : out Display_Status;
                       Selection_Command :     Selection_Request := Try_Select;
                       State_Of_Window   :     Window_State      := Normal);
    -- Displays the tree.  State_Of_Window indicates if the window should
    -- appear in its current state, or be promoted, or be demoted.  The
    -- Selection_Command parameter controls as follows:
    --    Must_Select:  Fails if selection is not possible
    --    Dont_Select:  Does no selection
    --    Try_Select :  Tries to select; on failure brings up window anyway

    function Image_Name                                     return String;
    function Selection_Name
                (From_Current_Image_Only : Boolean := True) return String;
    -- Functions to return a directory name for the image or the selection.
    -- Both functions return "###Unknown###" if unable to get a name from
    -- from the directory.  Selection_Name returns "###No_Selection###"
    -- if no selection is found on the current or any image (as designated
    -- by the parameter).  No exceptions come out of these functions.

    pragma Subsystem (Ada_Oe);
    pragma Module_Name (4, 2200);
end Ada_Object_Editor;