DZone Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world

Snippets has posted 5883 posts at DZone. View Full User Profile

Mouse Scroll-wheel Events

01.18.2006
| 4654 views |
  • submit to reddit
        
; mouse-wheel scroll events
view/new layout [
	b: box "A Box" forest feel [
		engage: func [face action event] [
			if action = 'scroll-line [
				print ["Scroll line" event/offset]
			]
			if action = 'scroll-page [ ; Ctrl+wheel
				print ["scroll page" event/offset]
			]
		]
	]
]
focus b
do-events