{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GtkSource.Objects.Gutter
(
Gutter(..) ,
IsGutter ,
toGutter ,
#if defined(ENABLE_OVERLOADING)
ResolveGutterMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
GutterGetPaddingMethodInfo ,
#endif
gutterGetPadding ,
#if defined(ENABLE_OVERLOADING)
GutterGetRendererAtPosMethodInfo ,
#endif
gutterGetRendererAtPos ,
#if defined(ENABLE_OVERLOADING)
GutterGetViewMethodInfo ,
#endif
gutterGetView ,
#if defined(ENABLE_OVERLOADING)
GutterGetWindowMethodInfo ,
#endif
gutterGetWindow ,
#if defined(ENABLE_OVERLOADING)
GutterGetWindowTypeMethodInfo ,
#endif
gutterGetWindowType ,
#if defined(ENABLE_OVERLOADING)
GutterInsertMethodInfo ,
#endif
gutterInsert ,
#if defined(ENABLE_OVERLOADING)
GutterQueueDrawMethodInfo ,
#endif
gutterQueueDraw ,
#if defined(ENABLE_OVERLOADING)
GutterRemoveMethodInfo ,
#endif
gutterRemove ,
#if defined(ENABLE_OVERLOADING)
GutterReorderMethodInfo ,
#endif
gutterReorder ,
#if defined(ENABLE_OVERLOADING)
GutterSetPaddingMethodInfo ,
#endif
gutterSetPadding ,
#if defined(ENABLE_OVERLOADING)
GutterViewPropertyInfo ,
#endif
constructGutterView ,
getGutterView ,
#if defined(ENABLE_OVERLOADING)
gutterView ,
#endif
#if defined(ENABLE_OVERLOADING)
GutterWindowTypePropertyInfo ,
#endif
constructGutterWindowType ,
getGutterWindowType ,
#if defined(ENABLE_OVERLOADING)
gutterWindowType ,
#endif
#if defined(ENABLE_OVERLOADING)
GutterXpadPropertyInfo ,
#endif
constructGutterXpad ,
getGutterXpad ,
#if defined(ENABLE_OVERLOADING)
gutterXpad ,
#endif
setGutterXpad ,
#if defined(ENABLE_OVERLOADING)
GutterYpadPropertyInfo ,
#endif
constructGutterYpad ,
getGutterYpad ,
#if defined(ENABLE_OVERLOADING)
gutterYpad ,
#endif
setGutterYpad ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.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 GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Objects.Window as Gdk.Window
import qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.GtkSource.Objects.GutterRenderer as GtkSource.GutterRenderer
import {-# SOURCE #-} qualified GI.GtkSource.Objects.View as GtkSource.View
newtype Gutter = Gutter (SP.ManagedPtr Gutter)
deriving (Gutter -> Gutter -> Bool
(Gutter -> Gutter -> Bool)
-> (Gutter -> Gutter -> Bool) -> Eq Gutter
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Gutter -> Gutter -> Bool
$c/= :: Gutter -> Gutter -> Bool
== :: Gutter -> Gutter -> Bool
$c== :: Gutter -> Gutter -> Bool
Eq)
instance SP.ManagedPtrNewtype Gutter where
toManagedPtr :: Gutter -> ManagedPtr Gutter
toManagedPtr (Gutter ManagedPtr Gutter
p) = ManagedPtr Gutter
p
foreign import ccall "gtk_source_gutter_get_type"
c_gtk_source_gutter_get_type :: IO B.Types.GType
instance B.Types.TypedObject Gutter where
glibType :: IO GType
glibType = IO GType
c_gtk_source_gutter_get_type
instance B.Types.GObject Gutter
class (SP.GObject o, O.IsDescendantOf Gutter o) => IsGutter o
instance (SP.GObject o, O.IsDescendantOf Gutter o) => IsGutter o
instance O.HasParentTypes Gutter
type instance O.ParentTypes Gutter = '[GObject.Object.Object]
toGutter :: (MIO.MonadIO m, IsGutter o) => o -> m Gutter
toGutter :: forall (m :: * -> *) o. (MonadIO m, IsGutter o) => o -> m Gutter
toGutter = IO Gutter -> m Gutter
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Gutter -> m Gutter) -> (o -> IO Gutter) -> o -> m Gutter
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Gutter -> Gutter) -> o -> IO Gutter
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Gutter -> Gutter
Gutter
instance B.GValue.IsGValue (Maybe Gutter) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_source_gutter_get_type
gvalueSet_ :: Ptr GValue -> Maybe Gutter -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Gutter
P.Nothing = Ptr GValue -> Ptr Gutter -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Gutter
forall a. Ptr a
FP.nullPtr :: FP.Ptr Gutter)
gvalueSet_ Ptr GValue
gv (P.Just Gutter
obj) = Gutter -> (Ptr Gutter -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Gutter
obj (Ptr GValue -> Ptr Gutter -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Gutter)
gvalueGet_ Ptr GValue
gv = do
Ptr Gutter
ptr <- Ptr GValue -> IO (Ptr Gutter)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Gutter)
if Ptr Gutter
ptr Ptr Gutter -> Ptr Gutter -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Gutter
forall a. Ptr a
FP.nullPtr
then Gutter -> Maybe Gutter
forall a. a -> Maybe a
P.Just (Gutter -> Maybe Gutter) -> IO Gutter -> IO (Maybe Gutter)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Gutter -> Gutter) -> Ptr Gutter -> IO Gutter
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Gutter -> Gutter
Gutter Ptr Gutter
ptr
else Maybe Gutter -> IO (Maybe Gutter)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Gutter
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveGutterMethod (t :: Symbol) (o :: *) :: * where
ResolveGutterMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveGutterMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveGutterMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveGutterMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveGutterMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveGutterMethod "insert" o = GutterInsertMethodInfo
ResolveGutterMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveGutterMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveGutterMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveGutterMethod "queueDraw" o = GutterQueueDrawMethodInfo
ResolveGutterMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveGutterMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveGutterMethod "remove" o = GutterRemoveMethodInfo
ResolveGutterMethod "reorder" o = GutterReorderMethodInfo
ResolveGutterMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveGutterMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveGutterMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveGutterMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveGutterMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveGutterMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveGutterMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveGutterMethod "getPadding" o = GutterGetPaddingMethodInfo
ResolveGutterMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveGutterMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveGutterMethod "getRendererAtPos" o = GutterGetRendererAtPosMethodInfo
ResolveGutterMethod "getView" o = GutterGetViewMethodInfo
ResolveGutterMethod "getWindow" o = GutterGetWindowMethodInfo
ResolveGutterMethod "getWindowType" o = GutterGetWindowTypeMethodInfo
ResolveGutterMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveGutterMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveGutterMethod "setPadding" o = GutterSetPaddingMethodInfo
ResolveGutterMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveGutterMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveGutterMethod t Gutter, O.OverloadedMethod info Gutter p) => OL.IsLabel t (Gutter -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveGutterMethod t Gutter, O.OverloadedMethod info Gutter p, R.HasField t Gutter p) => R.HasField t Gutter p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveGutterMethod t Gutter, O.OverloadedMethodInfo info Gutter) => OL.IsLabel t (O.MethodProxy info Gutter) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getGutterView :: (MonadIO m, IsGutter o) => o -> m GtkSource.View.View
getGutterView :: forall (m :: * -> *) o. (MonadIO m, IsGutter o) => o -> m View
getGutterView o
obj = IO View -> m View
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO View -> m View) -> IO View -> m View
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe View) -> IO View
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getGutterView" (IO (Maybe View) -> IO View) -> IO (Maybe View) -> IO View
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr View -> View) -> IO (Maybe View)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"view" ManagedPtr View -> View
GtkSource.View.View
constructGutterView :: (IsGutter o, MIO.MonadIO m, GtkSource.View.IsView a) => a -> m (GValueConstruct o)
constructGutterView :: forall o (m :: * -> *) a.
(IsGutter o, MonadIO m, IsView a) =>
a -> m (GValueConstruct o)
constructGutterView a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"view" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data GutterViewPropertyInfo
instance AttrInfo GutterViewPropertyInfo where
type AttrAllowedOps GutterViewPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint GutterViewPropertyInfo = IsGutter
type AttrSetTypeConstraint GutterViewPropertyInfo = GtkSource.View.IsView
type AttrTransferTypeConstraint GutterViewPropertyInfo = GtkSource.View.IsView
type AttrTransferType GutterViewPropertyInfo = GtkSource.View.View
type AttrGetType GutterViewPropertyInfo = GtkSource.View.View
type AttrLabel GutterViewPropertyInfo = "view"
type AttrOrigin GutterViewPropertyInfo = Gutter
attrGet = getGutterView
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo GtkSource.View.View v
attrConstruct = constructGutterView
attrClear = undefined
#endif
getGutterWindowType :: (MonadIO m, IsGutter o) => o -> m Gtk.Enums.TextWindowType
getGutterWindowType :: forall (m :: * -> *) o.
(MonadIO m, IsGutter o) =>
o -> m TextWindowType
getGutterWindowType o
obj = IO TextWindowType -> m TextWindowType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TextWindowType -> m TextWindowType)
-> IO TextWindowType -> m TextWindowType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO TextWindowType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"window-type"
constructGutterWindowType :: (IsGutter o, MIO.MonadIO m) => Gtk.Enums.TextWindowType -> m (GValueConstruct o)
constructGutterWindowType :: forall o (m :: * -> *).
(IsGutter o, MonadIO m) =>
TextWindowType -> m (GValueConstruct o)
constructGutterWindowType TextWindowType
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> TextWindowType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"window-type" TextWindowType
val
#if defined(ENABLE_OVERLOADING)
data GutterWindowTypePropertyInfo
instance AttrInfo GutterWindowTypePropertyInfo where
type AttrAllowedOps GutterWindowTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GutterWindowTypePropertyInfo = IsGutter
type AttrSetTypeConstraint GutterWindowTypePropertyInfo = (~) Gtk.Enums.TextWindowType
type AttrTransferTypeConstraint GutterWindowTypePropertyInfo = (~) Gtk.Enums.TextWindowType
type AttrTransferType GutterWindowTypePropertyInfo = Gtk.Enums.TextWindowType
type AttrGetType GutterWindowTypePropertyInfo = Gtk.Enums.TextWindowType
type AttrLabel GutterWindowTypePropertyInfo = "window-type"
type AttrOrigin GutterWindowTypePropertyInfo = Gutter
attrGet = getGutterWindowType
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructGutterWindowType
attrClear = undefined
#endif
getGutterXpad :: (MonadIO m, IsGutter o) => o -> m Int32
getGutterXpad :: forall (m :: * -> *) o. (MonadIO m, IsGutter o) => o -> m Int32
getGutterXpad o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"xpad"
setGutterXpad :: (MonadIO m, IsGutter o) => o -> Int32 -> m ()
setGutterXpad :: forall (m :: * -> *) o.
(MonadIO m, IsGutter o) =>
o -> Int32 -> m ()
setGutterXpad o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"xpad" Int32
val
constructGutterXpad :: (IsGutter o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructGutterXpad :: forall o (m :: * -> *).
(IsGutter o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructGutterXpad 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"xpad" Int32
val
#if defined(ENABLE_OVERLOADING)
data GutterXpadPropertyInfo
instance AttrInfo GutterXpadPropertyInfo where
type AttrAllowedOps GutterXpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GutterXpadPropertyInfo = IsGutter
type AttrSetTypeConstraint GutterXpadPropertyInfo = (~) Int32
type AttrTransferTypeConstraint GutterXpadPropertyInfo = (~) Int32
type AttrTransferType GutterXpadPropertyInfo = Int32
type AttrGetType GutterXpadPropertyInfo = Int32
type AttrLabel GutterXpadPropertyInfo = "xpad"
type AttrOrigin GutterXpadPropertyInfo = Gutter
attrGet = getGutterXpad
attrSet = setGutterXpad
attrTransfer _ v = do
return v
attrConstruct = constructGutterXpad
attrClear = undefined
#endif
getGutterYpad :: (MonadIO m, IsGutter o) => o -> m Int32
getGutterYpad :: forall (m :: * -> *) o. (MonadIO m, IsGutter o) => o -> m Int32
getGutterYpad o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"ypad"
setGutterYpad :: (MonadIO m, IsGutter o) => o -> Int32 -> m ()
setGutterYpad :: forall (m :: * -> *) o.
(MonadIO m, IsGutter o) =>
o -> Int32 -> m ()
setGutterYpad o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"ypad" Int32
val
constructGutterYpad :: (IsGutter o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructGutterYpad :: forall o (m :: * -> *).
(IsGutter o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructGutterYpad 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"ypad" Int32
val
#if defined(ENABLE_OVERLOADING)
data GutterYpadPropertyInfo
instance AttrInfo GutterYpadPropertyInfo where
type AttrAllowedOps GutterYpadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GutterYpadPropertyInfo = IsGutter
type AttrSetTypeConstraint GutterYpadPropertyInfo = (~) Int32
type AttrTransferTypeConstraint GutterYpadPropertyInfo = (~) Int32
type AttrTransferType GutterYpadPropertyInfo = Int32
type AttrGetType GutterYpadPropertyInfo = Int32
type AttrLabel GutterYpadPropertyInfo = "ypad"
type AttrOrigin GutterYpadPropertyInfo = Gutter
attrGet = getGutterYpad
attrSet = setGutterYpad
attrTransfer _ v = do
return v
attrConstruct = constructGutterYpad
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Gutter
type instance O.AttributeList Gutter = GutterAttributeList
type GutterAttributeList = ('[ '("view", GutterViewPropertyInfo), '("windowType", GutterWindowTypePropertyInfo), '("xpad", GutterXpadPropertyInfo), '("ypad", GutterYpadPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
gutterView :: AttrLabelProxy "view"
gutterView = AttrLabelProxy
gutterWindowType :: AttrLabelProxy "windowType"
gutterWindowType = AttrLabelProxy
gutterXpad :: AttrLabelProxy "xpad"
gutterXpad = AttrLabelProxy
gutterYpad :: AttrLabelProxy "ypad"
gutterYpad = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Gutter = GutterSignalList
type GutterSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_source_gutter_get_padding" gtk_source_gutter_get_padding ::
Ptr Gutter ->
Int32 ->
Int32 ->
IO ()
{-# DEPRECATED gutterGetPadding ["(Since version 3.12)","Use 'GI.GtkSource.Objects.GutterRenderer.gutterRendererGetPadding' instead."] #-}
gutterGetPadding ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a) =>
a
-> Int32
-> Int32
-> m ()
gutterGetPadding :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutter a) =>
a -> Int32 -> Int32 -> m ()
gutterGetPadding a
gutter 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 Gutter
gutter' <- a -> IO (Ptr Gutter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
gutter
Ptr Gutter -> Int32 -> Int32 -> IO ()
gtk_source_gutter_get_padding Ptr Gutter
gutter' Int32
xpad Int32
ypad
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
gutter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterGetPaddingMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsGutter a) => O.OverloadedMethod GutterGetPaddingMethodInfo a signature where
overloadedMethod = gutterGetPadding
instance O.OverloadedMethodInfo GutterGetPaddingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.Gutter.gutterGetPadding",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-Gutter.html#v:gutterGetPadding"
}
#endif
foreign import ccall "gtk_source_gutter_get_renderer_at_pos" gtk_source_gutter_get_renderer_at_pos ::
Ptr Gutter ->
Int32 ->
Int32 ->
IO (Ptr GtkSource.GutterRenderer.GutterRenderer)
gutterGetRendererAtPos ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a) =>
a
-> Int32
-> Int32
-> m (Maybe GtkSource.GutterRenderer.GutterRenderer)
gutterGetRendererAtPos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutter a) =>
a -> Int32 -> Int32 -> m (Maybe GutterRenderer)
gutterGetRendererAtPos a
gutter Int32
x Int32
y = IO (Maybe GutterRenderer) -> m (Maybe GutterRenderer)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe GutterRenderer) -> m (Maybe GutterRenderer))
-> IO (Maybe GutterRenderer) -> m (Maybe GutterRenderer)
forall a b. (a -> b) -> a -> b
$ do
Ptr Gutter
gutter' <- a -> IO (Ptr Gutter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
gutter
Ptr GutterRenderer
result <- Ptr Gutter -> Int32 -> Int32 -> IO (Ptr GutterRenderer)
gtk_source_gutter_get_renderer_at_pos Ptr Gutter
gutter' Int32
x Int32
y
Maybe GutterRenderer
maybeResult <- Ptr GutterRenderer
-> (Ptr GutterRenderer -> IO GutterRenderer)
-> IO (Maybe GutterRenderer)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr GutterRenderer
result ((Ptr GutterRenderer -> IO GutterRenderer)
-> IO (Maybe GutterRenderer))
-> (Ptr GutterRenderer -> IO GutterRenderer)
-> IO (Maybe GutterRenderer)
forall a b. (a -> b) -> a -> b
$ \Ptr GutterRenderer
result' -> do
GutterRenderer
result'' <- ((ManagedPtr GutterRenderer -> GutterRenderer)
-> Ptr GutterRenderer -> IO GutterRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr GutterRenderer -> GutterRenderer
GtkSource.GutterRenderer.GutterRenderer) Ptr GutterRenderer
result'
GutterRenderer -> IO GutterRenderer
forall (m :: * -> *) a. Monad m => a -> m a
return GutterRenderer
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
gutter
Maybe GutterRenderer -> IO (Maybe GutterRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GutterRenderer
maybeResult
#if defined(ENABLE_OVERLOADING)
data GutterGetRendererAtPosMethodInfo
instance (signature ~ (Int32 -> Int32 -> m (Maybe GtkSource.GutterRenderer.GutterRenderer)), MonadIO m, IsGutter a) => O.OverloadedMethod GutterGetRendererAtPosMethodInfo a signature where
overloadedMethod = gutterGetRendererAtPos
instance O.OverloadedMethodInfo GutterGetRendererAtPosMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.Gutter.gutterGetRendererAtPos",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-Gutter.html#v:gutterGetRendererAtPos"
}
#endif
foreign import ccall "gtk_source_gutter_get_view" gtk_source_gutter_get_view ::
Ptr Gutter ->
IO (Ptr GtkSource.View.View)
gutterGetView ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a) =>
a
-> m GtkSource.View.View
gutterGetView :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutter a) =>
a -> m View
gutterGetView a
gutter = IO View -> m View
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO View -> m View) -> IO View -> m View
forall a b. (a -> b) -> a -> b
$ do
Ptr Gutter
gutter' <- a -> IO (Ptr Gutter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
gutter
Ptr View
result <- Ptr Gutter -> IO (Ptr View)
gtk_source_gutter_get_view Ptr Gutter
gutter'
Text -> Ptr View -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"gutterGetView" Ptr View
result
View
result' <- ((ManagedPtr View -> View) -> Ptr View -> IO View
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr View -> View
GtkSource.View.View) Ptr View
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
gutter
View -> IO View
forall (m :: * -> *) a. Monad m => a -> m a
return View
result'
#if defined(ENABLE_OVERLOADING)
data GutterGetViewMethodInfo
instance (signature ~ (m GtkSource.View.View), MonadIO m, IsGutter a) => O.OverloadedMethod GutterGetViewMethodInfo a signature where
overloadedMethod = gutterGetView
instance O.OverloadedMethodInfo GutterGetViewMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.Gutter.gutterGetView",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-Gutter.html#v:gutterGetView"
}
#endif
foreign import ccall "gtk_source_gutter_get_window" gtk_source_gutter_get_window ::
Ptr Gutter ->
IO (Ptr Gdk.Window.Window)
{-# DEPRECATED gutterGetWindow ["(Since version 3.12)","Use 'GI.Gtk.Objects.TextView.textViewGetWindow' instead."] #-}
gutterGetWindow ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a) =>
a
-> m Gdk.Window.Window
gutterGetWindow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutter a) =>
a -> m Window
gutterGetWindow a
gutter = IO Window -> m Window
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Window -> m Window) -> IO Window -> m Window
forall a b. (a -> b) -> a -> b
$ do
Ptr Gutter
gutter' <- a -> IO (Ptr Gutter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
gutter
Ptr Window
result <- Ptr Gutter -> IO (Ptr Window)
gtk_source_gutter_get_window Ptr Gutter
gutter'
Text -> Ptr Window -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"gutterGetWindow" Ptr Window
result
Window
result' <- ((ManagedPtr Window -> Window) -> Ptr Window -> IO Window
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Gdk.Window.Window) Ptr Window
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
gutter
Window -> IO Window
forall (m :: * -> *) a. Monad m => a -> m a
return Window
result'
#if defined(ENABLE_OVERLOADING)
data GutterGetWindowMethodInfo
instance (signature ~ (m Gdk.Window.Window), MonadIO m, IsGutter a) => O.OverloadedMethod GutterGetWindowMethodInfo a signature where
overloadedMethod = gutterGetWindow
instance O.OverloadedMethodInfo GutterGetWindowMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.Gutter.gutterGetWindow",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-Gutter.html#v:gutterGetWindow"
}
#endif
foreign import ccall "gtk_source_gutter_get_window_type" gtk_source_gutter_get_window_type ::
Ptr Gutter ->
IO CUInt
gutterGetWindowType ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a) =>
a
-> m Gtk.Enums.TextWindowType
gutterGetWindowType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutter a) =>
a -> m TextWindowType
gutterGetWindowType a
gutter = 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 Gutter
gutter' <- a -> IO (Ptr Gutter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
gutter
CUInt
result <- Ptr Gutter -> IO CUInt
gtk_source_gutter_get_window_type Ptr Gutter
gutter'
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
gutter
TextWindowType -> IO TextWindowType
forall (m :: * -> *) a. Monad m => a -> m a
return TextWindowType
result'
#if defined(ENABLE_OVERLOADING)
data GutterGetWindowTypeMethodInfo
instance (signature ~ (m Gtk.Enums.TextWindowType), MonadIO m, IsGutter a) => O.OverloadedMethod GutterGetWindowTypeMethodInfo a signature where
overloadedMethod = gutterGetWindowType
instance O.OverloadedMethodInfo GutterGetWindowTypeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.Gutter.gutterGetWindowType",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-Gutter.html#v:gutterGetWindowType"
}
#endif
foreign import ccall "gtk_source_gutter_insert" gtk_source_gutter_insert ::
Ptr Gutter ->
Ptr GtkSource.GutterRenderer.GutterRenderer ->
Int32 ->
IO CInt
gutterInsert ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a, GtkSource.GutterRenderer.IsGutterRenderer b) =>
a
-> b
-> Int32
-> m Bool
gutterInsert :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsGutter a, IsGutterRenderer b) =>
a -> b -> Int32 -> m Bool
gutterInsert a
gutter b
renderer Int32
position = 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 Gutter
gutter' <- a -> IO (Ptr Gutter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
gutter
Ptr GutterRenderer
renderer' <- b -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
CInt
result <- Ptr Gutter -> Ptr GutterRenderer -> Int32 -> IO CInt
gtk_source_gutter_insert Ptr Gutter
gutter' Ptr GutterRenderer
renderer' Int32
position
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
gutter
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GutterInsertMethodInfo
instance (signature ~ (b -> Int32 -> m Bool), MonadIO m, IsGutter a, GtkSource.GutterRenderer.IsGutterRenderer b) => O.OverloadedMethod GutterInsertMethodInfo a signature where
overloadedMethod = gutterInsert
instance O.OverloadedMethodInfo GutterInsertMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.Gutter.gutterInsert",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-Gutter.html#v:gutterInsert"
}
#endif
foreign import ccall "gtk_source_gutter_queue_draw" gtk_source_gutter_queue_draw ::
Ptr Gutter ->
IO ()
gutterQueueDraw ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a) =>
a
-> m ()
gutterQueueDraw :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutter a) =>
a -> m ()
gutterQueueDraw a
gutter = 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 Gutter
gutter' <- a -> IO (Ptr Gutter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
gutter
Ptr Gutter -> IO ()
gtk_source_gutter_queue_draw Ptr Gutter
gutter'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
gutter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterQueueDrawMethodInfo
instance (signature ~ (m ()), MonadIO m, IsGutter a) => O.OverloadedMethod GutterQueueDrawMethodInfo a signature where
overloadedMethod = gutterQueueDraw
instance O.OverloadedMethodInfo GutterQueueDrawMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.Gutter.gutterQueueDraw",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-Gutter.html#v:gutterQueueDraw"
}
#endif
foreign import ccall "gtk_source_gutter_remove" gtk_source_gutter_remove ::
Ptr Gutter ->
Ptr GtkSource.GutterRenderer.GutterRenderer ->
IO ()
gutterRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a, GtkSource.GutterRenderer.IsGutterRenderer b) =>
a
-> b
-> m ()
gutterRemove :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsGutter a, IsGutterRenderer b) =>
a -> b -> m ()
gutterRemove a
gutter b
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 Gutter
gutter' <- a -> IO (Ptr Gutter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
gutter
Ptr GutterRenderer
renderer' <- b -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
Ptr Gutter -> Ptr GutterRenderer -> IO ()
gtk_source_gutter_remove Ptr Gutter
gutter' Ptr GutterRenderer
renderer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
gutter
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterRemoveMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsGutter a, GtkSource.GutterRenderer.IsGutterRenderer b) => O.OverloadedMethod GutterRemoveMethodInfo a signature where
overloadedMethod = gutterRemove
instance O.OverloadedMethodInfo GutterRemoveMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.Gutter.gutterRemove",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-Gutter.html#v:gutterRemove"
}
#endif
foreign import ccall "gtk_source_gutter_reorder" gtk_source_gutter_reorder ::
Ptr Gutter ->
Ptr GtkSource.GutterRenderer.GutterRenderer ->
Int32 ->
IO ()
gutterReorder ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a, GtkSource.GutterRenderer.IsGutterRenderer b) =>
a
-> b
-> Int32
-> m ()
gutterReorder :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsGutter a, IsGutterRenderer b) =>
a -> b -> Int32 -> m ()
gutterReorder a
gutter b
renderer Int32
position = 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 Gutter
gutter' <- a -> IO (Ptr Gutter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
gutter
Ptr GutterRenderer
renderer' <- b -> IO (Ptr GutterRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
renderer
Ptr Gutter -> Ptr GutterRenderer -> Int32 -> IO ()
gtk_source_gutter_reorder Ptr Gutter
gutter' Ptr GutterRenderer
renderer' Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
gutter
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
renderer
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterReorderMethodInfo
instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsGutter a, GtkSource.GutterRenderer.IsGutterRenderer b) => O.OverloadedMethod GutterReorderMethodInfo a signature where
overloadedMethod = gutterReorder
instance O.OverloadedMethodInfo GutterReorderMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.Gutter.gutterReorder",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-Gutter.html#v:gutterReorder"
}
#endif
foreign import ccall "gtk_source_gutter_set_padding" gtk_source_gutter_set_padding ::
Ptr Gutter ->
Int32 ->
Int32 ->
IO ()
{-# DEPRECATED gutterSetPadding ["(Since version 3.12)","Use 'GI.GtkSource.Objects.GutterRenderer.gutterRendererSetPadding' instead."] #-}
gutterSetPadding ::
(B.CallStack.HasCallStack, MonadIO m, IsGutter a) =>
a
-> Int32
-> Int32
-> m ()
gutterSetPadding :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutter a) =>
a -> Int32 -> Int32 -> m ()
gutterSetPadding a
gutter 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 Gutter
gutter' <- a -> IO (Ptr Gutter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
gutter
Ptr Gutter -> Int32 -> Int32 -> IO ()
gtk_source_gutter_set_padding Ptr Gutter
gutter' Int32
xpad Int32
ypad
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
gutter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterSetPaddingMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsGutter a) => O.OverloadedMethod GutterSetPaddingMethodInfo a signature where
overloadedMethod = gutterSetPadding
instance O.OverloadedMethodInfo GutterSetPaddingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.GtkSource.Objects.Gutter.gutterSetPadding",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.24/docs/GI-GtkSource-Objects-Gutter.html#v:gutterSetPadding"
}
#endif