gi-gtksource-0.3.18.14: GI/GtkSource/Objects/GutterRenderer.hs

{- |
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.GtkSource.Objects.GutterRenderer
    ( 

-- * Exported types
    GutterRenderer(..)                      ,
    GutterRendererK                         ,
    toGutterRenderer                        ,
    noGutterRenderer                        ,


 -- * Methods
-- ** gutterRendererActivate
    GutterRendererActivateMethodInfo        ,
    gutterRendererActivate                  ,


-- ** gutterRendererBegin
    GutterRendererBeginMethodInfo           ,
    gutterRendererBegin                     ,


-- ** gutterRendererDraw
    GutterRendererDrawMethodInfo            ,
    gutterRendererDraw                      ,


-- ** gutterRendererEnd
    GutterRendererEndMethodInfo             ,
    gutterRendererEnd                       ,


-- ** gutterRendererGetAlignment
    GutterRendererGetAlignmentMethodInfo    ,
    gutterRendererGetAlignment              ,


-- ** gutterRendererGetAlignmentMode
    GutterRendererGetAlignmentModeMethodInfo,
    gutterRendererGetAlignmentMode          ,


-- ** gutterRendererGetBackground
    GutterRendererGetBackgroundMethodInfo   ,
    gutterRendererGetBackground             ,


-- ** gutterRendererGetPadding
    GutterRendererGetPaddingMethodInfo      ,
    gutterRendererGetPadding                ,


-- ** gutterRendererGetSize
    GutterRendererGetSizeMethodInfo         ,
    gutterRendererGetSize                   ,


-- ** gutterRendererGetView
    GutterRendererGetViewMethodInfo         ,
    gutterRendererGetView                   ,


-- ** gutterRendererGetVisible
    GutterRendererGetVisibleMethodInfo      ,
    gutterRendererGetVisible                ,


-- ** gutterRendererGetWindowType
    GutterRendererGetWindowTypeMethodInfo   ,
    gutterRendererGetWindowType             ,


-- ** gutterRendererQueryActivatable
    GutterRendererQueryActivatableMethodInfo,
    gutterRendererQueryActivatable          ,


-- ** gutterRendererQueryData
    GutterRendererQueryDataMethodInfo       ,
    gutterRendererQueryData                 ,


-- ** gutterRendererQueryTooltip
    GutterRendererQueryTooltipMethodInfo    ,
    gutterRendererQueryTooltip              ,


-- ** gutterRendererQueueDraw
    GutterRendererQueueDrawMethodInfo       ,
    gutterRendererQueueDraw                 ,


-- ** gutterRendererSetAlignment
    GutterRendererSetAlignmentMethodInfo    ,
    gutterRendererSetAlignment              ,


-- ** gutterRendererSetAlignmentMode
    GutterRendererSetAlignmentModeMethodInfo,
    gutterRendererSetAlignmentMode          ,


-- ** gutterRendererSetBackground
    GutterRendererSetBackgroundMethodInfo   ,
    gutterRendererSetBackground             ,


-- ** gutterRendererSetPadding
    GutterRendererSetPaddingMethodInfo      ,
    gutterRendererSetPadding                ,


-- ** gutterRendererSetSize
    GutterRendererSetSizeMethodInfo         ,
    gutterRendererSetSize                   ,


-- ** gutterRendererSetVisible
    GutterRendererSetVisibleMethodInfo      ,
    gutterRendererSetVisible                ,




 -- * Properties
-- ** AlignmentMode
    GutterRendererAlignmentModePropertyInfo ,
    constructGutterRendererAlignmentMode    ,
    getGutterRendererAlignmentMode          ,
    gutterRendererAlignmentMode             ,
    setGutterRendererAlignmentMode          ,


-- ** BackgroundRgba
    GutterRendererBackgroundRgbaPropertyInfo,
    clearGutterRendererBackgroundRgba       ,
    constructGutterRendererBackgroundRgba   ,
    getGutterRendererBackgroundRgba         ,
    gutterRendererBackgroundRgba            ,
    setGutterRendererBackgroundRgba         ,


-- ** BackgroundSet
    GutterRendererBackgroundSetPropertyInfo ,
    constructGutterRendererBackgroundSet    ,
    getGutterRendererBackgroundSet          ,
    gutterRendererBackgroundSet             ,
    setGutterRendererBackgroundSet          ,


-- ** Size
    GutterRendererSizePropertyInfo          ,
    constructGutterRendererSize             ,
    getGutterRendererSize                   ,
    gutterRendererSize                      ,
    setGutterRendererSize                   ,


-- ** View
    GutterRendererViewPropertyInfo          ,
    getGutterRendererView                   ,
    gutterRendererView                      ,


-- ** Visible
    GutterRendererVisiblePropertyInfo       ,
    constructGutterRendererVisible          ,
    getGutterRendererVisible                ,
    gutterRendererVisible                   ,
    setGutterRendererVisible                ,


-- ** WindowType
    GutterRendererWindowTypePropertyInfo    ,
    getGutterRendererWindowType             ,
    gutterRendererWindowType                ,


-- ** Xalign
    GutterRendererXalignPropertyInfo        ,
    constructGutterRendererXalign           ,
    getGutterRendererXalign                 ,
    gutterRendererXalign                    ,
    setGutterRendererXalign                 ,


-- ** Xpad
    GutterRendererXpadPropertyInfo          ,
    constructGutterRendererXpad             ,
    getGutterRendererXpad                   ,
    gutterRendererXpad                      ,
    setGutterRendererXpad                   ,


-- ** Yalign
    GutterRendererYalignPropertyInfo        ,
    constructGutterRendererYalign           ,
    getGutterRendererYalign                 ,
    gutterRendererYalign                    ,
    setGutterRendererYalign                 ,


-- ** Ypad
    GutterRendererYpadPropertyInfo          ,
    constructGutterRendererYpad             ,
    getGutterRendererYpad                   ,
    gutterRendererYpad                      ,
    setGutterRendererYpad                   ,




 -- * Signals
-- ** Activate
    GutterRendererActivateCallback          ,
    GutterRendererActivateCallbackC         ,
    GutterRendererActivateSignalInfo        ,
    afterGutterRendererActivate             ,
    gutterRendererActivateCallbackWrapper   ,
    gutterRendererActivateClosure           ,
    mkGutterRendererActivateCallback        ,
    noGutterRendererActivateCallback        ,
    onGutterRendererActivate                ,


-- ** QueryActivatable
    GutterRendererQueryActivatableCallback  ,
    GutterRendererQueryActivatableCallbackC ,
    GutterRendererQueryActivatableSignalInfo,
    afterGutterRendererQueryActivatable     ,
    gutterRendererQueryActivatableCallbackWrapper,
    gutterRendererQueryActivatableClosure   ,
    mkGutterRendererQueryActivatableCallback,
    noGutterRendererQueryActivatableCallback,
    onGutterRendererQueryActivatable        ,


-- ** QueryData
    GutterRendererQueryDataCallback         ,
    GutterRendererQueryDataCallbackC        ,
    GutterRendererQueryDataSignalInfo       ,
    afterGutterRendererQueryData            ,
    gutterRendererQueryDataCallbackWrapper  ,
    gutterRendererQueryDataClosure          ,
    mkGutterRendererQueryDataCallback       ,
    noGutterRendererQueryDataCallback       ,
    onGutterRendererQueryData               ,


-- ** QueryTooltip
    GutterRendererQueryTooltipCallback      ,
    GutterRendererQueryTooltipCallbackC     ,
    GutterRendererQueryTooltipSignalInfo    ,
    afterGutterRendererQueryTooltip         ,
    gutterRendererQueryTooltipCallbackWrapper,
    gutterRendererQueryTooltipClosure       ,
    mkGutterRendererQueryTooltipCallback    ,
    noGutterRendererQueryTooltipCallback    ,
    onGutterRendererQueryTooltip            ,


-- ** QueueDraw
    GutterRendererQueueDrawCallback         ,
    GutterRendererQueueDrawCallbackC        ,
    GutterRendererQueueDrawSignalInfo       ,
    afterGutterRendererQueueDraw            ,
    gutterRendererQueueDrawCallbackWrapper  ,
    gutterRendererQueueDrawClosure          ,
    mkGutterRendererQueueDrawCallback       ,
    noGutterRendererQueueDrawCallback       ,
    onGutterRendererQueueDraw               ,




    ) where

import Data.GI.Base.ShortPrelude

import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map

import GI.GtkSource.Types
import GI.GtkSource.Callbacks
import qualified GI.GObject as GObject
import qualified GI.Gdk as Gdk
import qualified GI.Gtk as Gtk
import qualified GI.Cairo as Cairo

newtype GutterRenderer = GutterRenderer (ForeignPtr GutterRenderer)
foreign import ccall "gtk_source_gutter_renderer_get_type"
    c_gtk_source_gutter_renderer_get_type :: IO GType

type instance ParentTypes GutterRenderer = GutterRendererParentTypes
type GutterRendererParentTypes = '[GObject.Object]

instance GObject GutterRenderer where
    gobjectIsInitiallyUnowned _ = True
    gobjectType _ = c_gtk_source_gutter_renderer_get_type
    

class GObject o => GutterRendererK o
instance (GObject o, IsDescendantOf GutterRenderer o) => GutterRendererK o

toGutterRenderer :: GutterRendererK o => o -> IO GutterRenderer
toGutterRenderer = unsafeCastTo GutterRenderer

noGutterRenderer :: Maybe GutterRenderer
noGutterRenderer = Nothing

type family ResolveGutterRendererMethod (t :: Symbol) (o :: *) :: * where
    ResolveGutterRendererMethod "activate" o = GutterRendererActivateMethodInfo
    ResolveGutterRendererMethod "begin" o = GutterRendererBeginMethodInfo
    ResolveGutterRendererMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
    ResolveGutterRendererMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
    ResolveGutterRendererMethod "draw" o = GutterRendererDrawMethodInfo
    ResolveGutterRendererMethod "end" o = GutterRendererEndMethodInfo
    ResolveGutterRendererMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
    ResolveGutterRendererMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
    ResolveGutterRendererMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
    ResolveGutterRendererMethod "notify" o = GObject.ObjectNotifyMethodInfo
    ResolveGutterRendererMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
    ResolveGutterRendererMethod "queryActivatable" o = GutterRendererQueryActivatableMethodInfo
    ResolveGutterRendererMethod "queryData" o = GutterRendererQueryDataMethodInfo
    ResolveGutterRendererMethod "queryTooltip" o = GutterRendererQueryTooltipMethodInfo
    ResolveGutterRendererMethod "queueDraw" o = GutterRendererQueueDrawMethodInfo
    ResolveGutterRendererMethod "ref" o = GObject.ObjectRefMethodInfo
    ResolveGutterRendererMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
    ResolveGutterRendererMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
    ResolveGutterRendererMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
    ResolveGutterRendererMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
    ResolveGutterRendererMethod "stealData" o = GObject.ObjectStealDataMethodInfo
    ResolveGutterRendererMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
    ResolveGutterRendererMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
    ResolveGutterRendererMethod "unref" o = GObject.ObjectUnrefMethodInfo
    ResolveGutterRendererMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
    ResolveGutterRendererMethod "getAlignment" o = GutterRendererGetAlignmentMethodInfo
    ResolveGutterRendererMethod "getAlignmentMode" o = GutterRendererGetAlignmentModeMethodInfo
    ResolveGutterRendererMethod "getBackground" o = GutterRendererGetBackgroundMethodInfo
    ResolveGutterRendererMethod "getData" o = GObject.ObjectGetDataMethodInfo
    ResolveGutterRendererMethod "getPadding" o = GutterRendererGetPaddingMethodInfo
    ResolveGutterRendererMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
    ResolveGutterRendererMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
    ResolveGutterRendererMethod "getSize" o = GutterRendererGetSizeMethodInfo
    ResolveGutterRendererMethod "getView" o = GutterRendererGetViewMethodInfo
    ResolveGutterRendererMethod "getVisible" o = GutterRendererGetVisibleMethodInfo
    ResolveGutterRendererMethod "getWindowType" o = GutterRendererGetWindowTypeMethodInfo
    ResolveGutterRendererMethod "setAlignment" o = GutterRendererSetAlignmentMethodInfo
    ResolveGutterRendererMethod "setAlignmentMode" o = GutterRendererSetAlignmentModeMethodInfo
    ResolveGutterRendererMethod "setBackground" o = GutterRendererSetBackgroundMethodInfo
    ResolveGutterRendererMethod "setData" o = GObject.ObjectSetDataMethodInfo
    ResolveGutterRendererMethod "setPadding" o = GutterRendererSetPaddingMethodInfo
    ResolveGutterRendererMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
    ResolveGutterRendererMethod "setSize" o = GutterRendererSetSizeMethodInfo
    ResolveGutterRendererMethod "setVisible" o = GutterRendererSetVisibleMethodInfo
    ResolveGutterRendererMethod l o = MethodResolutionFailed l o

instance (info ~ ResolveGutterRendererMethod t GutterRenderer, MethodInfo info GutterRenderer p) => IsLabelProxy t (GutterRenderer -> p) where
    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)

