Event.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

module Event where

import Trammel


data Event =
    EFlash (Trammel String) |
    EKey String |
    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