Hi Eliot, sorry for my ignorance -- I'm trying to understand if we are
headed for a compatibility glitch between older images and newer VM's,
or between older VM's and newer images.

The old 5.0-201807260206 VM works fine even without any image changes.
Is it possible to do the fix it solely in the VM?

Best,
  Chris



On Fri, Nov 9, 2018 at 10:46 PM <commits at source.squeak.org> wrote:
>
> 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])!
>
>