⟦c04bdb257⟧

TextFile

with Xlbt_Arithmetic;  
use Xlbt_Arithmetic;  
with Xlbt_Basic3;  
with Xlbt_Display3;  
with Xlbt_Gc3;  
with Xlbt_String;  
use Xlbt_String;

package Xlbt_Basic is
------------------------------------------------------------------------------
-- X Library Basic Types - Normal User Interface
--
-- Xlbt_Basic - Types are declared here because they are the basic types used
-- when working with the X Library.
------------------------------------------------------------------------------
-- Copyright 1989 - 1991 by Rational, Santa Clara, California.
-- Copyright 1985 - 1989 by the Massachusetts Institute of Technology
--
--                  All Rights Reserved.
--
-- Permission to use, copy, modify, and distribute this software and its
-- documentation for any purpose and without fee is hereby granted,
-- provided that the above copyright notice(s) appear in all copies and that
-- both that copyright notice(s) and this permission notice appear in
-- supporting documentation, and that the names of MIT or Rational not be
-- used in advertising or publicity pertaining to distribution of the software
-- without specific, written prior permission.
--
-- MIT and Rational disclaim all warranties with regard to this software,
-- including all implied warranties of merchantability and fitness, in no
-- event shall MIT or Rational be liable for any special, indirect or
-- consequential damages or any damages whatsoever resulting from loss of use,
-- data or profits, whether in an action of contract, negligence or other
-- tortious action, arising out of or in connection with the use or performance
-- of this software.
------------------------------------------------------------------------------

--\f

    package B3 renames Xlbt_Basic3;  
    package D3 renames Xlbt_Display3;  
    package G3 renames Xlbt_Gc3;

------------------------------------------------------------------------------
-- X_Atom - a blob used to refer to a string whose contents are known mutually
--          between us and the server; shorter and easier to use than the string.
--
--  None_X_Atom         - No atom in particular
--  Any_Property_Type   - Special Atom, passed to X_Get_Window_Property.
------------------------------------------------------------------------------

    subtype X_Atom       is B3.X_Atom;  
    subtype X_Atom_Array is B3.X_Atom_Array;  
    subtype X_Atom_List  is B3.X_Atom_List;

    None_X_Atom       : X_Atom      renames B3.None_X_Atom;  
    None_X_Atom_List  : X_Atom_List renames B3.None_X_Atom_List;  
    Any_Property_Type : X_Atom      renames B3.Any_Property_Type;

    function "=" (A, B : X_Atom)      return Boolean renames B3."=";  
    function "=" (A, B : X_Atom_List) return Boolean renames B3."=";

    procedure Free_X_Atom_List (List : in out X_Atom_List)  
        renames B3.Free_X_Atom_List;

------------------------------------------------------------------------------
-- X_Colormap
------------------------------------------------------------------------------

    subtype X_Colormap       is B3.X_Colormap;  
    subtype X_Colormap_Array is B3.X_Colormap_Array;  
    subtype X_Colormap_List  is B3.X_Colormap_List;

    None_X_Colormap           : X_Colormap renames B3.None_X_Colormap;  
    None_X_Colormap_List      : X_Colormap_List renames B3.None_X_Colormap_List;  
    Copy_From_Parent_Colormap : X_Colormap renames B3.Copy_From_Parent_Colormap;

    function "=" (A, B : X_Colormap)      return Boolean renames B3."=";  
    function "=" (A, B : X_Colormap_List) return Boolean renames B3."=";

    procedure Free_X_Colormap_List (List : in out X_Colormap_List)  
        renames B3.Free_X_Colormap_List;

------------------------------------------------------------------------------
-- X_Cursor
------------------------------------------------------------------------------

    subtype X_Cursor is B3.X_Cursor;

    None_X_Cursor : X_Cursor renames B3.None_X_Cursor;

    function "=" (A, B : X_Cursor) return Boolean renames B3."=";

------------------------------------------------------------------------------
-- X_Drawable
------------------------------------------------------------------------------

    subtype X_Drawable is B3.X_Drawable;

    None_X_Drawable : X_Drawable renames B3.None_X_Drawable;

    function "=" (A, B : X_Drawable) return Boolean renames B3."=";

------------------------------------------------------------------------------
-- X_Display
------------------------------------------------------------------------------

    subtype X_Display is D3.X_Display;

    None_X_Display : X_Display renames D3.None_X_Display;

    function "=" (A, B : X_Display) return Boolean renames D3."=";

