The Trunk: Kernel-eem.678.mcz

Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.678.mcz

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

Name: Kernel-eem.678
Author: eem
Time: 18 April 2012, 10:29:16.009 am
UUID: a1560bd8-28a8-4167-a5ae-d3da0cd21c70
Ancestors: Kernel-eem.677

Provide a kbdTest for the EventSensor.

=============== Diff against Kernel-eem.677 ===============

Item was added:
+ ----- Method: EventSensor>>kbdTest (in category 'keyboard') -----
+ kbdTest    "Sensor kbdTest"
+ "This test routine will print the unmodified character, its keycode,
+ and the OR of all its modifier bits, until the character x is typed"
+ | char evt |
+ char := nil.
+ [char = $x] whileFalse:
+ [[(evt := self peekKeyboardEvent) isNil] whileTrue.
+ char := self characterForKeycode: evt third.
+ (String streamContents:
+ [:s |
+ s nextPut: char.
+ (3 to: 8) with: 'cpmurw' do:
+ [:i :c|
+ s space; nextPut: c; nextPut: $:; print: (evt at: i); nextPutAll: '     ']])
+ displayAt: 10@10]!