Cool. Remember you also need to change� peekEvent to this:

peekEvent
� � � �"Look ahead at the next event."
� � � �| nextEvent |
� � � �nextEvent := eventQueue peek.
� � � �^((nextEvent isNil not) and: [(nextEvent at: 1) ~= EventTypeMenu])
� � � � � � � �ifTrue: [self processEvent: nextEvent]


