1 files changed, 8 insertions, 8 deletions
diff --git a/libgtk_kylix/GTKStdCtrls.pas b/libgtk_kylix/GTKStdCtrls.pas
index 1d4157a..1cccdf8 100644
--- a/libgtk_kylix/GTKStdCtrls.pas
+++ b/libgtk_kylix/GTKStdCtrls.pas
@@ -420,12 +420,13 @@ begin
   gtk_misc_set_padding(PGtkMisc(FWidget), XPadding, YPadding);
 end;
 
+procedure x_gtk_misc_get_padding(misc:PGtkMisc; xpad:Pgint; ypad:Pgint); cdecl; external gtklib name 'gtk_misc_get_padding';
+
 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;
+  x_gtk_misc_get_padding(PGtkMisc(FWidget), @xpad, @ypad);
+  Result := xpad;
 end;
 
 procedure TGTKMisc.SetXPadding(Value: integer);
@@ -434,11 +435,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;
+  x_gtk_misc_get_padding(PGtkMisc(FWidget), @xpad, @ypad);
+  Result := ypad;
 end;
 
 procedure TGTKMisc.SetYPadding(Value: integer);