Ver Fonte

* Dotted filenames for package gtk1

Michaël Van Canneyt há 2 anos atrás
pai
commit
22d290491e

+ 3 - 0
packages/gtk1/namespaced/Api.Gtk1.Gdk.pp

@@ -0,0 +1,3 @@
+unit Api.Gtk1.Gdk;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i gdk.pp}

+ 3 - 0
packages/gtk1/namespaced/Api.Gtk1.Gdkpixbuf.pp

@@ -0,0 +1,3 @@
+unit Api.Gtk1.Gdkpixbuf;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i gdkpixbuf.pp}

+ 3 - 0
packages/gtk1/namespaced/Api.Gtk1.Glib.pp

@@ -0,0 +1,3 @@
+unit Api.Gtk1.Glib;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i glib.pp}

+ 3 - 0
packages/gtk1/namespaced/Api.Gtk1.Gmodule.pp

@@ -0,0 +1,3 @@
+unit Api.Gtk1.Gmodule;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i gmodule.pp}

+ 3 - 0
packages/gtk1/namespaced/Api.Gtk1.Gtk.pp

@@ -0,0 +1,3 @@
+unit Api.Gtk1.Gtk;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i gtk.pp}

+ 3 - 0
packages/gtk1/namespaced/Api.Gtk1.Gtkglarea.pp

@@ -0,0 +1,3 @@
+unit Api.Gtk1.Gtkglarea;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i gtkglarea.pp}

+ 14 - 0
packages/gtk1/namespaces.lst

@@ -0,0 +1,14 @@
+src/gtkgl/gtkglarea.pp=namespaced/Api.Gtk1.Gtkglarea.pp
+{s*:src/gtkgl/}=namespaced/
+{i+:src/gtkgl/}
+src/gtk/gtk.pp=namespaced/Api.Gtk1.Gtk.pp
+{s*:src/gtk/}=namespaced/
+{i+:src/gtk/}
+src/glib/gmodule.pp=namespaced/Api.Gtk1.Gmodule.pp
+{s*:src/glib/}=namespaced/
+{i+:src/glib/}
+src/glib/glib.pp=namespaced/Api.Gtk1.Glib.pp
+src/gdk/gdkpixbuf.pp=namespaced/Api.Gtk1.Gdkpixbuf.pp
+{s*:src/gdk/}=namespaced/
+{i+:src/gdk/}
+src/gdk/gdk.pp=namespaced/Api.Gtk1.Gdk.pp

+ 7 - 0
packages/gtk1/src/gdk/gdk.pp

@@ -19,7 +19,9 @@
    Boston, MA 02111-1301, USA.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit gdk;
+{$ENDIF FPC_DOTTEDUNITS}
 interface
 
 {$mode objfpc} { needed for array of const }
@@ -32,8 +34,13 @@ interface
   {$endif}
 {$endif}
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  Api.Gtk1.Glib;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   glib;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$ifdef win32}
   const

+ 18 - 0
packages/gtk1/src/gdk/gdkpixbuf.pp

@@ -25,7 +25,9 @@
    Boston, MA 02111-1301, USA.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit gdkpixbuf;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 {$ifndef os2}
@@ -59,6 +61,21 @@ interface
 
 {$EndIf}
 
+{$IFDEF FPC_DOTTEDUNITS}
+Uses
+  Api.Gtk1.Glib,
+  {$IFDef XLIB_SUPPORT}
+  Api.X11.Xlib,
+  {$Else}
+    Api.Gtk1.Gdk
+    {$IFDef GTK_SUPPORT}
+      ,Api.Gtk1.Gtk
+      {$IfDef GNOME_SUPPORT}
+        ,GNOME
+      {$ENDIF}
+    {$ENDIF}
+  {$ENDIF};
+{$ELSE FPC_DOTTEDUNITS}
 Uses
   GLIB,
   {$IFDef XLIB_SUPPORT}
@@ -72,6 +89,7 @@ Uses
       {$ENDIF}
     {$ENDIF}
   {$ENDIF};
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$IFDef XLIB_SUPPORT}

+ 2 - 0
packages/gtk1/src/glib/glib.pp

@@ -18,7 +18,9 @@
    Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
    Boston, MA 02110-1301, USA.
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 unit glib;
+{$ENDIF FPC_DOTTEDUNITS}
 interface
 
 {$mode objfpc}

+ 7 - 0
packages/gtk1/src/glib/gmodule.pp

@@ -18,7 +18,9 @@
    Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
    Boston, MA 02110-1301, USA.
 }
+{$IFNDEF FPC_DOTTEDUNITS}
 unit gmodule;
+{$ENDIF FPC_DOTTEDUNITS}
 interface
 
 {$mode objfpc}
@@ -31,8 +33,13 @@ interface
   {$endif}
 {$endif}
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  Api.Gtk1.Glib;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   glib;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$ifdef win32}
   const

+ 7 - 0
packages/gtk1/src/gtk/gtk.pp

@@ -19,7 +19,9 @@
    Boston, MA 02110-1301, USA.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit gtk;
+{$ENDIF FPC_DOTTEDUNITS}
 interface
 
 { Always use smartlinking for win32, this solves some undefined functions
@@ -32,8 +34,13 @@ interface
 
 {$mode objfpc} { needed for array of const }
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  Api.Gtk1.Glib,Api.Gtk1.Gdk;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   glib,gdk;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$ifdef win32}
   const

+ 7 - 0
packages/gtk1/src/gtkgl/gtkglarea.pp

@@ -22,7 +22,9 @@
   * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 }
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit gtkglarea;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$MODE objfpc}
 {$PACKRECORDS C}
@@ -30,8 +32,13 @@ unit gtkglarea;
 interface
 {$ifndef os2}
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  Api.Gtk1.Gdk, Api.Gtk1.Gtk, Api.OpenGL.Gl;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   GDK, GTK, GL;
+{$ENDIF FPC_DOTTEDUNITS}
 
 const
   libgtkgl = 'gtkgl';