ExtendedComboBox.st
changeset 2026 3b9f6e0aaad5
parent 2022 16e783eb5f2a
child 2069 7891c7d3af69
--- a/ExtendedComboBox.st	Wed Oct 10 16:03:53 2001 +0200
+++ b/ExtendedComboBox.st	Wed Oct 10 16:04:41 2001 +0200
@@ -1022,6 +1022,8 @@
 keyPress:key x:x y:y
     "handle a key press event
     "
+    <resource: #keyboard (#Return)>
+
     (key == Character space or:[key == #Return]) ifTrue:[
         self enabled ifTrue:[
             self openMenu
@@ -1029,7 +1031,6 @@
     ] ifFalse:[
         super keyPress:key x:x y:y
     ]
-
 !
 
 update:what with:aPara from:aModel
@@ -1502,5 +1503,5 @@
 !ExtendedComboBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.29 2001-10-10 14:01:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.30 2001-10-10 14:04:41 cg Exp $'
 ! !