#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveGutterRendererMethod t GutterRenderer, MethodInfo info GutterRenderer p) => IsLabel t (GutterRenderer -> p) where
    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif

-- signal GutterRenderer::activate
type GutterRendererActivateCallback =
    Gtk.TextIter ->
    Gdk.Rectangle ->
    Gdk.Event ->
    IO ()

noGutterRendererActivateCallback :: Maybe GutterRendererActivateCallback
noGutterRendererActivateCallback = Nothing

type GutterRendererActivateCallbackC =
    Ptr () ->                               -- object
    Ptr Gtk.TextIter ->
    Ptr Gdk.Rectangle ->
    Ptr Gdk.Event ->
    Ptr () ->                               -- user_data
    IO ()

foreign import ccall "wrapper"
    mkGutterRendererActivateCallback :: GutterRendererActivateCallbackC -> IO (FunPtr GutterRendererActivateCallbackC)

gutterRendererActivateClosure :: GutterRendererActivateCallback -> IO Closure
gutterRendererActivateClosure cb = newCClosure =<< mkGutterRendererActivateCallback wrapped
    where wrapped = gutterRendererActivateCallbackWrapper cb

gutterRendererActivateCallbackWrapper ::
    GutterRendererActivateCallback ->
    Ptr () ->
    Ptr Gtk.TextIter ->
    Ptr Gdk.Rectangle ->
    Ptr Gdk.Event ->
    Ptr () ->
    IO ()
gutterRendererActivateCallbackWrapper _cb _ iter area event _ = do
    iter' <- (newBoxed Gtk.TextIter) iter
    area' <- (newBoxed Gdk.Rectangle) area
    event' <- (newBoxed Gdk.Event) event
    _cb  iter' area' event'

onGutterRendererActivate :: (GObject a, MonadIO m) => a -> GutterRendererActivateCallback -> m SignalHandlerId
onGutterRendererActivate obj cb = liftIO $ connectGutterRendererActivate obj cb SignalConnectBefore
afterGutterRendererActivate :: (GObject a, MonadIO m) => a -> GutterRendererActivateCallback -> m SignalHandlerId
afterGutterRendererActivate obj cb = connectGutterRendererActivate obj cb SignalConnectAfter

connectGutterRendererActivate :: (GObject a, MonadIO m) =>
                                 a -> GutterRendererActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectGutterRendererActivate obj cb after = liftIO $ do
    cb' <- mkGutterRendererActivateCallback (gutterRendererActivateCallbackWrapper cb)
    connectSignalFunPtr obj "activate" cb' after

-- signal GutterRenderer::query-activatable
type GutterRendererQueryActivatableCallback =
    Gtk.TextIter ->
    Gdk.Rectangle ->
    Gdk.Event ->
    IO Bool

noGutterRendererQueryActivatableCallback :: Maybe GutterRendererQueryActivatableCallback
noGutterRendererQueryActivatableCallback = Nothing

type GutterRendererQueryActivatableCallbackC =
    Ptr () ->                               -- object
    Ptr Gtk.TextIter ->
    Ptr Gdk.Rectangle ->
    Ptr Gdk.Event ->
    Ptr () ->                               -- user_data
    IO CInt

foreign import ccall "wrapper"
    mkGutterRendererQueryActivatableCallback :: GutterRendererQueryActivatableCallbackC -> IO (FunPtr GutterRendererQueryActivatableCallbackC)

