PopUpList.st
changeset 2398 696ea2e22898
parent 2311 9746fb5dd8e0
child 2434 a9b9d8f2ab5b
equal deleted inserted replaced
2397:e643a7e77af5 2398:696ea2e22898
   824 ! !
   824 ! !
   825 
   825 
   826 !PopUpList methodsFor:'event handling'!
   826 !PopUpList methodsFor:'event handling'!
   827 
   827 
   828 keyPress:key x:x y:y
   828 keyPress:key x:x y:y
       
   829     <resource: #keyboard (#Return)>
       
   830 
   829     (key == Character space or:[key == #Return])ifTrue:[
   831     (key == Character space or:[key == #Return])ifTrue:[
   830         self popMenu.
   832         self popMenu.
   831         ^ self
   833         ^ self
   832     ].
   834     ].
   833     super keyPress:key x:x y:y
   835     super keyPress:key x:x y:y
  1124 ! !
  1126 ! !
  1125 
  1127 
  1126 !PopUpList class methodsFor:'documentation'!
  1128 !PopUpList class methodsFor:'documentation'!
  1127 
  1129 
  1128 version
  1130 version
  1129     ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.71 2000-11-17 00:44:48 cg Exp $'
  1131     ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.72 2001-09-03 13:08:59 cg Exp $'
  1130 ! !
  1132 ! !