[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