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

MG: fixed loop

Browse Source 
git-svn-id: trunk@1163 -
This commit is contained in:
lazarus 2002-02-09 01:48:00 +00:00
parent 7bba64c548
commit c9b0df3a12
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk/gtkobject.inc
View File

@ -578,7 +578,8 @@ var
// this is a container widget -> go through all childs
ChildEntry:=PGtkContainer(PaintWidget)^.resize_widgets;
while ChildEntry<>nil do begin
ForAllChilds(PGtkWidget(ChildEntry^.Data));
if PGtkWidget(ChildEntry^.Data)<>PaintWidget then
ForAllChilds(PGtkWidget(ChildEntry^.Data));
ChildEntry:=ChildEntry^.Next;
end;
end;
@ -6527,6 +6528,9 @@ end;
{ =============================================================================
$Log$
Revision 1.275 2002/10/31 18:54:17 lazarus
MG: fixed loop
Revision 1.274 2002/10/30 17:43:35 lazarus
AJ: added IsNullBrush checks to reduce pointless color allocations & GDK function calls