From 7f12f41e5fce40042f97d167da9a0fb58e5a1651 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Wed, 24 Feb 2010 03:40:06 +0100 Subject: Added keyboard events --- GLDriver.hs | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'GLDriver.hs') diff --git a/GLDriver.hs b/GLDriver.hs index 9fb2642..2b55c6f 100644 --- a/GLDriver.hs +++ b/GLDriver.hs @@ -4,9 +4,12 @@ module GLDriver ( Driver(..) , SomeDriver(..) , Event , SomeEvent(..) + , fromEvent , QuitEvent(..) , ResizeEvent(..) - , fromEvent + , Key(..) + , KeyPressEvent(..) + , KeyReleaseEvent(..) ) where import Data.Typeable @@ -45,3 +48,13 @@ instance Event QuitEvent data ResizeEvent = ResizeEvent Int Int deriving Typeable instance Event ResizeEvent + + +data Key = KeyLeft | KeyRight | KeyUp | KeyDown + deriving (Eq, Ord, Show) + +data KeyPressEvent = KeyPressEvent Key deriving Typeable +instance Event KeyPressEvent + +data KeyReleaseEvent = KeyReleaseEvent Key deriving Typeable +instance Event KeyReleaseEvent -- cgit v1.2.3