[squeak-dev] The Inbox: EToys-kfr.493.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Feb 19 09:01:48 UTC 2023
A new version of EToys was added to project The Inbox:
http://source.squeak.org/inbox/EToys-kfr.493.mcz
==================== Summary ====================
Name: EToys-kfr.493
Author: kfr
Time: 19 February 2023, 10:01:46.774135 am
UUID: 937ea9cb-4db2-d04c-a283-97614b109562
Ancestors: EToys-mt.492
Change eventType to type
=============== Diff against EToys-mt.492 ===============
Item was changed:
----- Method: KeyboardEventSequence>>addKeystrokeEventsTo: (in category 'debugging') -----
addKeystrokeEventsTo: aStream
"Add any keystroke event to a stream"
+ events do: [:e | e type = #keystroke ifTrue:
- events do: [:e | e eventType = #keystroke ifTrue:
[aStream nextPut: e]]!
Item was changed:
----- Method: MentoringEventRecorder>>handleEscape (in category 'commands') -----
handleEscape
"The user hit esc to stop recording or playback, so stop."
| interimTape unmatchedMouseDown upEvent |
tapeStream ifNotNil:
[(#(recording recordingWithSound) includes: self state ) ifTrue:
[interimTape := tapeStream contents.
unmatchedMouseDown := nil.
interimTape reversed detect:
[:evt |
+ evt type = #mouseDown
- evt eventType = #mouseDown
ifTrue:
[unmatchedMouseDown := evt.
true]
ifFalse:
+ [evt type = #mouseUp]]
- [evt eventType = #mouseUp]]
ifNone:
[nil].
unmatchedMouseDown ifNotNil:
["synthesize a matching up-event"
upEvent := unmatchedMouseDown veryDeepCopy.
upEvent timeStamp: Time millisecondClockValue.
upEvent setType: #mouseUp.
tapeStream nextPut: upEvent].
tape := tapeStream contents.
saved := false]].
self pauseIn: self world.
tapeStream := nil.
recordMeter ifNotNil: [recordMeter width: 1].
recordingSpace escapeHitInEventRecorder!
More information about the Squeak-dev
mailing list
|