#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Mon, 05 Feb 2018 11:54:07 +0100
changeset 353212b7b904b5e1
parent 3531 cf715db898dd
child 3533 fe7489c41c11
#REFACTORING by cg
class: Tools::ViewTreeInspectorApplication::ViewTreeItem
changed: #updateChildren
Tools__ViewTreeApplication.st
     1.1 --- a/Tools__ViewTreeApplication.st	Fri Feb 02 00:54:11 2018 +0100
     1.2 +++ b/Tools__ViewTreeApplication.st	Mon Feb 05 11:54:07 2018 +0100
     1.3 @@ -1,3 +1,5 @@
     1.4 +"{ Encoding: utf8 }"
     1.5 +
     1.6  "
     1.7   COPYRIGHT (c) 2007 by eXept Software AG
     1.8  	      All Rights Reserved
     1.9 @@ -3167,27 +3169,26 @@
    1.10  updateChildren
    1.11      |queue|
    1.12  
    1.13 -    queue := OrderedCollection new.
    1.14 -    queue add:self.
    1.15 +    queue := OrderedCollection with:self.
    1.16  
    1.17      self criticalDo:[
    1.18 -	[queue notEmpty] whileTrue:[
    1.19 -	    |toRemove  elProcessed|
    1.20 -
    1.21 -	    elProcessed := queue removeFirst.
    1.22 -	    toRemove := nil.
    1.23 -	    elProcessed nonCriticalDo:[:el|
    1.24 -		el exists ifTrue:[
    1.25 -		    queue add:el.
    1.26 -		] ifFalse:[
    1.27 -		    toRemove isNil ifTrue:[toRemove := OrderedCollection new].
    1.28 -		    toRemove add:el.
    1.29 -		]
    1.30 -	    ].
    1.31 -	    toRemove notNil ifTrue:[
    1.32 -		toRemove do:[:el| elProcessed remove:el ].
    1.33 -	    ].
    1.34 -	].
    1.35 +        [queue notEmpty] whileTrue:[
    1.36 +            |toRemove  elProcessed|
    1.37 +
    1.38 +            elProcessed := queue removeFirst.
    1.39 +            toRemove := nil.
    1.40 +            elProcessed nonCriticalDo:[:el|
    1.41 +                el exists ifTrue:[
    1.42 +                    queue add:el.
    1.43 +                ] ifFalse:[
    1.44 +                    toRemove isNil ifTrue:[toRemove := OrderedCollection new].
    1.45 +                    toRemove add:el.
    1.46 +                ]
    1.47 +            ].
    1.48 +            toRemove notNil ifTrue:[
    1.49 +                toRemove do:[:el| elProcessed remove:el ].
    1.50 +            ].
    1.51 +        ].
    1.52      ].
    1.53  !
    1.54