gutterRendererQueryActivatableClosure :: GutterRendererQueryActivatableCallback -> IO Closure
gutterRendererQueryActivatableClosure cb = newCClosure =<< mkGutterRendererQueryActivatableCallback wrapped
    where wrapped = gutterRendererQueryActivatableCallbackWrapper cb

gutterRendererQueryActivatableCallbackWrapper ::
    GutterRendererQueryActivatableCallback ->
    Ptr () ->
    Ptr Gtk.TextIter ->
    Ptr Gdk.Rectangle ->
    Ptr Gdk.Event ->
    Ptr () ->
    IO CInt
gutterRendererQueryActivatableCallbackWrapper _cb _ iter area event _ = do
    iter' <- (newBoxed Gtk.TextIter) iter
    area' <- (newBoxed Gdk.Rectangle) area
    event' <- (newBoxed Gdk.Event) event
    result <- _cb  iter' area' event'
    let result' = (fromIntegral . fromEnum) result
    return result'

onGutterRendererQueryActivatable :: (GObject a, MonadIO m) => a -> GutterRendererQueryActivatableCallback -> m SignalHandlerId
onGutterRendererQueryActivatable obj cb = liftIO $ connectGutterRendererQueryActivatable obj cb SignalConnectBefore
afterGutterRendererQueryActivatable :: (GObject a, MonadIO m) => a -> GutterRendererQueryActivatableCallback -> m SignalHandlerId
afterGutterRendererQueryActivatable obj cb = connectGutterRendererQueryActivatable obj cb SignalConnectAfter

connectGutterRendererQueryActivatable :: (GObject a, MonadIO m) =>
                                         a -> GutterRendererQueryActivatableCallback -> SignalConnectMode -> m SignalHandlerId
connectGutterRendererQueryActivatable obj cb after = liftIO $ do
    cb' <- mkGutterRendererQueryActivatableCallback (gutterRendererQueryActivatableCallbackWrapper cb)
    connectSignalFunPtr obj "query-activatable" cb' after

-- signal GutterRenderer::query-data
type GutterRendererQueryDataCallback =
    Gtk.TextIter ->
    Gtk.TextIter ->
    [GutterRendererState] ->
    IO ()

noGutterRendererQueryDataCallback :: Maybe GutterRendererQueryDataCallback
noGutterRendererQueryDataCallback = Nothing

type GutterRendererQueryDataCallbackC =
    Ptr () ->                               -- object
    Ptr Gtk.TextIter ->
    Ptr Gtk.TextIter ->
    CUInt ->
    Ptr () ->                               -- user_data
    IO ()

foreign import ccall "wrapper"
    mkGutterRendererQueryDataCallback :: GutterRendererQueryDataCallbackC -> IO (FunPtr GutterRendererQueryDataCallbackC)

gutterRendererQueryDataClosure :: GutterRendererQueryDataCallback -> IO Closure
gutterRendererQueryDataClosure cb = newCClosure =<< mkGutterRendererQueryDataCallback wrapped
    where wrapped = gutterRendererQueryDataCallbackWrapper cb

gutterRendererQueryDataCallbackWrapper ::
    GutterRendererQueryDataCallback ->
    Ptr () ->
    Ptr Gtk.TextIter ->
    Ptr Gtk.TextIter ->
    CUInt ->
    Ptr () ->
    IO ()
gutterRendererQueryDataCallbackWrapper _cb _ start end state _ = do
    start' <- (newBoxed Gtk.TextIter) start
    end' <- (newBoxed Gtk.TextIter) end
    let state' = wordToGFlags state
    _cb  start' end' state'

onGutterRendererQueryData :: (GObject a, MonadIO m) => a -> GutterRendererQueryDataCallback -> m SignalHandlerId
onGutterRendererQueryData obj cb = liftIO $ connectGutterRendererQueryData obj cb SignalConnectBefore
afterGutterRendererQueryData :: (GObject a, MonadIO m) => a -> GutterRendererQueryDataCallback -> m SignalHandlerId
afterGutterRendererQueryData obj cb = connectGutterRendererQueryData obj cb SignalConnectAfter

connectGutterRendererQueryData :: (GObject a, MonadIO m) =>
                                  a -> GutterRendererQueryDataCallback -> SignalConnectMode -> m SignalHandlerId
connectGutterRendererQueryData obj cb after = liftIO $ do
    cb' <- mkGutterRendererQueryDataCallback (gutterRendererQueryDataCallbackWrapper cb)
    connectSignalFunPtr obj "query-data" cb' after

-- signal GutterRenderer::query-tooltip
type GutterRendererQueryTooltipCallback =
    Gtk.TextIter ->
    Gdk.Rectangle ->
    Int32 ->
    Int32 ->
    Gtk.Tooltip ->
    IO Bool

noGutterRendererQueryTooltipCallback :: Maybe GutterRendererQueryTooltipCallback
noGutterRendererQueryTooltipCallback = Nothing

type GutterRendererQueryTooltipCallbackC =
    Ptr () ->                               -- object
    Ptr Gtk.TextIter ->
    Ptr Gdk.Rectangle ->
    Int32 ->
    Int32 ->
    Ptr Gtk.Tooltip ->
    Ptr () ->                               -- user_data
    IO CInt

foreign import ccall "wrapper"
    mkGutterRendererQueryTooltipCallback :: GutterRendererQueryTooltipCallbackC -> IO (FunPtr GutterRendererQueryTooltipCallbackC)

gutterRendererQueryTooltipClosure :: GutterRendererQueryTooltipCallback -> IO Closure
gutterRendererQueryTooltipClosure cb = newCClosure =<< mkGutterRendererQueryTooltipCallback wrapped
    where wrapped = gutterRendererQueryTooltipCallbackWrapper cb

gutterRendererQueryTooltipCallbackWrapper ::
    GutterRendererQueryTooltipCallback ->
    Ptr () ->
    Ptr Gtk.TextIter ->
    Ptr Gdk.Rectangle ->
    Int32 ->
    Int32 ->
    Ptr Gtk.Tooltip ->
    Ptr () ->
    IO CInt
gutterRendererQueryTooltipCallbackWrapper _cb _ iter area x y tooltip _ = do
    iter' <- (newBoxed Gtk.TextIter) iter
    area' <- (newBoxed Gdk.Rectangle) area
    tooltip' <- (newObject Gtk.Tooltip) tooltip
    result <- _cb  iter' area' x y tooltip'
    let result' = (fromIntegral . fromEnum) result
    return result'

onGutterRendererQueryTooltip :: (GObject a, MonadIO m) => a -> GutterRendererQueryTooltipCallback -> m SignalHandlerId
onGutterRendererQueryTooltip obj cb = liftIO $ connectGutterRendererQueryTooltip obj cb SignalConnectBefore
afterGutterRendererQueryTooltip :: (GObject a, MonadIO m) => a -> GutterRendererQueryTooltipCallback -> m SignalHandlerId
afterGutterRendererQueryTooltip obj cb = connectGutterRendererQueryTooltip obj cb SignalConnectAfter

connectGutterRendererQueryTooltip :: (GObject a, MonadIO m) =>
                                     a -> GutterRendererQueryTooltipCallback -> SignalConnectMode -> m SignalHandlerId
connectGutterRendererQueryTooltip obj cb after = liftIO $ do
    cb' <- mkGutterRendererQueryTooltipCallback (gutterRendererQueryTooltipCallbackWrapper cb)
    connectSignalFunPtr obj "query-tooltip" cb' after

-- signal GutterRenderer::queue-draw
type GutterRendererQueueDrawCallback =
    IO ()

noGutterRendererQueueDrawCallback :: Maybe GutterRendererQueueDrawCallback
noGutterRendererQueueDrawCallback = Nothing

type GutterRendererQueueDrawCallbackC =
    Ptr () ->                               -- object
    Ptr () ->                               -- user_data
    IO ()

foreign import ccall "wrapper"
    mkGutterRendererQueueDrawCallback :: GutterRendererQueueDrawCallbackC -> IO (FunPtr GutterRendererQueueDrawCallbackC)

gutterRendererQueueDrawClosure :: GutterRendererQueueDrawCallback -> IO Closure
gutterRendererQueueDrawClosure cb = newCClosure =<< mkGutterRendererQueueDrawCallback wrapped
    where wrapped = gutterRendererQueueDrawCallbackWrapper cb

gutterRendererQueueDrawCallbackWrapper ::
    GutterRendererQueueDrawCallback ->
    Ptr () ->
    Ptr () ->
    IO ()
