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.
---
 URunFromVFS.pas | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'URunFromVFS.pas')

diff --git a/URunFromVFS.pas b/URunFromVFS.pas
index a1309ff..4710a33 100644
--- a/URunFromVFS.pas
+++ b/URunFromVFS.pas
@@ -22,8 +22,8 @@ unit URunFromVFS;
 interface
 
 uses
-  glib2, gtk2, pango, SysUtils, Types, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKView,
-  GTKUtils, GTKDialogs, GTKPixbuf, GTKClasses, UCoreClasses;
+  gtk2, SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts,
+  GTKPixbuf, UCoreClasses;
 
 type
   TFRunFromVFS = class(TGTKDialog)
@@ -56,7 +56,7 @@ var
 
 implementation
 
-uses ULocale, UConfig;
+uses ULocale;
 
 
 procedure TFRunFromVFS.FormCreate(Sender: TObject);
@@ -89,7 +89,7 @@ begin
   CloseButton := TGTKButton.CreateFromStock(Self, GTK_STOCK_CLOSE);
 //  CloseButton.Default := True;
 //  Default := CloseButton;
-  CloseButton.OnClick := CloseButtonClick;
+  CloseButton.OnClick := @CloseButtonClick;
   ButtonBox := TGTKHButtonBox.Create(Self);
   ButtonBox.Layout := blEnd;
   ButtonBox.Spacing := 0;
@@ -173,11 +173,11 @@ begin
   ExecuteButton := TGTKImageButton.Create(Self);
   ExecuteButton.SetFromStock('gtk-execute', isButton);
   ExecuteButton.Caption := LANGFRunFromVFS_ExecuteButton;
-  ExecuteButton.OnClick := ExecuteButtonClick;
+  ExecuteButton.OnClick := @ExecuteButtonClick;
   ExecuteButton.Spacing := 7;
   ExecuteAllButton := TGTKImageButton.Create(Self);
   ExecuteAllButton.Caption := LANGFRunFromVFS_ExecuteAllButton;
-  ExecuteAllButton.OnClick := ExecuteAllButtonClick;
+  ExecuteAllButton.OnClick := @ExecuteAllButtonClick;
   ExecuteAllButton.Spacing := 7;
 
 
@@ -216,7 +216,7 @@ begin
   ActionArea.AddControlEx(HBox2, False, False, 0);
 
   CloseButton.SetFocus;
-  OnKeyDown := FormKeyDown;
+  OnKeyDown := @FormKeyDown;
 end;
 
 procedure TFRunFromVFS.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean);
-- 
cgit v1.2.3