Tools__ViewTreeApplication.st
changeset 3532 12b7b904b5e1
parent 3525 5df4da794cd2
child 3551 94a23bbd725b
     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