from preamble:

"Change Set:		GenieCleanup
Date:			5 August 2003
Author:			Adam Spitz

Moves various Genie things into *genie categories. Also does a lot of
very ugly things using #respondsTo:. Don't accept this changeset into
the image; I'm just offering it as a starting point, so that someone who
understands Genie can do a proper cleanup."

EventHandler organization classifyAll: { #handlesGesture:.
#handlesGestureStart:. } under: '*genie'.
FlapTab organization classifyAll: { #addGenieMenuItems:hand:. } under:
'*genie-menu'.
HandMorph organization classifyAll: { #allowsGestureStart:target:.
#disableGenie. #disableGenieFocus:. #enableGenie.
#ensureGenieGestureProcessor. #gestureStart:target:.
#giveGenieChanceToEscape. #handleEventWithGenieEscaped:.
#isGenieEnabled. #prepareMouseFocusChangeFrom:to:. #resetGenie.
#switchGenieEnabled. #switchGenieFocus:. } under: '*genie'.
Morph organization classifyAll: { #blueButtonClickHand:shift:.
#gesture:. #gestureCode:. #gestureCommand:. #gestureKeystrokes:.
#gestureMouseEvent:. #gestureStrokes:. #handleGesture:.
#isGestureUndoable:. #isSpecialCharacterUndoable:. #modifyGesture:by:.
#undoGesture:. } under: '*genie-dispatching'.
Morph organization classifyAll: { #addGenieMenuItems:hand:.
#changeGestureDictionary. #hasNotExportedGestureDictionary.
#hasReferencedGestureDictionary. #inspectGestureDictionary.
#makeOwnCopyOfGestureDictionary. #makeOwnSubGestureDictionary. } under:
'*genie-menu'.
Morph organization classifyAll: { #allowsGestureEscape.
#allowsGesturePreprocessing. #allowsGestureStart:.
#defaultGestureDictionaryOrName. #disableGestures. #gestureDictionary.
#gestureDictionaryOrName. #gestureDictionaryOrName:. #gestureHandler.
#gestureStart:. #handlesGestureStart:. #onGestureSend:to:. } under:
'*genie-processing'.
MouseButtonEvent organization classifyAll: { #addMouseButtons:.
#toggleMouseButtons:. } under: '*genie'.
MouseEvent organization classifyAll: { #addMouseButtons:.
#toggleBlueButton. #toggleMouseButtons:. #toggleRedButton.
#toggleYellowButton. } under: '*genie'.
PasteUpMorph organization classifyAll: { #allowsGestureStart:. } under:
'*genie-processing'.
PluggableTextMorph organization classifyAll: { #handleGesture:. } under:
'*genie-dispatching'.
TextMorph organization classifyAll: { #handleGesture:. #lastGesture.
#lastGesture:. #setAlignment:. } under: '*genie-dispatching'.
TextMorph organization classifyAll: { #defaultGestureDictionaryOrName.
#gestureHandler. } under: '*genie-processing'.
UserInputEvent organization classifyAll: { #addButtons:.
#toggleButtons:. #toggleCommandKey. #toggleControlKey.
#toggleMacOptionKey. #toggleShift. } under: '*genie'.!
-------------- next part --------------
A non-text attachment was scrubbed...
Name: GenieCleanup.cs.gz
Type: application/octet-stream
Size: 5549 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20030930/ab0dc4a5/GenieCleanup.cs.obj