--- a/PopUpMenu.st Fri Jul 20 13:22:05 2007 +0200
+++ b/PopUpMenu.st Sat Aug 18 16:55:28 2007 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libwidg' }"
PopUpView subclass:#PopUpMenu
@@ -1343,7 +1342,9 @@
translatePoint:(x @ y)
fromView:self
toView:(menuView superMenu).
- superMenu buttonMotion:state x:p x y:p y
+ p notNil ifTrue:[
+ superMenu buttonMotion:state x:p x y:p y
+ ]
].
menuView subMenuShown isNil ifTrue:[
@@ -1354,7 +1355,7 @@
self hide
].
- "Modified: / 10.10.2001 / 14:01:24 / cg"
+ "Modified: / 28-07-2007 / 13:14:12 / cg"
!
buttonPress:button x:x y:y
@@ -1605,5 +1606,5 @@
!PopUpMenu class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.98 2006-08-25 10:26:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.99 2007-08-18 14:55:28 cg Exp $'
! !