Port to g-i generated glib2 bindings

Includes switch to FPC -Mobjfpc and related pointer style fixes.

1 files changed, 10 insertions, 10 deletions

diff --git a/UOverwrite.pas b/UOverwrite.pas
index 78f057b..e2d7b43 100644
--- a/UOverwrite.pas
+++ b/UOverwrite.pas
@@ -22,7 +22,7 @@ unit UOverwrite;
 interface
 
 uses
-  gtk2, SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts;
+  gtk2, SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKConsts;
 
 const OVERWRITE_CANCEL = 0;
       OVERWRITE_OVERWRITE = 1;
@@ -70,28 +70,28 @@ begin
   ToInfoLabel.XAlign := 0;    ToInfoLabel.XPadding := 40;
   OverwriteButton := TGTKButton.Create(Self);
   OverwriteButton.Caption := LANGOverwriteButton_Caption;
-  OverwriteButton.OnClick := ButtonClick;
+  OverwriteButton.OnClick := @ButtonClick;
   OverwriteAllButton := TGTKButton.Create(Self);
   OverwriteAllButton.Caption := LANGOverwriteAllButton_Caption;
-  OverwriteAllButton.OnClick := ButtonClick;
+  OverwriteAllButton.OnClick := @ButtonClick;
   SkipButton := TGTKButton.Create(Self);
   SkipButton.Caption := LANGSkipButton_Caption;
-  SkipButton.OnClick := ButtonClick;
+  SkipButton.OnClick := @ButtonClick;
   CancelButton := TGTKButton.Create(Self);
   CancelButton.Caption := LANGCancel;
-  CancelButton.OnClick := ButtonClick;
+  CancelButton.OnClick := @ButtonClick;
   OverwriteAllOlderButton := TGTKButton.Create(Self);
   OverwriteAllOlderButton.Caption := LANGOverwriteAllOlderButton_Caption;
-  OverwriteAllOlderButton.OnClick := ButtonClick;
+  OverwriteAllOlderButton.OnClick := @ButtonClick;
   SkipAllButton := TGTKButton.Create(Self);
   SkipAllButton.Caption := LANGSkipAllButton_Caption;
-  SkipAllButton.OnClick := ButtonClick;
+  SkipAllButton.OnClick := @ButtonClick;
   RenameButton := TGTKButton.Create(Self);
   RenameButton.Caption := LANGRenameButton_Caption;
-  RenameButton.OnClick := ButtonClick;
+  RenameButton.OnClick := @ButtonClick;
   AppendButton := TGTKButton.Create(Self);
   AppendButton.Caption := LANGAppendButton_Caption;
-  AppendButton.OnClick := ButtonClick;
+  AppendButton.OnClick := @ButtonClick;
   ButtonTable := TGTKTable.Create(Self);
   ButtonTable.RowCount := 3;
   ButtonTable.ColCount := 3;
@@ -107,7 +107,7 @@ begin
   ClientArea.AddControlEx(FromVBox, True, True, 5);
   ClientArea.AddControlEx(ToVBox, True, True, 5);
   ActionArea.AddControlEx(ButtonTable, True, True, 0);
-  OnKeyDown := FormKeyDown;
+  OnKeyDown := @FormKeyDown;
 end;
 
 procedure TFOverwrite.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean);