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 ----
|
