diff options
| author | Tomas Bzatek <tbzatek@redhat.com> | 2024-12-23 23:59:45 +0100 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@redhat.com> | 2025-11-27 19:36:10 +0100 |
| commit | b9703b29819b619037cc282d719c187e51bacd30 (patch) | |
| tree | bd6d73e5fb6bcb6eb307844103b3dff185f2ac9a /libgtk_kylix/GTKClasses.pas | |
| parent | a9634b933f71a9045e61d29c486f2d51d39fd1e2 (diff) | |
| download | tuxcmd-b9703b29819b619037cc282d719c187e51bacd30.tar.xz | |
Port to g-i generated glib2 bindings
Includes switch to FPC -Mobjfpc and related pointer style fixes.
Diffstat (limited to 'libgtk_kylix/GTKClasses.pas')
| -rw-r--r-- | libgtk_kylix/GTKClasses.pas | 14 |
1 files changed, 5 insertions, 9 deletions
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; |