<div dir="ltr">Gerald,<div><br></div><div>It looks fine to me testing on 64-bit Debian 11.  I confirmed that when you toggle the VM setting on and off the image only receives events from the appropriate source (i.e. keyboard or mousewheel.)  It is odd that the event rate of the uncooked events does appear slower.  I would expect it to be the other way around (i.e. that the cooked keyboard event rate would be slower.)  I'm assuming that this is a VM thing that probably needs to be fixed there (i.e. higher resolution scroll events are quite handy for scrolling long lists, zooming etc)  Nice to finally see those wheel side-to-side direction events... nice work!</div><div><br></div><div>The only question I have is if there's a way to detect the capability and set the VM parameter automatically on image start?  If so, we could have a preference as to whether or not it should automatically be set. (I imagine most would)</div><div><br></div><div>Thanks,</div><div>Phil</div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Thu, Aug 12, 2021 at 4:20 PM Gerald Klix <<a href="mailto:cuis.01@klix.ch">cuis.01@klix.ch</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Hi all, Hi Phil,<br>
<br>
Please find attached a preliminary version of my mouse-wheel support <br>
code. Please review the coding style and check for any errors.<br>
I only tested it on Linux 64bit, but will also<br>
test on Windows tomorrow.<br>
<br>
The code needs `Smalltalk sendMouseWheelEvents: true` to be active.<br>
Vertical scrolling should be smoother/slower,<br>
horizontal scrolling should work.<br>
<br>
<br>
Have Fun and Best Regards,<br>
<br>
Gerald<br>
<br>
<br>
<br>
On 8/11/21 11:07 PM, Gerald Klix via Cuis-dev wrote:<br>
> Hoi Phil,<br>
> <br>
> On 8/11/21 10:31 PM, Phil B via Cuis-dev wrote:<br>
>> Gerald,<br>
>><br>
>> I implemented the wheel event support for Cuis anticipating that at some<br>
>> point in the future we'd be able to get 'uncooked' events from the VM. <br>
> Cool!<br>
>> So<br>
>> if you see a way to get them, by all means please do so. <br>
> You won't believe it, its dead simple, just copy this SystemDirectory <br>
> method from Squeak<br>
> <br>
> --- snip ---<br>
> sendMouseWheelEvents: aBoolean<br>
>      "The Cog VM can be instructed to deliver mouse wheel events as <br>
> mouse wheel events.<br>
>       By default mouse wheel events are mapped to arrow events.<br>
>       This flag persists across snapshots, stored in the image header."<br>
> <br>
>      self vmParameterAt: 48 put: ((self vmParameterAt: 48) bitClear: 32) <br>
> + (aBoolean ifTrue: [32] ifFalse: [0])<br>
> --- snap ---<br>
> <br>
> and send the apropriate message.<br>
> <br>
> I verified this behavior by dumping the events with `Sensor test` on a<br>
> Linux 64-bit VM. The VM sends events of type 7.<br>
> <br>
>> It's been a few<br>
>> years, but the last time I looked the Unix VM didn't have it yet.  IIRC,<br>
>> only one platform (Windows?) did and *all* VM platforms need to <br>
>> support it<br>
>> before you can flip the switch on the functionality.<br>
> <br>
> I discovered this feature accidentally, while looking at the X11 code;<br>
> I wanted all buttons of my trackball supported, some more modifier keys.<br>
> <br>
> I now see the problem (vm/platforms):<br>
>  >>> find -name '*.c'| xargs grep sendWheelEvents<br>
> <br>
> yields:<br>
> <br>
> ./win32/vm/sqWin32Window.c:extern sqInt sendWheelEvents; /* If true <br>
> deliver EventTypeMouseWheel else kybd */<br>
> ./win32/vm/sqWin32Window.c:/* if sendWheelEvents is false this maps <br>
> wheel events to arrow keys */<br>
> ./win32/vm/sqWin32Window.c:    if (inputSemaphoreIndex && <br>
> sendWheelEvents) {<br>
> ./win32/vm/sqWin32Window.c:      if (sendWheelEvents) {<br>
> ./unix/vm-display-X11/sqUnixX11.c:extern sqInt sendWheelEvents; /* If <br>
> true deliver EventTypeMouseWheel else kybd */<br>
> ./unix/vm-display-X11/sqUnixX11.c:/* if sendWheelEvents is false this <br>
> maps wheel events to arrow keys */<br>
> ./unix/vm-display-X11/sqUnixX11.c:/* if sendWheelEvents is true this <br>
> determines how much x & y are incremented */<br>
> ./unix/vm-display-X11/sqUnixX11.c:        if (sendWheelEvents)<br>
> ./unix/vm-display-fbdev/sqUnixEvdevKeyMouse.c:extern sqInt <br>
> sendWheelEvents; /* If true deliver EventTypeMouseWheel else kybd */<br>
> ./unix/vm-display-fbdev/sqUnixEvdevKeyMouse.c:      if (sendWheelEvents) {<br>
> <br>
> <br>
> In this case the old code needs to remain for the unsupported OSes.<br>
> <br>
> It's now 11pm here, I will look into it tomorrow.<br>
> <br>
> <br>
> Best Regards,<br>
> <br>
> Gerald<br>
> <br>
> <br>
>><br>
>> Thanks,<br>
>> Phil<br>
>><br>
>> On Wed, Aug 11, 2021, 3:02 PM Gerald Klix via Cuis-dev <<br>
>> <a href="mailto:cuis-dev@lists.cuis.st" target="_blank">cuis-dev@lists.cuis.st</a>> wrote:<br>
>><br>
>>> I just noticed that all the events and processing methods are there.<br>
>>> I searched for '*Wheel*' instead of '*Scroll*'.<br>
>>><br>
>>><br>
>>><br>
>>> On 8/11/21 8:46 PM, Gerald Klix via Cuis-dev wrote:<br>
>>>> Hi all, Hi Juan,<br>
>>>><br>
>>>> Is there interest in implementing or porting *true*<br>
>>>> mouse wheel support for/to Cuis?<br>
>>>> I mean switching off the up/down-key emulation<br>
>>>> in the VM and add the necessary event classes<br>
>>>> and processing methods.<br>
>>>><br>
>>>> Benefits:<br>
>>>> Mouses with a tilting wheel -- wheel left/right -- will be supported.<br>
>>>><br>
>>>> I would like to see all of the keys my Elecom trackballs<br>
>>>> provide supported, alas this will require patching the VM.<br>
>>>> Maybe I will change the VM's X11 code.<br>
>>>><br>
>>>><br>
>>>> Best Regards,<br>
>>>><br>
>>>> Gerald<br>
>>>><br>
>>>><br>
>>>> Trackball images:<br>
>>>> <a href="https://i.ebayimg.com/images/i/272219997851-0-1/s-l1000.jpg" rel="noreferrer" target="_blank">https://i.ebayimg.com/images/i/272219997851-0-1/s-l1000.jpg</a><br>
>>>> <a href="https://i.ebayimg.com/images/g/wWAAAOSwB5Fe5vK-/s-l640.jpg" rel="noreferrer" target="_blank">https://i.ebayimg.com/images/g/wWAAAOSwB5Fe5vK-/s-l640.jpg</a><br>
>>> -- <br>
>>> Cuis-dev mailing list<br>
>>> <a href="mailto:Cuis-dev@lists.cuis.st" target="_blank">Cuis-dev@lists.cuis.st</a><br>
>>> <a href="https://lists.cuis.st/mailman/listinfo/cuis-dev" rel="noreferrer" target="_blank">https://lists.cuis.st/mailman/listinfo/cuis-dev</a><br>
>>><br>
>><br>
>><br>
</blockquote></div>