tracking mouse out the Rebol window
[1/4] from: ljurado::bariloche::com::ar at: 19-Jul-2001 14:12
This code (based in the Terry'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
[2/4] from: ljurado:bariloche:ar at: 19-Jul-2001 14:24
I'm sorry , mouse-record.r is an Garth Rebola's work .
> This code (based in the Terry's mouse-record.r - ZINE 1 .0 ) tracks the
> mouse over all the screen (yes, without DLLs and WindowsHooks !! ).
Luis
[3/4] 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
[4/4] from: arolls:bigpond:au at: 20-Jul-2001 17:29
I don't believe that is possible to
trap mouse clicks outside the window.
But I will have to investigate to prove it.
I would check continuous mouse events mode as in:
http://rebol.com/how-to/feel.html#sect4.4.