gutterRendererQueueDrawCallbackWrapper _cb _ _ = do
    _cb 

onGutterRendererQueueDraw :: (GObject a, MonadIO m) => a -> GutterRendererQueueDrawCallback -> m SignalHandlerId
onGutterRendererQueueDraw obj cb = liftIO $ connectGutterRendererQueueDraw obj cb SignalConnectBefore
afterGutterRendererQueueDraw :: (GObject a, MonadIO m) => a -> GutterRendererQueueDrawCallback -> m SignalHandlerId
afterGutterRendererQueueDraw obj cb = connectGutterRendererQueueDraw obj cb SignalConnectAfter

connectGutterRendererQueueDraw :: (GObject a, MonadIO m) =>
                                  a -> GutterRendererQueueDrawCallback -> SignalConnectMode -> m SignalHandlerId
connectGutterRendererQueueDraw obj cb after = liftIO $ do
    cb' <- mkGutterRendererQueueDrawCallback (gutterRendererQueueDrawCallbackWrapper cb)
    connectSignalFunPtr obj "queue-draw" cb' after

-- VVV Prop "alignment-mode"
   -- Type: TInterface "GtkSource" "GutterRendererAlignmentMode"
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
   -- Nullable: (Just False,Just False)

getGutterRendererAlignmentMode :: (MonadIO m, GutterRendererK o) => o -> m GutterRendererAlignmentMode
getGutterRendererAlignmentMode obj = liftIO $ getObjectPropertyEnum obj "alignment-mode"

setGutterRendererAlignmentMode :: (MonadIO m, GutterRendererK o) => o -> GutterRendererAlignmentMode -> m ()
setGutterRendererAlignmentMode obj val = liftIO $ setObjectPropertyEnum obj "alignment-mode" val

constructGutterRendererAlignmentMode :: GutterRendererAlignmentMode -> IO ([Char], GValue)
constructGutterRendererAlignmentMode val = constructObjectPropertyEnum "alignment-mode" val

data GutterRendererAlignmentModePropertyInfo
instance AttrInfo GutterRendererAlignmentModePropertyInfo where
    type AttrAllowedOps GutterRendererAlignmentModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrSetTypeConstraint GutterRendererAlignmentModePropertyInfo = (~) GutterRendererAlignmentMode
    type AttrBaseTypeConstraint GutterRendererAlignmentModePropertyInfo = GutterRendererK
    type AttrGetType GutterRendererAlignmentModePropertyInfo = GutterRendererAlignmentMode
    type AttrLabel GutterRendererAlignmentModePropertyInfo = "alignment-mode"
    attrGet _ = getGutterRendererAlignmentMode
    attrSet _ = setGutterRendererAlignmentMode
    attrConstruct _ = constructGutterRendererAlignmentMode
    attrClear _ = undefined

-- VVV Prop "background-rgba"
   -- Type: TInterface "Gdk" "RGBA"
   -- Flags: [PropertyReadable,PropertyWritable]
   -- Nullable: (Nothing,Nothing)

getGutterRendererBackgroundRgba :: (MonadIO m, GutterRendererK o) => o -> m (Maybe Gdk.RGBA)
getGutterRendererBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "background-rgba" Gdk.RGBA

setGutterRendererBackgroundRgba :: (MonadIO m, GutterRendererK o) => o -> Gdk.RGBA -> m ()
setGutterRendererBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "background-rgba" (Just val)

constructGutterRendererBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue)
constructGutterRendererBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" (Just val)

clearGutterRendererBackgroundRgba :: (MonadIO m, GutterRendererK o) => o -> m ()
clearGutterRendererBackgroundRgba obj = liftIO $ setObjectPropertyBoxed obj "background-rgba" (Nothing :: Maybe Gdk.RGBA)

data GutterRendererBackgroundRgbaPropertyInfo
instance AttrInfo GutterRendererBackgroundRgbaPropertyInfo where
    type AttrAllowedOps GutterRendererBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint GutterRendererBackgroundRgbaPropertyInfo = (~) Gdk.RGBA
    type AttrBaseTypeConstraint GutterRendererBackgroundRgbaPropertyInfo = GutterRendererK
    type AttrGetType GutterRendererBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA)
    type AttrLabel GutterRendererBackgroundRgbaPropertyInfo = "background-rgba"
    attrGet _ = getGutterRendererBackgroundRgba
    attrSet _ = setGutterRendererBackgroundRgba
    attrConstruct _ = constructGutterRendererBackgroundRgba
    attrClear _ = clearGutterRendererBackgroundRgba

-- VVV Prop "background-set"
   -- Type: TBasicType TBoolean
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
   -- Nullable: (Nothing,Nothing)

getGutterRendererBackgroundSet :: (MonadIO m, GutterRendererK o) => o -> m Bool
getGutterRendererBackgroundSet obj = liftIO $ getObjectPropertyBool obj "background-set"

setGutterRendererBackgroundSet :: (MonadIO m, GutterRendererK o) => o -> Bool -> m ()
setGutterRendererBackgroundSet obj val = liftIO $ setObjectPropertyBool obj "background-set" val

constructGutterRendererBackgroundSet :: Bool -> IO ([Char], GValue)
constructGutterRendererBackgroundSet val = constructObjectPropertyBool "background-set" val

data GutterRendererBackgroundSetPropertyInfo
instance AttrInfo GutterRendererBackgroundSetPropertyInfo where
    type AttrAllowedOps GutterRendererBackgroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrSetTypeConstraint GutterRendererBackgroundSetPropertyInfo = (~) Bool
    type AttrBaseTypeConstraint GutterRendererBackgroundSetPropertyInfo = GutterRendererK
    type AttrGetType GutterRendererBackgroundSetPropertyInfo = Bool
    type AttrLabel GutterRendererBackgroundSetPropertyInfo = "background-set"
    attrGet _ = getGutterRendererBackgroundSet
    attrSet _ = setGutterRendererBackgroundSet
    attrConstruct _ = constructGutterRendererBackgroundSet
    attrClear _ = undefined

-- VVV Prop "size"
   -- Type: TBasicType TInt
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
   -- Nullable: (Just False,Just False)

getGutterRendererSize :: (MonadIO m, GutterRendererK o) => o -> m Int32
getGutterRendererSize obj = liftIO $ getObjectPropertyInt32 obj "size"

setGutterRendererSize :: (MonadIO m, GutterRendererK o) => o -> Int32 -> m ()
setGutterRendererSize obj val = liftIO $ setObjectPropertyInt32 obj "size" val

constructGutterRendererSize :: Int32 -> IO ([Char], GValue)
constructGutterRendererSize val = constructObjectPropertyInt32 "size" val

data GutterRendererSizePropertyInfo
instance AttrInfo GutterRendererSizePropertyInfo where
    type AttrAllowedOps GutterRendererSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrSetTypeConstraint GutterRendererSizePropertyInfo = (~) Int32
    type AttrBaseTypeConstraint GutterRendererSizePropertyInfo = GutterRendererK
    type AttrGetType GutterRendererSizePropertyInfo = Int32
    type AttrLabel GutterRendererSizePropertyInfo = "size"
    attrGet _ = getGutterRendererSize
    attrSet _ = setGutterRendererSize
    attrConstruct _ = constructGutterRendererSize
    attrClear _ = undefined

-- VVV Prop "view"
   -- Type: TInterface "Gtk" "TextView"
   -- Flags: [PropertyReadable]
   -- Nullable: (Just False,Nothing)

getGutterRendererView :: (MonadIO m, GutterRendererK o) => o -> m Gtk.TextView
getGutterRendererView obj = liftIO $ checkUnexpectedNothing "getGutterRendererView" $ getObjectPropertyObject obj "view" Gtk.TextView

data GutterRendererViewPropertyInfo
instance AttrInfo GutterRendererViewPropertyInfo where
    type AttrAllowedOps GutterRendererViewPropertyInfo = '[ 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint GutterRendererViewPropertyInfo = (~) ()
    type AttrBaseTypeConstraint GutterRendererViewPropertyInfo = GutterRendererK
    type AttrGetType GutterRendererViewPropertyInfo = Gtk.TextView
    type AttrLabel GutterRendererViewPropertyInfo = "view"
    attrGet _ = getGutterRendererView
    attrSet _ = undefined
    attrConstruct _ = undefined
    attrClear _ = undefined

