Simpler code:
http://paste.lisp.org/display/124831
evoke via the following in a workspace
a := (MyNewMorph new) openInWorld. a doit.
typing 'x' stops the loop
a eventBuffer do: [:each| each ifNotNil: [Transcript show: each;cr]].
Partial results. Note that the keyDown and KeyUp events have no valid data associated with them. At this point, I would say its definitely a VM issue (either that, or Mac OS X doesn't include the data, period, which seems odd).
#(1 11688796 358 202 0 0 0 1) #(2 11688821 2 2 0 0 0 1) #(2 11689589 2 1 0 0 0 1) #(2 11689589 100 0 0 100 0 1) #(2 11690028 2 2 0 0 0 1) #(2 11690381 2 1 0 0 0 1) #(2 11690381 100 0 0 100 0 1) #(2 11690604 2 2 0 0 0 1) #(2 11690907 2 1 0 0 0 1) #(2 11690907 100 0 0 100 0 1) #(2 11691092 2 2 0 0 0 1) #(2 11691284 2 1 0 0 0 1) #(2 11691284 100 0 0 100 0 1)
Lawson