[htoolkit-cvs] port/src/Port Types.hs,1.36,1.37

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

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31719/src/Port

Modified Files:
	Types.hs 
Log Message:
Remove WinPosCenterAlways. Now we always use GTK_WIN_POS_CENTER_ALWAYS


Index: Types.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Types.hs,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** Types.hs	6 May 2004 10:27:46 -0000	1.36
--- Types.hs	7 May 2004 07:57:10 -0000	1.37
***************
*** 750,756 ****
    = WinPosExact Rect
    | WinPosCenter Size
-   | WinPosMouse Size
-   | WinPosCenterAlways Size
    | WinPosCenterOnParent Size
    deriving (Eq,Show)
  
--- 750,755 ----
    = WinPosExact Rect
    | WinPosCenter Size
    | WinPosCenterOnParent Size
+   | WinPosMouse Size
    deriving (Eq,Show)
  
***************
*** 758,764 ****
  withCWindowPosition (WinPosExact rect) f = withCRect rect (f 0)
  withCWindowPosition (WinPosCenter size) f = withCSize size (f 1 0 0)
! withCWindowPosition (WinPosMouse size) f = withCSize size (f 2 0 0)
! withCWindowPosition (WinPosCenterAlways size) f = withCSize size (f 3 0 0)
! withCWindowPosition (WinPosCenterOnParent size) f = withCSize size (f 4 0 0)
  
  {-----------------------------------------------------------------------------------------
--- 757,762 ----
  withCWindowPosition (WinPosExact rect) f = withCRect rect (f 0)
  withCWindowPosition (WinPosCenter size) f = withCSize size (f 1 0 0)
! withCWindowPosition (WinPosCenterOnParent size) f = withCSize size (f 2 0 0)
! withCWindowPosition (WinPosMouse size) f = withCSize size (f 3 0 0)
  
  {-----------------------------------------------------------------------------------------