From d884d5168984d36a5c08f4814e81b070d7c964d3 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Tue, 17 Nov 2009 16:18:15 +0100
Subject: Use getters instead of direct access to structures

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.
---
 libgtk_kylix/GTKDialogs.pas | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'libgtk_kylix/GTKDialogs.pas')

diff --git a/libgtk_kylix/GTKDialogs.pas b/libgtk_kylix/GTKDialogs.pas
index 4a9b892..e6e5c7e 100644
--- a/libgtk_kylix/GTKDialogs.pas
+++ b/libgtk_kylix/GTKDialogs.pas
@@ -127,6 +127,7 @@ end;
 function TGTKFileSelectionDialog.GetShowFileOpButtons: boolean;
 var b: Boolean;
 begin
+  b := False;
   g_object_get(FWidget, 'show-fileops', @b, nil);
   Result := b;
 end;
@@ -191,6 +192,7 @@ end;
 function TGTKColorSelectionDialog.GetColor: TGDKColor;
 var Col: gdk2.TGDkColor;
 begin
+  FillChar(Col, sizeof(gdk2.TGDkColor), 0);
   gtk_color_selection_get_current_color(PGtkColorSelection(PGtkColorSelectionDialog(FWidget)^.colorsel), @Col);
   Result := PGdkColorToGDKColor(@Col);
 end;
-- 
cgit v1.2.3