paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 09:27:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: gtk2: fixed VerboseTransient

Browse Source 
git-svn-id: trunk@40085 -
This commit is contained in:
mattias 2013-01-31 08:33:09 +00:00
parent ff0a91887b
commit 37773bbc7d
2 changed files with 14 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -830,7 +830,7 @@ begin
gtk_window_set_skip_taskbar_hint(GtkWindow, True);
{$IFDEF VerboseTransient}
DebugLn('TGtkWidgetSet.ShowModal ',Sender.ClassName);
DebugLn('TGtkWidgetSet.GtkWindowShowModal ',DbgSName(AForm));
{$ENDIF}
GTK2WidgetSet.UpdateTransientWindows;
end;
@ -3455,7 +3455,7 @@ begin
if (ADialog=nil) or (not ADialog.HandleAllocated) then exit;
DlgWindow:={%H-}PGtkWidget(ADialog.Handle);
{$IFDEF VerboseTransient}
DebugLn('DestroyCommonDialogAddOns ',ADialog.Name,':',ADialog.ClassName);
DebugLn('DestroyCommonDialogAddOns ',DbgSName(ADialog));
{$ENDIF}
gtk_window_set_transient_for(PGtkWindow(DlgWindow),nil);
if ADialog is TOpenDialog then begin

30
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -1940,10 +1940,8 @@ begin
for i:=AllWindows.Count-1 downto 0 do begin
ATransientWindow:=PTransientWindow(AllWindows[i]);
{$IFDEF VerboseTransient}
DbgOut('TGtk2WidgetSet.UpdateTransientWindows Untransient ',i);
if ATransientWindow^.Component<>nil then
DbgOut(' ',ATransientWindow^.Component.Name,':',ATransientWindow^.Component.ClassName);
DebugLn('');
debugln(['TGtk2WidgetSet.UpdateTransientWindows Untransient ',i,
' ',dbgsname(ATransientWindow^.Component)]);
{$ENDIF}
gtk_window_set_transient_for(ATransientWindow^.GtkWindow,nil);
end;
@ -1985,17 +1983,15 @@ begin
begin
if ParentTransientWindow<>nil then begin
{$IFDEF VerboseTransient}
DebugLn('Define TRANSIENT ',
DebugLn(['Define TRANSIENT ',
' Parent=',
ParentTransientWindow^.Component.Name,':',
ParentTransientWindow^.Component.ClassName,
dbgsname(ParentTransientWindow^.Component),
' Index=',ParentTransientWindow^.SortIndex,
' Wnd=',DbgS(ParentTransientWindow^.GtkWindow),
' Child=',ATransientWindow^.Component.Name,':',
ATransientWindow^.Component.ClassName,
' Child=',dbgsname(ATransientWindow^.Component),
' Index=',ATransientWindow^.SortIndex,
' Wnd=',DbgS(ATransientWindow^.GtkWindow),
'');
'']);
{$ENDIF}
ATransientWindow^.TransientParent:=ParentTransientWindow^.GtkWindow;
end;
@ -2013,13 +2009,12 @@ begin
OldTransientParent:=ATransientWindow^.GtkWindow^.transient_parent;
if (OldTransientParent<>ATransientWindow^.TransientParent) then begin
{$IFDEF VerboseTransient}
DebugLn('Break old TRANSIENT i=',i,'/',AllWindows.Count,
DebugLn(['Break old TRANSIENT i=',i,'/',AllWindows.Count,
' OldTransientParent=',DbgS(OldTransientParent),
' Child=',ATransientWindow^.Component.Name,':',
ATransientWindow^.Component.ClassName,
' Child=',dbgsname(ATransientWindow^.Component),
' Index=',ATransientWindow^.SortIndex,
' Wnd=',DbgS(ATransientWindow^.GtkWindow),
'');
'']);
{$ENDIF}
gtk_window_set_transient_for(ATransientWindow^.GtkWindow,nil);
end;
@ -2030,13 +2025,12 @@ begin
ATransientWindow:=PTransientWindow(AllWindows[i]);
if ATransientWindow^.TransientParent=nil then continue;
{$IFDEF VerboseTransient}
DebugLn('Set TRANSIENT i=',i,'/',AllWindows.Count,
' Child=',ATransientWindow^.Component.Name,':',
ATransientWindow^.Component.ClassName,
DebugLn(['Set TRANSIENT i=',i,'/',AllWindows.Count,
' Child=',dbgsname(ATransientWindow^.Component),
' Index=',ATransientWindow^.SortIndex,
' Wnd=',DbgS(ATransientWindow^.GtkWindow),
' Parent=',DbgS(ATransientWindow^.TransientParent),
'');
'']);
{$ENDIF}
gtk_window_set_transient_for(ATransientWindow^.GtkWindow,
ATransientWindow^.TransientParent);