Mailing List Archive: tracking mouse out the Rebol window

[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