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

(limited to 'USelect.pas')

diff --git a/USelect.pas b/USelect.pas
index f9edccf..5fcc8cc 100644
--- a/USelect.pas
+++ b/USelect.pas
@@ -22,9 +22,8 @@ unit USelect;
 interface
 
 uses
-  glib2, gtk2, pango, SysUtils, Types, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKView,
-  GTKUtils, GTKDialogs, GTKPixbuf, GTKClasses;
-  
+  SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKConsts, GTKClasses;
+
 type
   TFSelect = class(TGTKDialog)
 {    TitleFrame, ListFontFrame: TGTKFrame;
@@ -92,13 +91,13 @@ begin
     for i := 0 to SelectHistory.Count - 1 do
       ComboBox.Items.Append(SelectHistory[i]);
   ComboBox.Entry.Text := '*.*';
-  ComboBox.Entry.OnKeyDown := ComboBoxKeyDown;
+  ComboBox.Entry.OnKeyDown := @ComboBoxKeyDown;
   Label1.FocusControl := ComboBox.Entry;
   Box.AddControlEx(Label1, False, False, 0);
   Box.AddControlEx(ComboBox, False, False, 3);
   Box.BorderWidth := 12;
   ClientArea.AddControlEx(Box, True, True, 0);
-  OnKeyDown := FormKeyDown;
+  OnKeyDown := @FormKeyDown;
   ComboBox.SetFocus;
 end;
 
-- 
cgit v1.2.3