The attached patch adds the Xinerama extensions to the X11 package

Colin
diff -uNr fpc/packages/extra/x11/Makefile.fpc fpc.w/packages/extra/x11/Makefile.fpc
--- fpc/packages/extra/x11/Makefile.fpc	2004-10-10 22:21:51.000000000 +0100
+++ fpc.w/packages/extra/x11/Makefile.fpc	2004-11-13 12:39:46.000000000 +0000
@@ -7,7 +7,7 @@
 version=1.9.4
 
 [target]
-units=x xlib xutil xresource xcms xshm xrender keysym xi xkb xkblib xatom
+units=x xlib xutil xresource xcms xshm xrender keysym xi xkb xkblib xatom xinerama
 
 [require]
 libc=y
diff -uNr fpc/packages/extra/x11/xinerama.pp fpc.w/packages/extra/x11/xinerama.pp
--- fpc/packages/extra/x11/xinerama.pp	1970-01-01 01:00:00.000000000 +0100
+++ fpc.w/packages/extra/x11/xinerama.pp	2004-11-13 13:21:06.498009242 +0000
@@ -0,0 +1,26 @@
+unit xinerama;
+interface
+uses xlib;
+{ Converted from X11/Xinerama.h }
+
+{$PACKRECORDS C}
+
+type
+
+   PXineramaScreenInfo = ^TXineramaScreenInfo;
+   TXineramaScreenInfo = record
+        screen_number : longint;
+        x_org : smallint;
+        y_org : smallint;
+        width : smallint;
+        height : smallint;
+     end;
+
+function XineramaQueryExtension(dpy:PDisplay; event_base:Plongint; error_base:Plongint):TBool;cdecl;external 'Xinerama';
+function XineramaQueryVersion(dpy:PDisplay; major:Plongint; minor:Plongint):TStatus;cdecl;external 'Xinerama';
+function XineramaIsActive(dpy:PDisplay):TBool;cdecl;external 'Xinerama';
+function XineramaQueryScreens(dpy:PDisplay; number:Plongint):PXineramaScreenInfo;cdecl;external 'Xinerama';
+
+implementation
+
+end.
_______________________________________________
fpc-devel maillist  -  [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-devel

Reply via email to