소스 검색

* Dotted filenames for package imlib

Michaël Van Canneyt 2 년 전
부모
커밋
a8f5fada57

+ 3 - 0
packages/imlib/namespaced/Api.Gdk_imlib.pp

@@ -0,0 +1,3 @@
+unit Api.Gdk_imlib;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i gdk_imlib.pp}

+ 3 - 0
packages/imlib/namespaced/Api.Imlib.pp

@@ -0,0 +1,3 @@
+unit Api.Imlib;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i imlib.pp}

+ 4 - 0
packages/imlib/namespaces.lst

@@ -0,0 +1,4 @@
+src/imlib.pp=namespaced/Api.Imlib.pp
+{s*:src/}=namespaced/
+{i+:src/}
+src/gdk_imlib.pp=namespaced/Api.Gdk_imlib.pp

+ 6 - 0
packages/imlib/src/gdk_imlib.pp

@@ -20,14 +20,20 @@
    Boston, MA 02110-1301, USA.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit gdk_imlib;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
 {$PACKRECORDS C}
 {$mode objfpc}
 
+{$IFDEF FPC_DOTTEDUNITS}
+Uses Api.Gtk1.Glib, Api.Gtk1.Gdk, Api.Gtk1.Gtk;
+{$ELSE FPC_DOTTEDUNITS}
 Uses glib, gdk, gtk;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
 {$ifndef os2}

+ 6 - 0
packages/imlib/src/imlib.pp

@@ -20,14 +20,20 @@
    Boston, MA 02110-1301, USA.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit Imlib;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
 {$PACKRECORDS C}
 {$mode objfpc}
 
+{$IFDEF FPC_DOTTEDUNITS}
+Uses Api.X11.X, Api.X11.Xlib, Api.X11.Xutil;
+{$ELSE FPC_DOTTEDUNITS}
 Uses X, Xlib, XUtil;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
 {$ifndef os2}