ソースを参照

* previous ugly workaround removed (baseunix replaced with ctypes)

Tomas Hajny 21 年 前
コミット
1a27b6bf90
1 ファイル変更1 行追加9 行削除
  1. 1 9
      packages/extra/x11/xinerama.pp

+ 1 - 9
packages/extra/x11/xinerama.pp

@@ -1,21 +1,13 @@
 unit xinerama;
 interface
 uses
-{$IFDEF UNIX}
- baseunix,
-{$ENDIF UNIX}
- xlib;
+ ctypes, xlib;
 { Converted from X11/Xinerama.h }
 
 {$PACKRECORDS C}
 
 
 type
-{$IFNDEF UNIX}
-   cint = longint;
-   pcint = plongint;
-   cshort = smallint;
-{$ENDIF UNIX}
 
    PXineramaScreenInfo = ^TXineramaScreenInfo;
    TXineramaScreenInfo = record