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

MG: deactivated transient modal forms

Browse Source 
git-svn-id: trunk@2057 -
This commit is contained in:
lazarus 2002-08-17 23:40:49 +00:00
parent 811719d1e2
commit 44a63cfd06
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -111,7 +111,7 @@ begin
TheWindow:=GetControlWindow(Widget);
MainWindow:=GetControlWindow(PGtkWidget(Application.MainForm.Handle));
if TheWindow<>MainWindow then
gdk_window_set_transient_for(MainWindow,TheWindow);
{gdk_window_set_transient_for(MainWindow,TheWindow)};
end;
end
else if TObject(Data) is TPopupMenu then begin
@ -120,7 +120,7 @@ begin
TheWindow:=GetControlWindow(Widget);
MainWindow:=GetControlWindow(PGtkWidget(Application.MainForm.Handle));
if TheWindow<>MainWindow then
gdk_window_set_transient_for(MainWindow,TheWindow);
{gdk_window_set_transient_for(MainWindow,TheWindow)};
end;
end;
end;
@ -2427,6 +2427,9 @@ end;
{ =============================================================================
$Log$
Revision 1.137 2002/09/30 22:42:54 lazarus
MG: deactivated transient modal forms
Revision 1.136 2002/09/30 20:37:09 lazarus
MG: fixed transient of modal forms