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

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

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

Modified Files:
	Types.hs 
Log Message:
bugfix


Index: Types.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Types.hs,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** Types.hs	13 Jul 2003 09:09:10 -0000	1.24
--- Types.hs	13 Jul 2003 17:18:22 -0000	1.25
***************
*** 903,908 ****
  -- | Standard line height of a font is the sum of its leading, ascent and descent.
  fontLineHeight :: FontMetrics -> Int
! fontLineHeight fontMetrics	
!   = fontLeading fontMetrics + fontAscent fontMetrics + fontDescent fontMetrics
  
  {-----------------------------------------------------------------------------------------
--- 903,907 ----
  -- | Standard line height of a font is the sum of its leading, ascent and descent.
  fontLineHeight :: FontMetrics -> Int
! fontLineHeight fontMetrics = fontAscent fontMetrics + fontDescent fontMetrics
  
  {-----------------------------------------------------------------------------------------