Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: Mimicking UNIX Eyes

by Kirsle (Pilgrim)
on Dec 18, 2009 at 23:29 UTC ( #813456=note: print w/replies, xml ) Need Help??


in reply to Mimicking UNIX Eyes

Try the module X11::GUITest. It may help you get the cursor's position in X11. From the readme...

GetMousePos Returns an array containing the position of the mouse curs +or. my ($x, $y) = GetMousePos();

Combine this with a simple Tk window for drawing the eyes, and X11::GUITest should help ya get the cursor position so you don't need Tk to handle that part. Of course this approach is only good for X11 systems and isn't cross platform to Windows or OS X.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://813456]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2021-09-25 01:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?