[Fencommits] fenfire-hs: handle mouse enter events in FRP test

[Tuukka Hastrup]

Tue Feb 20 20:32:02 EET 2007  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * handle mouse enter events in FRP test
diff -rN -u old-fenfire-hs/FRP.fhs new-fenfire-hs/FRP.fhs
--- old-fenfire-hs/FRP.fhs	2007-02-20 20:32:04.000000000 +0200
+++ new-fenfire-hs/FRP.fhs	2007-02-20 20:32:04.000000000 +0200
@@ -83,6 +83,10 @@
     onMotionNotify canvas False $ \e -> case e of
         Motion { eventX=x, eventY=y } -> writeIORef mouse (x,y) >> return False
         _                             -> return False
+
+    onEnterNotify canvas $ \e -> case e of
+        Crossing {eventX=x, eventY=y} -> writeIORef mouse (x,y) >> return False
+        _                             -> return False
         
     onDestroy window mainQuit
     widgetShowAll window