Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] tracking mouse out the Rebol window

From: ljurado:bariloche:ar at: 19-Jul-2001 15:47

(Pls delete previous messages) This code (based in the an Garth Rebola's mouse-record.r - ZINE 1 .0 ) tracks the mouse over all the screen (yes, without DLLs and WindowsHooks !! ). Now, I want to track the mouse clicks. Is it possible? Luis REBOL [ Title: "Mouse tracking " File: %mouse-tracking.r] scr-size: system/view/screen-face/size / 3 capture: func [/local e evt ][ evt: copy [] ep: open [scheme: 'event] ep/awake: func [port /local ][ if not e: pick port 1 [return none] append b/effect [draw [circle e/offset / 8 2]] show b do e true] view/new/offset layout [ size (scr-size) button "Done" [unview/all halt ] VH1 "Tracking mouse " b: box blue system/view/screen-face/size / 8 rate 1 ;added for magic ALL SCREEN TRACKING : ] 0x0 forever [wait ep] ] capture