------------------------------------------------------------------------------
-- X_Display_Number - simple index to the N'th display of a library
------------------------------------------------------------------------------

    subtype X_Display_Number is B3.X_Display_Number;

    None_X_Display_Number : X_Display_Number renames B3.None_X_Display_Number;

    function "="  (A, B : X_Display_Number) return Boolean renames B3."=";  
    function ">"  (A, B : X_Display_Number) return Boolean renames B3.">";  
    function ">=" (A, B : X_Display_Number) return Boolean renames B3.">=";  
    function "<"  (A, B : X_Display_Number) return Boolean renames B3."<";  
    function "<=" (A, B : X_Display_Number) return Boolean renames B3."<=";

    function "+" (A, B : X_Display_Number) return X_Display_Number  
        renames B3."+";  
    function "-" (A, B : X_Display_Number) return X_Display_Number  
        renames B3."-";  
    function "-" (A : X_Display_Number) return X_Display_Number renames B3."-";

------------------------------------------------------------------------------
-- X_Error_String - Error Reporting Strings
------------------------------------------------------------------------------

    subtype X_Error_String is D3.X_Error_String;
    ----We return an indication of errors via strings of this type.

    procedure Err (Destination : out X_Error_String;  
                   Source      :     X_String) renames D3.Err;
    ----We use this routine to assign error strings.

    function Err (Source : X_Error_String) return X_String renames D3.Err;
    ----We use this function to read out error strings.

------------------------------------------------------------------------------
-- X_Event_Mask - Input Event Masks.  Used as event-mask window attribute and
--                as arguments to Grab requests.  Not to be confused with event
--                names.
--
--      Owner_Grab_Button_Mask
--      Colormap_Change_Mask
--      Property_Change_Mask
--      Focus_Change_Mask
--      Substructure_Redirect_Mask
--      Substructure_Notify_Mask
--      Resize_Redirect_Mask
--      Structure_Notify_Mask
--      Visibility_Change_Mask
--      Exposure_Mask
--      Keymap_State_Mask
--      Button_Motion_Mask
--      Button_5_Motion_Mask
--      Button_4_Motion_Mask
--      Button_3_Motion_Mask
--      Button_2_Motion_Mask
--      Button_1_Motion_Mask
--      Pointer_Motion_Hint_Mask
--      Pointer_Motion_Mask
--      Leave_Window_Mask
--      Enter_Window_Mask
--      Button_Release_Mask
--      Button_Press_Mask
--      Key_Release_Mask
--      Key_Press_Mask
------------------------------------------------------------------------------

    subtype X_Event_Mask_Index is B3.X_Event_Mask_Index;

    subtype Xemi is X_Event_Mask_Index;

    Owner_Grab_Button_Mask     : constant Xemi := B3.Owner_Grab_Button_Mask;  
    Colormap_Change_Mask       : constant Xemi := B3.Colormap_Change_Mask;  
    Property_Change_Mask       : constant Xemi := B3.Property_Change_Mask;  
    Focus_Change_Mask          : constant Xemi := B3.Focus_Change_Mask;  
    Substructure_Redirect_Mask : constant Xemi := B3.Substructure_Redirect_Mask;  
    Substructure_Notify_Mask   : constant Xemi := B3.Substructure_Notify_Mask;  
    Resize_Redirect_Mask       : constant Xemi := B3.Resize_Redirect_Mask;  
    Structure_Notify_Mask      : constant Xemi := B3.Structure_Notify_Mask;  
    Visibility_Change_Mask     : constant Xemi := B3.Visibility_Change_Mask;  
    Exposure_Mask              : constant Xemi := B3.Exposure_Mask;  
    Keymap_State_Mask          : constant Xemi := B3.Keymap_State_Mask;  
    Button_Motion_Mask         : constant Xemi := B3.Button_Motion_Mask;  
    Button_5_Motion_Mask       : constant Xemi := B3.Button_5_Motion_Mask;  
    Button_4_Motion_Mask       : constant Xemi := B3.Button_4_Motion_Mask;  
    Button_3_Motion_Mask       : constant Xemi := B3.Button_3_Motion_Mask;  
    Button_2_Motion_Mask       : constant Xemi := B3.Button_2_Motion_Mask;  
    Button_1_Motion_Mask       : constant Xemi := B3.Button_1_Motion_Mask;  
    Pointer_Motion_Hint_Mask   : constant Xemi := B3.Pointer_Motion_Hint_Mask;  
    Pointer_Motion_Mask        : constant Xemi := B3.Pointer_Motion_Mask;  
    Leave_Window_Mask          : constant Xemi := B3.Leave_Window_Mask;  
    Enter_Window_Mask          : constant Xemi := B3.Enter_Window_Mask;  
    Button_Release_Mask        : constant Xemi := B3.Button_Release_Mask;  
    Button_Press_Mask          : constant Xemi := B3.Button_Press_Mask;  
    Key_Release_Mask           : constant Xemi := B3.Key_Release_Mask;  
    Key_Press_Mask             : constant Xemi := B3.Key_Press_Mask;

    subtype X_Event_Mask is B3.X_Event_Mask;

    None_X_Event_Mask : X_Event_Mask renames B3.None_X_Event_Mask;

    All_Pointers   : X_Event_Mask renames B3.All_Pointers;  
    All_Buttons    : X_Event_Mask renames B3.All_Buttons;  
    All_Event_Mask : X_Event_Mask renames B3.All_Event_Mask;

    function "="   (A, B : Xemi)         return Boolean      renames B3."=";  
    function "="   (A, B : X_Event_Mask) return Boolean      renames B3."=";  
    function "and" (A, B : X_Event_Mask) return X_Event_Mask renames B3."and";  
    function "or"  (A, B : X_Event_Mask) return X_Event_Mask renames B3."or";  
    function "xor" (A, B : X_Event_Mask) return X_Event_Mask renames B3."xor";  
    function "not" (A : X_Event_Mask)    return X_Event_Mask renames B3."not";


