PopUpMenu.st
changeset 967 6739eb5496da
parent 962 1f1033090efe
child 1056 ef4c9dc26b37
--- a/PopUpMenu.st	Wed Jan 22 12:03:01 1997 +0100
+++ b/PopUpMenu.st	Wed Jan 22 18:21:36 1997 +0100
@@ -1116,6 +1116,7 @@
 
 buttonPress:button x:x y:y
     hideOnRelease := true.
+
     ((x >= 0) and:[x < width]) ifTrue:[
         ((y >= 0) and:[y < height]) ifTrue:[
             menuView buttonPress:button x:x y:y.
@@ -1123,7 +1124,7 @@
         ]
     ].
 
-    "Modified: 8.3.1996 / 14:03:34 / cg"
+    "Modified: 22.1.1997 / 17:38:14 / cg"
 !
 
 buttonRelease:button x:x y:y
@@ -1300,5 +1301,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.59 1997-01-21 14:48:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.60 1997-01-22 17:21:36 cg Exp $'
 ! !