-------------------------------------------------------------------------------
--                                                                           --
--  Ada Interface to the X Window System and Motif(tm)/Lesstif               --
--  Copyright (c) 1996-2002 Hans-Frieder Vogt                                --
--                                                                           --
--  Adabindx is free software; you can redistribute it and/or modify it      --
--  under the terms of the GNU General Public License as published by the    --
--  Free Software Foundation; either version 2 of the License, or (at your   --
--  option) any later version.                                               --
--                                                                           --
--  This program is distributed in the hope that it will be useful, but      --
--  WITHOUT ANY WARRANTY; without even the implied warranty of               --
--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     --
--  See the GNU General Public License for more details.                     --
--                                                                           --
--  You should have received a copy of the GNU General Public License        --
--  along with this program; if not, write to the                            --
--  Free Software Foundation, Inc.,                                          --
--  59 Temple Place - Suite 330,                                             --
--  Boston, MA 02111-1307, USA.                                              --
--                                                                           --
--  As a special exception, if other files instantiate generics from this    --
--  unit, or you link this unit with other files to produce an executable,   --
--  this unit does not by itself cause the resulting executable to be        --
--  covered by the GNU General Public License. This exception does not       --
--  however invalidate any other reasons why the executable file might be    --
--  covered by the GNU General Public License.                               --
--                                                                           --
--  X Window System is copyrighted by the X Consortium                       --
--  Motif(tm)       is copyrighted by the Open Software Foundation, Inc.     --
--                  and by The Open Group                                    --
--                                                                           --
--                                                                           --
-------------------------------------------------------------------------------

-------------------------------------------------------------------------------
--
-- HISTORY:
--          June 20, 1998 begin of history
--          November 8, 1998 HFVogt: added X11R6.3 conditional defines
--          February 29, 2000 HFVogt: include additions and changes from
--                                    Vadim Godunko (vadik@zto.rost.ru)
--          June 14, 2000: added Append_Set/Get for Atoms
--                         (thanks to Vadim Godunko)
--          21 Jun 2001 Vadim Godunko: add Xt_Initialize_Widget_Class,
--                                     Xt_Display_Initialize
--                                     add default arguments for
--                                     Xt_App_Add_Time_Out and
--                                     Xt_App_Add_Work_Proc
--                                     correct return value of Xt_Work_Proc
--                                     (was: Boolean, now: Xt_Boolean)
--                                     add Xt_Set_Language_Proc as a procedure
--                                     change conversion routines To_Xt_Pointer
--                                     add type Xt_Order_Proc with
--                                     Append_Set/Append_Get routines
--          26 Aug 2001 H.-F. Vogt: implementation of
--                                  Xt_App_Set_Fallback_Resources
--          13 Jan 2002 H.-F. Vogt: add type Cardinal_Array
--          03 Feb 2002 H.-F. Vogt: add exception Invalid_Widget_Error
--
-------------------------------------------------------------------------------

with Interfaces.C,
     System,
     Generic_List_Types,
     Resource_Strings,
     String_List,
     String_List_Conversion,
     X_Command_Line,
     X_Strings,
     X_Lib,
     X_Lib.Resource;

package X_Toolkit is

   use X_Lib.Resource;

-- ----------------------------------------------------------------------------
--
--  T Y P E S
--

   Null_Address : System.Address renames System.Null_Address;

   
   -- Widgets etc. 

   --type Widget       is private;
   --Null_Widget : constant Widget;
   --
   type Widget       is new System.Address;       
   Null_Widget       : constant Widget := Widget (Null_Address);

   Invalid_Widget_Error : exception;

   type Widget_Class is private;
   Null_Widget_Class : constant Widget_Class;


   subtype Xt_Pointer is X_Lib.X_Pointer;
   Null_Xt_Pointer : Xt_Pointer renames X_Lib.Null_X_Pointer;

   -- Common types for widget resources:

   subtype    Cardinal  is Interfaces.C.unsigned;
   type Cardinal_Array is array (Natural range <>) of Cardinal;

   subtype Milliseconds is Interfaces.C.unsigned_long;



   -- ***********************
   --
   --  we need here this special Boolean Type Xt_Boolean (called Boolean
   --  in Intrinsics.h) to convert Xt-Boolean -> Ada-Boolean
   --
   --  for CRAY: for Xt_Boolean'Size use Interfaces.C.long'Size;
   --
   -- X_Toolkit's own boolean type
   type Xt_Boolean is (False, True);
   for Xt_Boolean use (False => 0, True => 1);
   for Xt_Boolean'Size use Interfaces.C.signed_char'Size;

   function To_Xt_Boolean (Val : in Boolean) return Xt_Boolean;
   function To_Boolean (Val : in Xt_Boolean) return Boolean;


   -- types for resource strings
   --
   subtype Xt_Resource_String is Resource_Strings.Resource_String;
   Null_Xt_Resource_String : Xt_Resource_String
      renames Resource_Strings.Null_Resource_String;

   subtype Xt_N_Resource_String is Xt_Resource_String;  -- Name
   subtype Xt_C_Resource_String is Xt_Resource_String;  -- Class
   subtype Xt_R_Resource_String is Xt_Resource_String;  -- Resource

   function To_Resource_String (Item : in String) return Xt_Resource_String
      renames Resource_Strings.To_Resource_String;

   function To_Resource_String (Item : in X_Strings.X_String) return Xt_Resource_String
      renames Resource_Strings.To_Resource_String;

   function To_String          (Item : in Xt_Resource_String) return String
      renames Resource_Strings.To_String;



   -- Application Context
   type Xt_App_Context is private;
   Null_Xt_App_Context : constant Xt_App_Context;


   type Xt_Input_Mask is record
      Xevent          : Boolean;
      Timer           : Boolean;
      Alternate_Input : Boolean;
      Signal          : Boolean;
   end record;
   for Xt_Input_Mask use record
-- UseLittleEndian
      Xevent          at 0 range 0 .. 0;
      Timer           at 0 range 1 .. 1;
      Alternate_Input at 0 range 2 .. 2;
      Signal          at 0 range 3 .. 3;
-- NotLittleEndian
--!       Xevent          at 0 range 3 .. 3;
--!       Timer           at 0 range 2 .. 2;
--!       Alternate_Input at 0 range 1 .. 1;
--!       Signal          at 0 range 0 .. 0;
-- EndLittleEndian
   end record;
   pragma Pack (Xt_Input_Mask);
   for Xt_Input_Mask'Size use 4;


   --
   -- predefined constants for type Xt_Input_Mask
   --
   Xt_IM_Xevent          : constant Xt_Input_Mask :=
                     Xt_Input_Mask'(Xevent          => True,
                                    Timer           => False,
                                    Alternate_Input => False,
                                    Signal          => False);
   Xt_IM_Timer           : constant Xt_Input_Mask :=
                     Xt_Input_Mask'(Xevent          => False,
                                    Timer           => True,
                                    Alternate_Input => False,
                                    Signal          => False);
   Xt_IM_Alternate_Input : constant Xt_Input_Mask :=
                     Xt_Input_Mask'(Xevent          => False,
                                    Timer           => False,
                                    Alternate_Input => True,
                                    Signal          => False);
   Xt_IM_Signal          : constant Xt_Input_Mask :=
                     Xt_Input_Mask'(Xevent          => False,
                                    Timer           => False,
                                    Alternate_Input => False,
                                    Signal          => True);
   Xt_IM_All             : constant Xt_Input_Mask :=
                     Xt_Input_Mask'(Xevent          => True,
                                    Timer           => True,
                                    Alternate_Input => True,
                                    Signal          => True);

   Xt_IM_None            : constant Xt_Input_Mask :=
                     Xt_Input_Mask'(Xevent          => False,
                                    Timer           => False,
                                    Alternate_Input => False,
                                    Signal          => False);


   function "="   (Left, Right : in Xt_Input_Mask) return Boolean;
   function "or"  (Left, Right : in Xt_Input_Mask) return Xt_Input_Mask;
   function "and" (Left, Right : in Xt_Input_Mask) return Xt_Input_Mask;


-- ----------------------------------------------------------------------------
--
-- ACTIONS
--
--

   --
   -- Action Hook
   --
   type Xt_Action_Hook_Id is private;
   Null_Xt_Action_Hook_Id : constant Xt_Action_Hook_Id;

   type Xt_Action_Hook_Proc is access
      procedure (W           : in Widget;
                 Client_Data : in Xt_Pointer;
                 Action_Name : in X_Strings.X_String;
                 Event       : in X_Lib.X_Event_Pointer;
                 Params      : in String_List_Conversion.Chars_Ptr_List_Type;
                 Num_Params  : access String_List_Conversion.Index_Type);
   pragma Convention (C, Xt_Action_Hook_Proc);
   Null_Action_Null_Proc : constant Xt_Action_Hook_Proc := null;


   function Xt_App_Add_Action_Hook
     (App_Context : in Xt_App_Context;
      Proc        : in Xt_Action_Hook_Proc;
      Client_Data : in Xt_Pointer)
      return Xt_Action_Hook_Id;


   procedure Xt_Remove_Action_Hook (Id : in Xt_Action_Hook_Id);


   --
   -- Action Proc
   --
   type Xt_Action_Proc is access
      procedure (W          : in Widget;
                 Event      : in X_Lib.X_Event_Pointer;
                 Params     : in String_List_Conversion.Chars_Ptr_List_Type;
                 Num_Params : access String_List_Conversion.Index_Type);
   pragma Convention (C, Xt_Action_Proc);
   Null_Action_Proc : constant Xt_Action_Proc := null;


   type Xt_Actions_Rec is record
      Name : X_Strings.X_String;
      Proc : Xt_Action_Proc;
   end record;


   type Xt_Action_List is array (Natural range <>) of Xt_Actions_Rec;


   procedure Xt_App_Add_Actions
     (App_Context : in Xt_App_Context;
      Action_List : in Xt_Action_List);


   procedure Xt_Call_Action_Proc
     (W           : in Widget;
      Action_Name : in String;
      Event       : in X_Lib.X_Event_Pointer;
      Params      : in String_List.Element_Access_List := String_List.Null_Element_Access_List);



