Marcel Taeumel uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-mt.274.mcz

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

Name: ST80-mt.274
Author: mt
Time: 30 December 2021, 4:26:56.874748 pm
UUID: 65cb7397-5a05-9c4a-bdfb-7f702dc3c931
Ancestors: ST80-mt.273

Complements Graphics-mt.455

=============== Diff against ST80-mt.273 ===============

Item was changed:
  ----- Method: Controller>>interActivityPause (in category 'basic control sequence') -----
  interActivityPause
  	"if we are looping quickly, insert a short delay.  Thus if we are just doing UI stuff, we won't take up much CPU"
  	| currentTime wait |
  	MinActivityLapse ifNotNil: [
  		lastActivityTime ifNotNil: [ 
  			currentTime := Time millisecondClockValue.
  			wait := lastActivityTime + MinActivityLapse - currentTime.
  			wait > 0 ifTrue: [ 
  				wait <= MinActivityLapse  "big waits happen after a snapshot"
+ 					ifTrue: [DisplayScreen checkForNewScreenScaleFactor; checkForNewScreenSize.
- 					ifTrue: [DisplayScreen checkForNewScreenSize.
  							(Delay forMilliseconds: wait) wait ]. ]. ]. ].
  
  	lastActivityTime := Time millisecondClockValue.!