paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 10:00:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk1: fixed compilation

Browse Source 
git-svn-id: trunk@15300 -
This commit is contained in:
mattias 2008-06-03 17:47:13 +00:00
parent 6997537d50
commit 751043ea4d
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkwsbuttons.pp
View File

@ -422,8 +422,12 @@ begin
if (AInfo^.SpaceWidget = nil) if (AInfo^.SpaceWidget = nil)
and (ALayout in [blGlyphRight, blGlyphBottom]) and (ALayout in [blGlyphRight, blGlyphBottom])
then begin then begin
{$IFDEF gtk1}
AInfo^.SpaceWidget := gtk_invisible_new;
{$ELSE}
// dont use gtk_invisible_new - it cannot have parent // dont use gtk_invisible_new - it cannot have parent
AInfo^.SpaceWidget := gtk_image_new; AInfo^.SpaceWidget := gtk_image_new;
{$ENDIF}
UpdateLayout(AInfo, ALayout, AMargin); UpdateLayout(AInfo, ALayout, AMargin);
end end
else begin else begin