From b96b36f43de3e2f8b58d5f539daa6f6d47f25870 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 25 Jun 2008 16:43:48 +0000
Subject: removed src for 2.9

---
 src/GF/Fudgets/EventF.hs | 51 ------------------------------------------------
 1 file changed, 51 deletions(-)
 delete mode 100644 src/GF/Fudgets/EventF.hs

(limited to 'src/GF/Fudgets/EventF.hs')

diff --git a/src/GF/Fudgets/EventF.hs b/src/GF/Fudgets/EventF.hs
deleted file mode 100644
index 7ea058dfa..000000000
--- a/src/GF/Fudgets/EventF.hs
+++ /dev/null
@@ -1,51 +0,0 @@
-----------------------------------------------------------------------
--- |
--- Module      : EventF
--- Maintainer  : AR
--- Stability   : (stable)
--- Portability : (portable)
---
--- > CVS $Date: 2005/04/21 16:22:16 $ 
--- > CVS $Author: bringert $
--- > CVS $Revision: 1.4 $
---
--- (Description of the module)
------------------------------------------------------------------------------
-
-module GF.Fudgets.EventF where
-import AllFudgets
-
--- | The first string is the name of the key (e.g., "Down" for the down arrow key)
---
--- The modifiers list shift, control and alt keys that were active while the
--- key was pressed.
---
--- The last string is the text produced by the key (for keys that produce
--- printable characters, empty for control keys).
-type KeyPress = ((String,[Modifiers]),String)
-
-keyboardF :: F i o -> F i (Either KeyPress o)
-keyboardF fud = idRightSP (concatMapSP post) >^^=< oeventF mask fud
-  where
-    post (KeyEvent {type'=Pressed,keySym=sym,state=mods,keyLookup=s}) =
-       [((sym,mods),s)]
-    post _ = []
-
-    mask = [KeyPressMask,
-            EnterWindowMask, LeaveWindowMask -- because of CTT implementation
-	   ]
-
--- | Output events:
-oeventF em fud =  eventF em (idLeftF fud)
-
--- | Feed events to argument fudget:
-eventF eventmask = serCompLeftToRightF . groupF startcmds eventK
-  where
-    startcmds = [XCmd $ ChangeWindowAttributes [CWEventMask eventmask],
-	         XCmd $ ConfigureWindow [CWBorderWidth 0]]
-    eventK = K $ mapFilterSP route
-      where route = message low high
-            low (XEvt event) = Just (High (Left event))
-	    low _ = Nothing
-	    high h = Just (High (Right h))
-
-- 
cgit v1.2.3