diff options
Diffstat (limited to 'Event.hs')
-rw-r--r-- | Event.hs | 17 |
1 files changed, 13 insertions, 4 deletions
@@ -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 |