[squeak-dev] The Trunk: Morphic-mt.1708.mczcommits at source.squeak.org commits at source.squeak.orgWed Oct 28 15:10:07 UTC 2020
Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1708.mcz ==================== Summary ==================== Name: Morphic-mt.1708 Author: mt Time: 28 October 2020, 4:10:01.434689 pm UUID: 8ee48d82-9815-c34e-ac47-02b09c6cae25 Ancestors: Morphic-pre.1707 Fix typo. =============== Diff against Morphic-pre.1707 =============== Item was changed: ----- Method: ScrollPane>>mouseWheel: (in category 'event handling') ----- mouseWheel: evt evt isWheelUp ifTrue: [scrollBar scrollUp: (evt verticalScrollDelta: self class verticalScrollDeltaPerMouseWheelNotch)]. evt isWheelDown ifTrue: [scrollBar scrollDown: (evt verticalScrollDelta: self class verticalScrollDeltaPerMouseWheelNotch)]. + evt isWheelLeft ifTrue: [hScrollBar scrollUp: (evt horizontalScrollDelta: self class horizontalScrollDeltaPerMouseWheelNotch)]. + evt isWheelRight ifTrue: [hScrollBar scrollDown: (evt horizontalScrollDelta: self class horizontalScrollDeltaPerMouseWheelNotch)].! - evt isWheelLeft ifTrue: [hScrollBar scrollUp: (evt horizontalScrollDelta: self class verticalScrollDeltaPerMouseWheelNotch)]. - evt isWheelRight ifTrue: [hScrollBar scrollDown: (evt horizontalScrollDelta: self class verticalScrollDeltaPerMouseWheelNotch)].!
More information about the Squeak-dev mailing list |