hg/stx-libtool2: comparison Tools__ViewTreeApplication.st

equal deleted inserted replaced

-:0bfa90576a61
+:92077573d5c4
 "update my children against the list of items derived from
 the merged list.
 "
 mergedList size == 0 ifTrue:[ ^ self removeAll ].
-children   size == 0 ifTrue:[ ^ self addAll:mergedList ].
+children   size == 0 ifTrue:[ self addAll:mergedList. ^mergedList ].
 self criticalDo:[
-	self nonCriticalDo:[:el| |wdg|
+self nonCriticalDo:[:el| |wdg|
-	    wdg := el widget.
+wdg := el widget.
-	    mergedList detect:[:e2| e2 widget == wdg ] ifNone:[ self remove:el ].
+mergedList detect:[:e2| e2 widget == wdg ] ifNone:[ self remove:el ].
-	].
+].
-	mergedList keysAndValuesDo:[:i :el| |wdg e2|
+mergedList keysAndValuesDo:[:i :el| |wdg e2|
-	    wdg := el widget.
+wdg := el widget.
-	    e2  := self at:i ifAbsent:nil.
+e2  := self at:i ifAbsent:nil.
-	    (e2 isNil or:[e2 widget ~~ wdg]) ifTrue:[
+(e2 isNil or:[e2 widget ~~ wdg]) ifTrue:[
-		self add:el beforeIndex:i
+self add:el beforeIndex:i
-	    ]
+]
-	]
+]
 ].
 ! !
 !ViewTreeInspectorApplication::ViewTreeItem methodsFor:'printing & storing'!