From b9703b29819b619037cc282d719c187e51bacd30 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Mon, 23 Dec 2024 23:59:45 +0100 Subject: Port to g-i generated glib2 bindings Includes switch to FPC -Mobjfpc and related pointer style fixes. --- libgtk_kylix/GTKText.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libgtk_kylix/GTKText.pas') diff --git a/libgtk_kylix/GTKText.pas b/libgtk_kylix/GTKText.pas index 127e399..d3152b1 100644 --- a/libgtk_kylix/GTKText.pas +++ b/libgtk_kylix/GTKText.pas @@ -24,7 +24,7 @@ unit GTKText; interface -uses gtk2, gdk2, glib2, Classes, GTKControls, GTKConsts, GTKUtils, GTKClasses, GTKForms; +uses gtk2, lazgobject2, Classes, GTKControls, GTKForms; type @@ -88,7 +88,7 @@ begin FTextBuffer := TGTKTextBuffer.Create(Self); FWidget := gtk_text_view_new_with_buffer(FTextBuffer.FBuffer); Show; - g_object_unref(FTextBuffer.FBuffer); + g_object_unref(PGObject(FTextBuffer.FBuffer)); end; destructor TGTKTextView.Destroy; -- cgit v1.2.3