mouse scroll-wheel events (See related posts)

   1  
   2  ; mouse-wheel scroll events
   3  view/new layout [
   4  	b: box "A Box" forest feel [
   5  		engage: func [face action event] [
   6  			if action = 'scroll-line [
   7  				print ["Scroll line" event/offset]
   8  			]
   9  			if action = 'scroll-page [ ; Ctrl+wheel
  10  				print ["scroll page" event/offset]
  11  			]
  12  		]
  13  	]
  14  ]
  15  focus b
  16  do-events