blob: f5f7f5c1396dec36a16cadeaa17dc314e91a65da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
$NetBSD: patch-ac,v 1.1 2006/04/19 13:13:05 tonio Exp $
--- laser_pointer.ml.orig 2004-09-15 18:37:55.000000000 +0200
+++ laser_pointer.ml
@@ -144,7 +144,7 @@ let rec treat_laser_event ptr q =
| { mouse_x = x; mouse_y = y;
button = btn;
keypressed = kp;
- key = c; } as ev ->
+ key = c; } ->
show_pointer ptr x y;
if kp then begin
match c with
|
