MyMorph>>handlesKeyboard: evt ^ true
MyMorph>>mouseEnter: evt evt hand keyboardFocus: self
MyMorph>>mouseLeave: evt evt hand releaseKeyboardFocus: self
keyDown: anEvent "Handle a key down event. ." anEvent keyCharacter = $a ifTrue: [self doSomething]. anEvent keyCharacter = $q ifTrue: [self doAnotherOne]