diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-11-17 16:18:15 +0100 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-11-17 16:18:15 +0100 |
| commit | d884d5168984d36a5c08f4814e81b070d7c964d3 (patch) | |
| tree | 9743d99642487bececce0093866e71196a0731ba /libgtk_kylix/GTKDialogs.pas | |
| parent | cb5cb517c068a470662bd1d08bef61265376c802 (diff) | |
| download | tuxcmd-d884d5168984d36a5c08f4814e81b070d7c964d3.tar.xz | |
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.
Diffstat (limited to 'libgtk_kylix/GTKDialogs.pas')
| -rw-r--r-- | libgtk_kylix/GTKDialogs.pas | 2 |
1 files changed, 2 insertions, 0 deletions
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; |