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!