-- VVV Prop "visible"
   -- Type: TBasicType TBoolean
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
   -- Nullable: (Just False,Just False)

getGutterRendererVisible :: (MonadIO m, GutterRendererK o) => o -> m Bool
getGutterRendererVisible obj = liftIO $ getObjectPropertyBool obj "visible"

setGutterRendererVisible :: (MonadIO m, GutterRendererK o) => o -> Bool -> m ()
setGutterRendererVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val

constructGutterRendererVisible :: Bool -> IO ([Char], GValue)
constructGutterRendererVisible val = constructObjectPropertyBool "visible" val

data GutterRendererVisiblePropertyInfo
instance AttrInfo GutterRendererVisiblePropertyInfo where
    type AttrAllowedOps GutterRendererVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrSetTypeConstraint GutterRendererVisiblePropertyInfo = (~) Bool
    type AttrBaseTypeConstraint GutterRendererVisiblePropertyInfo = GutterRendererK
    type AttrGetType GutterRendererVisiblePropertyInfo = Bool
    type AttrLabel GutterRendererVisiblePropertyInfo = "visible"
    attrGet _ = getGutterRendererVisible
    attrSet _ = setGutterRendererVisible
    attrConstruct _ = constructGutterRendererVisible
    attrClear _ = undefined

-- VVV Prop "window-type"
   -- Type: TInterface "Gtk" "TextWindowType"
   -- Flags: [PropertyReadable]
   -- Nullable: (Just False,Nothing)

getGutterRendererWindowType :: (MonadIO m, GutterRendererK o) => o -> m Gtk.TextWindowType
getGutterRendererWindowType obj = liftIO $ getObjectPropertyEnum obj "window-type"

data GutterRendererWindowTypePropertyInfo
instance AttrInfo GutterRendererWindowTypePropertyInfo where
    type AttrAllowedOps GutterRendererWindowTypePropertyInfo = '[ 'AttrGet]
    type AttrSetTypeConstraint GutterRendererWindowTypePropertyInfo = (~) ()
    type AttrBaseTypeConstraint GutterRendererWindowTypePropertyInfo = GutterRendererK
    type AttrGetType GutterRendererWindowTypePropertyInfo = Gtk.TextWindowType
    type AttrLabel GutterRendererWindowTypePropertyInfo = "window-type"
    attrGet _ = getGutterRendererWindowType
    attrSet _ = undefined
    attrConstruct _ = undefined
    attrClear _ = undefined

-- VVV Prop "xalign"
   -- Type: TBasicType TFloat
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
   -- Nullable: (Nothing,Nothing)

getGutterRendererXalign :: (MonadIO m, GutterRendererK o) => o -> m Float
getGutterRendererXalign obj = liftIO $ getObjectPropertyFloat obj "xalign"

setGutterRendererXalign :: (MonadIO m, GutterRendererK o) => o -> Float -> m ()
setGutterRendererXalign obj val = liftIO $ setObjectPropertyFloat obj "xalign" val

constructGutterRendererXalign :: Float -> IO ([Char], GValue)
constructGutterRendererXalign val = constructObjectPropertyFloat "xalign" val

data GutterRendererXalignPropertyInfo
instance AttrInfo GutterRendererXalignPropertyInfo where
    type AttrAllowedOps GutterRendererXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrSetTypeConstraint GutterRendererXalignPropertyInfo = (~) Float
    type AttrBaseTypeConstraint GutterRendererXalignPropertyInfo = GutterRendererK
    type AttrGetType GutterRendererXalignPropertyInfo = Float
    type AttrLabel GutterRendererXalignPropertyInfo = "xalign"
    attrGet _ = getGutterRendererXalign
    attrSet _ = setGutterRendererXalign
    attrConstruct _ = constructGutterRendererXalign
    attrClear _ = undefined

-- VVV Prop "xpad"
   -- Type: TBasicType TInt
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
   -- Nullable: (Nothing,Nothing)

getGutterRendererXpad :: (MonadIO m, GutterRendererK o) => o -> m Int32
getGutterRendererXpad obj = liftIO $ getObjectPropertyInt32 obj "xpad"

setGutterRendererXpad :: (MonadIO m, GutterRendererK o) => o -> Int32 -> m ()
setGutterRendererXpad obj val = liftIO $ setObjectPropertyInt32 obj "xpad" val

constructGutterRendererXpad :: Int32 -> IO ([Char], GValue)
constructGutterRendererXpad val = constructObjectPropertyInt32 "xpad" val

data GutterRendererXpadPropertyInfo
instance AttrInfo GutterRendererXpadPropertyInfo where
    type AttrAllowedOps GutterRendererXpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrSetTypeConstraint GutterRendererXpadPropertyInfo = (~) Int32
    type AttrBaseTypeConstraint GutterRendererXpadPropertyInfo = GutterRendererK
    type AttrGetType GutterRendererXpadPropertyInfo = Int32
    type AttrLabel GutterRendererXpadPropertyInfo = "xpad"
    attrGet _ = getGutterRendererXpad
    attrSet _ = setGutterRendererXpad
    attrConstruct _ = constructGutterRendererXpad
    attrClear _ = undefined

-- VVV Prop "yalign"
   -- Type: TBasicType TFloat
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
   -- Nullable: (Nothing,Nothing)

getGutterRendererYalign :: (MonadIO m, GutterRendererK o) => o -> m Float
getGutterRendererYalign obj = liftIO $ getObjectPropertyFloat obj "yalign"

setGutterRendererYalign :: (MonadIO m, GutterRendererK o) => o -> Float -> m ()
setGutterRendererYalign obj val = liftIO $ setObjectPropertyFloat obj "yalign" val

constructGutterRendererYalign :: Float -> IO ([Char], GValue)
constructGutterRendererYalign val = constructObjectPropertyFloat "yalign" val

data GutterRendererYalignPropertyInfo
instance AttrInfo GutterRendererYalignPropertyInfo where
    type AttrAllowedOps GutterRendererYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrSetTypeConstraint GutterRendererYalignPropertyInfo = (~) Float
    type AttrBaseTypeConstraint GutterRendererYalignPropertyInfo = GutterRendererK
    type AttrGetType GutterRendererYalignPropertyInfo = Float
    type AttrLabel GutterRendererYalignPropertyInfo = "yalign"
    attrGet _ = getGutterRendererYalign
    attrSet _ = setGutterRendererYalign
    attrConstruct _ = constructGutterRendererYalign
    attrClear _ = undefined

-- VVV Prop "ypad"
   -- Type: TBasicType TInt
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
   -- Nullable: (Nothing,Nothing)

getGutterRendererYpad :: (MonadIO m, GutterRendererK o) => o -> m Int32
getGutterRendererYpad obj = liftIO $ getObjectPropertyInt32 obj "ypad"

setGutterRendererYpad :: (MonadIO m, GutterRendererK o) => o -> Int32 -> m ()
setGutterRendererYpad obj val = liftIO $ setObjectPropertyInt32 obj "ypad" val

constructGutterRendererYpad :: Int32 -> IO ([Char], GValue)
constructGutterRendererYpad val = constructObjectPropertyInt32 "ypad" val

data GutterRendererYpadPropertyInfo
instance AttrInfo GutterRendererYpadPropertyInfo where
    type AttrAllowedOps GutterRendererYpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrSetTypeConstraint GutterRendererYpadPropertyInfo = (~) Int32
    type AttrBaseTypeConstraint GutterRendererYpadPropertyInfo = GutterRendererK
    type AttrGetType GutterRendererYpadPropertyInfo = Int32
    type AttrLabel GutterRendererYpadPropertyInfo = "ypad"
    attrGet _ = getGutterRendererYpad
    attrSet _ = setGutterRendererYpad
    attrConstruct _ = constructGutterRendererYpad
    attrClear _ = undefined

type instance AttributeList GutterRenderer = GutterRendererAttributeList
type GutterRendererAttributeList = ('[ '("alignmentMode", GutterRendererAlignmentModePropertyInfo), '("backgroundRgba", GutterRendererBackgroundRgbaPropertyInfo), '("backgroundSet", GutterRendererBackgroundSetPropertyInfo), '("size", GutterRendererSizePropertyInfo), '("view", GutterRendererViewPropertyInfo), '("visible", GutterRendererVisiblePropertyInfo), '("windowType", GutterRendererWindowTypePropertyInfo), '("xalign", GutterRendererXalignPropertyInfo), '("xpad", GutterRendererXpadPropertyInfo), '("yalign", GutterRendererYalignPropertyInfo), '("ypad", GutterRendererYpadPropertyInfo)] :: [(Symbol, *)])

