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

fixed gtk2 on windows. now it is somewhat usable

Browse Source 
git-svn-id: trunk@10963 -
This commit is contained in:
andrew 2007-04-17 21:07:20 +00:00
parent cb772e1198
commit 583e16ce0a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -152,7 +152,7 @@ begin
if TObject(Data) is TCustomForm then begin
TheForm:=TCustomForm(Data);
if TheForm.Parent=nil then begin
TheWindow:=GetControlWindow(Widget);
TheWindow:=gtk_widget_get_toplevel(Widget)^.window;
//apart from none and sizeable, this will
//only work if WM supports motif flags