diff options
Diffstat (limited to 'fv')
| -rw-r--r-- | fv/outline.pas | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/fv/outline.pas b/fv/outline.pas index 246cf66d0f..6d365681cb 100644 --- a/fv/outline.pas +++ b/fv/outline.pas @@ -195,8 +195,12 @@ procedure Toutlineviewer.expandall(node:pointer); var i:sw_integer; begin - for i:=0 to getnumchildren-1 do - expandall(getchild(i)); + if haschildren(node) then + begin + for i:=0 to getnumchildren(node)-1 do + expandall(getchild(node,i)); + adjust(node,true); + end; end; function Toutlineviewer.firstthat(test:pointer):pointer; |