[Gtk2hs-commit] (main branch): Make functions in Cairo runnable in both, Render and IO monad. Add a function to set font options.

[Axel S. <si...@co...>]

Sat Jan 31 06:17:35 EST 2009  Axel Simon <Axe...@en...>
  * Make functions in Cairo runnable in both, Render and IO monad. Add a function to set font options.

    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 134
    +  , setFontOptions
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 992
    +     MonadIO m =>
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 998
    -  -> Render ()
    +  -> m ()
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1014
    +     MonadIO m =>
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1021
    -  -> Render ()
    +  -> m ()
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1039
    +     MonadIO m =>
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1042
    -  -> Render ()
    +  -> m ()
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1048
    +     MonadIO m =>
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1050
    -  -> Render Matrix
    +  -> m Matrix
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1056
    +     MonadIO m =>
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1059
    -  -> Render ()
    +  -> m ()
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1065
    +     MonadIO m =>
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1067
    -  -> Render Extend
    +  -> m Extend
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1073
    +     MonadIO m =>
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1076
    -  -> Render ()
    +  -> m ()
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1082
    +     MonadIO m =>
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1084
    -  -> Render Filter
    +  -> m Filter
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1229
    +-- | Sets a set of custom font rendering options. Rendering options are
    +-- derived by merging these options with the options derived from underlying
    +-- surface; if the value in @options@ has a default value (like
    +-- 'AntialiasDefault'), then the value from the surface is used.
    +--
    +setFontOptions :: FontOptions -> Render ()
    +setFontOptions = liftRender1 Internal.setFontOptions
    +[_^I_][_$_]
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1289
    -fontOptionsCreate :: Render FontOptions
    +fontOptionsCreate :: MonadIO m => m FontOptions
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1295
    +     MonadIO m => [_$_]
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1297
    -  -> Render FontOptions
    +  -> m FontOptions
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1305
    +     MonadIO m => [_$_]
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1308
    -  -> Render ()
    +  -> m ()
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1314
    -fontOptionsHash :: FontOptions -> Render Int
    +fontOptionsHash :: MonadIO m => FontOptions -> m Int
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1319
    -fontOptionsEqual :: FontOptions -> FontOptions -> Render Bool
    +fontOptionsEqual :: MonadIO m => FontOptions -> FontOptions -> m Bool
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1325
    -fontOptionsSetAntialias :: FontOptions -> Antialias -> Render ()
    +fontOptionsSetAntialias :: MonadIO m => FontOptions -> Antialias -> m ()
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1330
    -fontOptionsGetAntialias :: FontOptions -> Render Antialias
    +fontOptionsGetAntialias :: MonadIO m => FontOptions -> m Antialias
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1338
    -fontOptionsSetSubpixelOrder :: FontOptions -> SubpixelOrder-> Render ()
    +fontOptionsSetSubpixelOrder :: MonadIO m => FontOptions -> SubpixelOrder-> m ()
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1344
    -fontOptionsGetSubpixelOrder :: FontOptions -> Render SubpixelOrder
    +fontOptionsGetSubpixelOrder :: MonadIO m => FontOptions -> m SubpixelOrder
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1352
    -fontOptionsSetHintStyle :: FontOptions -> HintStyle -> Render ()
    +fontOptionsSetHintStyle :: MonadIO m => FontOptions -> HintStyle -> m ()
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1358
    -fontOptionsGetHintStyle :: FontOptions -> Render HintStyle
    +fontOptionsGetHintStyle :: MonadIO m => FontOptions -> m HintStyle
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1365
    -fontOptionsSetHintMetrics :: FontOptions -> HintMetrics -> Render ()
    +fontOptionsSetHintMetrics :: MonadIO m => FontOptions -> HintMetrics -> m ()
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1371
    -fontOptionsGetHintMetrics :: FontOptions -> Render HintMetrics
    +fontOptionsGetHintMetrics :: MonadIO m => FontOptions -> m HintMetrics
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1462
    -surfaceFinish :: (MonadIO m) => Surface -> m ()
    +surfaceFinish :: MonadIO m => Surface -> m ()
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1475
    -surfaceFlush :: Surface -> Render ()
    +surfaceFlush :: MonadIO m => Surface -> m ()
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1493
    -surfaceMarkDirty :: Surface -> Render ()
    +surfaceMarkDirty :: MonadIO m => Surface -> m ()
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1501
    +     MonadIO m => [_$_]
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1507
    -  -> Render ()
    +  -> m ()
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1522
    +     MonadIO m => [_$_]
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1526
    -  -> Render ()
    +  -> m ()
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1571
    -imageSurfaceGetWidth :: Surface -> Render Int
    +imageSurfaceGetWidth :: MonadIO m => Surface -> m Int
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1576
    -imageSurfaceGetHeight :: Surface -> Render Int
    +imageSurfaceGetHeight :: MonadIO m => Surface -> m Int
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1583
    -imageSurfaceGetStride :: Surface -> Render Int
    +imageSurfaceGetStride :: MonadIO m => Surface -> m Int
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1634
    -pdfSurfaceSetSize :: Surface -> Double -> Double -> Render ()
    +pdfSurfaceSetSize :: MonadIO m => Surface -> Double -> Double -> m ()
    hunk ./cairo/Graphics/Rendering/Cairo.hs.pp 1697
    -psSurfaceSetSize :: Surface -> Double -> Double -> Render ()
    +psSurfaceSetSize :: MonadIO m => Surface -> Double -> Double -> m ()
    hunk ./cairo/Graphics/Rendering/Cairo/Internal/Drawing/Text.chs 29
    +{#fun set_font_options as setFontOptions { unCairo `Cairo',  withFontOptions* `FontOptions' } -> `()'#}