diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-08-21 17:53:01 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-08-21 17:53:01 +0200 |
| commit | 4c57ea157b3ee4b9d9b9716c27a538540b73fcd9 (patch) | |
| tree | 27e2385b1e5c10b1a135a603cd13dfe83a4c7d7b | |
| parent | f3f664b6dd8181c079a7c495390063336396532e (diff) | |
| download | tuxcmd-4c57ea157b3ee4b9d9b9716c27a538540b73fcd9.tar.xz | |
FPC Compatibility fixes
| -rw-r--r-- | libgtk_kylix/GTKStdCtrls.pas | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/libgtk_kylix/GTKStdCtrls.pas b/libgtk_kylix/GTKStdCtrls.pas index f2a2ec2..1cccdf8 100644 --- a/libgtk_kylix/GTKStdCtrls.pas +++ b/libgtk_kylix/GTKStdCtrls.pas @@ -420,10 +420,12 @@ 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: gint; begin - gtk_misc_get_padding(PGtkMisc(FWidget), @xpad, @ypad); + x_gtk_misc_get_padding(PGtkMisc(FWidget), @xpad, @ypad); Result := xpad; end; @@ -435,7 +437,7 @@ end; function TGTKMisc.GetYPadding: integer; var xpad, ypad: gint; begin - gtk_misc_get_padding(PGtkMisc(FWidget), @xpad, @ypad); + x_gtk_misc_get_padding(PGtkMisc(FWidget), @xpad, @ypad); Result := ypad; end; |