Packages June 2016

packages@lists.squeakfoundation.org

1 participants
85 discussions

The Trunk: MorphicTests-mt.32.mcz
by commits＠source.squeak.org 04 Jun '16

04 Jun '16

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.32.mcz ==================== Summary ==================== Name: MorphicTests-mt.32 Author: mt Time: 4 June 2016, 6:47:00.72143 pm UUID: 6e6d2a48-7a28-8244-9ade-c9db739c7b17 Ancestors: MorphicTests-mt.31 Adds tests for user input event handling and event filters. =============== Diff against MorphicTests-mt.31 =============== Item was changed: SystemOrganization addCategory: #'MorphicTests-Basic'! SystemOrganization addCategory: #'MorphicTests-Kernel'! SystemOrganization addCategory: #'MorphicTests-Layouts'! SystemOrganization addCategory: #'MorphicTests-Support'! SystemOrganization addCategory: #'MorphicTests-Text Support'! SystemOrganization addCategory: #'MorphicTests-ToolBuilder'! SystemOrganization addCategory: #'MorphicTests-Widgets'! SystemOrganization addCategory: #'MorphicTests-Worlds'! + SystemOrganization addCategory: #'MorphicTests-Events'! Item was added: + Morph subclass: #MorphForEventTests + instanceVariableNames: 'eventsDuringCapture eventsDuringBubble eventsRejected eventsFiltered handlesMouseDown' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicTests-Events'! Item was added: + ----- Method: MorphForEventTests>>eventsDuringBubble (in category 'accessing') ----- + eventsDuringBubble + ^ eventsDuringBubble ifNil: [eventsDuringBubble := OrderedCollection new]! Item was added: + ----- Method: MorphForEventTests>>eventsDuringCapture (in category 'accessing') ----- + eventsDuringCapture + ^ eventsDuringCapture ifNil: [eventsDuringCapture := OrderedCollection new]! Item was added: + ----- Method: MorphForEventTests>>eventsFiltered (in category 'accessing') ----- + eventsFiltered + ^ eventsFiltered ifNil: [eventsFiltered := OrderedCollection new]! Item was added: + ----- Method: MorphForEventTests>>eventsRejected (in category 'accessing') ----- + eventsRejected + ^ eventsRejected ifNil: [eventsRejected := OrderedCollection new]! Item was added: + ----- Method: MorphForEventTests>>filterEvent:for: (in category 'event filtering') ----- + filterEvent: anEvent for: aMorphOrNil + + self eventsFiltered add: anEvent copy -> aMorphOrNil. + ^ anEvent! Item was added: + ----- Method: MorphForEventTests>>handleEvent: (in category 'events-processing') ----- + handleEvent: anEvent + + self eventsDuringBubble add: anEvent copy. + ^ super handleEvent: anEvent! Item was added: + ----- Method: MorphForEventTests>>handlesKeyboard: (in category 'event handling') ----- + handlesKeyboard: evt + ^ true! Item was added: + ----- Method: MorphForEventTests>>handlesMouseDown: (in category 'event handling') ----- + handlesMouseDown: evt + ^ handlesMouseDown ifNil: [true]! Item was added: + ----- Method: MorphForEventTests>>handlesMouseMove: (in category 'event handling') ----- + handlesMouseMove: evt + ^ true! Item was added: + ----- Method: MorphForEventTests>>handlesMouseOver: (in category 'event handling') ----- + handlesMouseOver: evt + ^ true! Item was added: + ----- Method: MorphForEventTests>>handlesMouseOverDragging: (in category 'event handling') ----- + handlesMouseOverDragging: evt + ^ true! Item was added: + ----- Method: MorphForEventTests>>handlesMouseStillDown: (in category 'event handling') ----- + handlesMouseStillDown: evt + ^ true! Item was added: + ----- Method: MorphForEventTests>>noMouseDown (in category 'accessing') ----- + noMouseDown + + handlesMouseDown := false.! Item was added: + ----- Method: MorphForEventTests>>processEvent:using: (in category 'events-processing') ----- + processEvent: anEvent using: dispatcher + + self eventsDuringCapture add: anEvent copy. + ^ super processEvent: anEvent using: dispatcher! Item was added: + ----- Method: MorphForEventTests>>rejectsEvent: (in category 'events-processing') ----- + rejectsEvent: anEvent + + ^ (super rejectsEvent: anEvent) + ifTrue: [self eventsRejected add: anEvent copy. true] + ifFalse: [false]! Item was added: + UserInputEventTests subclass: #MorphicEventDispatcherTests + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicTests-Events'! Item was added: + ----- Method: MorphicEventDispatcherTests>>test01EventBubbling (in category 'tests') ----- + test01EventBubbling + + | m1 m2 m3 | + m1 := MorphForEventTests new. + m2 := MorphForEventTests new. + m3 := MorphForEventTests new. + + m1 addMorph: m2. + m2 addMorph: m3. + + m1 openInWorld: world. + + self assert: m3 eventsDuringBubble isEmpty. + self assert: m2 eventsDuringBubble isEmpty. + self assert: m1 eventsDuringBubble isEmpty. + + hand handleEvent: (self redMouseDownAt: m3 center). + + self assert: (m3 eventsDuringBubble anySatisfy: [:ea | ea isMouseDown]). + self assert: (m2 eventsDuringBubble anySatisfy: [:ea | ea isMouseDown]). + self assert: (m1 eventsDuringBubble anySatisfy: [:ea | ea isMouseDown]).! Item was added: + ----- Method: MorphicEventDispatcherTests>>test02EventCapturing (in category 'tests') ----- + test02EventCapturing + + | m1 m2 m3 | + m1 := MorphForEventTests new. + m2 := MorphForEventTests new. + m3 := MorphForEventTests new. + + m1 addMorph: m2. + m2 addMorph: m3. + + m1 openInWorld: world. + + self assert: m3 eventsDuringCapture isEmpty. + self assert: m2 eventsDuringCapture isEmpty. + self assert: m1 eventsDuringCapture isEmpty. + + hand handleEvent: (self redMouseDownAt: m3 center). + + self assert: (m3 eventsDuringCapture anySatisfy: [:ea | ea isMouseDown]). + self assert: (m2 eventsDuringCapture anySatisfy: [:ea | ea isMouseDown]). + self assert: (m1 eventsDuringCapture anySatisfy: [:ea | ea isMouseDown]).! Item was added: + ----- Method: MorphicEventDispatcherTests>>test03EventRejecting (in category 'tests') ----- + test03EventRejecting + + | m1 m2 m3 | + m1 := MorphForEventTests new. + m2 := MorphForEventTests new. + m3 := MorphForEventTests new. + + m1 addMorph: m2. + m2 addMorph: m3. + + m2 lock. "to reject events" + m1 openInWorld: world. + + self assert: m2 eventsRejected isEmpty. + + hand handleEvent: (self redMouseDownAt: m3 center). + + self assert: (m2 eventsRejected anySatisfy: [:ea | ea isMouseDown]). + self assert: m2 eventsDuringBubble isEmpty. + self assert: m2 eventsDuringCapture notEmpty. + + self assert: m1 eventsRejected isEmpty. + self assert: m1 eventsDuringBubble notEmpty. + self assert: m1 eventsDuringCapture notEmpty. + + self assert: m3 eventsRejected isEmpty. + self assert: m3 eventsDuringBubble isEmpty. + self assert: m3 eventsDuringCapture isEmpty.! Item was added: + ----- Method: MorphicEventDispatcherTests>>test04OverlappingSiblings (in category 'tests') ----- + test04OverlappingSiblings + "Only one of two overlapping siblings gets the event." + + | m1 m2 m3 | + m1 := MorphForEventTests new. + m2 := MorphForEventTests new. + m3 := MorphForEventTests new. + + m1 addMorph: m2. + m1 addMorph: m3. + + m2 bounds: m3 bounds. "full overlap" + + m1 openInWorld: world. + + hand handleEvent: (self redMouseDownAt: m3 center). + + self assert: (m3 eventsDuringBubble anySatisfy: [:ea | ea isMouseDown]). + self assert: (m2 eventsDuringBubble isEmpty). + + self assert: (m3 eventsDuringCapture anySatisfy: [:ea | ea isMouseDown]). + self assert: (m2 eventsDuringCapture isEmpty).! Item was added: + ----- Method: MorphicEventDispatcherTests>>test05FocusEventBubbling (in category 'tests') ----- + test05FocusEventBubbling + + | m1 m2 m3 | + m1 := MorphForEventTests new. + m2 := MorphForEventTests new. + m3 := MorphForEventTests new. + + m1 addMorph: m2. + m2 addMorph: m3. + + m1 openInWorld: world. + + self assert: m3 eventsDuringBubble isEmpty. + self assert: m2 eventsDuringBubble isEmpty. + self assert: m1 eventsDuringBubble isEmpty. + + hand newMouseFocus: m2. "Not m3!! Due to focus, m3 is not considered during capturing/bubbling phase." + hand handleEvent: (self redMouseDownAt: m3 center). + + self assert: m3 eventsDuringBubble isEmpty. + self assert: (m2 eventsDuringBubble anySatisfy: [:ea | ea isMouseDown]). + self assert: (m1 eventsDuringBubble anySatisfy: [:ea | ea isMouseDown]). + + hand newKeyboardFocus: m2. + hand handleEvent: (self keystroke: $x at: m3 center). + + self assert: m3 eventsDuringBubble isEmpty. + self assert: (m2 eventsDuringBubble anySatisfy: [:ea | ea isKeystroke]). + self assert: (m1 eventsDuringBubble anySatisfy: [:ea | ea isKeystroke]). + ! Item was added: + ----- Method: MorphicEventDispatcherTests>>test06FocusEventCapturing (in category 'tests') ----- + test06FocusEventCapturing + "There is no capturing phase for focus events." + + | m1 m2 m3 | + m1 := MorphForEventTests new. + m2 := MorphForEventTests new. + m3 := MorphForEventTests new. + + m1 addMorph: m2. + m2 addMorph: m3. + + m1 openInWorld: world. + + self assert: m3 eventsDuringCapture isEmpty. + self assert: m2 eventsDuringCapture isEmpty. + self assert: m1 eventsDuringCapture isEmpty. + + hand newMouseFocus: m2. "Not m3!! Due to focus, m3 is not considered during capturing/bubbling phase." + hand handleEvent: (self redMouseDownAt: m3 center). + + self assert: m3 eventsDuringCapture isEmpty. + self assert: m2 eventsDuringCapture isEmpty. + self assert: m1 eventsDuringCapture isEmpty. + + hand newKeyboardFocus: m2. + hand handleEvent: (self keystroke: $x at: m3 center). + + self assert: m3 eventsDuringCapture isEmpty. + self assert: m2 eventsDuringCapture isEmpty. + self assert: m1 eventsDuringCapture isEmpty.! Item was added: + ----- Method: MorphicEventDispatcherTests>>test07EventNoBubbling (in category 'tests') ----- + test07EventNoBubbling + "There is no bubbling if no morph handles the event." + + | m1 m2 m3 | + m1 := MorphForEventTests new noMouseDown. + m2 := MorphForEventTests new noMouseDown. + m3 := MorphForEventTests new noMouseDown. + + m1 addMorph: m2. + m2 addMorph: m3. + + m1 openInWorld: world. + + self assert: m3 eventsDuringBubble isEmpty. + self assert: m2 eventsDuringBubble isEmpty. + self assert: m1 eventsDuringBubble isEmpty. + + hand handleEvent: (self redMouseDownAt: m3 center). + + self assert: (m3 eventsDuringBubble noneSatisfy: [:ea | ea isMouseDown]). + self assert: (m2 eventsDuringBubble noneSatisfy: [:ea | ea isMouseDown]). + self assert: (m1 eventsDuringBubble noneSatisfy: [:ea | ea isMouseDown]).! Item was added: + UserInputEventTests subclass: #MorphicEventFilterTests + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicTests-Events'! Item was added: + ----- Method: MorphicEventFilterTests>>test01EventBubbleFilter (in category 'tests') ----- + test01EventBubbleFilter + + | m1 m2 m3 filter | + m1 := MorphForEventTests new. + m2 := MorphForEventTests new. + m3 := MorphForEventTests new. + + m1 addMorph: m2. + m2 addMorph: m3. + + m1 openInWorld: world. + + filter := MorphForEventTests new. + + m1 addEventBubbleFilter: filter. + m2 addEventBubbleFilter: filter. + m3 addEventBubbleFilter: filter. + + hand handleEvent: (self redMouseDownAt: m3 center). + + self assert: {m3.m2.m1} equals: (filter eventsFiltered select: [:ea | ea key isMouseDown] thenCollect: [:ea | ea value]) asArray.! Item was added: + ----- Method: MorphicEventFilterTests>>test02EventCaptureFilter (in category 'tests') ----- + test02EventCaptureFilter + + | m1 m2 m3 filter | + m1 := MorphForEventTests new. + m2 := MorphForEventTests new. + m3 := MorphForEventTests new. + + m1 addMorph: m2. + m2 addMorph: m3. + + m1 openInWorld: world. + + filter := MorphForEventTests new. + + m1 addEventCaptureFilter: filter. + m2 addEventCaptureFilter: filter. + m3 addEventCaptureFilter: filter. + + hand handleEvent: (self redMouseDownAt: m3 center). + + self assert: {m1.m2.m3} equals: (filter eventsFiltered select: [:ea | ea key isMouseDown] thenCollect: [:ea | ea value]) asArray.! Item was added: + ----- Method: MorphicEventFilterTests>>test03FocusEventBubbleFilter (in category 'tests') ----- + test03FocusEventBubbleFilter + + | m1 m2 m3 filter | + m1 := MorphForEventTests new. + m2 := MorphForEventTests new. + m3 := MorphForEventTests new. + + m1 addMorph: m2. + m2 addMorph: m3. + + m1 openInWorld: world. + + filter := MorphForEventTests new. + + m1 addEventBubbleFilter: filter. + m2 addEventBubbleFilter: filter. + m3 addEventBubbleFilter: filter. + + hand newMouseFocus: m2. + hand handleEvent: (self redMouseDownAt: m3 center). + + self assert: {m2.m1} equals: (filter eventsFiltered select: [:ea | ea key isMouseDown] thenCollect: [:ea | ea value]) asArray.! Item was added: + ----- Method: MorphicEventFilterTests>>test04FocusEventCaptureFilter (in category 'tests') ----- + test04FocusEventCaptureFilter + + | m1 m2 m3 filter | + m1 := MorphForEventTests new. + m2 := MorphForEventTests new. + m3 := MorphForEventTests new. + + m1 addMorph: m2. + m2 addMorph: m3. + + m1 openInWorld: world. + + filter := MorphForEventTests new. + + m1 addEventCaptureFilter: filter. + m2 addEventCaptureFilter: filter. + m3 addEventCaptureFilter: filter. + + hand newMouseFocus: m2. + hand handleEvent: (self redMouseDownAt: m3 center). + + self assert: {m1.m2} equals: (filter eventsFiltered select: [:ea | ea key isMouseDown] thenCollect: [:ea | ea value]) asArray.! Item was added: + ----- Method: MorphicEventFilterTests>>test05IgnoreEvent (in category 'tests') ----- + test05IgnoreEvent + + | m1 m2 m3 filter | + m1 := MorphForEventTests new. + m2 := MorphForEventTests new. + m3 := MorphForEventTests new. + + m1 addMorph: m2. + m2 addMorph: m3. + + m1 openInWorld: world. + + filter := PluggableEventFilter on: [:event | event ignore]. + + m1 addEventCaptureFilter: filter. + + hand handleEvent: (self redMouseDownAt: m3 center). + + self assert: m1 eventsDuringBubble isEmpty. + self assert: m2 eventsDuringBubble isEmpty. + self assert: m3 eventsDuringBubble isEmpty. + + self assert: m1 eventsDuringCapture notEmpty. + self assert: m2 eventsDuringCapture isEmpty. + self assert: m3 eventsDuringCapture isEmpty.! Item was added: + ----- Method: MorphicEventFilterTests>>test06IgnoreFocusEvent (in category 'tests') ----- + test06IgnoreFocusEvent + + | m1 m2 m3 filter | + m1 := MorphForEventTests new. + m2 := MorphForEventTests new. + m3 := MorphForEventTests new. + + m1 addMorph: m2. + m2 addMorph: m3. + + m1 openInWorld: world. + + filter := PluggableEventFilter on: [:event | event ignore]. + + m1 addEventCaptureFilter: filter. + + hand newMouseFocus: m3. + hand handleEvent: (self redMouseDownAt: m3 center). + + self assert: m1 eventsDuringBubble isEmpty. + self assert: m2 eventsDuringBubble isEmpty. + self assert: m3 eventsDuringBubble isEmpty. + + self assert: m1 eventsDuringCapture isEmpty. + self assert: m2 eventsDuringCapture isEmpty. + self assert: m3 eventsDuringCapture isEmpty.! Item was added: + ----- Method: MorphicEventFilterTests>>test07TransformEvent (in category 'tests') ----- + test07TransformEvent + + | m1 m2 m3 filter | + m1 := MorphForEventTests new. + m2 := MorphForEventTests new. + m3 := MorphForEventTests new. + + m1 addMorph: m2. + m2 addMorph: m3. + + m1 openInWorld: world. + + filter := PluggableEventFilter on: [:event | self keystroke: $x at: m3 center]. + m2 addEventCaptureFilter: filter. + + hand handleEvent: (self redMouseDownAt: m3 center). + + self assert: (m1 eventsDuringCapture anySatisfy: [:evt | evt isMouseDown]). + self assert: (m2 eventsDuringCapture anySatisfy: [:evt | evt isMouseDown]). + self assert: (m3 eventsDuringCapture anySatisfy: [:evt | evt isKeystroke]). + + self assert: (m3 eventsDuringBubble anySatisfy: [:evt | evt isKeystroke]). + self assert: (m2 eventsDuringBubble anySatisfy: [:evt | evt isKeystroke]). + self assert: (m1 eventsDuringBubble anySatisfy: [:evt | evt isKeystroke]). + ! Item was added: + ----- Method: MorphicEventFilterTests>>test08TransformEventAgain (in category 'tests') ----- + test08TransformEventAgain + + | m1 m2 m3 filter | + m1 := MorphForEventTests new. + m2 := MorphForEventTests new. + m3 := MorphForEventTests new. + + m1 addMorph: m2. + m2 addMorph: m3. + + m1 openInWorld: world. + + filter := PluggableEventFilter on: [:event | self keystroke: $x at: m3 center]. + m2 addEventBubbleFilter: filter. + + hand handleEvent: (self redMouseDownAt: m3 center). + + self assert: (m1 eventsDuringCapture anySatisfy: [:evt | evt isMouseDown]). + self assert: (m2 eventsDuringCapture anySatisfy: [:evt | evt isMouseDown]). + self assert: (m3 eventsDuringCapture anySatisfy: [:evt | evt isMouseDown]). + + self assert: (m3 eventsDuringBubble anySatisfy: [:evt | evt isMouseDown]). + self assert: (m2 eventsDuringBubble anySatisfy: [:evt | evt isMouseDown]). + self assert: (m1 eventsDuringBubble anySatisfy: [:evt | evt isKeystroke]). + ! Item was added: + ----- Method: MorphicEventFilterTests>>test09KeyboardShortcut (in category 'tests') ----- + test09KeyboardShortcut + + | m1 m2 m3 filter hit | + m1 := MorphForEventTests new. + m2 := MorphForEventTests new. + m3 := MorphForEventTests new. + + m1 addMorph: m2. + m2 addMorph: m3. + + m1 openInWorld: world. + + filter := PluggableEventFilter on: [:event | + hit := false. + (event isKeystroke and: [event keyCharacter = $x]) ifTrue: [ + hit := true. + event ignore]. + event]. + + m1 addKeyboardCaptureFilter: filter. + + hand handleEvent: (self keystroke: $x at: m3 center). + + self assert: hit. + + self assert: (m1 eventsDuringCapture anySatisfy: [:evt | evt isKeystroke]). + self assert: (m2 eventsDuringCapture noneSatisfy: [:evt | evt isKeystroke]). + self assert: (m3 eventsDuringCapture noneSatisfy: [:evt | evt isKeystroke]). + + self assert: (m3 eventsDuringBubble noneSatisfy: [:evt | evt isKeystroke]). + self assert: (m2 eventsDuringBubble noneSatisfy: [:evt | evt isKeystroke]). + self assert: (m1 eventsDuringBubble noneSatisfy: [:evt | evt isKeystroke]). + + m1 eventsDuringCapture removeAll. + hand handleEvent: (self keystroke: $o at: m3 center). + + self deny: hit. + + self assert: (m1 eventsDuringCapture anySatisfy: [:evt | evt isKeystroke]). + self assert: (m2 eventsDuringCapture anySatisfy: [:evt | evt isKeystroke]). + self assert: (m3 eventsDuringCapture anySatisfy: [:evt | evt isKeystroke]). + + self assert: (m3 eventsDuringBubble anySatisfy: [:evt | evt isKeystroke]). + self assert: (m2 eventsDuringBubble anySatisfy: [:evt | evt isKeystroke]). + self assert: (m1 eventsDuringBubble anySatisfy: [:evt | evt isKeystroke]). + + + + ! Item was added: + UserInputEventTests subclass: #MorphicEventTests + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicTests-Events'! Item was added: + ----- Method: MorphicEventTests>>test01WantsKeyboardFocus (in category 'tests') ----- + test01WantsKeyboardFocus + + | ptm | + ptm := PluggableTextMorph new. + ptm setText: 'test01WantsKeyboardFocus'. + ptm openInWorld: world. + + self deny: (ptm hasKeyboardFocus: hand). + self deny: (ptm textMorph hasKeyboardFocus: hand). + + self assert: ptm wantsKeyboardFocus. + self assert: ptm keyboardFocusDelegate == ptm textMorph. + + hand handleEvent: (self redMouseDownAt: ptm center). + self assert: (ptm hasKeyboardFocus: hand). + self assert: (ptm textMorph hasKeyboardFocus: hand). + ! Item was added: + ----- Method: MorphicEventTests>>test02MouserOver (in category 'tests') ----- + test02MouserOver + + | m1 m2 | + m1 := MorphForEventTests new. + m2 := MorphForEventTests new. + + m1 extent: 20@20; topLeft: 0@0. + m2 extent: 20@20; topLeft: 40@0. + + m1 openInWorld: world. + m2 openInWorld: world. + + hand handleEvent: (self redMouseDownAt: m1 center). + hand handleEvent: (self redMouseUpAt: m1 center). + hand handleEvent: (self redMouseDownAt: m2 center). + hand handleEvent: (self redMouseUpAt: m2 center). + + self + checkEventOrder: #(mouseMove mouseEnter mouseDown mouseUp mouseLeave) + forEvents: m1 eventsDuringBubble + ignoreMouseOver: true. + + self + checkEventOrder: #(mouseMove mouseEnter mouseDown mouseUp) + forEvents: m2 eventsDuringBubble + ignoreMouseOver: true. + ! Item was added: + TestCase subclass: #UserInputEventTests + instanceVariableNames: 'hand world' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicTests-Events'! Item was added: + ----- Method: UserInputEventTests>>checkEventOrder:forEvents:ignoreMouseOver: (in category 'support') ----- + checkEventOrder: someEventTypes forEvents: someEvents ignoreMouseOver: ignoreMouseOver + "Use this to verify the order of events" + + ((someEvents + select: [:ea | ea isMouseOver not or: [ignoreMouseOver not]]) + collect: [:ea | ea type]) + with: someEventTypes + do: [:t1 :t2 | self assert: t2 equals: t1]. + ! Item was added: + ----- Method: UserInputEventTests>>keystroke:at: (in category 'support') ----- + keystroke: char at: point + + ^ KeyboardEvent new + setType: #keystroke + buttons: 0 "no modifiers" + position: point + keyValue: char asciiValue + hand: hand + stamp: Time millisecondClockValue! Item was added: + ----- Method: UserInputEventTests>>redMouseDownAt: (in category 'support') ----- + redMouseDownAt: point + + ^ MouseButtonEvent new + setType: #mouseDown + position: point + which: 2r000 "no change" + buttons: 2r100 "red/left pressed" + hand: hand + stamp: Time millisecondClockValue! Item was added: + ----- Method: UserInputEventTests>>redMouseUpAt: (in category 'support') ----- + redMouseUpAt: point + + ^ MouseButtonEvent new + setType: #mouseUp + position: point + which: 2r100 "red/left changed" + buttons: 2r000 "nothing pressed" + hand: hand + stamp: Time millisecondClockValue! Item was added: + ----- Method: UserInputEventTests>>setUp (in category 'running') ----- + setUp + + super setUp. + + world := (PasteUpMorph newWorldForProject: nil) + extent: 300@200; + viewBox: (0@0 extent: 300@200); + yourself. + + (world instVarNamed: #worldState) + instVarNamed: #canvas + put: (Form extent: 300@200 depth: 32) getCanvas. + + hand := world firstHand.!

