A new version of ToolBuilder-Morphic was added to project The Inbox:
http://source.squeak.org/inbox/ToolBuilder-Morphic-fbs.54.mcz==================== Summary ====================
Name: ToolBuilder-Morphic-fbs.54
Author: fbs
Time: 3 April 2010, 4:00:41.107 pm
UUID: 8ee8e7e9-18ce-b748-9913-e0c10cdc5828
Ancestors: ToolBuilder-Morphic-cmm.53
This addresses sq 7486: a ListChooser now handles up/down arrows (so you can use a mouse's scrollwheel) while still passing other keyboard events to the search morph.
=============== Diff against ToolBuilder-Morphic-cmm.53 ===============
Item was changed:
----- Method: ListChooser>>keyStrokeFromList: (in category 'event handling') -----
keyStrokeFromList: event
+ "we don't want the list to be picking up events, excepting scroll events"
+
+ "Don't sent ctrl-up/ctrl-down events to the searchMorph: they're scrolling events."
+ (#(30 31) contains: [:each | each = event keyValue]) not
+ ifTrue:
+ ["window world primaryHand keyboardFocus: searchMorph."
+ searchMorph keyStroke: event.
+ "let the list know we've dealt with it"
+ ^true].
+ ^false.
+ !
- "we don't want the list to be picking up events"
- window world primaryHand keyboardFocus: searchMorph.
- searchMorph keyStroke: event.
- "let the list know we've dealt with it"
- ^ true!