* packrecords 4 for win32, packrecords c for linux

packages/gtk/gdk/gdk.pp

@@ -38,15 +38,17 @@ uses
   const
     gdkdll='gdk-1.3';
   {$define gtkwin}
+
+  {$packrecords 4}
 {$else}
   const
     gdkdll='gdk';
   {$linklib c}
   {$linklib X11}
+  
+  {$packrecords C}
 {$endif}
 
-{$packrecords C}
-
 Type
   PLongint  = ^Longint;
   PByte     = ^Byte;
@@ -84,7 +86,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.1.2.1  2000-08-06 10:33:10  peter
+  Revision 1.1.2.2  2000-09-06 21:13:34  peter
+    * packrecords 4 for win32, packrecords c for linux
+
+  Revision 1.1.2.1  2000/08/06 10:33:10  peter
     * force smartlinking
 
   Revision 1.1  2000/07/13 06:34:01  michael

packages/gtk/glib/glib.pp

@@ -34,13 +34,15 @@ interface
   const
     glibdll='glib-1.3';
   {$define gtkwin}
+
+  {$packrecords 4}
 {$else}
   const
     glibdll='glib';
   {$linklib c}
-{$endif}
 
-{$packrecords C}
+  {$packrecords C}
+{$endif}
 
 { Pointers to basic pascal types, inserted by h2pas conversion program.}
 Type
@@ -1648,7 +1650,10 @@ procedure set_year(var a : TGDate; __year : guint);
 end.
 {
   $Log$
-  Revision 1.1.2.1  2000-08-06 10:33:10  peter
+  Revision 1.1.2.2  2000-09-06 21:13:35  peter
+    * packrecords 4 for win32, packrecords c for linux
+
+  Revision 1.1.2.1  2000/08/06 10:33:10  peter
     * force smartlinking
 
   Revision 1.1  2000/07/13 06:34:02  michael

packages/gtk/glib/gmodule.pp

@@ -37,12 +37,14 @@ uses
   const
     gmoduledll='gmodule-1.3';
   {$define gtkwin}
+
+  {$packrecords 4}
 {$else}
   const
     gmoduledll='gmodule';
-{$endif}
 
-{$packrecords C}
+  {$packrecords C}
+{$endif}
 
     var
        g_log_domain_gmodule : Pgchar;external gmoduledll name 'g_log_domain_gmodule';
@@ -74,7 +76,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.1.2.1  2000-08-06 10:33:10  peter
+  Revision 1.1.2.2  2000-09-06 21:13:35  peter
+    * packrecords 4 for win32, packrecords c for linux
+
+  Revision 1.1.2.1  2000/08/06 10:33:10  peter
     * force smartlinking
 
   Revision 1.1  2000/07/13 06:34:02  michael

packages/gtk/gtk/gtk.pp

@@ -38,6 +38,8 @@ uses
   const
     gtkdll='gtk-1.3';
   {$define gtkwin}
+
+  {$packrecords 4}
 {$else}
   const
     gtkdll='gtk';
@@ -46,9 +48,10 @@ uses
   {$linklib Xext}
   {$linklib X11}
   {$linklib m}
+
+  {$packrecords C}
 {$endif}
 
-{$packrecords C}
 
 Type
   PLongint  = ^Longint;
@@ -76,7 +79,10 @@ Type
 end.
 {
   $Log$
-  Revision 1.1.2.1  2000-08-06 10:33:10  peter
+  Revision 1.1.2.2  2000-09-06 21:13:35  peter
+    * packrecords 4 for win32, packrecords c for linux
+
+  Revision 1.1.2.1  2000/08/06 10:33:10  peter
     * force smartlinking
 
   Revision 1.1  2000/07/13 06:34:02  michael

packages/gtk/gtk/gtkwindow.pp

@@ -21,7 +21,7 @@
             default_widget : PGtkWidget;
             transient_parent : PGtkWindow;
             resize_count : gushort;
-            flag0 : {$ifdef win32}longint{$else}word;{$endif}
+            flag0 : word;
          end;
 
     const
@@ -183,7 +183,10 @@ end;
 
 {
   $Log$
-  Revision 1.1.2.1  2000-09-06 20:46:25  peter
+  Revision 1.1.2.2  2000-09-06 21:13:35  peter
+    * packrecords 4 for win32, packrecords c for linux
+
+  Revision 1.1.2.1  2000/09/06 20:46:25  peter
     * fixed flag0 size for win32
 
   Revision 1.1  2000/07/13 06:34:08  michael