gtk1: fix compilation

git-svn-id: trunk@23985 -
This commit is contained in:
paul 2010-03-14 07:46:06 +00:00
parent 0c1c7b1a6c
commit b6b87b095a

View File

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