[Pkg] The Trunk: System-eem.1046.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Nov 10 04:46:18 UTC 2018


Eliot Miranda uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-eem.1046.mcz

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

Name: System-eem.1046
Author: eem
Time: 9 November 2018, 8:46:04.222224 pm
UUID: 98d1a376-957e-40fd-ba0f-9e4893defad2
Ancestors: System-eem.1045

Add accessors for the sendMouseWheelEvents flag that instructs the VM to send mouse wheel events as mouse wheel events, not keynboard arrow keys.  Needs an up-to-date VM (and on WIndows needs the VM code to be written).

Fix a typo

=============== Diff against System-eem.1045 ===============

Item was changed:
  ----- Method: SmalltalkImage>>processHasThreadIdInstVar: (in category 'system attributes') -----
  processHasThreadIdInstVar: aBoolean
  	"The threaded VM needs to know if the 4th inst var of Process
  	 is threadId which it uses to control process-to-thread binding.
  	 This flag persists across snapshots, stored in the image header."
+ 	aBoolean ifTrue: [self assert: (Process instVarNames at: 4) = 'threadId'].
- 	aBoolean ifTrue: [self assert: (Process instVarNames at: 4) ='threadId'].
  	self vmParameterAt: 48 put: ((self vmParameterAt: 48) bitClear: 1) + (aBoolean ifTrue: [1] ifFalse: [0])!

Item was added:
+ ----- Method: SmalltalkImage>>sendMouseWheelEvents (in category 'system attributes') -----
+ sendMouseWheelEvents
+ 	"The Cog VM can be instructed to deliver mouse wheel events as mouse wheel events.
+ 	 By default mouse wheel events are mapped to arrow events.
+ 	 This flag persists across snapshots, stored in the image header."
+ 
+ 	^(self vmParameterAt: 48) anyMask: 32!

Item was added:
+ ----- Method: SmalltalkImage>>sendMouseWheelEvents: (in category 'system attributes') -----
+ sendMouseWheelEvents: aBoolean
+ 	"The Cog VM can be instructed to deliver mouse wheel events as mouse wheel events.
+ 	 By default mouse wheel events are mapped to arrow events.
+ 	 This flag persists across snapshots, stored in the image header."
+ 
+ 	self vmParameterAt: 48 put: ((self vmParameterAt: 48) bitClear: 32) + (aBoolean ifTrue: [32] ifFalse: [0])!



More information about the Packages mailing list