1 0

The Trunk: 51Deprecated-mt.31.mcz
by commits＠source.squeak.org 04 Jun '16

04 Jun '16

Marcel Taeumel uploaded a new version of 51Deprecated to project The Trunk: http://source.squeak.org/trunk/51Deprecated-mt.31.mcz ==================== Summary ==================== Name: 51Deprecated-mt.31 Author: mt Time: 4 June 2016, 6:46:10.09743 pm UUID: 5457e75b-d30d-a843-92b7-e1c3fce84683 Ancestors: 51Deprecated-ul.30 Deprecates old OB method. =============== Diff against 51Deprecated-ul.30 =============== Item was added: + ----- Method: KeyboardEvent>>setType:buttons:position:keyValue:charCode:hand:stamp: (in category '*51Deprecated') ----- + setType: aSymbol buttons: anInteger position: pos keyValue: aValue charCode: ignoredUsedInOBTesting hand: aHand stamp: stamp + self setType: aSymbol buttons: anInteger position: pos keyValue: aValue hand: aHand stamp: stamp!

1 0

The Trunk: Morphic-mt.1162.mcz
by commits＠source.squeak.org 04 Jun '16

04 Jun '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1162.mcz ==================== Summary ==================== Name: Morphic-mt.1162 Author: mt Time: 4 June 2016, 6:42:47.44143 pm UUID: 8a06cc2e-c607-3341-96d2-06d6329d41ac Ancestors: Morphic-mt.1161 Quick fix for update issues during last commit. =============== Diff against Morphic-mt.1161 =============== Item was changed: ----- Method: MouseOverHandler>>processMouseOver: (in category 'event handling') ----- processMouseOver: anEvent "Re-establish the z-order for all morphs wrt the given event" | hand localEvt focus evt | + anEvent ifNil: [^ self]. hand := anEvent hand. leftMorphs := mouseOverMorphs asIdentitySet. "Assume some coherence for the number of objects in over list" overMorphs := WriteStream on: (Array new: leftMorphs size). enteredMorphs := WriteStream on: #(). "Now go looking for eventual mouse overs" hand handleEvent: anEvent asMouseOver. "Get out early if there's no change" (leftMorphs isEmpty and: [ enteredMorphs position = 0 ]) ifTrue: [ ^self initializeTrackedMorphs ]. focus := hand mouseFocus. "Send #mouseLeave as appropriate" evt := anEvent asMouseLeave. "Keep the order of the left morphs by recreating it from the mouseOverMorphs" leftMorphs size > 1 ifTrue: [leftMorphs := mouseOverMorphs select: [:m | leftMorphs includes: m]]. leftMorphs do: [ :m | (m == focus or: [m hasOwner: focus]) ifFalse: [ overMorphs nextPut: m ] ifTrue: [ localEvt := evt transformedBy: (m transformedFrom: hand). m handleEvent: localEvt ] ]. enteredMorphs ifNil: [ "inform: was called in handleEvent:" ^self initializeTrackedMorphs ]. "Send #mouseEnter as appropriate" evt := anEvent asMouseEnter. enteredMorphs contents reverseDo: [ :m | (m == focus or: [m hasOwner: focus]) ifTrue: [ localEvt := evt transformedBy: (m transformedFrom: hand). m handleEvent: localEvt ] ]. "And remember the over list" overMorphs ifNotNil: [ mouseOverMorphs := overMorphs contents ]. self initializeTrackedMorphs!

