{-# 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 ,
noGutter ,
#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.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 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.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 (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)
foreign import ccall "gtk_source_gutter_get_type"
c_gtk_source_gutter_get_type :: IO GType
instance GObject Gutter where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_source_gutter_get_type
instance B.GValue.IsGValue Gutter where
toGValue :: Gutter -> IO GValue
toGValue o :: Gutter
o = do
GType
gtype <- IO GType
c_gtk_source_gutter_get_type
Gutter -> (Ptr Gutter -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Gutter
o (GType -> (GValue -> Ptr Gutter -> IO ()) -> Ptr Gutter -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Gutter -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Gutter
fromGValue gv :: GValue
gv = do
Ptr Gutter
ptr <- GValue -> IO (Ptr Gutter)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Gutter)
(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
class (GObject o, O.IsDescendantOf Gutter o) => IsGutter o
instance (GObject o, O.IsDescendantOf Gutter o) => IsGutter o
instance O.HasParentTypes Gutter
type instance O.ParentTypes Gutter = '[GObject.Object.Object]
toGutter :: (MonadIO m, IsGutter o) => o -> m Gutter
toGutter :: o -> m Gutter
toGutter = IO Gutter -> m Gutter
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Gutter -> Gutter
Gutter
noGutter :: Maybe Gutter
noGutter :: Maybe Gutter
noGutter = Maybe Gutter
forall a. Maybe a
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.MethodInfo 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
#endif
getGutterView :: (MonadIO m, IsGutter o) => o -> m GtkSource.View.View
getGutterView :: o -> m View
getGutterView obj :: o
obj = 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
$ Text -> IO (Maybe View) -> IO View
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "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 "view" ManagedPtr View -> View
GtkSource.View.View
constructGutterView :: (IsGutter o, GtkSource.View.IsView a) => a -> IO (GValueConstruct o)
constructGutterView :: a -> IO (GValueConstruct o)
constructGutterView val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "view" (a -> Maybe a
forall a. a -> Maybe a
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 :: o -> m TextWindowType
getGutterWindowType obj :: 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 "window-type"
constructGutterWindowType :: (IsGutter o) => Gtk.Enums.TextWindowType -> IO (GValueConstruct o)
constructGutterWindowType :: TextWindowType -> IO (GValueConstruct o)
constructGutterWindowType val :: TextWindowType
val = String -> TextWindowType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "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 :: o -> m Int32
getGutterXpad obj :: 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 "xpad"
setGutterXpad :: (MonadIO m, IsGutter o) => o -> Int32 -> m ()
setGutterXpad :: o -> Int32 -> m ()
setGutterXpad obj :: o
obj val :: 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 "xpad" Int32
val
constructGutterXpad :: (IsGutter o) => Int32 -> IO (GValueConstruct o)
constructGutterXpad :: Int32 -> IO (GValueConstruct o)
constructGutterXpad val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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 :: o -> m Int32
getGutterYpad obj :: 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 "ypad"
setGutterYpad :: (MonadIO m, IsGutter o) => o -> Int32 -> m ()
setGutterYpad :: o -> Int32 -> m ()
setGutterYpad obj :: o
obj val :: 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 "ypad" Int32
val
constructGutterYpad :: (IsGutter o) => Int32 -> IO (GValueConstruct o)
constructGutterYpad :: Int32 -> IO (GValueConstruct o)
constructGutterYpad val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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 :: a -> Int32 -> Int32 -> m ()
gutterGetPadding gutter :: a
gutter xpad :: Int32
xpad ypad :: 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.MethodInfo GutterGetPaddingMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> Int32 -> m (Maybe GutterRenderer)
gutterGetRendererAtPos gutter :: a
gutter x :: Int32
x y :: 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
$ \result' :: 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.MethodInfo GutterGetRendererAtPosMethodInfo a signature where
overloadedMethod = 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 :: a -> m View
gutterGetView gutter :: 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 "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.MethodInfo GutterGetViewMethodInfo a signature where
overloadedMethod = 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 :: a -> m Window
gutterGetWindow gutter :: 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 "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.MethodInfo GutterGetWindowMethodInfo a signature where
overloadedMethod = 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 :: a -> m TextWindowType
gutterGetWindowType gutter :: 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.MethodInfo GutterGetWindowTypeMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> Int32 -> m Bool
gutterInsert gutter :: a
gutter renderer :: b
renderer position :: 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
/= 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.MethodInfo GutterInsertMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
gutterQueueDraw gutter :: 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.MethodInfo GutterQueueDrawMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m ()
gutterRemove gutter :: a
gutter renderer :: 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.MethodInfo GutterRemoveMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> Int32 -> m ()
gutterReorder gutter :: a
gutter renderer :: b
renderer position :: 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.MethodInfo GutterReorderMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> Int32 -> m ()
gutterSetPadding gutter :: a
gutter xpad :: Int32
xpad ypad :: 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.MethodInfo GutterSetPaddingMethodInfo a signature where
overloadedMethod = gutterSetPadding
#endif