Problem with mouse wheel scrolling

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

Problem with mouse wheel scrolling

Andy Bower-3
Folks,

We have had a report of some problems when using the mouse wheel to
scroll around in Dolphin Windows on a large desktop spanning several
monitors.  The particular bug report involved scrolling around the
Class Hierarchy Diagram.

The actual fix will appear in Dolphin 6.0 but, just in case you come
across this problem, here is a patch for 5.1.4:

---
!ScrollingDecorator methodsFor!

onMouseWheeled: aMouseEvent
        "Handler for a mouse wheel movement event. Scroll the receiver
vertically
        in the direction indicated, and as per the system configuration."

        | rotation config |
        self presenter trigger: #mouseWheeled: with: aMouseEvent.
        config := self wheelScrollLines.
        (config == 0 or: [(rotation := aMouseEvent wheelRotation) abs < 1])
                ifTrue: [^self defaultWindowProcessing: aMouseEvent].
        config = WHEEL_PAGESCROLL
                ifTrue: [self scrollPages: rotation sign * -1]
                ifFalse: [self scrollLines: (rotation * config * -1) asInteger].
        ^0! !
!ScrollingDecorator categoriesFor: #onMouseWheeled:!event
handling!public! !
---

Best regards,

Andy Bower
Dolphin Support
www.object-arts.com