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/GTKClasses.pas | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) (limited to 'libgtk_kylix/GTKClasses.pas') diff --git a/libgtk_kylix/GTKClasses.pas b/libgtk_kylix/GTKClasses.pas index d668fb0..6071d74 100644 --- a/libgtk_kylix/GTKClasses.pas +++ b/libgtk_kylix/GTKClasses.pas @@ -24,7 +24,7 @@ unit GTKClasses; interface -uses gtk2, gdk2, glib2, Classes, SysUtils; +uses gtk2, lazglib2, Classes, SysUtils; type @@ -73,10 +73,6 @@ type (********************************************************************************************************************************) implementation -uses GTKUtils; - -(********************************************************************************************************************************) -(********************************************************************************************************************************) constructor TGList.Create(AOwner: TComponent); begin inherited Create(AOwner); @@ -98,14 +94,14 @@ end; procedure TGList.Append(Data: string); begin - Append(Pointer(StringToPgchar(Data))); + Append(Pointer(PChar(Data))); end; procedure TGList.Delete(Index: integer); -var El: PGSList; +var El: PGList; begin El := g_list_nth_data(FList, Index); - if El <> nil then FList := g_list_remove(FList, El); + if El <> nil then FList := g_list_remove(FList, gpointer(El)); end; function TGList.Count: integer; @@ -158,7 +154,7 @@ end; procedure TGTKTimer.Start; begin if FHandlerID > 0 then Stop; - if FEnabled then FHandlerID := gtk_timeout_add(FInterval, TGTKTimer_Timeout, Self); + if FEnabled then FHandlerID := gtk_timeout_add(FInterval, @TGTKTimer_Timeout, Self); end; procedure TGTKTimer.Stop; -- cgit v1.2.3