Use getters instead of direct access to structuresv0.6.71

This will hopefully fix remaining GUI issues on PPC64. Needs further testing!

Also, libgtk_kylix sources have been altered for use with gtk2forpascal-1.0.7 for Kylix compilation.

1 files changed, 8 insertions, 8 deletions

diff --git a/libgtk_kylix/GTKUtils.pas b/libgtk_kylix/GTKUtils.pas
index 3f92168..288aee3 100644
--- a/libgtk_kylix/GTKUtils.pas
+++ b/libgtk_kylix/GTKUtils.pas
@@ -101,7 +101,7 @@ var Widget: PGtkWidget;
 begin
   Widget := gtk_window_new(GTK_WINDOW_TOPLEVEL);
   Style := gtk_rc_get_style(Widget);
-  Result := @Style^.fg[State];
+  Result := @(Style^.fg[State]);
   gtk_widget_destroy(Widget);
 end;
 
@@ -109,7 +109,7 @@ function GetDefaultForegroundColor(Widget: TGTKControl; State: integer): PGdkCol
 var Style: PGtkStyle;
 begin
   Style := gtk_rc_get_style(Widget.FWidget);
-  Result := @Style^.fg[State];
+  Result := @(Style^.fg[State]);
 end;
 
 (********************************************************************************************************************************)
@@ -119,7 +119,7 @@ var Widget: PGtkWidget;
 begin
   Widget := gtk_window_new(GTK_WINDOW_TOPLEVEL);
   Style := gtk_rc_get_style(Widget);
-  Result := @Style^.bg[State];
+  Result := @(Style^.bg[State]);
   gtk_widget_destroy(Widget);
 end;
 
@@ -127,7 +127,7 @@ function GetDefaultBackgroundColor(Widget: TGTKControl; State: integer): PGdkCol
 var Style: PGtkStyle;
 begin
   Style := gtk_rc_get_style(Widget.FWidget);
-  Result := @Style^.bg[State];
+  Result := @(Style^.bg[State]);
 end;
 
 (********************************************************************************************************************************)
@@ -137,7 +137,7 @@ var Widget: PGtkWidget;
 begin
   Widget := gtk_window_new(GTK_WINDOW_TOPLEVEL);
   Style := gtk_rc_get_style(Widget);
-  Result := @Style^.base[State];
+  Result := @(Style^.base[State]);
   gtk_widget_destroy(Widget);
 end;
 
@@ -145,7 +145,7 @@ function GetDefaultBaseColor(Widget: TGTKControl; State: integer): PGdkColor;
 var Style: PGtkStyle;
 begin
   Style := gtk_rc_get_style(Widget.FWidget);
-  Result := @Style^.base[State];
+  Result := @(Style^.base[State]);
 end;
 
 (********************************************************************************************************************************)
@@ -155,7 +155,7 @@ var Widget: PGtkWidget;
 begin
   Widget := gtk_window_new(GTK_WINDOW_TOPLEVEL);
   Style := gtk_rc_get_style(Widget);
-  Result := @Style^.text[State];
+  Result := @(Style^.text[State]);
   gtk_widget_destroy(Widget);
 end;
 
@@ -163,7 +163,7 @@ function GetDefaultTextColor(Widget: TGTKControl; State: integer): PGdkColor;
 var Style: PGtkStyle;
 begin
   Style := gtk_rc_get_style(Widget.FWidget);
-  Result := @Style^.text[State];
+  Result := @(Style^.text[State]);
 end;
 
 (********************************************************************************************************************************)