From d884d5168984d36a5c08f4814e81b070d7c964d3 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek 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. --- UGnome.pas | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'UGnome.pas') diff --git a/UGnome.pas b/UGnome.pas index 8280132..54386cf 100644 --- a/UGnome.pas +++ b/UGnome.pas @@ -212,6 +212,9 @@ var libGlib2Handle, libGtk2Handle, libGnome2Handle, libGnomeUI2Handle: Pointer; g_mkdir_with_parents: function (const pathname: PChar; mode: integer): integer; cdecl; +function _gtk_notebook_insert_page(notebook:PGtkNotebook; child:PGtkWidget;tab_label:PGtkWidget; position:gint):gint; cdecl; external gtklib name 'gtk_notebook_insert_page'; + + procedure LoadGnomeLibs; @@ -557,7 +560,7 @@ begin g_object_set_data (G_OBJECT (hbox), 'close-button', close_button); g_object_set_data (G_OBJECT (hbox), 'tooltips', FTooltips); - Result := gtk_notebook_insert_page(PGtkNotebook(FWidget), Child.FWidget, hbox, Position); + Result := _gtk_notebook_insert_page(PGtkNotebook(FWidget), Child.FWidget, hbox, Position); end; procedure TEphyNotebook.RemovePage(PageNo: integer); -- cgit v1.2.3