1 0

The Trunk: Morphic-mt.1161.mcz
by commits＠source.squeak.org 04 Jun '16

04 Jun '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1161.mcz ==================== Summary ==================== Name: Morphic-mt.1161 Author: mt Time: 4 June 2016, 6:38:28.65943 pm UUID: aa80b684-784c-7549-bb0c-a1c9026a4797 Ancestors: Morphic-mt.1160 Adds event filters. Includes refactorings for MorphicEventDispatcher and HandMorph >> #handleEvent:. Also fixes event bubbling for focus events. Sorry for this agglomeration of changes. See Morph >> #eventFilterDocumentation. =============== Diff against Morphic-mt.1160 =============== Item was changed: ----- Method: DockingBarMorph>>handleFocusEvent: (in category 'events-processing') ----- handleFocusEvent: evt "Handle focus events. Valid menu transitions are determined based on the menu currently holding the focus after the mouse went down on one of its children." + | result filteredEvent | + (evt isMouse and:[ evt isMouseUp ]) ifTrue:[^ evt]. - (evt isMouse and:[ evt isMouseUp ]) ifTrue:[^ self]. + result := self processEvent: evt. + filteredEvent := result == #rejected ifTrue: [evt] ifFalse: [result]. - self processEvent: evt. "Need to handle keyboard input if we have the focus." + filteredEvent isKeyboard ifTrue: [^ super handleFocusEvent: filteredEvent]. - evt isKeyboard ifTrue: [^ self handleEvent: evt]. "We need to handle button clicks outside and transitions to local popUps so throw away everything else" + (filteredEvent isMouseOver or:[filteredEvent isMouse not]) ifTrue:[^filteredEvent]. - (evt isMouseOver or:[evt isMouse not]) ifTrue:[^self]. "What remains are mouse buttons and moves" + filteredEvent isMove ifFalse:[^super handleFocusEvent: filteredEvent]. "handle clicks outside by regular means" - evt isMove ifFalse:[^self handleEvent: evt]. "handle clicks outside by regular means" "Now it's getting tricky. On #mouseMove we might transfer control to *either* the currently active submenu or the pop up owner, if any. Since the active sub menu is always displayed upfront check it first." + selectedItem ifNotNil:[(selectedItem activateSubmenu: filteredEvent) ifTrue:[^filteredEvent]]. - selectedItem ifNotNil:[(selectedItem activateSubmenu: evt) ifTrue:[^self]]. ! Item was added: + ----- Method: DropEvent>>translateTo: (in category 'transforming') ----- + translateTo: point + + position := point.! Item was changed: Morph subclass: #HandMorph + 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' - instanceVariableNames: 'mouseFocus keyboardFocus eventListeners mouseListeners keyboardListeners 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: + ----- Method: HandMorph>>addEventListener: (in category 'events-listening') ----- - ----- Method: HandMorph>>addEventListener: (in category 'listeners') ----- addEventListener: anObject "Make anObject a listener for all events. All events will be reported to the object." self eventListeners: (self addListener: anObject to: self eventListeners)! Item was changed: + ----- Method: HandMorph>>addKeyboardListener: (in category 'events-listening') ----- - ----- Method: HandMorph>>addKeyboardListener: (in category 'listeners') ----- addKeyboardListener: anObject "Make anObject a listener for keyboard events. All keyboard events will be reported to the object." self keyboardListeners: (self addListener: anObject to: self keyboardListeners)! Item was changed: + ----- Method: HandMorph>>addListener:to: (in category 'events-listening') ----- - ----- Method: HandMorph>>addListener:to: (in category 'listeners') ----- addListener: anObject to: aListenerGroup "Add anObject to the given listener group. Return the new group." | listeners | listeners := aListenerGroup. (listeners notNil and:[listeners includes: anObject]) ifFalse:[ listeners ifNil:[listeners := WeakArray with: anObject] ifNotNil:[listeners := listeners copyWith: anObject]]. listeners := listeners copyWithout: nil. "obsolete entries" ^listeners! Item was changed: + ----- Method: HandMorph>>addMouseListener: (in category 'events-listening') ----- - ----- Method: HandMorph>>addMouseListener: (in category 'listeners') ----- addMouseListener: anObject "Make anObject a listener for mouse events. All mouse events will be reported to the object." self mouseListeners: (self addListener: anObject to: self mouseListeners)! Item was changed: ----- Method: HandMorph>>dropMorph:event: (in category 'grabbing/dropping') ----- dropMorph: aMorph event: anEvent "Drop the given morph which was carried by the hand" | event dropped | (anEvent isMouseUp and:[aMorph shouldDropOnMouseUp not]) ifTrue:[^self]. "Note: For robustness in drag and drop handling we remove the morph BEFORE we drop him, but we keep his owner set to the hand. This prevents system lockups when there is a problem in drop handling (for example if there's an error in #wantsToBeDroppedInto:). THIS TECHNIQUE IS NOT RECOMMENDED FOR CASUAL USE." self privateRemove: aMorph. aMorph privateOwner: self. dropped := aMorph. (dropped hasProperty: #addedFlexAtGrab) ifTrue:[dropped := aMorph removeFlexShell]. event := DropEvent new setPosition: self position contents: dropped hand: self. [ "In case of an error, ensure that the morph-to-be-dropped will be disposed. Otherwise it may confuse garbage handler. See the sends of #privateRemove: and #privateOwner: above." + event := self sendEvent: event focus: nil. "event filters can apply and filtered events will be returned" - self sendEvent: event focus: nil. event wasHandled ifFalse: [aMorph rejectDropMorphEvent: event] ] ensure: [ aMorph owner == self ifTrue: [aMorph delete] ]. self mouseOverHandler processMouseOver: anEvent.! Item was added: + ----- Method: HandMorph>>eventBubbleFilters (in category 'events-filtering-bubbling') ----- + eventBubbleFilters + Error signal: 'Hand morphs do only have capture filters. Install top-most bubble filters in the world.'! Item was added: + ----- Method: HandMorph>>eventCaptureFilters (in category 'events-filtering-capturing') ----- + eventCaptureFilters + ^ eventCaptureFilters! Item was added: + ----- Method: HandMorph>>eventCaptureFilters: (in category 'events-filtering-capturing') ----- + eventCaptureFilters: anArrayOrNil + eventCaptureFilters := anArrayOrNil! Item was changed: + ----- Method: HandMorph>>eventListeners (in category 'events-listening') ----- - ----- Method: HandMorph>>eventListeners (in category 'listeners') ----- eventListeners ^eventListeners! Item was changed: + ----- Method: HandMorph>>eventListeners: (in category 'events-listening') ----- - ----- Method: HandMorph>>eventListeners: (in category 'listeners') ----- eventListeners: anArrayOrNil eventListeners := anArrayOrNil! Item was changed: ----- Method: HandMorph>>handleEvent: (in category 'events-processing') ----- + handleEvent: unfilteredEvent - handleEvent: anEvent - | evt ofs | - owner ifNil:[^self]. - evt := anEvent. + | filteredEvent | + owner ifNil: [^ unfilteredEvent "not necessary but good style -- see Morph >> #handleEvent:"]. + + self logEvent: unfilteredEvent. - EventStats ifNil:[EventStats := IdentityDictionary new]. - EventStats at: #count put: (EventStats at: #count ifAbsent:[0]) + 1. - EventStats at: evt type put: (EventStats at: evt type ifAbsent:[0]) + 1. + "Mouse-over events occur really, really, really often. They are kind of the heart beat of the Morphic UI process." + unfilteredEvent isMouseOver ifTrue: [^ self sendMouseEvent: unfilteredEvent]. - evt isMouseOver ifTrue:[^self sendMouseEvent: evt]. + self showEvent: unfilteredEvent. + self sendListenEvents: unfilteredEvent. + + filteredEvent := self sendFilterEventCapture: unfilteredEvent for: nil. + "filteredEvent := unfilteredEvent" " <-- use this to disable global capture filters" + + filteredEvent wasIgnored ifTrue: [ + self mouseOverHandler processMouseOver: lastMouseEvent. + ^ filteredEvent]. + + filteredEvent isWindowEvent ifTrue: [ + self sendEvent: filteredEvent focus: nil. + self mouseOverHandler processMouseOver: lastMouseEvent. + ^ filteredEvent]. - ShowEvents == true ifTrue:[ - Display fill: (0@0 extent: 300@120) rule: Form over fillColor: Color white. - ofs := (owner hands indexOf: self) - 1 * 60. - evt isKeyboard - ifTrue: [ 'key: ', evt printString displayAt: (0@ofs) + (0@30) ] - ifFalse: [ 'evt: ', evt printString displayAt: (0@ofs) + (0@0) ]. - 'kf: ', self keyboardFocus printString displayAt: (0@ofs)+(0@45). - ]. - "Notify listeners" - self sendListenEvent: evt to: self eventListeners. + filteredEvent isKeyboard ifTrue:[ + self sendKeyboardEvent: filteredEvent. + self mouseOverHandler processMouseOver: lastMouseEvent. + ^ filteredEvent]. + + filteredEvent isDropEvent ifTrue:[ + self sendEvent: filteredEvent focus: nil. + self mouseOverHandler processMouseOver: lastMouseEvent. + ^ filteredEvent]. - evt isWindowEvent ifTrue: [ - self sendEvent: evt focus: nil. - ^self mouseOverHandler processMouseOver: lastMouseEvent]. + filteredEvent isMouse ifFalse: [ + self mouseOverHandler processMouseOver: lastMouseEvent. + ^ filteredEvent]. - evt isKeyboard ifTrue:[ - self sendListenEvent: evt to: self keyboardListeners. - self sendKeyboardEvent: evt. - ^self mouseOverHandler processMouseOver: lastMouseEvent]. + " ********** MOUSE EVENT *********** " - evt isDropEvent ifTrue:[ - self sendEvent: evt focus: nil. - ^self mouseOverHandler processMouseOver: lastMouseEvent]. + lastMouseEvent := filteredEvent. - evt isMouse ifTrue:[ - self sendListenEvent: evt to: self mouseListeners. - lastMouseEvent := evt]. "Check for pending drag or double click operations." mouseClickState ifNotNil:[ + (mouseClickState handleEvent: filteredEvent from: self) ifFalse:[ - (mouseClickState handleEvent: evt from: self) ifFalse:[ "Possibly dispatched #click: or something and will not re-establish otherwise" + self mouseOverHandler processMouseOver: lastMouseEvent. + ^ filteredEvent]]. - ^self mouseOverHandler processMouseOver: lastMouseEvent]]. + filteredEvent isMove ifTrue:[ + self position: filteredEvent position. + self sendMouseEvent: filteredEvent. + self mouseOverHandler processMouseOver: lastMouseEvent. + ^ filteredEvent]. + + "Issue a synthetic move event if we're not at the position of the event" + filteredEvent position = self position + ifFalse: [self moveToEvent: filteredEvent]. + + "Drop submorphs on button events" + self hasSubmorphs + ifTrue:[self dropMorphs: filteredEvent] + ifFalse:[self sendMouseEvent: filteredEvent]. + - evt isMove ifTrue:[ - self position: evt position. - self sendMouseEvent: evt. - ] ifFalse:[ - "Issue a synthetic move event if we're not at the position of the event" - (evt position = self position) ifFalse:[self moveToEvent: evt]. - "Drop submorphs on button events" - (self hasSubmorphs) - ifTrue:[self dropMorphs: evt] - ifFalse:[self sendMouseEvent: evt]. - ]. - ShowEvents == true ifTrue:['mf: ', self mouseFocus printString displayAt: (0@ofs) + (0@15)]. self mouseOverHandler processMouseOver: lastMouseEvent. + ^ filteredEvent "not necessary but good style -- see Morph >> #handleEvent:" ! - "self handleDragOutside: anEvent." - ! Item was added: + ----- Method: HandMorph>>keyboardBubbleFilters (in category 'events-filtering-bubbling') ----- + keyboardBubbleFilters + Error signal: 'Hand morphs do only have capture filters. Install top-most bubble filters in the world.'! Item was added: + ----- Method: HandMorph>>keyboardCaptureFilters (in category 'events-filtering-capturing') ----- + keyboardCaptureFilters + ^ keyboardCaptureFilters! Item was added: + ----- Method: HandMorph>>keyboardCaptureFilters: (in category 'events-filtering-capturing') ----- + keyboardCaptureFilters: anArrayOrNil + keyboardCaptureFilters := anArrayOrNil! Item was changed: + ----- Method: HandMorph>>keyboardListeners (in category 'events-listening') ----- - ----- Method: HandMorph>>keyboardListeners (in category 'listeners') ----- keyboardListeners ^keyboardListeners! Item was changed: + ----- Method: HandMorph>>keyboardListeners: (in category 'events-listening') ----- - ----- Method: HandMorph>>keyboardListeners: (in category 'listeners') ----- keyboardListeners: anArrayOrNil keyboardListeners := anArrayOrNil! Item was added: + ----- Method: HandMorph>>logEvent: (in category 'events-debugging') ----- + logEvent: anEvent + "Update statistics for processed events." + + EventStats ifNil:[EventStats := IdentityDictionary new]. + EventStats at: #count put: (EventStats at: #count ifAbsent:[0]) + 1. + EventStats at: anEvent type put: (EventStats at: anEvent type ifAbsent:[0]) + 1.! Item was added: + ----- Method: HandMorph>>mouseBubbleFilters (in category 'events-filtering-bubbling') ----- + mouseBubbleFilters + Error signal: 'Hand morphs do only have capture filters. Install top-most bubble filters in the world.'! Item was added: + ----- Method: HandMorph>>mouseCaptureFilters (in category 'events-filtering-capturing') ----- + mouseCaptureFilters + ^ mouseCaptureFilters! Item was added: + ----- Method: HandMorph>>mouseCaptureFilters: (in category 'events-filtering-capturing') ----- + mouseCaptureFilters: anArrayOrNil + mouseCaptureFilters := anArrayOrNil! Item was changed: + ----- Method: HandMorph>>mouseListeners (in category 'events-listening') ----- - ----- Method: HandMorph>>mouseListeners (in category 'listeners') ----- mouseListeners ^mouseListeners! Item was changed: + ----- Method: HandMorph>>mouseListeners: (in category 'events-listening') ----- - ----- Method: HandMorph>>mouseListeners: (in category 'listeners') ----- mouseListeners: anArrayOrNil mouseListeners := anArrayOrNil! Item was changed: + ----- Method: HandMorph>>removeEventListener: (in category 'events-listening') ----- - ----- Method: HandMorph>>removeEventListener: (in category 'listeners') ----- removeEventListener: anObject "Remove anObject from the current event listeners." self eventListeners: (self removeListener: anObject from: self eventListeners).! Item was changed: + ----- Method: HandMorph>>removeKeyboardListener: (in category 'events-listening') ----- - ----- Method: HandMorph>>removeKeyboardListener: (in category 'listeners') ----- removeKeyboardListener: anObject "Remove anObject from the current keyboard listeners." self keyboardListeners: (self removeListener: anObject from: self keyboardListeners).! Item was changed: + ----- Method: HandMorph>>removeListener:from: (in category 'events-listening') ----- - ----- Method: HandMorph>>removeListener:from: (in category 'listeners') ----- removeListener: anObject from: aListenerGroup "Remove anObject from the given listener group. Return the new group." | listeners | aListenerGroup ifNil: [^nil]. listeners := aListenerGroup. listeners := listeners copyWithout: anObject. listeners := listeners copyWithout: nil. "obsolete entries" listeners isEmpty ifTrue: [listeners := nil]. ^listeners! Item was changed: + ----- Method: HandMorph>>removeMouseListener: (in category 'events-listening') ----- - ----- Method: HandMorph>>removeMouseListener: (in category 'listeners') ----- removeMouseListener: anObject "Remove anObject from the current mouse listeners." self mouseListeners: (self removeListener: anObject from: self mouseListeners).! Item was changed: ----- Method: HandMorph>>sendEvent:focus:clear: (in category 'private events') ----- sendEvent: anEvent focus: focusHolder clear: aBlock "Send the event to the morph currently holding the focus, or if none to the owner of the hand." | result | focusHolder ifNotNil:[^self sendFocusEvent: anEvent to: focusHolder clear: aBlock]. ActiveEvent := anEvent. + [result := owner processEvent: anEvent] + ensure: [ActiveEvent := nil]. + ^ result == #rejected ifTrue: [anEvent] ifFalse: [result "filtered event"]! - result := owner processEvent: anEvent. - ActiveEvent := nil. - ^result! Item was added: + ----- Method: HandMorph>>sendFilterEventCaptureAgain:for: (in category 'events-processing') ----- + sendFilterEventCaptureAgain: anEvent for: anObjectOrNil + "Apply keyboard-specific and mouse-specific capturing filters. If a filter changes the event type, filter again. WARNING: This is a powerful mechanism. Filters can create endless loops, which are difficult to debug. + + Overwritten to provide keyboard and mouse focus holders to event filters. Note that hence the event target in such global filters can be nil." + + | filteredEvent | + filteredEvent := anEvent. + + filteredEvent isKeyboard ifTrue: [ + filteredEvent := self sendFilterEvent: filteredEvent for: self keyboardFocus to: self keyboardCaptureFilters. + filteredEvent isKeyboard not ifTrue: [^ self sendFilterEventCaptureAgain: filteredEvent for: anObjectOrNil]]. + + filteredEvent isMouse ifTrue: [ + filteredEvent := self sendFilterEvent: filteredEvent for: self mouseFocus to: self mouseCaptureFilters. + filteredEvent isMouse not ifTrue: [^ self sendFilterEventCaptureAgain: filteredEvent for: anObjectOrNil]]. + + ^ filteredEvent! Item was changed: ----- Method: HandMorph>>sendFocusEvent:to:clear: (in category 'private events') ----- sendFocusEvent: anEvent to: focusHolder clear: aBlock "Send the event to the morph currently holding the focus" | result w | + w := focusHolder world ifNil:[aBlock value. ^ anEvent]. - w := focusHolder world ifNil:[^ aBlock value]. w becomeActiveDuring:[ ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self)). ]. + ^result == #rejected ifTrue: [anEvent] ifFalse: [result "filtered event"]! - ^result! Item was added: + ----- Method: HandMorph>>sendListenEvents: (in category 'private events') ----- + sendListenEvents: anEvent + "Send the given event to all registered event listeners." + + self sendListenEvent: anEvent to: self eventListeners. + + anEvent isKeyboard + ifTrue: [self sendListenEvent: anEvent to: self keyboardListeners]. + + anEvent isMouse + ifTrue: [self sendListenEvent: anEvent to: self mouseListeners].! Item was added: + ----- Method: HandMorph>>showEvent: (in category 'events-debugging') ----- + showEvent: anEvent + "Show details about the event on the display form. Useful for debugging." + + | ofs | + ShowEvents == true ifFalse: [^ self]. + + Display fill: (0@0 extent: 300@120) rule: Form over fillColor: Color white. + ofs := (owner hands indexOf: self) - 1 * 60. + + anEvent isKeyboard + ifTrue: [ 'key: ', anEvent printString displayAt: (0@ofs) + (0@30) ] + ifFalse: [ 'evt ', anEvent printString displayAt: (0@ofs) + (0@0) ]. + + 'kf: ', self keyboardFocus printString displayAt: (0@ofs)+(0@45). + 'mf: ', self mouseFocus printString displayAt: (0@ofs) + (0@15) + ! Item was removed: - ----- Method: KeyboardEvent>>setType:buttons:position:keyValue:charCode:hand:stamp: (in category 'private') ----- - setType: aSymbol buttons: anInteger position: pos keyValue: aValue charCode: ignoredUsedInOBTesting hand: aHand stamp: stamp - self setType: aSymbol buttons: anInteger position: pos keyValue: aValue hand: aHand stamp: stamp! Item was changed: ----- Method: MenuMorph>>handleFocusEvent: (in category 'events') ----- handleFocusEvent: evt "Handle focus events. Valid menu transitions are determined based on the menu currently holding the focus after the mouse went down on one of its children." + | result filteredEvent | + result := self processEvent: evt. + filteredEvent := result == #rejected ifTrue: [evt] ifFalse: [result]. - self processEvent: evt. "Need to handle keyboard input if we have the focus." + filteredEvent isKeyboard ifTrue: [^ super handleFocusEvent: filteredEvent]. - evt isKeyboard ifTrue: [^ self handleEvent: evt]. "We need to handle button clicks outside and transitions to local popUps so throw away everything else" + (filteredEvent isMouseOver or:[filteredEvent isMouse not]) ifTrue:[^filteredEvent]. - (evt isMouseOver or:[evt isMouse not]) ifTrue:[^self]. "What remains are mouse buttons and moves" + filteredEvent isMove ifFalse:[^super handleFocusEvent: filteredEvent]. "handle clicks outside by regular means" - evt isMove ifFalse:[^self handleEvent: evt]. "handle clicks outside by regular means" "Now it's getting tricky. On #mouseMove we might transfer control to *either* the currently active submenu or the pop up owner, if any. Since the active sub menu is always displayed upfront check it first." selectedItem ifNotNil: [ + (selectedItem activateSubmenu: filteredEvent) + ifTrue: [ ^filteredEvent ] - (selectedItem activateSubmenu: evt) - ifTrue: [ ^self ] ifFalse: [ + (self containsPoint: filteredEvent position) ifFalse: [ + self selectItem: nil event: filteredEvent ] ] ]. - (self containsPoint: evt position) ifFalse: [ - self selectItem: nil event: evt ] ] ]. "Note: The following does not traverse upwards but it's the best I can do for now" + popUpOwner ifNotNil:[(popUpOwner activateOwnerMenu: filteredEvent) ifTrue:[^filteredEvent]]. + ^ filteredEvent! - popUpOwner ifNotNil:[(popUpOwner activateOwnerMenu: evt) ifTrue:[^self]].! Item was added: + ----- Method: Morph>>addEventBubbleFilter: (in category 'events-filtering-bubbling') ----- + addEventBubbleFilter: anObject + self eventBubbleFilters: (self addFilter: anObject to: self eventBubbleFilters).! Item was added: + ----- Method: Morph>>addEventCaptureFilter: (in category 'events-filtering-capturing') ----- + addEventCaptureFilter: anObject + self eventCaptureFilters: (self addFilter: anObject to: self eventCaptureFilters).! Item was added: + ----- Method: Morph>>addFilter:to: (in category 'events-filtering') ----- + addFilter: anObject to: aFilterGroup + "Add anObject to the given listener group. Return the new group." + | filters | + filters := aFilterGroup. + (filters notNil and:[filters includes: anObject]) ifFalse:[ + filters + ifNil:[filters := WeakArray with: anObject] + ifNotNil:[filters := filters copyWith: anObject]]. + filters := filters copyWithout: nil. "obsolete entries" + ^filters! Item was added: + ----- Method: Morph>>addKeyboardBubbleFilter: (in category 'events-filtering-bubbling') ----- + addKeyboardBubbleFilter: anObject + self keyboardBubbleFilters: (self addFilter: anObject to: self keyboardBubbleFilters).! Item was added: + ----- Method: Morph>>addKeyboardCaptureFilter: (in category 'events-filtering-capturing') ----- + addKeyboardCaptureFilter: anObject + self keyboardCaptureFilters: (self addFilter: anObject to: self keyboardCaptureFilters).! Item was added: + ----- Method: Morph>>addMouseBubbleFilter: (in category 'events-filtering-bubbling') ----- + addMouseBubbleFilter: anObject + self mouseBubbleFilters: (self addFilter: anObject to: self mouseBubbleFilters).! Item was added: + ----- Method: Morph>>addMouseCaptureFilter: (in category 'events-filtering-capturing') ----- + addMouseCaptureFilter: anObject + self mouseCaptureFilters: (self addFilter: anObject to: self mouseCaptureFilters).! Item was added: + ----- Method: Morph>>eventBubbleFilters (in category 'events-filtering-bubbling') ----- + eventBubbleFilters + ^ self valueOfProperty: #eventBubbleFilters! Item was added: + ----- Method: Morph>>eventBubbleFilters: (in category 'events-filtering-bubbling') ----- + eventBubbleFilters: anArrayOrNil + ^ self setProperty: #eventBubbleFilters toValue: anArrayOrNil! Item was added: + ----- Method: Morph>>eventCaptureFilters (in category 'events-filtering-capturing') ----- + eventCaptureFilters + ^ self valueOfProperty: #eventCaptureFilters! Item was added: + ----- Method: Morph>>eventCaptureFilters: (in category 'events-filtering-capturing') ----- + eventCaptureFilters: anArrayOrNil + ^ self setProperty: #eventCaptureFilters toValue: anArrayOrNil! Item was added: + ----- Method: Morph>>eventFilterDocumentation (in category 'events-filtering') ----- + eventFilterDocumentation + " + Event filters represent a mechanism to intercept events *before* morphs get the chance to handle them. So, there are still event handlers, which are usually the morphs themselves. However, morphs can also be their own event filters. One application of event filters is keyboard shortcuts. Such filters should invoke the shortcut but ignore the original event to *be sure* that no other morph ever handles that. System windows have window shortcuts. The world has world shortcuts. + + When user input events are dispatched, there is a capturing phase and a bubbling phase. This dispatching behavior is described in MorphicEventDispatcher. Capturing means that we are looking for the handler (resp. morph) to handle the event, traversing submorph hierarchy. Bubbling means that once a morph handled the event, all owners get also the chance to handle that event *if* they honor the #wasHandled flag.. Event filters can be attached to any morph for the capturing or the bubbling phase. See it as code that is execute before/after the event handlers. + + Event filters are objects that implement #filterEvent:for:. All objects understand that message but do nothing. There is a PluggableEventFilter for a more dynamic programming approach. + + Morphic hands have specific focus holders. There is a keyboard focus and a mouse focus. For example, text morphs are good candidates for holders of the keyboard focus. Both foci bypass the traditional event capturing phase, which usually start at the world morph. However, capture filters are also apply before handling the focus event. See Morph >> #handleFocusEvent: for that. Note that after handling the focus event, events do bubble along their owners, which usually do nothing if they honor the #wasHandled flag, and hence all bubble event filters are executed unless events get ignored. Thus, we mimick the behavior of MorphicEventDispatcher in #handleFocusEvent:. + + There are event filters for all kinds of events, filters for keyboard events, and filters for mouse events. You can always install generic event filters and then check for the particular event type in that filter. However, it is good style to not install keyboard event filters as generic event filters. It makes code more readable. + + You can install global event capture filters in instances of HandMorph. For example, Project current world firstHand provides access to the project's world's hand. Avoid using globals such as ActiveHand or ActiveWorld. BEWARE that global event filters can have unexpected effects and may be difficult to debug. Note that you cannot install global event bubble filters in the HandMorph. You have to install such a filter in the world because hands are not part of the event bubbling phase. + + For an example of keyboard capturing filters see SystemWindow >> #addKeyboardShortcuts and SystemWindow >> #filterEvent:for:. You can also take a look at: PasteUpMorph >> #addKeyboardShortcuts and PasteUpMorph >> #filterEvent:for: and DockingBarMorph >> #filterEvent:for: for a more elaborate example. + + Event filters include all the behavior of event listeners. An event listener converted to an event filter would be a global event capture filter that sents a copy of the event to itself: + + | listenerFilter someMorph | + someMorph := Morph new. + listenerFilter := PluggableEventFilter on: [:event :target | event copy sentTo: someMorph. event]. + Project current world activeHand addEventCaptureFilter: listenerFilter. + + Instead of: + + | someMorph | + someMorph := Morph new. + Project current world activeHand addEventListener: someMorph. + + The filter version might look more complicated than the traditional listener version but note that it is quite rare to install global event filters. The example for keyboard shortcuts reflects the simplicity of event filters."! Item was changed: ----- Method: Morph>>handleEvent: (in category 'events-processing') ----- handleEvent: anEvent + "Apply event filters and then handle the resulting event. We have to return the event to chain filters." + + | filteredEvent | + filteredEvent := self sendFilterEventBubble: anEvent for: self. + filteredEvent wasIgnored ifFalse: [filteredEvent sentTo: self]. + ^ filteredEvent! - "Handle the given event" - ^anEvent sentTo: self.! Item was changed: ----- Method: Morph>>handleFocusEvent: (in category 'events-processing') ----- handleFocusEvent: anEvent + "Handle the given event. This message is sent if the receiver currently has the focus and is therefore receiving events directly from some hand. + + 1) Event bubbling. Do event bubbling known from MorphicEventDispatcher by calling #handleEvent: also on all owners. + 2) Event capture filters. Walk along the owner chain in reverse order and apply capture filters as known from MorphicEventDispatcher. + + If you want to overwrite this in a subclass (for example to implement modal dialogs) ensure to call super instead if #handleEvent: directly." + + | filteredEvent | + filteredEvent := anEvent. + + "TODO: Add a check to ensure that our event dispatcher is actually of kind MorphicEventDispatcher?!! We do copy its behavior though... like self defaultEventDispatcher class == MorphicEventDispatcher? Or #isKindOf:? Anyway, the outermost morph determines the event dispatcher. See HandMorph >> #sendEvent:focus:clear: and PasteUpMorph >> #processEvent:." + + "Event capturing. Filters only because the capturing phase was bypassed by using the keyboard/mouse focus." + self withAllOwners reverseDo: [:morph | "reverse order to comply with default MorphEventDispatcher" + filteredEvent := morph sendFilterEventCapture: filteredEvent for: morph. + filteredEvent wasIgnored ifTrue: [^ filteredEvent]]. + + "Event bubbling. Filters are processed in #handleEvent:." + self withAllOwnersDo: [:morph | + filteredEvent := morph handleEvent: filteredEvent. + filteredEvent wasIgnored ifTrue: [^ filteredEvent]]. + + ^ filteredEvent! - "Handle the given event. This message is sent if the receiver currently has the focus and is therefore receiving events directly from some hand." - ^self handleEvent: anEvent! Item was added: + ----- Method: Morph>>keyboardBubbleFilters (in category 'events-filtering-bubbling') ----- + keyboardBubbleFilters + ^ self valueOfProperty: #keyboardBubbleFilters! Item was added: + ----- Method: Morph>>keyboardBubbleFilters: (in category 'events-filtering-bubbling') ----- + keyboardBubbleFilters: anArrayOrNil + ^ self setProperty: #keyboardBubbleFilters toValue: anArrayOrNil! Item was added: + ----- Method: Morph>>keyboardCaptureFilters (in category 'events-filtering-capturing') ----- + keyboardCaptureFilters + ^ self valueOfProperty: #keyboardCaptureFilters! Item was added: + ----- Method: Morph>>keyboardCaptureFilters: (in category 'events-filtering-capturing') ----- + keyboardCaptureFilters: anArrayOrNil + ^ self setProperty: #keyboardCaptureFilters toValue: anArrayOrNil! Item was added: + ----- Method: Morph>>mouseBubbleFilters (in category 'events-filtering-bubbling') ----- + mouseBubbleFilters + ^ self valueOfProperty: #mouseBubbleFilters! Item was added: + ----- Method: Morph>>mouseBubbleFilters: (in category 'events-filtering-bubbling') ----- + mouseBubbleFilters: anArrayOrNil + ^ self setProperty: #mouseBubbleFilters toValue: anArrayOrNil! Item was added: + ----- Method: Morph>>mouseCaptureFilters (in category 'events-filtering-capturing') ----- + mouseCaptureFilters + ^ self valueOfProperty: #mouseCaptureFilters! Item was added: + ----- Method: Morph>>mouseCaptureFilters: (in category 'events-filtering-capturing') ----- + mouseCaptureFilters: anArrayOrNil + ^ self setProperty: #mouseCaptureFilters toValue: anArrayOrNil! Item was changed: ----- Method: Morph>>processEvent:using: (in category 'events-processing') ----- processEvent: anEvent using: defaultDispatcher "This is the central entry for dispatching events in morphic. Given some event and a default dispatch strategy, find the right receiver and let him handle it. + WARNING: This is a powerful hook. If you want to use a different event dispatcher from the default, here is the place to hook it in. Depending on how the dispatcher is written (e.g., whether it calls simply #processEvent: or #processEvent:using:) you can change the dispatch strategy for entire trees of morphs. Similarly, you can disable entire trees of morphs from receiving any events whatsoever. Read the documentation in class MorphicEventDispatcher before playing with it. + Event filters for this capture phase can both influence and overrule the way the receiver can reject the event. If the filter ignores the event, the whole event procecssing will stop. If the filtered event is still not ignored, the receiver can decide to still reject it end regular event dispatch will go on." + + | filteredEvent | + filteredEvent := self sendFilterEventCapture: anEvent for: self. + filteredEvent wasIgnored ifTrue: [^ filteredEvent]. + + (self rejectsEvent: filteredEvent) ifTrue:[^#rejected]. + ^defaultDispatcher dispatchEvent: filteredEvent with: self! - WARNING: This is a powerful hook. If you want to use a different event dispatcher from the default, here is the place to hook it in. Depending on how the dispatcher is written (e.g., whether it calls simply #processEvent: or #processEvent:using:) you can change the dispatch strategy for entire trees of morphs. Similarly, you can disable entire trees of morphs from receiving any events whatsoever. Read the documentation in class MorphicEventDispatcher before playing with it. " - (self rejectsEvent: anEvent) ifTrue:[^#rejected]. - ^defaultDispatcher dispatchEvent: anEvent with: self! Item was added: + ----- Method: Morph>>removeEventBubbleFilter: (in category 'events-filtering-bubbling') ----- + removeEventBubbleFilter: anObject + self eventBubbleFilters: (self removeFilter: anObject from: self eventBubbleFilters).! Item was added: + ----- Method: Morph>>removeEventCaptureFilter: (in category 'events-filtering-capturing') ----- + removeEventCaptureFilter: anObject + self eventCaptureFilters: (self removeFilter: anObject from: self eventCaptureFilters).! Item was added: + ----- Method: Morph>>removeFilter:from: (in category 'events-filtering') ----- + removeFilter: anObject from: aFilterGroup + "Remove anObject from the given listener group. Return the new group." + + | filters | + aFilterGroup ifNil: [^nil]. + filters := aFilterGroup. + filters := filters copyWithout: anObject. + filters := filters copyWithout: nil. "obsolete entries" + filters isEmpty ifTrue: [filters := nil]. + ^filters! Item was added: + ----- Method: Morph>>removeKeyboardBubbleFilter: (in category 'events-filtering-bubbling') ----- + removeKeyboardBubbleFilter: anObject + self keyboardBubbleFilters: (self removeFilter: anObject from: self keyboardBubbleFilters).! Item was added: + ----- Method: Morph>>removeKeyboardCaptureFilter: (in category 'events-filtering-capturing') ----- + removeKeyboardCaptureFilter: anObject + self keyboardCaptureFilters: (self removeFilter: anObject from: self keyboardCaptureFilters).! Item was added: + ----- Method: Morph>>removeMouseBubbleFilter: (in category 'events-filtering-bubbling') ----- + removeMouseBubbleFilter: anObject + self mouseBubbleFilters: (self removeFilter: anObject from: self mouseBubbleFilters).! Item was added: + ----- Method: Morph>>removeMouseCaptureFilter: (in category 'events-filtering-capturing') ----- + removeMouseCaptureFilter: anObject + self mouseCaptureFilters: (self removeFilter: anObject from: self mouseCaptureFilters).! Item was added: + ----- Method: Morph>>sendFilterEvent:for:to: (in category 'events-processing') ----- + sendFilterEvent: anEvent for: anObject to: filterGroup + "An event gets filtered if some event filter wants to filter it." + + | filteredEvent | + filterGroup ifNil: [^anEvent]. + + filteredEvent := anEvent. + filterGroup do: [:filterOrNil | filterOrNil ifNotNil: [:filter | + filteredEvent := filter filterEvent: filteredEvent for: anObject]]. + + ^ filteredEvent! Item was added: + ----- Method: Morph>>sendFilterEventBubble:for: (in category 'events-processing') ----- + sendFilterEventBubble: anEvent for: anObject + "Apply event bubbling filters." + + ^ self + sendFilterEventBubbleAgain: (self sendFilterEvent: anEvent for: anObject to: self eventBubbleFilters) + for: anObject! Item was added: + ----- Method: Morph>>sendFilterEventBubbleAgain:for: (in category 'events-processing') ----- + sendFilterEventBubbleAgain: anEvent for: anObject + "Apply keyboard-specific and mouse-specific bubbling filters. If a filter changes the event type, filter again. WARNING: This is a powerful mechanism. Filters can create endless loops, which are difficult to debug." + + | filteredEvent | + filteredEvent := anEvent. + + filteredEvent isKeyboard ifTrue: [ + filteredEvent := self sendFilterEvent: filteredEvent for: anObject to: self keyboardBubbleFilters. + filteredEvent isKeyboard not ifTrue: [^ self sendFilterEventBubbleAgain: filteredEvent for: anObject]]. + + filteredEvent isMouse ifTrue: [ + filteredEvent := self sendFilterEvent: filteredEvent for: anObject to: self mouseBubbleFilters. + filteredEvent isMouse not ifTrue: [^ self sendFilterEventBubbleAgain: filteredEvent for: anObject]]. + + ^ filteredEvent! Item was added: + ----- Method: Morph>>sendFilterEventCapture:for: (in category 'events-processing') ----- + sendFilterEventCapture: anEvent for: anObject + "Apply event capturing filters." + + ^ self + sendFilterEventCaptureAgain: (self sendFilterEvent: anEvent for: anObject to: self eventCaptureFilters) + for: anObject! Item was added: + ----- Method: Morph>>sendFilterEventCaptureAgain:for: (in category 'events-processing') ----- + sendFilterEventCaptureAgain: anEvent for: anObject + "Apply keyboard-specific and mouse-specific capturing filters. If a filter changes the event type, filter again. WARNING: This is a powerful mechanism. Filters can create endless loops, which are difficult to debug." + + | filteredEvent | + filteredEvent := anEvent. + + filteredEvent isKeyboard ifTrue: [ + filteredEvent := self sendFilterEvent: filteredEvent for: anObject to: self keyboardCaptureFilters. + filteredEvent isKeyboard not ifTrue: [^ self sendFilterEventCaptureAgain: filteredEvent for: anObject]]. + + filteredEvent isMouse ifTrue: [ + filteredEvent := self sendFilterEvent: filteredEvent for: anObject to: self mouseCaptureFilters. + filteredEvent isMouse not ifTrue: [^ self sendFilterEventCaptureAgain: filteredEvent for: anObject]]. + + ^ filteredEvent! Item was added: + ----- Method: MorphicEvent>>ignore (in category 'dispatching') ----- + ignore + + self wasIgnored: true.! Item was added: + ----- Method: MorphicEvent>>translateTo: (in category 'transforming') ----- + translateTo: point + ! Item was added: + ----- Method: MorphicEvent>>wasIgnored (in category 'accessing') ----- + wasIgnored + ^ false! Item was added: + ----- Method: MorphicEvent>>wasIgnored: (in category 'accessing') ----- + wasIgnored: boolean + ! Item was changed: + ----- Method: MorphicEventDispatcher>>dispatchDefault:with: (in category 'specific') ----- - ----- Method: MorphicEventDispatcher>>dispatchDefault:with: (in category 'dispatching') ----- dispatchDefault: anEvent with: aMorph "Dispatch the given event. The event will be passed to the front-most visible submorph that contains the position wrt. to the event." - | localEvt index child morphs inside | - "See if we're fully outside aMorphs bounds" - (aMorph fullBounds containsPoint: anEvent position) ifFalse:[^#rejected]. "outside" - "Traverse children" - index := 1. - morphs := aMorph submorphs. - inside := false. - [index <= morphs size] whileTrue:[ - child := morphs at: index. - localEvt := anEvent transformedBy: (child transformedFrom: aMorph). - (child processEvent: localEvt using: self) == #rejected ifFalse:[ - "Not rejected. The event was in some submorph of the receiver" - inside := true. - localEvt wasHandled ifTrue:[anEvent copyHandlerState: localEvt]. - index := morphs size. "break" - ]. - index := index + 1. - ]. + "Try to get out quickly" + anEvent wasIgnored ifTrue: [^anEvent "propagate the ignored event"]. + (aMorph fullBounds containsPoint: anEvent position) ifFalse:[^#rejected]. + + ^ self + dispatchEvent: anEvent + withHandler: aMorph + withMorph: aMorph! - "Check for being inside the receiver" - inside ifFalse:[inside := aMorph containsPoint: anEvent position event: anEvent]. - inside ifTrue:[^aMorph handleEvent: anEvent]. - ^#rejected - ! Item was changed: + ----- Method: MorphicEventDispatcher>>dispatchDropEvent:with: (in category 'specific') ----- - ----- Method: MorphicEventDispatcher>>dispatchDropEvent:with: (in category 'dispatching') ----- dispatchDropEvent: anEvent with: aMorph "Find the appropriate receiver for the event and let it handle it. The dispatch is similar to the default dispatch with one difference: Morphs are given the chance to reject an entire drop operation. If the operation is rejected, no drop will be executed." + - | inside index morphs child localEvt | "Try to get out quickly" + anEvent wasIgnored ifTrue: [^anEvent "propagate the ignored event"]. + (aMorph fullBounds containsPoint: anEvent position) ifFalse:[^#rejected]. + - (aMorph fullBounds containsPoint: anEvent cursorPoint) - ifFalse:[^#rejected]. "Give aMorph a chance to repel the dropping morph" aMorph rejectDropEvent: anEvent. + anEvent wasHandled ifTrue:[^anEvent]. - anEvent wasHandled ifTrue:[^self]. + ^ self + dispatchEvent: anEvent + withHandler: aMorph + withMorph: aMorph! - "Go looking if any of our submorphs wants it" - index := 1. - inside := false. - morphs := aMorph submorphs. - [index <= morphs size] whileTrue:[ - child := morphs at: index. - localEvt := anEvent transformedBy: (child transformedFrom: aMorph). - (child processEvent: localEvt using: self) == #rejected ifFalse:[ - localEvt wasHandled ifTrue:[^anEvent wasHandled: true]. "done" - inside := true. - index := morphs size]. "break" - index := index + 1. - ]. - - inside ifFalse:[inside := aMorph containsPoint: anEvent cursorPoint event: anEvent]. - inside ifTrue:[^aMorph handleEvent: anEvent]. - ^#rejected! Item was added: + ----- Method: MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: (in category 'private') ----- + dispatchEvent: anEvent toSubmorphsOf: aMorph + "Dispatch the given event to the submorphs of the given morph. --- PRIVATE!!" + + | filteredEvent | + aMorph submorphsDo: [:child | + filteredEvent := child + processEvent: (anEvent transformedBy: (child transformedFrom: aMorph)) + using: self. "use same dispatcher" + filteredEvent == #rejected ifFalse: [ "filteredEvent or #rejected" + filteredEvent translateTo: anEvent position. "restore to untransformed coordinates" + filteredEvent wasHandled ifFalse: [filteredEvent copyHandlerState: anEvent]. "restore handler if needed" + self flag: #overlappingChildren. "mt: We cannot give two overlapping siblings the chance to handle the event!!" + ^ filteredEvent]]. + + ^ #rejected! Item was added: + ----- Method: MorphicEventDispatcher>>dispatchEvent:withHandler:withMorph: (in category 'private') ----- + dispatchEvent: anEvent withHandler: aHandler withMorph: aMorph + "Perform the actual event dispatch. Use the given object as handler. Ask submorphs first to handle the event. Then bubble up. Stop if ignored. Note that event rejection and event filters are two separete concepts. Filters come from the outside. Rejection is a morph's decision. + + * The top-most chain of visible, unlocked morphs containing the event position will get a chance to handle the event. + * When travelling up, the prospective handler is always executed. The handler needs to check if the event was handled before as well as checking if somebody else's handler has been installed. + * If another handler has been installed but the event was not handled it means that somebody up in the hierarchy wants to handle the event." + + | result filteredEvent | + + result := self dispatchEvent: anEvent toSubmorphsOf: aMorph. + + result == #rejected "Anybody?" + ifFalse: [filteredEvent := result] + ifTrue: [ + "My submorphs did not want it. Do I want it anyway? It's about locked children..." + (aMorph containsPoint: anEvent position event: anEvent) + ifFalse: [^ #rejected]. + filteredEvent := anEvent "there was no filtering, only basic rejects"]. + + "Receiver is in the top-most unlocked, visible chain." + (aHandler notNil and: [filteredEvent wasIgnored not]) + ifTrue: [filteredEvent := aHandler handleEvent: filteredEvent]. + + ^ filteredEvent! Item was changed: + ----- Method: MorphicEventDispatcher>>dispatchMouseDown:with: (in category 'specific') ----- - ----- Method: MorphicEventDispatcher>>dispatchMouseDown:with: (in category 'dispatching') ----- dispatchMouseDown: anEvent with: aMorph + "Find the appropriate receiver for the event and let it handle it. When travelling down the hierarchy a prospective handler for the event is installed. This prospective handler can be used by submorphs wishing to handle the mouse down for negotiating who the receiver is." + + | handler lastHandler | + - "Find the appropriate receiver for the event and let it handle it. Default rules: - * The top-most chain of visible, unlocked morphs containing the event position will get a chance to handle the event. - * When travelling down the hierarchy a prospective handler for the event is installed. This prospective handler can be used by submorphs wishing to handle the mouse down for negotiating who the receiver is. - * When travelling up, the prospective handler is always executed. The handler needs to check if the event was handled before as well as checking if somebody else's handler has been installed. - * If another handler has been installed but the event was not handled it means that somebody up in the hierarchy wants to handle the event. - " - | globalPt localEvt index child morphs handler inside lastHandler | "Try to get out quickly" + anEvent wasIgnored ifTrue: [^anEvent "propagate the ignored event"]. + (aMorph fullBounds containsPoint: anEvent position) ifFalse:[^#rejected]. - globalPt := anEvent cursorPoint. - (aMorph fullBounds containsPoint: globalPt) ifFalse:[^#rejected]. + "In case the mouse wasn't even in the receiver" + lastHandler := anEvent handler. + + "Negotiate and install the actual handler." - "Install the prospective handler for the receiver" - lastHandler := anEvent handler. "in case the mouse wasn't even in the receiver" handler := aMorph handlerForMouseDown: anEvent. + handler ifNotNil: [anEvent handler: handler]. - handler ifNotNil:[anEvent handler: handler]. + [^ self + dispatchEvent: anEvent + withHandler: handler + withMorph: aMorph + ] ensure: [ + anEvent handler: lastHandler. "good style"].! - "Now give our submorphs a chance to handle the event" - index := 1. - morphs := aMorph submorphs. - [index <= morphs size] whileTrue:[ - child := morphs at: index. - localEvt := anEvent transformedBy: (child transformedFrom: aMorph). - (child processEvent: localEvt using: self) == #rejected ifFalse:[ - "Some child did contain the point so we're part of the top-most chain." - inside := false. - localEvt wasHandled ifTrue:[anEvent copyHandlerState: localEvt]. - index := morphs size]. - index := index + 1. - ]. - - (inside == false or:[aMorph containsPoint: anEvent cursorPoint event: anEvent]) ifTrue:[ - "Receiver is in the top-most unlocked, visible chain." - handler ifNotNil:[handler handleEvent: anEvent]. - "Note: Re-installing the handler is not really necessary but good style." - anEvent handler: lastHandler. - ^self - ]. - "Mouse was not on receiver nor any of its children" - anEvent handler: lastHandler. - ^#rejected! Item was changed: + ----- Method: MorphicEventDispatcher>>dispatchWindowEvent:with: (in category 'specific') ----- - ----- Method: MorphicEventDispatcher>>dispatchWindowEvent:with: (in category 'dispatching') ----- dispatchWindowEvent: anEvent with: aMorph "Host window events do not have a position and are only dispatched to the World" + + anEvent wasIgnored ifTrue: [^anEvent]. aMorph isWorldMorph ifFalse: [^#rejected]. + anEvent wasHandled ifTrue:[^anEvent]. - anEvent wasHandled ifTrue:[^self]. ^aMorph handleEvent: anEvent! Item was added: + ----- Method: Object>>filterEvent:for: (in category '*Morphic-Events-Filtering') ----- + filterEvent: anEvent for: aMorphOrNil + "Get the chance to intercept the event. Note that global event filters might not be provided with the actual target. Returns the event that should be processed any further. If you want to ignore them, call #ignore on them." + + ^ anEvent "no change"! Item was changed: ----- Method: PasteUpMorph>>processEvent:using: (in category 'events-processing') ----- processEvent: anEvent using: defaultDispatcher "Reimplemented to install the receiver as the new ActiveWorld if it is one" | priorWorld result | self isWorldMorph ifFalse:[^super processEvent: anEvent using: defaultDispatcher]. priorWorld := ActiveWorld. ActiveWorld := self. + [result := super processEvent: anEvent using: defaultDispatcher] + ensure: [ActiveWorld := priorWorld]. + ^result + ! - result := super processEvent: anEvent using: defaultDispatcher. - ActiveWorld := priorWorld. - ^result! Item was added: + Object subclass: #PluggableEventFilter + instanceVariableNames: 'filterBlock' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Events'! Item was added: + ----- Method: PluggableEventFilter class>>on: (in category 'instance creation') ----- + on: filterBlock + + ^ self new filterBlock: filterBlock! Item was added: + ----- Method: PluggableEventFilter>>filterBlock (in category 'accessing') ----- + filterBlock + + ^ filterBlock! Item was added: + ----- Method: PluggableEventFilter>>filterBlock: (in category 'accessing') ----- + filterBlock: anObject + + filterBlock := anObject! Item was added: + ----- Method: PluggableEventFilter>>filterEvent:for: (in category 'events-filtering') ----- + filterEvent: event for: target + + ^ self filterBlock + ifNil: [event] + ifNotNil: [:b | b cull: event cull: target]! Item was changed: ----- Method: UserDialogBoxMorph>>handleFocusEvent: (in category 'constructing') ----- handleFocusEvent: evt + "Handle focus events. Valid menu transitions are determined based on the menu currently holding the focus after the mouse went down on one of its children. Need to handle keyboard input if we have the focus." - "Handle focus events. Valid menu transitions are determined based on the menu currently holding the focus after the mouse went down on one of its children." - self processEvent: evt. + | result filteredEvent | + result := self processEvent: evt. + filteredEvent := result == #rejected ifTrue: [evt] ifFalse: [result]. + + ^ super handleFocusEvent: filteredEvent! - "Need to handle keyboard input if we have the focus." - ^self handleEvent: evt! Item was changed: MorphicEvent subclass: #UserInputEvent + instanceVariableNames: 'type buttons position handler wasHandled wasIgnored' - instanceVariableNames: 'type buttons position handler wasHandled' classVariableNames: '' poolDictionaries: 'EventSensorConstants' category: 'Morphic-Events'! Item was added: + ----- Method: UserInputEvent>>initialize (in category 'initialize') ----- + initialize + + super initialize. + wasIgnored := false.! Item was added: + ----- Method: UserInputEvent>>translateTo: (in category 'transforming') ----- + translateTo: point + + position := point.! Item was added: + ----- Method: UserInputEvent>>wasIgnored (in category 'accessing') ----- + wasIgnored + ^ wasIgnored! Item was added: + ----- Method: UserInputEvent>>wasIgnored: (in category 'accessing') ----- + wasIgnored: aBoolean + wasIgnored := aBoolean.!

