The Trunk: ToolBuilder-Morphic-nice.189.mcz

Nicolas Cellier uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-nice.189.mcz

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

Name: ToolBuilder-Morphic-nice.189
Author: nice
Time: 28 October 2016, 12:53:54.659497 am
UUID: fd2790d7-d59b-4fda-97e7-5c9c1dfcfc35
Ancestors: ToolBuilder-Morphic-topa.188

Quick hack to allow Arrow Up/Dw Page Up/Dw Home/End keys in list chooser.

=============== Diff against ToolBuilder-Morphic-topa.188 ===============

Item was changed:
  ----- Method: ListChooser>>filterEvent:for: (in category 'event handling') -----
  filterEvent: aKeyboardEvent for: aMorph
 
  | char |
  aKeyboardEvent isKeystroke ifFalse: [^ aKeyboardEvent].
  aKeyboardEvent anyModifierKeyPressed ifTrue: [^ aKeyboardEvent].
 
  char := aKeyboardEvent keyCharacter.
 
  char = Character backspace
  ifTrue: [self searchText: (self searchText asString ifNotEmpty: [:s | s allButLast]). ^ aKeyboardEvent ignore].
  char = Character delete
  ifTrue: [self searchText: (self searchText asString ifNotEmpty: [:s | s allButFirst]). ^ aKeyboardEvent ignore].
  (char = Character cr or: [char = Character enter])
  ifTrue: [self accept. aKeyboardEvent ignore].
  char = Character escape
  ifTrue: [self cancel. aKeyboardEvent ignore].
  (char asInteger between: 32 and: 126)
  ifTrue: [self searchText: self searchText asString, char asString. aKeyboardEvent ignore].
+ (char = Character arrowUp or: [char = Character arrowDown
+ or: [char = Character pageUp or: [char = Character pageDown
+ or: [char = Character home or: [char = Character end]]]]])
+ ifTrue: [listMorph keyStroke: aKeyboardEvent. ^aKeyboardEvent ignore].
 
  ^ aKeyboardEvent!