#DOCUMENTATION by mawalch draft
authormawalch
Tue, 16 May 2017 17:52:14 +0200
changeset 3445 bd1aa4795dcf
parent 3444 4d705dd47c2d
child 3446 a1b0967ff39d
#DOCUMENTATION by mawalch class: UIObjectView comment/format in: #centerSelection:orientation:
UIObjectView.st
--- a/UIObjectView.st	Thu May 11 13:31:27 2017 +0200
+++ b/UIObjectView.st	Tue May 16 17:52:14 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by eXept Software AG
 	      All Rights Reserved
@@ -2593,56 +2595,56 @@
 !
 
 centerSelection:aOneArgBlockXorY orientation:orientation
-    "center selection horizontal or vertical dependant on the block result( x or y).
+    "center selection horizontally or vertically depending on the block result (x or y).
      The argument to the block is the point.
     "
     |superview min max delta val|
 
     (self moveableSelection) isNil ifTrue:[
-	^ self
+        ^ self
     ].
 
     self withSelectionHiddenDo:[
-	max := 0.
-
-	self selectionDo:[:aView |
-	    superview isNil ifTrue:[
-		superview := self findContainerOfView:aView
-	    ] ifFalse:[
-		(self findContainerOfView:aView) == superview ifFalse:[
-		    ^ self notify:'views must have same superview'.
-		]
-	    ].
-	    val := aOneArgBlockXorY value:(aView computeOrigin).    
-
-	    min isNil ifTrue:[min := val]
-		     ifFalse:[min := min min:val].
-
-	    val := aOneArgBlockXorY value:(aView computeCorner).
-	    max := max max:val.
-	].
-
-	val := aOneArgBlockXorY value:(superview computeExtent).
-	max := (min + val - max) // 2.
-
-	max == min ifFalse:[
-	    |type|
-	    (orientation == #y) ifTrue:[type := #centerVertical]
-			       ifFalse:[type := #centerHorizontal].
-	    delta := max - min.
-
-	    self transaction:type selectionDo:[:v|
-		orientation == #y ifTrue:[
-		    self shiftLayout:v top:delta bottom:delta
-		] ifFalse:[
-		    self shiftLayout:v left:delta right:delta
-		]
-	    ]
-	].
-	self layoutChanged
+        max := 0.
+
+        self selectionDo:[:aView |
+            superview isNil ifTrue:[
+                superview := self findContainerOfView:aView
+            ] ifFalse:[
+                (self findContainerOfView:aView) == superview ifFalse:[
+                    ^ self notify:'views must have same superview'.
+                ]
+            ].
+            val := aOneArgBlockXorY value:(aView computeOrigin).
+
+            min isNil ifTrue:[min := val]
+                     ifFalse:[min := min min:val].
+
+            val := aOneArgBlockXorY value:(aView computeCorner).
+            max := max max:val.
+        ].
+
+        val := aOneArgBlockXorY value:(superview computeExtent).
+        max := (min + val - max) // 2.
+
+        max == min ifFalse:[
+            |type|
+            (orientation == #y) ifTrue:[type := #centerVertical]
+                               ifFalse:[type := #centerHorizontal].
+            delta := max - min.
+
+            self transaction:type selectionDo:[:v|
+                orientation == #y ifTrue:[
+                    self shiftLayout:v top:delta bottom:delta
+                ] ifFalse:[
+                    self shiftLayout:v left:delta right:delta
+                ]
+            ]
+        ].
+        self layoutChanged
     ]
 
-
+    "Modified (format): / 16-05-2017 / 17:45:24 / mawalch"
 !
 
 centerSelectionHor