1 0

The Trunk: Morphic-mt.1160.mcz
by commits＠source.squeak.org 04 Jun '16

04 Jun '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1160.mcz ==================== Summary ==================== Name: Morphic-mt.1160 Author: mt Time: 4 June 2016, 4:57:05.250373 pm UUID: 42f04455-424e-3545-9fe9-7d71a1e77383 Ancestors: Morphic-mt.1159 Moves automatic keyboard focus grabbing from KeyboardEvent into the Morph's key-stroke-handler. More robust when events bubble up again. No accidential focus grab anymore. =============== Diff against Morphic-mt.1159 =============== Item was changed: ----- Method: KeyboardEvent>>sentTo: (in category 'dispatching') ----- + sentTo: anObject + "Dispatch the receiver into anObject" + type == #keystroke ifTrue:[^anObject handleKeystroke: self]. + type == #keyDown ifTrue:[^anObject handleKeyDown: self]. + type == #keyUp ifTrue:[^anObject handleKeyUp: self]. + ^super sentTo: anObject.! - sentTo: aMorph - "Dispatch the receiver into the given morph or another one if keyboard focus changes." - - | receivingMorph | - receivingMorph := aMorph. - aMorph wantsKeyboardFocus ifTrue: [ - receivingMorph := (self hand newKeyboardFocus: aMorph) ifNil: [aMorph]]. - - type == #keystroke ifTrue:[^receivingMorph handleKeystroke: self]. - type == #keyDown ifTrue:[^receivingMorph handleKeyDown: self]. - type == #keyUp ifTrue:[^receivingMorph handleKeyUp: self]. - - ^super sentTo: receivingMorph! Item was changed: ----- Method: Morph>>handleKeystroke: (in category 'events-processing') ----- handleKeystroke: anEvent + "System level event handling. Has support for automatically grabbing the keyboard focus considering the keyboard focus delegate. See #newKeyboardFocus:" - "System level event handling." + | handler | + anEvent wasHandled ifTrue: [^ self]. + (self handlesKeyboard: anEvent) ifFalse: [^ self]. + + handler := self wantsKeyboardFocus + ifFalse: [self] + ifTrue: [(anEvent hand newKeyboardFocus: self) ifNil: [self]]. + anEvent handler: handler. + - anEvent wasHandled - ifTrue: [^ self]. - (self handlesKeyboard: anEvent) - ifFalse: [^ self]. anEvent wasHandled: true. + ^ handler keyStroke: anEvent! - ^ self keyStroke: anEvent! Item was changed: ----- Method: TextMorph>>handleKeystroke: (in category 'events-processing') ----- handleKeystroke: anEvent + "Overwritten to support tab-among-fields preference." - "System level event handling." | pasteUp | anEvent wasHandled ifTrue:[^self]. + (self handlesKeyboard: anEvent) ifFalse: [^ self]. + + anEvent keyCharacter = Character tab ifTrue: [ + "Allow passing through text morph inside pasteups" + (self wouldAcceptKeyboardFocusUponTab + and: [(pasteUp := self pasteUpMorphHandlingTabAmongFields) notNil]) + ifTrue: [ + anEvent wasHandled: true. + ^ pasteUp tabHitWithEvent: anEvent]]. + + ^ super handleKeystroke: anEvent! - (self handlesKeyboard: anEvent) ifFalse: [^ self]. - anEvent wasHandled: true. - anEvent keyCharacter = Character tab ifTrue: - ["Allow passing through text morph inside pasteups" - (self wouldAcceptKeyboardFocusUponTab and: - [(pasteUp := self pasteUpMorphHandlingTabAmongFields) notNil]) - ifTrue:[^ pasteUp tabHitWithEvent: anEvent]]. - self keyStroke: anEvent! Item was added: + ----- Method: TextMorph>>wantsKeyboardFocus (in category 'event handling') ----- + wantsKeyboardFocus + + ^ true!

