in reply to Re: SendEvent in X11::Protocol
in thread SendEvent in X11::Protocol
#!/usr/bin/perl use strict; use X11::Protocol; my $x = X11::Protocol->new; my %event = ( name => 'KeyPress', event => 97, state => 0, code => 2, event_x => 0, event_y => 0, detail => 0, same_screen => 1, root => $x->{'root'}, child => 'None', time => 1029571004, root_x => 0, root_y => 0, sequence_number => 0, ); my $event_string = $x->pack_event(%event); $x->SendEvent(0x1800002, 1, 0xfff, $event_string);
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Re: SendEvent in X11::Protocol
by RMGir (Prior) on Aug 18, 2002 at 18:37 UTC | |
|
Re: Re: Re: SendEvent in X11::Protocol
by kelan (Deacon) on Aug 19, 2002 at 14:59 UTC |