Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1174.mcz==================== Summary ====================
Name: Morphic-mt.1174
Author: mt
Time: 10 June 2016, 10:05:39.530157 am
UUID: c42f6aaa-7a24-d54a-85a7-7a2216238672
Ancestors: Morphic-mt.1173
Removes unused filter-event inst-vars from HandMorph, which I did not intended to commit in the first place.
=============== Diff against Morphic-mt.1173 ===============
Item was changed:
Morph subclass: #HandMorph
+ instanceVariableNames: 'mouseFocus keyboardFocus eventListeners mouseListeners keyboardListeners eventCaptureFilters mouseCaptureFilters keyboardCaptureFilters mouseClickState mouseOverHandler lastMouseEvent targetOffset damageRecorder cacheCanvas cachedCanvasHasHoles temporaryCursor temporaryCursorOffset hardwareCursor hasChanged savedPatch userInitials lastEventBuffer genieGestureProcessor keyboardInterpreter'
- instanceVariableNames: 'mouseFocus keyboardFocus eventListeners mouseListeners keyboardListeners eventFilters mouseFilters keyboardFilters eventCaptureFilters mouseCaptureFilters keyboardCaptureFilters mouseClickState mouseOverHandler lastMouseEvent targetOffset damageRecorder cacheCanvas cachedCanvasHasHoles temporaryCursor temporaryCursorOffset hardwareCursor hasChanged savedPatch userInitials lastEventBuffer genieGestureProcessor keyboardInterpreter'
classVariableNames: 'CompositionWindowManager DoubleClickTime DragThreshold EventStats NewEventRules NormalCursor PasteBuffer ShowEvents'
poolDictionaries: 'EventSensorConstants'
category: 'Morphic-Kernel'!
!HandMorph commentStamp: '<historical>' prior: 0!
The cursor may be thought of as the HandMorph. The hand's submorphs hold anything being carried by dragging.
There is some minimal support for multiple hands in the same world.!
Item was changed:
+ (PackageInfo named: 'Morphic') postscript: 'HandMorph allInstancesDo: [:ea | ea initForEvents]. "Fixes the event handling that occurs in the same control flow after loading this code."
+
+ SystemWindow allSubInstancesDo: [:ea |
- (PackageInfo named: 'Morphic') postscript: 'SystemWindow allSubInstancesDo: [:ea |
ea initializeKeyboardShortcuts.
HandMorph allInstancesDo: [:hand | hand removeKeyboardListener: ea]].
PasteUpMorph allSubInstancesDo: [:ea |
ea initializeKeyboardShortcuts.
HandMorph allInstancesDo: [:hand | hand removeKeyboardListener: ea]].
DockingBarMorph allSubInstancesDo: [:ea |
HandMorph allInstancesDo: [:hand | hand removeKeyboardListener: ea]].'!