--- a/ObjView.st	Wed Jun 30 01:40:12 1999 +0200
+++ b/ObjView.st	Sun Jul 04 15:01:16 1999 +0200
@@ -2748,6 +2748,17 @@
     self showSelection
 !
 
+selection
+    "return the selection as a collection or nil"
+
+    selection isNil ifTrue:[^ nil].
+    selection isCollection ifTrue:[^ selection].
+    ^ Array with:selection
+
+    "Created: / 4.7.1999 / 14:33:16 / cg"
+    "Modified: / 4.7.1999 / 14:34:20 / cg"
+!
+
 selectionDo:aBlock
     "apply block to every object in selection"
 
@@ -3101,5 +3112,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.69 1999-06-05 23:02:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.70 1999-07-04 13:01:16 cg Exp $'
 ! !

--- a/ObjectView.st	Wed Jun 30 01:40:12 1999 +0200
+++ b/ObjectView.st	Sun Jul 04 15:01:16 1999 +0200
@@ -2748,6 +2748,17 @@
     self showSelection
 !
 
+selection
+    "return the selection as a collection or nil"
+
+    selection isNil ifTrue:[^ nil].
+    selection isCollection ifTrue:[^ selection].
+    ^ Array with:selection
+
+    "Created: / 4.7.1999 / 14:33:16 / cg"
+    "Modified: / 4.7.1999 / 14:34:20 / cg"
+!
+
 selectionDo:aBlock
     "apply block to every object in selection"
 
@@ -3101,5 +3112,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.69 1999-06-05 23:02:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.70 1999-07-04 13:01:16 cg Exp $'
 ! !