--- a/ObjectView.st Tue Oct 28 14:24:26 2008 +0100
+++ b/ObjectView.st Sun Nov 09 23:51:41 2008 +0100
@@ -2986,13 +2986,16 @@
select:something
"select something - hide previouse selection, set to something and hilight"
- (selection == something) ifFalse:[
+ |newSelection|
+
+ newSelection :=
+ (something isCollection and:[something size == 0])
+ ifTrue:[ nil ]
+ ifFalse:[ something ].
+
+ (selection = newSelection) ifFalse:[
self hideSelection.
- (something isCollection and:[something size == 0]) ifTrue:[
- selection := nil.
- ] ifFalse:[
- selection := something.
- ].
+ selection := newSelection.
self showSelection.
self changed:#selection with:selection.
]
@@ -3477,5 +3480,5 @@
!ObjectView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.126 2008-01-07 13:47:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.127 2008-11-09 22:51:41 cg Exp $'
! !