--- a/Tools__ViewTreeApplication.st Fri Jun 15 02:40:48 2018 +0200
+++ b/Tools__ViewTreeApplication.st Fri Jun 29 09:54:19 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2007 by eXept Software AG
All Rights Reserved
@@ -4364,51 +4366,53 @@
!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'selection protocol'!
changed:aParameter with:oldSelection
- "update the visibility staus of the current selection
+ "update the visibility status of the current selection
"
|unselected rootView rootItem selSize|
selSize := selection size.
selSize == 0 ifTrue:[
- selectedSuperItems := #().
+ selectedSuperItems := #().
] ifFalse:[
- selSize == 1 ifTrue:[
- selectedSuperItems := Array with:(selection at:1).
- ] ifFalse:[
- rootItem := listOfItems root.
-
- (selection includesIdentical:rootItem) ifTrue:[
- selectedSuperItems := Array with:rootItem.
- ] ifFalse:[
- selectedSuperItems := OrderedCollection new:selSize.
-
- selection do:[:anItem|
- anItem parentsDetect:[:el| selection includesIdentical:el ]
- ifNone:[ selectedSuperItems add:anItem ].
- ].
- ]
- ]
+ selSize == 1 ifTrue:[
+ selectedSuperItems := Array with:(selection at:1).
+ ] ifFalse:[
+ rootItem := listOfItems root.
+
+ (selection includesIdentical:rootItem) ifTrue:[
+ selectedSuperItems := Array with:rootItem.
+ ] ifFalse:[
+ selectedSuperItems := OrderedCollection new:selSize.
+
+ selection do:[:anItem|
+ anItem parentsDetect:[:el| selection includesIdentical:el ]
+ ifNone:[ selectedSuperItems add:anItem ].
+ ].
+ ]
+ ]
].
( hiddenLevel == 0
and:[(rootView := listOfItems rootView) notNil
and:[rootView shown]]
) ifTrue:[
- selSize == 0 ifTrue:[
- "/ must redraw the old selection unselected
- self redrawUnselected:oldSelection andLock:false
- ] ifFalse:[
- self invalidateSelection.
-
- oldSelection size ~~ 0 ifTrue:[
- "/ must redraw all elements no longer in the selection
- unselected := oldSelection select:[:el| (selection includesIdentical:el) not ].
- self redrawUnselected:unselected andLock:false.
- ]
- ]
+ selSize == 0 ifTrue:[
+ "/ must redraw the old selection unselected
+ self redrawUnselected:oldSelection andLock:false
+ ] ifFalse:[
+ self invalidateSelection.
+
+ oldSelection size ~~ 0 ifTrue:[
+ "/ must redraw all elements no longer in the selection
+ unselected := oldSelection select:[:el| (selection includesIdentical:el) not ].
+ self redrawUnselected:unselected andLock:false.
+ ]
+ ]
].
super changed:aParameter with:oldSelection.
+
+ "Modified (comment): / 29-06-2018 / 08:25:36 / Claus Gittinger"
!
setValue:aNewSelection