[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:

==================== 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') -----
  	"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
  							[unmatchedMouseDown := evt.
+ 							[evt type = #mouseUp]]
- 							[evt eventType = #mouseUp]]
  			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