------------------------------------------------------------------------------
-- Events queues - Events are queued within a display until they are requested
--
-- A queued Event always has an Event.Kind to uniquely identify what kind of
-- event it is.  The Display entry is always a pointer to the display the event
-- was read from.  The Window entry is nearly always a window of one type or
-- another, carefully selected to be useful to toolkit dispatchers.
------------------------------------------------------------------------------

    subtype X_Event is D3.X_Event;
--
    None_X_Event : X_Event renames D3.None_X_Event;

------------------------------------------------------------------------------
-- X_Font
------------------------------------------------------------------------------

    subtype X_Font is B3.X_Font;

    None_X_Font : X_Font renames B3.None_X_Font;

    Font_Change : constant := B3.Font_Change;

    function "=" (A, B : X_Font) return Boolean renames B3."=";

------------------------------------------------------------------------------
-- X_G_Context
------------------------------------------------------------------------------

    subtype X_G_Context is B3.X_G_Context;

    None_X_G_Context : X_G_Context renames B3.None_X_G_Context;

    function "=" (A, B : X_G_Context) return Boolean renames B3."=";

------------------------------------------------------------------------------
-- X_Gc - Graphics context.  All Xlib routines deal in this rather than
-- in raw protocol Graphic Context ID's.  This is so that the library can keep
-- a "shadow" set of values, and thus avoid passing values over the
-- wire which are not in fact changing.
------------------------------------------------------------------------------

    subtype X_Gc is G3.X_Gc;

    None_X_Gc : X_Gc renames G3.None_X_Gc;

    function "=" (A, B : X_Gc) return Boolean renames G3."=";

------------------------------------------------------------------------------
-- X's Resource Type
------------------------------------------------------------------------------

    subtype X_Id is B3.X_Id;

    None_X_Id : X_Id renames B3.None_X_Id;
    ----Special value indicating no-id-specified

    All_Temporary : X_Id renames B3.All_Temporary;
    ----Special Resource ID passed to X_Kill_Client

    Release_By_Freeing_Colormap : X_Id renames B3.Release_By_Freeing_Colormap;
    ----Special Resource ID used in X_Standard_Colormap.Kill_Id.

    function "=" (A, B : X_Id) return Boolean renames B3."=";