1 0

The Trunk: Morphic-mt.1159.mcz
by commits＠source.squeak.org 04 Jun '16

04 Jun '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1159.mcz ==================== Summary ==================== Name: Morphic-mt.1159 Author: mt Time: 4 June 2016, 4:27:58.511373 pm UUID: 6304c02e-91f9-7840-94b6-008e68d296d2 Ancestors: Morphic-ul.1158 Fixes a small regression bug where freshly opened tool windows were not raised to the front. Was especially annoying when clicking some button in the code browsers. =============== Diff against Morphic-ul.1158 =============== Item was removed: - ----- Method: SystemWindow>>activateIfNeeded: (in category 'focus') ----- - activateIfNeeded: evt - "Make me the new key window if needed. Ensure that the focus look matches the keyboard focus." - - (self isKeyWindow not - and: [self class windowsRaiseOnClick - or: [self windowDecorations anySatisfy: [:morph | morph bounds containsPoint: evt position]] ]) - ifTrue: [self beKeyWindow] - ifFalse: [self updateFocusLookForKeyboardFocus].! Item was added: + ----- Method: SystemWindow>>beKeyWindowIfNeeded: (in category 'top window') ----- + beKeyWindowIfNeeded: evt + "Make me the new key window if needed. Ensure that the focus look matches the keyboard focus." + + (self isKeyWindow not + and: [self class windowsRaiseOnClick + or: [self windowDecorations anySatisfy: [:morph | morph bounds containsPoint: evt position]] ]) + ifTrue: [self beKeyWindow] + ifFalse: [self updateFocusLookForKeyboardFocus].! Item was changed: ----- Method: SystemWindow>>handleMouseDown: (in category 'events') ----- handleMouseDown: evt + self beKeyWindowIfNeeded: evt. - self activateIfNeeded: evt. ^ super handleMouseDown: evt! Item was changed: ----- Method: SystemWindow>>handleMouseUp: (in category 'events') ----- handleMouseUp: evt + "Some widgets grab the keyboard focus only on mouse-up. Hence, we need to update our looks." + + self updateFocusLookForKeyboardFocus. - - self activateIfNeeded: evt. ^ super handleMouseUp: evt!

