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