projects
/
premotedroid-server-perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ab7d21a
)
MOUSE_WHEEL
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 19 Sep 2010 16:42:41 +0000
(18:42 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 19 Sep 2010 16:42:41 +0000
(18:42 +0200)
premotedroid-server.pl
patch
|
blob
|
history
diff --git
a/premotedroid-server.pl
b/premotedroid-server.pl
index
1719d01
..
25ae497
100755
(executable)
--- a/
premotedroid-server.pl
+++ b/
premotedroid-server.pl
@@
-51,6
+51,10
@@
while ( my $client = $sock->accept() ) {
read $client, my $b, 2;
my ( $button, $state ) = unpack 'cc', $b;
warn "MOUSE_CLICK $button $state\n";
+ } elsif ( $command == MOUSE_WHEEL ) {
+ read $client, my $amount, 1;
+ $amount = unpack 'c', $amount;
+ warn "MOUSE_WHEEL $amount\n";
} elsif ( $command == AUTHENTIFICATION ) {
my $auth = readUTF $client;
warn "AUTHENTIFICATION [$auth]\n";