From b9703b29819b619037cc282d719c187e51bacd30 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@redhat.com>
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.
---
 UOverwrite.pas | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'UOverwrite.pas')

diff --git a/UOverwrite.pas b/UOverwrite.pas
index 78f057b..e2d7b43 100644
--- a/UOverwrite.pas
+++ b/UOverwrite.pas
@@ -22,7 +22,7 @@ unit UOverwrite;
 interface
 
 uses
-  gtk2, SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts;
+  gtk2, SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKConsts;
 
 const OVERWRITE_CANCEL = 0;
       OVERWRITE_OVERWRITE = 1;
@@ -70,28 +70,28 @@ begin
   ToInfoLabel.XAlign := 0;    ToInfoLabel.XPadding := 40;
   OverwriteButton := TGTKButton.Create(Self);
   OverwriteButton.Caption := LANGOverwriteButton_Caption;
-  OverwriteButton.OnClick := ButtonClick;
+  OverwriteButton.OnClick := @ButtonClick;
   OverwriteAllButton := TGTKButton.Create(Self);
   OverwriteAllButton.Caption := LANGOverwriteAllButton_Caption;
-  OverwriteAllButton.OnClick := ButtonClick;
+  OverwriteAllButton.OnClick := @ButtonClick;
   SkipButton := TGTKButton.Create(Self);
   SkipButton.Caption := LANGSkipButton_Caption;
-  SkipButton.OnClick := ButtonClick;
+  SkipButton.OnClick := @ButtonClick;
   CancelButton := TGTKButton.Create(Self);
   CancelButton.Caption := LANGCancel;
-  CancelButton.OnClick := ButtonClick;
+  CancelButton.OnClick := @ButtonClick;
   OverwriteAllOlderButton := TGTKButton.Create(Self);
   OverwriteAllOlderButton.Caption := LANGOverwriteAllOlderButton_Caption;
-  OverwriteAllOlderButton.OnClick := ButtonClick;
+  OverwriteAllOlderButton.OnClick := @ButtonClick;
   SkipAllButton := TGTKButton.Create(Self);
   SkipAllButton.Caption := LANGSkipAllButton_Caption;
-  SkipAllButton.OnClick := ButtonClick;
+  SkipAllButton.OnClick := @ButtonClick;
   RenameButton := TGTKButton.Create(Self);
   RenameButton.Caption := LANGRenameButton_Caption;
-  RenameButton.OnClick := ButtonClick;
+  RenameButton.OnClick := @ButtonClick;
   AppendButton := TGTKButton.Create(Self);
   AppendButton.Caption := LANGAppendButton_Caption;
-  AppendButton.OnClick := ButtonClick;
+  AppendButton.OnClick := @ButtonClick;
   ButtonTable := TGTKTable.Create(Self);
   ButtonTable.RowCount := 3;
   ButtonTable.ColCount := 3;
@@ -107,7 +107,7 @@ begin
   ClientArea.AddControlEx(FromVBox, True, True, 5);
   ClientArea.AddControlEx(ToVBox, True, True, 5);
   ActionArea.AddControlEx(ButtonTable, True, True, 0);
-  OnKeyDown := FormKeyDown;
+  OnKeyDown := @FormKeyDown;
 end;
 
 procedure TFOverwrite.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean);
-- 
cgit v1.2.3