{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GtkSource.Objects.GutterLines
(
GutterLines(..) ,
IsGutterLines ,
toGutterLines ,
#if defined(ENABLE_OVERLOADING)
ResolveGutterLinesMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
GutterLinesAddClassMethodInfo ,
#endif
gutterLinesAddClass ,
#if defined(ENABLE_OVERLOADING)
GutterLinesAddQclassMethodInfo ,
#endif
gutterLinesAddQclass ,
#if defined(ENABLE_OVERLOADING)
GutterLinesGetBufferMethodInfo ,
#endif
gutterLinesGetBuffer ,
#if defined(ENABLE_OVERLOADING)
GutterLinesGetFirstMethodInfo ,
#endif
gutterLinesGetFirst ,
#if defined(ENABLE_OVERLOADING)
GutterLinesGetIterAtLineMethodInfo ,
#endif
gutterLinesGetIterAtLine ,
#if defined(ENABLE_OVERLOADING)
GutterLinesGetLastMethodInfo ,
#endif
gutterLinesGetLast ,
#if defined(ENABLE_OVERLOADING)
GutterLinesGetLineYrangeMethodInfo ,
#endif
gutterLinesGetLineYrange ,
#if defined(ENABLE_OVERLOADING)
GutterLinesGetViewMethodInfo ,
#endif
gutterLinesGetView ,
#if defined(ENABLE_OVERLOADING)
GutterLinesHasAnyClassMethodInfo ,
#endif
gutterLinesHasAnyClass ,
#if defined(ENABLE_OVERLOADING)
GutterLinesHasClassMethodInfo ,
#endif
gutterLinesHasClass ,
#if defined(ENABLE_OVERLOADING)
GutterLinesHasQclassMethodInfo ,
#endif
gutterLinesHasQclass ,
#if defined(ENABLE_OVERLOADING)
GutterLinesIsCursorMethodInfo ,
#endif
gutterLinesIsCursor ,
#if defined(ENABLE_OVERLOADING)
GutterLinesIsPrelitMethodInfo ,
#endif
gutterLinesIsPrelit ,
#if defined(ENABLE_OVERLOADING)
GutterLinesIsSelectedMethodInfo ,
#endif
gutterLinesIsSelected ,
#if defined(ENABLE_OVERLOADING)
GutterLinesRemoveClassMethodInfo ,
#endif
gutterLinesRemoveClass ,
#if defined(ENABLE_OVERLOADING)
GutterLinesRemoveQclassMethodInfo ,
#endif
gutterLinesRemoveQclass ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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.Gtk.Objects.TextBuffer as Gtk.TextBuffer
import qualified GI.Gtk.Objects.TextView as Gtk.TextView
import qualified GI.Gtk.Structs.TextIter as Gtk.TextIter
import {-# SOURCE #-} qualified GI.GtkSource.Enums as GtkSource.Enums
newtype GutterLines = GutterLines (SP.ManagedPtr GutterLines)
deriving (GutterLines -> GutterLines -> Bool
(GutterLines -> GutterLines -> Bool)
-> (GutterLines -> GutterLines -> Bool) -> Eq GutterLines
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GutterLines -> GutterLines -> Bool
== :: GutterLines -> GutterLines -> Bool
$c/= :: GutterLines -> GutterLines -> Bool
/= :: GutterLines -> GutterLines -> Bool
Eq)
instance SP.ManagedPtrNewtype GutterLines where
toManagedPtr :: GutterLines -> ManagedPtr GutterLines
toManagedPtr (GutterLines ManagedPtr GutterLines
p) = ManagedPtr GutterLines
p
foreign import ccall "gtk_source_gutter_lines_get_type"
c_gtk_source_gutter_lines_get_type :: IO B.Types.GType
instance B.Types.TypedObject GutterLines where
glibType :: IO GType
glibType = IO GType
c_gtk_source_gutter_lines_get_type
instance B.Types.GObject GutterLines
class (SP.GObject o, O.IsDescendantOf GutterLines o) => IsGutterLines o
instance (SP.GObject o, O.IsDescendantOf GutterLines o) => IsGutterLines o
instance O.HasParentTypes GutterLines
type instance O.ParentTypes GutterLines = '[GObject.Object.Object]
toGutterLines :: (MIO.MonadIO m, IsGutterLines o) => o -> m GutterLines
toGutterLines :: forall (m :: * -> *) o.
(MonadIO m, IsGutterLines o) =>
o -> m GutterLines
toGutterLines = IO GutterLines -> m GutterLines
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO GutterLines -> m GutterLines)
-> (o -> IO GutterLines) -> o -> m GutterLines
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr GutterLines -> GutterLines) -> o -> IO GutterLines
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr GutterLines -> GutterLines
GutterLines
instance B.GValue.IsGValue (Maybe GutterLines) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_source_gutter_lines_get_type
gvalueSet_ :: Ptr GValue -> Maybe GutterLines -> IO ()
gvalueSet_ Ptr GValue
gv Maybe GutterLines
P.Nothing = Ptr GValue -> Ptr GutterLines -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr GutterLines
forall a. Ptr a
FP.nullPtr :: FP.Ptr GutterLines)
gvalueSet_ Ptr GValue
gv (P.Just GutterLines
obj) = GutterLines -> (Ptr GutterLines -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr GutterLines
obj (Ptr GValue -> Ptr GutterLines -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe GutterLines)
gvalueGet_ Ptr GValue
gv = do
Ptr GutterLines
ptr <- Ptr GValue -> IO (Ptr GutterLines)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr GutterLines)
if Ptr GutterLines
ptr Ptr GutterLines -> Ptr GutterLines -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr GutterLines
forall a. Ptr a
FP.nullPtr
then GutterLines -> Maybe GutterLines
forall a. a -> Maybe a
P.Just (GutterLines -> Maybe GutterLines)
-> IO GutterLines -> IO (Maybe GutterLines)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr GutterLines -> GutterLines)
-> Ptr GutterLines -> IO GutterLines
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr GutterLines -> GutterLines
GutterLines Ptr GutterLines
ptr
else Maybe GutterLines -> IO (Maybe GutterLines)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GutterLines
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveGutterLinesMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveGutterLinesMethod "addClass" o = GutterLinesAddClassMethodInfo
ResolveGutterLinesMethod "addQclass" o = GutterLinesAddQclassMethodInfo
ResolveGutterLinesMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveGutterLinesMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveGutterLinesMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveGutterLinesMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveGutterLinesMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveGutterLinesMethod "hasAnyClass" o = GutterLinesHasAnyClassMethodInfo
ResolveGutterLinesMethod "hasClass" o = GutterLinesHasClassMethodInfo
ResolveGutterLinesMethod "hasQclass" o = GutterLinesHasQclassMethodInfo
ResolveGutterLinesMethod "isCursor" o = GutterLinesIsCursorMethodInfo
ResolveGutterLinesMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveGutterLinesMethod "isPrelit" o = GutterLinesIsPrelitMethodInfo
ResolveGutterLinesMethod "isSelected" o = GutterLinesIsSelectedMethodInfo
ResolveGutterLinesMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveGutterLinesMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveGutterLinesMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveGutterLinesMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveGutterLinesMethod "removeClass" o = GutterLinesRemoveClassMethodInfo
ResolveGutterLinesMethod "removeQclass" o = GutterLinesRemoveQclassMethodInfo
ResolveGutterLinesMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveGutterLinesMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveGutterLinesMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveGutterLinesMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveGutterLinesMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveGutterLinesMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveGutterLinesMethod "getBuffer" o = GutterLinesGetBufferMethodInfo
ResolveGutterLinesMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveGutterLinesMethod "getFirst" o = GutterLinesGetFirstMethodInfo
ResolveGutterLinesMethod "getIterAtLine" o = GutterLinesGetIterAtLineMethodInfo
ResolveGutterLinesMethod "getLast" o = GutterLinesGetLastMethodInfo
ResolveGutterLinesMethod "getLineYrange" o = GutterLinesGetLineYrangeMethodInfo
ResolveGutterLinesMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveGutterLinesMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveGutterLinesMethod "getView" o = GutterLinesGetViewMethodInfo
ResolveGutterLinesMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveGutterLinesMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveGutterLinesMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveGutterLinesMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveGutterLinesMethod t GutterLines, O.OverloadedMethod info GutterLines p) => OL.IsLabel t (GutterLines -> 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 ~ ResolveGutterLinesMethod t GutterLines, O.OverloadedMethod info GutterLines p, R.HasField t GutterLines p) => R.HasField t GutterLines p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveGutterLinesMethod t GutterLines, O.OverloadedMethodInfo info GutterLines) => OL.IsLabel t (O.MethodProxy info GutterLines) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList GutterLines
type instance O.AttributeList GutterLines = GutterLinesAttributeList
type GutterLinesAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList GutterLines = GutterLinesSignalList
type GutterLinesSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_source_gutter_lines_add_class" gtk_source_gutter_lines_add_class ::
Ptr GutterLines ->
Word32 ->
CString ->
IO ()
gutterLinesAddClass ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterLines a) =>
a
-> Word32
-> T.Text
-> m ()
gutterLinesAddClass :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterLines a) =>
a -> Word32 -> Text -> m ()
gutterLinesAddClass a
lines Word32
line Text
name = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterLines
lines' <- a -> IO (Ptr GutterLines)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
lines
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr GutterLines -> Word32 -> CString -> IO ()
gtk_source_gutter_lines_add_class Ptr GutterLines
lines' Word32
line CString
name'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
lines
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterLinesAddClassMethodInfo
instance (signature ~ (Word32 -> T.Text -> m ()), MonadIO m, IsGutterLines a) => O.OverloadedMethod GutterLinesAddClassMethodInfo a signature where
overloadedMethod = gutterLinesAddClass
instance O.OverloadedMethodInfo GutterLinesAddClassMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterLines.gutterLinesAddClass",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-GutterLines.html#v:gutterLinesAddClass"
})
#endif
foreign import ccall "gtk_source_gutter_lines_add_qclass" gtk_source_gutter_lines_add_qclass ::
Ptr GutterLines ->
Word32 ->
Word32 ->
IO ()
gutterLinesAddQclass ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterLines a) =>
a
-> Word32
-> Word32
-> m ()
gutterLinesAddQclass :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterLines a) =>
a -> Word32 -> Word32 -> m ()
gutterLinesAddQclass a
lines Word32
line Word32
qname = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterLines
lines' <- a -> IO (Ptr GutterLines)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
lines
Ptr GutterLines -> Word32 -> Word32 -> IO ()
gtk_source_gutter_lines_add_qclass Ptr GutterLines
lines' Word32
line Word32
qname
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
lines
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterLinesAddQclassMethodInfo
instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, IsGutterLines a) => O.OverloadedMethod GutterLinesAddQclassMethodInfo a signature where
overloadedMethod = gutterLinesAddQclass
instance O.OverloadedMethodInfo GutterLinesAddQclassMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterLines.gutterLinesAddQclass",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-GutterLines.html#v:gutterLinesAddQclass"
})
#endif
foreign import ccall "gtk_source_gutter_lines_get_buffer" gtk_source_gutter_lines_get_buffer ::
Ptr GutterLines ->
IO (Ptr Gtk.TextBuffer.TextBuffer)
gutterLinesGetBuffer ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterLines a) =>
a
-> m Gtk.TextBuffer.TextBuffer
gutterLinesGetBuffer :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterLines a) =>
a -> m TextBuffer
gutterLinesGetBuffer a
lines = IO TextBuffer -> m TextBuffer
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TextBuffer -> m TextBuffer) -> IO TextBuffer -> m TextBuffer
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterLines
lines' <- a -> IO (Ptr GutterLines)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
lines
Ptr TextBuffer
result <- Ptr GutterLines -> IO (Ptr TextBuffer)
gtk_source_gutter_lines_get_buffer Ptr GutterLines
lines'
Text -> Ptr TextBuffer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"gutterLinesGetBuffer" Ptr TextBuffer
result
TextBuffer
result' <- ((ManagedPtr TextBuffer -> TextBuffer)
-> Ptr TextBuffer -> IO TextBuffer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TextBuffer -> TextBuffer
Gtk.TextBuffer.TextBuffer) Ptr TextBuffer
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
lines
TextBuffer -> IO TextBuffer
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TextBuffer
result'
#if defined(ENABLE_OVERLOADING)
data GutterLinesGetBufferMethodInfo
instance (signature ~ (m Gtk.TextBuffer.TextBuffer), MonadIO m, IsGutterLines a) => O.OverloadedMethod GutterLinesGetBufferMethodInfo a signature where
overloadedMethod = gutterLinesGetBuffer
instance O.OverloadedMethodInfo GutterLinesGetBufferMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterLines.gutterLinesGetBuffer",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-GutterLines.html#v:gutterLinesGetBuffer"
})
#endif
foreign import ccall "gtk_source_gutter_lines_get_first" gtk_source_gutter_lines_get_first ::
Ptr GutterLines ->
IO Word32
gutterLinesGetFirst ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterLines a) =>
a
-> m Word32
gutterLinesGetFirst :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterLines a) =>
a -> m Word32
gutterLinesGetFirst a
lines = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterLines
lines' <- a -> IO (Ptr GutterLines)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
lines
Word32
result <- Ptr GutterLines -> IO Word32
gtk_source_gutter_lines_get_first Ptr GutterLines
lines'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
lines
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data GutterLinesGetFirstMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsGutterLines a) => O.OverloadedMethod GutterLinesGetFirstMethodInfo a signature where
overloadedMethod = gutterLinesGetFirst
instance O.OverloadedMethodInfo GutterLinesGetFirstMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterLines.gutterLinesGetFirst",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-GutterLines.html#v:gutterLinesGetFirst"
})
#endif
foreign import ccall "gtk_source_gutter_lines_get_iter_at_line" gtk_source_gutter_lines_get_iter_at_line ::
Ptr GutterLines ->
Ptr Gtk.TextIter.TextIter ->
Word32 ->
IO ()
gutterLinesGetIterAtLine ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterLines a) =>
a
-> Word32
-> m (Gtk.TextIter.TextIter)
gutterLinesGetIterAtLine :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterLines a) =>
a -> Word32 -> m TextIter
gutterLinesGetIterAtLine a
lines Word32
line = IO TextIter -> m TextIter
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TextIter -> m TextIter) -> IO TextIter -> m TextIter
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterLines
lines' <- a -> IO (Ptr GutterLines)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
lines
Ptr TextIter
iter <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr GutterLines -> Ptr TextIter -> Word32 -> IO ()
gtk_source_gutter_lines_get_iter_at_line Ptr GutterLines
lines' Ptr TextIter
iter Word32
line
TextIter
iter' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
iter
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
lines
TextIter -> IO TextIter
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TextIter
iter'
#if defined(ENABLE_OVERLOADING)
data GutterLinesGetIterAtLineMethodInfo
instance (signature ~ (Word32 -> m (Gtk.TextIter.TextIter)), MonadIO m, IsGutterLines a) => O.OverloadedMethod GutterLinesGetIterAtLineMethodInfo a signature where
overloadedMethod = gutterLinesGetIterAtLine
instance O.OverloadedMethodInfo GutterLinesGetIterAtLineMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterLines.gutterLinesGetIterAtLine",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-GutterLines.html#v:gutterLinesGetIterAtLine"
})
#endif
foreign import ccall "gtk_source_gutter_lines_get_last" gtk_source_gutter_lines_get_last ::
Ptr GutterLines ->
IO Word32
gutterLinesGetLast ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterLines a) =>
a
-> m Word32
gutterLinesGetLast :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterLines a) =>
a -> m Word32
gutterLinesGetLast a
lines = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterLines
lines' <- a -> IO (Ptr GutterLines)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
lines
Word32
result <- Ptr GutterLines -> IO Word32
gtk_source_gutter_lines_get_last Ptr GutterLines
lines'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
lines
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data GutterLinesGetLastMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsGutterLines a) => O.OverloadedMethod GutterLinesGetLastMethodInfo a signature where
overloadedMethod = gutterLinesGetLast
instance O.OverloadedMethodInfo GutterLinesGetLastMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterLines.gutterLinesGetLast",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-GutterLines.html#v:gutterLinesGetLast"
})
#endif
foreign import ccall "gtk_source_gutter_lines_get_line_yrange" gtk_source_gutter_lines_get_line_yrange ::
Ptr GutterLines ->
Word32 ->
CUInt ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
gutterLinesGetLineYrange ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterLines a) =>
a
-> Word32
-> GtkSource.Enums.GutterRendererAlignmentMode
-> m ((Int32, Int32))
gutterLinesGetLineYrange :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterLines a) =>
a -> Word32 -> GutterRendererAlignmentMode -> m (Int32, Int32)
gutterLinesGetLineYrange a
lines Word32
line GutterRendererAlignmentMode
mode = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterLines
lines' <- a -> IO (Ptr GutterLines)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
lines
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 Int32
y <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
height <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr GutterLines
-> Word32 -> CUInt -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_source_gutter_lines_get_line_yrange Ptr GutterLines
lines' Word32
line CUInt
mode' Ptr Int32
y Ptr Int32
height
Int32
y' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
y
Int32
height' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
lines
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
y
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
height
(Int32, Int32) -> IO (Int32, Int32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
y', Int32
height')
#if defined(ENABLE_OVERLOADING)
data GutterLinesGetLineYrangeMethodInfo
instance (signature ~ (Word32 -> GtkSource.Enums.GutterRendererAlignmentMode -> m ((Int32, Int32))), MonadIO m, IsGutterLines a) => O.OverloadedMethod GutterLinesGetLineYrangeMethodInfo a signature where
overloadedMethod = gutterLinesGetLineYrange
instance O.OverloadedMethodInfo GutterLinesGetLineYrangeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterLines.gutterLinesGetLineYrange",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-GutterLines.html#v:gutterLinesGetLineYrange"
})
#endif
foreign import ccall "gtk_source_gutter_lines_get_view" gtk_source_gutter_lines_get_view ::
Ptr GutterLines ->
IO (Ptr Gtk.TextView.TextView)
gutterLinesGetView ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterLines a) =>
a
-> m Gtk.TextView.TextView
gutterLinesGetView :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterLines a) =>
a -> m TextView
gutterLinesGetView a
lines = IO TextView -> m TextView
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TextView -> m TextView) -> IO TextView -> m TextView
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterLines
lines' <- a -> IO (Ptr GutterLines)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
lines
Ptr TextView
result <- Ptr GutterLines -> IO (Ptr TextView)
gtk_source_gutter_lines_get_view Ptr GutterLines
lines'
Text -> Ptr TextView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"gutterLinesGetView" 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
lines
TextView -> IO TextView
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TextView
result'
#if defined(ENABLE_OVERLOADING)
data GutterLinesGetViewMethodInfo
instance (signature ~ (m Gtk.TextView.TextView), MonadIO m, IsGutterLines a) => O.OverloadedMethod GutterLinesGetViewMethodInfo a signature where
overloadedMethod = gutterLinesGetView
instance O.OverloadedMethodInfo GutterLinesGetViewMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterLines.gutterLinesGetView",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-GutterLines.html#v:gutterLinesGetView"
})
#endif
foreign import ccall "gtk_source_gutter_lines_has_any_class" gtk_source_gutter_lines_has_any_class ::
Ptr GutterLines ->
Word32 ->
IO CInt
gutterLinesHasAnyClass ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterLines a) =>
a
-> Word32
-> m Bool
gutterLinesHasAnyClass :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterLines a) =>
a -> Word32 -> m Bool
gutterLinesHasAnyClass a
lines Word32
line = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterLines
lines' <- a -> IO (Ptr GutterLines)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
lines
CInt
result <- Ptr GutterLines -> Word32 -> IO CInt
gtk_source_gutter_lines_has_any_class Ptr GutterLines
lines' Word32
line
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
lines
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GutterLinesHasAnyClassMethodInfo
instance (signature ~ (Word32 -> m Bool), MonadIO m, IsGutterLines a) => O.OverloadedMethod GutterLinesHasAnyClassMethodInfo a signature where
overloadedMethod = gutterLinesHasAnyClass
instance O.OverloadedMethodInfo GutterLinesHasAnyClassMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterLines.gutterLinesHasAnyClass",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-GutterLines.html#v:gutterLinesHasAnyClass"
})
#endif
foreign import ccall "gtk_source_gutter_lines_has_class" gtk_source_gutter_lines_has_class ::
Ptr GutterLines ->
Word32 ->
CString ->
IO CInt
gutterLinesHasClass ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterLines a) =>
a
-> Word32
-> T.Text
-> m Bool
gutterLinesHasClass :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterLines a) =>
a -> Word32 -> Text -> m Bool
gutterLinesHasClass a
lines Word32
line Text
name = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterLines
lines' <- a -> IO (Ptr GutterLines)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
lines
CString
name' <- Text -> IO CString
textToCString Text
name
CInt
result <- Ptr GutterLines -> Word32 -> CString -> IO CInt
gtk_source_gutter_lines_has_class Ptr GutterLines
lines' Word32
line CString
name'
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
lines
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GutterLinesHasClassMethodInfo
instance (signature ~ (Word32 -> T.Text -> m Bool), MonadIO m, IsGutterLines a) => O.OverloadedMethod GutterLinesHasClassMethodInfo a signature where
overloadedMethod = gutterLinesHasClass
instance O.OverloadedMethodInfo GutterLinesHasClassMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterLines.gutterLinesHasClass",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-GutterLines.html#v:gutterLinesHasClass"
})
#endif
foreign import ccall "gtk_source_gutter_lines_has_qclass" gtk_source_gutter_lines_has_qclass ::
Ptr GutterLines ->
Word32 ->
Word32 ->
IO CInt
gutterLinesHasQclass ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterLines a) =>
a
-> Word32
-> Word32
-> m Bool
gutterLinesHasQclass :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterLines a) =>
a -> Word32 -> Word32 -> m Bool
gutterLinesHasQclass a
lines Word32
line Word32
qname = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterLines
lines' <- a -> IO (Ptr GutterLines)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
lines
CInt
result <- Ptr GutterLines -> Word32 -> Word32 -> IO CInt
gtk_source_gutter_lines_has_qclass Ptr GutterLines
lines' Word32
line Word32
qname
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
lines
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GutterLinesHasQclassMethodInfo
instance (signature ~ (Word32 -> Word32 -> m Bool), MonadIO m, IsGutterLines a) => O.OverloadedMethod GutterLinesHasQclassMethodInfo a signature where
overloadedMethod = gutterLinesHasQclass
instance O.OverloadedMethodInfo GutterLinesHasQclassMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterLines.gutterLinesHasQclass",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-GutterLines.html#v:gutterLinesHasQclass"
})
#endif
foreign import ccall "gtk_source_gutter_lines_is_cursor" gtk_source_gutter_lines_is_cursor ::
Ptr GutterLines ->
Word32 ->
IO CInt
gutterLinesIsCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterLines a) =>
a
-> Word32
-> m Bool
gutterLinesIsCursor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterLines a) =>
a -> Word32 -> m Bool
gutterLinesIsCursor a
lines Word32
line = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterLines
lines' <- a -> IO (Ptr GutterLines)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
lines
CInt
result <- Ptr GutterLines -> Word32 -> IO CInt
gtk_source_gutter_lines_is_cursor Ptr GutterLines
lines' Word32
line
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
lines
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GutterLinesIsCursorMethodInfo
instance (signature ~ (Word32 -> m Bool), MonadIO m, IsGutterLines a) => O.OverloadedMethod GutterLinesIsCursorMethodInfo a signature where
overloadedMethod = gutterLinesIsCursor
instance O.OverloadedMethodInfo GutterLinesIsCursorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterLines.gutterLinesIsCursor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-GutterLines.html#v:gutterLinesIsCursor"
})
#endif
foreign import ccall "gtk_source_gutter_lines_is_prelit" gtk_source_gutter_lines_is_prelit ::
Ptr GutterLines ->
Word32 ->
IO CInt
gutterLinesIsPrelit ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterLines a) =>
a
-> Word32
-> m Bool
gutterLinesIsPrelit :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterLines a) =>
a -> Word32 -> m Bool
gutterLinesIsPrelit a
lines Word32
line = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterLines
lines' <- a -> IO (Ptr GutterLines)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
lines
CInt
result <- Ptr GutterLines -> Word32 -> IO CInt
gtk_source_gutter_lines_is_prelit Ptr GutterLines
lines' Word32
line
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
lines
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GutterLinesIsPrelitMethodInfo
instance (signature ~ (Word32 -> m Bool), MonadIO m, IsGutterLines a) => O.OverloadedMethod GutterLinesIsPrelitMethodInfo a signature where
overloadedMethod = gutterLinesIsPrelit
instance O.OverloadedMethodInfo GutterLinesIsPrelitMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterLines.gutterLinesIsPrelit",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-GutterLines.html#v:gutterLinesIsPrelit"
})
#endif
foreign import ccall "gtk_source_gutter_lines_is_selected" gtk_source_gutter_lines_is_selected ::
Ptr GutterLines ->
Word32 ->
IO CInt
gutterLinesIsSelected ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterLines a) =>
a
-> Word32
-> m Bool
gutterLinesIsSelected :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterLines a) =>
a -> Word32 -> m Bool
gutterLinesIsSelected a
lines Word32
line = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterLines
lines' <- a -> IO (Ptr GutterLines)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
lines
CInt
result <- Ptr GutterLines -> Word32 -> IO CInt
gtk_source_gutter_lines_is_selected Ptr GutterLines
lines' Word32
line
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
lines
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GutterLinesIsSelectedMethodInfo
instance (signature ~ (Word32 -> m Bool), MonadIO m, IsGutterLines a) => O.OverloadedMethod GutterLinesIsSelectedMethodInfo a signature where
overloadedMethod = gutterLinesIsSelected
instance O.OverloadedMethodInfo GutterLinesIsSelectedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterLines.gutterLinesIsSelected",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-GutterLines.html#v:gutterLinesIsSelected"
})
#endif
foreign import ccall "gtk_source_gutter_lines_remove_class" gtk_source_gutter_lines_remove_class ::
Ptr GutterLines ->
Word32 ->
CString ->
IO ()
gutterLinesRemoveClass ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterLines a) =>
a
-> Word32
-> T.Text
-> m ()
gutterLinesRemoveClass :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterLines a) =>
a -> Word32 -> Text -> m ()
gutterLinesRemoveClass a
lines Word32
line Text
name = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterLines
lines' <- a -> IO (Ptr GutterLines)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
lines
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr GutterLines -> Word32 -> CString -> IO ()
gtk_source_gutter_lines_remove_class Ptr GutterLines
lines' Word32
line CString
name'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
lines
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterLinesRemoveClassMethodInfo
instance (signature ~ (Word32 -> T.Text -> m ()), MonadIO m, IsGutterLines a) => O.OverloadedMethod GutterLinesRemoveClassMethodInfo a signature where
overloadedMethod = gutterLinesRemoveClass
instance O.OverloadedMethodInfo GutterLinesRemoveClassMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterLines.gutterLinesRemoveClass",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-GutterLines.html#v:gutterLinesRemoveClass"
})
#endif
foreign import ccall "gtk_source_gutter_lines_remove_qclass" gtk_source_gutter_lines_remove_qclass ::
Ptr GutterLines ->
Word32 ->
Word32 ->
IO ()
gutterLinesRemoveQclass ::
(B.CallStack.HasCallStack, MonadIO m, IsGutterLines a) =>
a
-> Word32
-> Word32
-> m ()
gutterLinesRemoveQclass :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGutterLines a) =>
a -> Word32 -> Word32 -> m ()
gutterLinesRemoveQclass a
lines Word32
line Word32
qname = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GutterLines
lines' <- a -> IO (Ptr GutterLines)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
lines
Ptr GutterLines -> Word32 -> Word32 -> IO ()
gtk_source_gutter_lines_remove_qclass Ptr GutterLines
lines' Word32
line Word32
qname
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
lines
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GutterLinesRemoveQclassMethodInfo
instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, IsGutterLines a) => O.OverloadedMethod GutterLinesRemoveQclassMethodInfo a signature where
overloadedMethod = gutterLinesRemoveQclass
instance O.OverloadedMethodInfo GutterLinesRemoveQclassMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.GutterLines.gutterLinesRemoveQclass",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-5.0.0/docs/GI-GtkSource-Objects-GutterLines.html#v:gutterLinesRemoveQclass"
})
#endif