From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 19 Sep 2010 16:42:41 +0000 (+0200)
Subject: MOUSE_WHEEL
X-Git-Url: http://git.rot13.org/?p=premotedroid-server-perl.git;a=commitdiff_plain;h=d209fbf1500b957ac684a78310bca84a7b8d0d09

MOUSE_WHEEL
---

diff --git a/premotedroid-server.pl b/premotedroid-server.pl
index 1719d01..25ae497 100755
--- 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";