add VT200 mouse support

1 files changed, 13 insertions, 4 deletions

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