Port to g-i generated glib2 bindings

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

1 files changed, 4 insertions, 5 deletions

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;