------------------------------------------------------------------------------
-- X_Pixel - encodes what a Pixel is
------------------------------------------------------------------------------

    subtype X_Pixel       is B3.X_Pixel;  
    subtype X_Pixel_Array is B3.X_Pixel_Array;  
    subtype X_Pixel_List  is B3.X_Pixel_List;

    None_X_Pixel      : X_Pixel      renames B3.None_X_Pixel;  
    None_X_Pixel_List : X_Pixel_List renames B3.None_X_Pixel_List;

    function "=" (A, B : X_Pixel)      return Boolean renames B3."=";  
    function "=" (A, B : X_Pixel_List) return Boolean renames B3."=";

    function ">"  (A, B : X_Pixel) return Boolean renames B3.">";  
    function ">=" (A, B : X_Pixel) return Boolean renames B3.">=";  
    function "<"  (A, B : X_Pixel) return Boolean renames B3."<";  
    function "<=" (A, B : X_Pixel) return Boolean renames B3."<=";

    function "+"   (A, B : X_Pixel) return X_Pixel renames B3."+";  
    function "-"   (A : X_Pixel)    return X_Pixel renames B3."-";  
    function "-"   (A, B : X_Pixel) return X_Pixel renames B3."-";  
    function "*"   (A, B : X_Pixel) return X_Pixel renames B3."*";  
    function "/"   (A, B : X_Pixel) return X_Pixel renames B3."/";  
    function "rem" (A, B : X_Pixel) return X_Pixel renames B3."rem";  
    function "not" (A : X_Pixel)    return X_Pixel renames B3."not";  
    function "and" (A, B : X_Pixel) return X_Pixel renames B3."and";  
    function "or"  (A, B : X_Pixel) return X_Pixel renames B3."or";  
    function "xor" (A, B : X_Pixel) return X_Pixel renames B3."xor";  
    function Shift (A : X_Pixel;  
                    B : Integer)    return X_Pixel renames B3.Shift;

    procedure Free_X_Pixel_List (List : in out X_Pixel_List)  
        renames B3.Free_X_Pixel_List;

------------------------------------------------------------------------------
-- X_Pixmap
------------------------------------------------------------------------------

    subtype X_Pixmap is B3.X_Pixmap;

    None_X_Pixmap : X_Pixmap renames B3.None_X_Pixmap;

    Copy_From_Parent_Pixmap : X_Pixmap renames B3.Copy_From_Parent_Pixmap;
    ----Border pixmap in X_Create_Window and X_Change_Window_Attributes

    Parent_Relative : X_Pixmap renames B3.Parent_Relative;
    ----Background pixmap in X_Create_Window and X_Change_Window_Attributes

    function "=" (A, B : X_Pixmap) return Boolean renames B3."=";

------------------------------------------------------------------------------
-- X_Plane_Mask - used to indicate the display planes affected by an operation
--
--  No_Planes   - No planes at all; all 0's
--  All_Planes  - All planes; all 1's
------------------------------------------------------------------------------

    subtype X_Plane_Mask       is B3.X_Plane_Mask;  
    subtype X_Plane_Mask_Array is B3.X_Plane_Mask_Array;  
    subtype X_Plane_Mask_List  is B3.X_Plane_Mask_List;

    None_X_Plane_Mask      : X_Plane_Mask renames B3.None_X_Plane_Mask;  
    None_X_Plane_Mask_List : X_Plane_Mask_List  
        renames B3.None_X_Plane_Mask_List;  
    No_Planes              : X_Plane_Mask renames B3.No_Planes;  
    All_Planes             : X_Plane_Mask renames B3.All_Planes;

    function "="  (A, B : X_Plane_Mask) return Boolean renames B3."=";  
    function ">"  (A, B : X_Plane_Mask) return Boolean renames B3.">";  
    function ">=" (A, B : X_Plane_Mask) return Boolean renames B3.">=";  
    function "<"  (A, B : X_Plane_Mask) return Boolean renames B3."<";  
    function "<=" (A, B : X_Plane_Mask) return Boolean renames B3."<=";

    function "+"   (A, B : X_Plane_Mask) return X_Plane_Mask renames B3."+";  
    function "-"   (A : X_Plane_Mask)    return X_Plane_Mask renames B3."-";  
    function "-"   (A, B : X_Plane_Mask) return X_Plane_Mask renames B3."-";  
    function "*"   (A, B : X_Plane_Mask) return X_Plane_Mask renames B3."*";  
    function "/"   (A, B : X_Plane_Mask) return X_Plane_Mask renames B3."/";  
    function "rem" (A, B : X_Plane_Mask) return X_Plane_Mask renames B3."rem";  
    function "not" (A : X_Plane_Mask)    return X_Plane_Mask renames B3."not";  
    function "and" (A, B : X_Plane_Mask) return X_Plane_Mask renames B3."and";  
    function "or"  (A, B : X_Plane_Mask) return X_Plane_Mask renames B3."or";  
    function "xor" (A, B : X_Plane_Mask) return X_Plane_Mask renames B3."xor";  
    function Shift (A : X_Plane_Mask;  
                    B : Integer)         return X_Plane_Mask renames B3.Shift;

    procedure Free_X_Plane_Mask_List (List : in out X_Plane_Mask_List)  
        renames B3.Free_X_Plane_Mask_List;