1 0

The Trunk: Files-dtl.157.mcz
by commits＠source.squeak.org 04 Jun '16

04 Jun '16

David T. Lewis uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-dtl.157.mcz ==================== Summary ==================== Name: Files-dtl.157 Author: dtl Time: 3 June 2016, 11:15:12.62641 pm UUID: 66c41d04-aff3-414b-8e48-8db1829db0f6 Ancestors: Files-tpr.156 Flush before sync, unsure streams are flushed before sync to disk. =============== Diff against Files-tpr.156 =============== Item was changed: ----- Method: StandardFileStream>>sync (in category 'read, write, position') ----- sync "Really, really, flush pending changes" + ^self flush; primSync: fileID! - ^self primSync: fileID!

1 0

The Trunk: Tools-cmm.703.mcz
by commits＠source.squeak.org 03 Jun '16

03 Jun '16

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.703.mcz ==================== Summary ==================== Name: Tools-cmm.703 Author: cmm Time: 2 June 2016, 5:41:56.679756 pm UUID: 9e4c33b5-dae7-4884-9e46-22a4833bebd7 Ancestors: Tools-eem.702 - Corrected menu hot-key indication for 'show category' -- it's (Y) not (C). - Upgraded it to 'toggle category selection', which is really useful given that browsers spawned via Cmd+b come with category automatically selected. =============== Diff against Tools-eem.702 =============== Item was removed: - ----- Method: Browser>>selectOriginalCategoryForCurrentMethod (in category 'message category list') ----- - selectOriginalCategoryForCurrentMethod - "private - Select the message category for the current method. - - Note: This should only be called when somebody tries to save - a method that they are modifying while ALL is selected. - - Returns: true on success, false on failure." - | aSymbol selectorName | - aSymbol := self categoryOfCurrentMethod. - selectorName := self selectedMessageName. - (aSymbol notNil and: [aSymbol ~= ClassOrganizer allCategory]) - ifTrue: - [selectedMessageCategoryName := aSymbol. - selectedMessageName := selectorName. - self changed: #messageCategorySelectionChanged. - self changed: #messageCategoryListIndex. "update my selection" - self changed: #messageList. - self changed: #messageListIndex. - ^ true]. - ^ false! Item was changed: ----- Method: Browser>>shiftedMessageListMenu: (in category 'message functions') ----- shiftedMessageListMenu: aMenu <messageListMenuShifted: true> "Fill aMenu with the items appropriate when the shift key is held down" aMenu addStayUpItem. aMenu addList: #( ('toggle diffing (D)' toggleDiffing) ('implementors of sent messages' browseAllMessages) - ('local senders of...' browseLocalSendersOfMessages) ('local implementors of...' browseLocalImplementors) - ('spawn sub-protocol' spawnProtocol) ('spawn full protocol' spawnFullProtocol) - ('sample instance' makeSampleInstance) ('inspect instances' inspectInstances) ('inspect subinstances' inspectSubInstances)). self addExtraShiftedItemsTo: aMenu. aMenu addList: #( - ('change category...' changeCategory)). self canShowMultipleMessageCategories ifTrue: [aMenu addList: + #(('toggle category selection (Y)' showHomeCategory))]. - #(('show category (C)' showHomeCategory))]. aMenu addList: #( - ('change sets with this method' findMethodInChangeSets) ('revert to previous version' revertToPreviousVersion) ('remove from current change set' removeFromCurrentChanges) ('revert & remove from changes' revertAndForget) ('add to current change set' adoptMessageInCurrentChangeset) ('copy up or copy down...' copyUpOrCopyDown)). ^ aMenu ! Item was changed: ----- Method: Browser>>showHomeCategory (in category 'message category functions') ----- showHomeCategory "Show the home category of the selected method. This is only really useful if one is in a tool that supports the showing of categories. Thus, it's good in browsers and hierarchy browsers but not in message-list browsers" | aSelector | self okToChange ifTrue: [(aSelector := self selectedMessageName) ifNotNil: + [self toggleCategorySelectionForCurrentMethod. - [self selectOriginalCategoryForCurrentMethod. self selectedMessageName: aSelector]]! Item was added: + ----- Method: Browser>>toggleCategorySelectionForCurrentMethod (in category 'message category list') ----- + toggleCategorySelectionForCurrentMethod + | methodCategory selectorName | + methodCategory := self categoryOfCurrentMethod. + selectorName := self selectedMessageName. + (methodCategory notNil and: + [ methodCategory ~= ClassOrganizer allCategory and: [ methodCategory ~= selectedMessageCategoryName ] ]) + ifTrue: + [ selectedMessageCategoryName := methodCategory. + selectedMessageName := selectorName. + self changed: #messageCategorySelectionChanged. + self changed: #messageCategoryListIndex. + "update my selection" + self changed: #messageList. + self changed: #messageListIndex ] + ifFalse: + [ methodCategory = selectedMessageCategoryName ifTrue: + [ selectedMessageCategoryName := nil. + self + changed: #messageCategorySelectionChanged ; + changed: #messageCategoryListIndex ; + changed: #messageList ] ]!