-- ----------------------------------------------------------------------------
--
-- CALLBACKS
--
--

   --
   -- Callback Proc
   --
   type Xt_Callback_Proc is access procedure (W         : in Widget;
                                              Closure   : in Xt_Pointer;
                                              Call_Data : in Xt_Pointer);
   pragma Convention (C, Xt_Callback_Proc);
   Null_Callback_Proc : constant Xt_Callback_Proc := null;


   --
   -- Callback Record
   --
   type Callback_Rec is record
      Callback  : Xt_Callback_Proc := Null_Callback_Proc;
      Closure   : Xt_Pointer       := Null_Xt_Pointer;
   end record;

   Null_Callback_Rec : constant Callback_Rec :=
      (Callback  => Null_Callback_Proc,
       Closure   => Null_Xt_Pointer);


   --
   -- Callback List
   --
   package Callback_Lists is
      new Generic_List_Types (Callback_Rec);
   type Callback_List is
      new Callback_Lists.Unbounded_List;

   Null_Callback_List : constant Callback_List := Callback_List (Callback_Lists.Null_Unbounded_List);


   function Length (List : in Callback_List) return Natural;

   procedure Append (List : in out Callback_List;
                     Rec  : in     Callback_Rec);

   procedure Append (List      : in out Callback_List;
                     Callback  : in     Xt_Callback_Proc;
		     Closure   : in     Xt_Pointer);


   type Xt_Callback_Status is (Xt_Callback_No_List,
                               Xt_Callback_Has_None, 
                               Xt_Callback_Has_Some);

   -- -------------------------------------------------------------------------
   --
   -- PREDEFINED CALLBACK PROCEDURES
   --

   procedure Xt_Callback_None (Popup_Shell : in Widget;
                               Client_Data : in Xt_Pointer;
                               Call_Data   : in Xt_Pointer);

   procedure Xt_Callback_Nonexclusive (Popup_Shell : in Widget;
                                       Client_Data : in Xt_Pointer;
                                       Call_Data   : in Xt_Pointer);

   procedure Xt_Callback_Exclusive (Popup_Shell : in Widget;
                                    Client_Data : in Xt_Pointer;
                                    Call_Data   : in Xt_Pointer);

   procedure Xt_Callback_Popdown (Popup_Shell : in Widget;
                                  Client_Data : in Xt_Pointer;
                                  Call_Data   : in Xt_Pointer);



   -- -------------------------------------------------------------------------
   --
   --  XtAddCallback(s)
   --

   procedure Xt_Add_Callback (To          : in Widget;
                              Kind        : in Xt_N_Resource_String;
                              Callback    : in Xt_Callback_Proc;
                              Client_Data : in Xt_Pointer := Null_Xt_Pointer);

   procedure Xt_Add_Callback (To          : in Widget;
                              Kind        : in Xt_N_Resource_String;
                              Callback    : in Xt_Callback_Proc;
                              Client_Data : in Widget);

   procedure Xt_Add_Callback (To          : in Widget;
                              Kind        : in Xt_N_Resource_String;
                              Callback    : in Xt_Callback_Proc;
                              Client_Data : in Integer);


   procedure Xt_Add_Callbacks (To           : in Widget;
                               Kind         : in Xt_N_Resource_String;
                               Callbacks    : in Callback_List);


   -- -------------------------------------------------------------------------
   --
   --  XtCallCallbacks
   --
   procedure Xt_Call_Callbacks (From      : in Widget;
                                Kind      : in Xt_N_Resource_String;
                                Call_Data : in Xt_Pointer := Null_Xt_Pointer);

   -- -------------------------------------------------------------------------
   --
   --  XtRemoveCallback(s)
   --
   procedure Xt_Remove_Callback (From        : in Widget;
                                 Kind        : in Xt_N_Resource_String;
                                 Callback    : in Xt_Callback_Proc;
                                 Client_Data : in Xt_Pointer := Null_Xt_Pointer);

   procedure Xt_Remove_Callback (From        : in Widget;
                                 Kind        : in Xt_N_Resource_String;
                                 Callback    : in Xt_Callback_Proc;
                                 Client_Data : in Widget);

   procedure Xt_Remove_Callback (From        : in Widget;
                                 Kind        : in Xt_N_Resource_String;
                                 Callback    : in Xt_Callback_Proc;
                                 Client_Data : in Integer);

   procedure Xt_Remove_Callbacks (From      : in Widget;
                                  Kind      : in Xt_N_Resource_String;
                                  Callbacks : in Callback_List);

   procedure Xt_Remove_All_Callbacks (From  : in Widget;
                                      Kind  : in Xt_N_Resource_String);



-- ----------------------------------------------------------------------------
--
--                    A R G U M E N T   H A N D L I N G
--


   type Arg_Rec is record
      Name  : Xt_Resource_String;
      Value : Interfaces.C.long;
   end record;

   Null_Arg_Rec : constant Arg_Rec := (Null_Xt_Resource_String, 0);

   package Arg_Lists is
      new Generic_List_Types (Arg_Rec);
   type Arg_List is
      new Arg_Lists.Unbounded_List;

   Null_Arg_List : constant Arg_List := Arg_List (Arg_Lists.Null_Unbounded_List);


   function Length (List : in  Arg_List) return Natural;


   procedure Append (List  : in out Arg_List;
                     Which : in     Arg_List);

   procedure Append (List  : in out Arg_List;
                     Which : in     Arg_Rec);


   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     Interfaces.C.long);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    Interfaces.C.long);
   pragma Convention (C, Append_Get);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     Integer);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    Integer);
   pragma Convention (C, Append_Get);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     Float);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    Float);
   pragma Convention (C, Append_Get);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     Boolean);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    Boolean);
   pragma Convention (C, Append_Get);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     System.Address);  

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    System.Address);  
   pragma Convention (C, Append_Get);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     Xt_Pointer);  

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    Xt_Pointer);  
   pragma Convention (C, Append_Get);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     Widget);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    Widget);
   pragma Convention (C, Append_Get);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     Xt_Callback_Proc);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     Callback_List);

   -- procedure Append_Get (List  : in out Arg_List;
   --                       Name  : in     Xt_N_Resource_String;
   --                       Value : out    Callback_List);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     Character);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    Character);
   pragma Convention (C, Append_Get);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     X_Lib.XID);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    X_Lib.XID);
   pragma Convention (C, Append_Get);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    X_Lib.Drawable_ID);
   pragma Convention (C, Append_Get);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    X_Lib.Font_ID);
   pragma Convention (C, Append_Get);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    X_Lib.Cursor_ID);
   pragma Convention (C, Append_Get);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    X_Lib.Colormap_ID);
   pragma Convention (C, Append_Get);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    X_Lib.GContext_ID);
   pragma Convention (C, Append_Get);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    X_Lib.Key_Sym_ID);
   pragma Convention (C, Append_Get);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    X_Lib.Visual_ID);
   pragma Convention (C, Append_Get);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     X_Lib.Pixel);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    X_Lib.Pixel);
   pragma Convention (C, Append_Get);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     X_Lib.Dimension);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    X_Lib.Dimension);
   pragma Convention (C, Append_Get);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     X_Lib.Position);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    X_Lib.Position);
   pragma Convention (C, Append_Get);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     X_Lib.Screen_Pointer);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    X_Lib.Screen_Pointer);
   pragma Convention (C, Append_Get);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     Interfaces.C.unsigned_char);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    Interfaces.C.unsigned_char);
   pragma Convention (C, Append_Get);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     X_lib.Atom);

   procedure Append_Get (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : out    X_Lib.Atom);
   pragma Convention (C, Append_Get);


-- ----------------------------------------------------------------------------
--
--       T O O L K I T   I N I T I A L I Z A T I O N
--                                               

   -- -------------------------------------------------------------------------
   --
   -- XtToolkitInitialize
   --
   procedure Xt_Toolkit_Initialize;



   --
   -- Functions using Application Context
   --
   procedure Xt_App_Initialize
     (W                  :    out Widget;
      App_Context        :    out Xt_App_Context;
      Application_Class  : in     String;
      Options            : in     Option_Description_List         := Null_Option_Description_List;
      Fallback_Resources : in     String_List.Element_Access_List := String_List.Null_Element_Access_List;
      Args               : in     Arg_List                        := Null_Arg_List);

   procedure Xt_App_Initialize
     (W                  :    out Widget;
      App_Context        :    out Xt_App_Context;
      Application_Class  : in     Xt_C_Resource_String;
      Options            : in     Option_Description_List         := Null_Option_Description_List;
      Fallback_Resources : in     String_List.Element_Access_List := String_List.Null_Element_Access_List;
      Args               : in     Arg_List                        := Null_Arg_List);

   procedure Xt_App_Initialize
     (W                  :    out Widget;
      App_Context        :    out Xt_App_Context;
      Application_Class  : in     String;
      Options            : in     Option_Description_List         := Null_Option_Description_List;
      Arg_Vector         : in out X_Command_Line.Argument_Vector_Type;
      Fallback_Resources : in     String_List.Element_Access_List := String_List.Null_Element_Access_List;
      Args               : in     Arg_List                        := Null_Arg_List);

   procedure Xt_App_Initialize
     (W                  :    out Widget;
      App_Context        :    out Xt_App_Context;
      Application_Class  : in     Xt_C_Resource_String;
      Options            : in     Option_Description_List         := Null_Option_Description_List;
      Arg_Vector         : in out X_Command_Line.Argument_Vector_Type;
      Fallback_Resources : in     String_List.Element_Access_List := String_List.Null_Element_Access_List;
      Args               : in     Arg_List                        := Null_Arg_List);


   procedure Xt_Display_Initialize
     (App_Context	: in Xt_App_Context;
      Display		: in X_Lib.Display_Pointer;
      Application_Name  : in String := "";
      Application_Class : in String;
      Options		: in Option_Description_List := Null_Option_Description_List);

   procedure Xt_Display_Initialize
     (App_Context	: in     Xt_App_Context;
      Display		: in     X_Lib.Display_Pointer;
      Application_Name  : in     String := "";
      Application_Class : in     String;
      Options		: in     Option_Description_List := Null_Option_Description_List;
      Arg_Vector	: in out X_Command_Line.Argument_Vector_Type);

   procedure Xt_Display_Initialize
     (App_Context	: in Xt_App_Context;
      Display		: in X_Lib.Display_Pointer;
      Application_Name  : in Xt_N_Resource_String := Null_Xt_Resource_String;
      Application_Class : in Xt_C_Resource_String;
      Options		: in Option_Description_List := Null_Option_Description_List);

   procedure Xt_Display_Initialize
     (App_Context	: in     Xt_App_Context;
      Display		: in     X_Lib.Display_Pointer;
      Application_Name  : in     Xt_N_Resource_String := Null_Xt_Resource_String;
      Application_Class : in     Xt_C_Resource_String;
      Options		: in     Option_Description_List := Null_Option_Description_List;
      Arg_Vector	: in out X_Command_Line.Argument_Vector_Type);


