{-# LANGUAGE 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 ,
C_GutterRendererActivateCallback ,
GutterRendererActivateCallback ,
#if defined(ENABLE_OVERLOADING)
GutterRendererActivateSignalInfo ,
#endif
afterGutterRendererActivate ,
genClosure_GutterRendererActivate ,
mk_GutterRendererActivateCallback ,
noGutterRendererActivateCallback ,
onGutterRendererActivate ,
wrap_GutterRendererActivateCallback ,
C_GutterRendererQueryActivatableCallback,
GutterRendererQueryActivatableCallback ,
#if defined(ENABLE_OVERLOADING)
GutterRendererQueryActivatableSignalInfo,
#endif
afterGutterRendererQueryActivatable ,
genClosure_GutterRendererQueryActivatable,
mk_GutterRendererQueryActivatableCallback,
noGutterRendererQueryActivatableCallback,
onGutterRendererQueryActivatable ,
wrap_GutterRendererQueryActivatableCallback,
C_GutterRendererQueryDataCallback ,
GutterRendererQueryDataCallback ,
#if defined(ENABLE_OVERLOADING)
GutterRendererQueryDataSignalInfo ,
#endif
afterGutterRendererQueryData ,
genClosure_GutterRendererQueryData ,
mk_GutterRendererQueryDataCallback ,
noGutterRendererQueryDataCallback ,
onGutterRendererQueryData ,
wrap_GutterRendererQueryDataCallback ,
C_GutterRendererQueryTooltipCallback ,
GutterRendererQueryTooltipCallback ,
#if defined(ENABLE_OVERLOADING)
GutterRendererQueryTooltipSignalInfo ,
#endif
afterGutterRendererQueryTooltip ,
genClosure_GutterRendererQueryTooltip ,
mk_GutterRendererQueryTooltipCallback ,
noGutterRendererQueryTooltipCallback ,
onGutterRendererQueryTooltip ,
wrap_GutterRendererQueryTooltipCallback ,
C_GutterRendererQueueDrawCallback ,
GutterRendererQueueDrawCallback ,
#if defined(ENABLE_OVERLOADING)
GutterRendererQueueDrawSignalInfo ,
#endif
afterGutterRendererQueueDraw ,
genClosure_GutterRendererQueueDraw ,
mk_GutterRendererQueueDrawCallback ,
noGutterRendererQueueDrawCallback ,
onGutterRendererQueueDraw ,
wrap_GutterRendererQueueDrawCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gdk.Unions.Event as Gdk.Event
import qualified GI.Gtk.Enums as Gtk.Enums
import qualified GI.Gtk.Objects.TextView as Gtk.TextView
import qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import qualified GI.Gtk.Structs.TextIter as Gtk.TextIter
import {-# SOURCE #-} qualified GI.GtkSource.Enums as GtkSource.Enums
import {-# SOURCE #-} qualified GI.GtkSource.Flags as GtkSource.Flags
newtype GutterRenderer = GutterRenderer (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
/= :: GutterRenderer -> GutterRenderer -> Bool
$c/= :: GutterRenderer -> GutterRenderer -> Bool
== :: GutterRenderer -> GutterRenderer -> Bool
$c== :: 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
instance B.GValue.IsGValue GutterRenderer where
toGValue :: GutterRenderer -> IO GValue
toGValue GutterRenderer
o = do
GType
gtype <- IO GType
c_gtk_source_gutter_renderer_get_type
GutterRenderer -> (Ptr GutterRenderer -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr GutterRenderer
o (GType
-> (GValue -> Ptr GutterRenderer -> IO ())
-> Ptr GutterRenderer
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr GutterRenderer -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO GutterRenderer
fromGValue GValue
gv = do
Ptr GutterRenderer
ptr <- GValue -> IO (Ptr GutterRenderer)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr GutterRenderer)
(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
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 :: (MonadIO m, IsGutterRenderer o) => o -> m GutterRenderer
toGutterRenderer :: o -> m GutterRenderer
toGutterRenderer = IO GutterRenderer -> m GutterRenderer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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'
unsafeCastTo ManagedPtr GutterRenderer -> GutterRenderer
GutterRenderer
#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.MethodInfo 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
#endif
type GutterRendererActivateCallback =
Gtk.TextIter.TextIter
-> Gdk.Rectangle.Rectangle
-> Gdk.Event.Event
-> IO ()
noGutterRendererActivateCallback :: Maybe GutterRendererActivateCallback
noGutterRendererActivateCallback :: Maybe GutterRendererActivateCallback
noGutterRendererActivateCallback = Maybe GutterRendererActivateCallback
forall a. Maybe a
Nothing
type C_GutterRendererActivateCallback =
Ptr () ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Event.Event ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_GutterRendererActivateCallback :: C_GutterRendererActivateCallback -> IO (FunPtr C_GutterRendererActivateCallback)
genClosure_GutterRendererActivate :: MonadIO m => GutterRendererActivateCallback -> m (GClosure C_GutterRendererActivateCallback)
genClosure_GutterRendererActivate :: GutterRendererActivateCallback
-> m (GClosure C_GutterRendererActivateCallback)
genClosure_GutterRendererActivate GutterRendererActivateCallback
cb = IO (GClosure C_GutterRendererActivateCallback)
-> m (GClosure C_GutterRendererActivateCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_GutterRendererActivateCallback)
-> m (GClosure C_GutterRendererActivateCallback))
-> IO (GClosure C_GutterRendererActivateCallback)
-> m (GClosure C_GutterRendererActivateCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GutterRendererActivateCallback
cb' = GutterRendererActivateCallback -> C_GutterRendererActivateCallback
wrap_GutterRendererActivateCallback GutterRendererActivateCallback
cb
C_GutterRendererActivateCallback
-> IO (FunPtr C_GutterRendererActivateCallback)
mk_GutterRendererActivateCallback C_GutterRendererActivateCallback
cb' IO (FunPtr C_GutterRendererActivateCallback)
-> (FunPtr C_GutterRendererActivateCallback
-> IO (GClosure C_GutterRendererActivateCallback))
-> IO (GClosure C_GutterRendererActivateCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_GutterRendererActivateCallback
-> IO (GClosure C_GutterRendererActivateCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_GutterRendererActivateCallback ::
GutterRendererActivateCallback ->
C_GutterRendererActivateCallback
wrap_GutterRendererActivateCallback :: GutterRendererActivateCallback -> C_GutterRendererActivateCallback
wrap_GutterRendererActivateCallback GutterRendererActivateCallback
_cb Ptr ()
_ Ptr TextIter
iter Ptr Rectangle
area Ptr Event
event Ptr ()
_ = do
(ManagedPtr TextIter -> TextIter)
-> Ptr TextIter -> (TextIter -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter Ptr TextIter
iter ((TextIter -> IO ()) -> IO ()) -> (TextIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TextIter
iter' -> do
(ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> (Rectangle -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle Ptr Rectangle
area ((Rectangle -> IO ()) -> IO ()) -> (Rectangle -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Rectangle
area' -> do
(ManagedPtr Event -> Event)
-> Ptr Event -> (Event -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr Event -> Event
Gdk.Event.Event Ptr Event
event ((Event -> IO ()) -> IO ()) -> (Event -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Event
event' -> do
GutterRendererActivateCallback
_cb TextIter
iter' Rectangle
area' Event
event'
onGutterRendererActivate :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererActivateCallback -> m SignalHandlerId
onGutterRendererActivate :: a -> GutterRendererActivateCallback -> m SignalHandlerId
onGutterRendererActivate a
obj GutterRendererActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_GutterRendererActivateCallback
cb' = GutterRendererActivateCallback -> C_GutterRendererActivateCallback
wrap_GutterRendererActivateCallback GutterRendererActivateCallback
cb
FunPtr C_GutterRendererActivateCallback
cb'' <- C_GutterRendererActivateCallback
-> IO (FunPtr C_GutterRendererActivateCallback)
mk_GutterRendererActivateCallback C_GutterRendererActivateCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterGutterRendererActivate :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererActivateCallback -> m SignalHandlerId
afterGutterRendererActivate :: a -> GutterRendererActivateCallback -> m SignalHandlerId
afterGutterRendererActivate a
obj GutterRendererActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_GutterRendererActivateCallback
cb' = GutterRendererActivateCallback -> C_GutterRendererActivateCallback
wrap_GutterRendererActivateCallback GutterRendererActivateCallback
cb
FunPtr C_GutterRendererActivateCallback
cb'' <- C_GutterRendererActivateCallback
-> IO (FunPtr C_GutterRendererActivateCallback)
mk_GutterRendererActivateCallback C_GutterRendererActivateCallback
cb'
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
cb'' 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
#endif
type GutterRendererQueryActivatableCallback =
Gtk.TextIter.TextIter
-> Gdk.Rectangle.Rectangle
-> Gdk.Event.Event
-> IO Bool
noGutterRendererQueryActivatableCallback :: Maybe GutterRendererQueryActivatableCallback
noGutterRendererQueryActivatableCallback :: Maybe GutterRendererQueryActivatableCallback
noGutterRendererQueryActivatableCallback = Maybe GutterRendererQueryActivatableCallback
forall a. Maybe a
Nothing
type C_GutterRendererQueryActivatableCallback =
Ptr () ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Event.Event ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_GutterRendererQueryActivatableCallback :: C_GutterRendererQueryActivatableCallback -> IO (FunPtr C_GutterRendererQueryActivatableCallback)
genClosure_GutterRendererQueryActivatable :: MonadIO m => GutterRendererQueryActivatableCallback -> m (GClosure C_GutterRendererQueryActivatableCallback)
genClosure_GutterRendererQueryActivatable :: GutterRendererQueryActivatableCallback
-> m (GClosure C_GutterRendererQueryActivatableCallback)
genClosure_GutterRendererQueryActivatable GutterRendererQueryActivatableCallback
cb = IO (GClosure C_GutterRendererQueryActivatableCallback)
-> m (GClosure C_GutterRendererQueryActivatableCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_GutterRendererQueryActivatableCallback)
-> m (GClosure C_GutterRendererQueryActivatableCallback))
-> IO (GClosure C_GutterRendererQueryActivatableCallback)
-> m (GClosure C_GutterRendererQueryActivatableCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GutterRendererQueryActivatableCallback
cb' = GutterRendererQueryActivatableCallback
-> C_GutterRendererQueryActivatableCallback
wrap_GutterRendererQueryActivatableCallback GutterRendererQueryActivatableCallback
cb
C_GutterRendererQueryActivatableCallback
-> IO (FunPtr C_GutterRendererQueryActivatableCallback)
mk_GutterRendererQueryActivatableCallback C_GutterRendererQueryActivatableCallback
cb' IO (FunPtr C_GutterRendererQueryActivatableCallback)
-> (FunPtr C_GutterRendererQueryActivatableCallback
-> IO (GClosure C_GutterRendererQueryActivatableCallback))
-> IO (GClosure C_GutterRendererQueryActivatableCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_GutterRendererQueryActivatableCallback
-> IO (GClosure C_GutterRendererQueryActivatableCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_GutterRendererQueryActivatableCallback ::
GutterRendererQueryActivatableCallback ->
C_GutterRendererQueryActivatableCallback
wrap_GutterRendererQueryActivatableCallback :: GutterRendererQueryActivatableCallback
-> C_GutterRendererQueryActivatableCallback
wrap_GutterRendererQueryActivatableCallback GutterRendererQueryActivatableCallback
_cb Ptr ()
_ Ptr TextIter
iter Ptr Rectangle
area Ptr Event
event Ptr ()
_ = do
(ManagedPtr TextIter -> TextIter)
-> Ptr TextIter -> (TextIter -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter Ptr TextIter
iter ((TextIter -> IO CInt) -> IO CInt)
-> (TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \TextIter
iter' -> do
(ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> (Rectangle -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle Ptr Rectangle
area ((Rectangle -> IO CInt) -> IO CInt)
-> (Rectangle -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Rectangle
area' -> do
(ManagedPtr Event -> Event)
-> Ptr Event -> (Event -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr Event -> Event
Gdk.Event.Event 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 <- GutterRendererQueryActivatableCallback
_cb 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 (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onGutterRendererQueryActivatable :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererQueryActivatableCallback -> m SignalHandlerId
onGutterRendererQueryActivatable :: a -> GutterRendererQueryActivatableCallback -> m SignalHandlerId
onGutterRendererQueryActivatable a
obj GutterRendererQueryActivatableCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_GutterRendererQueryActivatableCallback
cb' = GutterRendererQueryActivatableCallback
-> C_GutterRendererQueryActivatableCallback
wrap_GutterRendererQueryActivatableCallback GutterRendererQueryActivatableCallback
cb
FunPtr C_GutterRendererQueryActivatableCallback
cb'' <- C_GutterRendererQueryActivatableCallback
-> IO (FunPtr C_GutterRendererQueryActivatableCallback)
mk_GutterRendererQueryActivatableCallback C_GutterRendererQueryActivatableCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterGutterRendererQueryActivatable :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererQueryActivatableCallback -> m SignalHandlerId
afterGutterRendererQueryActivatable :: a -> GutterRendererQueryActivatableCallback -> m SignalHandlerId
afterGutterRendererQueryActivatable a
obj GutterRendererQueryActivatableCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_GutterRendererQueryActivatableCallback
cb' = GutterRendererQueryActivatableCallback
-> C_GutterRendererQueryActivatableCallback
wrap_GutterRendererQueryActivatableCallback GutterRendererQueryActivatableCallback
cb
FunPtr C_GutterRendererQueryActivatableCallback
cb'' <- C_GutterRendererQueryActivatableCallback
-> IO (FunPtr C_GutterRendererQueryActivatableCallback)
mk_GutterRendererQueryActivatableCallback C_GutterRendererQueryActivatableCallback
cb'
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
cb'' 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
#endif
type GutterRendererQueryDataCallback =
Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> [GtkSource.Flags.GutterRendererState]
-> IO ()
noGutterRendererQueryDataCallback :: Maybe GutterRendererQueryDataCallback
noGutterRendererQueryDataCallback :: Maybe GutterRendererQueryDataCallback
noGutterRendererQueryDataCallback = Maybe GutterRendererQueryDataCallback
forall a. Maybe a
Nothing
type C_GutterRendererQueryDataCallback =
Ptr () ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_GutterRendererQueryDataCallback :: C_GutterRendererQueryDataCallback -> IO (FunPtr C_GutterRendererQueryDataCallback)
genClosure_GutterRendererQueryData :: MonadIO m => GutterRendererQueryDataCallback -> m (GClosure C_GutterRendererQueryDataCallback)
genClosure_GutterRendererQueryData :: GutterRendererQueryDataCallback
-> m (GClosure C_GutterRendererQueryDataCallback)
genClosure_GutterRendererQueryData GutterRendererQueryDataCallback
cb = IO (GClosure C_GutterRendererQueryDataCallback)
-> m (GClosure C_GutterRendererQueryDataCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_GutterRendererQueryDataCallback)
-> m (GClosure C_GutterRendererQueryDataCallback))
-> IO (GClosure C_GutterRendererQueryDataCallback)
-> m (GClosure C_GutterRendererQueryDataCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GutterRendererQueryDataCallback
cb' = GutterRendererQueryDataCallback
-> C_GutterRendererQueryDataCallback
wrap_GutterRendererQueryDataCallback GutterRendererQueryDataCallback
cb
C_GutterRendererQueryDataCallback
-> IO (FunPtr C_GutterRendererQueryDataCallback)
mk_GutterRendererQueryDataCallback C_GutterRendererQueryDataCallback
cb' IO (FunPtr C_GutterRendererQueryDataCallback)
-> (FunPtr C_GutterRendererQueryDataCallback
-> IO (GClosure C_GutterRendererQueryDataCallback))
-> IO (GClosure C_GutterRendererQueryDataCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_GutterRendererQueryDataCallback
-> IO (GClosure C_GutterRendererQueryDataCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_GutterRendererQueryDataCallback ::
GutterRendererQueryDataCallback ->
C_GutterRendererQueryDataCallback
wrap_GutterRendererQueryDataCallback :: GutterRendererQueryDataCallback
-> C_GutterRendererQueryDataCallback
wrap_GutterRendererQueryDataCallback GutterRendererQueryDataCallback
_cb Ptr ()
_ Ptr TextIter
start Ptr TextIter
end CUInt
state Ptr ()
_ = do
(ManagedPtr TextIter -> TextIter)
-> Ptr TextIter -> (TextIter -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter Ptr TextIter
start ((TextIter -> IO ()) -> IO ()) -> (TextIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TextIter
start' -> do
(ManagedPtr TextIter -> TextIter)
-> Ptr TextIter -> (TextIter -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter 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
GutterRendererQueryDataCallback
_cb TextIter
start' TextIter
end' [GutterRendererState]
state'
onGutterRendererQueryData :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererQueryDataCallback -> m SignalHandlerId
onGutterRendererQueryData :: a -> GutterRendererQueryDataCallback -> m SignalHandlerId
onGutterRendererQueryData a
obj GutterRendererQueryDataCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_GutterRendererQueryDataCallback
cb' = GutterRendererQueryDataCallback
-> C_GutterRendererQueryDataCallback
wrap_GutterRendererQueryDataCallback GutterRendererQueryDataCallback
cb
FunPtr C_GutterRendererQueryDataCallback
cb'' <- C_GutterRendererQueryDataCallback
-> IO (FunPtr C_GutterRendererQueryDataCallback)
mk_GutterRendererQueryDataCallback C_GutterRendererQueryDataCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterGutterRendererQueryData :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererQueryDataCallback -> m SignalHandlerId
afterGutterRendererQueryData :: a -> GutterRendererQueryDataCallback -> m SignalHandlerId
afterGutterRendererQueryData a
obj GutterRendererQueryDataCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_GutterRendererQueryDataCallback
cb' = GutterRendererQueryDataCallback
-> C_GutterRendererQueryDataCallback
wrap_GutterRendererQueryDataCallback GutterRendererQueryDataCallback
cb
FunPtr C_GutterRendererQueryDataCallback
cb'' <- C_GutterRendererQueryDataCallback
-> IO (FunPtr C_GutterRendererQueryDataCallback)
mk_GutterRendererQueryDataCallback C_GutterRendererQueryDataCallback
cb'
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
cb'' 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
#endif
type GutterRendererQueryTooltipCallback =
Gtk.TextIter.TextIter
-> Gdk.Rectangle.Rectangle
-> Int32
-> Int32
-> Gtk.Tooltip.Tooltip
-> IO Bool
noGutterRendererQueryTooltipCallback :: Maybe GutterRendererQueryTooltipCallback
noGutterRendererQueryTooltipCallback :: Maybe GutterRendererQueryTooltipCallback
noGutterRendererQueryTooltipCallback = Maybe GutterRendererQueryTooltipCallback
forall a. Maybe a
Nothing
type C_GutterRendererQueryTooltipCallback =
Ptr () ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gdk.Rectangle.Rectangle ->
Int32 ->
Int32 ->
Ptr Gtk.Tooltip.Tooltip ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_GutterRendererQueryTooltipCallback :: C_GutterRendererQueryTooltipCallback -> IO (FunPtr C_GutterRendererQueryTooltipCallback)
genClosure_GutterRendererQueryTooltip :: MonadIO m => GutterRendererQueryTooltipCallback -> m (GClosure C_GutterRendererQueryTooltipCallback)
genClosure_GutterRendererQueryTooltip :: GutterRendererQueryTooltipCallback
-> m (GClosure C_GutterRendererQueryTooltipCallback)
genClosure_GutterRendererQueryTooltip GutterRendererQueryTooltipCallback
cb = IO (GClosure C_GutterRendererQueryTooltipCallback)
-> m (GClosure C_GutterRendererQueryTooltipCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_GutterRendererQueryTooltipCallback)
-> m (GClosure C_GutterRendererQueryTooltipCallback))
-> IO (GClosure C_GutterRendererQueryTooltipCallback)
-> m (GClosure C_GutterRendererQueryTooltipCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GutterRendererQueryTooltipCallback
cb' = GutterRendererQueryTooltipCallback
-> C_GutterRendererQueryTooltipCallback
wrap_GutterRendererQueryTooltipCallback GutterRendererQueryTooltipCallback
cb
C_GutterRendererQueryTooltipCallback
-> IO (FunPtr C_GutterRendererQueryTooltipCallback)
mk_GutterRendererQueryTooltipCallback C_GutterRendererQueryTooltipCallback
cb' IO (FunPtr C_GutterRendererQueryTooltipCallback)
-> (FunPtr C_GutterRendererQueryTooltipCallback
-> IO (GClosure C_GutterRendererQueryTooltipCallback))
-> IO (GClosure C_GutterRendererQueryTooltipCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_GutterRendererQueryTooltipCallback
-> IO (GClosure C_GutterRendererQueryTooltipCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_GutterRendererQueryTooltipCallback ::
GutterRendererQueryTooltipCallback ->
C_GutterRendererQueryTooltipCallback
wrap_GutterRendererQueryTooltipCallback :: GutterRendererQueryTooltipCallback
-> C_GutterRendererQueryTooltipCallback
wrap_GutterRendererQueryTooltipCallback GutterRendererQueryTooltipCallback
_cb Ptr ()
_ Ptr TextIter
iter Ptr Rectangle
area Int32
x Int32
y Ptr Tooltip
tooltip Ptr ()
_ = do
(ManagedPtr TextIter -> TextIter)
-> Ptr TextIter -> (TextIter -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter Ptr TextIter
iter ((TextIter -> IO CInt) -> IO CInt)
-> (TextIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \TextIter
iter' -> do
(ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> (Rectangle -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle 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 <- GutterRendererQueryTooltipCallback
_cb 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 (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onGutterRendererQueryTooltip :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererQueryTooltipCallback -> m SignalHandlerId
onGutterRendererQueryTooltip :: a -> GutterRendererQueryTooltipCallback -> m SignalHandlerId
onGutterRendererQueryTooltip a
obj GutterRendererQueryTooltipCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_GutterRendererQueryTooltipCallback
cb' = GutterRendererQueryTooltipCallback
-> C_GutterRendererQueryTooltipCallback
wrap_GutterRendererQueryTooltipCallback GutterRendererQueryTooltipCallback
cb
FunPtr C_GutterRendererQueryTooltipCallback
cb'' <- C_GutterRendererQueryTooltipCallback
-> IO (FunPtr C_GutterRendererQueryTooltipCallback)
mk_GutterRendererQueryTooltipCallback C_GutterRendererQueryTooltipCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterGutterRendererQueryTooltip :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererQueryTooltipCallback -> m SignalHandlerId
afterGutterRendererQueryTooltip :: a -> GutterRendererQueryTooltipCallback -> m SignalHandlerId
afterGutterRendererQueryTooltip a
obj GutterRendererQueryTooltipCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_GutterRendererQueryTooltipCallback
cb' = GutterRendererQueryTooltipCallback
-> C_GutterRendererQueryTooltipCallback
wrap_GutterRendererQueryTooltipCallback GutterRendererQueryTooltipCallback
cb
FunPtr C_GutterRendererQueryTooltipCallback
cb'' <- C_GutterRendererQueryTooltipCallback
-> IO (FunPtr C_GutterRendererQueryTooltipCallback)
mk_GutterRendererQueryTooltipCallback C_GutterRendererQueryTooltipCallback
cb'
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
cb'' 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
#endif
type GutterRendererQueueDrawCallback =
IO ()
noGutterRendererQueueDrawCallback :: Maybe GutterRendererQueueDrawCallback
noGutterRendererQueueDrawCallback :: Maybe (IO ())
noGutterRendererQueueDrawCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_GutterRendererQueueDrawCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_GutterRendererQueueDrawCallback :: C_GutterRendererQueueDrawCallback -> IO (FunPtr C_GutterRendererQueueDrawCallback)
genClosure_GutterRendererQueueDraw :: MonadIO m => GutterRendererQueueDrawCallback -> m (GClosure C_GutterRendererQueueDrawCallback)
genClosure_GutterRendererQueueDraw :: IO () -> m (GClosure C_GutterRendererQueueDrawCallback)
genClosure_GutterRendererQueueDraw IO ()
cb = IO (GClosure C_GutterRendererQueueDrawCallback)
-> m (GClosure C_GutterRendererQueueDrawCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_GutterRendererQueueDrawCallback)
-> m (GClosure C_GutterRendererQueueDrawCallback))
-> IO (GClosure C_GutterRendererQueueDrawCallback)
-> m (GClosure C_GutterRendererQueueDrawCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GutterRendererQueueDrawCallback
cb' = IO () -> C_GutterRendererQueueDrawCallback
wrap_GutterRendererQueueDrawCallback IO ()
cb
C_GutterRendererQueueDrawCallback
-> IO (FunPtr C_GutterRendererQueueDrawCallback)
mk_GutterRendererQueueDrawCallback C_GutterRendererQueueDrawCallback
cb' IO (FunPtr C_GutterRendererQueueDrawCallback)
-> (FunPtr C_GutterRendererQueueDrawCallback
-> IO (GClosure C_GutterRendererQueueDrawCallback))
-> IO (GClosure C_GutterRendererQueueDrawCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_GutterRendererQueueDrawCallback
-> IO (GClosure C_GutterRendererQueueDrawCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_GutterRendererQueueDrawCallback ::
GutterRendererQueueDrawCallback ->
C_GutterRendererQueueDrawCallback
wrap_GutterRendererQueueDrawCallback :: IO () -> C_GutterRendererQueueDrawCallback
wrap_GutterRendererQueueDrawCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onGutterRendererQueueDraw :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererQueueDrawCallback -> m SignalHandlerId
onGutterRendererQueueDraw :: a -> IO () -> m SignalHandlerId
onGutterRendererQueueDraw a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_GutterRendererQueueDrawCallback
cb' = IO () -> C_GutterRendererQueueDrawCallback
wrap_GutterRendererQueueDrawCallback IO ()
cb
FunPtr C_GutterRendererQueueDrawCallback
cb'' <- C_GutterRendererQueueDrawCallback
-> IO (FunPtr C_GutterRendererQueueDrawCallback)
mk_GutterRendererQueueDrawCallback C_GutterRendererQueueDrawCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterGutterRendererQueueDraw :: (IsGutterRenderer a, MonadIO m) => a -> GutterRendererQueueDrawCallback -> m SignalHandlerId
afterGutterRendererQueueDraw :: a -> IO () -> m SignalHandlerId
afterGutterRendererQueueDraw a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_GutterRendererQueueDrawCallback
cb' = IO () -> C_GutterRendererQueueDrawCallback
wrap_GutterRendererQueueDrawCallback IO ()
cb
FunPtr C_GutterRendererQueueDrawCallback
cb'' <- C_GutterRendererQueueDrawCallback
-> IO (FunPtr C_GutterRendererQueueDrawCallback)
mk_GutterRendererQueueDrawCallback C_GutterRendererQueueDrawCallback
cb'
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
cb'' 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
#endif
getGutterRendererAlignmentMode :: (MonadIO m, IsGutterRenderer o) => o -> m GtkSource.Enums.GutterRendererAlignmentMode
getGutterRendererAlignmentMode :: o -> m GutterRendererAlignmentMode
getGutterRendererAlignmentMode o
obj = IO GutterRendererAlignmentMode -> m GutterRendererAlignmentMode
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
$ 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 :: o -> GutterRendererAlignmentMode -> m ()
setGutterRendererAlignmentMode o
obj GutterRendererAlignmentMode
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ 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 :: GutterRendererAlignmentMode -> m (GValueConstruct o)
constructGutterRendererAlignmentMode GutterRendererAlignmentMode
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getGutterRendererBackgroundRgba :: (MonadIO m, IsGutterRenderer o) => o -> m (Maybe Gdk.RGBA.RGBA)
getGutterRendererBackgroundRgba :: o -> m (Maybe RGBA)
getGutterRendererBackgroundRgba o
obj = IO (Maybe RGBA) -> m (Maybe RGBA)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 :: o -> RGBA -> m ()
setGutterRendererBackgroundRgba o
obj RGBA
val = IO () -> m ()
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" (RGBA -> Maybe RGBA
forall a. a -> Maybe a
Just RGBA
val)
constructGutterRendererBackgroundRgba :: (IsGutterRenderer o, MIO.MonadIO m) => Gdk.RGBA.RGBA -> m (GValueConstruct o)
constructGutterRendererBackgroundRgba :: RGBA -> m (GValueConstruct o)
constructGutterRendererBackgroundRgba RGBA
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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 :: o -> m ()
clearGutterRendererBackgroundRgba o
obj = IO () -> m ()
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
#endif
getGutterRendererBackgroundSet :: (MonadIO m, IsGutterRenderer o) => o -> m Bool
getGutterRendererBackgroundSet :: o -> m Bool
getGutterRendererBackgroundSet o
obj = IO Bool -> m Bool
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
$ 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 :: o -> Bool -> m ()
setGutterRendererBackgroundSet o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ 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 :: Bool -> m (GValueConstruct o)
constructGutterRendererBackgroundSet Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getGutterRendererSize :: (MonadIO m, IsGutterRenderer o) => o -> m Int32
getGutterRendererSize :: o -> m Int32
getGutterRendererSize o
obj = IO Int32 -> m Int32
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
$ 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 :: o -> Int32 -> m ()
setGutterRendererSize o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ 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 :: Int32 -> m (GValueConstruct o)
constructGutterRendererSize Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getGutterRendererView :: (MonadIO m, IsGutterRenderer o) => o -> m Gtk.TextView.TextView
getGutterRendererView :: o -> m TextView
getGutterRendererView o
obj = IO TextView -> m TextView
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
$ 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
#endif
getGutterRendererVisible :: (MonadIO m, IsGutterRenderer o) => o -> m Bool
getGutterRendererVisible :: o -> m Bool
getGutterRendererVisible o
obj = IO Bool -> m Bool
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
$ 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 :: o -> Bool -> m ()
setGutterRendererVisible o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ 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 :: Bool -> m (GValueConstruct o)
constructGutterRendererVisible Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getGutterRendererWindowType :: (MonadIO m, IsGutterRenderer o) => o -> m Gtk.Enums.TextWindowType
getGutterRendererWindowType :: o -> m TextWindowType
getGutterRendererWindowType o
obj = IO TextWindowType -> m TextWindowType
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
$ 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
#endif
getGutterRendererXalign :: (MonadIO m, IsGutterRenderer o) => o -> m Float
getGutterRendererXalign :: o -> m Float
getGutterRendererXalign o
obj = IO Float -> m Float
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 :: o -> Float -> m ()
setGutterRendererXalign o
obj Float
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ 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 :: Float -> m (GValueConstruct o)
constructGutterRendererXalign Float
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getGutterRendererXpad :: (MonadIO m, IsGutterRenderer o) => o -> m Int32
getGutterRendererXpad :: o -> m Int32
getGutterRendererXpad o
obj = IO Int32 -> m Int32
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
$ 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 :: o -> Int32 -> m ()
setGutterRendererXpad o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ 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 :: Int32 -> m (GValueConstruct o)
constructGutterRendererXpad Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getGutterRendererYalign :: (MonadIO m, IsGutterRenderer o) => o -> m Float
getGutterRendererYalign :: o -> m Float
getGutterRendererYalign o
obj = IO Float -> m Float
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 :: o -> Float -> m ()
setGutterRendererYalign o
obj Float
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ 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 :: Float -> m (GValueConstruct o)
constructGutterRendererYalign Float
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getGutterRendererYpad :: (MonadIO m, IsGutterRenderer o) => o -> m Int32
getGutterRendererYpad :: o -> m Int32
getGutterRendererYpad o
obj = IO Int32 -> m Int32
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
$ 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 :: o -> Int32 -> m ()
setGutterRendererYpad o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ 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 :: Int32 -> m (GValueConstruct o)
constructGutterRendererYpad Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#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 :: a -> TextIter -> Rectangle -> Event -> m ()
gutterRendererActivate a
renderer TextIter
iter Rectangle
area Event
event = IO () -> m ()
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 (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.MethodInfo GutterRendererActivateMethodInfo a signature where
overloadedMethod = gutterRendererActivate
#endif
foreign import ccall "gtk_source_gutter_renderer_begin" gtk_source_gutter_renderer_begin ::
Ptr GutterRenderer ->
Ptr Cairo.Context.Context ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO ()
gutterRendererBegin ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Cairo.Context.Context
-> Gdk.Rectangle.Rectangle
-> Gdk.Rectangle.Rectangle
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> m ()
gutterRendererBegin :: a
-> Context
-> Rectangle
-> Rectangle
-> TextIter
-> TextIter
-> m ()
gutterRendererBegin a
renderer Context
cr Rectangle
backgroundArea Rectangle
cellArea TextIter
start TextIter
end = IO () -> m ()
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 (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.MethodInfo GutterRendererBeginMethodInfo a signature where
overloadedMethod = gutterRendererBegin
#endif
foreign import ccall "gtk_source_gutter_renderer_draw" gtk_source_gutter_renderer_draw ::
Ptr GutterRenderer ->
Ptr Cairo.Context.Context ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
CUInt ->
IO ()
gutterRendererDraw ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Cairo.Context.Context
-> Gdk.Rectangle.Rectangle
-> Gdk.Rectangle.Rectangle
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> [GtkSource.Flags.GutterRendererState]
-> m ()
gutterRendererDraw :: 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 (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 (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.MethodInfo GutterRendererDrawMethodInfo a signature where
overloadedMethod = gutterRendererDraw
#endif
foreign import ccall "gtk_source_gutter_renderer_end" gtk_source_gutter_renderer_end ::
Ptr GutterRenderer ->
IO ()
gutterRendererEnd ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> m ()
gutterRendererEnd :: a -> m ()
gutterRendererEnd a
renderer = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRendererEndMethodInfo
instance (signature ~ (m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererEndMethodInfo a signature where
overloadedMethod = gutterRendererEnd
#endif
#if defined(ENABLE_OVERLOADING)
data GutterRendererGetAlignmentMethodInfo
instance (p ~ (), o ~ O.UnsupportedMethodError "getAlignment" GutterRenderer) => O.MethodInfo GutterRendererGetAlignmentMethodInfo o p where
overloadedMethod = undefined
#endif
foreign import ccall "gtk_source_gutter_renderer_get_alignment_mode" gtk_source_gutter_renderer_get_alignment_mode ::
Ptr GutterRenderer ->
IO CUInt
gutterRendererGetAlignmentMode ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> m GtkSource.Enums.GutterRendererAlignmentMode
gutterRendererGetAlignmentMode :: a -> m GutterRendererAlignmentMode
gutterRendererGetAlignmentMode a
renderer = IO GutterRendererAlignmentMode -> m GutterRendererAlignmentMode
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 (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.MethodInfo GutterRendererGetAlignmentModeMethodInfo a signature where
overloadedMethod = gutterRendererGetAlignmentMode
#endif
foreign import ccall "gtk_source_gutter_renderer_get_background" gtk_source_gutter_renderer_get_background ::
Ptr GutterRenderer ->
Ptr Gdk.RGBA.RGBA ->
IO CInt
gutterRendererGetBackground ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> m ((Bool, Gdk.RGBA.RGBA))
gutterRendererGetBackground :: a -> m (Bool, RGBA)
gutterRendererGetBackground a
renderer = IO (Bool, RGBA) -> m (Bool, RGBA)
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 (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.MethodInfo GutterRendererGetBackgroundMethodInfo a signature where
overloadedMethod = gutterRendererGetBackground
#endif
#if defined(ENABLE_OVERLOADING)
data GutterRendererGetPaddingMethodInfo
instance (p ~ (), o ~ O.UnsupportedMethodError "getPadding" GutterRenderer) => O.MethodInfo GutterRendererGetPaddingMethodInfo o p where
overloadedMethod = undefined
#endif
foreign import ccall "gtk_source_gutter_renderer_get_size" gtk_source_gutter_renderer_get_size ::
Ptr GutterRenderer ->
IO Int32
gutterRendererGetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> m Int32
gutterRendererGetSize :: a -> m Int32
gutterRendererGetSize a
renderer = IO Int32 -> m Int32
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 (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.MethodInfo GutterRendererGetSizeMethodInfo a signature where
overloadedMethod = gutterRendererGetSize
#endif
foreign import ccall "gtk_source_gutter_renderer_get_view" gtk_source_gutter_renderer_get_view ::
Ptr GutterRenderer ->
IO (Ptr Gtk.TextView.TextView)
gutterRendererGetView ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> m Gtk.TextView.TextView
gutterRendererGetView :: a -> m TextView
gutterRendererGetView a
renderer = IO TextView -> m TextView
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 (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.MethodInfo GutterRendererGetViewMethodInfo a signature where
overloadedMethod = gutterRendererGetView
#endif
foreign import ccall "gtk_source_gutter_renderer_get_visible" gtk_source_gutter_renderer_get_visible ::
Ptr GutterRenderer ->
IO CInt
gutterRendererGetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> m Bool
gutterRendererGetVisible :: a -> m Bool
gutterRendererGetVisible a
renderer = IO Bool -> m Bool
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 (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.MethodInfo GutterRendererGetVisibleMethodInfo a signature where
overloadedMethod = gutterRendererGetVisible
#endif
foreign import ccall "gtk_source_gutter_renderer_get_window_type" gtk_source_gutter_renderer_get_window_type ::
Ptr GutterRenderer ->
IO CUInt
gutterRendererGetWindowType ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> m Gtk.Enums.TextWindowType
gutterRendererGetWindowType :: a -> m TextWindowType
gutterRendererGetWindowType a
renderer = IO TextWindowType -> m TextWindowType
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 (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.MethodInfo GutterRendererGetWindowTypeMethodInfo a signature where
overloadedMethod = gutterRendererGetWindowType
#endif
foreign import ccall "gtk_source_gutter_renderer_query_activatable" gtk_source_gutter_renderer_query_activatable ::
Ptr GutterRenderer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Gdk.Event.Event ->
IO CInt
gutterRendererQueryActivatable ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Gtk.TextIter.TextIter
-> Gdk.Rectangle.Rectangle
-> Gdk.Event.Event
-> m Bool
gutterRendererQueryActivatable :: a -> TextIter -> Rectangle -> Event -> m Bool
gutterRendererQueryActivatable a
renderer TextIter
iter Rectangle
area Event
event = IO Bool -> m Bool
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 (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.MethodInfo GutterRendererQueryActivatableMethodInfo a signature where
overloadedMethod = gutterRendererQueryActivatable
#endif
foreign import ccall "gtk_source_gutter_renderer_query_data" gtk_source_gutter_renderer_query_data ::
Ptr GutterRenderer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
CUInt ->
IO ()
gutterRendererQueryData ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> [GtkSource.Flags.GutterRendererState]
-> m ()
gutterRendererQueryData :: a -> TextIter -> TextIter -> [GutterRendererState] -> m ()
gutterRendererQueryData a
renderer TextIter
start TextIter
end [GutterRendererState]
state = IO () -> m ()
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 (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.MethodInfo GutterRendererQueryDataMethodInfo a signature where
overloadedMethod = gutterRendererQueryData
#endif
foreign import ccall "gtk_source_gutter_renderer_query_tooltip" gtk_source_gutter_renderer_query_tooltip ::
Ptr GutterRenderer ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gdk.Rectangle.Rectangle ->
Int32 ->
Int32 ->
Ptr Gtk.Tooltip.Tooltip ->
IO CInt
gutterRendererQueryTooltip ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a, Gtk.Tooltip.IsTooltip b) =>
a
-> Gtk.TextIter.TextIter
-> Gdk.Rectangle.Rectangle
-> Int32
-> Int32
-> b
-> m Bool
gutterRendererQueryTooltip :: 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 (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 (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.MethodInfo GutterRendererQueryTooltipMethodInfo a signature where
overloadedMethod = gutterRendererQueryTooltip
#endif
foreign import ccall "gtk_source_gutter_renderer_queue_draw" gtk_source_gutter_renderer_queue_draw ::
Ptr GutterRenderer ->
IO ()
gutterRendererQueueDraw ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> m ()
gutterRendererQueueDraw :: a -> m ()
gutterRendererQueueDraw a
renderer = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRendererQueueDrawMethodInfo
instance (signature ~ (m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererQueueDrawMethodInfo a signature where
overloadedMethod = gutterRendererQueueDraw
#endif
foreign import ccall "gtk_source_gutter_renderer_set_alignment" gtk_source_gutter_renderer_set_alignment ::
Ptr GutterRenderer ->
CFloat ->
CFloat ->
IO ()
gutterRendererSetAlignment ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Float
-> Float
-> m ()
gutterRendererSetAlignment :: a -> Float -> Float -> m ()
gutterRendererSetAlignment a
renderer Float
xalign Float
yalign = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRendererSetAlignmentMethodInfo
instance (signature ~ (Float -> Float -> m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererSetAlignmentMethodInfo a signature where
overloadedMethod = gutterRendererSetAlignment
#endif
foreign import ccall "gtk_source_gutter_renderer_set_alignment_mode" gtk_source_gutter_renderer_set_alignment_mode ::
Ptr GutterRenderer ->
CUInt ->
IO ()
gutterRendererSetAlignmentMode ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> GtkSource.Enums.GutterRendererAlignmentMode
-> m ()
gutterRendererSetAlignmentMode :: a -> GutterRendererAlignmentMode -> m ()
gutterRendererSetAlignmentMode a
renderer GutterRendererAlignmentMode
mode = IO () -> m ()
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 (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.MethodInfo GutterRendererSetAlignmentModeMethodInfo a signature where
overloadedMethod = gutterRendererSetAlignmentMode
#endif
foreign import ccall "gtk_source_gutter_renderer_set_background" gtk_source_gutter_renderer_set_background ::
Ptr GutterRenderer ->
Ptr Gdk.RGBA.RGBA ->
IO ()
gutterRendererSetBackground ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Maybe (Gdk.RGBA.RGBA)
-> m ()
gutterRendererSetBackground :: a -> Maybe RGBA -> m ()
gutterRendererSetBackground a
renderer Maybe RGBA
color = IO () -> m ()
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 (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 (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 (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.MethodInfo GutterRendererSetBackgroundMethodInfo a signature where
overloadedMethod = gutterRendererSetBackground
#endif
foreign import ccall "gtk_source_gutter_renderer_set_padding" gtk_source_gutter_renderer_set_padding ::
Ptr GutterRenderer ->
Int32 ->
Int32 ->
IO ()
gutterRendererSetPadding ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Int32
-> Int32
-> m ()
gutterRendererSetPadding :: a -> Int32 -> Int32 -> m ()
gutterRendererSetPadding a
renderer Int32
xpad Int32
ypad = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRendererSetPaddingMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererSetPaddingMethodInfo a signature where
overloadedMethod = gutterRendererSetPadding
#endif
foreign import ccall "gtk_source_gutter_renderer_set_size" gtk_source_gutter_renderer_set_size ::
Ptr GutterRenderer ->
Int32 ->
IO ()
gutterRendererSetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Int32
-> m ()
gutterRendererSetSize :: a -> Int32 -> m ()
gutterRendererSetSize a
renderer Int32
size = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRendererSetSizeMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererSetSizeMethodInfo a signature where
overloadedMethod = gutterRendererSetSize
#endif
foreign import ccall "gtk_source_gutter_renderer_set_visible" gtk_source_gutter_renderer_set_visible ::
Ptr GutterRenderer ->
CInt ->
IO ()
gutterRendererSetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterRenderer a) =>
a
-> Bool
-> m ()
gutterRendererSetVisible :: a -> Bool -> m ()
gutterRendererSetVisible a
renderer Bool
visible = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRendererSetVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGutterRenderer a) => O.MethodInfo GutterRendererSetVisibleMethodInfo a signature where
overloadedMethod = gutterRendererSetVisible
#endif