{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) -} module GI.Pango.Objects.Renderer ( -- * Exported types Renderer(..) , RendererK , toRenderer , noRenderer , -- * Methods -- ** rendererActivate RendererActivateMethodInfo , rendererActivate , -- ** rendererDeactivate RendererDeactivateMethodInfo , rendererDeactivate , -- ** rendererDrawErrorUnderline RendererDrawErrorUnderlineMethodInfo , rendererDrawErrorUnderline , -- ** rendererDrawGlyph RendererDrawGlyphMethodInfo , rendererDrawGlyph , -- ** rendererDrawGlyphItem RendererDrawGlyphItemMethodInfo , rendererDrawGlyphItem , -- ** rendererDrawGlyphs RendererDrawGlyphsMethodInfo , rendererDrawGlyphs , -- ** rendererDrawLayout RendererDrawLayoutMethodInfo , rendererDrawLayout , -- ** rendererDrawLayoutLine RendererDrawLayoutLineMethodInfo , rendererDrawLayoutLine , -- ** rendererDrawRectangle RendererDrawRectangleMethodInfo , rendererDrawRectangle , -- ** rendererDrawTrapezoid RendererDrawTrapezoidMethodInfo , rendererDrawTrapezoid , -- ** rendererGetAlpha RendererGetAlphaMethodInfo , rendererGetAlpha , -- ** rendererGetColor RendererGetColorMethodInfo , rendererGetColor , -- ** rendererGetLayout RendererGetLayoutMethodInfo , rendererGetLayout , -- ** rendererGetLayoutLine RendererGetLayoutLineMethodInfo , rendererGetLayoutLine , -- ** rendererGetMatrix RendererGetMatrixMethodInfo , rendererGetMatrix , -- ** rendererPartChanged RendererPartChangedMethodInfo , rendererPartChanged , -- ** rendererSetAlpha RendererSetAlphaMethodInfo , rendererSetAlpha , -- ** rendererSetColor RendererSetColorMethodInfo , rendererSetColor , -- ** rendererSetMatrix RendererSetMatrixMethodInfo , rendererSetMatrix , ) where import Prelude () import Data.GI.Base.ShortPrelude import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map import GI.Pango.Types import GI.Pango.Callbacks import qualified GI.GObject as GObject newtype Renderer = Renderer (ForeignPtr Renderer) foreign import ccall "pango_renderer_get_type" c_pango_renderer_get_type :: IO GType type instance ParentTypes Renderer = RendererParentTypes type RendererParentTypes = '[GObject.Object] instance GObject Renderer where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_pango_renderer_get_type class GObject o => RendererK o instance (GObject o, IsDescendantOf Renderer o) => RendererK o toRenderer :: RendererK o => o -> IO Renderer toRenderer = unsafeCastTo Renderer noRenderer :: Maybe Renderer noRenderer = Nothing type family ResolveRendererMethod (t :: Symbol) (o :: *) :: * where ResolveRendererMethod "activate" o = RendererActivateMethodInfo ResolveRendererMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo ResolveRendererMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo ResolveRendererMethod "deactivate" o = RendererDeactivateMethodInfo ResolveRendererMethod "drawErrorUnderline" o = RendererDrawErrorUnderlineMethodInfo ResolveRendererMethod "drawGlyph" o = RendererDrawGlyphMethodInfo ResolveRendererMethod "drawGlyphItem" o = RendererDrawGlyphItemMethodInfo ResolveRendererMethod "drawGlyphs" o = RendererDrawGlyphsMethodInfo ResolveRendererMethod "drawLayout" o = RendererDrawLayoutMethodInfo ResolveRendererMethod "drawLayoutLine" o = RendererDrawLayoutLineMethodInfo ResolveRendererMethod "drawRectangle" o = RendererDrawRectangleMethodInfo ResolveRendererMethod "drawTrapezoid" o = RendererDrawTrapezoidMethodInfo ResolveRendererMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo ResolveRendererMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo ResolveRendererMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo ResolveRendererMethod "notify" o = GObject.ObjectNotifyMethodInfo ResolveRendererMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo ResolveRendererMethod "partChanged" o = RendererPartChangedMethodInfo ResolveRendererMethod "ref" o = GObject.ObjectRefMethodInfo ResolveRendererMethod "refSink" o = GObject.ObjectRefSinkMethodInfo ResolveRendererMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo ResolveRendererMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo ResolveRendererMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo ResolveRendererMethod "stealData" o = GObject.ObjectStealDataMethodInfo ResolveRendererMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo ResolveRendererMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo ResolveRendererMethod "unref" o = GObject.ObjectUnrefMethodInfo ResolveRendererMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo ResolveRendererMethod "getAlpha" o = RendererGetAlphaMethodInfo ResolveRendererMethod "getColor" o = RendererGetColorMethodInfo ResolveRendererMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveRendererMethod "getLayout" o = RendererGetLayoutMethodInfo ResolveRendererMethod "getLayoutLine" o = RendererGetLayoutLineMethodInfo ResolveRendererMethod "getMatrix" o = RendererGetMatrixMethodInfo ResolveRendererMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo ResolveRendererMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo ResolveRendererMethod "setAlpha" o = RendererSetAlphaMethodInfo ResolveRendererMethod "setColor" o = RendererSetColorMethodInfo ResolveRendererMethod "setData" o = GObject.ObjectSetDataMethodInfo ResolveRendererMethod "setMatrix" o = RendererSetMatrixMethodInfo ResolveRendererMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo ResolveRendererMethod l o = MethodResolutionFailed l o instance (info ~ ResolveRendererMethod t Renderer, MethodInfo info Renderer p) => IsLabelProxy t (Renderer -> p) where fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) #if MIN_VERSION_base(4,9,0) instance (info ~ ResolveRendererMethod t Renderer, MethodInfo info Renderer p) => IsLabel t (Renderer -> p) where fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) #endif type instance AttributeList Renderer = RendererAttributeList type RendererAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList Renderer = RendererSignalList type RendererSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Renderer::activate -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "pango_renderer_activate" pango_renderer_activate :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" IO () rendererActivate :: (MonadIO m, RendererK a) => a -- _obj -> m () -- result rendererActivate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj pango_renderer_activate _obj' touchManagedPtr _obj return () data RendererActivateMethodInfo instance (signature ~ (m ()), MonadIO m, RendererK a) => MethodInfo RendererActivateMethodInfo a signature where overloadedMethod _ = rendererActivate -- method Renderer::deactivate -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "pango_renderer_deactivate" pango_renderer_deactivate :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" IO () rendererDeactivate :: (MonadIO m, RendererK a) => a -- _obj -> m () -- result rendererDeactivate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj pango_renderer_deactivate _obj' touchManagedPtr _obj return () data RendererDeactivateMethodInfo instance (signature ~ (m ()), MonadIO m, RendererK a) => MethodInfo RendererDeactivateMethodInfo a signature where overloadedMethod _ = rendererDeactivate -- method Renderer::draw_error_underline -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "pango_renderer_draw_error_underline" pango_renderer_draw_error_underline :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 Int32 -> -- width : TBasicType TInt32 Int32 -> -- height : TBasicType TInt32 IO () rendererDrawErrorUnderline :: (MonadIO m, RendererK a) => a -- _obj -> Int32 -- x -> Int32 -- y -> Int32 -- width -> Int32 -- height -> m () -- result rendererDrawErrorUnderline _obj x y width height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj pango_renderer_draw_error_underline _obj' x y width height touchManagedPtr _obj return () data RendererDrawErrorUnderlineMethodInfo instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, RendererK a) => MethodInfo RendererDrawErrorUnderlineMethodInfo a signature where overloadedMethod _ = rendererDrawErrorUnderline -- method Renderer::draw_glyph -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyph", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "pango_renderer_draw_glyph" pango_renderer_draw_glyph :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" Ptr Font -> -- font : TInterface "Pango" "Font" Word32 -> -- glyph : TBasicType TUInt32 CDouble -> -- x : TBasicType TDouble CDouble -> -- y : TBasicType TDouble IO () rendererDrawGlyph :: (MonadIO m, RendererK a, FontK b) => a -- _obj -> b -- font -> Word32 -- glyph -> Double -- x -> Double -- y -> m () -- result rendererDrawGlyph _obj font glyph x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let font' = unsafeManagedPtrCastPtr font let x' = realToFrac x let y' = realToFrac y pango_renderer_draw_glyph _obj' font' glyph x' y' touchManagedPtr _obj touchManagedPtr font return () data RendererDrawGlyphMethodInfo instance (signature ~ (b -> Word32 -> Double -> Double -> m ()), MonadIO m, RendererK a, FontK b) => MethodInfo RendererDrawGlyphMethodInfo a signature where overloadedMethod _ = rendererDrawGlyph -- method Renderer::draw_glyph_item -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "pango_renderer_draw_glyph_item" pango_renderer_draw_glyph_item :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" CString -> -- text : TBasicType TUTF8 Ptr GlyphItem -> -- glyph_item : TInterface "Pango" "GlyphItem" Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 IO () rendererDrawGlyphItem :: (MonadIO m, RendererK a) => a -- _obj -> Maybe (T.Text) -- text -> GlyphItem -- glyphItem -> Int32 -- x -> Int32 -- y -> m () -- result rendererDrawGlyphItem _obj text glyphItem x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeText <- case text of Nothing -> return nullPtr Just jText -> do jText' <- textToCString jText return jText' let glyphItem' = unsafeManagedPtrGetPtr glyphItem pango_renderer_draw_glyph_item _obj' maybeText glyphItem' x y touchManagedPtr _obj touchManagedPtr glyphItem freeMem maybeText return () data RendererDrawGlyphItemMethodInfo instance (signature ~ (Maybe (T.Text) -> GlyphItem -> Int32 -> Int32 -> m ()), MonadIO m, RendererK a) => MethodInfo RendererDrawGlyphItemMethodInfo a signature where overloadedMethod _ = rendererDrawGlyphItem -- method Renderer::draw_glyphs -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "pango_renderer_draw_glyphs" pango_renderer_draw_glyphs :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" Ptr Font -> -- font : TInterface "Pango" "Font" Ptr GlyphString -> -- glyphs : TInterface "Pango" "GlyphString" Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 IO () rendererDrawGlyphs :: (MonadIO m, RendererK a, FontK b) => a -- _obj -> b -- font -> GlyphString -- glyphs -> Int32 -- x -> Int32 -- y -> m () -- result rendererDrawGlyphs _obj font glyphs x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let font' = unsafeManagedPtrCastPtr font let glyphs' = unsafeManagedPtrGetPtr glyphs pango_renderer_draw_glyphs _obj' font' glyphs' x y touchManagedPtr _obj touchManagedPtr font touchManagedPtr glyphs return () data RendererDrawGlyphsMethodInfo instance (signature ~ (b -> GlyphString -> Int32 -> Int32 -> m ()), MonadIO m, RendererK a, FontK b) => MethodInfo RendererDrawGlyphsMethodInfo a signature where overloadedMethod _ = rendererDrawGlyphs -- method Renderer::draw_layout -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "pango_renderer_draw_layout" pango_renderer_draw_layout :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" Ptr Layout -> -- layout : TInterface "Pango" "Layout" Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 IO () rendererDrawLayout :: (MonadIO m, RendererK a, LayoutK b) => a -- _obj -> b -- layout -> Int32 -- x -> Int32 -- y -> m () -- result rendererDrawLayout _obj layout x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let layout' = unsafeManagedPtrCastPtr layout pango_renderer_draw_layout _obj' layout' x y touchManagedPtr _obj touchManagedPtr layout return () data RendererDrawLayoutMethodInfo instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, RendererK a, LayoutK b) => MethodInfo RendererDrawLayoutMethodInfo a signature where overloadedMethod _ = rendererDrawLayout -- method Renderer::draw_layout_line -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "pango_renderer_draw_layout_line" pango_renderer_draw_layout_line :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" Ptr LayoutLine -> -- line : TInterface "Pango" "LayoutLine" Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 IO () rendererDrawLayoutLine :: (MonadIO m, RendererK a) => a -- _obj -> LayoutLine -- line -> Int32 -- x -> Int32 -- y -> m () -- result rendererDrawLayoutLine _obj line x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let line' = unsafeManagedPtrGetPtr line pango_renderer_draw_layout_line _obj' line' x y touchManagedPtr _obj touchManagedPtr line return () data RendererDrawLayoutLineMethodInfo instance (signature ~ (LayoutLine -> Int32 -> Int32 -> m ()), MonadIO m, RendererK a) => MethodInfo RendererDrawLayoutLineMethodInfo a signature where overloadedMethod _ = rendererDrawLayoutLine -- method Renderer::draw_rectangle -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "pango_renderer_draw_rectangle" pango_renderer_draw_rectangle :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" CUInt -> -- part : TInterface "Pango" "RenderPart" Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 Int32 -> -- width : TBasicType TInt32 Int32 -> -- height : TBasicType TInt32 IO () rendererDrawRectangle :: (MonadIO m, RendererK a) => a -- _obj -> RenderPart -- part -> Int32 -- x -> Int32 -- y -> Int32 -- width -> Int32 -- height -> m () -- result rendererDrawRectangle _obj part x y width height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let part' = (fromIntegral . fromEnum) part pango_renderer_draw_rectangle _obj' part' x y width height touchManagedPtr _obj return () data RendererDrawRectangleMethodInfo instance (signature ~ (RenderPart -> Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, RendererK a) => MethodInfo RendererDrawRectangleMethodInfo a signature where overloadedMethod _ = rendererDrawRectangle -- method Renderer::draw_trapezoid -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1_", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x11", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x21", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y2", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x12", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x22", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "pango_renderer_draw_trapezoid" pango_renderer_draw_trapezoid :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" CUInt -> -- part : TInterface "Pango" "RenderPart" CDouble -> -- y1_ : TBasicType TDouble CDouble -> -- x11 : TBasicType TDouble CDouble -> -- x21 : TBasicType TDouble CDouble -> -- y2 : TBasicType TDouble CDouble -> -- x12 : TBasicType TDouble CDouble -> -- x22 : TBasicType TDouble IO () rendererDrawTrapezoid :: (MonadIO m, RendererK a) => a -- _obj -> RenderPart -- part -> Double -- y1 -> Double -- x11 -> Double -- x21 -> Double -- y2 -> Double -- x12 -> Double -- x22 -> m () -- result rendererDrawTrapezoid _obj part y1 x11 x21 y2 x12 x22 = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let part' = (fromIntegral . fromEnum) part let y1' = realToFrac y1 let x11' = realToFrac x11 let x21' = realToFrac x21 let y2' = realToFrac y2 let x12' = realToFrac x12 let x22' = realToFrac x22 pango_renderer_draw_trapezoid _obj' part' y1' x11' x21' y2' x12' x22' touchManagedPtr _obj return () data RendererDrawTrapezoidMethodInfo instance (signature ~ (RenderPart -> Double -> Double -> Double -> Double -> Double -> Double -> m ()), MonadIO m, RendererK a) => MethodInfo RendererDrawTrapezoidMethodInfo a signature where overloadedMethod _ = rendererDrawTrapezoid -- method Renderer::get_alpha -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUInt16 -- throws : False -- Skip return : False foreign import ccall "pango_renderer_get_alpha" pango_renderer_get_alpha :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" CUInt -> -- part : TInterface "Pango" "RenderPart" IO Word16 rendererGetAlpha :: (MonadIO m, RendererK a) => a -- _obj -> RenderPart -- part -> m Word16 -- result rendererGetAlpha _obj part = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let part' = (fromIntegral . fromEnum) part result <- pango_renderer_get_alpha _obj' part' touchManagedPtr _obj return result data RendererGetAlphaMethodInfo instance (signature ~ (RenderPart -> m Word16), MonadIO m, RendererK a) => MethodInfo RendererGetAlphaMethodInfo a signature where overloadedMethod _ = rendererGetAlpha -- method Renderer::get_color -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Pango" "Color" -- throws : False -- Skip return : False foreign import ccall "pango_renderer_get_color" pango_renderer_get_color :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" CUInt -> -- part : TInterface "Pango" "RenderPart" IO (Ptr Color) rendererGetColor :: (MonadIO m, RendererK a) => a -- _obj -> RenderPart -- part -> m Color -- result rendererGetColor _obj part = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let part' = (fromIntegral . fromEnum) part result <- pango_renderer_get_color _obj' part' checkUnexpectedReturnNULL "pango_renderer_get_color" result result' <- (newBoxed Color) result touchManagedPtr _obj return result' data RendererGetColorMethodInfo instance (signature ~ (RenderPart -> m Color), MonadIO m, RendererK a) => MethodInfo RendererGetColorMethodInfo a signature where overloadedMethod _ = rendererGetColor -- method Renderer::get_layout -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Pango" "Layout" -- throws : False -- Skip return : False foreign import ccall "pango_renderer_get_layout" pango_renderer_get_layout :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" IO (Ptr Layout) rendererGetLayout :: (MonadIO m, RendererK a) => a -- _obj -> m Layout -- result rendererGetLayout _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- pango_renderer_get_layout _obj' checkUnexpectedReturnNULL "pango_renderer_get_layout" result result' <- (newObject Layout) result touchManagedPtr _obj return result' data RendererGetLayoutMethodInfo instance (signature ~ (m Layout), MonadIO m, RendererK a) => MethodInfo RendererGetLayoutMethodInfo a signature where overloadedMethod _ = rendererGetLayout -- method Renderer::get_layout_line -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Pango" "LayoutLine" -- throws : False -- Skip return : False foreign import ccall "pango_renderer_get_layout_line" pango_renderer_get_layout_line :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" IO (Ptr LayoutLine) rendererGetLayoutLine :: (MonadIO m, RendererK a) => a -- _obj -> m LayoutLine -- result rendererGetLayoutLine _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- pango_renderer_get_layout_line _obj' checkUnexpectedReturnNULL "pango_renderer_get_layout_line" result result' <- (newBoxed LayoutLine) result touchManagedPtr _obj return result' data RendererGetLayoutLineMethodInfo instance (signature ~ (m LayoutLine), MonadIO m, RendererK a) => MethodInfo RendererGetLayoutLineMethodInfo a signature where overloadedMethod _ = rendererGetLayoutLine -- method Renderer::get_matrix -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "Pango" "Matrix" -- throws : False -- Skip return : False foreign import ccall "pango_renderer_get_matrix" pango_renderer_get_matrix :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" IO (Ptr Matrix) rendererGetMatrix :: (MonadIO m, RendererK a) => a -- _obj -> m Matrix -- result rendererGetMatrix _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- pango_renderer_get_matrix _obj' checkUnexpectedReturnNULL "pango_renderer_get_matrix" result result' <- (newBoxed Matrix) result touchManagedPtr _obj return result' data RendererGetMatrixMethodInfo instance (signature ~ (m Matrix), MonadIO m, RendererK a) => MethodInfo RendererGetMatrixMethodInfo a signature where overloadedMethod _ = rendererGetMatrix -- method Renderer::part_changed -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "pango_renderer_part_changed" pango_renderer_part_changed :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" CUInt -> -- part : TInterface "Pango" "RenderPart" IO () rendererPartChanged :: (MonadIO m, RendererK a) => a -- _obj -> RenderPart -- part -> m () -- result rendererPartChanged _obj part = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let part' = (fromIntegral . fromEnum) part pango_renderer_part_changed _obj' part' touchManagedPtr _obj return () data RendererPartChangedMethodInfo instance (signature ~ (RenderPart -> m ()), MonadIO m, RendererK a) => MethodInfo RendererPartChangedMethodInfo a signature where overloadedMethod _ = rendererPartChanged -- method Renderer::set_alpha -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "pango_renderer_set_alpha" pango_renderer_set_alpha :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" CUInt -> -- part : TInterface "Pango" "RenderPart" Word16 -> -- alpha : TBasicType TUInt16 IO () rendererSetAlpha :: (MonadIO m, RendererK a) => a -- _obj -> RenderPart -- part -> Word16 -- alpha -> m () -- result rendererSetAlpha _obj part alpha = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let part' = (fromIntegral . fromEnum) part pango_renderer_set_alpha _obj' part' alpha touchManagedPtr _obj return () data RendererSetAlphaMethodInfo instance (signature ~ (RenderPart -> Word16 -> m ()), MonadIO m, RendererK a) => MethodInfo RendererSetAlphaMethodInfo a signature where overloadedMethod _ = rendererSetAlpha -- method Renderer::set_color -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "pango_renderer_set_color" pango_renderer_set_color :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" CUInt -> -- part : TInterface "Pango" "RenderPart" Ptr Color -> -- color : TInterface "Pango" "Color" IO () rendererSetColor :: (MonadIO m, RendererK a) => a -- _obj -> RenderPart -- part -> Maybe (Color) -- color -> m () -- result rendererSetColor _obj part color = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let part' = (fromIntegral . fromEnum) part maybeColor <- case color of Nothing -> return nullPtr Just jColor -> do let jColor' = unsafeManagedPtrGetPtr jColor return jColor' pango_renderer_set_color _obj' part' maybeColor touchManagedPtr _obj whenJust color touchManagedPtr return () data RendererSetColorMethodInfo instance (signature ~ (RenderPart -> Maybe (Color) -> m ()), MonadIO m, RendererK a) => MethodInfo RendererSetColorMethodInfo a signature where overloadedMethod _ = rendererSetColor -- method Renderer::set_matrix -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "pango_renderer_set_matrix" pango_renderer_set_matrix :: Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer" Ptr Matrix -> -- matrix : TInterface "Pango" "Matrix" IO () rendererSetMatrix :: (MonadIO m, RendererK a) => a -- _obj -> Maybe (Matrix) -- matrix -> m () -- result rendererSetMatrix _obj matrix = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeMatrix <- case matrix of Nothing -> return nullPtr Just jMatrix -> do let jMatrix' = unsafeManagedPtrGetPtr jMatrix return jMatrix' pango_renderer_set_matrix _obj' maybeMatrix touchManagedPtr _obj whenJust matrix touchManagedPtr return () data RendererSetMatrixMethodInfo instance (signature ~ (Maybe (Matrix) -> m ()), MonadIO m, RendererK a) => MethodInfo RendererSetMatrixMethodInfo a signature where overloadedMethod _ = rendererSetMatrix