-- UseX11R6 X11R6.3
   --
   -- new more general initialization procedure (from X11R6 on)
   --
   procedure Xt_Open_Application
     (W                  :    out Widget;
      App_Context        :    out Xt_App_Context;
      Application_Class  : in     String;
      Options            : in     Option_Description_List := Null_Option_Description_List;
      Fallback_Resources : in     String_List.Element_Access_List := String_List.Null_Element_Access_List;
      W_Class            : in     Widget_Class;
      Args               : in     Arg_List := Null_Arg_List);

   procedure Xt_Open_Application
     (W                  :    out Widget;
      App_Context        :    out Xt_App_Context;
      Application_Class  : in     Xt_C_Resource_String;
      Options            : in     Option_Description_List := Null_Option_Description_List;
      Fallback_Resources : in     String_List.Element_Access_List := String_List.Null_Element_Access_List;
      W_Class            : in     Widget_Class;
      Args               : in     Arg_List := Null_Arg_List);

   procedure Xt_Open_Application
     (W                  :    out Widget;
      App_Context        :    out Xt_App_Context;
      Application_Class  : in     String;
      Options            : in     Option_Description_List := Null_Option_Description_List;
      Arg_Vector         : in out X_Command_Line.Argument_Vector_Type;
      Fallback_Resources : in     String_List.Element_Access_List := String_List.Null_Element_Access_List;
      W_Class            : in     Widget_Class;
      Args               : in     Arg_List := Null_Arg_List);

   procedure Xt_Open_Application
     (W                  :    out Widget;
      App_Context        :    out Xt_App_Context;
      Application_Class  : in     Xt_C_Resource_String;
      Options            : in     Option_Description_List := Null_Option_Description_List;
      Arg_Vector         : in out X_Command_Line.Argument_Vector_Type;
      Fallback_Resources : in     String_List.Element_Access_List := String_List.Null_Element_Access_List;
      W_Class            : in     Widget_Class;
      Args               : in     Arg_List := Null_Arg_List);

-- EndX11R6 X11R6.3

   procedure Xt_Open_Display
     (Display           :    out X_Lib.Display_Pointer;
      App_Context       : in     Xt_App_Context;
      Display_Name      : in     String := "";
      Application_Name  : in     String := "";
      Application_Class : in     String;
      Options           : in     Option_Description_List :=
                                 Null_Option_Description_List);

   procedure Xt_Open_Display
     (Display           :    out X_Lib.Display_Pointer;
      App_Context       : in     Xt_App_Context;
      Display_Name      : in     String := "";
      Application_Name  : in     Xt_N_Resource_String := Null_Xt_Resource_String;
      Application_Class : in     Xt_C_Resource_String;
      Options           : in     Option_Description_List :=
                                 Null_Option_Description_List);

   procedure Xt_Open_Display
     (Display           :    out X_Lib.Display_Pointer;
      App_Context       : in     Xt_App_Context;
      Display_Name      : in     String := "";
      Application_Name  : in     String := "";
      Application_Class : in     String;
      Options           : in     Option_Description_List := Null_Option_Description_List;
      Arg_Vector        : in out X_Command_Line.Argument_Vector_Type);

   procedure Xt_Open_Display
     (Display           :    out X_Lib.Display_Pointer;
      App_Context       : in     Xt_App_Context;
      Display_Name      : in     String := "";
      Application_Name  : in     Xt_N_Resource_String := Null_Xt_Resource_String;
      Application_Class : in     Xt_N_Resource_String;
      Options           : in     Option_Description_List := Null_Option_Description_List;
      Arg_Vector        : in out X_Command_Line.Argument_Vector_Type);


   -- create shell widget as root of widget tree
   function Xt_App_Create_Shell
     (Application_Name   : in String;
      Application_Class  : in String;
      W_Class            : in Widget_Class;
      Disp               : in X_Lib.Display_Pointer;
      Args               : in Arg_List := Null_Arg_List)
      return Widget;

   function Xt_App_Create_Shell
     (Application_Name   : in Xt_N_Resource_String;
      Application_Class  : in Xt_C_Resource_String;
      W_Class            : in Widget_Class;
      Disp               : in X_Lib.Display_Pointer;
      Args               : in Arg_List := Null_Arg_List)
      return Widget;


   --
   -- get info about application class and name
   --
   procedure Xt_Get_Application_Name_And_Class
     (Display : in     X_Lib.Display_Pointer;
      Name    :    out Xt_N_Resource_String;
      Class   :    out Xt_C_Resource_String);


   --
   -- other functions with the application context
   --
   function Xt_Create_Application_Context return Xt_App_Context;

   procedure Xt_Destroy_Application_Context (App_Context : in Xt_App_Context);

   function Xt_Display_To_Application_Context
     (Display : in X_Lib.Display_Pointer)
      return Xt_App_Context;

   function Xt_Widget_To_Application_Context
     (W : in Widget)
      return Xt_App_Context;


   procedure Xt_App_Set_Fallback_Resources
     (App_Context        : in Xt_App_Context;
      Specification_List : in String_List.Element_Access_List);


   function Xt_App_Pending
     (App_Context : in Xt_App_Context)
      return Xt_Input_Mask;

   procedure Xt_App_Process_Event
     (App_Context : in Xt_App_Context;
      Mask        : in Xt_Input_Mask);


   procedure Xt_App_Main_Loop (App_Context : in Xt_App_Context);


   --
   -- functions that work directly with the display
   --
   procedure Xt_Close_Display (Disp : in X_Lib.Display_Pointer);


-- ----------------------------------------------------------------------------
--
--                  W I D G E T S
--

   -- -------------------------------------------------------------------------
   --
   --  widget classes of the intrinsics
   --

   Core_Widget_Class             : constant Widget_Class;
   Composite_Widget_Class        : constant Widget_Class;
   Constraint_Widget_Class       : constant Widget_Class;

   --
   -- Widget List Type (simple list)
   --
   type Widget_List_Type is array (Natural range <>) of aliased Widget;


   --
   -- Widget List
   --
   package Widget_Lists is
      new Generic_List_Types (Widget);
   type Widget_List is
      new Widget_Lists.Unbounded_List;

   Null_Widget_List : constant Widget_List := Widget_List (Widget_Lists.Null_Unbounded_List);


   function Length (List : in  Widget_List) return Natural;

   function Element
     (List   : in Widget_List;
      Index  : in Natural)
      return Widget;

   function "=" (Left, Right : in Widget_List) return Boolean;

   function "&" (Left, Right : in Widget_List) return Widget_List;
   function "&" (Left  : in Widget_List;
                 Right : in Widget) return Widget_List;

   procedure Append (List : in out Widget_List;
                     W    : in     Widget_List);

   procedure Append (List : in out Widget_List;
                     W    : in     Widget);



   function Xt_Create_Widget
     (Name    : in String;
      Class   : in Widget_Class;
      Parent  : in Widget;
      Args    : in Arg_List := Null_Arg_List)
      return Widget;
         
   function Xt_Create_Widget
     (Name    : in Xt_N_Resource_String;
      Class   : in Widget_Class;
      Parent  : in Widget;
      Args    : in Arg_List := Null_Arg_List)
      return Widget;
         

   function Xt_Create_Popup_Shell
     (Name    : in String;
      Class   : in Widget_Class;
      Parent  : in Widget;
      Args    : in Arg_List := Null_Arg_List)
      return Widget;
 
   function Xt_Create_Popup_Shell
     (Name    : in Xt_N_Resource_String;
      Class   : in Widget_Class;
      Parent  : in Widget;
      Args    : in Arg_List := Null_Arg_List)
      return Widget;
 

   function Xt_Create_Managed_Widget
     (Name    : in String;
      Class   : in Widget_Class;
      Parent  : in Widget;
      Args    : in Arg_List := Null_Arg_List)
      return Widget;

   function Xt_Create_Managed_Widget
     (Name    : in Xt_N_Resource_String;
      Class   : in Widget_Class;
      Parent  : in Widget;
      Args    : in Arg_List := Null_Arg_List)
      return Widget;

   -- -------------------------------------------------------------------------
   --
   -- XtInitializeWidgetClass
   --
   procedure Xt_Initialize_Widget_Class (Object_Class : in Widget_Class);


   procedure Xt_Manage_Children (Children : in Widget_List_Type);

   procedure Xt_Unmanage_Children (Children : in Widget_List_Type);

   procedure Xt_Manage_Children (Children : in Widget_List);

   procedure Xt_Unmanage_Children (Children : in Widget_List);

   procedure Xt_Manage_Child (Child : in Widget);

   procedure Xt_Unmanage_Child (Child : in Widget);



   procedure Xt_Map_Widget (W : in Widget);

   procedure Xt_Unmap_Widget (W : in Widget);

   procedure Xt_Realize_Widget (W : in Widget);

   procedure Xt_Unrealize_Widget (W : in Widget);

   

   procedure Xt_Destroy_Widget (W : in Widget);


   procedure Xt_Configure_Widget
     (W             : in Widget;
      X, Y          : in X_Lib.Position;
      Width, Height : in X_Lib.Dimension;
      Border_Width  : in X_Lib.Dimension);

   procedure Xt_Move_Widget
     (W    : in Widget;
      X, Y : in X_Lib.Position);

   procedure Xt_Resize_Widget
     (W             : in Widget;
      Width, Height : in X_Lib.Dimension;
      Border_Width  : in X_Lib.Dimension);

   procedure Xt_Resize_Window (W : in Widget);


   procedure Xt_Set_Values (W    : in Widget;
                            Args : in Arg_List);


   procedure Xt_Get_Values  (W    : in Widget;
                             Args : in Arg_List);


   procedure Xt_Set_Sensitive (W          : in Widget;
                               Sensitive  : in Boolean);


   procedure Xt_Set_Mapped_When_Managed
     (W      : in Widget;
      Mapped : in Boolean);


   function Xt_Name_To_Widget
     (Reference : in Widget;
      Name      : in String)
      return Widget;

   function Xt_Name_To_Widget
     (Reference : in Widget;
      Name      : in Xt_N_Resource_String)
      return Widget;


