⟦a82af38df⟧

E3 Source Code



package Common is

    procedure Abandon (Window : String := "<IMAGE>");
    -- Release all locks, and delete the associated window.
    -- This causes the loss of any editing changes.

    procedure Clear_Underlining;
    -- Remove underlining marks left on the image by previous commands.

    procedure Commit;
    -- Make changes to the image permanent

    procedure Complete (Menu : Boolean := True);
    -- Make the current image complete.  Provides syntactic and semantic
    -- completion, as possible.
    -- Menu => bring up a menu window for ambiguous references

    procedure Create_Command;
    -- Go to the command window for the current image, creating one if
    -- necessary.

    procedure Definition (Name : String := "<CURSOR>";
                          In_Place : Boolean := False;
                          Visible : Boolean := True);
    -- Bring up the appropriate image to show the designated object.
    -- Do not make the image modifiable.  If a new window is required
    -- In_Place indicates that the current frame should be used.  Visible
    -- controls how names that resolve to both a visible part and a body
    -- should be resolved.  Visible causes the visible part to be pre-
    -- ferred; not Visible brings up the body if that is possible

    procedure Edit (Name : String := "<IMAGE>";
                    In_Place : Boolean := False;
                    Visible : Boolean := True);
    -- Bring up the appropriate image to show the designated object.
    -- Attempt to make the image modifiable.
    -- In_Place and Visible are as in Definition.

    procedure Enclosing (In_Place : Boolean := False;
                         Library : Boolean := False);
    -- Bring up the image for the object enclosing this one.
    -- In_Place is as in Definition.
    -- Library => the resulting image should be a Library; e.g. for Ada
    -- subunits, go to the enclosing directory rather than parent body.

    procedure Elide (Repeat : Positive := 1);
    -- Reduce the level of detail presented by the number of levels
    -- specified.  Attempts to expand beyond maximum level have no effect.
    -- It is not expected that Elide will reorder the presentation.

    procedure Expand (Repeat : Positive := 1);
    -- Increase the level of detail presented by the number of levels
    -- specified.  Attempts to expand beyond maximum level have no effect.
    -- It is not expected that Expand will reorder the presentation.

    procedure Explain;
    -- Provide additional information about the indicated object.
    -- The additional information may take the form of more detailed
    -- display or error message explanation.  If more detailed infor-
    -- mation is supplied, repeated applications cause the display to
    -- cycle through the available presentations.  For Ada, provides
    -- text of messages associated with underlinings.

    procedure Format;
    -- Format the current image appropriately for its image type.

    procedure Revert;
    -- Restore the image to the reflect the state of the underlying object.
    -- This causes the loss of any editing changes.

    procedure Release (Window : String := "<IMAGE>");
    -- Make changes to the designated image permanent (if applicable),
    -- release all locks, and delete the associated window

    procedure Semanticize;
    -- Perform semantic checking on the image.

    procedure Sort_Image (Format : Integer := 1);
    -- Sort the display according to the given format.  Format numbering is
    -- specific to the object type.  It is assume that if format 1 sorts by
    -- increasing values that format -1 will sort by decreasing values of
    -- the same key.  Clearly not relevant to all object types.

    procedure Demote;
    -- Bring the image to the next lower state.

    procedure Promote;
    -- Bring image to the next higher state.

    procedure Redo (Repeat : Positive := 1);
    -- Inverse of Undo

    procedure Undo (Repeat : Positive := 1);
    -- restore the contents of the image to the previous consistent state

    procedure Insert_File (Name : String := "<REGION>");
    -- Insert the contents of the indicated file into the current image

    procedure Write_File (Name : String := ">>FILE NAME<<");
    -- Write the contents to the named text file


    package Object is
        procedure Insert;
        procedure Copy;
        procedure Delete;
        procedure Move;
        procedure Previous (Repeat : Positive := 1);
        procedure Next (Repeat : Positive := 1);
        procedure Parent (Repeat : Positive := 1);
        procedure Child (Repeat : Positive := 1);
        procedure First_Child (Repeat : Positive := 1);
        procedure Last_Child (Repeat : Positive := 1);
    end Object;
    pragma Subsystem (Object_Editor);
    pragma Module_Name (4, 2215);
end Common;
DataMuseum.dk

Rational R1000/400

⟦a82af38df⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
