#DOCUMENTATION by cg draft
authorClaus Gittinger <cg@exept.de>
Fri, 29 Jun 2018 09:54:19 +0200
changeset 3568 5004640f2a10
parent 3566 278888b1ca84
child 3569 a84b410b96ac
#DOCUMENTATION by cg class: Tools::ViewTreeInspectorApplication::ViewTreeModel comment/format in: #changed:with:
Tools__ViewTreeApplication.st
--- 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