-- ----------------------------------------------------------------------------
--
--                   P O P U P S
--

   type Xt_Grab_Kind is (Grab_None,
                         Grab_Nonexclusive,
                         Grab_Exclusive);

   
   procedure Xt_Popup  (Popup_Shell : in Widget;
                        Grab_Kind   : in Xt_Grab_Kind);


   procedure Xt_Popdown (Popup_Shell : in Widget);


   procedure Xt_Add_Grab
     (W             : in Widget;
      Exclusive     : in Boolean;
      Spring_Loaded : in Boolean);



   -- -------------------------------------------------------------------------
   --
   --           Q U E R I E S
   --
             
   function Xt_Class (W : in Widget) return Widget_Class;

   function Xt_Superclass (W : in Widget) return Widget_Class;
   
   function Xt_Is_Subclass (W     : in Widget;
                            Class : in Widget_Class) return Boolean;

   function Xt_Is_Composite (W : in Widget) return Boolean;

   function Xt_Is_Realized (W : in Widget) return Boolean;

   function Xt_Is_Managed (W : in Widget) return Boolean;
                                      
   function Xt_Has_Callbacks
     (W    : in Widget;             
      Kind : in Xt_N_Resource_String)
      return Xt_Callback_Status;

   function Xt_Name (Object : in Widget) return String;
   function Xt_Name (Object : in Widget) return Xt_N_Resource_String;

   function Xt_Parent (W : in Widget) return Widget;

   function Xt_Display (W : in Widget) return X_Lib.Display_Pointer;
   function Xt_Display_Of_Object (Object : in Widget) return X_Lib.Display_Pointer;

   function Xt_Screen (W : in Widget) return X_Lib.Screen_Pointer;
   function Xt_Screen_Of_Object (Object : in Widget) return X_Lib.Screen_Pointer;

   function Xt_Window (W : in Widget) return X_Lib.Window_ID;
   function Xt_Window_Of_Object (Object : in Widget) return X_Lib.Window_ID;

   function Xt_Window_To_Widget (Display : in X_Lib.Display_Pointer;
                                 Window  : in X_Lib.Window_ID) return Widget;

   -- set the value of the WM_COLORMAP_WINDOWS property
   --
   procedure Xt_Set_WM_Colormap_Windows
     (W       : in Widget;
      List    : in Widget_List_Type);


   -- associate the specified drawable with the widget W
   -- future calls to Xt_Window_To_Widget (Display, Drawable) will return
   -- the specified widget W
   --
   procedure Xt_Register_Drawable
     (Display  : in X_Lib.Display_Pointer;
      Drawable : in X_Lib.Drawable_ID;
      W        : in Widget);

   procedure Xt_Unregister_Drawable
     (Display  : in X_Lib.Display_Pointer;
      Drawable : in X_Lib.Drawable_ID);



-- ----------------------------------------------------------------------------
--
--              F I L E   S E A R C H I N G
--
--
   -- type specifying the subsitution of %-preceded characters in search strings
   --
   type Substitution_Rec_Type is record
      Match        : Character;
      Substitution : X_Strings.X_String;
   end record;
   type Substitution_List_Type is
      array (Natural range <>) of aliased Substitution_Rec_Type;
   Null_Substitution_List : constant Substitution_List_Type
                          := (1 .. 0 => (Match        => Character'Val (0),
			                 Substitution => X_Strings.Null_X_String));

   type Xt_File_Predicate_Proc is
      access function (Filename : in X_Strings.X_String)
         return Xt_Boolean;
   pragma Convention (C, Xt_File_Predicate_Proc);
   Null_File_Predicate_Proc : constant Xt_File_Predicate_Proc := null;

   -- search for a file using the given path list (e.g. a colon-separated list),
   -- in which the string substitutions are performed. for every path the
   -- predicate function is called and the accepted path returned.
   -- a NULL_File_Predicate_Proc indicated to use the standard check procedure
   --
   function Xt_Find_File
     (Path         : in String;
      Substitution : in Substitution_List_Type := Null_Substitution_List;
      Predicate    : in Xt_File_Predicate_Proc := Null_File_Predicate_Proc)
      return String;


   -- search for a file using standard substitution
   --
   function Xt_Resolve_Pathname
     (Display      : in X_Lib.Display_Pointer;
      File_Type    : in String;
      File_Name    : in String;
      Suffix       : in String;
      Path         : in String;
      Substitution : in Substitution_List_Type := Null_Substitution_List;
      Predicate    : in Xt_File_Predicate_Proc := Null_File_Predicate_Proc)
      return String;

       
-- ----------------------------------------------------------------------------
--
--              S E L E C T I O N S
--
--

   function Xt_App_Get_Selection_Timeout (App_Context : in Xt_App_Context)
      return Milliseconds;


   procedure Xt_App_Set_Selection_Timeout
     (App_Context : in Xt_App_Context;
      Timeout     : in Milliseconds);


   procedure Xt_Disown_Selection
     (W         : in Widget;
      Selection : in X_Lib.Atom;
      Timestamp : in X_Lib.Server_Time);


-- ----------------------------------------------------------------------------
--
--              T Y P E   C O N V E R T I O N
--
--

--     NOT YET IMPLEMENTED

--   procedure Xt_App_Set_Type_Converter
--     (From_Type    : in Xt_R_Resource_String;
--      To_Type      : in Xt_R_Resource_String;
--      Converter    : in Xt_Type_Converter;
--      Convert_Args : in Convert_Arg_List;
--      Cache_Type   : in Xt_Cache_Type;
--      Destructor   : in Xt_Destructor);

