[htoolkit-cvs] gio/src/Graphics/UI/GIO Font.hs,1.1,1.2

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

Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv29464/src/Graphics/UI/GIO

Modified Files:
	Font.hs 
Log Message:
remove getFormDefs function


Index: Font.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Font.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Font.hs	30 Jan 2003 21:54:49 -0000	1.1
--- Font.hs	1 Jun 2003 09:42:31 -0000	1.2
***************
*** 1,8 ****
  -----------------------------------------------------------------------------------------
  {-| Module      :  Font
!     Copyright   :  (c) Daan Leijen 2003
      License     :  BSD-style
  
!     Maintainer  :  da...@cs...
      Stability   :  provisional
      Portability :  portable
--- 1,8 ----
  -----------------------------------------------------------------------------------------
  {-| Module      :  Font
!     Copyright   :  (c) Krasimir Angelov 2003
      License     :  BSD-style
  
!     Maintainer  :  ka2...@ya...
      Stability   :  provisional
      Portability :  portable
***************
*** 19,23 ****
               
                -- * Enumerate
!               , getFontNames, getFontDefs, getFontVariants
  
                -- * Standard font definitions.
--- 19,23 ----
               
                -- * Enumerate
!               , getFontNames, getFontVariants
  
                -- * Standard font definitions.
***************
*** 31,54 ****
                ) where
  
- 
- import Data.FiniteMap( fmToList )
- import Graphics.UI.GIO.Types
  import Graphics.UI.Port.Font
- 
- {--------------------------------------------------------------------
- 
- --------------------------------------------------------------------}
- -- | Return all available font definitions of a certain font between
- -- a minimum and maximum size. The 'fontStrikeOut' and 'fontUnderline'
- -- members are always 'False'. (see also 'getFontVariants').
- getFontDefs :: FontName -> FontSize -> FontSize -> IO [FontDef]
- getFontDefs name min max
-   = do fm <- getFontVariants name min max
-        return (concat (map toFontDef (fmToList fm)))
-   where
-     toFontDef ((weight,style),sizes)
-       = [FontDef name size weight style False False | size <- sizes]
- 
- {--------------------------------------------------------------------
-   
- --------------------------------------------------------------------}
--- 31,33 ----