gutterRendererAlignmentMode :: AttrLabelProxy "alignmentMode"
gutterRendererAlignmentMode = AttrLabelProxy

gutterRendererBackgroundRgba :: AttrLabelProxy "backgroundRgba"
gutterRendererBackgroundRgba = AttrLabelProxy

gutterRendererBackgroundSet :: AttrLabelProxy "backgroundSet"
gutterRendererBackgroundSet = AttrLabelProxy

gutterRendererSize :: AttrLabelProxy "size"
gutterRendererSize = AttrLabelProxy

gutterRendererView :: AttrLabelProxy "view"
gutterRendererView = AttrLabelProxy

gutterRendererVisible :: AttrLabelProxy "visible"
gutterRendererVisible = AttrLabelProxy

gutterRendererWindowType :: AttrLabelProxy "windowType"
gutterRendererWindowType = AttrLabelProxy

gutterRendererXalign :: AttrLabelProxy "xalign"
gutterRendererXalign = AttrLabelProxy

gutterRendererXpad :: AttrLabelProxy "xpad"
gutterRendererXpad = AttrLabelProxy

gutterRendererYalign :: AttrLabelProxy "yalign"
gutterRendererYalign = AttrLabelProxy

gutterRendererYpad :: AttrLabelProxy "ypad"
gutterRendererYpad = AttrLabelProxy

data GutterRendererActivateSignalInfo
instance SignalInfo GutterRendererActivateSignalInfo where
    type HaskellCallbackType GutterRendererActivateSignalInfo = GutterRendererActivateCallback
    connectSignal _ = connectGutterRendererActivate

data GutterRendererQueryActivatableSignalInfo
instance SignalInfo GutterRendererQueryActivatableSignalInfo where
    type HaskellCallbackType GutterRendererQueryActivatableSignalInfo = GutterRendererQueryActivatableCallback
    connectSignal _ = connectGutterRendererQueryActivatable

data GutterRendererQueryDataSignalInfo
instance SignalInfo GutterRendererQueryDataSignalInfo where
    type HaskellCallbackType GutterRendererQueryDataSignalInfo = GutterRendererQueryDataCallback
    connectSignal _ = connectGutterRendererQueryData

data GutterRendererQueryTooltipSignalInfo
instance SignalInfo GutterRendererQueryTooltipSignalInfo where
    type HaskellCallbackType GutterRendererQueryTooltipSignalInfo = GutterRendererQueryTooltipCallback
    connectSignal _ = connectGutterRendererQueryTooltip

data GutterRendererQueueDrawSignalInfo
instance SignalInfo GutterRendererQueueDrawSignalInfo where
    type HaskellCallbackType GutterRendererQueueDrawSignalInfo = GutterRendererQueueDrawCallback
    connectSignal _ = connectGutterRendererQueueDraw

