"Committed_by_peb"

src/GF/Fudgets/EventF.hs

@@ -1,13 +1,13 @@
 ----------------------------------------------------------------------
 -- |
--- Module      : (Module)
--- Maintainer  : (Maintainer)
+-- Module      : EventF
+-- Maintainer  : AR
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date $ 
--- > CVS $Author $
--- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:14 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.3 $
 --
 -- (Description of the module)
 -----------------------------------------------------------------------------
@@ -15,12 +15,13 @@
 module EventF where
 import AllFudgets
 
--- The first string is the name of the key (e.g., "Down" for the down arrow key)
+-- | 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)
@@ -34,10 +35,10 @@ keyboardF fud = idRightSP (concatMapSP post) >^^=< oeventF mask fud
             EnterWindowMask, LeaveWindowMask -- because of CTT implementation
 	   ]
 
--- Output events:
+-- | Output events:
 oeventF em fud =  eventF em (idLeftF fud)
 
--- Feed events to argument fudget:
+-- | Feed events to argument fudget:
 eventF eventmask = serCompLeftToRightF . groupF startcmds eventK
   where
     startcmds = [XCmd $ ChangeWindowAttributes [CWEventMask eventmask],