--- a/ObjectView.st Mon Nov 22 11:44:27 1999 +0100
+++ b/ObjectView.st Tue Nov 23 22:21:03 1999 +0100
@@ -2871,7 +2871,7 @@
unselect
"unselect - hide selection; clear selection"
- selection size notNil ifTrue:[
+ selection size ~~ 0 ifTrue:[
self hideSelection.
selection := nil.
self changed:#selection.
@@ -3232,5 +3232,5 @@
!ObjectView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.76 1999-11-19 14:35:01 ps Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.77 1999-11-23 21:21:03 cg Exp $'
! !