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