⟦148dd9cf8⟧

E3 Source Code



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;
DataMuseum.dk

Rational R1000/400

⟦148dd9cf8⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
