{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GtkSource.Objects.GutterRenderer
(
#if defined(ENABLE_OVERLOADING)
GutterRendererGetAlignmentMethodInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
GutterRendererGetPaddingMethodInfo ,
#endif
GutterRenderer(..) ,
IsGutterRenderer ,
toGutterRenderer ,
#if defined(ENABLE_OVERLOADING)
ResolveGutterRendererMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
GutterRendererActivateMethodInfo ,
#endif
gutterRendererActivate ,
#if defined(ENABLE_OVERLOADING)
GutterRendererBeginMethodInfo ,
#endif
gutterRendererBegin ,
#if defined(ENABLE_OVERLOADING)
GutterRendererDrawMethodInfo ,
#endif
gutterRendererDraw ,
#if defined(ENABLE_OVERLOADING)
GutterRendererEndMethodInfo ,
#endif
gutterRendererEnd ,
#if defined(ENABLE_OVERLOADING)
GutterRendererGetAlignmentModeMethodInfo,
#endif
gutterRendererGetAlignmentMode ,
#if defined(ENABLE_OVERLOADING)
GutterRendererGetBackgroundMethodInfo ,
#endif
gutterRendererGetBackground ,
#if defined(ENABLE_OVERLOADING)
GutterRendererGetSizeMethodInfo ,
#endif
gutterRendererGetSize ,
#if defined(ENABLE_OVERLOADING)
GutterRendererGetViewMethodInfo ,
#endif
gutterRendererGetView ,
#if defined(ENABLE_OVERLOADING)
GutterRendererGetVisibleMethodInfo ,
#endif
gutterRendererGetVisible ,
#if defined(ENABLE_OVERLOADING)
GutterRendererGetWindowTypeMethodInfo ,
#endif
gutterRendererGetWindowType ,
#if defined(ENABLE_OVERLOADING)
GutterRendererQueryActivatableMethodInfo,
#endif
gutterRendererQueryActivatable ,
#if defined(ENABLE_OVERLOADING)
GutterRendererQueryDataMethodInfo ,
#endif
gutterRendererQueryData ,
#if defined(ENABLE_OVERLOADING)
GutterRendererQueryTooltipMethodInfo ,
#endif
gutterRendererQueryTooltip ,
#if defined(ENABLE_OVERLOADING)
GutterRendererQueueDrawMethodInfo ,
#endif
gutterRendererQueueDraw ,
#if defined(ENABLE_OVERLOADING)
GutterRendererSetAlignmentMethodInfo ,
#endif
gutterRendererSetAlignment ,
#if defined(ENABLE_OVERLOADING)
GutterRendererSetAlignmentModeMethodInfo,
#endif
gutterRendererSetAlignmentMode ,
#if defined(ENABLE_OVERLOADING)
GutterRendererSetBackgroundMethodInfo ,
#endif
gutterRendererSetBackground ,
#if defined(ENABLE_OVERLOADING)
GutterRendererSetPaddingMethodInfo ,
#endif
gutterRendererSetPadding ,
#if defined(ENABLE_OVERLOADING)
GutterRendererSetSizeMethodInfo ,
#endif
gutterRendererSetSize ,
#if defined(ENABLE_OVERLOADING)
GutterRendererSetVisibleMethodInfo ,
#endif
gutterRendererSetVisible ,
#if defined(ENABLE_OVERLOADING)
GutterRendererAlignmentModePropertyInfo ,
#endif
constructGutterRendererAlignmentMode ,
getGutterRendererAlignmentMode ,
#if defined(ENABLE_OVERLOADING)
gutterRendererAlignmentMode ,
#endif
setGutterRendererAlignmentMode ,
#if defined(ENABLE_OVERLOADING)
GutterRendererBackgroundRgbaPropertyInfo,
#endif
clearGutterRendererBackgroundRgba ,
constructGutterRendererBackgroundRgba ,
getGutterRendererBackgroundRgba ,
#if defined(ENABLE_OVERLOADING)
gutterRendererBackgroundRgba ,
#endif
setGutterRendererBackgroundRgba ,
#if defined(ENABLE_OVERLOADING)
GutterRendererBackgroundSetPropertyInfo ,
#endif
constructGutterRendererBackgroundSet ,
getGutterRendererBackgroundSet ,
#if defined(ENABLE_OVERLOADING)
gutterRendererBackgroundSet ,
#endif
setGutterRendererBackgroundSet ,
#if defined(ENABLE_OVERLOADING)
GutterRendererSizePropertyInfo ,
#endif
constructGutterRendererSize ,
getGutterRendererSize ,
#if defined(ENABLE_OVERLOADING)
gutterRendererSize ,
#endif
setGutterRendererSize ,
#if defined(ENABLE_OVERLOADING)
GutterRendererViewPropertyInfo ,
#endif
getGutterRendererView ,
#if defined(ENABLE_OVERLOADING)
gutterRendererView ,
#endif
#if defined(ENABLE_OVERLOADING)
GutterRendererVisiblePropertyInfo ,
#endif
constructGutterRendererVisible ,
getGutterRendererVisible ,
#if defined(ENABLE_OVERLOADING)
gutterRendererVisible ,
#endif
setGutterRendererVisible ,
#if defined(ENABLE_OVERLOADING)
GutterRendererWindowTypePropertyInfo ,
#endif
getGutterRendererWindowType ,
#if defined(ENABLE_OVERLOADING)
gutterRendererWindowType ,
#endif
#if defined(ENABLE_OVERLOADING)
GutterRendererXalignPropertyInfo ,
#endif
constructGutterRendererXalign ,
getGutterRendererXalign ,
#if defined(ENABLE_OVERLOADING)
gutterRendererXalign ,
#endif
setGutterRendererXalign ,
#if defined(ENABLE_OVERLOADING)
GutterRendererXpadPropertyInfo ,
#endif
constructGutterRendererXpad ,
getGutterRendererXpad ,
#if defined(ENABLE_OVERLOADING)
gutterRendererXpad ,
#endif
setGutterRendererXpad ,
#if defined(ENABLE_OVERLOADING)
GutterRendererYalignPropertyInfo ,
#endif
constructGutterRendererYalign ,
getGutterRendererYalign ,
#if defined(ENABLE_OVERLOADING)
gutterRendererYalign ,
#endif
setGutterRendererYalign ,
#if defined(ENABLE_OVERLOADING)
GutterRendererYpadPropertyInfo ,
#endif
constructGutterRendererYpad ,
getGutterRendererYpad ,
#if defined(ENABLE_OVERLOADING)
gutterRendererYpad ,
#endif
setGutterRendererYpad ,
GutterRendererActivateCallback ,
#if defined(ENABLE_OVERLOADING)
GutterRendererActivateSignalInfo ,
#endif
afterGutterRendererActivate ,
onGutterRendererActivate ,
GutterRendererQueryActivatableCallback ,
#if defined(ENABLE_OVERLOADING)
GutterRendererQueryActivatableSignalInfo,
#endif
afterGutterRendererQueryActivatable ,
onGutterRendererQueryActivatable ,
GutterRendererQueryDataCallback ,
#if defined(ENABLE_OVERLOADING)
GutterRendererQueryDataSignalInfo ,
#endif
afterGutterRendererQueryData ,
onGutterRendererQueryData ,
GutterRendererQueryTooltipCallback ,
#if defined(ENABLE_OVERLOADING)
GutterRendererQueryTooltipSignalInfo ,
#endif
afterGutterRendererQueryTooltip ,
onGutterRendererQueryTooltip ,
GutterRendererQueueDrawCallback ,
#if defined(ENABLE_OVERLOADING)
GutterRendererQueueDrawSignalInfo ,
#endif
afterGutterRendererQueueDraw ,
onGutterRendererQueueDraw ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
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 GHC.Records as R
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 (SP.ManagedPtr GutterRenderer)
deriving (GutterRenderer -> GutterRenderer -> Bool
(GutterRenderer -> GutterRenderer -> Bool)
-> (GutterRenderer -> GutterRenderer -> Bool) -> Eq GutterRenderer
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GutterRenderer -> GutterRenderer -> Bool
== :: GutterRenderer -> GutterRenderer -> Bool
$c/= :: GutterRenderer -> GutterRenderer -> Bool
/= :: GutterRenderer -> GutterRenderer -> Bool
Eq)
instance SP.ManagedPtrNewtype GutterRenderer where
toManagedPtr :: GutterRenderer -> ManagedPtr GutterRenderer
toManagedPtr (GutterRenderer ManagedPtr GutterRenderer
p) = ManagedPtr GutterRenderer
p
foreign import ccall "gtk_source_gutter_renderer_get_type"
c_gtk_source_gutter_renderer_get_type :: IO B.Types.GType
instance B.Types.TypedObject GutterRenderer where
glibType :: IO GType
glibType = IO GType
c_gtk_source_gutter_renderer_get_type
instance B.Types.GObject GutterRenderer
class (SP.GObject o, O.IsDescendantOf GutterRenderer o) => IsGutterRenderer o
instance (SP.GObject o, O.IsDescendantOf GutterRenderer o) => IsGutterRenderer o
instance O.HasParentTypes GutterRenderer
type instance O.ParentTypes GutterRenderer = '[GObject.Object.Object]
toGutterRenderer :: (MIO.MonadIO m, IsGutterRenderer o) => o -> m GutterRenderer
toGutterRenderer :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> m GutterRenderer
toGutterRenderer = IO GutterRenderer -> m GutterRenderer
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO GutterRenderer -> m GutterRenderer)
-> (o -> IO GutterRenderer) -> o -> m GutterRenderer
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr GutterRenderer -> GutterRenderer)
-> o -> IO GutterRenderer
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr GutterRenderer -> GutterRenderer
GutterRenderer
instance B.GValue.IsGValue (Maybe GutterRenderer) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_source_gutter_renderer_get_type
gvalueSet_ :: Ptr GValue -> Maybe GutterRenderer -> IO ()
gvalueSet_ Ptr GValue
gv Maybe GutterRenderer
P.Nothing = Ptr GValue -> Ptr GutterRenderer -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr GutterRenderer
forall a. Ptr a
FP.nullPtr :: FP.Ptr GutterRenderer)
gvalueSet_ Ptr GValue
gv (P.Just GutterRenderer
obj) = GutterRenderer -> (Ptr GutterRenderer -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr GutterRenderer
obj (Ptr GValue -> Ptr GutterRenderer -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe GutterRenderer)
gvalueGet_ Ptr GValue
gv = do
Ptr GutterRenderer
ptr <- Ptr GValue -> IO (Ptr GutterRenderer)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr GutterRenderer)
if Ptr GutterRenderer
ptr Ptr GutterRenderer -> Ptr GutterRenderer -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr GutterRenderer
forall a. Ptr a
FP.nullPtr
then GutterRenderer -> Maybe GutterRenderer
forall a. a -> Maybe a
P.Just (GutterRenderer -> Maybe GutterRenderer)
-> IO GutterRenderer -> IO (Maybe GutterRenderer)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr GutterRenderer -> GutterRenderer)
-> Ptr GutterRenderer -> IO GutterRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr GutterRenderer -> GutterRenderer
GutterRenderer Ptr GutterRenderer
ptr
else Maybe GutterRenderer -> IO (Maybe GutterRenderer)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GutterRenderer
forall a. Maybe a
P.Nothing
#if defined(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 "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
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.OverloadedMethod info GutterRenderer p) => OL.IsLabel t (GutterRenderer -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveGutterRendererMethod t GutterRenderer, O.OverloadedMethod info GutterRenderer p, R.HasField t GutterRenderer p) => R.HasField t GutterRenderer p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveGutterRendererMethod t GutterRenderer, O.OverloadedMethodInfo info GutterRenderer) => OL.IsLabel t (O.MethodProxy info GutterRenderer) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type GutterRendererActivateCallback =
Gtk.TextIter.TextIter
-> Gdk.Rectangle.Rectangle
-> Gdk.Event.Event
-> IO ()
type C_GutterRendererActivateCallback =
Ptr GutterRenderer ->
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)
wrap_GutterRendererActivateCallback ::
GObject a => (a -> GutterRendererActivateCallback) ->
C_GutterRendererActivateCallback
wrap_GutterRendererActivateCallback :: forall a.
GObject a =>
(a -> GutterRendererActivateCallback)
-> C_GutterRendererActivateCallback
wrap_GutterRendererActivateCallback a -> GutterRendererActivateCallback
gi'cb Ptr GutterRenderer
gi'selfPtr Ptr TextIter
iter Ptr Rectangle
area Ptr Event
event Ptr ()
_ = do
Ptr TextIter -> (TextIter -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextIter
iter ((TextIter -> IO ()) -> IO ()) -> (TextIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TextIter
iter' -> do
Ptr Rectangle -> (Rectangle -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Rectangle
area ((Rectangle -> IO ()) -> IO ()) -> (Rectangle -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Rectangle
area' -> do
Ptr Event -> (Event -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Event
event ((Event -> IO ()) -> IO ()) -> (Event -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Event
event' -> do
Ptr GutterRenderer -> (GutterRenderer -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr GutterRenderer
gi'selfPtr ((GutterRenderer -> IO ()) -> IO ())
-> (GutterRenderer -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \GutterRenderer
gi'self -> a -> GutterRendererActivateCallback
gi'cb (GutterRenderer -> a
forall a b. Coercible a b => a -> b
Coerce.coerce GutterRenderer
gi'self) TextIter
iter' Rectangle
area' Event
event'
onGutterRendererActivate :: (IsGutterRenderer a, MonadIO m) => a -> ((?self :: a) => GutterRendererActivateCallback) -> m SignalHandlerId
onGutterRendererActivate :: forall a (m :: * -> *).
(IsGutterRenderer a, MonadIO m) =>
a
-> ((?self::a) => GutterRendererActivateCallback)
-> m SignalHandlerId
onGutterRendererActivate a
obj (?self::a) => GutterRendererActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> GutterRendererActivateCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => GutterRendererActivateCallback
GutterRendererActivateCallback
cb
let wrapped' :: C_GutterRendererActivateCallback
wrapped' = (a -> GutterRendererActivateCallback)
-> C_GutterRendererActivateCallback
forall a.
GObject a =>
(a -> GutterRendererActivateCallback)
-> C_GutterRendererActivateCallback
wrap_GutterRendererActivateCallback a -> GutterRendererActivateCallback
wrapped
FunPtr C_GutterRendererActivateCallback
wrapped'' <- C_GutterRendererActivateCallback
-> IO (FunPtr C_GutterRendererActivateCallback)
mk_GutterRendererActivateCallback C_GutterRendererActivateCallback
wrapped'
a
-> Text
-> FunPtr C_GutterRendererActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_GutterRendererActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterGutterRendererActivate :: (IsGutterRenderer a, MonadIO m) => a -> ((?self :: a) => GutterRendererActivateCallback) -> m SignalHandlerId
afterGutterRendererActivate :: forall a (m :: * -> *).
(IsGutterRenderer a, MonadIO m) =>
a
-> ((?self::a) => GutterRendererActivateCallback)
-> m SignalHandlerId
afterGutterRendererActivate a
obj (?self::a) => GutterRendererActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> GutterRendererActivateCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => GutterRendererActivateCallback
GutterRendererActivateCallback
cb
let wrapped' :: C_GutterRendererActivateCallback
wrapped' = (a -> GutterRendererActivateCallback)
-> C_GutterRendererActivateCallback
forall a.
GObject a =>
(a -> GutterRendererActivateCallback)
-> C_GutterRendererActivateCallback
wrap_GutterRendererActivateCallback a -> GutterRendererActivateCallback
wrapped
FunPtr C_GutterRendererActivateCallback
wrapped'' <- C_GutterRendererActivateCallback
-> IO (FunPtr C_GutterRendererActivateCallback)
mk_GutterRendererActivateCallback C_GutterRendererActivateCallback
wrapped'
a
-> Text
-> FunPtr C_GutterRendererActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_GutterRendererActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data GutterRendererActivateSignalInfo
instance SignalInfo GutterRendererActivateSignalInfo where
type HaskellCallbackType GutterRendererActivateSignalInfo = GutterRendererActivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_GutterRendererActivateCallback cb
cb'' <- mk_GutterRendererActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer::activate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#g:signal:activate"})
#endif
type GutterRendererQueryActivatableCallback =
Gtk.TextIter.TextIter
-> Gdk.Rectangle.Rectangle
-> Gdk.Event.Event
-> IO Bool
type C_GutterRendererQueryActivatableCallback =
Ptr GutterRenderer ->
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)
wrap_GutterRendererQueryActivatableCallback ::
GObject a => (a -> GutterRendererQueryActivatableCallback) ->
C_GutterRendererQueryActivatableCallback
wrap_GutterRendererQueryActivatableCallback :: forall a.
GObject a =>
(a -> GutterRendererQueryActivatableCallback)
-> C_GutterRendererQueryActivatableCallback
wrap_GutterRendererQueryActivatableCallback a -> GutterRendererQueryActivatableCallback
gi'cb Ptr GutterRenderer
gi'selfPtr Ptr TextIter
iter Ptr Rectangle
area Ptr Event
event Ptr ()
_ = do
Ptr TextIter -> (TextIter -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextIter
iter ((TextIter -> IO CInt) -> IO CInt)
-> (TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \TextIter
iter' -> do
Ptr Rectangle -> (Rectangle -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Rectangle
area ((Rectangle -> IO CInt) -> IO CInt)
-> (Rectangle -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Rectangle
area' -> do
Ptr Event -> (Event -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Event
event ((Event -> IO CInt) -> IO CInt) -> (Event -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Event
event' -> do
Bool
result <- Ptr GutterRenderer -> (GutterRenderer -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr GutterRenderer
gi'selfPtr ((GutterRenderer -> IO Bool) -> IO Bool)
-> (GutterRenderer -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \GutterRenderer
gi'self -> a -> GutterRendererQueryActivatableCallback
gi'cb (GutterRenderer -> a
forall a b. Coercible a b => a -> b
Coerce.coerce GutterRenderer
gi'self) TextIter
iter' Rectangle
area' Event
event'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onGutterRendererQueryActivatable :: (IsGutterRenderer a, MonadIO m) => a -> ((?self :: a) => GutterRendererQueryActivatableCallback) -> m SignalHandlerId
onGutterRendererQueryActivatable :: forall a (m :: * -> *).
(IsGutterRenderer a, MonadIO m) =>
a
-> ((?self::a) => GutterRendererQueryActivatableCallback)
-> m SignalHandlerId
onGutterRendererQueryActivatable a
obj (?self::a) => GutterRendererQueryActivatableCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> GutterRendererQueryActivatableCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => GutterRendererQueryActivatableCallback
GutterRendererQueryActivatableCallback
cb
let wrapped' :: C_GutterRendererQueryActivatableCallback
wrapped' = (a -> GutterRendererQueryActivatableCallback)
-> C_GutterRendererQueryActivatableCallback
forall a.
GObject a =>
(a -> GutterRendererQueryActivatableCallback)
-> C_GutterRendererQueryActivatableCallback
wrap_GutterRendererQueryActivatableCallback a -> GutterRendererQueryActivatableCallback
wrapped
FunPtr C_GutterRendererQueryActivatableCallback
wrapped'' <- C_GutterRendererQueryActivatableCallback
-> IO (FunPtr C_GutterRendererQueryActivatableCallback)
mk_GutterRendererQueryActivatableCallback C_GutterRendererQueryActivatableCallback
wrapped'
a
-> Text
-> FunPtr C_GutterRendererQueryActivatableCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"query-activatable" FunPtr C_GutterRendererQueryActivatableCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterGutterRendererQueryActivatable :: (IsGutterRenderer a, MonadIO m) => a -> ((?self :: a) => GutterRendererQueryActivatableCallback) -> m SignalHandlerId
afterGutterRendererQueryActivatable :: forall a (m :: * -> *).
(IsGutterRenderer a, MonadIO m) =>
a
-> ((?self::a) => GutterRendererQueryActivatableCallback)
-> m SignalHandlerId
afterGutterRendererQueryActivatable a
obj (?self::a) => GutterRendererQueryActivatableCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> GutterRendererQueryActivatableCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => GutterRendererQueryActivatableCallback
GutterRendererQueryActivatableCallback
cb
let wrapped' :: C_GutterRendererQueryActivatableCallback
wrapped' = (a -> GutterRendererQueryActivatableCallback)
-> C_GutterRendererQueryActivatableCallback
forall a.
GObject a =>
(a -> GutterRendererQueryActivatableCallback)
-> C_GutterRendererQueryActivatableCallback
wrap_GutterRendererQueryActivatableCallback a -> GutterRendererQueryActivatableCallback
wrapped
FunPtr C_GutterRendererQueryActivatableCallback
wrapped'' <- C_GutterRendererQueryActivatableCallback
-> IO (FunPtr C_GutterRendererQueryActivatableCallback)
mk_GutterRendererQueryActivatableCallback C_GutterRendererQueryActivatableCallback
wrapped'
a
-> Text
-> FunPtr C_GutterRendererQueryActivatableCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"query-activatable" FunPtr C_GutterRendererQueryActivatableCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data GutterRendererQueryActivatableSignalInfo
instance SignalInfo GutterRendererQueryActivatableSignalInfo where
type HaskellCallbackType GutterRendererQueryActivatableSignalInfo = GutterRendererQueryActivatableCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_GutterRendererQueryActivatableCallback cb
cb'' <- mk_GutterRendererQueryActivatableCallback cb'
connectSignalFunPtr obj "query-activatable" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer::query-activatable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#g:signal:queryActivatable"})
#endif
type GutterRendererQueryDataCallback =
Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> [GtkSource.Flags.GutterRendererState]
-> IO ()
type C_GutterRendererQueryDataCallback =
Ptr GutterRenderer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_GutterRendererQueryDataCallback :: C_GutterRendererQueryDataCallback -> IO (FunPtr C_GutterRendererQueryDataCallback)
wrap_GutterRendererQueryDataCallback ::
GObject a => (a -> GutterRendererQueryDataCallback) ->
C_GutterRendererQueryDataCallback
wrap_GutterRendererQueryDataCallback :: forall a.
GObject a =>
(a -> GutterRendererQueryDataCallback)
-> C_GutterRendererQueryDataCallback
wrap_GutterRendererQueryDataCallback a -> GutterRendererQueryDataCallback
gi'cb Ptr GutterRenderer
gi'selfPtr Ptr TextIter
start Ptr TextIter
end CUInt
state Ptr ()
_ = do
Ptr TextIter -> (TextIter -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextIter
start ((TextIter -> IO ()) -> IO ()) -> (TextIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TextIter
start' -> do
Ptr TextIter -> (TextIter -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextIter
end ((TextIter -> IO ()) -> IO ()) -> (TextIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TextIter
end' -> do
let state' :: [GutterRendererState]
state' = CUInt -> [GutterRendererState]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
state
Ptr GutterRenderer -> (GutterRenderer -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr GutterRenderer
gi'selfPtr ((GutterRenderer -> IO ()) -> IO ())
-> (GutterRenderer -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \GutterRenderer
gi'self -> a -> GutterRendererQueryDataCallback
gi'cb (GutterRenderer -> a
forall a b. Coercible a b => a -> b
Coerce.coerce GutterRenderer
gi'self) TextIter
start' TextIter
end' [GutterRendererState]
state'
onGutterRendererQueryData :: (IsGutterRenderer a, MonadIO m) => a -> ((?self :: a) => GutterRendererQueryDataCallback) -> m SignalHandlerId
onGutterRendererQueryData :: forall a (m :: * -> *).
(IsGutterRenderer a, MonadIO m) =>
a
-> ((?self::a) => GutterRendererQueryDataCallback)
-> m SignalHandlerId
onGutterRendererQueryData a
obj (?self::a) => GutterRendererQueryDataCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> GutterRendererQueryDataCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => GutterRendererQueryDataCallback
GutterRendererQueryDataCallback
cb
let wrapped' :: C_GutterRendererQueryDataCallback
wrapped' = (a -> GutterRendererQueryDataCallback)
-> C_GutterRendererQueryDataCallback
forall a.
GObject a =>
(a -> GutterRendererQueryDataCallback)
-> C_GutterRendererQueryDataCallback
wrap_GutterRendererQueryDataCallback a -> GutterRendererQueryDataCallback
wrapped
FunPtr C_GutterRendererQueryDataCallback
wrapped'' <- C_GutterRendererQueryDataCallback
-> IO (FunPtr C_GutterRendererQueryDataCallback)
mk_GutterRendererQueryDataCallback C_GutterRendererQueryDataCallback
wrapped'
a
-> Text
-> FunPtr C_GutterRendererQueryDataCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"query-data" FunPtr C_GutterRendererQueryDataCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterGutterRendererQueryData :: (IsGutterRenderer a, MonadIO m) => a -> ((?self :: a) => GutterRendererQueryDataCallback) -> m SignalHandlerId
afterGutterRendererQueryData :: forall a (m :: * -> *).
(IsGutterRenderer a, MonadIO m) =>
a
-> ((?self::a) => GutterRendererQueryDataCallback)
-> m SignalHandlerId
afterGutterRendererQueryData a
obj (?self::a) => GutterRendererQueryDataCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> GutterRendererQueryDataCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => GutterRendererQueryDataCallback
GutterRendererQueryDataCallback
cb
let wrapped' :: C_GutterRendererQueryDataCallback
wrapped' = (a -> GutterRendererQueryDataCallback)
-> C_GutterRendererQueryDataCallback
forall a.
GObject a =>
(a -> GutterRendererQueryDataCallback)
-> C_GutterRendererQueryDataCallback
wrap_GutterRendererQueryDataCallback a -> GutterRendererQueryDataCallback
wrapped
FunPtr C_GutterRendererQueryDataCallback
wrapped'' <- C_GutterRendererQueryDataCallback
-> IO (FunPtr C_GutterRendererQueryDataCallback)
mk_GutterRendererQueryDataCallback C_GutterRendererQueryDataCallback
wrapped'
a
-> Text
-> FunPtr C_GutterRendererQueryDataCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"query-data" FunPtr C_GutterRendererQueryDataCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data GutterRendererQueryDataSignalInfo
instance SignalInfo GutterRendererQueryDataSignalInfo where
type HaskellCallbackType GutterRendererQueryDataSignalInfo = GutterRendererQueryDataCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_GutterRendererQueryDataCallback cb
cb'' <- mk_GutterRendererQueryDataCallback cb'
connectSignalFunPtr obj "query-data" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer::query-data"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#g:signal:queryData"})
#endif
type GutterRendererQueryTooltipCallback =
Gtk.TextIter.TextIter
-> Gdk.Rectangle.Rectangle
-> Int32
-> Int32
-> Gtk.Tooltip.Tooltip
-> IO Bool
type C_GutterRendererQueryTooltipCallback =
Ptr GutterRenderer ->
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)
wrap_GutterRendererQueryTooltipCallback ::
GObject a => (a -> GutterRendererQueryTooltipCallback) ->
C_GutterRendererQueryTooltipCallback
wrap_GutterRendererQueryTooltipCallback :: forall a.
GObject a =>
(a -> GutterRendererQueryTooltipCallback)
-> C_GutterRendererQueryTooltipCallback
wrap_GutterRendererQueryTooltipCallback a -> GutterRendererQueryTooltipCallback
gi'cb Ptr GutterRenderer
gi'selfPtr Ptr TextIter
iter Ptr Rectangle
area Int32
x Int32
y Ptr Tooltip
tooltip Ptr ()
_ = do
Ptr TextIter -> (TextIter -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TextIter
iter ((TextIter -> IO CInt) -> IO CInt)
-> (TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \TextIter
iter' -> do
Ptr Rectangle -> (Rectangle -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Rectangle
area ((Rectangle -> IO CInt) -> IO CInt)
-> (Rectangle -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Rectangle
area' -> do
Tooltip
tooltip' <- ((ManagedPtr Tooltip -> Tooltip) -> Ptr Tooltip -> IO Tooltip
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Tooltip -> Tooltip
Gtk.Tooltip.Tooltip) Ptr Tooltip
tooltip
Bool
result <- Ptr GutterRenderer -> (GutterRenderer -> IO Bool) -> IO Bool
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr GutterRenderer
gi'selfPtr ((GutterRenderer -> IO Bool) -> IO Bool)
-> (GutterRenderer -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \GutterRenderer
gi'self -> a -> GutterRendererQueryTooltipCallback
gi'cb (GutterRenderer -> a
forall a b. Coercible a b => a -> b
Coerce.coerce GutterRenderer
gi'self) TextIter
iter' Rectangle
area' Int32
x Int32
y Tooltip
tooltip'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onGutterRendererQueryTooltip :: (IsGutterRenderer a, MonadIO m) => a -> ((?self :: a) => GutterRendererQueryTooltipCallback) -> m SignalHandlerId
onGutterRendererQueryTooltip :: forall a (m :: * -> *).
(IsGutterRenderer a, MonadIO m) =>
a
-> ((?self::a) => GutterRendererQueryTooltipCallback)
-> m SignalHandlerId
onGutterRendererQueryTooltip a
obj (?self::a) => GutterRendererQueryTooltipCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> GutterRendererQueryTooltipCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => GutterRendererQueryTooltipCallback
GutterRendererQueryTooltipCallback
cb
let wrapped' :: C_GutterRendererQueryTooltipCallback
wrapped' = (a -> GutterRendererQueryTooltipCallback)
-> C_GutterRendererQueryTooltipCallback
forall a.
GObject a =>
(a -> GutterRendererQueryTooltipCallback)
-> C_GutterRendererQueryTooltipCallback
wrap_GutterRendererQueryTooltipCallback a -> GutterRendererQueryTooltipCallback
wrapped
FunPtr C_GutterRendererQueryTooltipCallback
wrapped'' <- C_GutterRendererQueryTooltipCallback
-> IO (FunPtr C_GutterRendererQueryTooltipCallback)
mk_GutterRendererQueryTooltipCallback C_GutterRendererQueryTooltipCallback
wrapped'
a
-> Text
-> FunPtr C_GutterRendererQueryTooltipCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"query-tooltip" FunPtr C_GutterRendererQueryTooltipCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterGutterRendererQueryTooltip :: (IsGutterRenderer a, MonadIO m) => a -> ((?self :: a) => GutterRendererQueryTooltipCallback) -> m SignalHandlerId
afterGutterRendererQueryTooltip :: forall a (m :: * -> *).
(IsGutterRenderer a, MonadIO m) =>
a
-> ((?self::a) => GutterRendererQueryTooltipCallback)
-> m SignalHandlerId
afterGutterRendererQueryTooltip a
obj (?self::a) => GutterRendererQueryTooltipCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> GutterRendererQueryTooltipCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => GutterRendererQueryTooltipCallback
GutterRendererQueryTooltipCallback
cb
let wrapped' :: C_GutterRendererQueryTooltipCallback
wrapped' = (a -> GutterRendererQueryTooltipCallback)
-> C_GutterRendererQueryTooltipCallback
forall a.
GObject a =>
(a -> GutterRendererQueryTooltipCallback)
-> C_GutterRendererQueryTooltipCallback
wrap_GutterRendererQueryTooltipCallback a -> GutterRendererQueryTooltipCallback
wrapped
FunPtr C_GutterRendererQueryTooltipCallback
wrapped'' <- C_GutterRendererQueryTooltipCallback
-> IO (FunPtr C_GutterRendererQueryTooltipCallback)
mk_GutterRendererQueryTooltipCallback C_GutterRendererQueryTooltipCallback
wrapped'
a
-> Text
-> FunPtr C_GutterRendererQueryTooltipCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"query-tooltip" FunPtr C_GutterRendererQueryTooltipCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data GutterRendererQueryTooltipSignalInfo
instance SignalInfo GutterRendererQueryTooltipSignalInfo where
type HaskellCallbackType GutterRendererQueryTooltipSignalInfo = GutterRendererQueryTooltipCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_GutterRendererQueryTooltipCallback cb
cb'' <- mk_GutterRendererQueryTooltipCallback cb'
connectSignalFunPtr obj "query-tooltip" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer::query-tooltip"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#g:signal:queryTooltip"})
#endif
type GutterRendererQueueDrawCallback =
IO ()
type C_GutterRendererQueueDrawCallback =
Ptr GutterRenderer ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_GutterRendererQueueDrawCallback :: C_GutterRendererQueueDrawCallback -> IO (FunPtr C_GutterRendererQueueDrawCallback)
wrap_GutterRendererQueueDrawCallback ::
GObject a => (a -> GutterRendererQueueDrawCallback) ->
C_GutterRendererQueueDrawCallback
wrap_GutterRendererQueueDrawCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_GutterRendererQueueDrawCallback
wrap_GutterRendererQueueDrawCallback a -> IO ()
gi'cb Ptr GutterRenderer
gi'selfPtr Ptr ()
_ = do
Ptr GutterRenderer -> (GutterRenderer -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr GutterRenderer
gi'selfPtr ((GutterRenderer -> IO ()) -> IO ())
-> (GutterRenderer -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \GutterRenderer
gi'self -> a -> IO ()
gi'cb (GutterRenderer -> a
forall a b. Coercible a b => a -> b
Coerce.coerce GutterRenderer
gi'self)
onGutterRendererQueueDraw :: (IsGutterRenderer a, MonadIO m) => a -> ((?self :: a) => GutterRendererQueueDrawCallback) -> m SignalHandlerId
onGutterRendererQueueDraw :: forall a (m :: * -> *).
(IsGutterRenderer a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onGutterRendererQueueDraw a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_GutterRendererQueueDrawCallback
wrapped' = (a -> IO ()) -> C_GutterRendererQueueDrawCallback
forall a.
GObject a =>
(a -> IO ()) -> C_GutterRendererQueueDrawCallback
wrap_GutterRendererQueueDrawCallback a -> IO ()
wrapped
FunPtr C_GutterRendererQueueDrawCallback
wrapped'' <- C_GutterRendererQueueDrawCallback
-> IO (FunPtr C_GutterRendererQueueDrawCallback)
mk_GutterRendererQueueDrawCallback C_GutterRendererQueueDrawCallback
wrapped'
a
-> Text
-> FunPtr C_GutterRendererQueueDrawCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"queue-draw" FunPtr C_GutterRendererQueueDrawCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterGutterRendererQueueDraw :: (IsGutterRenderer a, MonadIO m) => a -> ((?self :: a) => GutterRendererQueueDrawCallback) -> m SignalHandlerId
afterGutterRendererQueueDraw :: forall a (m :: * -> *).
(IsGutterRenderer a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterGutterRendererQueueDraw a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_GutterRendererQueueDrawCallback
wrapped' = (a -> IO ()) -> C_GutterRendererQueueDrawCallback
forall a.
GObject a =>
(a -> IO ()) -> C_GutterRendererQueueDrawCallback
wrap_GutterRendererQueueDrawCallback a -> IO ()
wrapped
FunPtr C_GutterRendererQueueDrawCallback
wrapped'' <- C_GutterRendererQueueDrawCallback
-> IO (FunPtr C_GutterRendererQueueDrawCallback)
mk_GutterRendererQueueDrawCallback C_GutterRendererQueueDrawCallback
wrapped'
a
-> Text
-> FunPtr C_GutterRendererQueueDrawCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"queue-draw" FunPtr C_GutterRendererQueueDrawCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data GutterRendererQueueDrawSignalInfo
instance SignalInfo GutterRendererQueueDrawSignalInfo where
type HaskellCallbackType GutterRendererQueueDrawSignalInfo = GutterRendererQueueDrawCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_GutterRendererQueueDrawCallback cb
cb'' <- mk_GutterRendererQueueDrawCallback cb'
connectSignalFunPtr obj "queue-draw" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer::queue-draw"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#g:signal:queueDraw"})
#endif
getGutterRendererAlignmentMode :: (MonadIO m, IsGutterRenderer o) => o -> m GtkSource.Enums.GutterRendererAlignmentMode
getGutterRendererAlignmentMode :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> m GutterRendererAlignmentMode
getGutterRendererAlignmentMode o
obj = IO GutterRendererAlignmentMode -> m GutterRendererAlignmentMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO GutterRendererAlignmentMode -> m GutterRendererAlignmentMode)
-> IO GutterRendererAlignmentMode -> m GutterRendererAlignmentMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO GutterRendererAlignmentMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"alignment-mode"
setGutterRendererAlignmentMode :: (MonadIO m, IsGutterRenderer o) => o -> GtkSource.Enums.GutterRendererAlignmentMode -> m ()
setGutterRendererAlignmentMode :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> GutterRendererAlignmentMode -> m ()
setGutterRendererAlignmentMode o
obj GutterRendererAlignmentMode
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> GutterRendererAlignmentMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"alignment-mode" GutterRendererAlignmentMode
val
constructGutterRendererAlignmentMode :: (IsGutterRenderer o, MIO.MonadIO m) => GtkSource.Enums.GutterRendererAlignmentMode -> m (GValueConstruct o)
constructGutterRendererAlignmentMode :: forall o (m :: * -> *).
(IsGutterRenderer o, MonadIO m) =>
GutterRendererAlignmentMode -> m (GValueConstruct o)
constructGutterRendererAlignmentMode GutterRendererAlignmentMode
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> GutterRendererAlignmentMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"alignment-mode" GutterRendererAlignmentMode
val
#if defined(ENABLE_OVERLOADING)
data GutterRendererAlignmentModePropertyInfo
instance AttrInfo GutterRendererAlignmentModePropertyInfo where
type AttrAllowedOps GutterRendererAlignmentModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GutterRendererAlignmentModePropertyInfo = IsGutterRenderer
type AttrSetTypeConstraint GutterRendererAlignmentModePropertyInfo = (~) GtkSource.Enums.GutterRendererAlignmentMode
type AttrTransferTypeConstraint GutterRendererAlignmentModePropertyInfo = (~) GtkSource.Enums.GutterRendererAlignmentMode
type AttrTransferType GutterRendererAlignmentModePropertyInfo = GtkSource.Enums.GutterRendererAlignmentMode
type AttrGetType GutterRendererAlignmentModePropertyInfo = GtkSource.Enums.GutterRendererAlignmentMode
type AttrLabel GutterRendererAlignmentModePropertyInfo = "alignment-mode"
type AttrOrigin GutterRendererAlignmentModePropertyInfo = GutterRenderer
attrGet = getGutterRendererAlignmentMode
attrSet = setGutterRendererAlignmentMode
attrTransfer _ v = do
return v
attrConstruct = constructGutterRendererAlignmentMode
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.alignmentMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#g:attr:alignmentMode"
})
#endif
getGutterRendererBackgroundRgba :: (MonadIO m, IsGutterRenderer o) => o -> m (Maybe Gdk.RGBA.RGBA)
getGutterRendererBackgroundRgba :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> m (Maybe RGBA)
getGutterRendererBackgroundRgba o
obj = IO (Maybe RGBA) -> m (Maybe RGBA)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe RGBA) -> m (Maybe RGBA))
-> IO (Maybe RGBA) -> m (Maybe RGBA)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr RGBA -> RGBA) -> IO (Maybe RGBA)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"background-rgba" ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA
setGutterRendererBackgroundRgba :: (MonadIO m, IsGutterRenderer o) => o -> Gdk.RGBA.RGBA -> m ()
setGutterRendererBackgroundRgba :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> RGBA -> m ()
setGutterRendererBackgroundRgba o
obj RGBA
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe RGBA -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"background-rgba" (RGBA -> Maybe RGBA
forall a. a -> Maybe a
Just RGBA
val)
constructGutterRendererBackgroundRgba :: (IsGutterRenderer o, MIO.MonadIO m) => Gdk.RGBA.RGBA -> m (GValueConstruct o)
constructGutterRendererBackgroundRgba :: forall o (m :: * -> *).
(IsGutterRenderer o, MonadIO m) =>
RGBA -> m (GValueConstruct o)
constructGutterRendererBackgroundRgba RGBA
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe RGBA -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"background-rgba" (RGBA -> Maybe RGBA
forall a. a -> Maybe a
P.Just RGBA
val)
clearGutterRendererBackgroundRgba :: (MonadIO m, IsGutterRenderer o) => o -> m ()
clearGutterRendererBackgroundRgba :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> m ()
clearGutterRendererBackgroundRgba o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe RGBA -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"background-rgba" (Maybe RGBA
forall a. Maybe a
Nothing :: Maybe Gdk.RGBA.RGBA)
#if defined(ENABLE_OVERLOADING)
data GutterRendererBackgroundRgbaPropertyInfo
instance AttrInfo GutterRendererBackgroundRgbaPropertyInfo where
type AttrAllowedOps GutterRendererBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint GutterRendererBackgroundRgbaPropertyInfo = IsGutterRenderer
type AttrSetTypeConstraint GutterRendererBackgroundRgbaPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrTransferTypeConstraint GutterRendererBackgroundRgbaPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrTransferType GutterRendererBackgroundRgbaPropertyInfo = Gdk.RGBA.RGBA
type AttrGetType GutterRendererBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA.RGBA)
type AttrLabel GutterRendererBackgroundRgbaPropertyInfo = "background-rgba"
type AttrOrigin GutterRendererBackgroundRgbaPropertyInfo = GutterRenderer
attrGet = getGutterRendererBackgroundRgba
attrSet = setGutterRendererBackgroundRgba
attrTransfer _ v = do
return v
attrConstruct = constructGutterRendererBackgroundRgba
attrClear = clearGutterRendererBackgroundRgba
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.backgroundRgba"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#g:attr:backgroundRgba"
})
#endif
getGutterRendererBackgroundSet :: (MonadIO m, IsGutterRenderer o) => o -> m Bool
getGutterRendererBackgroundSet :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> m Bool
getGutterRendererBackgroundSet o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"background-set"
setGutterRendererBackgroundSet :: (MonadIO m, IsGutterRenderer o) => o -> Bool -> m ()
setGutterRendererBackgroundSet :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> Bool -> m ()
setGutterRendererBackgroundSet o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"background-set" Bool
val
constructGutterRendererBackgroundSet :: (IsGutterRenderer o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructGutterRendererBackgroundSet :: forall o (m :: * -> *).
(IsGutterRenderer o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructGutterRendererBackgroundSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"background-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data GutterRendererBackgroundSetPropertyInfo
instance AttrInfo GutterRendererBackgroundSetPropertyInfo where
type AttrAllowedOps GutterRendererBackgroundSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GutterRendererBackgroundSetPropertyInfo = IsGutterRenderer
type AttrSetTypeConstraint GutterRendererBackgroundSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint GutterRendererBackgroundSetPropertyInfo = (~) Bool
type AttrTransferType GutterRendererBackgroundSetPropertyInfo = Bool
type AttrGetType GutterRendererBackgroundSetPropertyInfo = Bool
type AttrLabel GutterRendererBackgroundSetPropertyInfo = "background-set"
type AttrOrigin GutterRendererBackgroundSetPropertyInfo = GutterRenderer
attrGet = getGutterRendererBackgroundSet
attrSet = setGutterRendererBackgroundSet
attrTransfer _ v = do
return v
attrConstruct = constructGutterRendererBackgroundSet
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.backgroundSet"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#g:attr:backgroundSet"
})
#endif
getGutterRendererSize :: (MonadIO m, IsGutterRenderer o) => o -> m Int32
getGutterRendererSize :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> m Int32
getGutterRendererSize o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"size"
setGutterRendererSize :: (MonadIO m, IsGutterRenderer o) => o -> Int32 -> m ()
setGutterRendererSize :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> Int32 -> m ()
setGutterRendererSize o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"size" Int32
val
constructGutterRendererSize :: (IsGutterRenderer o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructGutterRendererSize :: forall o (m :: * -> *).
(IsGutterRenderer o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructGutterRendererSize Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"size" Int32
val
#if defined(ENABLE_OVERLOADING)
data GutterRendererSizePropertyInfo
instance AttrInfo GutterRendererSizePropertyInfo where
type AttrAllowedOps GutterRendererSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GutterRendererSizePropertyInfo = IsGutterRenderer
type AttrSetTypeConstraint GutterRendererSizePropertyInfo = (~) Int32
type AttrTransferTypeConstraint GutterRendererSizePropertyInfo = (~) Int32
type AttrTransferType GutterRendererSizePropertyInfo = Int32
type AttrGetType GutterRendererSizePropertyInfo = Int32
type AttrLabel GutterRendererSizePropertyInfo = "size"
type AttrOrigin GutterRendererSizePropertyInfo = GutterRenderer
attrGet = getGutterRendererSize
attrSet = setGutterRendererSize
attrTransfer _ v = do
return v
attrConstruct = constructGutterRendererSize
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.size"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#g:attr:size"
})
#endif
getGutterRendererView :: (MonadIO m, IsGutterRenderer o) => o -> m Gtk.TextView.TextView
getGutterRendererView :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> m TextView
getGutterRendererView o
obj = IO TextView -> m TextView
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TextView -> m TextView) -> IO TextView -> m TextView
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe TextView) -> IO TextView
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getGutterRendererView" (IO (Maybe TextView) -> IO TextView)
-> IO (Maybe TextView) -> IO TextView
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr TextView -> TextView)
-> IO (Maybe TextView)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"view" ManagedPtr TextView -> TextView
Gtk.TextView.TextView
#if defined(ENABLE_OVERLOADING)
data GutterRendererViewPropertyInfo
instance AttrInfo GutterRendererViewPropertyInfo where
type AttrAllowedOps GutterRendererViewPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint GutterRendererViewPropertyInfo = IsGutterRenderer
type AttrSetTypeConstraint GutterRendererViewPropertyInfo = (~) ()
type AttrTransferTypeConstraint GutterRendererViewPropertyInfo = (~) ()
type AttrTransferType GutterRendererViewPropertyInfo = ()
type AttrGetType GutterRendererViewPropertyInfo = Gtk.TextView.TextView
type AttrLabel GutterRendererViewPropertyInfo = "view"
type AttrOrigin GutterRendererViewPropertyInfo = GutterRenderer
attrGet = getGutterRendererView
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.view"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#g:attr:view"
})
#endif
getGutterRendererVisible :: (MonadIO m, IsGutterRenderer o) => o -> m Bool
getGutterRendererVisible :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> m Bool
getGutterRendererVisible o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"visible"
setGutterRendererVisible :: (MonadIO m, IsGutterRenderer o) => o -> Bool -> m ()
setGutterRendererVisible :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> Bool -> m ()
setGutterRendererVisible o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"visible" Bool
val
constructGutterRendererVisible :: (IsGutterRenderer o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructGutterRendererVisible :: forall o (m :: * -> *).
(IsGutterRenderer o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructGutterRendererVisible Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data GutterRendererVisiblePropertyInfo
instance AttrInfo GutterRendererVisiblePropertyInfo where
type AttrAllowedOps GutterRendererVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GutterRendererVisiblePropertyInfo = IsGutterRenderer
type AttrSetTypeConstraint GutterRendererVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint GutterRendererVisiblePropertyInfo = (~) Bool
type AttrTransferType GutterRendererVisiblePropertyInfo = Bool
type AttrGetType GutterRendererVisiblePropertyInfo = Bool
type AttrLabel GutterRendererVisiblePropertyInfo = "visible"
type AttrOrigin GutterRendererVisiblePropertyInfo = GutterRenderer
attrGet = getGutterRendererVisible
attrSet = setGutterRendererVisible
attrTransfer _ v = do
return v
attrConstruct = constructGutterRendererVisible
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.visible"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#g:attr:visible"
})
#endif
getGutterRendererWindowType :: (MonadIO m, IsGutterRenderer o) => o -> m Gtk.Enums.TextWindowType
getGutterRendererWindowType :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> m TextWindowType
getGutterRendererWindowType o
obj = IO TextWindowType -> m TextWindowType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TextWindowType -> m TextWindowType)
-> IO TextWindowType -> m TextWindowType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO TextWindowType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"window-type"
#if defined(ENABLE_OVERLOADING)
data GutterRendererWindowTypePropertyInfo
instance AttrInfo GutterRendererWindowTypePropertyInfo where
type AttrAllowedOps GutterRendererWindowTypePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint GutterRendererWindowTypePropertyInfo = IsGutterRenderer
type AttrSetTypeConstraint GutterRendererWindowTypePropertyInfo = (~) ()
type AttrTransferTypeConstraint GutterRendererWindowTypePropertyInfo = (~) ()
type AttrTransferType GutterRendererWindowTypePropertyInfo = ()
type AttrGetType GutterRendererWindowTypePropertyInfo = Gtk.Enums.TextWindowType
type AttrLabel GutterRendererWindowTypePropertyInfo = "window-type"
type AttrOrigin GutterRendererWindowTypePropertyInfo = GutterRenderer
attrGet = getGutterRendererWindowType
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.windowType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#g:attr:windowType"
})
#endif
getGutterRendererXalign :: (MonadIO m, IsGutterRenderer o) => o -> m Float
getGutterRendererXalign :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> m Float
getGutterRendererXalign o
obj = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj String
"xalign"
setGutterRendererXalign :: (MonadIO m, IsGutterRenderer o) => o -> Float -> m ()
setGutterRendererXalign :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> Float -> m ()
setGutterRendererXalign o
obj Float
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Float -> IO ()
forall a. GObject a => a -> String -> Float -> IO ()
B.Properties.setObjectPropertyFloat o
obj String
"xalign" Float
val
constructGutterRendererXalign :: (IsGutterRenderer o, MIO.MonadIO m) => Float -> m (GValueConstruct o)
constructGutterRendererXalign :: forall o (m :: * -> *).
(IsGutterRenderer o, MonadIO m) =>
Float -> m (GValueConstruct o)
constructGutterRendererXalign Float
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Float -> IO (GValueConstruct o)
forall o. String -> Float -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFloat String
"xalign" Float
val
#if defined(ENABLE_OVERLOADING)
data GutterRendererXalignPropertyInfo
instance AttrInfo GutterRendererXalignPropertyInfo where
type AttrAllowedOps GutterRendererXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GutterRendererXalignPropertyInfo = IsGutterRenderer
type AttrSetTypeConstraint GutterRendererXalignPropertyInfo = (~) Float
type AttrTransferTypeConstraint GutterRendererXalignPropertyInfo = (~) Float
type AttrTransferType GutterRendererXalignPropertyInfo = Float
type AttrGetType GutterRendererXalignPropertyInfo = Float
type AttrLabel GutterRendererXalignPropertyInfo = "xalign"
type AttrOrigin GutterRendererXalignPropertyInfo = GutterRenderer
attrGet = getGutterRendererXalign
attrSet = setGutterRendererXalign
attrTransfer _ v = do
return v
attrConstruct = constructGutterRendererXalign
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.xalign"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#g:attr:xalign"
})
#endif
getGutterRendererXpad :: (MonadIO m, IsGutterRenderer o) => o -> m Int32
getGutterRendererXpad :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> m Int32
getGutterRendererXpad o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"xpad"
setGutterRendererXpad :: (MonadIO m, IsGutterRenderer o) => o -> Int32 -> m ()
setGutterRendererXpad :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> Int32 -> m ()
setGutterRendererXpad o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"xpad" Int32
val
constructGutterRendererXpad :: (IsGutterRenderer o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructGutterRendererXpad :: forall o (m :: * -> *).
(IsGutterRenderer o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructGutterRendererXpad Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"xpad" Int32
val
#if defined(ENABLE_OVERLOADING)
data GutterRendererXpadPropertyInfo
instance AttrInfo GutterRendererXpadPropertyInfo where
type AttrAllowedOps GutterRendererXpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GutterRendererXpadPropertyInfo = IsGutterRenderer
type AttrSetTypeConstraint GutterRendererXpadPropertyInfo = (~) Int32
type AttrTransferTypeConstraint GutterRendererXpadPropertyInfo = (~) Int32
type AttrTransferType GutterRendererXpadPropertyInfo = Int32
type AttrGetType GutterRendererXpadPropertyInfo = Int32
type AttrLabel GutterRendererXpadPropertyInfo = "xpad"
type AttrOrigin GutterRendererXpadPropertyInfo = GutterRenderer
attrGet = getGutterRendererXpad
attrSet = setGutterRendererXpad
attrTransfer _ v = do
return v
attrConstruct = constructGutterRendererXpad
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.xpad"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#g:attr:xpad"
})
#endif
getGutterRendererYalign :: (MonadIO m, IsGutterRenderer o) => o -> m Float
getGutterRendererYalign :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> m Float
getGutterRendererYalign o
obj = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj String
"yalign"
setGutterRendererYalign :: (MonadIO m, IsGutterRenderer o) => o -> Float -> m ()
setGutterRendererYalign :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> Float -> m ()
setGutterRendererYalign o
obj Float
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Float -> IO ()
forall a. GObject a => a -> String -> Float -> IO ()
B.Properties.setObjectPropertyFloat o
obj String
"yalign" Float
val
constructGutterRendererYalign :: (IsGutterRenderer o, MIO.MonadIO m) => Float -> m (GValueConstruct o)
constructGutterRendererYalign :: forall o (m :: * -> *).
(IsGutterRenderer o, MonadIO m) =>
Float -> m (GValueConstruct o)
constructGutterRendererYalign Float
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Float -> IO (GValueConstruct o)
forall o. String -> Float -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFloat String
"yalign" Float
val
#if defined(ENABLE_OVERLOADING)
data GutterRendererYalignPropertyInfo
instance AttrInfo GutterRendererYalignPropertyInfo where
type AttrAllowedOps GutterRendererYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GutterRendererYalignPropertyInfo = IsGutterRenderer
type AttrSetTypeConstraint GutterRendererYalignPropertyInfo = (~) Float
type AttrTransferTypeConstraint GutterRendererYalignPropertyInfo = (~) Float
type AttrTransferType GutterRendererYalignPropertyInfo = Float
type AttrGetType GutterRendererYalignPropertyInfo = Float
type AttrLabel GutterRendererYalignPropertyInfo = "yalign"
type AttrOrigin GutterRendererYalignPropertyInfo = GutterRenderer
attrGet = getGutterRendererYalign
attrSet = setGutterRendererYalign
attrTransfer _ v = do
return v
attrConstruct = constructGutterRendererYalign
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.yalign"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#g:attr:yalign"
})
#endif
getGutterRendererYpad :: (MonadIO m, IsGutterRenderer o) => o -> m Int32
getGutterRendererYpad :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> m Int32
getGutterRendererYpad o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"ypad"
setGutterRendererYpad :: (MonadIO m, IsGutterRenderer o) => o -> Int32 -> m ()
setGutterRendererYpad :: forall (m :: * -> *) o.
(MonadIO m, IsGutterRenderer o) =>
o -> Int32 -> m ()
setGutterRendererYpad o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"ypad" Int32
val
constructGutterRendererYpad :: (IsGutterRenderer o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructGutterRendererYpad :: forall o (m :: * -> *).
(IsGutterRenderer o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructGutterRendererYpad Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"ypad" Int32
val
#if defined(ENABLE_OVERLOADING)
data GutterRendererYpadPropertyInfo
instance AttrInfo GutterRendererYpadPropertyInfo where
type AttrAllowedOps GutterRendererYpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GutterRendererYpadPropertyInfo = IsGutterRenderer
type AttrSetTypeConstraint GutterRendererYpadPropertyInfo = (~) Int32
type AttrTransferTypeConstraint GutterRendererYpadPropertyInfo = (~) Int32
type AttrTransferType GutterRendererYpadPropertyInfo = Int32
type AttrGetType GutterRendererYpadPropertyInfo = Int32
type AttrLabel GutterRendererYpadPropertyInfo = "ypad"
type AttrOrigin GutterRendererYpadPropertyInfo = GutterRenderer
attrGet = getGutterRendererYpad
attrSet = setGutterRendererYpad
attrTransfer _ v = do
return v
attrConstruct = constructGutterRendererYpad
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.ypad"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#g:attr:ypad"
})
#endif
#if defined(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 defined(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 defined(ENABLE_OVERLOADING)
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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> TextIter -> Rectangle -> Event -> m ()
gutterRendererActivate a
renderer TextIter
iter Rectangle
area Event
event = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr Rectangle
area' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
area
Ptr Event
event' <- Event -> IO (Ptr Event)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr GutterRenderer
-> Ptr TextIter -> Ptr Rectangle -> Ptr Event -> IO ()
gtk_source_gutter_renderer_activate Ptr GutterRenderer
renderer' Ptr TextIter
iter' Ptr Rectangle
area' Ptr Event
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
area
Event -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRendererActivateMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gdk.Rectangle.Rectangle -> Gdk.Event.Event -> m ()), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererActivateMethodInfo a signature where
overloadedMethod = gutterRendererActivate
instance O.OverloadedMethodInfo GutterRendererActivateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererActivate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Context
-> Rectangle
-> Rectangle
-> TextIter
-> TextIter
-> m ()
gutterRendererBegin a
renderer Context
cr Rectangle
backgroundArea Rectangle
cellArea TextIter
start TextIter
end = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
Ptr Context
cr' <- Context -> IO (Ptr Context)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Context
cr
Ptr Rectangle
backgroundArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
backgroundArea
Ptr Rectangle
cellArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
Ptr TextIter
start' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
Ptr GutterRenderer
-> Ptr Context
-> Ptr Rectangle
-> Ptr Rectangle
-> Ptr TextIter
-> Ptr TextIter
-> IO ()
gtk_source_gutter_renderer_begin Ptr GutterRenderer
renderer' Ptr Context
cr' Ptr Rectangle
backgroundArea' Ptr Rectangle
cellArea' Ptr TextIter
start' Ptr TextIter
end'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
Context -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Context
cr
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
backgroundArea
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(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.OverloadedMethod GutterRendererBeginMethodInfo a signature where
overloadedMethod = gutterRendererBegin
instance O.OverloadedMethodInfo GutterRendererBeginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererBegin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Context
-> Rectangle
-> Rectangle
-> TextIter
-> TextIter
-> [GutterRendererState]
-> m ()
gutterRendererDraw a
renderer Context
cr Rectangle
backgroundArea Rectangle
cellArea TextIter
start TextIter
end [GutterRendererState]
state = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
Ptr Context
cr' <- Context -> IO (Ptr Context)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Context
cr
Ptr Rectangle
backgroundArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
backgroundArea
Ptr Rectangle
cellArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
cellArea
Ptr TextIter
start' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
let state' :: CUInt
state' = [GutterRendererState] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [GutterRendererState]
state
Ptr GutterRenderer
-> Ptr Context
-> Ptr Rectangle
-> Ptr Rectangle
-> Ptr TextIter
-> Ptr TextIter
-> CUInt
-> IO ()
gtk_source_gutter_renderer_draw Ptr GutterRenderer
renderer' Ptr Context
cr' Ptr Rectangle
backgroundArea' Ptr Rectangle
cellArea' Ptr TextIter
start' Ptr TextIter
end' CUInt
state'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
Context -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Context
cr
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
backgroundArea
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
cellArea
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(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.OverloadedMethod GutterRendererDrawMethodInfo a signature where
overloadedMethod = gutterRendererDraw
instance O.OverloadedMethodInfo GutterRendererDrawMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererDraw",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> m ()
gutterRendererEnd a
renderer = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
Ptr GutterRenderer -> IO ()
gtk_source_gutter_renderer_end Ptr GutterRenderer
renderer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRendererEndMethodInfo
instance (signature ~ (m ()), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererEndMethodInfo a signature where
overloadedMethod = gutterRendererEnd
instance O.OverloadedMethodInfo GutterRendererEndMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererEnd",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v:gutterRendererEnd"
})
#endif
#if defined(ENABLE_OVERLOADING)
data GutterRendererGetAlignmentMethodInfo
instance (p ~ (), o ~ O.UnsupportedMethodError "getAlignment" GutterRenderer) => O.OverloadedMethod GutterRendererGetAlignmentMethodInfo o p where
overloadedMethod = undefined
instance (o ~ O.UnsupportedMethodError "getAlignment" GutterRenderer) => O.OverloadedMethodInfo GutterRendererGetAlignmentMethodInfo o where
overloadedMethodInfo = 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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> m GutterRendererAlignmentMode
gutterRendererGetAlignmentMode a
renderer = IO GutterRendererAlignmentMode -> m GutterRendererAlignmentMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GutterRendererAlignmentMode -> m GutterRendererAlignmentMode)
-> IO GutterRendererAlignmentMode -> m GutterRendererAlignmentMode
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
CUInt
result <- Ptr GutterRenderer -> IO CUInt
gtk_source_gutter_renderer_get_alignment_mode Ptr GutterRenderer
renderer'
let result' :: GutterRendererAlignmentMode
result' = (Int -> GutterRendererAlignmentMode
forall a. Enum a => Int -> a
toEnum (Int -> GutterRendererAlignmentMode)
-> (CUInt -> Int) -> CUInt -> GutterRendererAlignmentMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
GutterRendererAlignmentMode -> IO GutterRendererAlignmentMode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GutterRendererAlignmentMode
result'
#if defined(ENABLE_OVERLOADING)
data GutterRendererGetAlignmentModeMethodInfo
instance (signature ~ (m GtkSource.Enums.GutterRendererAlignmentMode), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererGetAlignmentModeMethodInfo a signature where
overloadedMethod = gutterRendererGetAlignmentMode
instance O.OverloadedMethodInfo GutterRendererGetAlignmentModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererGetAlignmentMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> m (Bool, RGBA)
gutterRendererGetBackground a
renderer = IO (Bool, RGBA) -> m (Bool, RGBA)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, RGBA) -> m (Bool, RGBA))
-> IO (Bool, RGBA) -> m (Bool, RGBA)
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
Ptr RGBA
color <- Int -> IO (Ptr RGBA)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
32 :: IO (Ptr Gdk.RGBA.RGBA)
CInt
result <- Ptr GutterRenderer -> Ptr RGBA -> IO CInt
gtk_source_gutter_renderer_get_background Ptr GutterRenderer
renderer' Ptr RGBA
color
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
RGBA
color' <- ((ManagedPtr RGBA -> RGBA) -> Ptr RGBA -> IO RGBA
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA) Ptr RGBA
color
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
(Bool, RGBA) -> IO (Bool, RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', RGBA
color')
#if defined(ENABLE_OVERLOADING)
data GutterRendererGetBackgroundMethodInfo
instance (signature ~ (m ((Bool, Gdk.RGBA.RGBA))), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererGetBackgroundMethodInfo a signature where
overloadedMethod = gutterRendererGetBackground
instance O.OverloadedMethodInfo GutterRendererGetBackgroundMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererGetBackground",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v:gutterRendererGetBackground"
})
#endif
#if defined(ENABLE_OVERLOADING)
data GutterRendererGetPaddingMethodInfo
instance (p ~ (), o ~ O.UnsupportedMethodError "getPadding" GutterRenderer) => O.OverloadedMethod GutterRendererGetPaddingMethodInfo o p where
overloadedMethod = undefined
instance (o ~ O.UnsupportedMethodError "getPadding" GutterRenderer) => O.OverloadedMethodInfo GutterRendererGetPaddingMethodInfo o where
overloadedMethodInfo = 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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> m Int32
gutterRendererGetSize a
renderer = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
Int32
result <- Ptr GutterRenderer -> IO Int32
gtk_source_gutter_renderer_get_size Ptr GutterRenderer
renderer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data GutterRendererGetSizeMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererGetSizeMethodInfo a signature where
overloadedMethod = gutterRendererGetSize
instance O.OverloadedMethodInfo GutterRendererGetSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererGetSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> m TextView
gutterRendererGetView a
renderer = IO TextView -> m TextView
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TextView -> m TextView) -> IO TextView -> m TextView
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
Ptr TextView
result <- Ptr GutterRenderer -> IO (Ptr TextView)
gtk_source_gutter_renderer_get_view Ptr GutterRenderer
renderer'
Text -> Ptr TextView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"gutterRendererGetView" Ptr TextView
result
TextView
result' <- ((ManagedPtr TextView -> TextView) -> Ptr TextView -> IO TextView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextView -> TextView
Gtk.TextView.TextView) Ptr TextView
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
TextView -> IO TextView
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TextView
result'
#if defined(ENABLE_OVERLOADING)
data GutterRendererGetViewMethodInfo
instance (signature ~ (m Gtk.TextView.TextView), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererGetViewMethodInfo a signature where
overloadedMethod = gutterRendererGetView
instance O.OverloadedMethodInfo GutterRendererGetViewMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererGetView",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> m Bool
gutterRendererGetVisible a
renderer = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
CInt
result <- Ptr GutterRenderer -> IO CInt
gtk_source_gutter_renderer_get_visible Ptr GutterRenderer
renderer'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GutterRendererGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererGetVisibleMethodInfo a signature where
overloadedMethod = gutterRendererGetVisible
instance O.OverloadedMethodInfo GutterRendererGetVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererGetVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> m TextWindowType
gutterRendererGetWindowType a
renderer = IO TextWindowType -> m TextWindowType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TextWindowType -> m TextWindowType)
-> IO TextWindowType -> m TextWindowType
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
CUInt
result <- Ptr GutterRenderer -> IO CUInt
gtk_source_gutter_renderer_get_window_type Ptr GutterRenderer
renderer'
let result' :: TextWindowType
result' = (Int -> TextWindowType
forall a. Enum a => Int -> a
toEnum (Int -> TextWindowType)
-> (CUInt -> Int) -> CUInt -> TextWindowType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
TextWindowType -> IO TextWindowType
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TextWindowType
result'
#if defined(ENABLE_OVERLOADING)
data GutterRendererGetWindowTypeMethodInfo
instance (signature ~ (m Gtk.Enums.TextWindowType), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererGetWindowTypeMethodInfo a signature where
overloadedMethod = gutterRendererGetWindowType
instance O.OverloadedMethodInfo GutterRendererGetWindowTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererGetWindowType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> TextIter -> Rectangle -> Event -> m Bool
gutterRendererQueryActivatable a
renderer TextIter
iter Rectangle
area Event
event = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr Rectangle
area' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
area
Ptr Event
event' <- Event -> IO (Ptr Event)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
CInt
result <- Ptr GutterRenderer
-> Ptr TextIter -> Ptr Rectangle -> Ptr Event -> IO CInt
gtk_source_gutter_renderer_query_activatable Ptr GutterRenderer
renderer' Ptr TextIter
iter' Ptr Rectangle
area' Ptr Event
event'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
area
Event -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GutterRendererQueryActivatableMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gdk.Rectangle.Rectangle -> Gdk.Event.Event -> m Bool), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererQueryActivatableMethodInfo a signature where
overloadedMethod = gutterRendererQueryActivatable
instance O.OverloadedMethodInfo GutterRendererQueryActivatableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererQueryActivatable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> TextIter -> TextIter -> [GutterRendererState] -> m ()
gutterRendererQueryData a
renderer TextIter
start TextIter
end [GutterRendererState]
state = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
Ptr TextIter
start' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
start
Ptr TextIter
end' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
end
let state' :: CUInt
state' = [GutterRendererState] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [GutterRendererState]
state
Ptr GutterRenderer
-> Ptr TextIter -> Ptr TextIter -> CUInt -> IO ()
gtk_source_gutter_renderer_query_data Ptr GutterRenderer
renderer' Ptr TextIter
start' Ptr TextIter
end' CUInt
state'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
start
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
end
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRendererQueryDataMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> [GtkSource.Flags.GutterRendererState] -> m ()), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererQueryDataMethodInfo a signature where
overloadedMethod = gutterRendererQueryData
instance O.OverloadedMethodInfo GutterRendererQueryDataMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererQueryData",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsGutterRenderer a, IsTooltip b) =>
a -> TextIter -> Rectangle -> Int32 -> Int32 -> b -> m Bool
gutterRendererQueryTooltip a
renderer TextIter
iter Rectangle
area Int32
x Int32
y b
tooltip = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr Rectangle
area' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
area
Ptr Tooltip
tooltip' <- b -> IO (Ptr Tooltip)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
tooltip
CInt
result <- Ptr GutterRenderer
-> Ptr TextIter
-> Ptr Rectangle
-> Int32
-> Int32
-> Ptr Tooltip
-> IO CInt
gtk_source_gutter_renderer_query_tooltip Ptr GutterRenderer
renderer' Ptr TextIter
iter' Ptr Rectangle
area' Int32
x Int32
y Ptr Tooltip
tooltip'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
area
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
tooltip
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(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.OverloadedMethod GutterRendererQueryTooltipMethodInfo a signature where
overloadedMethod = gutterRendererQueryTooltip
instance O.OverloadedMethodInfo GutterRendererQueryTooltipMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererQueryTooltip",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> m ()
gutterRendererQueueDraw a
renderer = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
Ptr GutterRenderer -> IO ()
gtk_source_gutter_renderer_queue_draw Ptr GutterRenderer
renderer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRendererQueueDrawMethodInfo
instance (signature ~ (m ()), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererQueueDrawMethodInfo a signature where
overloadedMethod = gutterRendererQueueDraw
instance O.OverloadedMethodInfo GutterRendererQueueDrawMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererQueueDraw",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> Float -> Float -> m ()
gutterRendererSetAlignment a
renderer Float
xalign Float
yalign = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
let xalign' :: CFloat
xalign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
xalign
let yalign' :: CFloat
yalign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
yalign
Ptr GutterRenderer -> CFloat -> CFloat -> IO ()
gtk_source_gutter_renderer_set_alignment Ptr GutterRenderer
renderer' CFloat
xalign' CFloat
yalign'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRendererSetAlignmentMethodInfo
instance (signature ~ (Float -> Float -> m ()), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererSetAlignmentMethodInfo a signature where
overloadedMethod = gutterRendererSetAlignment
instance O.OverloadedMethodInfo GutterRendererSetAlignmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererSetAlignment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> GutterRendererAlignmentMode -> m ()
gutterRendererSetAlignmentMode a
renderer GutterRendererAlignmentMode
mode = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
let mode' :: CUInt
mode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (GutterRendererAlignmentMode -> Int)
-> GutterRendererAlignmentMode
-> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. GutterRendererAlignmentMode -> Int
forall a. Enum a => a -> Int
fromEnum) GutterRendererAlignmentMode
mode
Ptr GutterRenderer -> CUInt -> IO ()
gtk_source_gutter_renderer_set_alignment_mode Ptr GutterRenderer
renderer' CUInt
mode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRendererSetAlignmentModeMethodInfo
instance (signature ~ (GtkSource.Enums.GutterRendererAlignmentMode -> m ()), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererSetAlignmentModeMethodInfo a signature where
overloadedMethod = gutterRendererSetAlignmentMode
instance O.OverloadedMethodInfo GutterRendererSetAlignmentModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererSetAlignmentMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> Maybe RGBA -> m ()
gutterRendererSetBackground a
renderer Maybe RGBA
color = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
Ptr RGBA
maybeColor <- case Maybe RGBA
color of
Maybe RGBA
Nothing -> Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
nullPtr
Just RGBA
jColor -> do
Ptr RGBA
jColor' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
jColor
Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
jColor'
Ptr GutterRenderer -> Ptr RGBA -> IO ()
gtk_source_gutter_renderer_set_background Ptr GutterRenderer
renderer' Ptr RGBA
maybeColor
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
Maybe RGBA -> (RGBA -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe RGBA
color RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRendererSetBackgroundMethodInfo
instance (signature ~ (Maybe (Gdk.RGBA.RGBA) -> m ()), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererSetBackgroundMethodInfo a signature where
overloadedMethod = gutterRendererSetBackground
instance O.OverloadedMethodInfo GutterRendererSetBackgroundMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererSetBackground",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> Int32 -> Int32 -> m ()
gutterRendererSetPadding a
renderer Int32
xpad Int32
ypad = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
Ptr GutterRenderer -> Int32 -> Int32 -> IO ()
gtk_source_gutter_renderer_set_padding Ptr GutterRenderer
renderer' Int32
xpad Int32
ypad
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRendererSetPaddingMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererSetPaddingMethodInfo a signature where
overloadedMethod = gutterRendererSetPadding
instance O.OverloadedMethodInfo GutterRendererSetPaddingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererSetPadding",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> Int32 -> m ()
gutterRendererSetSize a
renderer Int32
size = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
Ptr GutterRenderer -> Int32 -> IO ()
gtk_source_gutter_renderer_set_size Ptr GutterRenderer
renderer' Int32
size
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRendererSetSizeMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererSetSizeMethodInfo a signature where
overloadedMethod = gutterRendererSetSize
instance O.OverloadedMethodInfo GutterRendererSetSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererSetSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterRenderer a) =>
a -> Bool -> m ()
gutterRendererSetVisible a
renderer Bool
visible = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterRenderer
renderer' <- a -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
renderer
let visible' :: CInt
visible' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
visible
Ptr GutterRenderer -> CInt -> IO ()
gtk_source_gutter_renderer_set_visible Ptr GutterRenderer
renderer' CInt
visible'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
renderer
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRendererSetVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGutterRenderer a) => O.OverloadedMethod GutterRendererSetVisibleMethodInfo a signature where
overloadedMethod = gutterRendererSetVisible
instance O.OverloadedMethodInfo GutterRendererSetVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterRenderer.gutterRendererSetVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.26/docs/GI-GtkSource-Objects-GutterRenderer.html#v:gutterRendererSetVisible"
})
#endif