From c2d510ad09e13586332981280c068d5c12075905 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Tue, 30 Dec 2014 17:14:06 +0100
Subject: add VT200 mouse support

---
 Event.hs | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

(limited to 'Event.hs')

diff --git a/Event.hs b/Event.hs
index a0d43b7..f316c13 100644
--- a/Event.hs
+++ b/Event.hs
@@ -1,6 +1,4 @@
-module Event
-    ( Event (..)
-    ) where
+module Event where
 
 import Trammel
 
@@ -8,7 +6,18 @@ import Trammel
 data Event =
     EFlash (Trammel String) |
     EKey String |
-    EMouse Char Int Int | -- TODO s/Char/..
+    EMouse MouseInfo |
     EReload |
     EResize Int Int
   deriving Show
+
+
+data MouseInfo = MouseInfo
+    { mouseButton :: Int -- 0 = release
+    , mouseShift :: Bool
+    , mouseMeta :: Bool
+    , mouseControl :: Bool
+    , mouseX :: Int
+    , mouseY :: Int
+    }
+  deriving Show
-- 
cgit v1.2.3