The Trunk: Morphic-mt.2217.mcz

[email protected] Tue, 7 Jul 2026 08:02:33 0000
Newsgroups gmane.comp.lang.smalltalk.squeak.general
Message-ID <[email protected]>
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.2217.mcz

==================== Summary ====================

Name: Morphic-mt.2217
Author: mt
Time: 7 July 2026, 10:02:31.311646 am
UUID: 078b4868-fcec-944d-a6bf-9642fa24b208
Ancestors: Morphic-ct.2216

In Morphic code, avoid #peekPosition to not flush other events. The peek-API is ST80 API, where not event queue was processed but input state was accessed directly.

=============== Diff against Morphic-ct.2216 ===============

Item was changed:
  ----- Method: TheWorldMainDockingBar>>startMessageTally (in category 'menu actions') -----
  startMessageTally
  	| world |
  	world := Project current world.
  	(self confirm: 'MessageTally will start now,
  and stop when the cursor goes
  to the top of the screen') ifTrue:
  		[MessageTally spyOn:
+ 			[[world firstHand position y > 0] whileTrue: [world doOneCycle]]]!
- 			[[Sensor peekPosition y > 0] whileTrue: [world doOneCycle]]]!

Item was changed:
  ----- Method: TheWorldMenu>>startMessageTally (in category 'commands') -----
  startMessageTally
  	| world |
  	world := Project current world.
  	(self confirm: 'MessageTally will start now,
  and stop when the cursor goes
  to the top of the screen') ifTrue:
  		[MessageTally spyOn:
+ 			[[world firstHand position y > 0] whileTrue: [world doOneCycle]]]!
- 			[[Sensor peekPosition y > 0] whileTrue: [world doOneCycle]]]!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]