[htoolkit-cvs] gio/src/Graphics/UI/GIO Events.hs,1.12,1.13

[<kr_...@us...>]

Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv1844/src/Graphics/UI/GIO

Modified Files:
	Events.hs 
Log Message:
Remove enter i leave events


Index: Events.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Events.hs,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Events.hs	23 Apr 2003 21:48:47 -0000	1.12
--- Events.hs	16 Jul 2003 22:25:43 -0000	1.13
***************
*** 90,112 ****
               -- * Event filters
               -- ** Mouse filters
!              , enter, leave, motion, drag
               , click, unclick, doubleClick
               , clickRight, unclickRight
  
!              -- * Keyboard event filters            
               , anyKey, key, charKey
               , enterKey,tabKey,escKey,helpKey
!              , delKey,homeKey,endKey 
               , pgupKey,pgdownKey
!              , downKey,upKey,leftKey,rightKey 
!              
               -- * Internal
               -- ** Standard events
!              -- *** Forms             
               , newActivateEvent
               , newDeactivateEvent
               , newScrollEvent
               , newResizeEvent
!              -- *** Reactive             
               , newMouseEvent
               , newKeyboardEvent
--- 90,112 ----
               -- * Event filters
               -- ** Mouse filters
!              , motion, drag
               , click, unclick, doubleClick
               , clickRight, unclickRight
  
!              -- * Keyboard event filters
               , anyKey, key, charKey
               , enterKey,tabKey,escKey,helpKey
!              , delKey,homeKey,endKey
               , pgupKey,pgdownKey
!              , downKey,upKey,leftKey,rightKey
! 
               -- * Internal
               -- ** Standard events
!              -- *** Forms
               , newActivateEvent
               , newDeactivateEvent
               , newScrollEvent
               , newResizeEvent
!              -- *** Reactive
               , newMouseEvent
               , newKeyboardEvent
***************
*** 257,274 ****
      filter (MouseRightUp point mod)  = noneDown mod  
      filter other                     = False
- 
- enter :: Reactive w => Event w (Point -> IO ())
- enter
-   = mouseFilter "enter" filter
-   where
-     filter (MouseEnter point mod)  = noneDown mod  
-     filter other                   = False
- 
- leave :: Reactive w => Event w (Point -> IO ())
- leave
-   = mouseFilter "leave" filter
-   where
-     filter (MouseLeave point mod)  = noneDown mod  
-     filter other                   = False
  
  mouseFilter :: Reactive w => String -> (MouseEvent -> Bool) -> Event w (Point -> IO ())
--- 257,260 ----