type instance SignalList GutterRenderer = GutterRendererSignalList
type GutterRendererSignalList = ('[ '("activate", GutterRendererActivateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("queryActivatable", GutterRendererQueryActivatableSignalInfo), '("queryData", GutterRendererQueryDataSignalInfo), '("queryTooltip", GutterRendererQueryTooltipSignalInfo), '("queueDraw", GutterRendererQueueDrawSignalInfo)] :: [(Symbol, *)])

-- method GutterRenderer::activate
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_activate" gtk_source_gutter_renderer_activate :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    Ptr Gtk.TextIter ->                     -- iter : TInterface "Gtk" "TextIter"
    Ptr Gdk.Rectangle ->                    -- area : TInterface "Gdk" "Rectangle"
    Ptr Gdk.Event ->                        -- event : TInterface "Gdk" "Event"
    IO ()


gutterRendererActivate ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> Gtk.TextIter                         -- iter
    -> Gdk.Rectangle                        -- area
    -> Gdk.Event                            -- event
    -> m ()                                 -- result
gutterRendererActivate _obj iter area event = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    let iter' = unsafeManagedPtrGetPtr iter
    let area' = unsafeManagedPtrGetPtr area
    let event' = unsafeManagedPtrGetPtr event
    gtk_source_gutter_renderer_activate _obj' iter' area' event'
    touchManagedPtr _obj
    touchManagedPtr iter
    touchManagedPtr area
    touchManagedPtr event
    return ()

data GutterRendererActivateMethodInfo
instance (signature ~ (Gtk.TextIter -> Gdk.Rectangle -> Gdk.Event -> m ()), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererActivateMethodInfo a signature where
    overloadedMethod _ = gutterRendererActivate

-- method GutterRenderer::begin
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_begin" gtk_source_gutter_renderer_begin :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    Ptr Cairo.Context ->                    -- cr : TInterface "cairo" "Context"
    Ptr Gdk.Rectangle ->                    -- background_area : TInterface "Gdk" "Rectangle"
    Ptr Gdk.Rectangle ->                    -- cell_area : TInterface "Gdk" "Rectangle"
    Ptr Gtk.TextIter ->                     -- start : TInterface "Gtk" "TextIter"
    Ptr Gtk.TextIter ->                     -- end : TInterface "Gtk" "TextIter"
    IO ()


gutterRendererBegin ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> Cairo.Context                        -- cr
    -> Gdk.Rectangle                        -- backgroundArea
    -> Gdk.Rectangle                        -- cellArea
    -> Gtk.TextIter                         -- start
    -> Gtk.TextIter                         -- end
    -> m ()                                 -- result
gutterRendererBegin _obj cr backgroundArea cellArea start end = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    let cr' = unsafeManagedPtrGetPtr cr
    let backgroundArea' = unsafeManagedPtrGetPtr backgroundArea
    let cellArea' = unsafeManagedPtrGetPtr cellArea
    let start' = unsafeManagedPtrGetPtr start
    let end' = unsafeManagedPtrGetPtr end
    gtk_source_gutter_renderer_begin _obj' cr' backgroundArea' cellArea' start' end'
    touchManagedPtr _obj
    touchManagedPtr cr
    touchManagedPtr backgroundArea
    touchManagedPtr cellArea
    touchManagedPtr start
    touchManagedPtr end
    return ()

data GutterRendererBeginMethodInfo
instance (signature ~ (Cairo.Context -> Gdk.Rectangle -> Gdk.Rectangle -> Gtk.TextIter -> Gtk.TextIter -> m ()), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererBeginMethodInfo a signature where
    overloadedMethod _ = gutterRendererBegin

-- method GutterRenderer::draw
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "GtkSource" "GutterRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_draw" gtk_source_gutter_renderer_draw :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    Ptr Cairo.Context ->                    -- cr : TInterface "cairo" "Context"
    Ptr Gdk.Rectangle ->                    -- background_area : TInterface "Gdk" "Rectangle"
    Ptr Gdk.Rectangle ->                    -- cell_area : TInterface "Gdk" "Rectangle"
    Ptr Gtk.TextIter ->                     -- start : TInterface "Gtk" "TextIter"
    Ptr Gtk.TextIter ->                     -- end : TInterface "Gtk" "TextIter"
    CUInt ->                                -- state : TInterface "GtkSource" "GutterRendererState"
    IO ()


gutterRendererDraw ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> Cairo.Context                        -- cr
    -> Gdk.Rectangle                        -- backgroundArea
    -> Gdk.Rectangle                        -- cellArea
    -> Gtk.TextIter                         -- start
    -> Gtk.TextIter                         -- end
    -> [GutterRendererState]                -- state
    -> m ()                                 -- result
gutterRendererDraw _obj cr backgroundArea cellArea start end state = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    let cr' = unsafeManagedPtrGetPtr cr
    let backgroundArea' = unsafeManagedPtrGetPtr backgroundArea
    let cellArea' = unsafeManagedPtrGetPtr cellArea
    let start' = unsafeManagedPtrGetPtr start
    let end' = unsafeManagedPtrGetPtr end
    let state' = gflagsToWord state
    gtk_source_gutter_renderer_draw _obj' cr' backgroundArea' cellArea' start' end' state'
    touchManagedPtr _obj
    touchManagedPtr cr
    touchManagedPtr backgroundArea
    touchManagedPtr cellArea
    touchManagedPtr start
    touchManagedPtr end
    return ()

data GutterRendererDrawMethodInfo
instance (signature ~ (Cairo.Context -> Gdk.Rectangle -> Gdk.Rectangle -> Gtk.TextIter -> Gtk.TextIter -> [GutterRendererState] -> m ()), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererDrawMethodInfo a signature where
    overloadedMethod _ = gutterRendererDraw

-- method GutterRenderer::end
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_end" gtk_source_gutter_renderer_end :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    IO ()


gutterRendererEnd ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> m ()                                 -- result
gutterRendererEnd _obj = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    gtk_source_gutter_renderer_end _obj'
    touchManagedPtr _obj
    return ()

data GutterRendererEndMethodInfo
instance (signature ~ (m ()), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererEndMethodInfo a signature where
    overloadedMethod _ = gutterRendererEnd

-- method GutterRenderer::get_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_get_alignment" gtk_source_gutter_renderer_get_alignment :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    Ptr CFloat ->                           -- xalign : TBasicType TFloat
    Ptr CFloat ->                           -- yalign : TBasicType TFloat
    IO ()


gutterRendererGetAlignment ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> m (Float,Float)                      -- result
gutterRendererGetAlignment _obj = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    xalign <- allocMem :: IO (Ptr CFloat)
    yalign <- allocMem :: IO (Ptr CFloat)
    gtk_source_gutter_renderer_get_alignment _obj' xalign yalign
    xalign' <- peek xalign
    let xalign'' = realToFrac xalign'
    yalign' <- peek yalign
    let yalign'' = realToFrac yalign'
    touchManagedPtr _obj
    freeMem xalign
    freeMem yalign
    return (xalign'', yalign'')

data GutterRendererGetAlignmentMethodInfo
instance (signature ~ (m (Float,Float)), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererGetAlignmentMethodInfo a signature where
    overloadedMethod _ = gutterRendererGetAlignment

-- method GutterRenderer::get_alignment_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface "GtkSource" "GutterRendererAlignmentMode")
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_get_alignment_mode" gtk_source_gutter_renderer_get_alignment_mode :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    IO CUInt


gutterRendererGetAlignmentMode ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> m GutterRendererAlignmentMode        -- result
gutterRendererGetAlignmentMode _obj = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    result <- gtk_source_gutter_renderer_get_alignment_mode _obj'
    let result' = (toEnum . fromIntegral) result
    touchManagedPtr _obj
    return result'

data GutterRendererGetAlignmentModeMethodInfo
instance (signature ~ (m GutterRendererAlignmentMode), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererGetAlignmentModeMethodInfo a signature where
    overloadedMethod _ = gutterRendererGetAlignmentMode

-- method GutterRenderer::get_background
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_get_background" gtk_source_gutter_renderer_get_background :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    Ptr Gdk.RGBA ->                         -- color : TInterface "Gdk" "RGBA"
    IO CInt


gutterRendererGetBackground ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> m (Bool,Gdk.RGBA)                    -- result
gutterRendererGetBackground _obj = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)
    result <- gtk_source_gutter_renderer_get_background _obj' color
    let result' = (/= 0) result
    color' <- (wrapBoxed Gdk.RGBA) color
    touchManagedPtr _obj
    return (result', color')

data GutterRendererGetBackgroundMethodInfo
instance (signature ~ (m (Bool,Gdk.RGBA)), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererGetBackgroundMethodInfo a signature where
    overloadedMethod _ = gutterRendererGetBackground

-- method GutterRenderer::get_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "ypad", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_get_padding" gtk_source_gutter_renderer_get_padding :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    Ptr Int32 ->                            -- xpad : TBasicType TInt
    Ptr Int32 ->                            -- ypad : TBasicType TInt
    IO ()


gutterRendererGetPadding ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> m (Int32,Int32)                      -- result
gutterRendererGetPadding _obj = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    xpad <- allocMem :: IO (Ptr Int32)
    ypad <- allocMem :: IO (Ptr Int32)
    gtk_source_gutter_renderer_get_padding _obj' xpad ypad
    xpad' <- peek xpad
    ypad' <- peek ypad
    touchManagedPtr _obj
    freeMem xpad
    freeMem ypad
    return (xpad', ypad')

data GutterRendererGetPaddingMethodInfo
instance (signature ~ (m (Int32,Int32)), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererGetPaddingMethodInfo a signature where
    overloadedMethod _ = gutterRendererGetPadding

-- method GutterRenderer::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TInt)
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_get_size" gtk_source_gutter_renderer_get_size :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    IO Int32


gutterRendererGetSize ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> m Int32                              -- result
gutterRendererGetSize _obj = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    result <- gtk_source_gutter_renderer_get_size _obj'
    touchManagedPtr _obj
    return result

data GutterRendererGetSizeMethodInfo
instance (signature ~ (m Int32), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererGetSizeMethodInfo a signature where
    overloadedMethod _ = gutterRendererGetSize

-- method GutterRenderer::get_view
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface "Gtk" "TextView")
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_get_view" gtk_source_gutter_renderer_get_view :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    IO (Ptr Gtk.TextView)


gutterRendererGetView ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> m Gtk.TextView                       -- result
gutterRendererGetView _obj = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    result <- gtk_source_gutter_renderer_get_view _obj'
    checkUnexpectedReturnNULL "gtk_source_gutter_renderer_get_view" result
    result' <- (newObject Gtk.TextView) result
    touchManagedPtr _obj
    return result'

data GutterRendererGetViewMethodInfo
instance (signature ~ (m Gtk.TextView), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererGetViewMethodInfo a signature where
    overloadedMethod _ = gutterRendererGetView

-- method GutterRenderer::get_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_get_visible" gtk_source_gutter_renderer_get_visible :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    IO CInt


gutterRendererGetVisible ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> m Bool                               -- result
gutterRendererGetVisible _obj = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    result <- gtk_source_gutter_renderer_get_visible _obj'
    let result' = (/= 0) result
    touchManagedPtr _obj
    return result'

data GutterRendererGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererGetVisibleMethodInfo a signature where
    overloadedMethod _ = gutterRendererGetVisible

-- method GutterRenderer::get_window_type
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface "Gtk" "TextWindowType")
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_get_window_type" gtk_source_gutter_renderer_get_window_type :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    IO CUInt


gutterRendererGetWindowType ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> m Gtk.TextWindowType                 -- result
gutterRendererGetWindowType _obj = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    result <- gtk_source_gutter_renderer_get_window_type _obj'
    let result' = (toEnum . fromIntegral) result
    touchManagedPtr _obj
    return result'

data GutterRendererGetWindowTypeMethodInfo
instance (signature ~ (m Gtk.TextWindowType), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererGetWindowTypeMethodInfo a signature where
    overloadedMethod _ = gutterRendererGetWindowType

-- method GutterRenderer::query_activatable
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_query_activatable" gtk_source_gutter_renderer_query_activatable :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    Ptr Gtk.TextIter ->                     -- iter : TInterface "Gtk" "TextIter"
    Ptr Gdk.Rectangle ->                    -- area : TInterface "Gdk" "Rectangle"
    Ptr Gdk.Event ->                        -- event : TInterface "Gdk" "Event"
    IO CInt


gutterRendererQueryActivatable ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> Gtk.TextIter                         -- iter
    -> Gdk.Rectangle                        -- area
    -> Gdk.Event                            -- event
    -> m Bool                               -- result
gutterRendererQueryActivatable _obj iter area event = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    let iter' = unsafeManagedPtrGetPtr iter
    let area' = unsafeManagedPtrGetPtr area
    let event' = unsafeManagedPtrGetPtr event
    result <- gtk_source_gutter_renderer_query_activatable _obj' iter' area' event'
    let result' = (/= 0) result
    touchManagedPtr _obj
    touchManagedPtr iter
    touchManagedPtr area
    touchManagedPtr event
    return result'

data GutterRendererQueryActivatableMethodInfo
instance (signature ~ (Gtk.TextIter -> Gdk.Rectangle -> Gdk.Event -> m Bool), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererQueryActivatableMethodInfo a signature where
    overloadedMethod _ = gutterRendererQueryActivatable

-- method GutterRenderer::query_data
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "GtkSource" "GutterRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_query_data" gtk_source_gutter_renderer_query_data :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    Ptr Gtk.TextIter ->                     -- start : TInterface "Gtk" "TextIter"
    Ptr Gtk.TextIter ->                     -- end : TInterface "Gtk" "TextIter"
    CUInt ->                                -- state : TInterface "GtkSource" "GutterRendererState"
    IO ()


gutterRendererQueryData ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> Gtk.TextIter                         -- start
    -> Gtk.TextIter                         -- end
    -> [GutterRendererState]                -- state
    -> m ()                                 -- result
gutterRendererQueryData _obj start end state = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    let start' = unsafeManagedPtrGetPtr start
    let end' = unsafeManagedPtrGetPtr end
    let state' = gflagsToWord state
    gtk_source_gutter_renderer_query_data _obj' start' end' state'
    touchManagedPtr _obj
    touchManagedPtr start
    touchManagedPtr end
    return ()

data GutterRendererQueryDataMethodInfo
instance (signature ~ (Gtk.TextIter -> Gtk.TextIter -> [GutterRendererState] -> m ()), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererQueryDataMethodInfo a signature where
    overloadedMethod _ = gutterRendererQueryData

-- method GutterRenderer::query_tooltip
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_query_tooltip" gtk_source_gutter_renderer_query_tooltip :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    Ptr Gtk.TextIter ->                     -- iter : TInterface "Gtk" "TextIter"
    Ptr Gdk.Rectangle ->                    -- area : TInterface "Gdk" "Rectangle"
    Int32 ->                                -- x : TBasicType TInt
    Int32 ->                                -- y : TBasicType TInt
    Ptr Gtk.Tooltip ->                      -- tooltip : TInterface "Gtk" "Tooltip"
    IO CInt


gutterRendererQueryTooltip ::
    (MonadIO m, GutterRendererK a, Gtk.TooltipK b) =>
    a                                       -- _obj
    -> Gtk.TextIter                         -- iter
    -> Gdk.Rectangle                        -- area
    -> Int32                                -- x
    -> Int32                                -- y
    -> b                                    -- tooltip
    -> m Bool                               -- result
gutterRendererQueryTooltip _obj iter area x y tooltip = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    let iter' = unsafeManagedPtrGetPtr iter
    let area' = unsafeManagedPtrGetPtr area
    let tooltip' = unsafeManagedPtrCastPtr tooltip
    result <- gtk_source_gutter_renderer_query_tooltip _obj' iter' area' x y tooltip'
    let result' = (/= 0) result
    touchManagedPtr _obj
    touchManagedPtr iter
    touchManagedPtr area
    touchManagedPtr tooltip
    return result'

data GutterRendererQueryTooltipMethodInfo
instance (signature ~ (Gtk.TextIter -> Gdk.Rectangle -> Int32 -> Int32 -> b -> m Bool), MonadIO m, GutterRendererK a, Gtk.TooltipK b) => MethodInfo GutterRendererQueryTooltipMethodInfo a signature where
    overloadedMethod _ = gutterRendererQueryTooltip

-- method GutterRenderer::queue_draw
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_queue_draw" gtk_source_gutter_renderer_queue_draw :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    IO ()


gutterRendererQueueDraw ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> m ()                                 -- result
gutterRendererQueueDraw _obj = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    gtk_source_gutter_renderer_queue_draw _obj'
    touchManagedPtr _obj
    return ()

data GutterRendererQueueDrawMethodInfo
instance (signature ~ (m ()), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererQueueDrawMethodInfo a signature where
    overloadedMethod _ = gutterRendererQueueDraw

-- method GutterRenderer::set_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_set_alignment" gtk_source_gutter_renderer_set_alignment :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    CFloat ->                               -- xalign : TBasicType TFloat
    CFloat ->                               -- yalign : TBasicType TFloat
    IO ()


gutterRendererSetAlignment ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> Float                                -- xalign
    -> Float                                -- yalign
    -> m ()                                 -- result
gutterRendererSetAlignment _obj xalign yalign = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    let xalign' = realToFrac xalign
    let yalign' = realToFrac yalign
    gtk_source_gutter_renderer_set_alignment _obj' xalign' yalign'
    touchManagedPtr _obj
    return ()

data GutterRendererSetAlignmentMethodInfo
instance (signature ~ (Float -> Float -> m ()), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererSetAlignmentMethodInfo a signature where
    overloadedMethod _ = gutterRendererSetAlignment

-- method GutterRenderer::set_alignment_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "GtkSource" "GutterRendererAlignmentMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_set_alignment_mode" gtk_source_gutter_renderer_set_alignment_mode :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    CUInt ->                                -- mode : TInterface "GtkSource" "GutterRendererAlignmentMode"
    IO ()


gutterRendererSetAlignmentMode ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> GutterRendererAlignmentMode          -- mode
    -> m ()                                 -- result
gutterRendererSetAlignmentMode _obj mode = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    let mode' = (fromIntegral . fromEnum) mode
    gtk_source_gutter_renderer_set_alignment_mode _obj' mode'
    touchManagedPtr _obj
    return ()

data GutterRendererSetAlignmentModeMethodInfo
instance (signature ~ (GutterRendererAlignmentMode -> m ()), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererSetAlignmentModeMethodInfo a signature where
    overloadedMethod _ = gutterRendererSetAlignmentMode

-- method GutterRenderer::set_background
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_set_background" gtk_source_gutter_renderer_set_background :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    Ptr Gdk.RGBA ->                         -- color : TInterface "Gdk" "RGBA"
    IO ()


gutterRendererSetBackground ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> Maybe (Gdk.RGBA)                     -- color
    -> m ()                                 -- result
gutterRendererSetBackground _obj color = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    maybeColor <- case color of
        Nothing -> return nullPtr
        Just jColor -> do
            let jColor' = unsafeManagedPtrGetPtr jColor
            return jColor'
    gtk_source_gutter_renderer_set_background _obj' maybeColor
    touchManagedPtr _obj
    whenJust color touchManagedPtr
    return ()

data GutterRendererSetBackgroundMethodInfo
instance (signature ~ (Maybe (Gdk.RGBA) -> m ()), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererSetBackgroundMethodInfo a signature where
    overloadedMethod _ = gutterRendererSetBackground

-- method GutterRenderer::set_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypad", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_set_padding" gtk_source_gutter_renderer_set_padding :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    Int32 ->                                -- xpad : TBasicType TInt
    Int32 ->                                -- ypad : TBasicType TInt
    IO ()


gutterRendererSetPadding ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> Int32                                -- xpad
    -> Int32                                -- ypad
    -> m ()                                 -- result
gutterRendererSetPadding _obj xpad ypad = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    gtk_source_gutter_renderer_set_padding _obj' xpad ypad
    touchManagedPtr _obj
    return ()

data GutterRendererSetPaddingMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererSetPaddingMethodInfo a signature where
    overloadedMethod _ = gutterRendererSetPadding

-- method GutterRenderer::set_size
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_set_size" gtk_source_gutter_renderer_set_size :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    Int32 ->                                -- size : TBasicType TInt
    IO ()


gutterRendererSetSize ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> Int32                                -- size
    -> m ()                                 -- result
gutterRendererSetSize _obj size = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    gtk_source_gutter_renderer_set_size _obj' size
    touchManagedPtr _obj
    return ()

data GutterRendererSetSizeMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererSetSizeMethodInfo a signature where
    overloadedMethod _ = gutterRendererSetSize

-- method GutterRenderer::set_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "GutterRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_source_gutter_renderer_set_visible" gtk_source_gutter_renderer_set_visible :: 
    Ptr GutterRenderer ->                   -- _obj : TInterface "GtkSource" "GutterRenderer"
    CInt ->                                 -- visible : TBasicType TBoolean
    IO ()


gutterRendererSetVisible ::
    (MonadIO m, GutterRendererK a) =>
    a                                       -- _obj
    -> Bool                                 -- visible
    -> m ()                                 -- result
gutterRendererSetVisible _obj visible = liftIO $ do
    let _obj' = unsafeManagedPtrCastPtr _obj
    let visible' = (fromIntegral . fromEnum) visible
    gtk_source_gutter_renderer_set_visible _obj' visible'
    touchManagedPtr _obj
    return ()

data GutterRendererSetVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, GutterRendererK a) => MethodInfo GutterRendererSetVisibleMethodInfo a signature where
    overloadedMethod _ = gutterRendererSetVisible