--- a/PopUpList.st	Wed Dec 21 11:32:22 2005 +0100
+++ b/PopUpList.st	Wed Dec 21 12:40:35 2005 +0100
@@ -835,6 +835,8 @@
 !PopUpList methodsFor:'event handling'!
 
 keyPress:key x:x y:y
+    "pull menu on Return and space"
+
     <resource: #keyboard (#Return)>
 
     (key == Character space or:[key == #Return])ifTrue:[
@@ -1151,5 +1153,5 @@
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.78 2002-08-12 11:04:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.79 2005-12-21 11:40:09 cg Exp $'
 ! !