Browse Source

+ OS/2 support for GTK and X11 added by Yuri

Tomas Hajny 22 years ago
parent
commit
f0f68d6376

+ 4 - 1
packages/extra/Makefile

@@ -213,7 +213,7 @@ ifeq ($(OS_TARGET),win32)
 override TARGET_DIRS+=unzip uncgi opengl gtk zlib mmsystem tcl cdrom fpgtk
 override TARGET_DIRS+=unzip uncgi opengl gtk zlib mmsystem tcl cdrom fpgtk
 endif
 endif
 ifeq ($(OS_TARGET),os2)
 ifeq ($(OS_TARGET),os2)
-override TARGET_DIRS+=unzip uncgi zlib os2units rexx
+override TARGET_DIRS+=unzip uncgi zlib os2units rexx x11 gtk fpgtk
 endif
 endif
 ifeq ($(OS_TARGET),freebsd)
 ifeq ($(OS_TARGET),freebsd)
 override TARGET_DIRS+=unzip uncgi fpasync x11 opengl gtk syslog forms svgalib ggi libpng libgd utmp cmem bfd zlib gdbm ncurses fpgtk
 override TARGET_DIRS+=unzip uncgi fpasync x11 opengl gtk syslog forms svgalib ggi libpng libgd utmp cmem bfd zlib gdbm ncurses fpgtk
@@ -1100,6 +1100,9 @@ TARGET_DIRS_UNCGI=1
 TARGET_DIRS_ZLIB=1
 TARGET_DIRS_ZLIB=1
 TARGET_DIRS_OS2UNITS=1
 TARGET_DIRS_OS2UNITS=1
 TARGET_DIRS_REXX=1
 TARGET_DIRS_REXX=1
+TARGET_DIRS_X11=1
+TARGET_DIRS_GTK=1
+TARGET_DIRS_FPGTK=1
 endif
 endif
 ifeq ($(OS_TARGET),freebsd)
 ifeq ($(OS_TARGET),freebsd)
 TARGET_DIRS_UNZIP=1
 TARGET_DIRS_UNZIP=1

+ 1 - 1
packages/extra/Makefile.fpc

@@ -21,7 +21,7 @@ dirs_openbsd=unzip uncgi fpasync \
              utmp cmem bfd zlib gdbm ncurses fpgtk
              utmp cmem bfd zlib gdbm ncurses fpgtk
 dirs_win32=unzip uncgi opengl gtk \
 dirs_win32=unzip uncgi opengl gtk \
            zlib mmsystem tcl cdrom fpgtk
            zlib mmsystem tcl cdrom fpgtk
-dirs_os2=unzip uncgi zlib os2units rexx
+dirs_os2=unzip uncgi zlib os2units rexx x11 gtk fpgtk
 dirs_go32v2=unzip uncgi
 dirs_go32v2=unzip uncgi
 
 
 [install]
 [install]

+ 20 - 9
packages/extra/gtk/gdk/gdk.pp

@@ -41,16 +41,24 @@ uses
 
 
   {$packrecords C}
   {$packrecords C}
 {$else}
 {$else}
-  const
-  {$ifdef BSD}
-    gdkdll='gdk12';
+  {$ifdef os2}
+    const
+      gdkdll='gdk12';
+    {$define gtkos2}
+
+    {$packrecords C}
   {$else}
   {$else}
-    gdkdll='gdk';
+    const
+    {$ifdef BSD}
+      gdkdll='gdk12';
+    {$else}
+      gdkdll='gdk';
+    {$endif}
+    {$linklib c}
+    {$linklib X11}
+
+    {$packrecords C}
   {$endif}
   {$endif}
-  {$linklib c}
-  {$linklib X11}
-
-  {$packrecords C}
 {$endif}
 {$endif}
 
 
 Type
 Type
@@ -90,7 +98,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.3  2002-09-07 15:42:58  peter
+  Revision 1.4  2003-03-02 02:08:50  hajny
+    + OS/2 support for GTK and X11 added by Yuri
+
+  Revision 1.3  2002/09/07 15:42:58  peter
     * old logs removed and tabs fixed
     * old logs removed and tabs fixed
 
 
   Revision 1.2  2002/08/31 04:16:48  marco
   Revision 1.2  2002/08/31 04:16:48  marco

+ 6 - 1
packages/extra/gtk/gdk/gdkmain.pp

@@ -373,8 +373,10 @@ function  gdk_keyval_to_upper(keyval:guint):guint;cdecl;external gdkdll name 'gd
 function  gdk_keyval_to_lower(keyval:guint):guint;cdecl;external gdkdll name 'gdk_keyval_to_lower';
 function  gdk_keyval_to_lower(keyval:guint):guint;cdecl;external gdkdll name 'gdk_keyval_to_lower';
 function  gdk_keyval_is_upper(keyval:guint):gboolean;cdecl;external gdkdll name 'gdk_keyval_is_upper';
 function  gdk_keyval_is_upper(keyval:guint):gboolean;cdecl;external gdkdll name 'gdk_keyval_is_upper';
 function  gdk_keyval_is_lower(keyval:guint):gboolean;cdecl;external gdkdll name 'gdk_keyval_is_lower';
 function  gdk_keyval_is_lower(keyval:guint):gboolean;cdecl;external gdkdll name 'gdk_keyval_is_lower';
+{$ifndef gtkos2}
 var
 var
   gdk_threads_mutex : PGMutex;external gdkdll name 'gdk_threads_mutex';
   gdk_threads_mutex : PGMutex;external gdkdll name 'gdk_threads_mutex';
+{$endif}
 procedure gdk_threads_enter;cdecl;external gdkdll name 'gdk_threads_enter';
 procedure gdk_threads_enter;cdecl;external gdkdll name 'gdk_threads_enter';
 procedure gdk_threads_leave;cdecl;external gdkdll name 'gdk_threads_leave';
 procedure gdk_threads_leave;cdecl;external gdkdll name 'gdk_threads_leave';
 
 
@@ -389,7 +391,10 @@ procedure gdk_threads_leave;cdecl;external gdkdll name 'gdk_threads_leave';
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2002-09-07 15:42:58  peter
+  Revision 1.3  2003-03-02 02:08:50  hajny
+    + OS/2 support for GTK and X11 added by Yuri
+
+  Revision 1.2  2002/09/07 15:42:58  peter
     * old logs removed and tabs fixed
     * old logs removed and tabs fixed
 
 
   Revision 1.1  2002/01/29 17:55:07  peter
   Revision 1.1  2002/01/29 17:55:07  peter

+ 9 - 1
packages/extra/gtk/gdk/gdkpixbuf.pp

@@ -29,6 +29,7 @@
 unit gdkpixbuf;
 unit gdkpixbuf;
 
 
 interface
 interface
+{$ifndef os2}
 
 
 {$Ifdef FPC}
 {$Ifdef FPC}
   {$PACKRECORDS C}
   {$PACKRECORDS C}
@@ -389,7 +390,9 @@ Type
   Function gnome_canvas_pixbuf_get_type : PGtkType; cdecl; external libgdkpixbuf name 'gnome_canvas_pixbuf_get_type';
   Function gnome_canvas_pixbuf_get_type : PGtkType; cdecl; external libgdkpixbuf name 'gnome_canvas_pixbuf_get_type';
 {$EndIf}
 {$EndIf}
 
 
+{$endif os2}
 implementation
 implementation
