MenuPanel.st
changeset 505 562d5661a855
parent 502 dedc1b29b6ac
child 510 8f77b9382066
--- a/MenuPanel.st	Tue Aug 26 17:48:27 1997 +0200
+++ b/MenuPanel.st	Wed Aug 27 16:58:42 1997 +0200
@@ -3370,11 +3370,14 @@
 containsPointX:x y:y
     "returns true if point is contained in my layout
     "
-    ^ (     (x >= layout left)
-        and:[x <  layout right
-        and:[y >  layout top
-        and:[y <= layout bottom]]]
-      )
+    layout isNil ifFalse:[
+        ^ (     (x >= layout left)
+            and:[x <  layout right
+            and:[y >  layout top
+            and:[y <= layout bottom]]]
+          )
+    ].
+    ^ false
 !
 
 hasIndication
@@ -3589,6 +3592,6 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.26 1997-08-26 15:42:47 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.27 1997-08-27 14:58:42 ca Exp $'
 ! !
 MenuPanel initialize!