[squeak-dev] The Trunk: Tools-mt.958.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Apr 15 15:55:37 UTC 2020


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

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

Name: Tools-mt.958
Author: mt
Time: 15 April 2020, 5:55:35.334699 pm
UUID: 8d488e07-f7e5-5a47-9861-a23cb62b6871
Ancestors: Tools-mt.957

For MVC projects, fixes high CPU load during menu invocation.

Note that #controlActivity is only used when PopUpMenu is invoked from within an MVC project. Yes, we should clean up this part in the future.

Complements ST80-mt.251.

=============== Diff against Tools-mt.957 ===============

Item was changed:
  ----- Method: PopUpMenu>>controlActivity (in category 'basic control sequence') -----
  controlActivity
  	"Do whatever a menu must do - now with keyboard support."
  
  	| didNotMove downPos |
  	didNotMove := true.
  	Sensor anyButtonPressed
  		ifFalse:
  			[didNotMove := false.
  			Sensor waitButtonOrKeyboard]. 
+ 
- 	
  	Sensor keyboardPressed ifFalse: [self manageMarker].
  	(didNotMove and: [selection = 0])
  		ifTrue:
  			[downPos := Sensor cursorPoint.
  			[didNotMove and: [Sensor anyButtonPressed]]
  				whileTrue:
+ 					[ Project current world activeController interActivityPause.
+ 					(downPos dist: Sensor cursorPoint) < 2 ifFalse: [didNotMove := false]].
- 					[(downPos dist: Sensor cursorPoint) < 2 ifFalse: [didNotMove := false]].
  			didNotMove ifTrue: [Sensor waitButtonOrKeyboard]].
  
  	[Sensor keyboardPressed] whileTrue:
  		[self readKeyboard ifTrue: [^ self].
  		Sensor waitButtonOrKeyboard].
  
+ 	[Sensor anyButtonPressed] whileTrue: [
+ 		ScheduledControllers activeController interActivityPause.
+ 		self manageMarker]!
- 	[Sensor anyButtonPressed] whileTrue: [self manageMarker]!



More information about the Squeak-dev mailing list