ComboView.st
changeset 2868 0050e38370ed
parent 2785 3c705bdd5792
child 2892 42ba7f03313b
equal deleted inserted replaced
2867:bbdc2721ec0b 2868:0050e38370ed
   436     "Modified: / 22.2.1999 / 00:47:46 / cg"
   436     "Modified: / 22.2.1999 / 00:47:46 / cg"
   437     "Modified: / 30.3.1999 / 14:17:10 / stefan"
   437     "Modified: / 30.3.1999 / 14:17:10 / stefan"
   438 !
   438 !
   439 
   439 
   440 keyPress:key x:x y:y
   440 keyPress:key x:x y:y
       
   441     "pull the menu on space and return keys"
       
   442 
   441     <resource: #keyboard (#Return)>
   443     <resource: #keyboard (#Return)>
   442 
   444 
   443     (key == Character space
   445     (key == Character space or:[key == #Return]) ifTrue:[
   444     or:[key == #Return]) ifTrue:[
       
   445         self pullMenu.
   446         self pullMenu.
   446         ^ self.
   447         ^ self.
   447     ].
   448     ].
   448 
   449 
   449     ^ super keyPress:key x:x y:y
   450     ^ super keyPress:key x:x y:y
   693 ! !
   694 ! !
   694 
   695 
   695 !ComboView class methodsFor:'documentation'!
   696 !ComboView class methodsFor:'documentation'!
   696 
   697 
   697 version
   698 version
   698     ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.77 2005-01-28 11:28:38 stefan Exp $'
   699     ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.78 2005-12-21 11:34:41 cg Exp $'
   699 ! !
   700 ! !