dist-install\build\Graphics\Win32\GDI\Pen.hs

    {-# LINE 1 "libraries\\Win32\\Graphics\\Win32\\GDI\\Pen.hsc" #-}

    {-# LINE 2 "libraries\\Win32\\Graphics\\Win32\\GDI\\Pen.hsc" #-}
    {-# LANGUAGE Safe #-}

    {-# LINE 6 "libraries\\Win32\\Graphics\\Win32\\GDI\\Pen.hsc" #-}
    -----------------------------------------------------------------------------
    -- |
    -- Module      :  Graphics.Win32.GDI.Pen
    -- Copyright   :  (c) Alastair Reid, 1997-2003
    -- License     :  BSD-style (see the file libraries/base/LICENSE)
    --
    -- Maintainer  :  Esa Ilari Vuokko <ei@vuokko.info>
    -- Stability   :  provisional
    -- Portability :  portable
    --
    -- A collection of FFI declarations for interfacing with Win32.
    --
    -----------------------------------------------------------------------------

    module Graphics.Win32.GDI.Pen where

    import System.Win32.Types
    import Graphics.Win32.GDI.Types

    #include "windows_cconv.h"

    {-# LINE 28 "libraries\\Win32\\Graphics\\Win32\\GDI\\Pen.hsc" #-}

    ----------------------------------------------------------------
    -- Stock Objects
    ----------------------------------------------------------------

    type StockPen   = INT

    wHITE_PEN     :: StockPen
    wHITE_PEN     =  6
    bLACK_PEN     :: StockPen
    bLACK_PEN     =  7
    nULL_PEN      :: StockPen
    nULL_PEN      =  8

    {-# LINE 40 "libraries\\Win32\\Graphics\\Win32\\GDI\\Pen.hsc" #-}

    getStockPen :: StockPen -> IO HPEN
    getStockPen stockpen =
      failIfNull "GetStockPen" $ c_GetStockPen stockpen
    foreign import WINDOWS_CCONV unsafe "windows.h GetStockObject"
      c_GetStockPen :: StockPen -> IO HPEN

    deletePen :: HPEN -> IO ()
    deletePen pen =
      failIfFalse_ "DeletePen" $ c_DeletePen pen
    foreign import WINDOWS_CCONV unsafe "windows.h DeleteObject"
      c_DeletePen :: HPEN -> IO Bool

    ----------------------------------------------------------------
    -- Creating pens
    ----------------------------------------------------------------

    type PenStyle   = INT

    pS_SOLID              :: PenStyle
    pS_SOLID              =  0
    pS_DASH               :: PenStyle
    pS_DASH               =  1
    pS_DOT                :: PenStyle
    pS_DOT                =  2
    pS_DASHDOT            :: PenStyle
    pS_DASHDOT            =  3
    pS_DASHDOTDOT         :: PenStyle
    pS_DASHDOTDOT         =  4
    pS_NULL               :: PenStyle
    pS_NULL               =  5
    pS_INSIDEFRAME        :: PenStyle
    pS_INSIDEFRAME        =  6
    pS_USERSTYLE          :: PenStyle
    pS_USERSTYLE          =  7
    pS_ALTERNATE          :: PenStyle
    pS_ALTERNATE          =  8
    pS_STYLE_MASK         :: PenStyle
    pS_STYLE_MASK         =  15

    {-# LINE 71 "libraries\\Win32\\Graphics\\Win32\\GDI\\Pen.hsc" #-}

    pS_ENDCAP_ROUND       :: PenStyle
    pS_ENDCAP_ROUND       =  0
    pS_ENDCAP_SQUARE      :: PenStyle
    pS_ENDCAP_SQUARE      =  256
    pS_ENDCAP_FLAT        :: PenStyle
    pS_ENDCAP_FLAT        =  512
    pS_ENDCAP_MASK        :: PenStyle
    pS_ENDCAP_MASK        =  3840

    {-# LINE 78 "libraries\\Win32\\Graphics\\Win32\\GDI\\Pen.hsc" #-}

    pS_JOIN_ROUND         :: PenStyle
    pS_JOIN_ROUND         =  0
    pS_JOIN_BEVEL         :: PenStyle
    pS_JOIN_BEVEL         =  4096
    pS_JOIN_MITER         :: PenStyle
    pS_JOIN_MITER         =  8192

    {-# LINE 84 "libraries\\Win32\\Graphics\\Win32\\GDI\\Pen.hsc" #-}
    -- , pS_JOIN_MASK         = PS_JOIN_MASK
    {-
    If PS_JOIN_MASK is not defined with your GNU Windows32 header files,
    you'll have to define it.
    -}

    pS_COSMETIC           :: PenStyle
    pS_COSMETIC           =  0
    pS_GEOMETRIC          :: PenStyle
    pS_GEOMETRIC          =  65536
    pS_TYPE_MASK          :: PenStyle
    pS_TYPE_MASK          =  983040

    {-# LINE 95 "libraries\\Win32\\Graphics\\Win32\\GDI\\Pen.hsc" #-}

    createPen :: PenStyle -> INT -> COLORREF -> IO HPEN
    createPen style n color =
      failIfNull "CreatePen" $ c_CreatePen style n color
    foreign import WINDOWS_CCONV unsafe "windows.h CreatePen"
      c_CreatePen :: PenStyle -> INT -> COLORREF -> IO HPEN

    -- Not very well supported on Win'95
    -- %fun NullHANDLE ExtCreatePen :: PenStyle -> INT -> LOGBRUSH -> [StyleBit] -> IO HPEN

    -- ToDo: CreatePenIndirect

    ----------------------------------------------------------------
    -- End
    ----------------------------------------------------------------