[htoolkit-cvs] port/src/Port Types.hs,1.25,1.26

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

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv16673/src/Port

Modified Files:
	Types.hs 
Log Message:
The implementation for MouseEnter and MouseLeave events is too hard for Windows
and probably imposible to make it portable. The events was completely removed.


Index: Types.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Types.hs,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** Types.hs	13 Jul 2003 17:18:22 -0000	1.25
--- Types.hs	15 Jul 2003 19:00:28 -0000	1.26
***************
*** 432,437 ****
  data MouseEvent
    =  MouseMove	      !Point !Modifiers	-- ^ Mouse was moved over the client area of the window
-   |  MouseEnter       !Point !Modifiers	-- ^ Mouse enters in the client area of the window
-   |  MouseLeave       !Point !Modifiers	-- ^ Mouse leaves the client area of the window
    |  MouseRightDown   !Point !Modifiers	-- ^ Mouse right button goes down
    |  MouseRightUp     !Point !Modifiers	-- ^ Mouse right button goes up
--- 432,435 ----
***************
*** 447,452 ****
    = case mouseEvent of
        MouseMove	p m       -> p
-       MouseEnter p m      -> p      
-       MouseLeave p m      -> p      
        MouseRightDown p m  -> p
        MouseRightUp p m    -> p    
--- 445,448 ----
***************
*** 461,466 ****
    = case mouseEvent of
        MouseMove	p m       -> m
-       MouseEnter p m      -> m      
-       MouseLeave p m      -> m      
        MouseRightDown p m  -> m
        MouseRightUp p m    -> m    
--- 457,460 ----
***************
*** 477,482 ****
        = case fromCInt cevent of
            1 -> MouseMove
-           2 -> MouseEnter
-           3 -> MouseLeave
            4 -> MouseLeftDown
            5 -> MouseRightDown
--- 471,474 ----