| [reply] |
XEvent seems to be read-only...i tried WarpPointer from X11::Protocol, but couldn't get it to work :-(
(which is probably my fault)
i'm looking for something like this because i just had the dumbest idea of all times: make a "Minority Report"-like HID in perl! (I'd post it as a "cool use", if i could somehow get that darn pointer to move).
it's actually quite simple (it's more a proof-of-concept thing than something actually usable), and controlling some LEDs with in-the-air-hand-movement (well...cigarette movement right now) simply feels groovy. (4 quadrants control the combination of LEDs connected to my parallel port that are supposed to light up)
now all i need is a &putPointerToCoordinates(x,y) and a &clickAtCurrentCoordinates()....but how?
(i'm a c-analphabetic, BTW)
help!
(update: fixed spelling. ain't caffeine great?)
| [reply] |
Well, if you have a Tk application for example and you want to move the mousepointer in any of the windows you have defined you are able to Warp the mousepointer.
AFAIK there is no way in Perl to move the mousepointer in X if it has nothing to do with your self-defined application.
HTH,
Jouke Visser, Perl 'Adept'
Using Perl to help the disabled: pVoice and pStory
| [reply] |