#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GtkSource.Objects.GutterRenderer
(
#if ENABLE_OVERLOADING
GutterRendererGetAlignmentMethodInfo ,
#endif
#if ENABLE_OVERLOADING
GutterRendererGetPaddingMethodInfo ,
#endif
GutterRenderer(..) ,
IsGutterRenderer ,
toGutterRenderer ,
noGutterRenderer ,
#if ENABLE_OVERLOADING
GutterRendererActivateMethodInfo ,
#endif
gutterRendererActivate ,
#if ENABLE_OVERLOADING
GutterRendererBeginMethodInfo ,
#endif
gutterRendererBegin ,
#if ENABLE_OVERLOADING
GutterRendererDrawMethodInfo ,
#endif
gutterRendererDraw ,
#if ENABLE_OVERLOADING
GutterRendererEndMethodInfo ,
#endif
gutterRendererEnd ,
#if ENABLE_OVERLOADING
GutterRendererGetAlignmentModeMethodInfo,
#endif
gutterRendererGetAlignmentMode ,
#if ENABLE_OVERLOADING
GutterRendererGetBackgroundMethodInfo ,
#endif
gutterRendererGetBackground ,
#if ENABLE_OVERLOADING
GutterRendererGetSizeMethodInfo ,
#endif
gutterRendererGetSize ,
#if ENABLE_OVERLOADING
GutterRendererGetViewMethodInfo ,
#endif
gutterRendererGetView ,
#if ENABLE_OVERLOADING
GutterRendererGetVisibleMethodInfo ,
#endif
gutterRendererGetVisible ,
#if ENABLE_OVERLOADING
GutterRendererGetWindowTypeMethodInfo ,
#endif
gutterRendererGetWindowType ,
#if ENABLE_OVERLOADING
GutterRendererQueryActivatableMethodInfo,
#endif
gutterRendererQueryActivatable ,
#if ENABLE_OVERLOADING
GutterRendererQueryDataMethodInfo ,
#endif
gutterRendererQueryData ,
#if ENABLE_OVERLOADING
GutterRendererQueryTooltipMethodInfo ,
#endif
gutterRendererQueryTooltip ,
#if ENABLE_OVERLOADING
GutterRendererQueueDrawMethodInfo ,
#endif
gutterRendererQueueDraw ,
#if ENABLE_OVERLOADING
GutterRendererSetAlignmentMethodInfo ,
#endif
gutterRendererSetAlignment ,
#if ENABLE_OVERLOADING
GutterRendererSetAlignmentModeMethodInfo,
#endif
gutterRendererSetAlignmentMode ,
#if ENABLE_OVERLOADING
GutterRendererSetBackgroundMethodInfo ,
#endif
gutterRendererSetBackground ,
#if ENABLE_OVERLOADING
GutterRendererSetPaddingMethodInfo ,
#endif
gutterRendererSetPadding ,
#if ENABLE_OVERLOADING
GutterRendererSetSizeMethodInfo ,
#endif
gutterRendererSetSize ,
#if ENABLE_OVERLOADING
GutterRendererSetVisibleMethodInfo ,
#endif
gutterRendererSetVisible ,
#if ENABLE_OVERLOADING
GutterRendererAlignmentModePropertyInfo ,
#endif
constructGutterRendererAlignmentMode ,
getGutterRendererAlignmentMode ,
#if ENABLE_OVERLOADING
gutterRendererAlignmentMode ,
#endif
setGutterRendererAlignmentMode ,
#if ENABLE_OVERLOADING
GutterRendererBackgroundRgbaPropertyInfo,
#endif
clearGutterRendererBackgroundRgba ,
constructGutterRendererBackgroundRgba ,
getGutterRendererBackgroundRgba ,
#if ENABLE_OVERLOADING
gutterRendererBackgroundRgba ,
#endif
setGutterRendererBackgroundRgba ,
#if ENABLE_OVERLOADING
GutterRendererBackgroundSetPropertyInfo ,
#endif
constructGutterRendererBackgroundSet ,
getGutterRendererBackgroundSet ,
#if ENABLE_OVERLOADING
gutterRendererBackgroundSet ,
#endif
setGutterRendererBackgroundSet ,
#if ENABLE_OVERLOADING
GutterRendererSizePropertyInfo ,
#endif
constructGutterRendererSize ,
getGutterRendererSize ,
#if ENABLE_OVERLOADING
gutterRendererSize ,
#endif
setGutterRendererSize ,
#if ENABLE_OVERLOADING
GutterRendererViewPropertyInfo ,
#endif
getGutterRendererView ,
#if ENABLE_OVERLOADING
gutterRendererView ,
#endif
#if ENABLE_OVERLOADING
GutterRendererVisiblePropertyInfo ,
#endif
constructGutterRendererVisible ,
getGutterRendererVisible ,
#if ENABLE_OVERLOADING
gutterRendererVisible ,
#endif
setGutterRendererVisible ,
#if ENABLE_OVERLOADING
GutterRendererWindowTypePropertyInfo ,
#endif
getGutterRendererWindowType ,
#if ENABLE_OVERLOADING
gutterRendererWindowType ,
#endif
#if ENABLE_OVERLOADING
GutterRendererXalignPropertyInfo ,
#endif
constructGutterRendererXalign ,
getGutterRendererXalign ,
#if ENABLE_OVERLOADING
gutterRendererXalign ,
#endif
setGutterRendererXalign ,
#if ENABLE_OVERLOADING
GutterRendererXpadPropertyInfo ,
#endif
constructGutterRendererXpad ,
getGutterRendererXpad ,
#if ENABLE_OVERLOADING
gutterRendererXpad ,
#endif
setGutterRendererXpad ,
#if ENABLE_OVERLOADING
GutterRendererYalignPropertyInfo ,
#endif
constructGutterRendererYalign ,
getGutterRendererYalign ,
#if ENABLE_OVERLOADING
gutterRendererYalign ,
#endif
setGutterRendererYalign ,
#if ENABLE_OVERLOADING
GutterRendererYpadPropertyInfo ,
#endif
constructGutterRendererYpad ,
getGutterRendererYpad ,
#if ENABLE_OVERLOADING
gutterRendererYpad ,
#endif
setGutterRendererYpad ,
C_GutterRendererActivateCallback ,
GutterRendererActivateCallback ,
#if ENABLE_OVERLOADING
GutterRendererActivateSignalInfo ,
#endif
afterGutterRendererActivate ,
genClosure_GutterRendererActivate ,
mk_GutterRendererActivateCallback ,
noGutterRendererActivateCallback ,
onGutterRendererActivate ,
wrap_GutterRendererActivateCallback ,
C_GutterRendererQueryActivatableCallback,
GutterRendererQueryActivatableCallback ,
#if ENABLE_OVERLOADING
GutterRendererQueryActivatableSignalInfo,
#endif
afterGutterRendererQueryActivatable ,
genClosure_GutterRendererQueryActivatable,
mk_GutterRendererQueryActivatableCallback,
noGutterRendererQueryActivatableCallback,
onGutterRendererQueryActivatable ,
wrap_GutterRendererQueryActivatableCallback,
C_GutterRendererQueryDataCallback ,
GutterRendererQueryDataCallback ,
#if ENABLE_OVERLOADING
GutterRendererQueryDataSignalInfo ,
#endif
afterGutterRendererQueryData ,
genClosure_GutterRendererQueryData ,
mk_GutterRendererQueryDataCallback ,
noGutterRendererQueryDataCallback ,
onGutterRendererQueryData ,
wrap_GutterRendererQueryDataCallback ,
C_GutterRendererQueryTooltipCallback ,
GutterRendererQueryTooltipCallback ,
#if ENABLE_OVERLOADING
GutterRendererQueryTooltipSignalInfo ,
#endif
afterGutterRendererQueryTooltip ,
genClosure_GutterRendererQueryTooltip ,
mk_GutterRendererQueryTooltipCallback ,
noGutterRendererQueryTooltipCallback ,
onGutterRendererQueryTooltip ,
wrap_GutterRendererQueryTooltipCallback ,
C_GutterRendererQueueDrawCallback ,
GutterRendererQueueDrawCallback ,
#if ENABLE_OVERLOADING
GutterRendererQueueDrawSignalInfo ,
#endif
afterGutterRendererQueueDraw ,
genClosure_GutterRendererQueueDraw ,
mk_GutterRendererQueueDrawCallback ,
noGutterRendererQueueDrawCallback ,
onGutterRendererQueueDraw ,
wrap_GutterRendererQueueDrawCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gdk.Unions.Event as Gdk.Event
import qualified GI.Gtk.Enums as Gtk.Enums
import qualified GI.Gtk.Objects.TextView as Gtk.TextView
import qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import qualified GI.Gtk.Structs.TextIter as Gtk.TextIter
import {-# SOURCE #-} qualified GI.GtkSource.Enums as GtkSource.Enums
import {-# SOURCE #-} qualified GI.GtkSource.Flags as GtkSource.Flags
newtype GutterRenderer = GutterRenderer (ManagedPtr GutterRenderer)
foreign import ccall "gtk_source_gutter_renderer_get_type"
c_gtk_source_gutter_renderer_get_type :: IO GType
instance GObject GutterRenderer where
gobjectType = c_gtk_source_gutter_renderer_get_type
class (GObject o, O.IsDescendantOf GutterRenderer o) => IsGutterRenderer o
instance (GObject o, O.IsDescendantOf GutterRenderer o) => IsGutterRenderer o
instance O.HasParentTypes GutterRenderer
type instance O.ParentTypes GutterRenderer = '[GObject.Object.Object]
toGutterRenderer :: (MonadIO m, IsGutterRenderer o) => o -> m GutterRenderer
toGutterRenderer = liftIO . unsafeCastTo GutterRenderer
noGutterRenderer :: Maybe GutterRenderer
noGutterRenderer = Nothing
#if ENABLE_OVERLOADING
type family ResolveGutterRendererMethod (t :: Symbol) (o :: *) :: * where
ResolveGutterRendererMethod "activate" o = GutterRendererActivateMethodInfo
ResolveGutterRendererMethod "begin" o = GutterRendererBeginMethodInfo
ResolveGutterRendererMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveGutterRendererMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveGutterRendererMethod "draw" o = GutterRendererDrawMethodInfo
ResolveGutterRendererMethod "end" o = GutterRendererEndMethodInfo
ResolveGutterRendererMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveGutterRendererMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveGutterRendererMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveGutterRendererMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveGutterRendererMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveGutterRendererMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveGutterRendererMethod "queryActivatable" o = GutterRendererQueryActivatableMethodInfo
ResolveGutterRendererMethod "queryData" o = GutterRendererQueryDataMethodInfo
ResolveGutterRendererMethod "queryTooltip" o = GutterRendererQueryTooltipMethodInfo
ResolveGutterRendererMethod "queueDraw" o = GutterRendererQueueDrawMethodInfo
ResolveGutterRendererMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveGutterRendererMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveGutterRendererMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveGutterRendererMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveGutterRendererMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveGutterRendererMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveGutterRendererMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveGutterRendererMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveGutterRendererMethod "getAlignment" o = GutterRendererGetAlignmentMethodInfo
ResolveGutterRendererMethod "getAlignmentMode" o = GutterRendererGetAlignmentModeMethodInfo
ResolveGutterRendererMethod "getBackground" o = GutterRendererGetBackgroundMethodInfo
ResolveGutterRendererMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveGutterRendererMethod "getPadding" o = GutterRendererGetPaddingMethodInfo
ResolveGutterRendererMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveGutterRendererMethod "getQdata" o = GObject.Object.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.Object.ObjectSetDataMethodInfo
ResolveGutterRendererMethod "setPadding" o = GutterRendererSetPaddingMethodInfo
ResolveGutterRendererMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveGutterRendererMethod "setSize" o = GutterRendererSetSizeMethodInfo
ResolveGutterRendererMethod "setVisible" o = GutterRendererSetVisibleMethodInfo
ResolveGutterRendererMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveGutterRendererMethod t GutterRenderer, O.MethodInfo info GutterRenderer p) => OL.IsLabel t (GutterRenderer -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
type GutterRendererActivateCallback =
Gtk.TextIter.TextIter
-> Gdk.Rectangle.Rectangle
-> Gdk.Event.Event
-> IO ()
noGutterRendererActivateCallback :: Maybe GutterRendererActivateCallback
noGutterRendererActivateCallback = Nothing
type C_GutterRendererActivateCallback =
Ptr () ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Event.Event ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_GutterRendererActivateCallback :: C_GutterRendererActivateCallback -> IO (FunPtr C_GutterRendererActivateCallback)
genClosure_GutterRendererActivate :: MonadIO m => GutterRendererActivateCallback -> m (GClosure C_GutterRendererActivateCallback)
genClosure_GutterRendererActivate cb = liftIO $ do
let cb' = wrap_GutterRendererActivateCallback cb
mk_GutterRendererActivateCallback cb' >>= B.GClosure.newGClosure
wrap_GutterRendererActivateCallback ::
GutterRendererActivateCallback ->
C_GutterRendererActivateCallback
wrap_GutterRendererActivateCallback _cb _ iter area event _ = do
B.ManagedPtr.withTransient Gtk.TextIter.TextIter iter $ \iter' -> do
B.ManagedPtr.withTransient Gdk.Rectangle.Rectangle area $ \area' -> do
B.ManagedPtr.withTransient Gdk.Event.Event event $ \event' -> do
_cb iter' area' event'
onGutterRendererActivate :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererActivateCallback -> m SignalHandlerId
onGutterRendererActivate obj cb = liftIO $ do
let cb' = wrap_GutterRendererActivateCallback cb
cb'' <- mk_GutterRendererActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' SignalConnectBefore
afterGutterRendererActivate :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererActivateCallback -> m SignalHandlerId
afterGutterRendererActivate obj cb = liftIO $ do
let cb' = wrap_GutterRendererActivateCallback cb
cb'' <- mk_GutterRendererActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' SignalConnectAfter
type GutterRendererQueryActivatableCallback =
Gtk.TextIter.TextIter
-> Gdk.Rectangle.Rectangle
-> Gdk.Event.Event
-> IO Bool
noGutterRendererQueryActivatableCallback :: Maybe GutterRendererQueryActivatableCallback
noGutterRendererQueryActivatableCallback = Nothing
type C_GutterRendererQueryActivatableCallback =
Ptr () ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Event.Event ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_GutterRendererQueryActivatableCallback :: C_GutterRendererQueryActivatableCallback -> IO (FunPtr C_GutterRendererQueryActivatableCallback)
genClosure_GutterRendererQueryActivatable :: MonadIO m => GutterRendererQueryActivatableCallback -> m (GClosure C_GutterRendererQueryActivatableCallback)
genClosure_GutterRendererQueryActivatable cb = liftIO $ do
let cb' = wrap_GutterRendererQueryActivatableCallback cb
mk_GutterRendererQueryActivatableCallback cb' >>= B.GClosure.newGClosure
wrap_GutterRendererQueryActivatableCallback ::
GutterRendererQueryActivatableCallback ->
C_GutterRendererQueryActivatableCallback
wrap_GutterRendererQueryActivatableCallback _cb _ iter area event _ = do
B.ManagedPtr.withTransient Gtk.TextIter.TextIter iter $ \iter' -> do
B.ManagedPtr.withTransient Gdk.Rectangle.Rectangle area $ \area' -> do
B.ManagedPtr.withTransient Gdk.Event.Event event $ \event' -> do
result <- _cb iter' area' event'
let result' = (fromIntegral . fromEnum) result
return result'
onGutterRendererQueryActivatable :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererQueryActivatableCallback -> m SignalHandlerId
onGutterRendererQueryActivatable obj cb = liftIO $ do
let cb' = wrap_GutterRendererQueryActivatableCallback cb
cb'' <- mk_GutterRendererQueryActivatableCallback cb'
connectSignalFunPtr obj "query-activatable" cb'' SignalConnectBefore
afterGutterRendererQueryActivatable :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererQueryActivatableCallback -> m SignalHandlerId
afterGutterRendererQueryActivatable obj cb = liftIO $ do
let cb' = wrap_GutterRendererQueryActivatableCallback cb
cb'' <- mk_GutterRendererQueryActivatableCallback cb'
connectSignalFunPtr obj "query-activatable" cb'' SignalConnectAfter
type GutterRendererQueryDataCallback =
Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> [GtkSource.Flags.GutterRendererState]
-> IO ()
noGutterRendererQueryDataCallback :: Maybe GutterRendererQueryDataCallback
noGutterRendererQueryDataCallback = Nothing
type C_GutterRendererQueryDataCallback =
Ptr () ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_GutterRendererQueryDataCallback :: C_GutterRendererQueryDataCallback -> IO (FunPtr C_GutterRendererQueryDataCallback)
genClosure_GutterRendererQueryData :: MonadIO m => GutterRendererQueryDataCallback -> m (GClosure C_GutterRendererQueryDataCallback)
genClosure_GutterRendererQueryData cb = liftIO $ do
let cb' = wrap_GutterRendererQueryDataCallback cb
mk_GutterRendererQueryDataCallback cb' >>= B.GClosure.newGClosure
wrap_GutterRendererQueryDataCallback ::
GutterRendererQueryDataCallback ->
C_GutterRendererQueryDataCallback
wrap_GutterRendererQueryDataCallback _cb _ start end state _ = do
B.ManagedPtr.withTransient Gtk.TextIter.TextIter start $ \start' -> do
B.ManagedPtr.withTransient Gtk.TextIter.TextIter end $ \end' -> do
let state' = wordToGFlags state
_cb start' end' state'
onGutterRendererQueryData :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererQueryDataCallback -> m SignalHandlerId
onGutterRendererQueryData obj cb = liftIO $ do
let cb' = wrap_GutterRendererQueryDataCallback cb
cb'' <- mk_GutterRendererQueryDataCallback cb'
connectSignalFunPtr obj "query-data" cb'' SignalConnectBefore
afterGutterRendererQueryData :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererQueryDataCallback -> m SignalHandlerId
afterGutterRendererQueryData obj cb = liftIO $ do
let cb' = wrap_GutterRendererQueryDataCallback cb
cb'' <- mk_GutterRendererQueryDataCallback cb'
connectSignalFunPtr obj "query-data" cb'' SignalConnectAfter
type GutterRendererQueryTooltipCallback =
Gtk.TextIter.TextIter
-> Gdk.Rectangle.Rectangle
-> Int32
-> Int32
-> Gtk.Tooltip.Tooltip
-> IO Bool
noGutterRendererQueryTooltipCallback :: Maybe GutterRendererQueryTooltipCallback
noGutterRendererQueryTooltipCallback = Nothing
type C_GutterRendererQueryTooltipCallback =
Ptr () ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gdk.Rectangle.Rectangle ->
Int32 ->
Int32 ->
Ptr Gtk.Tooltip.Tooltip ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_GutterRendererQueryTooltipCallback :: C_GutterRendererQueryTooltipCallback -> IO (FunPtr C_GutterRendererQueryTooltipCallback)
genClosure_GutterRendererQueryTooltip :: MonadIO m => GutterRendererQueryTooltipCallback -> m (GClosure C_GutterRendererQueryTooltipCallback)
genClosure_GutterRendererQueryTooltip cb = liftIO $ do
let cb' = wrap_GutterRendererQueryTooltipCallback cb
mk_GutterRendererQueryTooltipCallback cb' >>= B.GClosure.newGClosure
wrap_GutterRendererQueryTooltipCallback ::
GutterRendererQueryTooltipCallback ->
C_GutterRendererQueryTooltipCallback
wrap_GutterRendererQueryTooltipCallback _cb _ iter area x y tooltip _ = do
B.ManagedPtr.withTransient Gtk.TextIter.TextIter iter $ \iter' -> do
B.ManagedPtr.withTransient Gdk.Rectangle.Rectangle area $ \area' -> do
tooltip' <- (newObject Gtk.Tooltip.Tooltip) tooltip
result <- _cb iter' area' x y tooltip'
let result' = (fromIntegral . fromEnum) result
return result'
onGutterRendererQueryTooltip :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererQueryTooltipCallback -> m SignalHandlerId
onGutterRendererQueryTooltip obj cb = liftIO $ do
let cb' = wrap_GutterRendererQueryTooltipCallback cb
cb'' <- mk_GutterRendererQueryTooltipCallback cb'
connectSignalFunPtr obj "query-tooltip" cb'' SignalConnectBefore
afterGutterRendererQueryTooltip :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererQueryTooltipCallback -> m SignalHandlerId
afterGutterRendererQueryTooltip obj cb = liftIO $ do
let cb' = wrap_GutterRendererQueryTooltipCallback cb
cb'' <- mk_GutterRendererQueryTooltipCallback cb'
connectSignalFunPtr obj "query-tooltip" cb'' SignalConnectAfter
type GutterRendererQueueDrawCallback =
IO ()
noGutterRendererQueueDrawCallback :: Maybe GutterRendererQueueDrawCallback
noGutterRendererQueueDrawCallback = Nothing
type C_GutterRendererQueueDrawCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_GutterRendererQueueDrawCallback :: C_GutterRendererQueueDrawCallback -> IO (FunPtr C_GutterRendererQueueDrawCallback)
genClosure_GutterRendererQueueDraw :: MonadIO m => GutterRendererQueueDrawCallback -> m (GClosure C_GutterRendererQueueDrawCallback)
genClosure_GutterRendererQueueDraw cb = liftIO $ do
let cb' = wrap_GutterRendererQueueDrawCallback cb
mk_GutterRendererQueueDrawCallback cb' >>= B.GClosure.newGClosure
wrap_GutterRendererQueueDrawCallback ::
GutterRendererQueueDrawCallback ->
C_GutterRendererQueueDrawCallback
wrap_GutterRendererQueueDrawCallback _cb _ _ = do
_cb
onGutterRendererQueueDraw :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererQueueDrawCallback -> m SignalHandlerId
onGutterRendererQueueDraw obj cb = liftIO $ do
let cb' = wrap_GutterRendererQueueDrawCallback cb
cb'' <- mk_GutterRendererQueueDrawCallback cb'
connectSignalFunPtr obj "queue-draw" cb'' SignalConnectBefore
afterGutterRendererQueueDraw :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererQueueDrawCallback -> m SignalHandlerId
afterGutterRendererQueueDraw obj cb = liftIO $ do
let cb' = wrap_GutterRendererQueueDrawCallback cb
cb'' <- mk_GutterRendererQueueDrawCallback cb'
connectSignalFunPtr obj "queue-draw" cb'' SignalConnectAfter
getGutterRendererAlignmentMode :: (MonadIO m, IsGutterRenderer o) => o -> m GtkSource.Enums.GutterRendererAlignmentMode
getGutterRendererAlignmentMode obj = liftIO $ B.Properties.getObjectPropertyEnum obj "alignment-mode"
setGutterRendererAlignmentMode :: (MonadIO m, IsGutterRenderer o) => o -> GtkSource.Enums.GutterRendererAlignmentMode -> m ()
setGutterRendererAlignmentMode obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "alignment-mode" val
constructGutterRendererAlignmentMode :: (IsGutterRenderer o) => GtkSource.Enums.GutterRendererAlignmentMode -> IO (GValueConstruct o)
constructGutterRendererAlignmentMode val = B.Properties.constructObjectPropertyEnum "alignment-mode" val
#if ENABLE_OVERLOADING
data GutterRendererAlignmentModePropertyInfo
instance AttrInfo GutterRendererAlignmentModePropertyInfo where
type AttrAllowedOps GutterRendererAlignmentModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GutterRendererAlignmentModePropertyInfo = (~) GtkSource.Enums.GutterRendererAlignmentMode
type AttrBaseTypeConstraint GutterRendererAlignmentModePropertyInfo = IsGutterRenderer
type AttrGetType GutterRendererAlignmentModePropertyInfo = GtkSource.Enums.GutterRendererAlignmentMode
type AttrLabel GutterRendererAlignmentModePropertyInfo = "alignment-mode"
type AttrOrigin GutterRendererAlignmentModePropertyInfo = GutterRenderer
attrGet _ = getGutterRendererAlignmentMode
attrSet _ = setGutterRendererAlignmentMode
attrConstruct _ = constructGutterRendererAlignmentMode
attrClear _ = undefined
#endif
getGutterRendererBackgroundRgba :: (MonadIO m, IsGutterRenderer o) => o -> m (Maybe Gdk.RGBA.RGBA)
getGutterRendererBackgroundRgba obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "background-rgba" Gdk.RGBA.RGBA
setGutterRendererBackgroundRgba :: (MonadIO m, IsGutterRenderer o) => o -> Gdk.RGBA.RGBA -> m ()
setGutterRendererBackgroundRgba obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "background-rgba" (Just val)
constructGutterRendererBackgroundRgba :: (IsGutterRenderer o) => Gdk.RGBA.RGBA -> IO (GValueConstruct o)
constructGutterRendererBackgroundRgba val = B.Properties.constructObjectPropertyBoxed "background-rgba" (Just val)
clearGutterRendererBackgroundRgba :: (MonadIO m, IsGutterRenderer o) => o -> m ()
clearGutterRendererBackgroundRgba obj = liftIO $ B.Properties.setObjectPropertyBoxed obj "background-rgba" (Nothing :: Maybe Gdk.RGBA.RGBA)
#if ENABLE_OVERLOADING
data GutterRendererBackgroundRgbaPropertyInfo
instance AttrInfo GutterRendererBackgroundRgbaPropertyInfo where
type AttrAllowedOps GutterRendererBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint GutterRendererBackgroundRgbaPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrBaseTypeConstraint GutterRendererBackgroundRgbaPropertyInfo = IsGutterRenderer
type AttrGetType GutterRendererBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA.RGBA)
type AttrLabel GutterRendererBackgroundRgbaPropertyInfo = "background-rgba"
type AttrOrigin GutterRendererBackgroundRgbaPropertyInfo = GutterRenderer
attrGet _ = getGutterRendererBackgroundRgba
attrSet _ = setGutterRendererBackgroundRgba
attrConstruct _ = constructGutterRendererBackgroundRgba
attrClear _ = clearGutterRendererBackgroundRgba
#endif
getGutterRendererBackgroundSet :: (MonadIO m, IsGutterRenderer o) => o -> m Bool
getGutterRendererBackgroundSet obj = liftIO $ B.Properties.getObjectPropertyBool obj "background-set"
setGutterRendererBackgroundSet :: (MonadIO m, IsGutterRenderer o) => o -> Bool -> m ()
setGutterRendererBackgroundSet obj val = liftIO $ B.Properties.setObjectPropertyBool obj "background-set" val
constructGutterRendererBackgroundSet :: (IsGutterRenderer o) => Bool -> IO (GValueConstruct o)
constructGutterRendererBackgroundSet val = B.Properties.constructObjectPropertyBool "background-set" val
#if ENABLE_OVERLOADING
data GutterRendererBackgroundSetPropertyInfo
instance AttrInfo GutterRendererBackgroundSetPropertyInfo where
type AttrAllowedOps GutterRendererBackgroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GutterRendererBackgroundSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint GutterRendererBackgroundSetPropertyInfo = IsGutterRenderer
type AttrGetType GutterRendererBackgroundSetPropertyInfo = Bool
type AttrLabel GutterRendererBackgroundSetPropertyInfo = "background-set"
type AttrOrigin GutterRendererBackgroundSetPropertyInfo = GutterRenderer
attrGet _ = getGutterRendererBackgroundSet
attrSet _ = setGutterRendererBackgroundSet
attrConstruct _ = constructGutterRendererBackgroundSet
attrClear _ = undefined
#endif
getGutterRendererSize :: (MonadIO m, IsGutterRenderer o) => o -> m Int32
getGutterRendererSize obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "size"
setGutterRendererSize :: (MonadIO m, IsGutterRenderer o) => o -> Int32 -> m ()
setGutterRendererSize obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "size" val
constructGutterRendererSize :: (IsGutterRenderer o) => Int32 -> IO (GValueConstruct o)
constructGutterRendererSize val = B.Properties.constructObjectPropertyInt32 "size" val
#if ENABLE_OVERLOADING
data GutterRendererSizePropertyInfo
instance AttrInfo GutterRendererSizePropertyInfo where
type AttrAllowedOps GutterRendererSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GutterRendererSizePropertyInfo = (~) Int32
type AttrBaseTypeConstraint GutterRendererSizePropertyInfo = IsGutterRenderer
type AttrGetType GutterRendererSizePropertyInfo = Int32
type AttrLabel GutterRendererSizePropertyInfo = "size"
type AttrOrigin GutterRendererSizePropertyInfo = GutterRenderer
attrGet _ = getGutterRendererSize
attrSet _ = setGutterRendererSize
attrConstruct _ = constructGutterRendererSize
attrClear _ = undefined
#endif
getGutterRendererView :: (MonadIO m, IsGutterRenderer o) => o -> m Gtk.TextView.TextView
getGutterRendererView obj = liftIO $ checkUnexpectedNothing "getGutterRendererView" $ B.Properties.getObjectPropertyObject obj "view" Gtk.TextView.TextView
#if ENABLE_OVERLOADING
data GutterRendererViewPropertyInfo
instance AttrInfo GutterRendererViewPropertyInfo where
type AttrAllowedOps GutterRendererViewPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint GutterRendererViewPropertyInfo = (~) ()
type AttrBaseTypeConstraint GutterRendererViewPropertyInfo = IsGutterRenderer
type AttrGetType GutterRendererViewPropertyInfo = Gtk.TextView.TextView
type AttrLabel GutterRendererViewPropertyInfo = "view"
type AttrOrigin GutterRendererViewPropertyInfo = GutterRenderer
attrGet _ = getGutterRendererView
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getGutterRendererVisible :: (MonadIO m, IsGutterRenderer o) => o -> m Bool
getGutterRendererVisible obj = liftIO $ B.Properties.getObjectPropertyBool obj "visible"
setGutterRendererVisible :: (MonadIO m, IsGutterRenderer o) => o -> Bool -> m ()
setGutterRendererVisible obj val = liftIO $ B.Properties.setObjectPropertyBool obj "visible" val
constructGutterRendererVisible :: (IsGutterRenderer o) => Bool -> IO (GValueConstruct o)
constructGutterRendererVisible val = B.Properties.constructObjectPropertyBool "visible" val
#if ENABLE_OVERLOADING
data GutterRendererVisiblePropertyInfo
instance AttrInfo GutterRendererVisiblePropertyInfo where
type AttrAllowedOps GutterRendererVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GutterRendererVisiblePropertyInfo = (~) Bool
type AttrBaseTypeConstraint GutterRendererVisiblePropertyInfo = IsGutterRenderer
type AttrGetType GutterRendererVisiblePropertyInfo = Bool
type AttrLabel GutterRendererVisiblePropertyInfo = "visible"
type AttrOrigin GutterRendererVisiblePropertyInfo = GutterRenderer
attrGet _ = getGutterRendererVisible
attrSet _ = setGutterRendererVisible
attrConstruct _ = constructGutterRendererVisible
attrClear _ = undefined
#endif
getGutterRendererWindowType :: (MonadIO m, IsGutterRenderer o) => o -> m Gtk.Enums.TextWindowType
getGutterRendererWindowType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "window-type"
#if ENABLE_OVERLOADING
data GutterRendererWindowTypePropertyInfo
instance AttrInfo GutterRendererWindowTypePropertyInfo where
type AttrAllowedOps GutterRendererWindowTypePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint GutterRendererWindowTypePropertyInfo = (~) ()
type AttrBaseTypeConstraint GutterRendererWindowTypePropertyInfo = IsGutterRenderer
type AttrGetType GutterRendererWindowTypePropertyInfo = Gtk.Enums.TextWindowType
type AttrLabel GutterRendererWindowTypePropertyInfo = "window-type"
type AttrOrigin GutterRendererWindowTypePropertyInfo = GutterRenderer
attrGet _ = getGutterRendererWindowType
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getGutterRendererXalign :: (MonadIO m, IsGutterRenderer o) => o -> m Float
getGutterRendererXalign obj = liftIO $ B.Properties.getObjectPropertyFloat obj "xalign"
setGutterRendererXalign :: (MonadIO m, IsGutterRenderer o) => o -> Float -> m ()
setGutterRendererXalign obj val = liftIO $ B.Properties.setObjectPropertyFloat obj "xalign" val
constructGutterRendererXalign :: (IsGutterRenderer o) => Float -> IO (GValueConstruct o)
constructGutterRendererXalign val = B.Properties.constructObjectPropertyFloat "xalign" val
#if ENABLE_OVERLOADING
data GutterRendererXalignPropertyInfo
instance AttrInfo GutterRendererXalignPropertyInfo where
type AttrAllowedOps GutterRendererXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GutterRendererXalignPropertyInfo = (~) Float
type AttrBaseTypeConstraint GutterRendererXalignPropertyInfo = IsGutterRenderer
type AttrGetType GutterRendererXalignPropertyInfo = Float
type AttrLabel GutterRendererXalignPropertyInfo = "xalign"
type AttrOrigin GutterRendererXalignPropertyInfo = GutterRenderer
attrGet _ = getGutterRendererXalign
attrSet _ = setGutterRendererXalign
attrConstruct _ = constructGutterRendererXalign
attrClear _ = undefined
#endif
getGutterRendererXpad :: (MonadIO m, IsGutterRenderer o) => o -> m Int32
getGutterRendererXpad obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "xpad"
setGutterRendererXpad :: (MonadIO m, IsGutterRenderer o) => o -> Int32 -> m ()
setGutterRendererXpad obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "xpad" val
constructGutterRendererXpad :: (IsGutterRenderer o) => Int32 -> IO (GValueConstruct o)
constructGutterRendererXpad val = B.Properties.constructObjectPropertyInt32 "xpad" val
#if ENABLE_OVERLOADING
data GutterRendererXpadPropertyInfo
instance AttrInfo GutterRendererXpadPropertyInfo where
type AttrAllowedOps GutterRendererXpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GutterRendererXpadPropertyInfo = (~) Int32
type AttrBaseTypeConstraint GutterRendererXpadPropertyInfo = IsGutterRenderer
type AttrGetType GutterRendererXpadPropertyInfo = Int32
type AttrLabel GutterRendererXpadPropertyInfo = "xpad"
type AttrOrigin GutterRendererXpadPropertyInfo = GutterRenderer
attrGet _ = getGutterRendererXpad
attrSet _ = setGutterRendererXpad
attrConstruct _ = constructGutterRendererXpad
attrClear _ = undefined
#endif
getGutterRendererYalign :: (MonadIO m, IsGutterRenderer o) => o -> m Float
getGutterRendererYalign obj = liftIO $ B.Properties.getObjectPropertyFloat obj "yalign"
setGutterRendererYalign :: (MonadIO m, IsGutterRenderer o) => o -> Float -> m ()
setGutterRendererYalign obj val = liftIO $ B.Properties.setObjectPropertyFloat obj "yalign" val
constructGutterRendererYalign :: (IsGutterRenderer o) => Float -> IO (GValueConstruct o)
constructGutterRendererYalign val = B.Properties.constructObjectPropertyFloat "yalign" val
#if ENABLE_OVERLOADING
data GutterRendererYalignPropertyInfo
instance AttrInfo GutterRendererYalignPropertyInfo where
type AttrAllowedOps GutterRendererYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GutterRendererYalignPropertyInfo = (~) Float
type AttrBaseTypeConstraint GutterRendererYalignPropertyInfo = IsGutterRenderer
type AttrGetType GutterRendererYalignPropertyInfo = Float
type AttrLabel GutterRendererYalignPropertyInfo = "yalign"
type AttrOrigin GutterRendererYalignPropertyInfo = GutterRenderer
attrGet _ = getGutterRendererYalign
attrSet _ = setGutterRendererYalign
attrConstruct _ = constructGutterRendererYalign
attrClear _ = undefined
#endif
getGutterRendererYpad :: (MonadIO m, IsGutterRenderer o) => o -> m Int32
getGutterRendererYpad obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "ypad"
setGutterRendererYpad :: (MonadIO m, IsGutterRenderer o) => o -> Int32 -> m ()
setGutterRendererYpad obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "ypad" val
constructGutterRendererYpad :: (IsGutterRenderer o) => Int32 -> IO (GValueConstruct o)
constructGutterRendererYpad val = B.Properties.constructObjectPropertyInt32 "ypad" val
#if ENABLE_OVERLOADING
data GutterRendererYpadPropertyInfo
instance AttrInfo GutterRendererYpadPropertyInfo where
type AttrAllowedOps GutterRendererYpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GutterRendererYpadPropertyInfo = (~) Int32
type AttrBaseTypeConstraint GutterRendererYpadPropertyInfo = IsGutterRenderer
type AttrGetType GutterRendererYpadPropertyInfo = Int32
type AttrLabel GutterRendererYpadPropertyInfo = "ypad"
type AttrOrigin GutterRendererYpadPropertyInfo = GutterRenderer
attrGet _ = getGutterRendererYpad
attrSet _ = setGutterRendererYpad
attrConstruct _ = constructGutterRendererYpad
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList GutterRenderer
type instance O.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, *)])
#endif
#if ENABLE_OVERLOADING
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
#endif
#if ENABLE_OVERLOADING
data GutterRendererActivateSignalInfo
instance SignalInfo GutterRendererActivateSignalInfo where
type HaskellCallbackType GutterRendererActivateSignalInfo = GutterRendererActivateCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_GutterRendererActivateCallback cb
cb'' <- mk_GutterRendererActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode
data GutterRendererQueryActivatableSignalInfo
instance SignalInfo GutterRendererQueryActivatableSignalInfo where
type HaskellCallbackType GutterRendererQueryActivatableSignalInfo = GutterRendererQueryActivatableCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_GutterRendererQueryActivatableCallback cb
cb'' <- mk_GutterRendererQueryActivatableCallback cb'
connectSignalFunPtr obj "query-activatable" cb'' connectMode
data GutterRendererQueryDataSignalInfo
instance SignalInfo GutterRendererQueryDataSignalInfo where
type HaskellCallbackType GutterRendererQueryDataSignalInfo = GutterRendererQueryDataCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_GutterRendererQueryDataCallback cb
cb'' <- mk_GutterRendererQueryDataCallback cb'
connectSignalFunPtr obj "query-data" cb'' connectMode
data GutterRendererQueryTooltipSignalInfo
instance SignalInfo GutterRendererQueryTooltipSignalInfo where
type HaskellCallbackType GutterRendererQueryTooltipSignalInfo = GutterRendererQueryTooltipCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_GutterRendererQueryTooltipCallback cb
cb'' <- mk_GutterRendererQueryTooltipCallback cb'
connectSignalFunPtr obj "query-tooltip" cb'' connectMode
data GutterRendererQueueDrawSignalInfo
instance SignalInfo GutterRendererQueueDrawSignalInfo where
type HaskellCallbackType GutterRendererQueueDrawSignalInfo = GutterRendererQueueDrawCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_GutterRendererQueueDrawCallback cb
cb'' <- mk_GutterRendererQueueDrawCallback cb'
connectSignalFunPtr obj "queue-draw" cb'' connectMode
type instance O.SignalList GutterRenderer = GutterRendererSignalList
type GutterRendererSignalList = ('[ '("activate", GutterRendererActivateSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryActivatable", GutterRendererQueryActivatableSignalInfo), '("queryData", GutterRendererQueryDataSignalInfo), '("queryTooltip", GutterRendererQueryTooltipSignalInfo), '("queueDraw", GutterRendererQueueDrawSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_source_gutter_renderer_activate" gtk_source_gutter_renderer_activate ::
Ptr GutterRenderer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Event.Event ->
IO ()
gutterRendererActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Gtk.TextIter.TextIter
-> Gdk.Rectangle.Rectangle
-> Gdk.Event.Event
-> m ()
gutterRendererActivate renderer iter area event = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
iter' <- unsafeManagedPtrGetPtr iter
area' <- unsafeManagedPtrGetPtr area
event' <- unsafeManagedPtrGetPtr event
gtk_source_gutter_renderer_activate renderer' iter' area' event'
touchManagedPtr renderer
touchManagedPtr iter
touchManagedPtr area
touchManagedPtr event
return ()
#if ENABLE_OVERLOADING
data GutterRendererActivateMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gdk.Rectangle.Rectangle -> Gdk.Event.Event -> m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererActivateMethodInfo a signature where
overloadedMethod _ = gutterRendererActivate
#endif
foreign import ccall "gtk_source_gutter_renderer_begin" gtk_source_gutter_renderer_begin ::
Ptr GutterRenderer ->
Ptr Cairo.Context.Context ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO ()
gutterRendererBegin ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Cairo.Context.Context
-> Gdk.Rectangle.Rectangle
-> Gdk.Rectangle.Rectangle
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> m ()
gutterRendererBegin renderer cr backgroundArea cellArea start end = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
cr' <- unsafeManagedPtrGetPtr cr
backgroundArea' <- unsafeManagedPtrGetPtr backgroundArea
cellArea' <- unsafeManagedPtrGetPtr cellArea
start' <- unsafeManagedPtrGetPtr start
end' <- unsafeManagedPtrGetPtr end
gtk_source_gutter_renderer_begin renderer' cr' backgroundArea' cellArea' start' end'
touchManagedPtr renderer
touchManagedPtr cr
touchManagedPtr backgroundArea
touchManagedPtr cellArea
touchManagedPtr start
touchManagedPtr end
return ()
#if ENABLE_OVERLOADING
data GutterRendererBeginMethodInfo
instance (signature ~ (Cairo.Context.Context -> Gdk.Rectangle.Rectangle -> Gdk.Rectangle.Rectangle -> Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererBeginMethodInfo a signature where
overloadedMethod _ = gutterRendererBegin
#endif
foreign import ccall "gtk_source_gutter_renderer_draw" gtk_source_gutter_renderer_draw ::
Ptr GutterRenderer ->
Ptr Cairo.Context.Context ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
CUInt ->
IO ()
gutterRendererDraw ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Cairo.Context.Context
-> Gdk.Rectangle.Rectangle
-> Gdk.Rectangle.Rectangle
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> [GtkSource.Flags.GutterRendererState]
-> m ()
gutterRendererDraw renderer cr backgroundArea cellArea start end state = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
cr' <- unsafeManagedPtrGetPtr cr
backgroundArea' <- unsafeManagedPtrGetPtr backgroundArea
cellArea' <- unsafeManagedPtrGetPtr cellArea
start' <- unsafeManagedPtrGetPtr start
end' <- unsafeManagedPtrGetPtr end
let state' = gflagsToWord state
gtk_source_gutter_renderer_draw renderer' cr' backgroundArea' cellArea' start' end' state'
touchManagedPtr renderer
touchManagedPtr cr
touchManagedPtr backgroundArea
touchManagedPtr cellArea
touchManagedPtr start
touchManagedPtr end
return ()
#if ENABLE_OVERLOADING
data GutterRendererDrawMethodInfo
instance (signature ~ (Cairo.Context.Context -> Gdk.Rectangle.Rectangle -> Gdk.Rectangle.Rectangle -> Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> [GtkSource.Flags.GutterRendererState] -> m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererDrawMethodInfo a signature where
overloadedMethod _ = gutterRendererDraw
#endif
foreign import ccall "gtk_source_gutter_renderer_end" gtk_source_gutter_renderer_end ::
Ptr GutterRenderer ->
IO ()
gutterRendererEnd ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> m ()
gutterRendererEnd renderer = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
gtk_source_gutter_renderer_end renderer'
touchManagedPtr renderer
return ()
#if ENABLE_OVERLOADING
data GutterRendererEndMethodInfo
instance (signature ~ (m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererEndMethodInfo a signature where
overloadedMethod _ = gutterRendererEnd
#endif
#if ENABLE_OVERLOADING
data GutterRendererGetAlignmentMethodInfo
instance (p ~ (), o ~ O.MethodResolutionFailed "getAlignment" GutterRenderer) => O.MethodInfo GutterRendererGetAlignmentMethodInfo o p where
overloadedMethod _ = undefined
#endif
foreign import ccall "gtk_source_gutter_renderer_get_alignment_mode" gtk_source_gutter_renderer_get_alignment_mode ::
Ptr GutterRenderer ->
IO CUInt
gutterRendererGetAlignmentMode ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> m GtkSource.Enums.GutterRendererAlignmentMode
gutterRendererGetAlignmentMode renderer = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
result <- gtk_source_gutter_renderer_get_alignment_mode renderer'
let result' = (toEnum . fromIntegral) result
touchManagedPtr renderer
return result'
#if ENABLE_OVERLOADING
data GutterRendererGetAlignmentModeMethodInfo
instance (signature ~ (m GtkSource.Enums.GutterRendererAlignmentMode), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererGetAlignmentModeMethodInfo a signature where
overloadedMethod _ = gutterRendererGetAlignmentMode
#endif
foreign import ccall "gtk_source_gutter_renderer_get_background" gtk_source_gutter_renderer_get_background ::
Ptr GutterRenderer ->
Ptr Gdk.RGBA.RGBA ->
IO CInt
gutterRendererGetBackground ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> m ((Bool, Gdk.RGBA.RGBA))
gutterRendererGetBackground renderer = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA.RGBA)
result <- gtk_source_gutter_renderer_get_background renderer' color
let result' = (/= 0) result
color' <- (wrapBoxed Gdk.RGBA.RGBA) color
touchManagedPtr renderer
return (result', color')
#if ENABLE_OVERLOADING
data GutterRendererGetBackgroundMethodInfo
instance (signature ~ (m ((Bool, Gdk.RGBA.RGBA))), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererGetBackgroundMethodInfo a signature where
overloadedMethod _ = gutterRendererGetBackground
#endif
#if ENABLE_OVERLOADING
data GutterRendererGetPaddingMethodInfo
instance (p ~ (), o ~ O.MethodResolutionFailed "getPadding" GutterRenderer) => O.MethodInfo GutterRendererGetPaddingMethodInfo o p where
overloadedMethod _ = undefined
#endif
foreign import ccall "gtk_source_gutter_renderer_get_size" gtk_source_gutter_renderer_get_size ::
Ptr GutterRenderer ->
IO Int32
gutterRendererGetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> m Int32
gutterRendererGetSize renderer = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
result <- gtk_source_gutter_renderer_get_size renderer'
touchManagedPtr renderer
return result
#if ENABLE_OVERLOADING
data GutterRendererGetSizeMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererGetSizeMethodInfo a signature where
overloadedMethod _ = gutterRendererGetSize
#endif
foreign import ccall "gtk_source_gutter_renderer_get_view" gtk_source_gutter_renderer_get_view ::
Ptr GutterRenderer ->
IO (Ptr Gtk.TextView.TextView)
gutterRendererGetView ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> m Gtk.TextView.TextView
gutterRendererGetView renderer = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
result <- gtk_source_gutter_renderer_get_view renderer'
checkUnexpectedReturnNULL "gutterRendererGetView" result
result' <- (newObject Gtk.TextView.TextView) result
touchManagedPtr renderer
return result'
#if ENABLE_OVERLOADING
data GutterRendererGetViewMethodInfo
instance (signature ~ (m Gtk.TextView.TextView), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererGetViewMethodInfo a signature where
overloadedMethod _ = gutterRendererGetView
#endif
foreign import ccall "gtk_source_gutter_renderer_get_visible" gtk_source_gutter_renderer_get_visible ::
Ptr GutterRenderer ->
IO CInt
gutterRendererGetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> m Bool
gutterRendererGetVisible renderer = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
result <- gtk_source_gutter_renderer_get_visible renderer'
let result' = (/= 0) result
touchManagedPtr renderer
return result'
#if ENABLE_OVERLOADING
data GutterRendererGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererGetVisibleMethodInfo a signature where
overloadedMethod _ = gutterRendererGetVisible
#endif
foreign import ccall "gtk_source_gutter_renderer_get_window_type" gtk_source_gutter_renderer_get_window_type ::
Ptr GutterRenderer ->
IO CUInt
gutterRendererGetWindowType ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> m Gtk.Enums.TextWindowType
gutterRendererGetWindowType renderer = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
result <- gtk_source_gutter_renderer_get_window_type renderer'
let result' = (toEnum . fromIntegral) result
touchManagedPtr renderer
return result'
#if ENABLE_OVERLOADING
data GutterRendererGetWindowTypeMethodInfo
instance (signature ~ (m Gtk.Enums.TextWindowType), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererGetWindowTypeMethodInfo a signature where
overloadedMethod _ = gutterRendererGetWindowType
#endif
foreign import ccall "gtk_source_gutter_renderer_query_activatable" gtk_source_gutter_renderer_query_activatable ::
Ptr GutterRenderer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Event.Event ->
IO CInt
gutterRendererQueryActivatable ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Gtk.TextIter.TextIter
-> Gdk.Rectangle.Rectangle
-> Gdk.Event.Event
-> m Bool
gutterRendererQueryActivatable renderer iter area event = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
iter' <- unsafeManagedPtrGetPtr iter
area' <- unsafeManagedPtrGetPtr area
event' <- unsafeManagedPtrGetPtr event
result <- gtk_source_gutter_renderer_query_activatable renderer' iter' area' event'
let result' = (/= 0) result
touchManagedPtr renderer
touchManagedPtr iter
touchManagedPtr area
touchManagedPtr event
return result'
#if ENABLE_OVERLOADING
data GutterRendererQueryActivatableMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gdk.Rectangle.Rectangle -> Gdk.Event.Event -> m Bool), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererQueryActivatableMethodInfo a signature where
overloadedMethod _ = gutterRendererQueryActivatable
#endif
foreign import ccall "gtk_source_gutter_renderer_query_data" gtk_source_gutter_renderer_query_data ::
Ptr GutterRenderer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
CUInt ->
IO ()
gutterRendererQueryData ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> [GtkSource.Flags.GutterRendererState]
-> m ()
gutterRendererQueryData renderer start end state = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
start' <- unsafeManagedPtrGetPtr start
end' <- unsafeManagedPtrGetPtr end
let state' = gflagsToWord state
gtk_source_gutter_renderer_query_data renderer' start' end' state'
touchManagedPtr renderer
touchManagedPtr start
touchManagedPtr end
return ()
#if ENABLE_OVERLOADING
data GutterRendererQueryDataMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> [GtkSource.Flags.GutterRendererState] -> m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererQueryDataMethodInfo a signature where
overloadedMethod _ = gutterRendererQueryData
#endif
foreign import ccall "gtk_source_gutter_renderer_query_tooltip" gtk_source_gutter_renderer_query_tooltip ::
Ptr GutterRenderer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gdk.Rectangle.Rectangle ->
Int32 ->
Int32 ->
Ptr Gtk.Tooltip.Tooltip ->
IO CInt
gutterRendererQueryTooltip ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a, Gtk.Tooltip.IsTooltip b) =>
a
-> Gtk.TextIter.TextIter
-> Gdk.Rectangle.Rectangle
-> Int32
-> Int32
-> b
-> m Bool
gutterRendererQueryTooltip renderer iter area x y tooltip = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
iter' <- unsafeManagedPtrGetPtr iter
area' <- unsafeManagedPtrGetPtr area
tooltip' <- unsafeManagedPtrCastPtr tooltip
result <- gtk_source_gutter_renderer_query_tooltip renderer' iter' area' x y tooltip'
let result' = (/= 0) result
touchManagedPtr renderer
touchManagedPtr iter
touchManagedPtr area
touchManagedPtr tooltip
return result'
#if ENABLE_OVERLOADING
data GutterRendererQueryTooltipMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gdk.Rectangle.Rectangle -> Int32 -> Int32 -> b -> m Bool), MonadIO m, IsGutterRenderer a, Gtk.Tooltip.IsTooltip b) => O.MethodInfo GutterRendererQueryTooltipMethodInfo a signature where
overloadedMethod _ = gutterRendererQueryTooltip
#endif
foreign import ccall "gtk_source_gutter_renderer_queue_draw" gtk_source_gutter_renderer_queue_draw ::
Ptr GutterRenderer ->
IO ()
gutterRendererQueueDraw ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> m ()
gutterRendererQueueDraw renderer = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
gtk_source_gutter_renderer_queue_draw renderer'
touchManagedPtr renderer
return ()
#if ENABLE_OVERLOADING
data GutterRendererQueueDrawMethodInfo
instance (signature ~ (m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererQueueDrawMethodInfo a signature where
overloadedMethod _ = gutterRendererQueueDraw
#endif
foreign import ccall "gtk_source_gutter_renderer_set_alignment" gtk_source_gutter_renderer_set_alignment ::
Ptr GutterRenderer ->
CFloat ->
CFloat ->
IO ()
gutterRendererSetAlignment ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Float
-> Float
-> m ()
gutterRendererSetAlignment renderer xalign yalign = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
let xalign' = realToFrac xalign
let yalign' = realToFrac yalign
gtk_source_gutter_renderer_set_alignment renderer' xalign' yalign'
touchManagedPtr renderer
return ()
#if ENABLE_OVERLOADING
data GutterRendererSetAlignmentMethodInfo
instance (signature ~ (Float -> Float -> m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererSetAlignmentMethodInfo a signature where
overloadedMethod _ = gutterRendererSetAlignment
#endif
foreign import ccall "gtk_source_gutter_renderer_set_alignment_mode" gtk_source_gutter_renderer_set_alignment_mode ::
Ptr GutterRenderer ->
CUInt ->
IO ()
gutterRendererSetAlignmentMode ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> GtkSource.Enums.GutterRendererAlignmentMode
-> m ()
gutterRendererSetAlignmentMode renderer mode = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
let mode' = (fromIntegral . fromEnum) mode
gtk_source_gutter_renderer_set_alignment_mode renderer' mode'
touchManagedPtr renderer
return ()
#if ENABLE_OVERLOADING
data GutterRendererSetAlignmentModeMethodInfo
instance (signature ~ (GtkSource.Enums.GutterRendererAlignmentMode -> m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererSetAlignmentModeMethodInfo a signature where
overloadedMethod _ = gutterRendererSetAlignmentMode
#endif
foreign import ccall "gtk_source_gutter_renderer_set_background" gtk_source_gutter_renderer_set_background ::
Ptr GutterRenderer ->
Ptr Gdk.RGBA.RGBA ->
IO ()
gutterRendererSetBackground ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Maybe (Gdk.RGBA.RGBA)
-> m ()
gutterRendererSetBackground renderer color = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
maybeColor <- case color of
Nothing -> return nullPtr
Just jColor -> do
jColor' <- unsafeManagedPtrGetPtr jColor
return jColor'
gtk_source_gutter_renderer_set_background renderer' maybeColor
touchManagedPtr renderer
whenJust color touchManagedPtr
return ()
#if ENABLE_OVERLOADING
data GutterRendererSetBackgroundMethodInfo
instance (signature ~ (Maybe (Gdk.RGBA.RGBA) -> m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererSetBackgroundMethodInfo a signature where
overloadedMethod _ = gutterRendererSetBackground
#endif
foreign import ccall "gtk_source_gutter_renderer_set_padding" gtk_source_gutter_renderer_set_padding ::
Ptr GutterRenderer ->
Int32 ->
Int32 ->
IO ()
gutterRendererSetPadding ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Int32
-> Int32
-> m ()
gutterRendererSetPadding renderer xpad ypad = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
gtk_source_gutter_renderer_set_padding renderer' xpad ypad
touchManagedPtr renderer
return ()
#if ENABLE_OVERLOADING
data GutterRendererSetPaddingMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererSetPaddingMethodInfo a signature where
overloadedMethod _ = gutterRendererSetPadding
#endif
foreign import ccall "gtk_source_gutter_renderer_set_size" gtk_source_gutter_renderer_set_size ::
Ptr GutterRenderer ->
Int32 ->
IO ()
gutterRendererSetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Int32
-> m ()
gutterRendererSetSize renderer size = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
gtk_source_gutter_renderer_set_size renderer' size
touchManagedPtr renderer
return ()
#if ENABLE_OVERLOADING
data GutterRendererSetSizeMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererSetSizeMethodInfo a signature where
overloadedMethod _ = gutterRendererSetSize
#endif
foreign import ccall "gtk_source_gutter_renderer_set_visible" gtk_source_gutter_renderer_set_visible ::
Ptr GutterRenderer ->
CInt ->
IO ()
gutterRendererSetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Bool
-> m ()
gutterRendererSetVisible renderer visible = liftIO $ do
renderer' <- unsafeManagedPtrCastPtr renderer
let visible' = (fromIntegral . fromEnum) visible
gtk_source_gutter_renderer_set_visible renderer' visible'
touchManagedPtr renderer
return ()
#if ENABLE_OVERLOADING
data GutterRendererSetVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererSetVisibleMethodInfo a signature where
overloadedMethod _ = gutterRendererSetVisible
#endif