FPC 2.2.2 compatibility

1 files changed, 6 insertions, 8 deletions

diff --git a/libgtk_kylix/GTKStdCtrls.pas b/libgtk_kylix/GTKStdCtrls.pas
index 1d4157a..f2a2ec2 100644
--- a/libgtk_kylix/GTKStdCtrls.pas
+++ b/libgtk_kylix/GTKStdCtrls.pas
@@ -421,11 +421,10 @@ begin
 end;
 
 function TGTKMisc.GetXPadding: integer;
-var xpad, ypad: pgint;
+var xpad, ypad: gint;
 begin
-  gtk_misc_get_padding(PGtkMisc(FWidget), xpad, ypad);
-  if Assigned(xpad) then Result := Integer(xpad)
-                    else Result := 0;
+  gtk_misc_get_padding(PGtkMisc(FWidget), @xpad, @ypad);
+  Result := xpad;
 end;
 
 procedure TGTKMisc.SetXPadding(Value: integer);
@@ -434,11 +433,10 @@ begin
 end;
 
 function TGTKMisc.GetYPadding: integer;
-var xpad, ypad: pgint;
+var xpad, ypad: gint;
 begin
-  gtk_misc_get_padding(PGtkMisc(FWidget), xpad, ypad);
-  if Assigned(ypad) then Result := Integer(ypad)
-                    else Result := 0;
+  gtk_misc_get_padding(PGtkMisc(FWidget), @xpad, @ypad);
+  Result := ypad;
 end;
 
 procedure TGTKMisc.SetYPadding(Value: integer);