diff --git a/packages/gtk/gdk/gdk.pp b/packages/gtk/gdk/gdk.pp
index ab7e524c76..fafedb68cd 100644
--- a/packages/gtk/gdk/gdk.pp
+++ b/packages/gtk/gdk/gdk.pp
@@ -38,14 +38,16 @@ uses
   const
     gdkdll='gdk-1.3';
   {$define gtkwin}
+
+  {$packrecords 4}
 {$else}
   const
     gdkdll='gdk';
   {$linklib c}
   {$linklib X11}
-{$endif}
 
-{$packrecords C}
+  {$packrecords C}
+{$endif}
 
 Type
   PLongint  = ^Longint;
@@ -84,7 +86,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.3  2000-08-06 10:46:23  peter
+  Revision 1.4  2000-09-06 21:14:28  peter
+    * packrecords 4 for win32, packrecords c for linux
+
+  Revision 1.3  2000/08/06 10:46:23  peter
     * force smartlink (merged)
 
   Revision 1.2  2000/07/13 11:33:19  michael
diff --git a/packages/gtk/glib/glib.pp b/packages/gtk/glib/glib.pp
index 2e5bd72697..fc25e3b3d0 100644
--- a/packages/gtk/glib/glib.pp
+++ b/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.3  2000-08-06 10:46:23  peter
+  Revision 1.4  2000-09-06 21:14:28  peter
+    * packrecords 4 for win32, packrecords c for linux
+
+  Revision 1.3  2000/08/06 10:46:23  peter
     * force smartlink (merged)
 
   Revision 1.2  2000/07/13 11:33:19  michael
diff --git a/packages/gtk/glib/gmodule.pp b/packages/gtk/glib/gmodule.pp
index 4abfe8f1b0..44c77b6997 100644
--- a/packages/gtk/glib/gmodule.pp
+++ b/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.3  2000-08-06 10:46:23  peter
+  Revision 1.4  2000-09-06 21:14:28  peter
+    * packrecords 4 for win32, packrecords c for linux
+
+  Revision 1.3  2000/08/06 10:46:23  peter
     * force smartlink (merged)
 
   Revision 1.2  2000/07/13 11:33:20  michael
diff --git a/packages/gtk/gtk/gtk.pp b/packages/gtk/gtk/gtk.pp
index f0380027ee..52676f9953 100644
--- a/packages/gtk/gtk/gtk.pp
+++ b/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,9 @@ uses
   {$linklib Xext}
   {$linklib X11}
   {$linklib m}
-{$endif}
 
-{$packrecords C}
+  {$packrecords C}
+{$endif}
 
 Type
   PLongint  = ^Longint;
@@ -76,7 +78,10 @@ Type
 end.
 {
   $Log$
-  Revision 1.3  2000-08-06 10:46:23  peter
+  Revision 1.4  2000-09-06 21:13:55  peter
+    * packrecords 4 for win32, packrecords c for linux
+
+  Revision 1.3  2000/08/06 10:46:23  peter
     * force smartlink (merged)
 
   Revision 1.2  2000/07/13 11:33:20  michael
diff --git a/packages/gtk/gtk/gtkwindow.pp b/packages/gtk/gtk/gtkwindow.pp
index e42dfa526b..c36c5f2b7a 100644
--- a/packages/gtk/gtk/gtkwindow.pp
+++ b/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.3  2000-09-06 20:48:11  peter
+  Revision 1.4  2000-09-06 21:13:55  peter
+    * packrecords 4 for win32, packrecords c for linux
+
+  Revision 1.3  2000/09/06 20:48:11  peter
     * fixed flag0 for win32
 
   Revision 1.2  2000/07/13 11:33:25  michael