------------------------------------------------------------------------------
-- X_Screen
------------------------------------------------------------------------------

    subtype X_Screen is D3.X_Screen;

    None_X_Screen : X_Screen renames D3.None_X_Screen;

    function "=" (A, B : X_Screen) return Boolean renames D3."=";

------------------------------------------------------------------------------
-- X_Screen_Number - simple index to the N'th screen of the display
------------------------------------------------------------------------------

    subtype X_Screen_Number is B3.X_Screen_Number;

    None_X_Screen_Number : X_Screen_Number renames B3.None_X_Screen_Number;

    function "="  (A, B : X_Screen_Number) return Boolean renames B3."=";  
    function ">"  (A, B : X_Screen_Number) return Boolean renames B3.">";  
    function ">=" (A, B : X_Screen_Number) return Boolean renames B3.">=";  
    function "<"  (A, B : X_Screen_Number) return Boolean renames B3."<";  
    function "<=" (A, B : X_Screen_Number) return Boolean renames B3."<=";

    function "+" (A, B : X_Screen_Number) return X_Screen_Number renames B3."+";  
    function "-" (A, B : X_Screen_Number) return X_Screen_Number renames B3."-";  
    function "-" (A : X_Screen_Number)    return X_Screen_Number renames B3."-";

------------------------------------------------------------------------------
-- Status for Procedure returns
--
--      Failed      - Operation did not succeed/work/complete
--      Successful  - Operation completed/worked
------------------------------------------------------------------------------

    subtype X_Status is B3.X_Status;

    Failed     : constant X_Status := B3.Failed;  
    Successful : constant X_Status := B3.Successful;

    function "=" (A, B : X_Status) return Boolean renames B3."=";

------------------------------------------------------------------------------
-- X_Time - it is important to be able to do arithmetic with these
------------------------------------------------------------------------------

    subtype X_Time is B3.X_Time;

    Current_Time : X_Time renames B3.Current_Time;  
    None_X_Time  : X_Time renames B3.None_X_Time;

    function "="  (A, B : X_Time) return Boolean renames B3."=";  
    function "<"  (A, B : X_Time) return Boolean renames B3."<";  
    function "<=" (A, B : X_Time) return Boolean renames B3."<=";  
    function ">"  (A, B : X_Time) return Boolean renames B3.">";  
    function ">=" (A, B : X_Time) return Boolean renames B3.">=";

    function "+"   (A, B : X_Time) return X_Time renames B3."+";  
    function "-"   (A : X_Time)    return X_Time renames B3."-";  
    function "-"   (A, B : X_Time) return X_Time renames B3."-";  
    function "*"   (A, B : X_Time) return X_Time renames B3."*";  
    function "/"   (A, B : X_Time) return X_Time renames B3."/";  
    function "rem" (A, B : X_Time) return X_Time renames B3."rem";

------------------------------------------------------------------------------
-- X_Visual_Id
------------------------------------------------------------------------------

    subtype X_Visual_Id is B3.X_Visual_Id;

    None_X_Visual_Id : X_Visual_Id renames B3.None_X_Visual_Id;

    Copy_From_Parent_Visual_Id : X_Visual_Id  
        renames B3.Copy_From_Parent_Visual_Id;

    function "=" (A, B : X_Visual_Id) return Boolean renames B3."=";

------------------------------------------------------------------------------
-- X_Window
--
--  Input_Focus     - Destination window in X_Send_Event
--  Pointer_Window  - Destination window in X_Send_Event
--  Pointer_Root    - Focus window in X_Set_Input_Focus
------------------------------------------------------------------------------

    subtype X_Window       is B3.X_Window;  
    subtype X_Window_Array is B3.X_Window_Array;  
    subtype X_Window_List  is B3.X_Window_List;

    None_X_Window      : X_Window      renames B3.None_X_Window;  
    None_X_Window_List : X_Window_List renames B3.None_X_Window_List;  
    Input_Focus        : X_Window      renames B3.Input_Focus;  
    Pointer_Root       : X_Window      renames B3.Pointer_Root;  
    Pointer_Window     : X_Window      renames B3.Pointer_Window;

    function "=" (A, B : X_Window)      return Boolean renames B3."=";  
    function "=" (A, B : X_Window_List) return Boolean renames B3."=";

    procedure Free_X_Window_List (List : in out X_Window_List)  
        renames B3.Free_X_Window_List;

end Xlbt_Basic;
DataMuseum.dk

Rational R1000/400 Tapes

⟦c04bdb257⟧ TextFile

Derivation

TextFile