--   function Xt_Call_Converter
--     (Display   : in X_Lib.Display_Pointer;
--      Converter : in Xt_Type_Converter;
--            ...

--   procedure Xt_Convert
--     (W         : in Widget;
--      From_Type : in Xt_R_Resource_String;
--          ...

--   procedure Xt_Convert_And_Store
--     (W         : in Widget;
--      From_Type : in Xt_R_Resource_String;
--          ...


-- ----------------------------------------------------------------------------
--
--              E R R O R   H A N D L I N G
--
--

   procedure Xt_App_Error
     (App_Context : in Xt_App_Context;
      Message     : in String);


-- ----------------------------------------------------------------------------
--
--              E V E N T S
--

   type Interval_ID  is new X_Lib.XID;
   Null_Interval_ID : constant Interval_ID;

   type Work_Proc_ID is new X_Lib.XID;
   Null_Work_Proc_ID : constant Work_Proc_ID;

   type Input_ID is new X_Lib.XID;
   Null_Input_ID : constant Input_ID;


   -- -------------------------------------------------------------------------
   --
   -- T I M E O U T   P R O C
   --
   type Xt_Timer_Callback_Proc is
      access procedure (Closure : in     Xt_Pointer;
                        ID      : in out Interval_ID);
   pragma Convention (C, Xt_Timer_Callback_Proc);
   Null_Timer_Callback_Proc : constant Xt_Timer_Callback_Proc := null;


   function Xt_App_Add_Time_Out
     (App_Context  : in Xt_App_Context;
      Interval     : in Milliseconds;
      Callback     : in Xt_Timer_Callback_Proc;
      Client_Data  : in Xt_Pointer := Null_Xt_Pointer)
      return Interval_ID;

   procedure Xt_Remove_Time_Out (Timer : in Interval_ID);


   -- -------------------------------------------------------------------------
   --
   -- W O R K   P R O C
   --
   type Xt_Work_Proc is access function (Client_Data : in Xt_Pointer)
      return Xt_Boolean;

   pragma Convention (C, Xt_Work_Proc);
   Null_Work_Proc : constant Xt_Work_Proc := null;


   function Xt_App_Add_Work_Proc (App_Context  : in Xt_App_Context;
                                  Proc         : in Xt_Work_Proc;
                                  Client_Data  : in Xt_Pointer := Null_Xt_Pointer)
      return Work_Proc_ID;

   procedure Xt_Remove_Work_Proc (Id : in Work_Proc_ID);


   -- -------------------------------------------------------------------------
   --
   -- I N P U T   C A L L B A C K   P R O C
   --
   type Xt_Input_Callback_Proc is
      access procedure (Closure : in     Xt_Pointer;
                        Source  : in out Integer;
                        Id      : in out Input_ID);
   pragma Convention (C, Xt_Input_Callback_Proc);
   Null_Input_Callback_Proc : constant Xt_Input_Callback_Proc := null;


   function Xt_App_Add_Input
     (App_Context : in Xt_App_Context;
      Source      : in Integer;
      Condition   : in Xt_Pointer;
      Proc        : in Xt_Input_Callback_Proc;
      Closure     : in Xt_Pointer)
      return Input_Id;

   procedure Xt_Remove_Input (Id : in Input_ID);


-- UseX11R6 X11R6.3
   -- -------------------------------------------------------------------------
   --
   -- registration of a signal handler  (from X11R6)
   --
   type Signal_ID  is new X_Lib.XID;
   Null_Signal_ID : constant Signal_ID;

   type Xt_Signal_Callback_Proc is access procedure (Client_Data : in     Xt_Pointer;
                                                     ID          : in out Signal_ID);
   pragma Convention (C, Xt_Signal_Callback_Proc);
   Null_Signal_Callback_Proc : constant Xt_Signal_Callback_Proc := null;


   function Xt_App_Add_Signal (App_Context  : in Xt_App_Context;
                               Callback     : in Xt_Signal_Callback_Proc;
                               Client_Data  : in Xt_Pointer) return Signal_ID;

   procedure Xt_Remove_Signal (Signal : in Signal_ID);

   procedure Xt_Notice_Signal (Signal : in Signal_ID);

-- EndX11R6 X11R6.3


   -- -------------------------------------------------------------------------
   --
   -- EVENT HANDLING
   --

   type Xt_Event_Handler_Proc is access procedure (
                 W                 : in     Widget;
                 Closure           : in     Xt_Pointer;
                 Event             : in     X_Lib.X_Event;
                 Cont_To_Dispatch  : in out Xt_Boolean);
   pragma Convention (C, Xt_Event_Handler_Proc);
   Null_Event_Handler_Proc : constant Xt_Event_Handler_Proc := null;

   -- -------------------------------------------------------------------------
   --
   -- XtAddEventHandler
   --
   procedure Xt_Add_Event_Handler
     (W           : in Widget;
      Ev_Mask     : in X_Lib.Event_Mask;
      Nonmaskable : in Boolean;
      Proc        : in Xt_Event_Handler_Proc;
      Closure     : in Xt_Pointer := Null_Xt_Pointer);


   -- -------------------------------------------------------------------------
   --
   -- XtRemoveEventHandler
   --
   procedure Xt_Remove_Event_Handler
     (W           : in Widget;
      Ev_Mask     : in X_Lib.Event_Mask;
      Nonmaskable : in Boolean;
      Proc        : in Xt_Event_Handler_Proc;
      Closure     : in Xt_Pointer := Null_Xt_Pointer);


   -- -------------------------------------------------------------------------
   --
   -- XtAddRawEventHandler
   --
   procedure Xt_Add_Raw_Event_Handler
     (W           : in Widget;
      Ev_Mask     : in X_Lib.Event_Mask;
      Nonmaskable : in Boolean;
      Proc        : in Xt_Event_Handler_Proc;
      Closure     : in Xt_Pointer := Null_Xt_Pointer);


   -- -------------------------------------------------------------------------
   --
   -- XtRemoveRawEventHandler
   --
   procedure Xt_Remove_Raw_Event_Handler
     (W           : in Widget;
      Ev_Mask     : in X_Lib.Event_Mask;
      Nonmaskable : in Boolean;
      Proc        : in Xt_Event_Handler_Proc;
      Closure     : in Xt_Pointer := Null_Xt_Pointer);


   procedure Xt_App_Next_Event (App_Context : in  Xt_App_Context;
                                Event       : out X_Lib.X_Event);

   procedure Xt_App_Peek_Event (App_Context : in  Xt_App_Context;
                                Event       : out X_Lib.X_Event);

   function Xt_Dispatch_Event (Event : in X_Lib.X_Event) return Boolean;
 

   function Xt_Build_Event_Mask (W : in Widget) return X_Lib.Event_Mask;


   -- return the last event passed to Xt_Dispatch_Event
   --        null if there has been no event
   --
   function Xt_Last_Event_Processed
     (Display : in X_Lib.Display_Pointer)
      return X_Lib.X_Event_Pointer;


   -- return the timestamp of the last event passed to Xt_Dispatch_Event
   --        Server_Time (0) if there has been no event
   --
   function Xt_Last_Timestamp_Processed
     (Display : in X_Lib.Display_Pointer)
      return X_Lib.Server_Time;


-- ----------------------------------------------------------------------------
--
--             T R A N S L A T I O N  and  A C C E L E R A T O R
--


   type Xt_Translations is private;
   Null_Translations : constant Xt_Translations;

   type Xt_Accelerators is private;
   Null_Accelerators : constant Xt_Accelerators;

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     Xt_Accelerators);

   procedure Append_Set (List  : in out Arg_List;
                         Name  : in     Xt_N_Resource_String;
                         Value : in     Xt_Translations);



   function  Xt_Parse_Translation_Table (Table : in String) return Xt_Translations;

   procedure Xt_Augment_Translations
     (W            : in Widget;
      Translations : in Xt_Translations);

   procedure Xt_Override_Translations
     (W            : in Widget;
      Translations : in Xt_Translations);

   function  Xt_Parse_Accelerator_Table (Table : in String) return Xt_Accelerators;

   procedure Xt_Install_Accelerators (Destination : in Widget;
                                      Source      : in Widget);


-- ----------------------------------------------------------------------------
--
--  Graphics Context
--

   subtype Xt_GC_Mask is X_Lib.X_GC_Valuemask;

   function Xt_Allocate_GC
     (Object         : in Widget;
      Depth          : in X_Lib.Color_Depth;
      Value_Mask     : in Xt_GC_Mask;
      Values         : in X_Lib.X_GC_Values;
      Dynamic_Mask   : in Xt_GC_Mask;
      Dont_Care_Mask : in Xt_GC_Mask) return X_Lib.GC_Pointer;


   function Xt_Get_GC
     (W          : in Widget;
      Value_Mask : in Xt_GC_Mask;
      Values     : in X_Lib.X_GC_Values) return X_Lib.GC_Pointer;
      

   procedure Xt_Release_GC
     (W  : in Widget;
      GC : in X_Lib.GC_Pointer);


-- ----------------------------------------------------------------------------
--
--              K E Y B O A R D
--
--

   procedure Xt_Convert_Case
     (Display : in     X_Lib.Display_Pointer;
      Keysym  : in     X_Lib.Key_Sym_ID;
      Lower   :    out X_Lib.Key_Sym_ID;
      Upper   :    out X_Lib.Key_Sym_ID);


   procedure Xt_Get_Action_Keysym
     (Event  : in     X_Lib.X_Event_Pointer;
      Keysym :    out X_Lib.Key_Sym_ID;
      Mods   :    out X_Lib.Modifiers_Mask_Type);

--   function Xt_Get_Keysym_Table
--     (Display : in X_Lib.Display_Pointer;
--           ...

   function Xt_Get_Multi_Click_Time
     (Display : in X_Lib.Display_Pointer)
      return Milliseconds;  -- in the Intrinsics, it is an int!


   procedure Xt_Set_Multi_Click_Time
     (Display    : in X_Lib.Display_Pointer;
      Click_Time : in Milliseconds);


   procedure Xt_Set_Keyboard_Focus
     (Subtree    : in Widget;
      Descendent : in Widget);
 

   function Xt_Get_Keyboard_Focus_Widget
     (W : in Widget)
     return Widget;



-- UseX11R6 X11R6.3
-- ----------------------------------------------------------------------------
--
-- T H R E A D S
--
   Threads_Not_Supported : exception;

   procedure Xt_Toolkit_Thread_Initialize;

   procedure Xt_App_Lock (App_Context : in Xt_App_Context);
   procedure Xt_App_Unlock (App_Context : in Xt_App_Context);
   
   procedure Xt_Process_Lock;
   procedure Xt_Process_Unlock;


   procedure Xt_App_Set_Exit_Flag (App_Context : in Xt_App_Context);
   function  Xt_App_Get_Exit_Flag (App_Context : in Xt_App_Context)
      return Boolean;


-- EndX11R6 X11R6.3


-- ----------------------------------------------------------------------------
--
--        M I S C E L L A N E O U S    R O U T I N E S
--

   procedure Xt_Add_Exposure_To_Region
     (Event : in X_Lib.X_Event_Pointer;
      Reg   : in X_Lib.Region);


   procedure Xt_Translate_Coords
     (W          : in     Widget;
      X,
      Y          : in     X_Lib.Position;
      X_Rel_Root,
      Y_Rel_Root :    out X_Lib.Position);


-- ----------------------------------------------------------------------------
--
--
--

   type Xt_Language_Proc is access
      function (App_Context : in Xt_App_Context;
                String      : in X_Strings.X_String;
                Client_Data : in Xt_Pointer)
         return X_Strings.X_String;

   Null_Xt_Language_Proc : constant Xt_Language_Proc := null;

   function Xt_Set_Language_Proc
     (App_Context : in Xt_App_Context   := Null_Xt_App_Context;
      Proc        : in Xt_Language_Proc := Null_Xt_Language_Proc;
      Client_Data : in Xt_Pointer       := Null_Xt_Pointer)
      return Xt_Language_Proc;

   --  same as above, but return value is ignored
   --
   procedure Xt_Set_Language_Proc
     (App_Context : in Xt_App_Context   := Null_Xt_App_Context;
      Proc        : in Xt_Language_Proc := Null_Xt_Language_Proc;
      Client_Data : in Xt_Pointer       := Null_Xt_Pointer);


-- ----------------------------------------------------------------------------
--
--        T Y P E   C O N V E R S I O N   R O U T I N E S
--

   function To_Address    (Source : in Widget)         return System.Address;
   function To_Address    (Source : in Xt_Pointer)     return System.Address;
   function To_Address    (Source : in Xt_Resource_String) return System.Address;
   function To_Address    (Source : in X_Strings.X_String) return System.Address;

   function To_Xt_Pointer (Source : in System.Address) return Xt_Pointer;
   function To_Xt_Pointer (Source : in Widget)         return Xt_Pointer;
   function To_Xt_Pointer (Source : in Integer)        return Xt_Pointer;
   function To_Xt_Pointer (Source : in Xt_Resource_String) return Xt_Pointer;
   function To_Xt_Pointer (Source : in X_Strings.X_String) return Xt_Pointer;

   function To_Widget     (Source : in Xt_Pointer)     return Widget;
   function To_Widget     (Source : in System.Address) return Widget;

   function To_X_String   (Source : in Xt_Pointer)     return X_Strings.X_String;


-- ----------------------------------------------------------------------------
--
-- resource strings
--

   -- -------------------------------------------------------------------------
   --
   -- resource strings of core intrinsics
   --
   Xt_N_Accelerators        : constant Xt_N_Resource_String;
   Xt_N_Ancestor_Sensitive  : constant Xt_N_Resource_String;
   Xt_N_Background          : constant Xt_N_Resource_String;
   Xt_N_Background_Pixmap   : constant Xt_N_Resource_String;
   Xt_N_Border_Color        : constant Xt_N_Resource_String;
   Xt_N_Border_Pixmap       : constant Xt_N_Resource_String;
   Xt_N_Border_Width        : constant Xt_N_Resource_String;
   Xt_N_Colormap            : constant Xt_N_Resource_String;
   Xt_N_Depth               : constant Xt_N_Resource_String;
   Xt_N_Destroy_Callback    : constant Xt_N_Resource_String;
   Xt_N_Height              : constant Xt_N_Resource_String;
   Xt_N_Initial_Resources_Persistent : constant Xt_N_Resource_String;
   Xt_N_Mapped_When_Managed : constant Xt_N_Resource_String;
   Xt_N_Screen              : constant Xt_N_Resource_String;
   Xt_N_Sensitive           : constant Xt_N_Resource_String;
   Xt_N_Translations        : constant Xt_N_Resource_String;
   Xt_N_Width               : constant Xt_N_Resource_String;
   Xt_N_X                   : constant Xt_N_Resource_String;
   Xt_N_Y                   : constant Xt_N_Resource_String;

   -- -------------------------------------------------------------------------
   --
   -- resource strings of composites
   --
   Xt_N_Children            : constant Xt_N_Resource_String;
   Xt_N_Insert_Position     : constant Xt_N_Resource_String;
   Xt_N_Num_Children        : constant Xt_N_Resource_String;

   type Xt_Order_Proc is access
      function (W : in Widget) return Cardinal;
   pragma Convention (C, Xt_Order_Proc);

   procedure Append_Set (List  : in out Arg_List;
			 Name  : in	Xt_N_Resource_String;
			 Value : in	Xt_Order_Proc);

   procedure Append_Get (List  : in out Arg_List;
			 Name  : in	Xt_N_Resource_String;
			 Value :    out Xt_Order_Proc);
   pragma Convention (C, Append_Get);
 

   -- -------------------------------------------------------------------------
   --
   -- resource strings of dont know what
   --
   Xt_N_Border              : constant Xt_N_Resource_String;
   Xt_N_Bitmap              : constant Xt_N_Resource_String;
   Xt_N_Callback            : constant Xt_N_Resource_String;
   Xt_N_Edit_Type           : constant Xt_N_Resource_String;
   Xt_N_File                : constant Xt_N_Resource_String;
   Xt_N_Font                : constant Xt_N_Resource_String;
   Xt_N_Font_Set            : constant Xt_N_Resource_String;
   Xt_N_Force_Bars          : constant Xt_N_Resource_String;
   Xt_N_Foreground          : constant Xt_N_Resource_String;
   Xt_N_Function            : constant Xt_N_Resource_String;
   Xt_N_Highlight           : constant Xt_N_Resource_String;
   Xt_N_Index               : constant Xt_N_Resource_String;
   Xt_N_Inner_Height        : constant Xt_N_Resource_String;
   Xt_N_Inner_Width         : constant Xt_N_Resource_String;
   Xt_N_Inner_Window        : constant Xt_N_Resource_String;
   Xt_N_Internal_Height     : constant Xt_N_Resource_String;
   Xt_N_Internal_Width      : constant Xt_N_Resource_String;
   Xt_N_Jump_Proc           : constant Xt_N_Resource_String;
   Xt_N_Justify             : constant Xt_N_Resource_String;
   Xt_N_Length              : constant Xt_N_Resource_String;
   Xt_N_Lower_Right         : constant Xt_N_Resource_String;
   Xt_N_Menu_Entry          : constant Xt_N_Resource_String;
   Xt_N_Name                : constant Xt_N_Resource_String;
   Xt_N_Notify              : constant Xt_N_Resource_String;
   Xt_N_Orientation         : constant Xt_N_Resource_String;
   Xt_N_Parameter           : constant Xt_N_Resource_String;
   Xt_N_Pixmap              : constant Xt_N_Resource_String;
   Xt_N_Resize              : constant Xt_N_Resource_String;
   Xt_N_Reverse_Video       : constant Xt_N_Resource_String;
   Xt_N_Scroll_D_Cursor     : constant Xt_N_Resource_String;
   Xt_N_Scroll_H_Cursor     : constant Xt_N_Resource_String;
   Xt_N_Scroll_L_Cursor     : constant Xt_N_Resource_String;
   Xt_N_Scroll_Proc         : constant Xt_N_Resource_String;
   Xt_N_Scroll_R_Cursor     : constant Xt_N_Resource_String;
   Xt_N_Scroll_U_Cursor     : constant Xt_N_Resource_String;
   Xt_N_Scroll_V_Cursor     : constant Xt_N_Resource_String;
   Xt_N_Selection           : constant Xt_N_Resource_String;
   Xt_N_Selection_Array     : constant Xt_N_Resource_String;
   Xt_N_Shown               : constant Xt_N_Resource_String;
   Xt_N_Space               : constant Xt_N_Resource_String;
   Xt_N_String              : constant Xt_N_Resource_String;
   Xt_N_Text_Options        : constant Xt_N_Resource_String;
   Xt_N_Text_Sink           : constant Xt_N_Resource_String;
   Xt_N_Text_Source         : constant Xt_N_Resource_String;
   Xt_N_Thickness           : constant Xt_N_Resource_String;
   Xt_N_Thumb               : constant Xt_N_Resource_String;
   Xt_N_Thumb_Proc          : constant Xt_N_Resource_String;
   Xt_N_Top                 : constant Xt_N_Resource_String;
   Xt_N_Update              : constant Xt_N_Resource_String;
   Xt_N_Use_Bottom          : constant Xt_N_Resource_String;
   Xt_N_Use_Right           : constant Xt_N_Resource_String;
   Xt_N_Value               : constant Xt_N_Resource_String;
   Xt_N_Window              : constant Xt_N_Resource_String;


   -- -------------------------------------------------------------------------
   --
   -- resource strings for resources
   --
   Xt_R_Accelerator_Table   : constant Xt_R_Resource_String;
   Xt_R_Atom                : constant Xt_R_Resource_String;
   Xt_R_Bitmap              : constant Xt_R_Resource_String;
   Xt_R_Bool                : constant Xt_R_Resource_String;
   Xt_R_Boolean             : constant Xt_R_Resource_String;
   Xt_R_Callback            : constant Xt_R_Resource_String;
   Xt_R_Call_Proc           : constant Xt_R_Resource_String;
   Xt_R_Cardinal            : constant Xt_R_Resource_String;
   Xt_R_Color               : constant Xt_R_Resource_String;
   Xt_R_Colormap            : constant Xt_R_Resource_String;
-- UseX11R6 X11R6.3
   Xt_R_Command_Arg_Array   : constant Xt_R_Resource_String;
-- EndX11R6 X11R6.3
   Xt_R_Cursor              : constant Xt_R_Resource_String;
   Xt_R_Dimension           : constant Xt_R_Resource_String;
-- UseX11R6 X11R6.3
   Xt_R_Directory_String    : constant Xt_R_Resource_String;
-- EndX11R6 X11R6.3
   Xt_R_Display             : constant Xt_R_Resource_String;
   Xt_R_Edit_Mode           : constant Xt_R_Resource_String;
   Xt_R_Enum                : constant Xt_R_Resource_String;
-- UseX11R6 X11R6.3
   Xt_R_Environment_Array   : constant Xt_R_Resource_String;
-- EndX11R6 X11R6.3
   Xt_R_File                : constant Xt_R_Resource_String;
   Xt_R_Float               : constant Xt_R_Resource_String;
   Xt_R_Font                : constant Xt_R_Resource_String;
   Xt_R_Font_Set            : constant Xt_R_Resource_String;
   Xt_R_Font_Struct         : constant Xt_R_Resource_String;
   Xt_R_Function            : constant Xt_R_Resource_String;
   Xt_R_Geometry            : constant Xt_R_Resource_String;
   Xt_R_Gravity             : constant Xt_R_Resource_String;
   Xt_R_Immediate           : constant Xt_R_Resource_String;
   Xt_R_Initial_State       : constant Xt_R_Resource_String;
   Xt_R_Int                 : constant Xt_R_Resource_String;
   Xt_R_Justify             : constant Xt_R_Resource_String;
   Xt_R_Object              : constant Xt_R_Resource_String;
   Xt_R_Orientation         : constant Xt_R_Resource_String;
   Xt_R_Pixel               : constant Xt_R_Resource_String;
   Xt_R_Pixmap              : constant Xt_R_Resource_String;
   Xt_R_Pointer             : constant Xt_R_Resource_String;
   Xt_R_Position            : constant Xt_R_Resource_String;
-- UseX11R6 X11R6.3
   Xt_R_Restart_Style       : constant Xt_R_Resource_String;
-- EndX11R6 X11R6.3
   Xt_R_Screen              : constant Xt_R_Resource_String;
   Xt_R_Short               : constant Xt_R_Resource_String;
-- UseX11R6 X11R6.3
   Xt_R_Smc_Conn            : constant Xt_R_Resource_String;
-- EndX11R6 X11R6.3
   Xt_R_String              : constant Xt_R_Resource_String;
   Xt_R_String_Array        : constant Xt_R_Resource_String;
   Xt_R_String_Table        : constant Xt_R_Resource_String;
   Xt_R_Unsigned_Char       : constant Xt_R_Resource_String;
   Xt_R_Translation_Table   : constant Xt_R_Resource_String;
   Xt_R_Visual              : constant Xt_R_Resource_String;
   Xt_R_Widget              : constant Xt_R_Resource_String;
   Xt_R_Widget_Class        : constant Xt_R_Resource_String;
   Xt_R_Widget_List         : constant Xt_R_Resource_String;
   Xt_R_Window              : constant Xt_R_Resource_String;


private

   type Widget_Class is new System.Address;
   Null_Widget_Class : constant Widget_Class := Widget_Class (Null_Address);


   type Xt_App_Context is new System.Address;
   Null_Xt_App_Context : constant Xt_App_Context := Xt_App_Context (Null_Address);


   type Xt_Action_Hook_Id is new System.Address;
   Null_Xt_Action_Hook_Id : constant Xt_Action_Hook_Id := Xt_Action_Hook_Id (Null_Address);


   Null_Interval_ID  : constant Interval_ID  := Interval_ID (X_Lib.Null_XID);
   Null_Work_Proc_ID : constant Work_Proc_ID := Work_Proc_ID (X_Lib.Null_XID);
   Null_Input_ID     : constant Input_ID     := Input_ID (X_Lib.Null_XID);
-- UseX11R6 X11R6.3
   Null_Signal_ID    : constant Signal_ID    := Signal_ID (X_Lib.Null_XID);
-- EndX11R6 X11R6.3


   type Xt_Translations is new System.Address;
   Null_Translations : constant Xt_Translations := Xt_Translations (Null_Address);

   type Xt_Accelerators is new System.Address;
   Null_Accelerators : constant Xt_Accelerators := Xt_Accelerators (Null_Address);

   for Xt_Grab_Kind use (Grab_None         => 0,
                         Grab_Nonexclusive => 1,
                         Grab_Exclusive    => 2);
   for Xt_Grab_Kind'Size use Interfaces.C.int'Size;




   pragma Import (C, Xt_App_Add_Action_Hook, "XtAppAddActionHook");
   pragma Import (C, Xt_Remove_Action_Hook, "XtRemoveActionHook");

   pragma Import (C, Xt_Callback_None, "XtCallbackNone");
   pragma Import (C, Xt_Callback_Nonexclusive, "XtCallbackNonexclusive");
   pragma Import (C, Xt_Callback_Exclusive, "XtCallbackExclusive");
   pragma Import (C, Xt_Callback_Popdown, "XtCallbackPopdown");

   pragma Import (C, Xt_App_Get_Selection_Timeout, "XtAppGetSelectionTimeout");
   pragma Import (C, Xt_App_Set_Selection_Timeout, "XtAppSetSelectionTimeout");
   pragma Import (C, Xt_Disown_Selection, "XtDisownSelection");

   pragma Import (C, Xt_Toolkit_Initialize, "XtToolkitInitialize");
   pragma Import (C, Xt_App_Main_Loop, "XtAppMainLoop");

   pragma Import (C, Xt_App_Add_Time_Out, "XtAppAddTimeOut");
   pragma Import (C, Xt_Remove_Time_Out, "XtRemoveTimeOut");

   pragma Import (C, Xt_App_Add_Work_Proc, "XtAppAddWorkProc");
   pragma Import (C, Xt_Remove_Work_Proc, "XtRemoveWorkProc");

   pragma Import (C, Xt_App_Add_Input, "XtAppAddInput");
   pragma Import (C, Xt_Remove_Input, "XtRemoveInput");

-- UseX11R6 X11R6.3
   pragma Import (C, Xt_App_Add_Signal, "XtAppAddSignal");
   pragma Import (C, Xt_Remove_Signal,  "XtRemoveSignal");
   pragma Import (C, Xt_Notice_Signal, "XtNoticeSignal");
-- EndX11R6 X11R6.3

   pragma Import (C, Xt_Build_Event_Mask, "XtBuildEventMask");
   pragma Import (C, Xt_Create_Application_Context, "XtCreateApplicationContext");
   pragma Import (C, Xt_Destroy_Application_Context, "XtDestroyApplicationContext");
   pragma Import (C, Xt_Display_To_Application_Context, "XtDisplayToApplicationContext");
   pragma Import (C, Xt_Widget_To_Application_Context, "XtWidgetToApplicationContext");

   pragma Import (C, Xt_Remove_All_Callbacks, "XtRemoveAllCallbacks");
   pragma Import (C, Xt_Initialize_Widget_Class, "XtInitializeWidgetClass");
   pragma Import (C, Xt_Manage_Child, "XtManageChild");
   pragma Import (C, Xt_Unmanage_Child, "XtUnmanageChild");
   pragma Import (C, Xt_Realize_Widget, "XtRealizeWidget");
   pragma Import (C, Xt_Unrealize_Widget, "XtUnrealizeWidget");
   pragma Import (C, Xt_Destroy_Widget, "XtDestroyWidget");
   pragma Import (C, Xt_Configure_Widget, "XtConfigureWidget");
   pragma Import (C, Xt_Move_Widget, "XtMoveWidget");
   pragma Import (C, Xt_Resize_Widget, "XtResizeWidget");
   pragma Import (C, Xt_Resize_Window, "XtResizeWindow");

   pragma Import (C, Xt_Popup, "XtPopup");
   pragma Import (C, Xt_Popdown, "XtPopdown");
   pragma Import (C, Xt_Class, "XtClass");
   pragma Import (C, Xt_Superclass, "XtSuperclass");

   pragma Import (C, Xt_Parent, "XtParent");
   pragma Import (C, Xt_Display, "XtDisplay");
   pragma Import (C, Xt_Display_Of_Object, "XtDisplayOfObject");
   pragma Import (C, Xt_Screen, "XtScreen");
   pragma Import (C, Xt_Screen_Of_Object, "XtScreenOfObject");
   pragma Import (C, Xt_Window, "XtWindow");
   pragma Import (C, Xt_Window_Of_Object, "XtWindowOfObject");
   pragma Import (C, Xt_Window_To_Widget, "XtWindowToWidget");
   pragma Import (C, Xt_Register_Drawable, "XtRegisterDrawable");
   pragma Import (C, Xt_Unregister_Drawable, "XtUnregisterDrawable");

   pragma Import (C, Xt_Close_Display, "XtCloseDisplay");
   pragma Import (C, Xt_Install_Accelerators, "XtInstallAccelerators");

   pragma Import (C, Xt_Release_GC, "XtReleaseGC");

   pragma Import (C, Xt_Convert_Case, "XtConvertCase");
   pragma Import (C, Xt_Get_Multi_Click_Time, "XtGetMultiClickTime");
   pragma Import (C, Xt_Set_Multi_Click_Time, "XtSetMultiClickTime");
   pragma Import (C, Xt_Set_Keyboard_Focus, "XtSetKeyboardFocus");
   pragma Import (C, Xt_Get_Keyboard_Focus_Widget, "XtGetKeyboardFocusWidget");

   pragma Import (C, Xt_Augment_Translations, "XtAugmentTranslations");
   pragma Import (C, Xt_Override_Translations, "XtOverrideTranslations");
-- UseX11R6 X11R6.3
   pragma Import (C, Xt_App_Lock, "XtAppLock");
   pragma Import (C, Xt_App_Unlock, "XtAppUnlock");
   pragma Import (C, Xt_Process_Lock, "XtProcessLock");
   pragma Import (C, Xt_Process_Unlock, "XtProcessUnlock");
   pragma Import (C, Xt_App_Set_Exit_Flag, "XtAppSetExitFlag");
-- EndX11R6 X11R6.3

   pragma Import (C, Xt_Add_Exposure_To_Region, "XtAddExposureToRegion");
   pragma Import (C, Xt_Translate_Coords, "XtTranslateCoords");

   pragma Import (C, Xt_Last_Event_Processed, "XtLastEventProcessed");
   pragma Import (C, Xt_Last_Timestamp_Processed, "XtLastTimestampProcessed");

   pragma Import (C, Xt_Set_Language_Proc, "XtSetLanguageProc");


   c_const_Core_Widget_Class             : Widget_Class;
   c_const_Composite_Widget_Class        : Widget_Class;
   c_const_Constraint_Widget_Class       : Widget_Class;

   pragma Import (C, c_const_Core_Widget_Class, "coreWidgetClass");
   pragma Import (C, c_const_Composite_Widget_Class, "compositeWidgetClass");
   pragma Import (C, c_const_Constraint_Widget_Class, "constraintWidgetClass");

   Core_Widget_Class             : constant Widget_Class := c_const_Core_Widget_Class;
   Composite_Widget_Class        : constant Widget_Class := c_const_Composite_Widget_Class;
   Constraint_Widget_Class       : constant Widget_Class := c_const_Constraint_Widget_Class;


-- ----------------------------------------------------------------------------
--
-- resource strings
--
   Xt_N_Accelerators        : constant Xt_N_Resource_String := To_Resource_String ("accelerators");
   Xt_N_Ancestor_Sensitive  : constant Xt_N_Resource_String := To_Resource_String ("ancestorSensitive");
   Xt_N_Background          : constant Xt_N_Resource_String := To_Resource_String ("background");
   Xt_N_Background_Pixmap   : constant Xt_N_Resource_String := To_Resource_String ("backgroundPixmap");
   Xt_N_Border_Color        : constant Xt_N_Resource_String := To_Resource_String ("borderColor");
   Xt_N_Border_Pixmap       : constant Xt_N_Resource_String := To_Resource_String ("borderPixmap");
   Xt_N_Border_Width        : constant Xt_N_Resource_String := To_Resource_String ("borderWidth");
   Xt_N_Colormap            : constant Xt_N_Resource_String := To_Resource_String ("colormap");
   Xt_N_Depth               : constant Xt_N_Resource_String := To_Resource_String ("depth");
   Xt_N_Destroy_Callback    : constant Xt_N_Resource_String := To_Resource_String ("destroyCallback");
   Xt_N_Height              : constant Xt_N_Resource_String := To_Resource_String ("height");
   Xt_N_Initial_Resources_Persistent : constant Xt_N_Resource_String := To_Resource_String ("initialResourcesPersistent");
   Xt_N_Mapped_When_Managed : constant Xt_N_Resource_String := To_Resource_String ("mappedWhenManaged");
   Xt_N_Screen              : constant Xt_N_Resource_String := To_Resource_String ("screen");
   Xt_N_Sensitive           : constant Xt_N_Resource_String := To_Resource_String ("sensitive");
   Xt_N_Translations        : constant Xt_N_Resource_String := To_Resource_String ("translations");
   Xt_N_Width               : constant Xt_N_Resource_String := To_Resource_String ("width");
   Xt_N_X                   : constant Xt_N_Resource_String := To_Resource_String ("x"); 
   Xt_N_Y                   : constant Xt_N_Resource_String := To_Resource_String ("y");


   Xt_N_Children            : constant Xt_N_Resource_String := To_Resource_String ("children");
   Xt_N_Insert_Position     : constant Xt_N_Resource_String := To_Resource_String ("insertPosition");
   Xt_N_Num_Children        : constant Xt_N_Resource_String := To_Resource_String ("numChildren");


   Xt_N_Border              : constant Xt_N_Resource_String := To_Resource_String ("border");
   Xt_N_Bitmap              : constant Xt_N_Resource_String := To_Resource_String ("bitmap");
   Xt_N_Callback            : constant Xt_N_Resource_String := To_Resource_String ("callback");
   Xt_N_Edit_Type           : constant Xt_N_Resource_String := To_Resource_String ("editType");
   Xt_N_File                : constant Xt_N_Resource_String := To_Resource_String ("file");
   Xt_N_Font                : constant Xt_N_Resource_String := To_Resource_String ("font");
   Xt_N_Font_Set            : constant Xt_N_Resource_String := To_Resource_String ("fontSet");
   Xt_N_Force_Bars          : constant Xt_N_Resource_String := To_Resource_String ("forceBars");
   Xt_N_Foreground          : constant Xt_N_Resource_String := To_Resource_String ("foreground");
   Xt_N_Function            : constant Xt_N_Resource_String := To_Resource_String ("function");
   Xt_N_Highlight           : constant Xt_N_Resource_String := To_Resource_String ("highlight");
   Xt_N_Index               : constant Xt_N_Resource_String := To_Resource_String ("index");
   Xt_N_Inner_Height        : constant Xt_N_Resource_String := To_Resource_String ("innerHeight");
   Xt_N_Inner_Width         : constant Xt_N_Resource_String := To_Resource_String ("innerWidth");
   Xt_N_Inner_Window        : constant Xt_N_Resource_String := To_Resource_String ("innerWindow");
   Xt_N_Internal_Height     : constant Xt_N_Resource_String := To_Resource_String ("internalHeight");
   Xt_N_Internal_Width      : constant Xt_N_Resource_String := To_Resource_String ("internalWidth");
   Xt_N_Jump_Proc           : constant Xt_N_Resource_String := To_Resource_String ("jumpProc");
   Xt_N_Justify             : constant Xt_N_Resource_String := To_Resource_String ("justify");
   Xt_N_Length              : constant Xt_N_Resource_String := To_Resource_String ("length");
   Xt_N_Lower_Right         : constant Xt_N_Resource_String := To_Resource_String ("lowerRight");
   Xt_N_Menu_Entry          : constant Xt_N_Resource_String := To_Resource_String ("menuEntry");
   Xt_N_Name                : constant Xt_N_Resource_String := To_Resource_String ("name");
   Xt_N_Notify              : constant Xt_N_Resource_String := To_Resource_String ("notify");
   Xt_N_Orientation         : constant Xt_N_Resource_String := To_Resource_String ("orientation");
   Xt_N_Parameter           : constant Xt_N_Resource_String := To_Resource_String ("parameter");
   Xt_N_Pixmap              : constant Xt_N_Resource_String := To_Resource_String ("pixmap");
   Xt_N_Resize              : constant Xt_N_Resource_String := To_Resource_String ("resize");
   Xt_N_Reverse_Video       : constant Xt_N_Resource_String := To_Resource_String ("reverseVideo");
   Xt_N_Scroll_D_Cursor     : constant Xt_N_Resource_String := To_Resource_String ("scrollDCursor");
   Xt_N_Scroll_H_Cursor     : constant Xt_N_Resource_String := To_Resource_String ("scrollHCursor");
   Xt_N_Scroll_L_Cursor     : constant Xt_N_Resource_String := To_Resource_String ("scrollLCursor");
   Xt_N_Scroll_Proc         : constant Xt_N_Resource_String := To_Resource_String ("scrollProc");
   Xt_N_Scroll_R_Cursor     : constant Xt_N_Resource_String := To_Resource_String ("scrollRCursor");
   Xt_N_Scroll_U_Cursor     : constant Xt_N_Resource_String := To_Resource_String ("scrollUCursor");
   Xt_N_Scroll_V_Cursor     : constant Xt_N_Resource_String := To_Resource_String ("scrollVCursor");
   Xt_N_Selection           : constant Xt_N_Resource_String := To_Resource_String ("selection");
   Xt_N_Selection_Array     : constant Xt_N_Resource_String := To_Resource_String ("selectionArray");
   Xt_N_Shown               : constant Xt_N_Resource_String := To_Resource_String ("shown");
   Xt_N_Space               : constant Xt_N_Resource_String := To_Resource_String ("space");
   Xt_N_String              : constant Xt_N_Resource_String := To_Resource_String ("string");
   Xt_N_Text_Options        : constant Xt_N_Resource_String := To_Resource_String ("textOptions");
   Xt_N_Text_Sink           : constant Xt_N_Resource_String := To_Resource_String ("textSink");
   Xt_N_Text_Source         : constant Xt_N_Resource_String := To_Resource_String ("textSource");
   Xt_N_Thickness           : constant Xt_N_Resource_String := To_Resource_String ("thickness");
   Xt_N_Thumb               : constant Xt_N_Resource_String := To_Resource_String ("thumb");
   Xt_N_Thumb_Proc          : constant Xt_N_Resource_String := To_Resource_String ("thumbProc");
   Xt_N_Top                 : constant Xt_N_Resource_String := To_Resource_String ("top");
   Xt_N_Update              : constant Xt_N_Resource_String := To_Resource_String ("update");
   Xt_N_Use_Bottom          : constant Xt_N_Resource_String := To_Resource_String ("useBottom");
   Xt_N_Use_Right           : constant Xt_N_Resource_String := To_Resource_String ("useRight");
   Xt_N_Value               : constant Xt_N_Resource_String := To_Resource_String ("value");
   Xt_N_Window              : constant Xt_N_Resource_String := To_Resource_String ("window");

   -- -------------------------------------------------------------------------
   --
   -- resource strings for resources
   --
   Xt_R_Accelerator_Table   : constant Xt_R_Resource_String := To_Resource_String ("AcceleratorTable");
   Xt_R_Atom                : constant Xt_R_Resource_String := To_Resource_String ("Atom");
   Xt_R_Bitmap              : constant Xt_R_Resource_String := To_Resource_String ("Bitmap");
   Xt_R_Bool                : constant Xt_R_Resource_String := To_Resource_String ("Bool");
   Xt_R_Boolean             : constant Xt_R_Resource_String := To_Resource_String ("Boolean");
   Xt_R_Callback            : constant Xt_R_Resource_String := To_Resource_String ("Callback");
   Xt_R_Call_Proc           : constant Xt_R_Resource_String := To_Resource_String ("CallProc");
   Xt_R_Cardinal            : constant Xt_R_Resource_String := To_Resource_String ("Cardinal");
   Xt_R_Color               : constant Xt_R_Resource_String := To_Resource_String ("Color");
   Xt_R_Colormap            : constant Xt_R_Resource_String := To_Resource_String ("Colormap");
-- UseX11R6 X11R6.3
   Xt_R_Command_Arg_Array   : constant Xt_R_Resource_String := To_Resource_String ("CommandArgArray");
-- EndX11R6 X11R6.3
   Xt_R_Cursor              : constant Xt_R_Resource_String := To_Resource_String ("Cursor");
   Xt_R_Dimension           : constant Xt_R_Resource_String := To_Resource_String ("Dimension");
-- UseX11R6 X11R6.3
   Xt_R_Directory_String    : constant Xt_R_Resource_String := To_Resource_String ("DirectoryString");
-- EndX11R6 X11R6.3
   Xt_R_Display             : constant Xt_R_Resource_String := To_Resource_String ("Display");
   Xt_R_Edit_Mode           : constant Xt_R_Resource_String := To_Resource_String ("EditMode");
   Xt_R_Enum                : constant Xt_R_Resource_String := To_Resource_String ("Enum");
-- UseX11R6 X11R6.3
   Xt_R_Environment_Array   : constant Xt_R_Resource_String := To_Resource_String ("EnvironmentArray");
-- EndX11R6 X11R6.3
   Xt_R_File                : constant Xt_R_Resource_String := To_Resource_String ("File");
   Xt_R_Float               : constant Xt_R_Resource_String := To_Resource_String ("Float");
   Xt_R_Font                : constant Xt_R_Resource_String := To_Resource_String ("Font");
   Xt_R_Font_Set            : constant Xt_R_Resource_String := To_Resource_String ("FontSet");
   Xt_R_Font_Struct         : constant Xt_R_Resource_String := To_Resource_String ("FontStruct");
   Xt_R_Function            : constant Xt_R_Resource_String := To_Resource_String ("Function");
   Xt_R_Geometry            : constant Xt_R_Resource_String := To_Resource_String ("Geometry");
   Xt_R_Gravity             : constant Xt_R_Resource_String := To_Resource_String ("Gravity");
   Xt_R_Immediate           : constant Xt_R_Resource_String := To_Resource_String ("Immediate");
   Xt_R_Initial_State       : constant Xt_R_Resource_String := To_Resource_String ("InitialState");
   Xt_R_Int                 : constant Xt_R_Resource_String := To_Resource_String ("Int");
   Xt_R_Justify             : constant Xt_R_Resource_String := To_Resource_String ("Justify");
   Xt_R_Object              : constant Xt_R_Resource_String := To_Resource_String ("Object");
   Xt_R_Orientation         : constant Xt_R_Resource_String := To_Resource_String ("Orientation");
   Xt_R_Pixel               : constant Xt_R_Resource_String := To_Resource_String ("Pixel");
   Xt_R_Pixmap              : constant Xt_R_Resource_String := To_Resource_String ("Pixmap");
   Xt_R_Pointer             : constant Xt_R_Resource_String := To_Resource_String ("Pointer");
   Xt_R_Position            : constant Xt_R_Resource_String := To_Resource_String ("Position");
-- UseX11R6 X11R6.3
   Xt_R_Restart_Style       : constant Xt_R_Resource_String := To_Resource_String ("RestartStyle");
-- EndX11R6 X11R6.3
   Xt_R_Screen              : constant Xt_R_Resource_String := To_Resource_String ("Screen");
   Xt_R_Short               : constant Xt_R_Resource_String := To_Resource_String ("Short");
-- UseX11R6 X11R6.3
   Xt_R_Smc_Conn            : constant Xt_R_Resource_String := To_Resource_String ("SmcConn");
-- EndX11R6 X11R6.3
   Xt_R_String              : constant Xt_R_Resource_String := To_Resource_String ("String");
   Xt_R_String_Array        : constant Xt_R_Resource_String := To_Resource_String ("StringArray");
   Xt_R_String_Table        : constant Xt_R_Resource_String := To_Resource_String ("StringTable");
   Xt_R_Unsigned_Char       : constant Xt_R_Resource_String := To_Resource_String ("UnsignedChar");
   Xt_R_Translation_Table   : constant Xt_R_Resource_String := To_Resource_String ("TranslationTable");
   Xt_R_Visual              : constant Xt_R_Resource_String := To_Resource_String ("Visual");
   Xt_R_Widget              : constant Xt_R_Resource_String := To_Resource_String ("Widget");
   Xt_R_Widget_Class        : constant Xt_R_Resource_String := To_Resource_String ("WidgetClass");
   Xt_R_Widget_List         : constant Xt_R_Resource_String := To_Resource_String ("WidgetList");
   Xt_R_Window              : constant Xt_R_Resource_String := To_Resource_String ("Window");

end X_Toolkit;