PopUpMenu.st
changeset 3493 41479ea9a052
parent 3365 efa2c707567a
child 3594 e298287e2968
--- 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 $'
 ! !