paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 07:39:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk1: fix compilation

Browse Source 
git-svn-id: trunk@23985 -
This commit is contained in:
paul 2010-03-14 07:46:06 +00:00
parent 0c1c7b1a6c
commit b6b87b095a
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk/gtkwsprivate.pp
View File

@ -355,13 +355,17 @@ begin
// gdk_window_lower(WidgetInfo^.CoreWidget^.Window);
if ScrollWidget^.hscrollbar <> nil then
begin
{$ifndef gtk1}
if GDK_IS_WINDOW(ScrollWidget^.hscrollbar^.Window) then
{$endif}
gdk_window_lower(ScrollWidget^.hscrollbar^.Window);
end;
if ScrollWidget^.vscrollbar <> nil then
begin
{$ifndef gtk1}
if GDK_IS_WINDOW(ScrollWidget^.vscrollbar^.Window) then
{$endif}
gdk_window_lower(ScrollWidget^.vscrollbar^.Window);
end;
end;
@ -369,12 +373,16 @@ begin
// gdk_window_raise(WidgetInfo^.CoreWidget^.Window);
if ScrollWidget^.hscrollbar <> nil then
begin
{$ifndef gtk1}
if GDK_IS_WINDOW(ScrollWidget^.hscrollbar^.Window) then
{$endif}
gdk_window_raise(ScrollWidget^.hscrollbar^.Window);
end;
if ScrollWidget^.vscrollbar <> nil then
begin
{$ifndef gtk1}
if GDK_IS_WINDOW(ScrollWidget^.vscrollbar^.Window) then
{$endif}
gdk_window_raise(ScrollWidget^.vscrollbar^.Window);
end;
end;