--- a/PopUpList.st	Fri Aug 24 17:12:47 2001 +0200
+++ b/PopUpList.st	Mon Sep 03 15:08:59 2001 +0200
@@ -826,6 +826,8 @@
 !PopUpList methodsFor:'event handling'!
 
 keyPress:key x:x y:y
+    <resource: #keyboard (#Return)>
+
     (key == Character space or:[key == #Return])ifTrue:[
         self popMenu.
         ^ self
@@ -1126,5 +1128,5 @@
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.71 2000-11-17 00:44:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.72 2001-09-03 13:08:59 cg Exp $'
 ! !