1 0

The Trunk: CollectionsTests-ul.264.mcz
by commits＠source.squeak.org 02 Jun '16

02 Jun '16

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.264.mcz ==================== Summary ==================== Name: CollectionsTests-ul.264 Author: ul Time: 2 June 2016, 8:33:36.59299 pm UUID: 8b363f56-526e-4bea-b997-56008d7e270f Ancestors: CollectionsTests-ul.263 #sortBlock: will re-sort the SortedCollection, so there's no need to send #reSort to it afterwards in SortedCollectionTest >> #testShouldPrecede. =============== Diff against CollectionsTests-ul.263 =============== Item was changed: ----- Method: SortedCollectionTest>>testShouldPrecede (in category 'basic') ----- testShouldPrecede "self run: #testShouldPrecede" |aSortedCollection| aSortedCollection := SortedCollection new. self assert: (aSortedCollection should: 'za' precede: 'zb'). self assert: (aSortedCollection isEmpty). self assert: (aSortedCollection should: 1 precede: 2). aSortedCollection sortBlock: [:a :b | a > b]. + - aSortedCollection reSort. self assert: (aSortedCollection should: 'zb' precede: 'za'). self assert: (aSortedCollection isEmpty). self assert: (aSortedCollection should: 2 precede: 1). !

1 0

