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

(limited to 'UNewDir.pas')

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