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.
---
 UCopyMove.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'UCopyMove.pas')

diff --git a/UCopyMove.pas b/UCopyMove.pas
index 2848068..0bbbcf2 100644
--- a/UCopyMove.pas
+++ b/UCopyMove.pas
@@ -22,7 +22,7 @@ unit UCopyMove;
 interface
 
 uses
-  SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts;
+  SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKConsts;
 
 type
   TFCopyMove = class(TGTKDialog)
@@ -61,7 +61,7 @@ begin
   Box.AddControlEx(Entry, False, False, 0);
   Box.BorderWidth := 8;
   ClientArea.AddControlEx(Box, True, True, 0);
-  OnKeyDown := FormKeyDown;
+  OnKeyDown := @FormKeyDown;
   Entry.SetFocus;
 end;
 
-- 
cgit v1.2.3