paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-17 03:20:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

gtk1 intf: fixed compilation

Browse Source 
git-svn-id: trunk@11243 -
This commit is contained in:
mattias 2007-05-31 17:36:24 +00:00
parent 8e8e776887
commit a2feb66dce
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk/gtkproc.inc
View File

@ -4546,12 +4546,11 @@ begin
exit; exit;
end; end;
{$IFDEF Gtk2} {$IFDEF Gtk2}
end end else if GtkWidgetIsA(TheWidget,GTK_TYPE_NOTEBOOK) then begin
else if GtkWidgetIsA(TheWidget,GTK_TYPE_NOTEBOOK) then begin
GetNoteBookClientOrigin(PGtkNoteBook(TheWidget)); GetNoteBookClientOrigin(PGtkNoteBook(TheWidget));
exit; exit;
end;
{$ENDIF} {$ENDIF}
end;
Result:=GetWidgetOrigin(TheWidget); Result:=GetWidgetOrigin(TheWidget);
end; end;