[VW 7.9.1] What is a best way to scroll any view horizontally with the Mouse wheel?

Hello All,

I want to be able to scroll any view horizontally with the Mouse wheel. 
I did it in previous versions of VW, those methods don not work in the 7.9.1. anymore.


I found a way to do it in VW 7.9.1

I will modify the method as follow:

scrollEvent: anEvent
    <event: #MouseWheel>

    | scroller delta |
    scroller := self scrollerComponent.
    InputState default altDown
        ifTrue:
            [delta := scroller scrollGrid x.
            scroller
                scrollHorizontally: (anEvent up ifTrue: [delta] ifFalse: [delta negated])]
        ifFalse:
            [delta := scroller scrollGrid y.
            scroller
                scrollVertically: (anEvent up ifTrue: [delta] ifFalse: [delta negated])].
    anEvent dispatchAsMouseMovedEvent


And it does work for most parts...

I am wondering is there a better way to do it ?

Thank you

--Mark


____________________________________________________________
Do THIS before eating carbs (every time)
1 EASY tip to increase fat-burning, lower blood sugar & decrease fat storage
info.fixyourbloodsugar.com
_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc