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

(limited to 'UDirDelete.pas')

diff --git a/UDirDelete.pas b/UDirDelete.pas
index 3a3b4c5..953a41a 100644
--- a/UDirDelete.pas
+++ b/UDirDelete.pas
@@ -22,7 +22,7 @@ unit UDirDelete;
 interface
 
 uses
-  SysUtils, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKConsts;
+  SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKConsts;
 
 const DIR_DELETE_CANCEL   = 0;
       DIR_DELETE_DELETE   = 1;
@@ -68,7 +68,7 @@ begin
   ClientArea.AddControlEx(Label1, True, True, 0);
   ClientArea.AddControlEx(Label2, True, True, 0);
   ClientArea.AddControlEx(Label3, True, True, 0);
-  OnKeyDown := FormKeyDown;
+  OnKeyDown := @FormKeyDown;
 end;
 
 procedure TFDirDelete.AddButtons(ButtonSet: TFDirDeleteButtonSet);
-- 
cgit v1.2.3