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.
---
 UChmod.pas | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

(limited to 'UChmod.pas')

diff --git a/UChmod.pas b/UChmod.pas
index 7601e08..d4d43ba 100644
--- a/UChmod.pas
+++ b/UChmod.pas
@@ -22,7 +22,7 @@ unit UChmod;
 interface
 
 uses
-  SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKMenus;
+  SysUtils, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKMenus;
 
 type
   TFChmod = class(TGTKDialog)
@@ -75,7 +75,7 @@ begin
   HBox2.Homogeneous := False;
   HBox2.BorderWidth := 5;
   RecursiveCheckButton := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_ApplyRecursivelyFor);
-  RecursiveCheckButton.OnToggled := RecursiveCheckButtonToggled;
+  RecursiveCheckButton.OnToggled := @RecursiveCheckButtonToggled;
   RecursiveOptionMenu := TGTKOptionMenu.Create(Self);
   miAllFiles := TGTKMenuItem.Create(Self);
   miAllFiles.Caption := LANGFChmod_miAllFiles;
@@ -127,37 +127,37 @@ begin
   VBox := TGTKVBox.Create(Self);
   VBox.BorderWidth := 5;
   cbSUID := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_SUID);
-  VBox.AddControlEx(cbSUID, False, False, 0);     cbSUID.OnToggled := PermissionsCheckBoxToggle;
+  VBox.AddControlEx(cbSUID, False, False, 0);     cbSUID.OnToggled := @PermissionsCheckBoxToggle;
   cbSGID := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_SGID);
-  VBox.AddControlEx(cbSGID, False, False, 0);     cbSGID.OnToggled := PermissionsCheckBoxToggle;
+  VBox.AddControlEx(cbSGID, False, False, 0);     cbSGID.OnToggled := @PermissionsCheckBoxToggle;
   cbSticky := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_Sticky);
-  VBox.AddControlEx(cbSticky, False, False, 0);     cbSticky.OnToggled := PermissionsCheckBoxToggle;
+  VBox.AddControlEx(cbSticky, False, False, 0);     cbSticky.OnToggled := @PermissionsCheckBoxToggle;
   VBox.AddControlEx(TGTKHSeparator.Create(Self), False, False, 2);
   cbUSRRead := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_RUSR);
-  VBox.AddControlEx(cbUSRRead, False, False, 0);     cbUSRRead.OnToggled := PermissionsCheckBoxToggle;
+  VBox.AddControlEx(cbUSRRead, False, False, 0);     cbUSRRead.OnToggled := @PermissionsCheckBoxToggle;
   cbUSRWrite := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_WUSR);
-  VBox.AddControlEx(cbUSRWrite, False, False, 0);     cbUSRWrite.OnToggled := PermissionsCheckBoxToggle;
+  VBox.AddControlEx(cbUSRWrite, False, False, 0);     cbUSRWrite.OnToggled := @PermissionsCheckBoxToggle;
   cbUSRExec := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_XUSR);
-  VBox.AddControlEx(cbUSRExec, False, False, 0);     cbUSRExec.OnToggled := PermissionsCheckBoxToggle;
+  VBox.AddControlEx(cbUSRExec, False, False, 0);     cbUSRExec.OnToggled := @PermissionsCheckBoxToggle;
   VBox.AddControlEx(TGTKHSeparator.Create(Self), False, False, 2);
   cbGRPRead := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_RGRP);
-  VBox.AddControlEx(cbGRPRead, False, False, 0);     cbGRPRead.OnToggled := PermissionsCheckBoxToggle;
+  VBox.AddControlEx(cbGRPRead, False, False, 0);     cbGRPRead.OnToggled := @PermissionsCheckBoxToggle;
   cbGRPWrite := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_WGRP);
-  VBox.AddControlEx(cbGRPWrite, False, False, 0);     cbGRPWrite.OnToggled := PermissionsCheckBoxToggle;
+  VBox.AddControlEx(cbGRPWrite, False, False, 0);     cbGRPWrite.OnToggled := @PermissionsCheckBoxToggle;
   cbGRPExec := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_XGRP);
-  VBox.AddControlEx(cbGRPExec, False, False, 0);     cbGRPExec.OnToggled := PermissionsCheckBoxToggle;
+  VBox.AddControlEx(cbGRPExec, False, False, 0);     cbGRPExec.OnToggled := @PermissionsCheckBoxToggle;
   VBox.AddControlEx(TGTKHSeparator.Create(Self), False, False, 2);
   cbALLRead := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_ROTH);
-  VBox.AddControlEx(cbALLRead, False, False, 0);     cbALLRead.OnToggled := PermissionsCheckBoxToggle;
+  VBox.AddControlEx(cbALLRead, False, False, 0);     cbALLRead.OnToggled := @PermissionsCheckBoxToggle;
   cbALLWrite := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_WOTH);
-  VBox.AddControlEx(cbALLWrite, False, False, 0);     cbALLWrite.OnToggled := PermissionsCheckBoxToggle;
+  VBox.AddControlEx(cbALLWrite, False, False, 0);     cbALLWrite.OnToggled := @PermissionsCheckBoxToggle;
   cbALLExec := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_XOTH);
-  VBox.AddControlEx(cbALLExec, False, False, 0);     cbALLExec.OnToggled := PermissionsCheckBoxToggle;
+  VBox.AddControlEx(cbALLExec, False, False, 0);     cbALLExec.OnToggled := @PermissionsCheckBoxToggle;
   PermissionFrame.AddControl(VBox);
 
   Busy := False;
-  OnKeyDown := FormKeyDown;
-  OctalEntry.OnChanged := OctalEntryChanged;
+  OnKeyDown := @FormKeyDown;
+  OctalEntry.OnChanged := @OctalEntryChanged;
   RecursiveCheckButtonToggled(Self);
 end;
 
-- 
cgit v1.2.3