--- 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!