*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 20 Mar 2006 09:54:15 +0100
changeset 3290 963d2fe6530d
parent 3289 7278c0004f1b
child 3291 ec6a99aad5e8
*** empty log message ***
ObjectView.st
--- a/ObjectView.st	Fri Mar 17 15:00:10 2006 +0100
+++ b/ObjectView.st	Mon Mar 20 09:54:15 2006 +0100
@@ -3076,9 +3076,11 @@
 
     |hdelta|
 
+    contents isEmptyOrNil ifTrue:[^ nil].
+
     hdelta := self hitDelta.
     contents reverseDo:[:object |
-	(object isHitBy:aPoint withDelta:hdelta) ifTrue:[^ object]
+        (object isHitBy:aPoint withDelta:hdelta) ifTrue:[^ object]
     ].
     ^ nil
 !
@@ -3381,5 +3383,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.114 2006-03-16 19:43:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.115 2006-03-20 08:54:15 cg Exp $'
 ! !