+{$ifndef os2}
 
 
 {$Ifdef FPC}
 {$Ifdef FPC}
 { There is a bug in the compiler. If an external variable is not used, it will
 { There is a bug in the compiler. If an external variable is not used, it will
@@ -432,10 +435,15 @@ end;
   end;
   end;
 {$EndIf}
 {$EndIf}
 
 
+{$endif os2}
 end.
 end.
+
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2002-09-07 15:42:58  peter
+  Revision 1.3  2003-03-02 02:08:50  hajny
+    + OS/2 support for GTK and X11 added by Yuri
+
+  Revision 1.2  2002/09/07 15:42:58  peter
     * old logs removed and tabs fixed
     * old logs removed and tabs fixed
 
 
   Revision 1.1  2002/08/13 07:36:27  michael
   Revision 1.1  2002/08/13 07:36:27  michael

+ 6 - 1
packages/extra/gtk/gdk/gdkprivate.pp

@@ -221,6 +221,7 @@ procedure gdk_dnd_display_drag_cursor(x:gint; y:gint; drag_ok:gboolean; change_m
 function  gdk_window_xid_at(base:TWindow; bx:gint; by:gint; x:gint; y:gint; excludes:PGList; excl_child:gboolean):TWindow;cdecl;external gdkdll name 'gdk_window_xid_at';
 function  gdk_window_xid_at(base:TWindow; bx:gint; by:gint; x:gint; y:gint; excludes:PGList; excl_child:gboolean):TWindow;cdecl;external gdkdll name 'gdk_window_xid_at';
 function  gdk_window_xid_at_coords(x:gint; y:gint; excludes:PGList; excl_child:gboolean):TWindow;cdecl;external gdkdll name 'gdk_window_xid_at_coords';
 function  gdk_window_xid_at_coords(x:gint; y:gint; excludes:PGList; excl_child:gboolean):TWindow;cdecl;external gdkdll name 'gdk_window_xid_at_coords';
 
 
+{$ifndef os2}
     var
     var
        gdk_use_xshm : gint;external gdkdll name 'gdk_use_xshm';
        gdk_use_xshm : gint;external gdkdll name 'gdk_use_xshm';
        gdk_display_name : Pgchar;external gdkdll name 'gdk_display_name';
        gdk_display_name : Pgchar;external gdkdll name 'gdk_display_name';
@@ -241,6 +242,7 @@ function  gdk_window_xid_at_coords(x:gint; y:gint; excludes:PGList; excl_child:g
        gdk_default_filters : PGList;external gdkdll name 'gdk_default_filters';
        gdk_default_filters : PGList;external gdkdll name 'gdk_default_filters';
        gdk_nevent_masks : longint;external gdkdll name 'gdk_nevent_masks';
        gdk_nevent_masks : longint;external gdkdll name 'gdk_nevent_masks';
        gdk_xgrab_window : PGdkWindowPrivate;external gdkdll name 'gdk_xgrab_window';
        gdk_xgrab_window : PGdkWindowPrivate;external gdkdll name 'gdk_xgrab_window';
+{$endif}
 
 
 {$ifdef USE_XIM}
 {$ifdef USE_XIM}
 function  gdk_im_open:gint;cdecl;external gdkdll name 'gdk_im_open';
 function  gdk_im_open:gint;cdecl;external gdkdll name 'gdk_im_open';
@@ -315,7 +317,10 @@ function  GDK_font_lookup(xid : longint) : PGdkFont;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2002-09-07 15:42:58  peter
+  Revision 1.3  2003-03-02 02:08:50  hajny
+    + OS/2 support for GTK and X11 added by Yuri
+
+  Revision 1.2  2002/09/07 15:42:58  peter
     * old logs removed and tabs fixed
     * old logs removed and tabs fixed
 
 
   Revision 1.1  2002/01/29 17:55:07  peter
   Revision 1.1  2002/01/29 17:55:07  peter

+ 8 - 1
packages/extra/gtk/gdk/gdkx.pp

@@ -9,6 +9,7 @@
 {$ifdef read_interface}
 {$ifdef read_interface}
 
 
 {$ifndef gtkwin}
 {$ifndef gtkwin}
+  {$ifndef gtkos2}
 function  GDK_GET_ROOT_WINDOW : PGdkWindow;
 function  GDK_GET_ROOT_WINDOW : PGdkWindow;
 function  GDK_GET_ROOT_PARENT : PGdkWindow;
 function  GDK_GET_ROOT_PARENT : PGdkWindow;
 function  GDK_GET_XDISPLAY : PDisplay;
 function  GDK_GET_XDISPLAY : PDisplay;
@@ -29,6 +30,7 @@ function  gdkx_colormap_get(xcolormap:TColormap):PGdkColormap;cdecl;external gdk
 function  gdk_get_client_window(dpy:pDisplay; win:TWindow):TWindow;cdecl;external gdkdll name 'gdk_get_client_window';
 function  gdk_get_client_window(dpy:pDisplay; win:TWindow):TWindow;cdecl;external gdkdll name 'gdk_get_client_window';
 function  gdk_pixmap_foreign_new(anid:guint32):PGdkPixmap;cdecl;external gdkdll name 'gdk_pixmap_foreign_new';
 function  gdk_pixmap_foreign_new(anid:guint32):PGdkPixmap;cdecl;external gdkdll name 'gdk_pixmap_foreign_new';
 function  gdk_window_foreign_new(anid:guint32):PGdkWindow;cdecl;external gdkdll name 'gdk_window_foreign_new';
 function  gdk_window_foreign_new(anid:guint32):PGdkWindow;cdecl;external gdkdll name 'gdk_window_foreign_new';
+  {$endif}
 {$endif}
 {$endif}
 
 
 {$endif read_interface}
 {$endif read_interface}
@@ -41,6 +43,7 @@ function  gdk_window_foreign_new(anid:guint32):PGdkWindow;cdecl;external gdkdll
 {$ifdef read_implementation}
 {$ifdef read_implementation}
 
 
 {$ifndef gtkwin}
 {$ifndef gtkwin}
+  {$ifndef gtkos2}
 function  GDK_GET_ROOT_WINDOW : PGdkWindow;
 function  GDK_GET_ROOT_WINDOW : PGdkWindow;
     begin
     begin
        GDK_GET_ROOT_WINDOW:=PGdkwindow(gdk_root_window);
        GDK_GET_ROOT_WINDOW:=PGdkwindow(gdk_root_window);
@@ -111,6 +114,7 @@ function  GDK_FONT_XFONT(font : PGdkFontPrivate) : gpointer;
        GDK_FONT_XFONT:=(PGdkFontPrivate(font))^.xfont;
        GDK_FONT_XFONT:=(PGdkFontPrivate(font))^.xfont;
     end;
     end;
 
 
+  {$endif}
 {$endif}
 {$endif}
 
 
 {$endif read_implementation}
 {$endif read_implementation}
@@ -118,7 +122,10 @@ function  GDK_FONT_XFONT(font : PGdkFontPrivate) : gpointer;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2002-09-07 15:42:58  peter
+  Revision 1.3  2003-03-02 02:08:50  hajny
+    + OS/2 support for GTK and X11 added by Yuri
+
+  Revision 1.2  2002/09/07 15:42:58  peter
     * old logs removed and tabs fixed
     * old logs removed and tabs fixed
 
 
   Revision 1.1  2002/01/29 17:55:08  peter
   Revision 1.1  2002/01/29 17:55:08  peter

+ 24 - 9
packages/extra/gtk/glib/glib.pp

@@ -37,15 +37,23 @@ interface
 
 
   {$packrecords C}
   {$packrecords C}
 {$else}
 {$else}
-  const
-   {$ifdef BSD}
-    glibdll='glib12';
-   {$else}
-    glibdll='glib';
-   {$endif}
-  {$linklib c}
+  {$ifdef os2}
+    const
+      glibdll='glib12';
+    {$define gtkos2}
 
 
-  {$packrecords C}
+    {$packrecords C}
+  {$else}
+    const
+     {$ifdef BSD}
+      glibdll='glib12';
+     {$else}
+      glibdll='glib';
+     {$endif}
+    {$linklib c}
+
+    {$packrecords C}
+  {$endif}
 {$endif}
 {$endif}
 
 
 { Pointers to basic pascal types, inserted by h2pas conversion program.}
 { Pointers to basic pascal types, inserted by h2pas conversion program.}
@@ -121,12 +129,14 @@ type
    TGQuark = guint32;
    TGQuark = guint32;
    TGTime = gint32;
    TGTime = gint32;
 
 
+{$ifndef gtkos2}
 var
 var
    glib_major_version : guint;external glibdll name 'glib_major_version';
    glib_major_version : guint;external glibdll name 'glib_major_version';
    glib_minor_version : guint;external glibdll name 'glib_minor_version';
    glib_minor_version : guint;external glibdll name 'glib_minor_version';
    glib_micro_version : guint;external glibdll name 'glib_micro_version';
    glib_micro_version : guint;external glibdll name 'glib_micro_version';
    glib_interface_age : guint;external glibdll name 'glib_interface_age';
    glib_interface_age : guint;external glibdll name 'glib_interface_age';
    glib_binary_age : guint;external glibdll name 'glib_binary_age';
    glib_binary_age : guint;external glibdll name 'glib_binary_age';
+{$endif}
 
 
 type
 type
    PGList = ^TGList;
    PGList = ^TGList;
@@ -641,8 +651,10 @@ procedure g_on_error_query(prg_name:Pgchar);cdecl;external glibdll name 'g_on_er
 procedure g_on_error_stack_trace(prg_name:Pgchar);cdecl;external glibdll name 'g_on_error_stack_trace';
 procedure g_on_error_stack_trace(prg_name:Pgchar);cdecl;external glibdll name 'g_on_error_stack_trace';
 
 
 {$ifndef gtkwin}
 {$ifndef gtkwin}
+  {$ifndef gtkos2}
 var
 var
   g_log_domain_glib : Pgchar;external glibdll name 'g_log_domain_glib';
   g_log_domain_glib : Pgchar;external glibdll name 'g_log_domain_glib';
+  {$endif}
 {$endif}
 {$endif}
 
 
 function  g_log_set_handler(log_domain:Pgchar; log_levels:TGLogLevelFlags; log_func:TGLogFunc; user_data:gpointer):guint;cdecl;external glibdll name 'g_log_set_handler';
 function  g_log_set_handler(log_domain:Pgchar; log_levels:TGLogLevelFlags; log_func:TGLogFunc; user_data:gpointer):guint;cdecl;external glibdll name 'g_log_set_handler';
@@ -1654,7 +1666,10 @@ procedure set_year(var a : TGDate; __year : guint);
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.3  2002-09-07 15:42:58  peter
+  Revision 1.4  2003-03-02 02:10:19  hajny
+    + OS/2 support for GTK and X11 added by Yuri
+
+  Revision 1.3  2002/09/07 15:42:58  peter
     * old logs removed and tabs fixed
     * old logs removed and tabs fixed
 
 
   Revision 1.2  2002/08/31 04:16:48  marco
   Revision 1.2  2002/08/31 04:16:48  marco

+ 17 - 4
packages/extra/gtk/glib/gmodule.pp

@@ -40,14 +40,24 @@ uses
 
 
   {$packrecords C}
   {$packrecords C}
 {$else}
 {$else}
-  const
-    gmoduledll='gmodule';
+  {$ifdef os2}
+    const
+      gmoduledll='gmodule';
+    {$define gtkos2}
 
 
-  {$packrecords C}
+    {$packrecords C}
+  {$else}
+    const
+      gmoduledll='gmodule';
+
+    {$packrecords C}
+  {$endif}
 {$endif}
 {$endif}
 
 
+{$ifndef gtkos2}
     var
     var
        g_log_domain_gmodule : Pgchar;external gmoduledll name 'g_log_domain_gmodule';
        g_log_domain_gmodule : Pgchar;external gmoduledll name 'g_log_domain_gmodule';
+{$endif}
 
 
     type
     type
        PGModule=pointer;
        PGModule=pointer;
@@ -76,7 +86,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2002-09-07 15:42:59  peter
+  Revision 1.3  2003-03-02 02:10:19  hajny
+    + OS/2 support for GTK and X11 added by Yuri
+
+  Revision 1.2  2002/09/07 15:42:59  peter
     * old logs removed and tabs fixed
     * old logs removed and tabs fixed
 
 
   Revision 1.1  2002/01/29 17:55:08  peter
   Revision 1.1  2002/01/29 17:55:08  peter

+ 23 - 12
packages/extra/gtk/gtk/gtk.pp

@@ -41,19 +41,27 @@ uses
 
 
   {$packrecords c}
   {$packrecords c}
 {$else}
 {$else}
-  const
-  {$ifdef BSD}
-    gtkdll='gtk12';
+  {$ifdef os2}
+    const
+      gtkdll='gtk12';
+    {$define gtkos2}
+
+    {$packrecords c}
   {$else}
   {$else}
-    gtkdll='gtk';
+    const
+    {$ifdef BSD}
+      gtkdll='gtk12';
+    {$else}
+      gtkdll='gtk';
+    {$endif}
+    {$linklib c}
+    {$linklib Xi}
+    {$linklib Xext}
+    {$linklib X11}
+    {$linklib m}
+
+    {$packrecords C}
   {$endif}
   {$endif}
-  {$linklib c}
-  {$linklib Xi}
-  {$linklib Xext}
-  {$linklib X11}
-  {$linklib m}
-
-  {$packrecords C}
 {$endif}
 {$endif}
 
 
 Type
 Type
@@ -82,7 +90,10 @@ Type
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.3  2002-09-07 15:42:59  peter
+  Revision 1.4  2003-03-02 02:11:10  hajny
+    + OS/2 support for GTK and X11 added by Yuri
+
+  Revision 1.3  2002/09/07 15:42:59  peter
     * old logs removed and tabs fixed
     * old logs removed and tabs fixed
 
 
   Revision 1.2  2002/08/31 04:16:48  marco
   Revision 1.2  2002/08/31 04:16:48  marco

+ 6 - 1
packages/extra/gtk/gtk/gtkmain.pp

@@ -21,12 +21,14 @@
      TGtkModuleInitFunc = procedure (argc:Pgint; argv:pPPgchar);cdecl;
      TGtkModuleInitFunc = procedure (argc:Pgint; argv:pPPgchar);cdecl;
      TGtkKeySnoopFunc = function (grab_widget:PGtkWidget;event:PGdkEventKey;func_data:gpointer):gint;cdecl;
      TGtkKeySnoopFunc = function (grab_widget:PGtkWidget;event:PGdkEventKey;func_data:gpointer):gint;cdecl;
 
 
+{$ifndef gtkos2}
     var
     var
        gtk_major_version : guint;external gtkdll name 'gtk_major_version';
        gtk_major_version : guint;external gtkdll name 'gtk_major_version';
        gtk_minor_version : guint;external gtkdll name 'gtk_minor_version';
        gtk_minor_version : guint;external gtkdll name 'gtk_minor_version';
        gtk_micro_version : guint;external gtkdll name 'gtk_micro_version';
        gtk_micro_version : guint;external gtkdll name 'gtk_micro_version';
        gtk_binary_age : guint;external gtkdll name 'gtk_binary_age';
        gtk_binary_age : guint;external gtkdll name 'gtk_binary_age';
        gtk_interface_age : guint;external gtkdll name 'gtk_interface_age';
        gtk_interface_age : guint;external gtkdll name 'gtk_interface_age';
+{$endif}
 
 
 function  gtk_check_gtkversion(required_major:guint; required_minor:guint; required_micro:guint):Pgchar;cdecl;external gtkdll name 'gtk_check_version';
 function  gtk_check_gtkversion(required_major:guint; required_minor:guint; required_micro:guint):Pgchar;cdecl;external gtkdll name 'gtk_check_version';
 procedure gtk_init(argc:plongint; argv:pppchar);cdecl;external gtkdll name 'gtk_init';
 procedure gtk_init(argc:plongint; argv:pppchar);cdecl;external gtkdll name 'gtk_init';
@@ -82,7 +84,10 @@ procedure gtk_propagate_event(widget:PGtkWidget; event:PGdkEvent);cdecl;external
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2002-09-07 15:42:59  peter
+  Revision 1.3  2003-03-02 02:11:10  hajny
+    + OS/2 support for GTK and X11 added by Yuri
+
+  Revision 1.2  2002/09/07 15:42:59  peter
     * old logs removed and tabs fixed
     * old logs removed and tabs fixed
 
 
   Revision 1.1  2002/01/29 17:55:12  peter
   Revision 1.1  2002/01/29 17:55:12  peter

+ 8 - 3
packages/extra/gtk/gtkgl/gtkglarea.pp

@@ -29,6 +29,7 @@ unit gtkglarea;
 {$PACKRECORDS C}
 {$PACKRECORDS C}
 
 
 interface
 interface
+{$ifndef os2}
 
 
 uses
 uses
   GDK, GTK, GL;
   GDK, GTK, GL;
@@ -151,8 +152,9 @@ function  gtk_gl_area_new_vargs(share: PGtkGLArea; args: array of const): PGtkWi
 function  gtk_gl_area_make_current(glarea: PGtkGLArea): Integer; cdecl; external libgtkgl;
 function  gtk_gl_area_make_current(glarea: PGtkGLArea): Integer; cdecl; external libgtkgl;
 procedure gtk_gl_area_swapbuffers(glarea: PGtkGLArea); cdecl; external libgtkgl;
 procedure gtk_gl_area_swapbuffers(glarea: PGtkGLArea); cdecl; external libgtkgl;
 
 
-
+{$endif os2}
 implementation
 implementation
+{$ifndef os2}
 
 
 
 
 function GTK_IS_GL_AREA(obj: Pointer): Boolean;
 function GTK_IS_GL_AREA(obj: Pointer): Boolean;
@@ -165,11 +167,14 @@ begin
   Result := Assigned(klass) and (PGtkTypeClass(klass)^.thetype = GTK_TYPE_GL_AREA);
   Result := Assigned(klass) and (PGtkTypeClass(klass)^.thetype = GTK_TYPE_GL_AREA);
 end;
 end;
 
 
-
+{$endif os2}
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2002-09-07 15:43:00  peter
+  Revision 1.3  2003-03-02 02:11:55  hajny
+    + OS/2 support for GTK and X11 added by Yuri
+
+  Revision 1.2  2002/09/07 15:43:00  peter
     * old logs removed and tabs fixed
     * old logs removed and tabs fixed
 
 
   Revision 1.1  2002/01/29 17:55:16  peter
   Revision 1.1  2002/01/29 17:55:16  peter

+ 4 - 2
packages/extra/x11/x.pp

@@ -1,8 +1,10 @@
 unit x;
 unit x;
 interface
 interface
 
 
-{$LinkLib c}
-{$LinkLib X11}
+{$ifndef os2}
+  {$LinkLib c}
+  {$LinkLib X11}
+{$endif}
 
 
 {
 {
   Automatically converted by H2Pas 0.99.15 from x.h
   Automatically converted by H2Pas 0.99.15 from x.h

+ 77 - 70
packages/extra/x11/xcms.pp

@@ -3,8 +3,15 @@ interface
 uses
 uses
   x,xlib;
   x,xlib;
 
 
-{$LinkLib c}
-{$LinkLib X11}
+{$ifndef os2}
+  {$LinkLib c}
+  {$LinkLib X11}
+const
+  libX11='X11';
+{$else}
+const
+  libX11='X11';
+{$endif}
 
 
 {
 {
   Automatically converted by H2Pas 0.99.15 from xcms.h
   Automatically converted by H2Pas 0.99.15 from xcms.h
@@ -213,80 +220,80 @@ type
 extern Status XcmsAddColorSpace (
 extern Status XcmsAddColorSpace (
 in declaration at line 323 *)
 in declaration at line 323 *)
 
 
-function XcmsAddFunctionSet(para1:PXcmsFunctionSet):TStatus;cdecl;external;
-function XcmsAllocColor(para1:PDisplay; para2:TColormap; para3:PXcmsColor; para4:TXcmsColorFormat):TStatus;cdecl;external;
+function XcmsAddFunctionSet(para1:PXcmsFunctionSet):TStatus;cdecl;external libX11;
+function XcmsAllocColor(para1:PDisplay; para2:TColormap; para3:PXcmsColor; para4:TXcmsColorFormat):TStatus;cdecl;external libX11;
 function XcmsAllocNamedColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXcmsColor; para5:PXcmsColor;
 function XcmsAllocNamedColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXcmsColor; para5:PXcmsColor;
-               para6:TXcmsColorFormat):TStatus;cdecl;external;
-function XcmsCCCOfColormap(para1:PDisplay; para2:TColormap):TXcmsCCC;cdecl;external;
-function XcmsCIELabClipab(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external;
-function XcmsCIELabClipL(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external;
-function XcmsCIELabClipLab(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external;
-function XcmsCIELabQueryMaxC(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external;
-function XcmsCIELabQueryMaxL(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external;
-function XcmsCIELabQueryMaxLC(para1:TXcmsCCC; para2:TXcmsFloat; para3:PXcmsColor):TStatus;cdecl;external;
-function XcmsCIELabQueryMinL(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external;
-function XcmsCIELabToCIEXYZ(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external;
+               para6:TXcmsColorFormat):TStatus;cdecl;external libX11;
+function XcmsCCCOfColormap(para1:PDisplay; para2:TColormap):TXcmsCCC;cdecl;external libX11;
+function XcmsCIELabClipab(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external libX11;
+function XcmsCIELabClipL(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external libX11;
+function XcmsCIELabClipLab(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external libX11;
+function XcmsCIELabQueryMaxC(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsCIELabQueryMaxL(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsCIELabQueryMaxLC(para1:TXcmsCCC; para2:TXcmsFloat; para3:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsCIELabQueryMinL(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsCIELabToCIEXYZ(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external libX11;
 function XcmsCIELabWhiteShiftColors(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:TXcmsColorFormat; para5:PXcmsColor;
 function XcmsCIELabWhiteShiftColors(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:TXcmsColorFormat; para5:PXcmsColor;
-               para6:dword; para7:PBool):TStatus;cdecl;external;
-function XcmsCIELuvClipL(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external;
-function XcmsCIELuvClipLuv(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external;
-function XcmsCIELuvClipuv(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external;
-function XcmsCIELuvQueryMaxC(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external;
-function XcmsCIELuvQueryMaxL(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external;
-function XcmsCIELuvQueryMaxLC(para1:TXcmsCCC; para2:TXcmsFloat; para3:PXcmsColor):TStatus;cdecl;external;
-function XcmsCIELuvQueryMinL(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external;
-function XcmsCIELuvToCIEuvY(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external;
+               para6:dword; para7:PBool):TStatus;cdecl;external libX11;
+function XcmsCIELuvClipL(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external libX11;
+function XcmsCIELuvClipLuv(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external libX11;
+function XcmsCIELuvClipuv(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external libX11;
+function XcmsCIELuvQueryMaxC(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsCIELuvQueryMaxL(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsCIELuvQueryMaxLC(para1:TXcmsCCC; para2:TXcmsFloat; para3:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsCIELuvQueryMinL(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsCIELuvToCIEuvY(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external libX11;
 function XcmsCIELuvWhiteShiftColors(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:TXcmsColorFormat; para5:PXcmsColor;
 function XcmsCIELuvWhiteShiftColors(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:TXcmsColorFormat; para5:PXcmsColor;
-               para6:dword; para7:PBool):TStatus;cdecl;external;
-function XcmsCIEXYZToCIELab(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external;
-function XcmsCIEXYZToCIEuvY(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external;
-function XcmsCIEXYZToCIExyY(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external;
-function XcmsCIEXYZToRGBi(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:PBool):TStatus;cdecl;external;
-function XcmsCIEuvYToCIELuv(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external;
-function XcmsCIEuvYToCIEXYZ(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external;
-function XcmsCIEuvYToTekHVC(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external;
-function XcmsCIExyYToCIEXYZ(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external;
-function XcmsClientWhitePointOfCCC(para1:TXcmsCCC):PXcmsColor;cdecl;external;
-function XcmsConvertColors(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:TXcmsColorFormat; para5:PBool):TStatus;cdecl;external;
+               para6:dword; para7:PBool):TStatus;cdecl;external libX11;
+function XcmsCIEXYZToCIELab(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external libX11;
+function XcmsCIEXYZToCIEuvY(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external libX11;
+function XcmsCIEXYZToCIExyY(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external libX11;
+function XcmsCIEXYZToRGBi(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:PBool):TStatus;cdecl;external libX11;
+function XcmsCIEuvYToCIELuv(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external libX11;
+function XcmsCIEuvYToCIEXYZ(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external libX11;
+function XcmsCIEuvYToTekHVC(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external libX11;
+function XcmsCIExyYToCIEXYZ(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external libX11;
+function XcmsClientWhitePointOfCCC(para1:TXcmsCCC):PXcmsColor;cdecl;external libX11;
+function XcmsConvertColors(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:TXcmsColorFormat; para5:PBool):TStatus;cdecl;external libX11;
 function XcmsCreateCCC(para1:PDisplay; para2:longint; para3:PVisual; para4:PXcmsColor; para5:TXcmsCompressionProc;
 function XcmsCreateCCC(para1:PDisplay; para2:longint; para3:PVisual; para4:PXcmsColor; para5:TXcmsCompressionProc;
-               para6:TXPointer; para7:TXcmsWhiteAdjustProc; para8:TXPointer):TXcmsCCC;cdecl;external;
-function XcmsDefaultCCC(para1:PDisplay; para2:longint):TXcmsCCC;cdecl;external;
-function XcmsDisplayOfCCC(para1:TXcmsCCC):PDisplay;cdecl;external;
-function XcmsFormatOfPrefix(para1:Pchar):TXcmsColorFormat;cdecl;external;
-procedure XcmsFreeCCC(para1:TXcmsCCC);cdecl;external;
+               para6:TXPointer; para7:TXcmsWhiteAdjustProc; para8:TXPointer):TXcmsCCC;cdecl;external libX11;
+function XcmsDefaultCCC(para1:PDisplay; para2:longint):TXcmsCCC;cdecl;external libX11;
+function XcmsDisplayOfCCC(para1:TXcmsCCC):PDisplay;cdecl;external libX11;
+function XcmsFormatOfPrefix(para1:Pchar):TXcmsColorFormat;cdecl;external libX11;
+procedure XcmsFreeCCC(para1:TXcmsCCC);cdecl;external libX11;
 function XcmsLookupColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXcmsColor; para5:PXcmsColor;
 function XcmsLookupColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXcmsColor; para5:PXcmsColor;
-               para6:TXcmsColorFormat):TStatus;cdecl;external;
-function XcmsPrefixOfFormat(para1:TXcmsColorFormat):Pchar;cdecl;external;
-function XcmsQueryBlack(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external;
-function XcmsQueryBlue(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external;
-function XcmsQueryColor(para1:PDisplay; para2:TColormap; para3:PXcmsColor; para4:TXcmsColorFormat):TStatus;cdecl;external;
-function XcmsQueryColors(para1:PDisplay; para2:TColormap; para3:PXcmsColor; para4:dword; para5:TXcmsColorFormat):TStatus;cdecl;external;
-function XcmsQueryGreen(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external;
-function XcmsQueryRed(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external;
-function XcmsQueryWhite(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external;
-function XcmsRGBiToCIEXYZ(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:PBool):TStatus;cdecl;external;
-function XcmsRGBiToRGB(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:PBool):TStatus;cdecl;external;
-function XcmsRGBToRGBi(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:PBool):TStatus;cdecl;external;
-function XcmsScreenNumberOfCCC(para1:TXcmsCCC):longint;cdecl;external;
-function XcmsScreenWhitePointOfCCC(para1:TXcmsCCC):PXcmsColor;cdecl;external;
-function XcmsSetCCCOfColormap(para1:PDisplay; para2:TColormap; para3:TXcmsCCC):TXcmsCCC;cdecl;external;
-function XcmsSetCompressionProc(para1:TXcmsCCC; para2:TXcmsCompressionProc; para3:TXPointer):TXcmsCompressionProc;cdecl;external;
-function XcmsSetWhiteAdjustProc(para1:TXcmsCCC; para2:TXcmsWhiteAdjustProc; para3:TXPointer):TXcmsWhiteAdjustProc;cdecl;external;
-function XcmsSetWhitePoint(para1:TXcmsCCC; para2:PXcmsColor):TStatus;cdecl;external;
-function XcmsStoreColor(para1:PDisplay; para2:TColormap; para3:PXcmsColor):TStatus;cdecl;external;
-function XcmsStoreColors(para1:PDisplay; para2:TColormap; para3:PXcmsColor; para4:dword; para5:PBool):TStatus;cdecl;external;
-function XcmsTekHVCClipC(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external;
-function XcmsTekHVCClipV(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external;
-function XcmsTekHVCClipVC(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external;
-function XcmsTekHVCQueryMaxC(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external;
-function XcmsTekHVCQueryMaxV(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external;
-function XcmsTekHVCQueryMaxVC(para1:TXcmsCCC; para2:TXcmsFloat; para3:PXcmsColor):TStatus;cdecl;external;
-function XcmsTekHVCQueryMaxVSamples(para1:TXcmsCCC; para2:TXcmsFloat; para3:PXcmsColor; para4:dword):TStatus;cdecl;external;
-function XcmsTekHVCQueryMinV(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external;
-function XcmsTekHVCToCIEuvY(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external;
+               para6:TXcmsColorFormat):TStatus;cdecl;external libX11;
+function XcmsPrefixOfFormat(para1:TXcmsColorFormat):Pchar;cdecl;external libX11;
+function XcmsQueryBlack(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsQueryBlue(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsQueryColor(para1:PDisplay; para2:TColormap; para3:PXcmsColor; para4:TXcmsColorFormat):TStatus;cdecl;external libX11;
+function XcmsQueryColors(para1:PDisplay; para2:TColormap; para3:PXcmsColor; para4:dword; para5:TXcmsColorFormat):TStatus;cdecl;external libX11;
+function XcmsQueryGreen(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsQueryRed(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsQueryWhite(para1:TXcmsCCC; para2:TXcmsColorFormat; para3:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsRGBiToCIEXYZ(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:PBool):TStatus;cdecl;external libX11;
+function XcmsRGBiToRGB(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:PBool):TStatus;cdecl;external libX11;
+function XcmsRGBToRGBi(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:PBool):TStatus;cdecl;external libX11;
+function XcmsScreenNumberOfCCC(para1:TXcmsCCC):longint;cdecl;external libX11;
+function XcmsScreenWhitePointOfCCC(para1:TXcmsCCC):PXcmsColor;cdecl;external libX11;
+function XcmsSetCCCOfColormap(para1:PDisplay; para2:TColormap; para3:TXcmsCCC):TXcmsCCC;cdecl;external libX11;
+function XcmsSetCompressionProc(para1:TXcmsCCC; para2:TXcmsCompressionProc; para3:TXPointer):TXcmsCompressionProc;cdecl;external libX11;
+function XcmsSetWhiteAdjustProc(para1:TXcmsCCC; para2:TXcmsWhiteAdjustProc; para3:TXPointer):TXcmsWhiteAdjustProc;cdecl;external libX11;
+function XcmsSetWhitePoint(para1:TXcmsCCC; para2:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsStoreColor(para1:PDisplay; para2:TColormap; para3:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsStoreColors(para1:PDisplay; para2:TColormap; para3:PXcmsColor; para4:dword; para5:PBool):TStatus;cdecl;external libX11;
+function XcmsTekHVCClipC(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external libX11;
+function XcmsTekHVCClipV(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external libX11;
+function XcmsTekHVCClipVC(para1:TXcmsCCC; para2:PXcmsColor; para3:dword; para4:dword; para5:PBool):TStatus;cdecl;external libX11;
+function XcmsTekHVCQueryMaxC(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsTekHVCQueryMaxV(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsTekHVCQueryMaxVC(para1:TXcmsCCC; para2:TXcmsFloat; para3:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsTekHVCQueryMaxVSamples(para1:TXcmsCCC; para2:TXcmsFloat; para3:PXcmsColor; para4:dword):TStatus;cdecl;external libX11;
+function XcmsTekHVCQueryMinV(para1:TXcmsCCC; para2:TXcmsFloat; para3:TXcmsFloat; para4:PXcmsColor):TStatus;cdecl;external libX11;
+function XcmsTekHVCToCIEuvY(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:dword):TStatus;cdecl;external libX11;
 function XcmsTekHVCWhiteShiftColors(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:TXcmsColorFormat; para5:PXcmsColor;
 function XcmsTekHVCWhiteShiftColors(para1:TXcmsCCC; para2:PXcmsColor; para3:PXcmsColor; para4:TXcmsColorFormat; para5:PXcmsColor;
-               para6:dword; para7:PBool):TStatus;cdecl;external;
-function XcmsVisualOfCCC(para1:TXcmsCCC):PVisual;cdecl;external;
+               para6:dword; para7:PBool):TStatus;cdecl;external libX11;
+function XcmsVisualOfCCC(para1:TXcmsCCC):PVisual;cdecl;external libX11;
 
 
 
 
 implementation
 implementation

+ 409 - 400
packages/extra/x11/xlib.pp

@@ -3,8 +3,15 @@ interface
 uses
 uses
   x;
   x;
 
 
-{$LinkLib c}
-{$LinkLib X11}
+{$ifndef os2}
+  {$LinkLib c}
+  {$LinkLib X11}
+const
+  libX11='X11';
+{$else}
+const
+  libX11='X11';
+{$endif}
 
 
 {
 {
   Automatically converted by H2Pas 0.99.15 from xlib.h
   Automatically converted by H2Pas 0.99.15 from xlib.h
@@ -1371,500 +1378,502 @@ type
         count_values : word;
         count_values : word;
         supported_values : PPChar;
         supported_values : PPChar;
      end;
      end;
+{$ifndef os2}
   var
   var
      _Xdebug : longint;cvar;external;
      _Xdebug : longint;cvar;external;
+{$endif}
 type
 type
   funclong = function :longint;
   funclong = function :longint;
   funcbool = function :TBool;
   funcbool = function :TBool;
   chararr32 = array[0..31] of char;
   chararr32 = array[0..31] of char;
 
 
-function XLoadQueryFont(para1:PDisplay; para2:Pchar):PXFontStruct;cdecl;external;
-function XQueryFont(para1:PDisplay; para2:TXID):PXFontStruct;cdecl;external;
-function XGetMotionEvents(para1:PDisplay; para2:TWindow; para3:TTime; para4:TTime; para5:Plongint):PXTimeCoord;cdecl;external;
-function XDeleteModifiermapEntry(para1:PXModifierKeymap; para2:TKeyCode; para3:longint):PXModifierKeymap;cdecl;external;
-function XGetModifierMapping(para1:PDisplay):PXModifierKeymap;cdecl;external;
-function XInsertModifiermapEntry(para1:PXModifierKeymap; para2:TKeyCode; para3:longint):PXModifierKeymap;cdecl;external;
-function XNewModifiermap(para1:longint):PXModifierKeymap;cdecl;external;
+function XLoadQueryFont(para1:PDisplay; para2:Pchar):PXFontStruct;cdecl;external libX11;
+function XQueryFont(para1:PDisplay; para2:TXID):PXFontStruct;cdecl;external libX11;
+function XGetMotionEvents(para1:PDisplay; para2:TWindow; para3:TTime; para4:TTime; para5:Plongint):PXTimeCoord;cdecl;external libX11;
+function XDeleteModifiermapEntry(para1:PXModifierKeymap; para2:TKeyCode; para3:longint):PXModifierKeymap;cdecl;external libX11;
+function XGetModifierMapping(para1:PDisplay):PXModifierKeymap;cdecl;external libX11;
+function XInsertModifiermapEntry(para1:PXModifierKeymap; para2:TKeyCode; para3:longint):PXModifierKeymap;cdecl;external libX11;
+function XNewModifiermap(para1:longint):PXModifierKeymap;cdecl;external libX11;
 function XCreateImage(para1:PDisplay; para2:PVisual; para3:dword; para4:longint; para5:longint;
 function XCreateImage(para1:PDisplay; para2:PVisual; para3:dword; para4:longint; para5:longint;
-           para6:Pchar; para7:dword; para8:dword; para9:longint; para10:longint):PXImage;cdecl;external;
-function XInitImage(para1:PXImage):TStatus;cdecl;external;
+           para6:Pchar; para7:dword; para8:dword; para9:longint; para10:longint):PXImage;cdecl;external libX11;
+function XInitImage(para1:PXImage):TStatus;cdecl;external libX11;
 function XGetImage(para1:PDisplay; para2:TDrawable; para3:longint; para4:longint; para5:dword;
 function XGetImage(para1:PDisplay; para2:TDrawable; para3:longint; para4:longint; para5:dword;
-           para6:dword; para7:dword; para8:longint):PXImage;cdecl;external;
+           para6:dword; para7:dword; para8:longint):PXImage;cdecl;external libX11;
 function XGetSubImage(para1:PDisplay; para2:TDrawable; para3:longint; para4:longint; para5:dword;
 function XGetSubImage(para1:PDisplay; para2:TDrawable; para3:longint; para4:longint; para5:dword;
            para6:dword; para7:dword; para8:longint; para9:PXImage; para10:longint;
            para6:dword; para7:dword; para8:longint; para9:PXImage; para10:longint;
-           para11:longint):PXImage;cdecl;external;
-function XOpenDisplay(para1:Pchar):PDisplay;cdecl;external;
-procedure XrmInitialize;cdecl;external;
-function XFetchBytes(para1:PDisplay; para2:Plongint):Pchar;cdecl;external;
-function XFetchBuffer(para1:PDisplay; para2:Plongint; para3:longint):Pchar;cdecl;external;
-function XGetAtomName(para1:PDisplay; para2:TAtom):Pchar;cdecl;external;
-function XGetAtomNames(para1:PDisplay; para2:PAtom; para3:longint; para4:PPchar):TStatus;cdecl;external;
-function XGetDefault(para1:PDisplay; para2:Pchar; para3:Pchar):Pchar;cdecl;external;
-function XDisplayName(para1:Pchar):Pchar;cdecl;external;
-function XKeysymToString(para1:TKeySym):Pchar;cdecl;external;
-function XSynchronize(para1:PDisplay; para2:TBool):funclong;cdecl;external;
-function XSetAfterFunction(para1:PDisplay; para2:funclong):funclong;cdecl;external;
-function XInternAtom(para1:PDisplay; para2:Pchar; para3:TBool):TAtom;cdecl;external;
-function XInternAtoms(para1:PDisplay; para2:PPchar; para3:longint; para4:TBool; para5:PAtom):TStatus;cdecl;external;
-function XCopyColormapAndFree(para1:PDisplay; para2:TColormap):TColormap;cdecl;external;
-function XCreateColormap(para1:PDisplay; para2:TWindow; para3:PVisual; para4:longint):TColormap;cdecl;external;
+           para11:longint):PXImage;cdecl;external libX11;
+function XOpenDisplay(para1:Pchar):PDisplay;cdecl;external libX11;
+procedure XrmInitialize;cdecl;external libX11;
+function XFetchBytes(para1:PDisplay; para2:Plongint):Pchar;cdecl;external libX11;
+function XFetchBuffer(para1:PDisplay; para2:Plongint; para3:longint):Pchar;cdecl;external libX11;
+function XGetAtomName(para1:PDisplay; para2:TAtom):Pchar;cdecl;external libX11;
+function XGetAtomNames(para1:PDisplay; para2:PAtom; para3:longint; para4:PPchar):TStatus;cdecl;external libX11;
+function XGetDefault(para1:PDisplay; para2:Pchar; para3:Pchar):Pchar;cdecl;external libX11;
+function XDisplayName(para1:Pchar):Pchar;cdecl;external libX11;
+function XKeysymToString(para1:TKeySym):Pchar;cdecl;external libX11;
+function XSynchronize(para1:PDisplay; para2:TBool):funclong;cdecl;external libX11;
+function XSetAfterFunction(para1:PDisplay; para2:funclong):funclong;cdecl;external libX11;
+function XInternAtom(para1:PDisplay; para2:Pchar; para3:TBool):TAtom;cdecl;external libX11;
+function XInternAtoms(para1:PDisplay; para2:PPchar; para3:longint; para4:TBool; para5:PAtom):TStatus;cdecl;external libX11;
+function XCopyColormapAndFree(para1:PDisplay; para2:TColormap):TColormap;cdecl;external libX11;
+function XCreateColormap(para1:PDisplay; para2:TWindow; para3:PVisual; para4:longint):TColormap;cdecl;external libX11;
 function XCreatePixmapCursor(para1:PDisplay; para2:TPixmap; para3:TPixmap; para4:PXColor; para5:PXColor;
 function XCreatePixmapCursor(para1:PDisplay; para2:TPixmap; para3:TPixmap; para4:PXColor; para5:PXColor;
-           para6:dword; para7:dword):TCursor;cdecl;external;
+           para6:dword; para7:dword):TCursor;cdecl;external libX11;
 function XCreateGlyphCursor(para1:PDisplay; para2:TFont; para3:TFont; para4:dword; para5:dword;
 function XCreateGlyphCursor(para1:PDisplay; para2:TFont; para3:TFont; para4:dword; para5:dword;
-           para6:PXColor; para7:PXColor):TCursor;cdecl;external;
-function XCreateFontCursor(para1:PDisplay; para2:dword):TCursor;cdecl;external;
-function XLoadFont(para1:PDisplay; para2:Pchar):TFont;cdecl;external;
-function XCreateGC(para1:PDisplay; para2:TDrawable; para3:dword; para4:PXGCValues):TGC;cdecl;external;
-function XGContextFromGC(para1:TGC):TGContext;cdecl;external;
-procedure XFlushGC(para1:PDisplay; para2:TGC);cdecl;external;
-function XCreatePixmap(para1:PDisplay; para2:TDrawable; para3:dword; para4:dword; para5:dword):TPixmap;cdecl;external;
-function XCreateBitmapFromData(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:dword; para5:dword):TPixmap;cdecl;external;
+           para6:PXColor; para7:PXColor):TCursor;cdecl;external libX11;
+function XCreateFontCursor(para1:PDisplay; para2:dword):TCursor;cdecl;external libX11;
+function XLoadFont(para1:PDisplay; para2:Pchar):TFont;cdecl;external libX11;
+function XCreateGC(para1:PDisplay; para2:TDrawable; para3:dword; para4:PXGCValues):TGC;cdecl;external libX11;
+function XGContextFromGC(para1:TGC):TGContext;cdecl;external libX11;
+procedure XFlushGC(para1:PDisplay; para2:TGC);cdecl;external libX11;
+function XCreatePixmap(para1:PDisplay; para2:TDrawable; para3:dword; para4:dword; para5:dword):TPixmap;cdecl;external libX11;
+function XCreateBitmapFromData(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:dword; para5:dword):TPixmap;cdecl;external libX11;
 function XCreatePixmapFromBitmapData(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:dword; para5:dword;
 function XCreatePixmapFromBitmapData(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:dword; para5:dword;
-           para6:dword; para7:dword; para8:dword):TPixmap;cdecl;external;
+           para6:dword; para7:dword; para8:dword):TPixmap;cdecl;external libX11;
 function XCreateSimpleWindow(para1:PDisplay; para2:TWindow; para3:longint; para4:longint; para5:dword;
 function XCreateSimpleWindow(para1:PDisplay; para2:TWindow; para3:longint; para4:longint; para5:dword;
-           para6:dword; para7:dword; para8:dword; para9:dword):TWindow;cdecl;external;
-function XGetSelectionOwner(para1:PDisplay; para2:TAtom):TWindow;cdecl;external;
+           para6:dword; para7:dword; para8:dword; para9:dword):TWindow;cdecl;external libX11;
+function XGetSelectionOwner(para1:PDisplay; para2:TAtom):TWindow;cdecl;external libX11;
 function XCreateWindow(para1:PDisplay; para2:TWindow; para3:longint; para4:longint; para5:dword;
 function XCreateWindow(para1:PDisplay; para2:TWindow; para3:longint; para4:longint; para5:dword;
            para6:dword; para7:dword; para8:longint; para9:dword; para10:PVisual;
            para6:dword; para7:dword; para8:longint; para9:dword; para10:PVisual;
-           para11:dword; para12:PXSetWindowAttributes):TWindow;cdecl;external;
-function XListInstalledColormaps(para1:PDisplay; para2:TWindow; para3:Plongint):PColormap;cdecl;external;
-function XListFonts(para1:PDisplay; para2:Pchar; para3:longint; para4:Plongint):PPChar;cdecl;external;
-function XListFontsWithInfo(para1:PDisplay; para2:Pchar; para3:longint; para4:Plongint; para5:PPXFontStruct):PPChar;cdecl;external;
-function XGetFontPath(para1:PDisplay; para2:Plongint):PPChar;cdecl;external;
-function XListExtensions(para1:PDisplay; para2:Plongint):PPChar;cdecl;external;
-function XListProperties(para1:PDisplay; para2:TWindow; para3:Plongint):PAtom;cdecl;external;
-function XListHosts(para1:PDisplay; para2:Plongint; para3:PBool):PXHostAddress;cdecl;external;
-function XKeycodeToKeysym(para1:PDisplay; para2:TKeyCode; para3:longint):TKeySym;cdecl;external;
-function XLookupKeysym(para1:PXKeyEvent; para2:longint):TKeySym;cdecl;external;
-function XGetKeyboardMapping(para1:PDisplay; para2:TKeyCode; para3:longint; para4:Plongint):PKeySym;cdecl;external;
-function XStringToKeysym(para1:Pchar):TKeySym;cdecl;external;
-function XMaxRequestSize(para1:PDisplay):longint;cdecl;external;
-function XExtendedMaxRequestSize(para1:PDisplay):longint;cdecl;external;
-function XResourceManagerString(para1:PDisplay):Pchar;cdecl;external;
-function XScreenResourceString(para1:PScreen):Pchar;cdecl;external;
-function XDisplayMotionBufferSize(para1:PDisplay):dword;cdecl;external;
-function XVisualIDFromVisual(para1:PVisual):TVisualID;cdecl;external;
-function XInitThreads:TStatus;cdecl;external;
-procedure XLockDisplay(para1:PDisplay);cdecl;external;
-procedure XUnlockDisplay(para1:PDisplay);cdecl;external;
-function XInitExtension(para1:PDisplay; para2:Pchar):PXExtCodes;cdecl;external;
-function XAddExtension(para1:PDisplay):PXExtCodes;cdecl;external;
-function XFindOnExtensionList(para1:PPXExtData; para2:longint):PXExtData;cdecl;external;
-function XEHeadOfExtensionList(para1:TXEDataObject):PPXExtData;cdecl;external;
-function XRootWindow(para1:PDisplay; para2:longint):TWindow;cdecl;external;
-function XDefaultRootWindow(para1:PDisplay):TWindow;cdecl;external;
-function XRootWindowOfScreen(para1:PScreen):TWindow;cdecl;external;
-function XDefaultVisual(para1:PDisplay; para2:longint):PVisual;cdecl;external;
-function XDefaultVisualOfScreen(para1:PScreen):PVisual;cdecl;external;
-function XDefaultGC(para1:PDisplay; para2:longint):TGC;cdecl;external;
-function XDefaultGCOfScreen(para1:PScreen):TGC;cdecl;external;
-function XBlackPixel(para1:PDisplay; para2:longint):dword;cdecl;external;
-function XWhitePixel(para1:PDisplay; para2:longint):dword;cdecl;external;
-function XAllPlanes:dword;cdecl;external;
-function XBlackPixelOfScreen(para1:PScreen):dword;cdecl;external;
-function XWhitePixelOfScreen(para1:PScreen):dword;cdecl;external;
-function XNextRequest(para1:PDisplay):dword;cdecl;external;
-function XLastKnownRequestProcessed(para1:PDisplay):dword;cdecl;external;
-function XServerVendor(para1:PDisplay):Pchar;cdecl;external;
-function XDisplayString(para1:PDisplay):Pchar;cdecl;external;
-function XDefaultColormap(para1:PDisplay; para2:longint):TColormap;cdecl;external;
-function XDefaultColormapOfScreen(para1:PScreen):TColormap;cdecl;external;
-function XDisplayOfScreen(para1:PScreen):PDisplay;cdecl;external;
-function XScreenOfDisplay(para1:PDisplay; para2:longint):PScreen;cdecl;external;
-function XDefaultScreenOfDisplay(para1:PDisplay):PScreen;cdecl;external;
-function XEventMaskOfScreen(para1:PScreen):longint;cdecl;external;
-function XScreenNumberOfScreen(para1:PScreen):longint;cdecl;external;
+           para11:dword; para12:PXSetWindowAttributes):TWindow;cdecl;external libX11;
+function XListInstalledColormaps(para1:PDisplay; para2:TWindow; para3:Plongint):PColormap;cdecl;external libX11;
+function XListFonts(para1:PDisplay; para2:Pchar; para3:longint; para4:Plongint):PPChar;cdecl;external libX11;
+function XListFontsWithInfo(para1:PDisplay; para2:Pchar; para3:longint; para4:Plongint; para5:PPXFontStruct):PPChar;cdecl;external libX11;
+function XGetFontPath(para1:PDisplay; para2:Plongint):PPChar;cdecl;external libX11;
+function XListExtensions(para1:PDisplay; para2:Plongint):PPChar;cdecl;external libX11;
+function XListProperties(para1:PDisplay; para2:TWindow; para3:Plongint):PAtom;cdecl;external libX11;
+function XListHosts(para1:PDisplay; para2:Plongint; para3:PBool):PXHostAddress;cdecl;external libX11;
+function XKeycodeToKeysym(para1:PDisplay; para2:TKeyCode; para3:longint):TKeySym;cdecl;external libX11;
+function XLookupKeysym(para1:PXKeyEvent; para2:longint):TKeySym;cdecl;external libX11;
+function XGetKeyboardMapping(para1:PDisplay; para2:TKeyCode; para3:longint; para4:Plongint):PKeySym;cdecl;external libX11;
+function XStringToKeysym(para1:Pchar):TKeySym;cdecl;external libX11;
+function XMaxRequestSize(para1:PDisplay):longint;cdecl;external libX11;
+function XExtendedMaxRequestSize(para1:PDisplay):longint;cdecl;external libX11;
+function XResourceManagerString(para1:PDisplay):Pchar;cdecl;external libX11;
+function XScreenResourceString(para1:PScreen):Pchar;cdecl;external libX11;
+function XDisplayMotionBufferSize(para1:PDisplay):dword;cdecl;external libX11;
+function XVisualIDFromVisual(para1:PVisual):TVisualID;cdecl;external libX11;
+function XInitThreads:TStatus;cdecl;external libX11;
+procedure XLockDisplay(para1:PDisplay);cdecl;external libX11;
+procedure XUnlockDisplay(para1:PDisplay);cdecl;external libX11;
+function XInitExtension(para1:PDisplay; para2:Pchar):PXExtCodes;cdecl;external libX11;
+function XAddExtension(para1:PDisplay):PXExtCodes;cdecl;external libX11;
+function XFindOnExtensionList(para1:PPXExtData; para2:longint):PXExtData;cdecl;external libX11;
+function XEHeadOfExtensionList(para1:TXEDataObject):PPXExtData;cdecl;external libX11;
+function XRootWindow(para1:PDisplay; para2:longint):TWindow;cdecl;external libX11;
+function XDefaultRootWindow(para1:PDisplay):TWindow;cdecl;external libX11;
+function XRootWindowOfScreen(para1:PScreen):TWindow;cdecl;external libX11;
+function XDefaultVisual(para1:PDisplay; para2:longint):PVisual;cdecl;external libX11;
+function XDefaultVisualOfScreen(para1:PScreen):PVisual;cdecl;external libX11;
+function XDefaultGC(para1:PDisplay; para2:longint):TGC;cdecl;external libX11;
+function XDefaultGCOfScreen(para1:PScreen):TGC;cdecl;external libX11;
+function XBlackPixel(para1:PDisplay; para2:longint):dword;cdecl;external libX11;
+function XWhitePixel(para1:PDisplay; para2:longint):dword;cdecl;external libX11;
+function XAllPlanes:dword;cdecl;external libX11;
+function XBlackPixelOfScreen(para1:PScreen):dword;cdecl;external libX11;
+function XWhitePixelOfScreen(para1:PScreen):dword;cdecl;external libX11;
+function XNextRequest(para1:PDisplay):dword;cdecl;external libX11;
+function XLastKnownRequestProcessed(para1:PDisplay):dword;cdecl;external libX11;
+function XServerVendor(para1:PDisplay):Pchar;cdecl;external libX11;
+function XDisplayString(para1:PDisplay):Pchar;cdecl;external libX11;
+function XDefaultColormap(para1:PDisplay; para2:longint):TColormap;cdecl;external libX11;
+function XDefaultColormapOfScreen(para1:PScreen):TColormap;cdecl;external libX11;
+function XDisplayOfScreen(para1:PScreen):PDisplay;cdecl;external libX11;
+function XScreenOfDisplay(para1:PDisplay; para2:longint):PScreen;cdecl;external libX11;
+function XDefaultScreenOfDisplay(para1:PDisplay):PScreen;cdecl;external libX11;
+function XEventMaskOfScreen(para1:PScreen):longint;cdecl;external libX11;
+function XScreenNumberOfScreen(para1:PScreen):longint;cdecl;external libX11;
 type
 type
 
 
    TXErrorHandler = function (para1:PDisplay; para2:PXErrorEvent):longint;cdecl;
    TXErrorHandler = function (para1:PDisplay; para2:PXErrorEvent):longint;cdecl;
 
 
-function XSetErrorHandler(para1:TXErrorHandler):TXErrorHandler;cdecl;external;
+function XSetErrorHandler(para1:TXErrorHandler):TXErrorHandler;cdecl;external libX11;
 type
 type
 
 
    TXIOErrorHandler = function (para1:PDisplay):longint;cdecl;
    TXIOErrorHandler = function (para1:PDisplay):longint;cdecl;
 
 
-function XSetIOErrorHandler(para1:TXIOErrorHandler):TXIOErrorHandler;cdecl;external;
-function XListPixmapFormats(para1:PDisplay; para2:Plongint):PXPixmapFormatValues;cdecl;external;
-function XListDepths(para1:PDisplay; para2:longint; para3:Plongint):Plongint;cdecl;external;
-function XReconfigureWMWindow(para1:PDisplay; para2:TWindow; para3:longint; para4:dword; para5:PXWindowChanges):TStatus;cdecl;external;
-function XGetWMProtocols(para1:PDisplay; para2:TWindow; para3:PPAtom; para4:Plongint):TStatus;cdecl;external;
-function XSetWMProtocols(para1:PDisplay; para2:TWindow; para3:PAtom; para4:longint):TStatus;cdecl;external;
-function XIconifyWindow(para1:PDisplay; para2:TWindow; para3:longint):TStatus;cdecl;external;
-function XWithdrawWindow(para1:PDisplay; para2:TWindow; para3:longint):TStatus;cdecl;external;
-function XGetCommand(para1:PDisplay; para2:TWindow; para3:PPPchar; para4:Plongint):TStatus;cdecl;external;
-function XGetWMColormapWindows(para1:PDisplay; para2:TWindow; para3:PPWindow; para4:Plongint):TStatus;cdecl;external;
-function XSetWMColormapWindows(para1:PDisplay; para2:TWindow; para3:PWindow; para4:longint):TStatus;cdecl;external;
-procedure XFreeStringList(para1:PPchar);cdecl;external;
-function XSetTransientForHint(para1:PDisplay; para2:TWindow; para3:TWindow):longint;cdecl;external;
-function XActivateScreenSaver(para1:PDisplay):longint;cdecl;external;
-function XAddHost(para1:PDisplay; para2:PXHostAddress):longint;cdecl;external;
-function XAddHosts(para1:PDisplay; para2:PXHostAddress; para3:longint):longint;cdecl;external;
-function XAddToExtensionList(para1:PPXExtData; para2:PXExtData):longint;cdecl;external;
-function XAddToSaveSet(para1:PDisplay; para2:TWindow):longint;cdecl;external;
-function XAllocColor(para1:PDisplay; para2:TColormap; para3:PXColor):TStatus;cdecl;external;
+function XSetIOErrorHandler(para1:TXIOErrorHandler):TXIOErrorHandler;cdecl;external libX11;
+function XListPixmapFormats(para1:PDisplay; para2:Plongint):PXPixmapFormatValues;cdecl;external libX11;
+function XListDepths(para1:PDisplay; para2:longint; para3:Plongint):Plongint;cdecl;external libX11;
+function XReconfigureWMWindow(para1:PDisplay; para2:TWindow; para3:longint; para4:dword; para5:PXWindowChanges):TStatus;cdecl;external libX11;
+function XGetWMProtocols(para1:PDisplay; para2:TWindow; para3:PPAtom; para4:Plongint):TStatus;cdecl;external libX11;
+function XSetWMProtocols(para1:PDisplay; para2:TWindow; para3:PAtom; para4:longint):TStatus;cdecl;external libX11;
+function XIconifyWindow(para1:PDisplay; para2:TWindow; para3:longint):TStatus;cdecl;external libX11;
+function XWithdrawWindow(para1:PDisplay; para2:TWindow; para3:longint):TStatus;cdecl;external libX11;
+function XGetCommand(para1:PDisplay; para2:TWindow; para3:PPPchar; para4:Plongint):TStatus;cdecl;external libX11;
+function XGetWMColormapWindows(para1:PDisplay; para2:TWindow; para3:PPWindow; para4:Plongint):TStatus;cdecl;external libX11;
+function XSetWMColormapWindows(para1:PDisplay; para2:TWindow; para3:PWindow; para4:longint):TStatus;cdecl;external libX11;
+procedure XFreeStringList(para1:PPchar);cdecl;external libX11;
+function XSetTransientForHint(para1:PDisplay; para2:TWindow; para3:TWindow):longint;cdecl;external libX11;
+function XActivateScreenSaver(para1:PDisplay):longint;cdecl;external libX11;
+function XAddHost(para1:PDisplay; para2:PXHostAddress):longint;cdecl;external libX11;
+function XAddHosts(para1:PDisplay; para2:PXHostAddress; para3:longint):longint;cdecl;external libX11;
+function XAddToExtensionList(para1:PPXExtData; para2:PXExtData):longint;cdecl;external libX11;
+function XAddToSaveSet(para1:PDisplay; para2:TWindow):longint;cdecl;external libX11;
+function XAllocColor(para1:PDisplay; para2:TColormap; para3:PXColor):TStatus;cdecl;external libX11;
 function XAllocColorCells(para1:PDisplay; para2:TColormap; para3:TBool; para4:Pdword; para5:dword;
 function XAllocColorCells(para1:PDisplay; para2:TColormap; para3:TBool; para4:Pdword; para5:dword;
-           para6:Pdword; para7:dword):TStatus;cdecl;external;
+           para6:Pdword; para7:dword):TStatus;cdecl;external libX11;
 function XAllocColorPlanes(para1:PDisplay; para2:TColormap; para3:TBool; para4:Pdword; para5:longint;
 function XAllocColorPlanes(para1:PDisplay; para2:TColormap; para3:TBool; para4:Pdword; para5:longint;
            para6:longint; para7:longint; para8:longint; para9:Pdword; para10:Pdword;
            para6:longint; para7:longint; para8:longint; para9:Pdword; para10:Pdword;
-           para11:Pdword):TStatus;cdecl;external;
-function XAllocNamedColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXColor; para5:PXColor):TStatus;cdecl;external;
-function XAllowEvents(para1:PDisplay; para2:longint; para3:TTime):longint;cdecl;external;
-function XAutoRepeatOff(para1:PDisplay):longint;cdecl;external;
-function XAutoRepeatOn(para1:PDisplay):longint;cdecl;external;
-function XBell(para1:PDisplay; para2:longint):longint;cdecl;external;
-function XBitmapBitOrder(para1:PDisplay):longint;cdecl;external;
-function XBitmapPad(para1:PDisplay):longint;cdecl;external;
-function XBitmapUnit(para1:PDisplay):longint;cdecl;external;
-function XCellsOfScreen(para1:PScreen):longint;cdecl;external;
-function XChangeActivePointerGrab(para1:PDisplay; para2:dword; para3:TCursor; para4:TTime):longint;cdecl;external;
-function XChangeGC(para1:PDisplay; para2:TGC; para3:dword; para4:PXGCValues):longint;cdecl;external;
-function XChangeKeyboardControl(para1:PDisplay; para2:dword; para3:PXKeyboardControl):longint;cdecl;external;
-function XChangeKeyboardMapping(para1:PDisplay; para2:longint; para3:longint; para4:PKeySym; para5:longint):longint;cdecl;external;
+           para11:Pdword):TStatus;cdecl;external libX11;
+function XAllocNamedColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXColor; para5:PXColor):TStatus;cdecl;external libX11;
+function XAllowEvents(para1:PDisplay; para2:longint; para3:TTime):longint;cdecl;external libX11;
+function XAutoRepeatOff(para1:PDisplay):longint;cdecl;external libX11;
+function XAutoRepeatOn(para1:PDisplay):longint;cdecl;external libX11;
+function XBell(para1:PDisplay; para2:longint):longint;cdecl;external libX11;
+function XBitmapBitOrder(para1:PDisplay):longint;cdecl;external libX11;
+function XBitmapPad(para1:PDisplay):longint;cdecl;external libX11;
+function XBitmapUnit(para1:PDisplay):longint;cdecl;external libX11;
+function XCellsOfScreen(para1:PScreen):longint;cdecl;external libX11;
+function XChangeActivePointerGrab(para1:PDisplay; para2:dword; para3:TCursor; para4:TTime):longint;cdecl;external libX11;
+function XChangeGC(para1:PDisplay; para2:TGC; para3:dword; para4:PXGCValues):longint;cdecl;external libX11;
+function XChangeKeyboardControl(para1:PDisplay; para2:dword; para3:PXKeyboardControl):longint;cdecl;external libX11;
+function XChangeKeyboardMapping(para1:PDisplay; para2:longint; para3:longint; para4:PKeySym; para5:longint):longint;cdecl;external libX11;
 function XChangePointerControl(para1:PDisplay; para2:TBool; para3:TBool; para4:longint; para5:longint;
 function XChangePointerControl(para1:PDisplay; para2:TBool; para3:TBool; para4:longint; para5:longint;
-           para6:longint):longint;cdecl;external;
+           para6:longint):longint;cdecl;external libX11;
 function XChangeProperty(para1:PDisplay; para2:TWindow; para3:TAtom; para4:TAtom; para5:longint;
 function XChangeProperty(para1:PDisplay; para2:TWindow; para3:TAtom; para4:TAtom; para5:longint;
-           para6:longint; para7:Pbyte; para8:longint):longint;cdecl;external;
-function XChangeSaveSet(para1:PDisplay; para2:TWindow; para3:longint):longint;cdecl;external;
-function XChangeWindowAttributes(para1:PDisplay; para2:TWindow; para3:dword; para4:PXSetWindowAttributes):longint;cdecl;external;
-function XCheckIfEvent(para1:PDisplay; para2:PXEvent; para3:funcbool; para4:TXPointer):TBool;cdecl;external;
-function XCheckMaskEvent(para1:PDisplay; para2:longint; para3:PXEvent):TBool;cdecl;external;
-function XCheckTypedEvent(para1:PDisplay; para2:longint; para3:PXEvent):TBool;cdecl;external;
-function XCheckTypedWindowEvent(para1:PDisplay; para2:TWindow; para3:longint; para4:PXEvent):TBool;cdecl;external;
-function XCheckWindowEvent(para1:PDisplay; para2:TWindow; para3:longint; para4:PXEvent):TBool;cdecl;external;
-function XCirculateSubwindows(para1:PDisplay; para2:TWindow; para3:longint):longint;cdecl;external;
-function XCirculateSubwindowsDown(para1:PDisplay; para2:TWindow):longint;cdecl;external;
-function XCirculateSubwindowsUp(para1:PDisplay; para2:TWindow):longint;cdecl;external;
+           para6:longint; para7:Pbyte; para8:longint):longint;cdecl;external libX11;
+function XChangeSaveSet(para1:PDisplay; para2:TWindow; para3:longint):longint;cdecl;external libX11;
+function XChangeWindowAttributes(para1:PDisplay; para2:TWindow; para3:dword; para4:PXSetWindowAttributes):longint;cdecl;external libX11;
+function XCheckIfEvent(para1:PDisplay; para2:PXEvent; para3:funcbool; para4:TXPointer):TBool;cdecl;external libX11;
+function XCheckMaskEvent(para1:PDisplay; para2:longint; para3:PXEvent):TBool;cdecl;external libX11;
+function XCheckTypedEvent(para1:PDisplay; para2:longint; para3:PXEvent):TBool;cdecl;external libX11;
+function XCheckTypedWindowEvent(para1:PDisplay; para2:TWindow; para3:longint; para4:PXEvent):TBool;cdecl;external libX11;
+function XCheckWindowEvent(para1:PDisplay; para2:TWindow; para3:longint; para4:PXEvent):TBool;cdecl;external libX11;
+function XCirculateSubwindows(para1:PDisplay; para2:TWindow; para3:longint):longint;cdecl;external libX11;
+function XCirculateSubwindowsDown(para1:PDisplay; para2:TWindow):longint;cdecl;external libX11;
+function XCirculateSubwindowsUp(para1:PDisplay; para2:TWindow):longint;cdecl;external libX11;
 function XClearArea(para1:PDisplay; para2:TWindow; para3:longint; para4:longint; para5:dword;
 function XClearArea(para1:PDisplay; para2:TWindow; para3:longint; para4:longint; para5:dword;
-           para6:dword; para7:TBool):longint;cdecl;external;
-function XClearWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external;
-function XCloseDisplay(para1:PDisplay):longint;cdecl;external;
-function XConfigureWindow(para1:PDisplay; para2:TWindow; para3:dword; para4:PXWindowChanges):longint;cdecl;external;
-function XConnectionNumber(para1:PDisplay):longint;cdecl;external;
+           para6:dword; para7:TBool):longint;cdecl;external libX11;
+function XClearWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external libX11;
+function XCloseDisplay(para1:PDisplay):longint;cdecl;external libX11;
+function XConfigureWindow(para1:PDisplay; para2:TWindow; para3:dword; para4:PXWindowChanges):longint;cdecl;external libX11;
+function XConnectionNumber(para1:PDisplay):longint;cdecl;external libX11;
 function XConvertSelection(para1:PDisplay; para2:TAtom; para3:TAtom; para4:TAtom; para5:TWindow;
 function XConvertSelection(para1:PDisplay; para2:TAtom; para3:TAtom; para4:TAtom; para5:TWindow;
-           para6:TTime):longint;cdecl;external;
+           para6:TTime):longint;cdecl;external libX11;
 function XCopyArea(para1:PDisplay; para2:TDrawable; para3:TDrawable; para4:TGC; para5:longint;
 function XCopyArea(para1:PDisplay; para2:TDrawable; para3:TDrawable; para4:TGC; para5:longint;
-           para6:longint; para7:dword; para8:dword; para9:longint; para10:longint):longint;cdecl;external;
-function XCopyGC(para1:PDisplay; para2:TGC; para3:dword; para4:TGC):longint;cdecl;external;
+           para6:longint; para7:dword; para8:dword; para9:longint; para10:longint):longint;cdecl;external libX11;
+function XCopyGC(para1:PDisplay; para2:TGC; para3:dword; para4:TGC):longint;cdecl;external libX11;
 function XCopyPlane(para1:PDisplay; para2:TDrawable; para3:TDrawable; para4:TGC; para5:longint;
 function XCopyPlane(para1:PDisplay; para2:TDrawable; para3:TDrawable; para4:TGC; para5:longint;
            para6:longint; para7:dword; para8:dword; para9:longint; para10:longint;
            para6:longint; para7:dword; para8:dword; para9:longint; para10:longint;
-           para11:dword):longint;cdecl;external;
-function XDefaultDepth(para1:PDisplay; para2:longint):longint;cdecl;external;
-function XDefaultDepthOfScreen(para1:PScreen):longint;cdecl;external;
-function XDefaultScreen(para1:PDisplay):longint;cdecl;external;
-function XDefineCursor(para1:PDisplay; para2:TWindow; para3:TCursor):longint;cdecl;external;
-function XDeleteProperty(para1:PDisplay; para2:TWindow; para3:TAtom):longint;cdecl;external;
-function XDestroyWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external;
-function XDestroySubwindows(para1:PDisplay; para2:TWindow):longint;cdecl;external;
-function XDoesBackingStore(para1:PScreen):longint;cdecl;external;
-function XDoesSaveUnders(para1:PScreen):TBool;cdecl;external;
-function XDisableAccessControl(para1:PDisplay):longint;cdecl;external;
-function XDisplayCells(para1:PDisplay; para2:longint):longint;cdecl;external;
-function XDisplayHeight(para1:PDisplay; para2:longint):longint;cdecl;external;
-function XDisplayHeightMM(para1:PDisplay; para2:longint):longint;cdecl;external;
-function XDisplayKeycodes(para1:PDisplay; para2:Plongint; para3:Plongint):longint;cdecl;external;
-function XDisplayPlanes(para1:PDisplay; para2:longint):longint;cdecl;external;
-function XDisplayWidth(para1:PDisplay; para2:longint):longint;cdecl;external;
-function XDisplayWidthMM(para1:PDisplay; para2:longint):longint;cdecl;external;
+           para11:dword):longint;cdecl;external libX11;
+function XDefaultDepth(para1:PDisplay; para2:longint):longint;cdecl;external libX11;
+function XDefaultDepthOfScreen(para1:PScreen):longint;cdecl;external libX11;
+function XDefaultScreen(para1:PDisplay):longint;cdecl;external libX11;
+function XDefineCursor(para1:PDisplay; para2:TWindow; para3:TCursor):longint;cdecl;external libX11;
+function XDeleteProperty(para1:PDisplay; para2:TWindow; para3:TAtom):longint;cdecl;external libX11;
+function XDestroyWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external libX11;
+function XDestroySubwindows(para1:PDisplay; para2:TWindow):longint;cdecl;external libX11;
+function XDoesBackingStore(para1:PScreen):longint;cdecl;external libX11;
+function XDoesSaveUnders(para1:PScreen):TBool;cdecl;external libX11;
+function XDisableAccessControl(para1:PDisplay):longint;cdecl;external libX11;
+function XDisplayCells(para1:PDisplay; para2:longint):longint;cdecl;external libX11;
+function XDisplayHeight(para1:PDisplay; para2:longint):longint;cdecl;external libX11;
+function XDisplayHeightMM(para1:PDisplay; para2:longint):longint;cdecl;external libX11;
+function XDisplayKeycodes(para1:PDisplay; para2:Plongint; para3:Plongint):longint;cdecl;external libX11;
+function XDisplayPlanes(para1:PDisplay; para2:longint):longint;cdecl;external libX11;
+function XDisplayWidth(para1:PDisplay; para2:longint):longint;cdecl;external libX11;
+function XDisplayWidthMM(para1:PDisplay; para2:longint):longint;cdecl;external libX11;
 function XDrawArc(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
 function XDrawArc(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
-           para6:dword; para7:dword; para8:longint; para9:longint):longint;cdecl;external;
-function XDrawArcs(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXArc; para5:longint):longint;cdecl;external;
+           para6:dword; para7:dword; para8:longint; para9:longint):longint;cdecl;external libX11;
+function XDrawArcs(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXArc; para5:longint):longint;cdecl;external libX11;
 function XDrawImageString(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
 function XDrawImageString(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
-           para6:Pchar; para7:longint):longint;cdecl;external;
+           para6:Pchar; para7:longint):longint;cdecl;external libX11;
 function XDrawImageString16(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
 function XDrawImageString16(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
-           para6:PXChar2b; para7:longint):longint;cdecl;external;
+           para6:PXChar2b; para7:longint):longint;cdecl;external libX11;
 function XDrawLine(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
 function XDrawLine(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
-           para6:longint; para7:longint):longint;cdecl;external;
+           para6:longint; para7:longint):longint;cdecl;external libX11;
 function XDrawLines(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXPoint; para5:longint;
 function XDrawLines(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXPoint; para5:longint;
-           para6:longint):longint;cdecl;external;
-function XDrawPoint(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint):longint;cdecl;external;
+           para6:longint):longint;cdecl;external libX11;
+function XDrawPoint(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint):longint;cdecl;external libX11;
 function XDrawPoints(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXPoint; para5:longint;
 function XDrawPoints(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXPoint; para5:longint;
-           para6:longint):longint;cdecl;external;
+           para6:longint):longint;cdecl;external libX11;
 function XDrawRectangle(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
 function XDrawRectangle(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
-           para6:dword; para7:dword):longint;cdecl;external;
-function XDrawRectangles(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXRectangle; para5:longint):longint;cdecl;external;
-function XDrawSegments(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXSegment; para5:longint):longint;cdecl;external;
+           para6:dword; para7:dword):longint;cdecl;external libX11;
+function XDrawRectangles(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXRectangle; para5:longint):longint;cdecl;external libX11;
+function XDrawSegments(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXSegment; para5:longint):longint;cdecl;external libX11;
 function XDrawString(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
 function XDrawString(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
-           para6:Pchar; para7:longint):longint;cdecl;external;
+           para6:Pchar; para7:longint):longint;cdecl;external libX11;
 function XDrawString16(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
 function XDrawString16(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
-           para6:PXChar2b; para7:longint):longint;cdecl;external;
+           para6:PXChar2b; para7:longint):longint;cdecl;external libX11;
 function XDrawText(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
 function XDrawText(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
-           para6:PXTextItem; para7:longint):longint;cdecl;external;
+           para6:PXTextItem; para7:longint):longint;cdecl;external libX11;
 function XDrawText16(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
 function XDrawText16(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
-           para6:PXTextItem16; para7:longint):longint;cdecl;external;
-function XEnableAccessControl(para1:PDisplay):longint;cdecl;external;
-function XEventsQueued(para1:PDisplay; para2:longint):longint;cdecl;external;
-function XFetchName(para1:PDisplay; para2:TWindow; para3:PPchar):TStatus;cdecl;external;
+           para6:PXTextItem16; para7:longint):longint;cdecl;external libX11;
+function XEnableAccessControl(para1:PDisplay):longint;cdecl;external libX11;
+function XEventsQueued(para1:PDisplay; para2:longint):longint;cdecl;external libX11;
+function XFetchName(para1:PDisplay; para2:TWindow; para3:PPchar):TStatus;cdecl;external libX11;
 function XFillArc(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
 function XFillArc(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
-           para6:dword; para7:dword; para8:longint; para9:longint):longint;cdecl;external;
-function XFillArcs(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXArc; para5:longint):longint;cdecl;external;
+           para6:dword; para7:dword; para8:longint; para9:longint):longint;cdecl;external libX11;
+function XFillArcs(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXArc; para5:longint):longint;cdecl;external libX11;
 function XFillPolygon(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXPoint; para5:longint;
 function XFillPolygon(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXPoint; para5:longint;
-           para6:longint; para7:longint):longint;cdecl;external;
+           para6:longint; para7:longint):longint;cdecl;external libX11;
 function XFillRectangle(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
 function XFillRectangle(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
-           para6:dword; para7:dword):longint;cdecl;external;
-function XFillRectangles(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXRectangle; para5:longint):longint;cdecl;external;
-function XFlush(para1:PDisplay):longint;cdecl;external;
-function XForceScreenSaver(para1:PDisplay; para2:longint):longint;cdecl;external;
-function XFree(para1:pointer):longint;cdecl;external;
-function XFreeColormap(para1:PDisplay; para2:TColormap):longint;cdecl;external;
-function XFreeColors(para1:PDisplay; para2:TColormap; para3:Pdword; para4:longint; para5:dword):longint;cdecl;external;
-function XFreeCursor(para1:PDisplay; para2:TCursor):longint;cdecl;external;
-function XFreeExtensionList(para1:PPchar):longint;cdecl;external;
-function XFreeFont(para1:PDisplay; para2:PXFontStruct):longint;cdecl;external;
-function XFreeFontInfo(para1:PPchar; para2:PXFontStruct; para3:longint):longint;cdecl;external;
-function XFreeFontNames(para1:PPchar):longint;cdecl;external;
-function XFreeFontPath(para1:PPchar):longint;cdecl;external;
-function XFreeGC(para1:PDisplay; para2:TGC):longint;cdecl;external;
-function XFreeModifiermap(para1:PXModifierKeymap):longint;cdecl;external;
-function XFreePixmap(para1:PDisplay; para2:TPixmap):longint;cdecl;external;
+           para6:dword; para7:dword):longint;cdecl;external libX11;
+function XFillRectangles(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXRectangle; para5:longint):longint;cdecl;external libX11;
+function XFlush(para1:PDisplay):longint;cdecl;external libX11;
+function XForceScreenSaver(para1:PDisplay; para2:longint):longint;cdecl;external libX11;
+function XFree(para1:pointer):longint;cdecl;external libX11;
+function XFreeColormap(para1:PDisplay; para2:TColormap):longint;cdecl;external libX11;
+function XFreeColors(para1:PDisplay; para2:TColormap; para3:Pdword; para4:longint; para5:dword):longint;cdecl;external libX11;
+function XFreeCursor(para1:PDisplay; para2:TCursor):longint;cdecl;external libX11;
+function XFreeExtensionList(para1:PPchar):longint;cdecl;external libX11;
+function XFreeFont(para1:PDisplay; para2:PXFontStruct):longint;cdecl;external libX11;
+function XFreeFontInfo(para1:PPchar; para2:PXFontStruct; para3:longint):longint;cdecl;external libX11;
+function XFreeFontNames(para1:PPchar):longint;cdecl;external libX11;
+function XFreeFontPath(para1:PPchar):longint;cdecl;external libX11;
+function XFreeGC(para1:PDisplay; para2:TGC):longint;cdecl;external libX11;
+function XFreeModifiermap(para1:PXModifierKeymap):longint;cdecl;external libX11;
+function XFreePixmap(para1:PDisplay; para2:TPixmap):longint;cdecl;external libX11;
 function XGeometry(para1:PDisplay; para2:longint; para3:Pchar; para4:Pchar; para5:dword;
 function XGeometry(para1:PDisplay; para2:longint; para3:Pchar; para4:Pchar; para5:dword;
            para6:dword; para7:dword; para8:longint; para9:longint; para10:Plongint;
            para6:dword; para7:dword; para8:longint; para9:longint; para10:Plongint;
-           para11:Plongint; para12:Plongint; para13:Plongint):longint;cdecl;external;
+           para11:Plongint; para12:Plongint; para13:Plongint):longint;cdecl;external libX11;
 function XGetErrorDatabaseText(para1:PDisplay; para2:Pchar; para3:Pchar; para4:Pchar; para5:Pchar;
 function XGetErrorDatabaseText(para1:PDisplay; para2:Pchar; para3:Pchar; para4:Pchar; para5:Pchar;
-           para6:longint):longint;cdecl;external;
-function XGetErrorText(para1:PDisplay; para2:longint; para3:Pchar; para4:longint):longint;cdecl;external;
-function XGetFontProperty(para1:PXFontStruct; para2:TAtom; para3:Pdword):TBool;cdecl;external;
-function XGetGCValues(para1:PDisplay; para2:TGC; para3:dword; para4:PXGCValues):TStatus;cdecl;external;
+           para6:longint):longint;cdecl;external libX11;
+function XGetErrorText(para1:PDisplay; para2:longint; para3:Pchar; para4:longint):longint;cdecl;external libX11;
+function XGetFontProperty(para1:PXFontStruct; para2:TAtom; para3:Pdword):TBool;cdecl;external libX11;
+function XGetGCValues(para1:PDisplay; para2:TGC; para3:dword; para4:PXGCValues):TStatus;cdecl;external libX11;
 function XGetGeometry(para1:PDisplay; para2:TDrawable; para3:PWindow; para4:Plongint; para5:Plongint;
 function XGetGeometry(para1:PDisplay; para2:TDrawable; para3:PWindow; para4:Plongint; para5:Plongint;
-           para6:Pdword; para7:Pdword; para8:Pdword; para9:Pdword):TStatus;cdecl;external;
-function XGetIconName(para1:PDisplay; para2:TWindow; para3:PPchar):TStatus;cdecl;external;
-function XGetInputFocus(para1:PDisplay; para2:PWindow; para3:Plongint):longint;cdecl;external;
-function XGetKeyboardControl(para1:PDisplay; para2:PXKeyboardState):longint;cdecl;external;
-function XGetPointerControl(para1:PDisplay; para2:Plongint; para3:Plongint; para4:Plongint):longint;cdecl;external;
-function XGetPointerMapping(para1:PDisplay; para2:Pbyte; para3:longint):longint;cdecl;external;
-function XGetScreenSaver(para1:PDisplay; para2:Plongint; para3:Plongint; para4:Plongint; para5:Plongint):longint;cdecl;external;
-function XGetTransientForHint(para1:PDisplay; para2:TWindow; para3:PWindow):TStatus;cdecl;external;
+           para6:Pdword; para7:Pdword; para8:Pdword; para9:Pdword):TStatus;cdecl;external libX11;
+function XGetIconName(para1:PDisplay; para2:TWindow; para3:PPchar):TStatus;cdecl;external libX11;
+function XGetInputFocus(para1:PDisplay; para2:PWindow; para3:Plongint):longint;cdecl;external libX11;
+function XGetKeyboardControl(para1:PDisplay; para2:PXKeyboardState):longint;cdecl;external libX11;
+function XGetPointerControl(para1:PDisplay; para2:Plongint; para3:Plongint; para4:Plongint):longint;cdecl;external libX11;
+function XGetPointerMapping(para1:PDisplay; para2:Pbyte; para3:longint):longint;cdecl;external libX11;
+function XGetScreenSaver(para1:PDisplay; para2:Plongint; para3:Plongint; para4:Plongint; para5:Plongint):longint;cdecl;external libX11;
+function XGetTransientForHint(para1:PDisplay; para2:TWindow; para3:PWindow):TStatus;cdecl;external libX11;
 function XGetWindowProperty(para1:PDisplay; para2:TWindow; para3:TAtom; para4:longint; para5:longint;
 function XGetWindowProperty(para1:PDisplay; para2:TWindow; para3:TAtom; para4:longint; para5:longint;
            para6:TBool; para7:TAtom; para8:PAtom; para9:Plongint; para10:Pdword;
            para6:TBool; para7:TAtom; para8:PAtom; para9:Plongint; para10:Pdword;
-           para11:Pdword; para12:PPbyte):longint;cdecl;external;
-function XGetWindowAttributes(para1:PDisplay; para2:TWindow; para3:PXWindowAttributes):TStatus;cdecl;external;
+           para11:Pdword; para12:PPbyte):longint;cdecl;external libX11;
+function XGetWindowAttributes(para1:PDisplay; para2:TWindow; para3:PXWindowAttributes):TStatus;cdecl;external libX11;
 function XGrabButton(para1:PDisplay; para2:dword; para3:dword; para4:TWindow; para5:TBool;
 function XGrabButton(para1:PDisplay; para2:dword; para3:dword; para4:TWindow; para5:TBool;
-           para6:dword; para7:longint; para8:longint; para9:TWindow; para10:TCursor):longint;cdecl;external;
+           para6:dword; para7:longint; para8:longint; para9:TWindow; para10:TCursor):longint;cdecl;external libX11;
 function XGrabKey(para1:PDisplay; para2:longint; para3:dword; para4:TWindow; para5:TBool;
 function XGrabKey(para1:PDisplay; para2:longint; para3:dword; para4:TWindow; para5:TBool;
-           para6:longint; para7:longint):longint;cdecl;external;
+           para6:longint; para7:longint):longint;cdecl;external libX11;
 function XGrabKeyboard(para1:PDisplay; para2:TWindow; para3:TBool; para4:longint; para5:longint;
 function XGrabKeyboard(para1:PDisplay; para2:TWindow; para3:TBool; para4:longint; para5:longint;
-           para6:TTime):longint;cdecl;external;
+           para6:TTime):longint;cdecl;external libX11;
 function XGrabPointer(para1:PDisplay; para2:TWindow; para3:TBool; para4:dword; para5:longint;
 function XGrabPointer(para1:PDisplay; para2:TWindow; para3:TBool; para4:dword; para5:longint;
-           para6:longint; para7:TWindow; para8:TCursor; para9:TTime):longint;cdecl;external;
-function XGrabServer(para1:PDisplay):longint;cdecl;external;
-function XHeightMMOfScreen(para1:PScreen):longint;cdecl;external;
-function XHeightOfScreen(para1:PScreen):longint;cdecl;external;
-function XIfEvent(para1:PDisplay; para2:PXEvent; para3:funcbool; para4:TXPointer):longint;cdecl;external;
-function XImageByteOrder(para1:PDisplay):longint;cdecl;external;
-function XInstallColormap(para1:PDisplay; para2:TColormap):longint;cdecl;external;
-function XKeysymToKeycode(para1:PDisplay; para2:TKeySym):TKeyCode;cdecl;external;
-function XKillClient(para1:PDisplay; para2:TXID):longint;cdecl;external;
-function XLookupColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXColor; para5:PXColor):TStatus;cdecl;external;
-function XLowerWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external;
-function XMapRaised(para1:PDisplay; para2:TWindow):longint;cdecl;external;
-function XMapSubwindows(para1:PDisplay; para2:TWindow):longint;cdecl;external;
-function XMapWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external;
-function XMaskEvent(para1:PDisplay; para2:longint; para3:PXEvent):longint;cdecl;external;
-function XMaxCmapsOfScreen(para1:PScreen):longint;cdecl;external;
-function XMinCmapsOfScreen(para1:PScreen):longint;cdecl;external;
+           para6:longint; para7:TWindow; para8:TCursor; para9:TTime):longint;cdecl;external libX11;
+function XGrabServer(para1:PDisplay):longint;cdecl;external libX11;
+function XHeightMMOfScreen(para1:PScreen):longint;cdecl;external libX11;
+function XHeightOfScreen(para1:PScreen):longint;cdecl;external libX11;
+function XIfEvent(para1:PDisplay; para2:PXEvent; para3:funcbool; para4:TXPointer):longint;cdecl;external libX11;
+function XImageByteOrder(para1:PDisplay):longint;cdecl;external libX11;
+function XInstallColormap(para1:PDisplay; para2:TColormap):longint;cdecl;external libX11;
+function XKeysymToKeycode(para1:PDisplay; para2:TKeySym):TKeyCode;cdecl;external libX11;
+function XKillClient(para1:PDisplay; para2:TXID):longint;cdecl;external libX11;
+function XLookupColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXColor; para5:PXColor):TStatus;cdecl;external libX11;
+function XLowerWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external libX11;
+function XMapRaised(para1:PDisplay; para2:TWindow):longint;cdecl;external libX11;
+function XMapSubwindows(para1:PDisplay; para2:TWindow):longint;cdecl;external libX11;
+function XMapWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external libX11;
+function XMaskEvent(para1:PDisplay; para2:longint; para3:PXEvent):longint;cdecl;external libX11;
+function XMaxCmapsOfScreen(para1:PScreen):longint;cdecl;external libX11;
+function XMinCmapsOfScreen(para1:PScreen):longint;cdecl;external libX11;
 function XMoveResizeWindow(para1:PDisplay; para2:TWindow; para3:longint; para4:longint; para5:dword;
 function XMoveResizeWindow(para1:PDisplay; para2:TWindow; para3:longint; para4:longint; para5:dword;
-           para6:dword):longint;cdecl;external;
-function XMoveWindow(para1:PDisplay; para2:TWindow; para3:longint; para4:longint):longint;cdecl;external;
-function XNextEvent(para1:PDisplay; para2:PXEvent):longint;cdecl;external;
-function XNoOp(para1:PDisplay):longint;cdecl;external;
-function XParseColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXColor):TStatus;cdecl;external;
-function XParseGeometry(para1:Pchar; para2:Plongint; para3:Plongint; para4:Pdword; para5:Pdword):longint;cdecl;external;
-function XPeekEvent(para1:PDisplay; para2:PXEvent):longint;cdecl;external;
-function XPeekIfEvent(para1:PDisplay; para2:PXEvent; para3:funcbool; para4:TXPointer):longint;cdecl;external;
-function XPending(para1:PDisplay):longint;cdecl;external;
-function XPlanesOfScreen(para1:PScreen):longint;cdecl;external;
-function XProtocolRevision(para1:PDisplay):longint;cdecl;external;
-function XProtocolVersion(para1:PDisplay):longint;cdecl;external;
-function XPutBackEvent(para1:PDisplay; para2:PXEvent):longint;cdecl;external;
+           para6:dword):longint;cdecl;external libX11;
+function XMoveWindow(para1:PDisplay; para2:TWindow; para3:longint; para4:longint):longint;cdecl;external libX11;
+function XNextEvent(para1:PDisplay; para2:PXEvent):longint;cdecl;external libX11;
+function XNoOp(para1:PDisplay):longint;cdecl;external libX11;
+function XParseColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:PXColor):TStatus;cdecl;external libX11;
+function XParseGeometry(para1:Pchar; para2:Plongint; para3:Plongint; para4:Pdword; para5:Pdword):longint;cdecl;external libX11;
+function XPeekEvent(para1:PDisplay; para2:PXEvent):longint;cdecl;external libX11;
+function XPeekIfEvent(para1:PDisplay; para2:PXEvent; para3:funcbool; para4:TXPointer):longint;cdecl;external libX11;
+function XPending(para1:PDisplay):longint;cdecl;external libX11;
+function XPlanesOfScreen(para1:PScreen):longint;cdecl;external libX11;
+function XProtocolRevision(para1:PDisplay):longint;cdecl;external libX11;
+function XProtocolVersion(para1:PDisplay):longint;cdecl;external libX11;
+function XPutBackEvent(para1:PDisplay; para2:PXEvent):longint;cdecl;external libX11;
 function XPutImage(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXImage; para5:longint;
 function XPutImage(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXImage; para5:longint;
-           para6:longint; para7:longint; para8:longint; para9:dword; para10:dword):longint;cdecl;external;
-function XQLength(para1:PDisplay):longint;cdecl;external;
+           para6:longint; para7:longint; para8:longint; para9:dword; para10:dword):longint;cdecl;external libX11;
+function XQLength(para1:PDisplay):longint;cdecl;external libX11;
 function XQueryBestCursor(para1:PDisplay; para2:TDrawable; para3:dword; para4:dword; para5:Pdword;
 function XQueryBestCursor(para1:PDisplay; para2:TDrawable; para3:dword; para4:dword; para5:Pdword;
-           para6:Pdword):TStatus;cdecl;external;
+           para6:Pdword):TStatus;cdecl;external libX11;
 function XQueryBestSize(para1:PDisplay; para2:longint; para3:TDrawable; para4:dword; para5:dword;
 function XQueryBestSize(para1:PDisplay; para2:longint; para3:TDrawable; para4:dword; para5:dword;
-           para6:Pdword; para7:Pdword):TStatus;cdecl;external;
+           para6:Pdword; para7:Pdword):TStatus;cdecl;external libX11;
 function XQueryBestStipple(para1:PDisplay; para2:TDrawable; para3:dword; para4:dword; para5:Pdword;
 function XQueryBestStipple(para1:PDisplay; para2:TDrawable; para3:dword; para4:dword; para5:Pdword;
-           para6:Pdword):TStatus;cdecl;external;
+           para6:Pdword):TStatus;cdecl;external libX11;
 function XQueryBestTile(para1:PDisplay; para2:TDrawable; para3:dword; para4:dword; para5:Pdword;
 function XQueryBestTile(para1:PDisplay; para2:TDrawable; para3:dword; para4:dword; para5:Pdword;
-           para6:Pdword):TStatus;cdecl;external;
-function XQueryColor(para1:PDisplay; para2:TColormap; para3:PXColor):longint;cdecl;external;
-function XQueryColors(para1:PDisplay; para2:TColormap; para3:PXColor; para4:longint):longint;cdecl;external;
-function XQueryExtension(para1:PDisplay; para2:Pchar; para3:Plongint; para4:Plongint; para5:Plongint):TBool;cdecl;external;
-function XQueryKeymap(para1:PDisplay; para2:chararr32):longint;cdecl;external;
+           para6:Pdword):TStatus;cdecl;external libX11;
+function XQueryColor(para1:PDisplay; para2:TColormap; para3:PXColor):longint;cdecl;external libX11;
+function XQueryColors(para1:PDisplay; para2:TColormap; para3:PXColor; para4:longint):longint;cdecl;external libX11;
+function XQueryExtension(para1:PDisplay; para2:Pchar; para3:Plongint; para4:Plongint; para5:Plongint):TBool;cdecl;external libX11;
+function XQueryKeymap(para1:PDisplay; para2:chararr32):longint;cdecl;external libX11;
 function XQueryPointer(para1:PDisplay; para2:TWindow; para3:PWindow; para4:PWindow; para5:Plongint;
 function XQueryPointer(para1:PDisplay; para2:TWindow; para3:PWindow; para4:PWindow; para5:Plongint;
-           para6:Plongint; para7:Plongint; para8:Plongint; para9:Pdword):TBool;cdecl;external;
+           para6:Plongint; para7:Plongint; para8:Plongint; para9:Pdword):TBool;cdecl;external libX11;
 function XQueryTextExtents(para1:PDisplay; para2:TXID; para3:Pchar; para4:longint; para5:Plongint;
 function XQueryTextExtents(para1:PDisplay; para2:TXID; para3:Pchar; para4:longint; para5:Plongint;
-           para6:Plongint; para7:Plongint; para8:PXCharStruct):longint;cdecl;external;
+           para6:Plongint; para7:Plongint; para8:PXCharStruct):longint;cdecl;external libX11;
 function XQueryTextExtents16(para1:PDisplay; para2:TXID; para3:PXChar2b; para4:longint; para5:Plongint;
 function XQueryTextExtents16(para1:PDisplay; para2:TXID; para3:PXChar2b; para4:longint; para5:Plongint;
-           para6:Plongint; para7:Plongint; para8:PXCharStruct):longint;cdecl;external;
+           para6:Plongint; para7:Plongint; para8:PXCharStruct):longint;cdecl;external libX11;
 function XQueryTree(para1:PDisplay; para2:TWindow; para3:PWindow; para4:PWindow; para5:PPWindow;
 function XQueryTree(para1:PDisplay; para2:TWindow; para3:PWindow; para4:PWindow; para5:PPWindow;
-           para6:Pdword):TStatus;cdecl;external;
-function XRaiseWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external;
+           para6:Pdword):TStatus;cdecl;external libX11;
+function XRaiseWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external libX11;
 function XReadBitmapFile(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:Pdword; para5:Pdword;
 function XReadBitmapFile(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:Pdword; para5:Pdword;
-           para6:PPixmap; para7:Plongint; para8:Plongint):longint;cdecl;external;
+           para6:PPixmap; para7:Plongint; para8:Plongint):longint;cdecl;external libX11;
 function XReadBitmapFileData(para1:Pchar; para2:Pdword; para3:Pdword; para4:PPbyte; para5:Plongint;
 function XReadBitmapFileData(para1:Pchar; para2:Pdword; para3:Pdword; para4:PPbyte; para5:Plongint;
-           para6:Plongint):longint;cdecl;external;
+           para6:Plongint):longint;cdecl;external libX11;
 function XRebindKeysym(para1:PDisplay; para2:TKeySym; para3:PKeySym; para4:longint; para5:Pbyte;
 function XRebindKeysym(para1:PDisplay; para2:TKeySym; para3:PKeySym; para4:longint; para5:Pbyte;
-           para6:longint):longint;cdecl;external;
-function XRecolorCursor(para1:PDisplay; para2:TCursor; para3:PXColor; para4:PXColor):longint;cdecl;external;
-function XRefreshKeyboardMapping(para1:PXMappingEvent):longint;cdecl;external;
-function XRemoveFromSaveSet(para1:PDisplay; para2:TWindow):longint;cdecl;external;
-function XRemoveHost(para1:PDisplay; para2:PXHostAddress):longint;cdecl;external;
-function XRemoveHosts(para1:PDisplay; para2:PXHostAddress; para3:longint):longint;cdecl;external;
-function XReparentWindow(para1:PDisplay; para2:TWindow; para3:TWindow; para4:longint; para5:longint):longint;cdecl;external;
-function XResetScreenSaver(para1:PDisplay):longint;cdecl;external;
-function XResizeWindow(para1:PDisplay; para2:TWindow; para3:dword; para4:dword):longint;cdecl;external;
-function XRestackWindows(para1:PDisplay; para2:PWindow; para3:longint):longint;cdecl;external;
-function XRotateBuffers(para1:PDisplay; para2:longint):longint;cdecl;external;
-function XRotateWindowProperties(para1:PDisplay; para2:TWindow; para3:PAtom; para4:longint; para5:longint):longint;cdecl;external;
-function XScreenCount(para1:PDisplay):longint;cdecl;external;
-function XSelectInput(para1:PDisplay; para2:TWindow; para3:longint):longint;cdecl;external;
-function XSendEvent(para1:PDisplay; para2:TWindow; para3:TBool; para4:longint; para5:PXEvent):TStatus;cdecl;external;
-function XSetAccessControl(para1:PDisplay; para2:longint):longint;cdecl;external;
-function XSetArcMode(para1:PDisplay; para2:TGC; para3:longint):longint;cdecl;external;
-function XSetBackground(para1:PDisplay; para2:TGC; para3:dword):longint;cdecl;external;
-function XSetClipMask(para1:PDisplay; para2:TGC; para3:TPixmap):longint;cdecl;external;
-function XSetClipOrigin(para1:PDisplay; para2:TGC; para3:longint; para4:longint):longint;cdecl;external;
+           para6:longint):longint;cdecl;external libX11;
+function XRecolorCursor(para1:PDisplay; para2:TCursor; para3:PXColor; para4:PXColor):longint;cdecl;external libX11;
+function XRefreshKeyboardMapping(para1:PXMappingEvent):longint;cdecl;external libX11;
+function XRemoveFromSaveSet(para1:PDisplay; para2:TWindow):longint;cdecl;external libX11;
+function XRemoveHost(para1:PDisplay; para2:PXHostAddress):longint;cdecl;external libX11;
+function XRemoveHosts(para1:PDisplay; para2:PXHostAddress; para3:longint):longint;cdecl;external libX11;
+function XReparentWindow(para1:PDisplay; para2:TWindow; para3:TWindow; para4:longint; para5:longint):longint;cdecl;external libX11;
+function XResetScreenSaver(para1:PDisplay):longint;cdecl;external libX11;
+function XResizeWindow(para1:PDisplay; para2:TWindow; para3:dword; para4:dword):longint;cdecl;external libX11;
+function XRestackWindows(para1:PDisplay; para2:PWindow; para3:longint):longint;cdecl;external libX11;
+function XRotateBuffers(para1:PDisplay; para2:longint):longint;cdecl;external libX11;
+function XRotateWindowProperties(para1:PDisplay; para2:TWindow; para3:PAtom; para4:longint; para5:longint):longint;cdecl;external libX11;
+function XScreenCount(para1:PDisplay):longint;cdecl;external libX11;
+function XSelectInput(para1:PDisplay; para2:TWindow; para3:longint):longint;cdecl;external libX11;
+function XSendEvent(para1:PDisplay; para2:TWindow; para3:TBool; para4:longint; para5:PXEvent):TStatus;cdecl;external libX11;
+function XSetAccessControl(para1:PDisplay; para2:longint):longint;cdecl;external libX11;
+function XSetArcMode(para1:PDisplay; para2:TGC; para3:longint):longint;cdecl;external libX11;
+function XSetBackground(para1:PDisplay; para2:TGC; para3:dword):longint;cdecl;external libX11;
+function XSetClipMask(para1:PDisplay; para2:TGC; para3:TPixmap):longint;cdecl;external libX11;
+function XSetClipOrigin(para1:PDisplay; para2:TGC; para3:longint; para4:longint):longint;cdecl;external libX11;
 function XSetClipRectangles(para1:PDisplay; para2:TGC; para3:longint; para4:longint; para5:PXRectangle;
 function XSetClipRectangles(para1:PDisplay; para2:TGC; para3:longint; para4:longint; para5:PXRectangle;
-           para6:longint; para7:longint):longint;cdecl;external;
-function XSetCloseDownMode(para1:PDisplay; para2:longint):longint;cdecl;external;
-function XSetCommand(para1:PDisplay; para2:TWindow; para3:PPchar; para4:longint):longint;cdecl;external;
-function XSetDashes(para1:PDisplay; para2:TGC; para3:longint; para4:Pchar; para5:longint):longint;cdecl;external;
-function XSetFillRule(para1:PDisplay; para2:TGC; para3:longint):longint;cdecl;external;
-function XSetFillStyle(para1:PDisplay; para2:TGC; para3:longint):longint;cdecl;external;
-function XSetFont(para1:PDisplay; para2:TGC; para3:TFont):longint;cdecl;external;
-function XSetFontPath(para1:PDisplay; para2:PPchar; para3:longint):longint;cdecl;external;
-function XSetForeground(para1:PDisplay; para2:TGC; para3:dword):longint;cdecl;external;
-function XSetFunction(para1:PDisplay; para2:TGC; para3:longint):longint;cdecl;external;
-function XSetGraphicsExposures(para1:PDisplay; para2:TGC; para3:TBool):longint;cdecl;external;
-function XSetIconName(para1:PDisplay; para2:TWindow; para3:Pchar):longint;cdecl;external;
-function XSetInputFocus(para1:PDisplay; para2:TWindow; para3:longint; para4:TTime):longint;cdecl;external;
+           para6:longint; para7:longint):longint;cdecl;external libX11;
+function XSetCloseDownMode(para1:PDisplay; para2:longint):longint;cdecl;external libX11;
+function XSetCommand(para1:PDisplay; para2:TWindow; para3:PPchar; para4:longint):longint;cdecl;external libX11;
+function XSetDashes(para1:PDisplay; para2:TGC; para3:longint; para4:Pchar; para5:longint):longint;cdecl;external libX11;
+function XSetFillRule(para1:PDisplay; para2:TGC; para3:longint):longint;cdecl;external libX11;
+function XSetFillStyle(para1:PDisplay; para2:TGC; para3:longint):longint;cdecl;external libX11;
+function XSetFont(para1:PDisplay; para2:TGC; para3:TFont):longint;cdecl;external libX11;
+function XSetFontPath(para1:PDisplay; para2:PPchar; para3:longint):longint;cdecl;external libX11;
+function XSetForeground(para1:PDisplay; para2:TGC; para3:dword):longint;cdecl;external libX11;
+function XSetFunction(para1:PDisplay; para2:TGC; para3:longint):longint;cdecl;external libX11;
+function XSetGraphicsExposures(para1:PDisplay; para2:TGC; para3:TBool):longint;cdecl;external libX11;
+function XSetIconName(para1:PDisplay; para2:TWindow; para3:Pchar):longint;cdecl;external libX11;
+function XSetInputFocus(para1:PDisplay; para2:TWindow; para3:longint; para4:TTime):longint;cdecl;external libX11;
 function XSetLineAttributes(para1:PDisplay; para2:TGC; para3:dword; para4:longint; para5:longint;
 function XSetLineAttributes(para1:PDisplay; para2:TGC; para3:dword; para4:longint; para5:longint;
-           para6:longint):longint;cdecl;external;
-function XSetModifierMapping(para1:PDisplay; para2:PXModifierKeymap):longint;cdecl;external;
-function XSetPlaneMask(para1:PDisplay; para2:TGC; para3:dword):longint;cdecl;external;
-function XSetPointerMapping(para1:PDisplay; para2:Pbyte; para3:longint):longint;cdecl;external;
-function XSetScreenSaver(para1:PDisplay; para2:longint; para3:longint; para4:longint; para5:longint):longint;cdecl;external;
-function XSetSelectionOwner(para1:PDisplay; para2:TAtom; para3:TWindow; para4:TTime):longint;cdecl;external;
+           para6:longint):longint;cdecl;external libX11;
+function XSetModifierMapping(para1:PDisplay; para2:PXModifierKeymap):longint;cdecl;external libX11;
+function XSetPlaneMask(para1:PDisplay; para2:TGC; para3:dword):longint;cdecl;external libX11;
+function XSetPointerMapping(para1:PDisplay; para2:Pbyte; para3:longint):longint;cdecl;external libX11;
+function XSetScreenSaver(para1:PDisplay; para2:longint; para3:longint; para4:longint; para5:longint):longint;cdecl;external libX11;
+function XSetSelectionOwner(para1:PDisplay; para2:TAtom; para3:TWindow; para4:TTime):longint;cdecl;external libX11;
 function XSetState(para1:PDisplay; para2:TGC; para3:dword; para4:dword; para5:longint;
 function XSetState(para1:PDisplay; para2:TGC; para3:dword; para4:dword; para5:longint;
-           para6:dword):longint;cdecl;external;
-function XSetStipple(para1:PDisplay; para2:TGC; para3:TPixmap):longint;cdecl;external;
-function XSetSubwindowMode(para1:PDisplay; para2:TGC; para3:longint):longint;cdecl;external;
-function XSetTSOrigin(para1:PDisplay; para2:TGC; para3:longint; para4:longint):longint;cdecl;external;
-function XSetTile(para1:PDisplay; para2:TGC; para3:TPixmap):longint;cdecl;external;
-function XSetWindowBackground(para1:PDisplay; para2:TWindow; para3:dword):longint;cdecl;external;
-function XSetWindowBackgroundPixmap(para1:PDisplay; para2:TWindow; para3:TPixmap):longint;cdecl;external;
-function XSetWindowBorder(para1:PDisplay; para2:TWindow; para3:dword):longint;cdecl;external;
-function XSetWindowBorderPixmap(para1:PDisplay; para2:TWindow; para3:TPixmap):longint;cdecl;external;
-function XSetWindowBorderWidth(para1:PDisplay; para2:TWindow; para3:dword):longint;cdecl;external;
-function XSetWindowColormap(para1:PDisplay; para2:TWindow; para3:TColormap):longint;cdecl;external;
-function XStoreBuffer(para1:PDisplay; para2:Pchar; para3:longint; para4:longint):longint;cdecl;external;
-function XStoreBytes(para1:PDisplay; para2:Pchar; para3:longint):longint;cdecl;external;
-function XStoreColor(para1:PDisplay; para2:TColormap; para3:PXColor):longint;cdecl;external;
-function XStoreColors(para1:PDisplay; para2:TColormap; para3:PXColor; para4:longint):longint;cdecl;external;
-function XStoreName(para1:PDisplay; para2:TWindow; para3:Pchar):longint;cdecl;external;
-function XStoreNamedColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:dword; para5:longint):longint;cdecl;external;
-function XSync(para1:PDisplay; para2:TBool):longint;cdecl;external;
+           para6:dword):longint;cdecl;external libX11;
+function XSetStipple(para1:PDisplay; para2:TGC; para3:TPixmap):longint;cdecl;external libX11;
+function XSetSubwindowMode(para1:PDisplay; para2:TGC; para3:longint):longint;cdecl;external libX11;
+function XSetTSOrigin(para1:PDisplay; para2:TGC; para3:longint; para4:longint):longint;cdecl;external libX11;
+function XSetTile(para1:PDisplay; para2:TGC; para3:TPixmap):longint;cdecl;external libX11;
+function XSetWindowBackground(para1:PDisplay; para2:TWindow; para3:dword):longint;cdecl;external libX11;
+function XSetWindowBackgroundPixmap(para1:PDisplay; para2:TWindow; para3:TPixmap):longint;cdecl;external libX11;
+function XSetWindowBorder(para1:PDisplay; para2:TWindow; para3:dword):longint;cdecl;external libX11;
+function XSetWindowBorderPixmap(para1:PDisplay; para2:TWindow; para3:TPixmap):longint;cdecl;external libX11;
+function XSetWindowBorderWidth(para1:PDisplay; para2:TWindow; para3:dword):longint;cdecl;external libX11;
+function XSetWindowColormap(para1:PDisplay; para2:TWindow; para3:TColormap):longint;cdecl;external libX11;
+function XStoreBuffer(para1:PDisplay; para2:Pchar; para3:longint; para4:longint):longint;cdecl;external libX11;
+function XStoreBytes(para1:PDisplay; para2:Pchar; para3:longint):longint;cdecl;external libX11;
+function XStoreColor(para1:PDisplay; para2:TColormap; para3:PXColor):longint;cdecl;external libX11;
+function XStoreColors(para1:PDisplay; para2:TColormap; para3:PXColor; para4:longint):longint;cdecl;external libX11;
+function XStoreName(para1:PDisplay; para2:TWindow; para3:Pchar):longint;cdecl;external libX11;
+function XStoreNamedColor(para1:PDisplay; para2:TColormap; para3:Pchar; para4:dword; para5:longint):longint;cdecl;external libX11;
+function XSync(para1:PDisplay; para2:TBool):longint;cdecl;external libX11;
 function XTextExtents(para1:PXFontStruct; para2:Pchar; para3:longint; para4:Plongint; para5:Plongint;
 function XTextExtents(para1:PXFontStruct; para2:Pchar; para3:longint; para4:Plongint; para5:Plongint;
-           para6:Plongint; para7:PXCharStruct):longint;cdecl;external;
+           para6:Plongint; para7:PXCharStruct):longint;cdecl;external libX11;
 function XTextExtents16(para1:PXFontStruct; para2:PXChar2b; para3:longint; para4:Plongint; para5:Plongint;
 function XTextExtents16(para1:PXFontStruct; para2:PXChar2b; para3:longint; para4:Plongint; para5:Plongint;
-           para6:Plongint; para7:PXCharStruct):longint;cdecl;external;
-function XTextWidth(para1:PXFontStruct; para2:Pchar; para3:longint):longint;cdecl;external;
-function XTextWidth16(para1:PXFontStruct; para2:PXChar2b; para3:longint):longint;cdecl;external;
+           para6:Plongint; para7:PXCharStruct):longint;cdecl;external libX11;
+function XTextWidth(para1:PXFontStruct; para2:Pchar; para3:longint):longint;cdecl;external libX11;
+function XTextWidth16(para1:PXFontStruct; para2:PXChar2b; para3:longint):longint;cdecl;external libX11;
 function XTranslateCoordinates(para1:PDisplay; para2:TWindow; para3:TWindow; para4:longint; para5:longint;
 function XTranslateCoordinates(para1:PDisplay; para2:TWindow; para3:TWindow; para4:longint; para5:longint;
-           para6:Plongint; para7:Plongint; para8:PWindow):TBool;cdecl;external;
-function XUndefineCursor(para1:PDisplay; para2:TWindow):longint;cdecl;external;
-function XUngrabButton(para1:PDisplay; para2:dword; para3:dword; para4:TWindow):longint;cdecl;external;
-function XUngrabKey(para1:PDisplay; para2:longint; para3:dword; para4:TWindow):longint;cdecl;external;
-function XUngrabKeyboard(para1:PDisplay; para2:TTime):longint;cdecl;external;
-function XUngrabPointer(para1:PDisplay; para2:TTime):longint;cdecl;external;
-function XUngrabServer(para1:PDisplay):longint;cdecl;external;
-function XUninstallColormap(para1:PDisplay; para2:TColormap):longint;cdecl;external;
-function XUnloadFont(para1:PDisplay; para2:TFont):longint;cdecl;external;
-function XUnmapSubwindows(para1:PDisplay; para2:TWindow):longint;cdecl;external;
-function XUnmapWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external;
-function XVendorRelease(para1:PDisplay):longint;cdecl;external;
+           para6:Plongint; para7:Plongint; para8:PWindow):TBool;cdecl;external libX11;
+function XUndefineCursor(para1:PDisplay; para2:TWindow):longint;cdecl;external libX11;
+function XUngrabButton(para1:PDisplay; para2:dword; para3:dword; para4:TWindow):longint;cdecl;external libX11;
+function XUngrabKey(para1:PDisplay; para2:longint; para3:dword; para4:TWindow):longint;cdecl;external libX11;
+function XUngrabKeyboard(para1:PDisplay; para2:TTime):longint;cdecl;external libX11;
+function XUngrabPointer(para1:PDisplay; para2:TTime):longint;cdecl;external libX11;
+function XUngrabServer(para1:PDisplay):longint;cdecl;external libX11;
+function XUninstallColormap(para1:PDisplay; para2:TColormap):longint;cdecl;external libX11;
+function XUnloadFont(para1:PDisplay; para2:TFont):longint;cdecl;external libX11;
+function XUnmapSubwindows(para1:PDisplay; para2:TWindow):longint;cdecl;external libX11;
+function XUnmapWindow(para1:PDisplay; para2:TWindow):longint;cdecl;external libX11;
+function XVendorRelease(para1:PDisplay):longint;cdecl;external libX11;
 function XWarpPointer(para1:PDisplay; para2:TWindow; para3:TWindow; para4:longint; para5:longint;
 function XWarpPointer(para1:PDisplay; para2:TWindow; para3:TWindow; para4:longint; para5:longint;
-           para6:dword; para7:dword; para8:longint; para9:longint):longint;cdecl;external;
-function XWidthMMOfScreen(para1:PScreen):longint;cdecl;external;
-function XWidthOfScreen(para1:PScreen):longint;cdecl;external;
-function XWindowEvent(para1:PDisplay; para2:TWindow; para3:longint; para4:PXEvent):longint;cdecl;external;
+           para6:dword; para7:dword; para8:longint; para9:longint):longint;cdecl;external libX11;
+function XWidthMMOfScreen(para1:PScreen):longint;cdecl;external libX11;
+function XWidthOfScreen(para1:PScreen):longint;cdecl;external libX11;
+function XWindowEvent(para1:PDisplay; para2:TWindow; para3:longint; para4:PXEvent):longint;cdecl;external libX11;
 function XWriteBitmapFile(para1:PDisplay; para2:Pchar; para3:TPixmap; para4:dword; para5:dword;
 function XWriteBitmapFile(para1:PDisplay; para2:Pchar; para3:TPixmap; para4:dword; para5:dword;
-           para6:longint; para7:longint):longint;cdecl;external;
-function XSupportsLocale:TBool;cdecl;external;
-function XSetLocaleModifiers(para1:Pchar):Pchar;cdecl;external;
-function XOpenOM(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar):TXOM;cdecl;external;
-function XCloseOM(para1:TXOM):TStatus;cdecl;external;
-function XSetOMValues:Pchar;cdecl;external;
-function XGetOMValues:Pchar;cdecl;external;
-function XDisplayOfOM(para1:TXOM):PDisplay;cdecl;external;
-function XLocaleOfOM(para1:TXOM):Pchar;cdecl;external;
-function XCreateOC:TXOC;cdecl;external;
-procedure XDestroyOC(para1:TXOC);cdecl;external;
-function XOMOfOC(para1:TXOC):TXOM;cdecl;external;
-function XSetOCValues:Pchar;cdecl;external;
-function XGetOCValues:Pchar;cdecl;external;
-function XCreateFontSet(para1:PDisplay; para2:Pchar; para3:PPPchar; para4:Plongint; para5:PPchar):TXFontSet;cdecl;external;
-procedure XFreeFontSet(para1:PDisplay; para2:TXFontSet);cdecl;external;
-function XFontsOfFontSet(para1:TXFontSet; para2:PPPXFontStruct; para3:PPPchar):longint;cdecl;external;
-function XBaseFontNameListOfFontSet(para1:TXFontSet):Pchar;cdecl;external;
-function XLocaleOfFontSet(para1:TXFontSet):Pchar;cdecl;external;
-function XContextDependentDrawing(para1:TXFontSet):TBool;cdecl;external;
-function XDirectionalDependentDrawing(para1:TXFontSet):TBool;cdecl;external;
-function XContextualDrawing(para1:TXFontSet):TBool;cdecl;external;
-function XExtentsOfFontSet(para1:TXFontSet):PXFontSetExtents;cdecl;external;
-function XmbTextEscapement(para1:TXFontSet; para2:Pchar; para3:longint):longint;cdecl;external;
-function XwcTextEscapement(para1:TXFontSet; para2:PWideChar; para3:longint):longint;cdecl;external;
-function XmbTextExtents(para1:TXFontSet; para2:Pchar; para3:longint; para4:PXRectangle; para5:PXRectangle):longint;cdecl;external;
-function XwcTextExtents(para1:TXFontSet; para2:PWideChar; para3:longint; para4:PXRectangle; para5:PXRectangle):longint;cdecl;external;
+           para6:longint; para7:longint):longint;cdecl;external libX11;
+function XSupportsLocale:TBool;cdecl;external libX11;
+function XSetLocaleModifiers(para1:Pchar):Pchar;cdecl;external libX11;
+function XOpenOM(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar):TXOM;cdecl;external libX11;
+function XCloseOM(para1:TXOM):TStatus;cdecl;external libX11;
+function XSetOMValues:Pchar;cdecl;external libX11;
+function XGetOMValues:Pchar;cdecl;external libX11;
+function XDisplayOfOM(para1:TXOM):PDisplay;cdecl;external libX11;
+function XLocaleOfOM(para1:TXOM):Pchar;cdecl;external libX11;
+function XCreateOC:TXOC;cdecl;external libX11;
+procedure XDestroyOC(para1:TXOC);cdecl;external libX11;
+function XOMOfOC(para1:TXOC):TXOM;cdecl;external libX11;
+function XSetOCValues:Pchar;cdecl;external libX11;
+function XGetOCValues:Pchar;cdecl;external libX11;
+function XCreateFontSet(para1:PDisplay; para2:Pchar; para3:PPPchar; para4:Plongint; para5:PPchar):TXFontSet;cdecl;external libX11;
+procedure XFreeFontSet(para1:PDisplay; para2:TXFontSet);cdecl;external libX11;
+function XFontsOfFontSet(para1:TXFontSet; para2:PPPXFontStruct; para3:PPPchar):longint;cdecl;external libX11;
+function XBaseFontNameListOfFontSet(para1:TXFontSet):Pchar;cdecl;external libX11;
+function XLocaleOfFontSet(para1:TXFontSet):Pchar;cdecl;external libX11;
+function XContextDependentDrawing(para1:TXFontSet):TBool;cdecl;external libX11;
+function XDirectionalDependentDrawing(para1:TXFontSet):TBool;cdecl;external libX11;
+function XContextualDrawing(para1:TXFontSet):TBool;cdecl;external libX11;
+function XExtentsOfFontSet(para1:TXFontSet):PXFontSetExtents;cdecl;external libX11;
+function XmbTextEscapement(para1:TXFontSet; para2:Pchar; para3:longint):longint;cdecl;external libX11;
+function XwcTextEscapement(para1:TXFontSet; para2:PWideChar; para3:longint):longint;cdecl;external libX11;
+function XmbTextExtents(para1:TXFontSet; para2:Pchar; para3:longint; para4:PXRectangle; para5:PXRectangle):longint;cdecl;external libX11;
+function XwcTextExtents(para1:TXFontSet; para2:PWideChar; para3:longint; para4:PXRectangle; para5:PXRectangle):longint;cdecl;external libX11;
 function XmbTextPerCharExtents(para1:TXFontSet; para2:Pchar; para3:longint; para4:PXRectangle; para5:PXRectangle;
 function XmbTextPerCharExtents(para1:TXFontSet; para2:Pchar; para3:longint; para4:PXRectangle; para5:PXRectangle;
-           para6:longint; para7:Plongint; para8:PXRectangle; para9:PXRectangle):TStatus;cdecl;external;
+           para6:longint; para7:Plongint; para8:PXRectangle; para9:PXRectangle):TStatus;cdecl;external libX11;
 function XwcTextPerCharExtents(para1:TXFontSet; para2:PWideChar; para3:longint; para4:PXRectangle; para5:PXRectangle;
 function XwcTextPerCharExtents(para1:TXFontSet; para2:PWideChar; para3:longint; para4:PXRectangle; para5:PXRectangle;
-           para6:longint; para7:Plongint; para8:PXRectangle; para9:PXRectangle):TStatus;cdecl;external;
+           para6:longint; para7:Plongint; para8:PXRectangle; para9:PXRectangle):TStatus;cdecl;external libX11;
 procedure XmbDrawText(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
 procedure XmbDrawText(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
-            para6:PXmbTextItem; para7:longint);cdecl;external;
+            para6:PXmbTextItem; para7:longint);cdecl;external libX11;
 procedure XwcDrawText(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
 procedure XwcDrawText(para1:PDisplay; para2:TDrawable; para3:TGC; para4:longint; para5:longint;
-            para6:PXwcTextItem; para7:longint);cdecl;external;
+            para6:PXwcTextItem; para7:longint);cdecl;external libX11;
 procedure XmbDrawString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:longint;
 procedure XmbDrawString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:longint;
-            para6:longint; para7:Pchar; para8:longint);cdecl;external;
+            para6:longint; para7:Pchar; para8:longint);cdecl;external libX11;
 procedure XwcDrawString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:longint;
 procedure XwcDrawString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:longint;
-            para6:longint; para7:PWideChar; para8:longint);cdecl;external;
+            para6:longint; para7:PWideChar; para8:longint);cdecl;external libX11;
 procedure XmbDrawImageString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:longint;
 procedure XmbDrawImageString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:longint;
-            para6:longint; para7:Pchar; para8:longint);cdecl;external;
+            para6:longint; para7:Pchar; para8:longint);cdecl;external libX11;
 procedure XwcDrawImageString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:longint;
 procedure XwcDrawImageString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:longint;
-            para6:longint; para7:PWideChar; para8:longint);cdecl;external;
-function XOpenIM(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar):TXIM;cdecl;external;
-function XCloseIM(para1:TXIM):TStatus;cdecl;external;
-function XGetIMValues:Pchar;cdecl;external;
-function XDisplayOfIM(para1:TXIM):PDisplay;cdecl;external;
-function XLocaleOfIM(para1:TXIM):Pchar;cdecl;external;
-function XCreateIC:TXIC;cdecl;external;
-procedure XDestroyIC(para1:TXIC);cdecl;external;
-procedure XSetICFocus(para1:TXIC);cdecl;external;
-procedure XUnsetICFocus(para1:TXIC);cdecl;external;
-function XwcResetIC(para1:TXIC):PWideChar;cdecl;external;
-function XmbResetIC(para1:TXIC):Pchar;cdecl;external;
-function XSetICValues:Pchar;cdecl;external;
-function XGetICValues:Pchar;cdecl;external;
-function XIMOfIC(para1:TXIC):TXIM;cdecl;external;
-function XFilterEvent(para1:PXEvent; para2:TWindow):TBool;cdecl;external;
+            para6:longint; para7:PWideChar; para8:longint);cdecl;external libX11;
+function XOpenIM(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar):TXIM;cdecl;external libX11;
+function XCloseIM(para1:TXIM):TStatus;cdecl;external libX11;
+function XGetIMValues:Pchar;cdecl;external libX11;
+function XDisplayOfIM(para1:TXIM):PDisplay;cdecl;external libX11;
+function XLocaleOfIM(para1:TXIM):Pchar;cdecl;external libX11;
+function XCreateIC:TXIC;cdecl;external libX11;
+procedure XDestroyIC(para1:TXIC);cdecl;external libX11;
+procedure XSetICFocus(para1:TXIC);cdecl;external libX11;
+procedure XUnsetICFocus(para1:TXIC);cdecl;external libX11;
+function XwcResetIC(para1:TXIC):PWideChar;cdecl;external libX11;
+function XmbResetIC(para1:TXIC):Pchar;cdecl;external libX11;
+function XSetICValues:Pchar;cdecl;external libX11;
+function XGetICValues:Pchar;cdecl;external libX11;
+function XIMOfIC(para1:TXIC):TXIM;cdecl;external libX11;
+function XFilterEvent(para1:PXEvent; para2:TWindow):TBool;cdecl;external libX11;
 function XmbLookupString(para1:TXIC; para2:PXKeyPressedEvent; para3:Pchar; para4:longint; para5:PKeySym;
 function XmbLookupString(para1:TXIC; para2:PXKeyPressedEvent; para3:Pchar; para4:longint; para5:PKeySym;
-           para6:PStatus):longint;cdecl;external;
+           para6:PStatus):longint;cdecl;external libX11;
 function XwcLookupString(para1:TXIC; para2:PXKeyPressedEvent; para3:PWideChar; para4:longint; para5:PKeySym;
 function XwcLookupString(para1:TXIC; para2:PXKeyPressedEvent; para3:PWideChar; para4:longint; para5:PKeySym;
-           para6:PStatus):longint;cdecl;external;
-function XVaCreateNestedList:TXVaNestedList;cdecl;external;
+           para6:PStatus):longint;cdecl;external libX11;
+function XVaCreateNestedList:TXVaNestedList;cdecl;external libX11;
 function XRegisterIMInstantiateCallback(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar; para5:TXIDProc;
 function XRegisterIMInstantiateCallback(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar; para5:TXIDProc;
-           para6:TXPointer):TBool;cdecl;external;
+           para6:TXPointer):TBool;cdecl;external libX11;
 function XUnregisterIMInstantiateCallback(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar; para5:TXIDProc;
 function XUnregisterIMInstantiateCallback(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar; para5:TXIDProc;
-           para6:TXPointer):TBool;cdecl;external;
+           para6:TXPointer):TBool;cdecl;external libX11;
 type
 type
 
 
    TXConnectionWatchProc = procedure (para1:PDisplay; para2:TXPointer; para3:longint; para4:TBool; para5:PXPointer);cdecl;
    TXConnectionWatchProc = procedure (para1:PDisplay; para2:TXPointer; para3:longint; para4:TBool; para5:PXPointer);cdecl;
 
 
-function XInternalConnectionNumbers(para1:PDisplay; para2:PPlongint; para3:Plongint):TStatus;cdecl;external;
-procedure XProcessInternalConnection(para1:PDisplay; para2:longint);cdecl;external;
-function XAddConnectionWatch(para1:PDisplay; para2:TXConnectionWatchProc; para3:TXPointer):TStatus;cdecl;external;
-procedure XRemoveConnectionWatch(para1:PDisplay; para2:TXConnectionWatchProc; para3:TXPointer);cdecl;external;
-procedure XSetAuthorization(para1:Pchar; para2:longint; para3:Pchar; para4:longint);cdecl;external;
+function XInternalConnectionNumbers(para1:PDisplay; para2:PPlongint; para3:Plongint):TStatus;cdecl;external libX11;
+procedure XProcessInternalConnection(para1:PDisplay; para2:longint);cdecl;external libX11;
+function XAddConnectionWatch(para1:PDisplay; para2:TXConnectionWatchProc; para3:TXPointer):TStatus;cdecl;external libX11;
+procedure XRemoveConnectionWatch(para1:PDisplay; para2:TXConnectionWatchProc; para3:TXPointer);cdecl;external libX11;
+procedure XSetAuthorization(para1:Pchar; para2:longint; para3:Pchar; para4:longint);cdecl;external libX11;
 
 
 implementation
 implementation
 
 

+ 25 - 15
packages/extra/x11/xrender.pp

@@ -3,6 +3,16 @@ interface
 uses
 uses
   x,xlib;
   x,xlib;
 
 
+{$ifndef os2}
+  {$LinkLib c}
+  {$LinkLib X11}
+const
+  libX11='X11';
+{$else}
+const
+  libX11='X11';
+{$endif}
+
 {
 {
   Automatically converted by H2Pas 0.99.15 from xrender.h
   Automatically converted by H2Pas 0.99.15 from xrender.h
   The following command line parameters were used:
   The following command line parameters were used:
@@ -196,26 +206,26 @@ type
         yOff : smallint;
         yOff : smallint;
      end;
      end;
 
 
-function XRenderQueryExtension(dpy:PDisplay; event_basep:Plongint; error_basep:Plongint):TBool;cdecl;external;
-function XRenderQueryVersion(dpy:PDisplay; major_versionp:Plongint; minor_versionp:Plongint):TStatus;cdecl;external;
-function XRenderQueryFormats(dpy:PDisplay):TStatus;cdecl;external;
-function XRenderFindVisualFormat(dpy:PDisplay; visual:PVisual):PXRenderPictFormat;cdecl;external;
-function XRenderFindFormat(dpy:PDisplay; mask:dword; template:PXRenderPictFormat; count:longint):PXRenderPictFormat;cdecl;external;
-function XRenderCreatePicture(dpy:PDisplay; drawable:TDrawable; format:PXRenderPictFormat; valuemask:dword; attributes:PXRenderPictureAttributes):TPicture;cdecl;external;
-procedure XRenderChangePicture(dpy:PDisplay; picture:TPicture; valuemask:dword; attributes:PXRenderPictureAttributes);cdecl;external;
-procedure XRenderFreePicture(dpy:PDisplay; picture:TPicture);cdecl;external;
+function XRenderQueryExtension(dpy:PDisplay; event_basep:Plongint; error_basep:Plongint):TBool;cdecl;external libX11;
+function XRenderQueryVersion(dpy:PDisplay; major_versionp:Plongint; minor_versionp:Plongint):TStatus;cdecl;external libX11;
+function XRenderQueryFormats(dpy:PDisplay):TStatus;cdecl;external libX11;
+function XRenderFindVisualFormat(dpy:PDisplay; visual:PVisual):PXRenderPictFormat;cdecl;external libX11;
+function XRenderFindFormat(dpy:PDisplay; mask:dword; template:PXRenderPictFormat; count:longint):PXRenderPictFormat;cdecl;external libX11;
+function XRenderCreatePicture(dpy:PDisplay; drawable:TDrawable; format:PXRenderPictFormat; valuemask:dword; attributes:PXRenderPictureAttributes):TPicture;cdecl;external libX11;
+procedure XRenderChangePicture(dpy:PDisplay; picture:TPicture; valuemask:dword; attributes:PXRenderPictureAttributes);cdecl;external libX11;
+procedure XRenderFreePicture(dpy:PDisplay; picture:TPicture);cdecl;external libX11;
 procedure XRenderComposite(dpy:PDisplay; op:longint; src:TPicture; mask:TPicture; dst:TPicture;
 procedure XRenderComposite(dpy:PDisplay; op:longint; src:TPicture; mask:TPicture; dst:TPicture;
             src_x:longint; src_y:longint; mask_x:longint; mask_y:longint; dst_x:longint;
             src_x:longint; src_y:longint; mask_x:longint; mask_y:longint; dst_x:longint;
-            dst_y:longint; width:dword; height:dword);cdecl;external;
-function XRenderCreateGlyphSet(dpy:PDisplay; format:PXRenderPictFormat):TGlyphSet;cdecl;external;
-function XRenderReferenceGlyphSet(dpy:PDisplay; existing:TGlyphSet):TGlyphSet;cdecl;external;
-procedure XRenderFreeGlyphSet(dpy:PDisplay; glyphset:TGlyphSet);cdecl;external;
+            dst_y:longint; width:dword; height:dword);cdecl;external libX11;
+function XRenderCreateGlyphSet(dpy:PDisplay; format:PXRenderPictFormat):TGlyphSet;cdecl;external libX11;
+function XRenderReferenceGlyphSet(dpy:PDisplay; existing:TGlyphSet):TGlyphSet;cdecl;external libX11;
+procedure XRenderFreeGlyphSet(dpy:PDisplay; glyphset:TGlyphSet);cdecl;external libX11;
 procedure XRenderAddGlyphs(dpy:PDisplay; glyphset:TGlyphSet; gids:PGlyph; glyphs:PXGlyphInfo; nglyphs:longint;
 procedure XRenderAddGlyphs(dpy:PDisplay; glyphset:TGlyphSet; gids:PGlyph; glyphs:PXGlyphInfo; nglyphs:longint;
-            images:Pchar; nbyte_images:longint);cdecl;external;
-procedure XRenderFreeGlyphs(dpy:PDisplay; glyphset:TGlyphSet; gids:PGlyph; nglyphs:longint);cdecl;external;
+            images:Pchar; nbyte_images:longint);cdecl;external libX11;
+procedure XRenderFreeGlyphs(dpy:PDisplay; glyphset:TGlyphSet; gids:PGlyph; nglyphs:longint);cdecl;external libX11;
 procedure XRenderCompositeString8(dpy:PDisplay; op:longint; src:TPicture; dst:TPicture; maskFormat:PXRenderPictFormat;
 procedure XRenderCompositeString8(dpy:PDisplay; op:longint; src:TPicture; dst:TPicture; maskFormat:PXRenderPictFormat;
             glyphset:TGlyphSet; xSrc:longint; ySrc:longint; xDst:longint; yDst:longint;
             glyphset:TGlyphSet; xSrc:longint; ySrc:longint; xDst:longint; yDst:longint;
-            _string:Pchar; nchar:longint);cdecl;external;
+            _string:Pchar; nchar:longint);cdecl;external libX11;
 
 
 implementation
 implementation
 
 

+ 37 - 30
packages/extra/x11/xresource.pp

@@ -3,8 +3,15 @@ interface
 uses
 uses
   x,xlib;
   x,xlib;
 
 
-{$LinkLib c}
-{$LinkLib X11}
+{$ifndef os2}
+  {$LinkLib c}
+  {$LinkLib X11}
+const
+  libX11='X11';
+{$else}
+const
+  libX11='X11';
+{$endif}
 
 
 {
 {
   Automatically converted by H2Pas 0.99.15 from xresource.h
   Automatically converted by H2Pas 0.99.15 from xresource.h
@@ -20,7 +27,7 @@ uses
 {$PACKRECORDS C}
 {$PACKRECORDS C}
 
 
 
 
-function Xpermalloc(para1:dword):Pchar;cdecl;external;
+function Xpermalloc(para1:dword):Pchar;cdecl;external libX11;
 type
 type
 
 
    PXrmQuark = ^TXrmQuark;
    PXrmQuark = ^TXrmQuark;
@@ -35,10 +42,10 @@ type
    TXrmString = char;
    TXrmString = char;
 function NULLSTRING : TXrmString;
 function NULLSTRING : TXrmString;
 
 
-function XrmStringToQuark(para1:Pchar):TXrmQuark;cdecl;external;
-function XrmPermStringToQuark(para1:Pchar):TXrmQuark;cdecl;external;
-function XrmQuarkToString(para1:TXrmQuark):TXrmString;cdecl;external;
-function XrmUniqueQuark:TXrmQuark;cdecl;external;
+function XrmStringToQuark(para1:Pchar):TXrmQuark;cdecl;external libX11;
+function XrmPermStringToQuark(para1:Pchar):TXrmQuark;cdecl;external libX11;
+function XrmQuarkToString(para1:TXrmQuark):TXrmString;cdecl;external libX11;
+function XrmUniqueQuark:TXrmQuark;cdecl;external libX11;
 {$ifdef MACROS}
 {$ifdef MACROS}
 function XrmStringsEqual(a1,a2 : longint) : longint;
 function XrmStringsEqual(a1,a2 : longint) : longint;
 {$endif MACROS}
 {$endif MACROS}
@@ -50,8 +57,8 @@ type
    TXrmBindingList = PXrmBinding;
    TXrmBindingList = PXrmBinding;
    PXrmBindingList = ^TXrmBindingList;
    PXrmBindingList = ^TXrmBindingList;
 
 
-procedure XrmStringToQuarkList(para1:Pchar; para2:TXrmQuarkList);cdecl;external;
-procedure XrmStringToBindingQuarkList(para1:Pchar; para2:TXrmBindingList; para3:TXrmQuarkList);cdecl;external;
+procedure XrmStringToQuarkList(para1:Pchar; para2:TXrmQuarkList);cdecl;external libX11;
+procedure XrmStringToBindingQuarkList(para1:Pchar; para2:TXrmBindingList; para3:TXrmQuarkList);cdecl;external libX11;
 type
 type
 
 
    PXrmName = ^TXrmName;
    PXrmName = ^TXrmName;
@@ -113,25 +120,25 @@ type
    TXrmDatabase = PXrmHashBucketRec;
    TXrmDatabase = PXrmHashBucketRec;
    PXrmDatabase = ^TXrmDatabase;
    PXrmDatabase = ^TXrmDatabase;
 
 
-procedure XrmDestroyDatabase(para1:TXrmDatabase);cdecl;external;
-procedure XrmQPutResource(para1:PXrmDatabase; para2:TXrmBindingList; para3:TXrmQuarkList; para4:TXrmRepresentation; para5:PXrmValue);cdecl;external;
-procedure XrmPutResource(para1:PXrmDatabase; para2:Pchar; para3:Pchar; para4:PXrmValue);cdecl;external;
-procedure XrmQPutStringResource(para1:PXrmDatabase; para2:TXrmBindingList; para3:TXrmQuarkList; para4:Pchar);cdecl;external;
-procedure XrmPutStringResource(para1:PXrmDatabase; para2:Pchar; para3:Pchar);cdecl;external;
-procedure XrmPutLineResource(para1:PXrmDatabase; para2:Pchar);cdecl;external;
-function XrmQGetResource(para1:TXrmDatabase; para2:TXrmNameList; para3:TXrmClassList; para4:PXrmRepresentation; para5:PXrmValue):TBool;cdecl;external;
-function XrmGetResource(para1:TXrmDatabase; para2:Pchar; para3:Pchar; para4:PPchar; para5:PXrmValue):TBool;cdecl;external;
+procedure XrmDestroyDatabase(para1:TXrmDatabase);cdecl;external libX11;
+procedure XrmQPutResource(para1:PXrmDatabase; para2:TXrmBindingList; para3:TXrmQuarkList; para4:TXrmRepresentation; para5:PXrmValue);cdecl;external libX11;
+procedure XrmPutResource(para1:PXrmDatabase; para2:Pchar; para3:Pchar; para4:PXrmValue);cdecl;external libX11;
+procedure XrmQPutStringResource(para1:PXrmDatabase; para2:TXrmBindingList; para3:TXrmQuarkList; para4:Pchar);cdecl;external libX11;
+procedure XrmPutStringResource(para1:PXrmDatabase; para2:Pchar; para3:Pchar);cdecl;external libX11;
+procedure XrmPutLineResource(para1:PXrmDatabase; para2:Pchar);cdecl;external libX11;
+function XrmQGetResource(para1:TXrmDatabase; para2:TXrmNameList; para3:TXrmClassList; para4:PXrmRepresentation; para5:PXrmValue):TBool;cdecl;external libX11;
+function XrmGetResource(para1:TXrmDatabase; para2:Pchar; para3:Pchar; para4:PPchar; para5:PXrmValue):TBool;cdecl;external libX11;
 { There is no definition of TXrmSearchList }
 { There is no definition of TXrmSearchList }
-{function XrmQGetSearchList(para1:TXrmDatabase; para2:TXrmNameList; para3:TXrmClassList; para4:TXrmSearchList; para5:longint):TBool;cdecl;external;
-function XrmQGetSearchResource(para1:TXrmSearchList; para2:TXrmName; para3:TXrmClass; para4:PXrmRepresentation; para5:PXrmValue):TBool;cdecl;external;}
-procedure XrmSetDatabase(para1:PDisplay; para2:TXrmDatabase);cdecl;external;
-function XrmGetDatabase(para1:PDisplay):TXrmDatabase;cdecl;external;
-function XrmGetFileDatabase(para1:Pchar):TXrmDatabase;cdecl;external;
-function XrmCombineFileDatabase(para1:Pchar; para2:PXrmDatabase; para3:TBool):TStatus;cdecl;external;
-function XrmGetStringDatabase(para1:Pchar):TXrmDatabase;cdecl;external;
-procedure XrmPutFileDatabase(para1:TXrmDatabase; para2:Pchar);cdecl;external;
-procedure XrmMergeDatabases(para1:TXrmDatabase; para2:PXrmDatabase);cdecl;external;
-procedure XrmCombineDatabase(para1:TXrmDatabase; para2:PXrmDatabase; para3:TBool);cdecl;external;
+{function XrmQGetSearchList(para1:TXrmDatabase; para2:TXrmNameList; para3:TXrmClassList; para4:TXrmSearchList; para5:longint):TBool;cdecl;external libX11;
+function XrmQGetSearchResource(para1:TXrmSearchList; para2:TXrmName; para3:TXrmClass; para4:PXrmRepresentation; para5:PXrmValue):TBool;cdecl;external libX11;}
+procedure XrmSetDatabase(para1:PDisplay; para2:TXrmDatabase);cdecl;external libX11;
+function XrmGetDatabase(para1:PDisplay):TXrmDatabase;cdecl;external libX11;
+function XrmGetFileDatabase(para1:Pchar):TXrmDatabase;cdecl;external libX11;
+function XrmCombineFileDatabase(para1:Pchar; para2:PXrmDatabase; para3:TBool):TStatus;cdecl;external libX11;
+function XrmGetStringDatabase(para1:Pchar):TXrmDatabase;cdecl;external libX11;
+procedure XrmPutFileDatabase(para1:TXrmDatabase; para2:Pchar);cdecl;external libX11;
+procedure XrmMergeDatabases(para1:TXrmDatabase; para2:PXrmDatabase);cdecl;external libX11;
+procedure XrmCombineDatabase(para1:TXrmDatabase; para2:PXrmDatabase; para3:TBool);cdecl;external libX11;
 
 
 const
 const
    XrmEnumAllLevels = 0;
    XrmEnumAllLevels = 0;
@@ -139,8 +146,8 @@ const
 type
 type
   funcbool=function :TBool;
   funcbool=function :TBool;
 function XrmEnumerateDatabase(para1:TXrmDatabase; para2:TXrmNameList; para3:TXrmClassList; para4:longint; para5:funcbool;
 function XrmEnumerateDatabase(para1:TXrmDatabase; para2:TXrmNameList; para3:TXrmClassList; para4:longint; para5:funcbool;
-           para6:TXPointer):TBool;cdecl;external;
-function XrmLocaleOfDatabase(para1:TXrmDatabase):Pchar;cdecl;external;
+           para6:TXPointer):TBool;cdecl;external libX11;
+function XrmLocaleOfDatabase(para1:TXrmDatabase):Pchar;cdecl;external libX11;
 type
 type
 
 
    PXrmOptionKind = ^TXrmOptionKind;
    PXrmOptionKind = ^TXrmOptionKind;
@@ -159,7 +166,7 @@ type
    PXrmOptionDescList = ^TXrmOptionDescList;
    PXrmOptionDescList = ^TXrmOptionDescList;
 
 
 procedure XrmParseCommand(para1:PXrmDatabase; para2:TXrmOptionDescList; para3:longint; para4:Pchar; para5:Plongint;
 procedure XrmParseCommand(para1:PXrmDatabase; para2:TXrmOptionDescList; para3:longint; para4:Pchar; para5:Plongint;
-            para6:PPchar);cdecl;external;
+            para6:PPchar);cdecl;external libX11;
 
 
 implementation
 implementation
 
 

+ 19 - 9
packages/extra/x11/xshm.pp

@@ -3,6 +3,16 @@ interface
 uses
 uses
   x,xlib;
   x,xlib;
 
 
+{$ifndef os2}
+  {$LinkLib c}
+  {$LinkLib X11}
+const
+  libX11='X11';
+{$else}
+const
+  libX11='X11';
+{$endif}
+
 {
 {
   Automatically converted by H2Pas 0.99.15 from xshm.h
   Automatically converted by H2Pas 0.99.15 from xshm.h
   The following command line parameters were used:
   The following command line parameters were used:
@@ -54,20 +64,20 @@ type
         readOnly : TBool;
         readOnly : TBool;
      end;
      end;
 
 
-function XShmQueryExtension(para1:PDisplay):TBool;cdecl;external;
-function XShmQueryVersion(para1:PDisplay; para2:Plongint; para3:Plongint; para4:PBool):TBool;cdecl;external;
-function XShmPixmapFormat(para1:PDisplay):longint;cdecl;external;
-function XShmAttach(para1:PDisplay; para2:PXShmSegmentInfo):TStatus;cdecl;external;
-function XShmDetach(para1:PDisplay; para2:PXShmSegmentInfo):TStatus;cdecl;external;
+function XShmQueryExtension(para1:PDisplay):TBool;cdecl;external libX11;
+function XShmQueryVersion(para1:PDisplay; para2:Plongint; para3:Plongint; para4:PBool):TBool;cdecl;external libX11;
+function XShmPixmapFormat(para1:PDisplay):longint;cdecl;external libX11;
+function XShmAttach(para1:PDisplay; para2:PXShmSegmentInfo):TStatus;cdecl;external libX11;
+function XShmDetach(para1:PDisplay; para2:PXShmSegmentInfo):TStatus;cdecl;external libX11;
 function XShmPutImage(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXImage; para5:longint;
 function XShmPutImage(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXImage; para5:longint;
            para6:longint; para7:longint; para8:longint; para9:dword; para10:dword;
            para6:longint; para7:longint; para8:longint; para9:dword; para10:dword;
-           para11:TBool):TStatus;cdecl;external;
+           para11:TBool):TStatus;cdecl;external libX11;
 function XShmGetImage(para1:PDisplay; para2:TDrawable; para3:PXImage; para4:longint; para5:longint;
 function XShmGetImage(para1:PDisplay; para2:TDrawable; para3:PXImage; para4:longint; para5:longint;
-           para6:dword):TStatus;cdecl;external;
+           para6:dword):TStatus;cdecl;external libX11;
 function XShmCreateImage(para1:PDisplay; para2:PVisual; para3:dword; para4:longint; para5:Pchar;
 function XShmCreateImage(para1:PDisplay; para2:PVisual; para3:dword; para4:longint; para5:Pchar;
-           para6:PXShmSegmentInfo; para7:dword; para8:dword):PXImage;cdecl;external;
+           para6:PXShmSegmentInfo; para7:dword; para8:dword):PXImage;cdecl;external libX11;
 function XShmCreatePixmap(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:PXShmSegmentInfo; para5:dword;
 function XShmCreatePixmap(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:PXShmSegmentInfo; para5:dword;
-           para6:dword; para7:dword):TPixmap;cdecl;external;
+           para6:dword; para7:dword):TPixmap;cdecl;external libX11;
 
 
 implementation
 implementation
 
 

+ 77 - 70
packages/extra/x11/xutil.pp

@@ -3,8 +3,15 @@ interface
 uses
 uses
   x,xlib;
   x,xlib;
 
 
-{$LinkLib c}
-{$LinkLib X11}
+{$ifndef os2}
+  {$LinkLib c}
+  {$LinkLib X11}
+const
+  libX11='X11';
+{$else}
+const
+  libX11='X11';
+{$endif}
 
 
 {
 {
   Automatically converted by H2Pas 0.99.15 from xutil.h
   Automatically converted by H2Pas 0.99.15 from xutil.h
@@ -245,79 +252,79 @@ function XUniqueContext : TXContext;
 function XStringToContext(_string : longint) : TXContext;
 function XStringToContext(_string : longint) : TXContext;
 {$endif MACROS}
 {$endif MACROS}
 
 
-function XAllocClassHint:PXClassHint;cdecl;external;
-function XAllocIconSize:PXIconSize;cdecl;external;
-function XAllocSizeHints:PXSizeHints;cdecl;external;
-function XAllocStandardColormap:PXStandardColormap;cdecl;external;
-function XAllocWMHints:PXWMHints;cdecl;external;
-function XClipBox(para1:TRegion; para2:PXRectangle):longint;cdecl;external;
-function XCreateRegion:TRegion;cdecl;external;
-function XDefaultString:Pchar;cdecl;external;
-function XDeleteContext(para1:PDisplay; para2:TXID; para3:TXContext):longint;cdecl;external;
-function XDestroyRegion(para1:TRegion):longint;cdecl;external;
-function XEmptyRegion(para1:TRegion):longint;cdecl;external;
-function XEqualRegion(para1:TRegion; para2:TRegion):longint;cdecl;external;
-function XFindContext(para1:PDisplay; para2:TXID; para3:TXContext; para4:PXPointer):longint;cdecl;external;
-function XGetClassHint(para1:PDisplay; para2:TWindow; para3:PXClassHint):TStatus;cdecl;external;
-function XGetIconSizes(para1:PDisplay; para2:TWindow; para3:PPXIconSize; para4:Plongint):TStatus;cdecl;external;
-function XGetNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):TStatus;cdecl;external;
-function XGetRGBColormaps(para1:PDisplay; para2:TWindow; para3:PPXStandardColormap; para4:Plongint; para5:TAtom):TStatus;cdecl;external;
-function XGetSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom):TStatus;cdecl;external;
-function XGetStandardColormap(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:TAtom):TStatus;cdecl;external;
-function XGetTextProperty(para1:PDisplay; para2:TWindow; para3:PXTextProperty; para4:TAtom):TStatus;cdecl;external;
-function XGetVisualInfo(para1:PDisplay; para2:longint; para3:PXVisualInfo; para4:Plongint):PXVisualInfo;cdecl;external;
-function XGetWMClientMachine(para1:PDisplay; para2:TWindow; para3:PXTextProperty):TStatus;cdecl;external;
-function XGetWMHints(para1:PDisplay; para2:TWindow):PXWMHints;cdecl;external;
-function XGetWMIconName(para1:PDisplay; para2:TWindow; para3:PXTextProperty):TStatus;cdecl;external;
-function XGetWMName(para1:PDisplay; para2:TWindow; para3:PXTextProperty):TStatus;cdecl;external;
-function XGetWMNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:Plongint):TStatus;cdecl;external;
-function XGetWMSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:Plongint; para5:TAtom):TStatus;cdecl;external;
-function XGetZoomHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):TStatus;cdecl;external;
-function XIntersectRegion(para1:TRegion; para2:TRegion; para3:TRegion):longint;cdecl;external;
-procedure XConvertCase(para1:TKeySym; para2:PKeySym; para3:PKeySym);cdecl;external;
-function XLookupString(para1:PXKeyEvent; para2:Pchar; para3:longint; para4:PKeySym; para5:PXComposeStatus):longint;cdecl;external;
-function XMatchVisualInfo(para1:PDisplay; para2:longint; para3:longint; para4:longint; para5:PXVisualInfo):TStatus;cdecl;external;
-function XOffsetRegion(para1:TRegion; para2:longint; para3:longint):longint;cdecl;external;
-function XPointInRegion(para1:TRegion; para2:longint; para3:longint):TBool;cdecl;external;
-function XPolygonRegion(para1:PXPoint; para2:longint; para3:longint):TRegion;cdecl;external;
-function XRectInRegion(para1:TRegion; para2:longint; para3:longint; para4:dword; para5:dword):longint;cdecl;external;
-function XSaveContext(para1:PDisplay; para2:TXID; para3:TXContext; para4:Pchar):longint;cdecl;external;
-function XSetClassHint(para1:PDisplay; para2:TWindow; para3:PXClassHint):longint;cdecl;external;
-function XSetIconSizes(para1:PDisplay; para2:TWindow; para3:PXIconSize; para4:longint):longint;cdecl;external;
-function XSetNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):longint;cdecl;external;
-procedure XSetRGBColormaps(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:longint; para5:TAtom);cdecl;external;
-function XSetSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom):longint;cdecl;external;
+function XAllocClassHint:PXClassHint;cdecl;external libX11;
+function XAllocIconSize:PXIconSize;cdecl;external libX11;
+function XAllocSizeHints:PXSizeHints;cdecl;external libX11;
+function XAllocStandardColormap:PXStandardColormap;cdecl;external libX11;
+function XAllocWMHints:PXWMHints;cdecl;external libX11;
+function XClipBox(para1:TRegion; para2:PXRectangle):longint;cdecl;external libX11;
+function XCreateRegion:TRegion;cdecl;external libX11;
+function XDefaultString:Pchar;cdecl;external libX11;
+function XDeleteContext(para1:PDisplay; para2:TXID; para3:TXContext):longint;cdecl;external libX11;
+function XDestroyRegion(para1:TRegion):longint;cdecl;external libX11;
+function XEmptyRegion(para1:TRegion):longint;cdecl;external libX11;
+function XEqualRegion(para1:TRegion; para2:TRegion):longint;cdecl;external libX11;
+function XFindContext(para1:PDisplay; para2:TXID; para3:TXContext; para4:PXPointer):longint;cdecl;external libX11;
+function XGetClassHint(para1:PDisplay; para2:TWindow; para3:PXClassHint):TStatus;cdecl;external libX11;
+function XGetIconSizes(para1:PDisplay; para2:TWindow; para3:PPXIconSize; para4:Plongint):TStatus;cdecl;external libX11;
+function XGetNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):TStatus;cdecl;external libX11;
+function XGetRGBColormaps(para1:PDisplay; para2:TWindow; para3:PPXStandardColormap; para4:Plongint; para5:TAtom):TStatus;cdecl;external libX11;
+function XGetSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom):TStatus;cdecl;external libX11;
+function XGetStandardColormap(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:TAtom):TStatus;cdecl;external libX11;
+function XGetTextProperty(para1:PDisplay; para2:TWindow; para3:PXTextProperty; para4:TAtom):TStatus;cdecl;external libX11;
+function XGetVisualInfo(para1:PDisplay; para2:longint; para3:PXVisualInfo; para4:Plongint):PXVisualInfo;cdecl;external libX11;
+function XGetWMClientMachine(para1:PDisplay; para2:TWindow; para3:PXTextProperty):TStatus;cdecl;external libX11;
+function XGetWMHints(para1:PDisplay; para2:TWindow):PXWMHints;cdecl;external libX11;
+function XGetWMIconName(para1:PDisplay; para2:TWindow; para3:PXTextProperty):TStatus;cdecl;external libX11;
+function XGetWMName(para1:PDisplay; para2:TWindow; para3:PXTextProperty):TStatus;cdecl;external libX11;
+function XGetWMNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:Plongint):TStatus;cdecl;external libX11;
+function XGetWMSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:Plongint; para5:TAtom):TStatus;cdecl;external libX11;
+function XGetZoomHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):TStatus;cdecl;external libX11;
+function XIntersectRegion(para1:TRegion; para2:TRegion; para3:TRegion):longint;cdecl;external libX11;
+procedure XConvertCase(para1:TKeySym; para2:PKeySym; para3:PKeySym);cdecl;external libX11;
+function XLookupString(para1:PXKeyEvent; para2:Pchar; para3:longint; para4:PKeySym; para5:PXComposeStatus):longint;cdecl;external libX11;
+function XMatchVisualInfo(para1:PDisplay; para2:longint; para3:longint; para4:longint; para5:PXVisualInfo):TStatus;cdecl;external libX11;
+function XOffsetRegion(para1:TRegion; para2:longint; para3:longint):longint;cdecl;external libX11;
+function XPointInRegion(para1:TRegion; para2:longint; para3:longint):TBool;cdecl;external libX11;
+function XPolygonRegion(para1:PXPoint; para2:longint; para3:longint):TRegion;cdecl;external libX11;
+function XRectInRegion(para1:TRegion; para2:longint; para3:longint; para4:dword; para5:dword):longint;cdecl;external libX11;
+function XSaveContext(para1:PDisplay; para2:TXID; para3:TXContext; para4:Pchar):longint;cdecl;external libX11;
+function XSetClassHint(para1:PDisplay; para2:TWindow; para3:PXClassHint):longint;cdecl;external libX11;
+function XSetIconSizes(para1:PDisplay; para2:TWindow; para3:PXIconSize; para4:longint):longint;cdecl;external libX11;
+function XSetNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):longint;cdecl;external libX11;
+procedure XSetRGBColormaps(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:longint; para5:TAtom);cdecl;external libX11;
+function XSetSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom):longint;cdecl;external libX11;
 function XSetStandardProperties(para1:PDisplay; para2:TWindow; para3:Pchar; para4:Pchar; para5:TPixmap;
 function XSetStandardProperties(para1:PDisplay; para2:TWindow; para3:Pchar; para4:Pchar; para5:TPixmap;
-           para6:PPchar; para7:longint; para8:PXSizeHints):longint;cdecl;external;
-procedure XSetTextProperty(para1:PDisplay; para2:TWindow; para3:PXTextProperty; para4:TAtom);cdecl;external;
-procedure XSetWMClientMachine(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external;
-function XSetWMHints(para1:PDisplay; para2:TWindow; para3:PXWMHints):longint;cdecl;external;
-procedure XSetWMIconName(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external;
-procedure XSetWMName(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external;
-procedure XSetWMNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints);cdecl;external;
+           para6:PPchar; para7:longint; para8:PXSizeHints):longint;cdecl;external libX11;
+procedure XSetTextProperty(para1:PDisplay; para2:TWindow; para3:PXTextProperty; para4:TAtom);cdecl;external libX11;
+procedure XSetWMClientMachine(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external libX11;
+function XSetWMHints(para1:PDisplay; para2:TWindow; para3:PXWMHints):longint;cdecl;external libX11;
+procedure XSetWMIconName(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external libX11;
+procedure XSetWMName(para1:PDisplay; para2:TWindow; para3:PXTextProperty);cdecl;external libX11;
+procedure XSetWMNormalHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints);cdecl;external libX11;
 procedure XSetWMProperties(para1:PDisplay; para2:TWindow; para3:PXTextProperty; para4:PXTextProperty; para5:PPchar;
 procedure XSetWMProperties(para1:PDisplay; para2:TWindow; para3:PXTextProperty; para4:PXTextProperty; para5:PPchar;
-            para6:longint; para7:PXSizeHints; para8:PXWMHints; para9:PXClassHint);cdecl;external;
+            para6:longint; para7:PXSizeHints; para8:PXWMHints; para9:PXClassHint);cdecl;external libX11;
 procedure XmbSetWMProperties(para1:PDisplay; para2:TWindow; para3:Pchar; para4:Pchar; para5:PPchar;
 procedure XmbSetWMProperties(para1:PDisplay; para2:TWindow; para3:Pchar; para4:Pchar; para5:PPchar;
-            para6:longint; para7:PXSizeHints; para8:PXWMHints; para9:PXClassHint);cdecl;external;
-procedure XSetWMSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom);cdecl;external;
-function XSetRegion(para1:PDisplay; para2:TGC; para3:TRegion):longint;cdecl;external;
-procedure XSetStandardColormap(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:TAtom);cdecl;external;
-function XSetZoomHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):longint;cdecl;external;
-function XShrinkRegion(para1:TRegion; para2:longint; para3:longint):longint;cdecl;external;
-function XStringListToTextProperty(para1:PPchar; para2:longint; para3:PXTextProperty):TStatus;cdecl;external;
-function XSubtractRegion(para1:TRegion; para2:TRegion; para3:TRegion):longint;cdecl;external;
-function XmbTextListToTextProperty(para1:PDisplay; para2:PPchar; para3:longint; para4:TXICCEncodingStyle; para5:PXTextProperty):longint;cdecl;external;
-function XwcTextListToTextProperty(para1:PDisplay; para2:PPWideChar; para3:longint; para4:TXICCEncodingStyle; para5:PXTextProperty):longint;cdecl;external;
-procedure XwcFreeStringList(para1:PPWideChar);cdecl;external;
-function XTextPropertyToStringList(para1:PXTextProperty; para2:PPPchar; para3:Plongint):TStatus;cdecl;external;
-function XmbTextPropertyToTextList(para1:PDisplay; para2:PXTextProperty; para3:PPPchar; para4:Plongint):longint;cdecl;external;
-function XwcTextPropertyToTextList(para1:PDisplay; para2:PXTextProperty; para3:PPPWideChar; para4:Plongint):longint;cdecl;external;
-function XUnionRectWithRegion(para1:PXRectangle; para2:TRegion; para3:TRegion):longint;cdecl;external;
-function XUnionRegion(para1:TRegion; para2:TRegion; para3:TRegion):longint;cdecl;external;
+            para6:longint; para7:PXSizeHints; para8:PXWMHints; para9:PXClassHint);cdecl;external libX11;
+procedure XSetWMSizeHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints; para4:TAtom);cdecl;external libX11;
+function XSetRegion(para1:PDisplay; para2:TGC; para3:TRegion):longint;cdecl;external libX11;
+procedure XSetStandardColormap(para1:PDisplay; para2:TWindow; para3:PXStandardColormap; para4:TAtom);cdecl;external libX11;
+function XSetZoomHints(para1:PDisplay; para2:TWindow; para3:PXSizeHints):longint;cdecl;external libX11;
+function XShrinkRegion(para1:TRegion; para2:longint; para3:longint):longint;cdecl;external libX11;
+function XStringListToTextProperty(para1:PPchar; para2:longint; para3:PXTextProperty):TStatus;cdecl;external libX11;
+function XSubtractRegion(para1:TRegion; para2:TRegion; para3:TRegion):longint;cdecl;external libX11;
+function XmbTextListToTextProperty(para1:PDisplay; para2:PPchar; para3:longint; para4:TXICCEncodingStyle; para5:PXTextProperty):longint;cdecl;external libX11;
+function XwcTextListToTextProperty(para1:PDisplay; para2:PPWideChar; para3:longint; para4:TXICCEncodingStyle; para5:PXTextProperty):longint;cdecl;external libX11;
+procedure XwcFreeStringList(para1:PPWideChar);cdecl;external libX11;
+function XTextPropertyToStringList(para1:PXTextProperty; para2:PPPchar; para3:Plongint):TStatus;cdecl;external libX11;
+function XmbTextPropertyToTextList(para1:PDisplay; para2:PXTextProperty; para3:PPPchar; para4:Plongint):longint;cdecl;external libX11;
+function XwcTextPropertyToTextList(para1:PDisplay; para2:PXTextProperty; para3:PPPWideChar; para4:Plongint):longint;cdecl;external libX11;
+function XUnionRectWithRegion(para1:PXRectangle; para2:TRegion; para3:TRegion):longint;cdecl;external libX11;
+function XUnionRegion(para1:TRegion; para2:TRegion; para3:TRegion):longint;cdecl;external libX11;
 function XWMGeometry(para1:PDisplay; para2:longint; para3:Pchar; para4:Pchar; para5:dword;
 function XWMGeometry(para1:PDisplay; para2:longint; para3:Pchar; para4:Pchar; para5:dword;
            para6:PXSizeHints; para7:Plongint; para8:Plongint; para9:Plongint; para10:Plongint;
            para6:PXSizeHints; para7:Plongint; para8:Plongint; para9:Plongint; para10:Plongint;
-           para11:Plongint):longint;cdecl;external;
-function XXorRegion(para1:TRegion; para2:TRegion; para3:TRegion):longint;cdecl;external;
+           para11:Plongint):longint;cdecl;external libX11;
+function XXorRegion(para1:TRegion; para2:TRegion; para3:TRegion):longint;cdecl;external libX11;
 
 
 implementation
 implementation