Andreas Raab uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-ar.55.mcz

==================== Summary ====================

Name: ToolBuilder-Morphic-ar.55
Author: ar
Time: 3 April 2010, 11:21:21.321 am
UUID: f457e745-c735-5540-a739-8b91f540b075
Ancestors: ToolBuilder-Morphic-MAD.54, ToolBuilder-Morphic-fbs.54

Merging ToolBuilder-Morphic-fbs.54:

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-MAD.54 ===============

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!