# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1202207948 -3600
# Node ID f93749e6403051a7f908623834b3051793714c43
# Parent  0234d226a06a670a57893b3e4379e4c396fd2ff7
changed #singleSelection  - make more comprehendable

diff -r 0234d226a06a -r f93749e64030 UIObjectView.st
--- a/UIObjectView.st	Mon Feb 04 16:00:39 2008 +0100
+++ b/UIObjectView.st	Tue Feb 05 11:39:08 2008 +0100
@@ -1289,17 +1289,16 @@
 !
 
 singleSelection
-    "checks whether one element is selected; in this case the element is
-     returned otherwise nil
-    "
-    |coll|
-
-    (coll := self selection) isCollection ifFalse:[
-        ^ coll
+    "checks whether a single element is selected; in this case the element is
+     returned otherwise nil"
+
+    |sel|
+
+    sel := self selection.
+    sel isCollection ifTrue:[
+        sel := sel size == 1 ifTrue:[sel first] ifFalse:[nil].
     ].
-
-    coll size == 1 ifTrue:[ ^ coll first].
-    ^ nil
+    ^ sel
 !
 
 singleSelectionDo:aBlock