The Trunk: Collections-ul.697.mcz
by commits＠source.squeak.org 02 Jun '16

02 Jun '16

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.697.mcz ==================== Summary ==================== Name: Collections-ul.697 Author: ul Time: 2 June 2016, 8:31:09.211811 pm UUID: 4d7d52f4-cdbb-423f-9923-aee902c885b0 Ancestors: Collections-ul.696 Heap revamp #2. Deprecated the now unusued #fullySort, #reSort, #sorts:before:, #trim and #updateObjectIndex: Bonus: do not re-sort the receiver of SortedCollection >> #sortBlock: when it only has one element. =============== Diff against Collections-ul.696 =============== Item was removed: - ----- Method: Heap>>fullySort (in category 'accessing') ----- - fullySort - "Fully sort the heap. - This method preserves the heap invariants and can thus be sent safely" - self privateReverseSort. - 1 to: tally // 2 do: [:i | array swap: i with: 1 + tally - i]! Item was removed: - ----- Method: Heap>>reSort (in category 'accessing') ----- - reSort - "Resort the entire heap" - self isEmpty ifTrue:[^self]. - tally // 2 to: 1 by: -1 do:[:i| self downHeap: i].! Item was removed: - ----- Method: Heap>>sorts:before: (in category 'testing') ----- - sorts: element1 before: element2 - "Return true if element1 should be sorted before element2. - This method defines the sort order in the receiver" - ^sortBlock == nil - ifTrue:[element1 <= element2] - ifFalse:[sortBlock value: element1 value: element2].! Item was removed: - ----- Method: Heap>>trim (in category 'growing') ----- - trim - "Remove any empty slots in the receiver." - self growTo: self size.! Item was removed: - ----- Method: Heap>>updateObjectIndex: (in category 'private') ----- - updateObjectIndex: index - "If indexUpdateBlock is not nil, notify the object at index of its new position in the heap array." - indexUpdateBlock ifNotNil: [ - indexUpdateBlock value: (array at: index) value: index]! Item was changed: ----- Method: SortedCollection>>sortBlock: (in category 'accessing') ----- sortBlock: aBlock "Make the argument, aBlock, be the criterion for ordering elements of the receiver." sortBlock := aBlock. "sortBlocks with side effects may not work right" + self size > 1 ifTrue: [self reSort]! - self size > 0 ifTrue: [self reSort]!

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2016