{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GtkSource.Objects.SpaceDrawer
(
SpaceDrawer(..) ,
IsSpaceDrawer ,
toSpaceDrawer ,
#if defined(ENABLE_OVERLOADING)
ResolveSpaceDrawerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SpaceDrawerBindMatrixSettingMethodInfo ,
#endif
spaceDrawerBindMatrixSetting ,
#if defined(ENABLE_OVERLOADING)
SpaceDrawerGetEnableMatrixMethodInfo ,
#endif
spaceDrawerGetEnableMatrix ,
#if defined(ENABLE_OVERLOADING)
SpaceDrawerGetMatrixMethodInfo ,
#endif
spaceDrawerGetMatrix ,
#if defined(ENABLE_OVERLOADING)
SpaceDrawerGetTypesForLocationsMethodInfo,
#endif
spaceDrawerGetTypesForLocations ,
spaceDrawerNew ,
#if defined(ENABLE_OVERLOADING)
SpaceDrawerSetEnableMatrixMethodInfo ,
#endif
spaceDrawerSetEnableMatrix ,
#if defined(ENABLE_OVERLOADING)
SpaceDrawerSetMatrixMethodInfo ,
#endif
spaceDrawerSetMatrix ,
#if defined(ENABLE_OVERLOADING)
SpaceDrawerSetTypesForLocationsMethodInfo,
#endif
spaceDrawerSetTypesForLocations ,
#if defined(ENABLE_OVERLOADING)
SpaceDrawerEnableMatrixPropertyInfo ,
#endif
constructSpaceDrawerEnableMatrix ,
getSpaceDrawerEnableMatrix ,
setSpaceDrawerEnableMatrix ,
#if defined(ENABLE_OVERLOADING)
spaceDrawerEnableMatrix ,
#endif
#if defined(ENABLE_OVERLOADING)
SpaceDrawerMatrixPropertyInfo ,
#endif
clearSpaceDrawerMatrix ,
constructSpaceDrawerMatrix ,
getSpaceDrawerMatrix ,
setSpaceDrawerMatrix ,
#if defined(ENABLE_OVERLOADING)
spaceDrawerMatrix ,
#endif
) 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.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Flags as Gio.Flags
import qualified GI.Gio.Objects.Settings as Gio.Settings
import {-# SOURCE #-} qualified GI.GtkSource.Flags as GtkSource.Flags
newtype SpaceDrawer = SpaceDrawer (SP.ManagedPtr SpaceDrawer)
deriving (SpaceDrawer -> SpaceDrawer -> Bool
(SpaceDrawer -> SpaceDrawer -> Bool)
-> (SpaceDrawer -> SpaceDrawer -> Bool) -> Eq SpaceDrawer
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SpaceDrawer -> SpaceDrawer -> Bool
$c/= :: SpaceDrawer -> SpaceDrawer -> Bool
== :: SpaceDrawer -> SpaceDrawer -> Bool
$c== :: SpaceDrawer -> SpaceDrawer -> Bool
Eq)
instance SP.ManagedPtrNewtype SpaceDrawer where
toManagedPtr :: SpaceDrawer -> ManagedPtr SpaceDrawer
toManagedPtr (SpaceDrawer ManagedPtr SpaceDrawer
p) = ManagedPtr SpaceDrawer
p
foreign import ccall "gtk_source_space_drawer_get_type"
c_gtk_source_space_drawer_get_type :: IO B.Types.GType
instance B.Types.TypedObject SpaceDrawer where
glibType :: IO GType
glibType = IO GType
c_gtk_source_space_drawer_get_type
instance B.Types.GObject SpaceDrawer
class (SP.GObject o, O.IsDescendantOf SpaceDrawer o) => IsSpaceDrawer o
instance (SP.GObject o, O.IsDescendantOf SpaceDrawer o) => IsSpaceDrawer o
instance O.HasParentTypes SpaceDrawer
type instance O.ParentTypes SpaceDrawer = '[GObject.Object.Object]
toSpaceDrawer :: (MIO.MonadIO m, IsSpaceDrawer o) => o -> m SpaceDrawer
toSpaceDrawer :: forall (m :: * -> *) o.
(MonadIO m, IsSpaceDrawer o) =>
o -> m SpaceDrawer
toSpaceDrawer = IO SpaceDrawer -> m SpaceDrawer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SpaceDrawer -> m SpaceDrawer)
-> (o -> IO SpaceDrawer) -> o -> m SpaceDrawer
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SpaceDrawer -> SpaceDrawer) -> o -> IO SpaceDrawer
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr SpaceDrawer -> SpaceDrawer
SpaceDrawer
instance B.GValue.IsGValue (Maybe SpaceDrawer) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_source_space_drawer_get_type
gvalueSet_ :: Ptr GValue -> Maybe SpaceDrawer -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SpaceDrawer
P.Nothing = Ptr GValue -> Ptr SpaceDrawer -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr SpaceDrawer
forall a. Ptr a
FP.nullPtr :: FP.Ptr SpaceDrawer)
gvalueSet_ Ptr GValue
gv (P.Just SpaceDrawer
obj) = SpaceDrawer -> (Ptr SpaceDrawer -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SpaceDrawer
obj (Ptr GValue -> Ptr SpaceDrawer -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SpaceDrawer)
gvalueGet_ Ptr GValue
gv = do
Ptr SpaceDrawer
ptr <- Ptr GValue -> IO (Ptr SpaceDrawer)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr SpaceDrawer)
if Ptr SpaceDrawer
ptr Ptr SpaceDrawer -> Ptr SpaceDrawer -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SpaceDrawer
forall a. Ptr a
FP.nullPtr
then SpaceDrawer -> Maybe SpaceDrawer
forall a. a -> Maybe a
P.Just (SpaceDrawer -> Maybe SpaceDrawer)
-> IO SpaceDrawer -> IO (Maybe SpaceDrawer)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SpaceDrawer -> SpaceDrawer)
-> Ptr SpaceDrawer -> IO SpaceDrawer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr SpaceDrawer -> SpaceDrawer
SpaceDrawer Ptr SpaceDrawer
ptr
else Maybe SpaceDrawer -> IO (Maybe SpaceDrawer)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SpaceDrawer
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSpaceDrawerMethod (t :: Symbol) (o :: *) :: * where
ResolveSpaceDrawerMethod "bindMatrixSetting" o = SpaceDrawerBindMatrixSettingMethodInfo
ResolveSpaceDrawerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSpaceDrawerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSpaceDrawerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSpaceDrawerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSpaceDrawerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSpaceDrawerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSpaceDrawerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSpaceDrawerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSpaceDrawerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSpaceDrawerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSpaceDrawerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSpaceDrawerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSpaceDrawerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSpaceDrawerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSpaceDrawerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSpaceDrawerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSpaceDrawerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSpaceDrawerMethod "getEnableMatrix" o = SpaceDrawerGetEnableMatrixMethodInfo
ResolveSpaceDrawerMethod "getMatrix" o = SpaceDrawerGetMatrixMethodInfo
ResolveSpaceDrawerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSpaceDrawerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSpaceDrawerMethod "getTypesForLocations" o = SpaceDrawerGetTypesForLocationsMethodInfo
ResolveSpaceDrawerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSpaceDrawerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSpaceDrawerMethod "setEnableMatrix" o = SpaceDrawerSetEnableMatrixMethodInfo
ResolveSpaceDrawerMethod "setMatrix" o = SpaceDrawerSetMatrixMethodInfo
ResolveSpaceDrawerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSpaceDrawerMethod "setTypesForLocations" o = SpaceDrawerSetTypesForLocationsMethodInfo
ResolveSpaceDrawerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSpaceDrawerMethod t SpaceDrawer, O.OverloadedMethod info SpaceDrawer p) => OL.IsLabel t (SpaceDrawer -> 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 ~ ResolveSpaceDrawerMethod t SpaceDrawer, O.OverloadedMethod info SpaceDrawer p, R.HasField t SpaceDrawer p) => R.HasField t SpaceDrawer p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSpaceDrawerMethod t SpaceDrawer, O.OverloadedMethodInfo info SpaceDrawer) => OL.IsLabel t (O.MethodProxy info SpaceDrawer) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getSpaceDrawerEnableMatrix :: (MonadIO m, IsSpaceDrawer o) => o -> m Bool
getSpaceDrawerEnableMatrix :: forall (m :: * -> *) o. (MonadIO m, IsSpaceDrawer o) => o -> m Bool
getSpaceDrawerEnableMatrix o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"enable-matrix"
setSpaceDrawerEnableMatrix :: (MonadIO m, IsSpaceDrawer o) => o -> Bool -> m ()
setSpaceDrawerEnableMatrix :: forall (m :: * -> *) o.
(MonadIO m, IsSpaceDrawer o) =>
o -> Bool -> m ()
setSpaceDrawerEnableMatrix o
obj Bool
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-matrix" Bool
val
constructSpaceDrawerEnableMatrix :: (IsSpaceDrawer o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSpaceDrawerEnableMatrix :: forall o (m :: * -> *).
(IsSpaceDrawer o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSpaceDrawerEnableMatrix Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ 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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-matrix" Bool
val
#if defined(ENABLE_OVERLOADING)
data SpaceDrawerEnableMatrixPropertyInfo
instance AttrInfo SpaceDrawerEnableMatrixPropertyInfo where
type AttrAllowedOps SpaceDrawerEnableMatrixPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SpaceDrawerEnableMatrixPropertyInfo = IsSpaceDrawer
type AttrSetTypeConstraint SpaceDrawerEnableMatrixPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SpaceDrawerEnableMatrixPropertyInfo = (~) Bool
type AttrTransferType SpaceDrawerEnableMatrixPropertyInfo = Bool
type AttrGetType SpaceDrawerEnableMatrixPropertyInfo = Bool
type AttrLabel SpaceDrawerEnableMatrixPropertyInfo = "enable-matrix"
type AttrOrigin SpaceDrawerEnableMatrixPropertyInfo = SpaceDrawer
attrGet = getSpaceDrawerEnableMatrix
attrSet = setSpaceDrawerEnableMatrix
attrTransfer _ v = do
return v
attrConstruct = constructSpaceDrawerEnableMatrix
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SpaceDrawer.enableMatrix"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SpaceDrawer.html#g:attr:enableMatrix"
})
#endif
getSpaceDrawerMatrix :: (MonadIO m, IsSpaceDrawer o) => o -> m (Maybe GVariant)
getSpaceDrawerMatrix :: forall (m :: * -> *) o.
(MonadIO m, IsSpaceDrawer o) =>
o -> m (Maybe GVariant)
getSpaceDrawerMatrix o
obj = IO (Maybe GVariant) -> m (Maybe GVariant)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe GVariant) -> m (Maybe GVariant))
-> IO (Maybe GVariant) -> m (Maybe GVariant)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe GVariant)
forall a. GObject a => a -> String -> IO (Maybe GVariant)
B.Properties.getObjectPropertyVariant o
obj String
"matrix"
setSpaceDrawerMatrix :: (MonadIO m, IsSpaceDrawer o) => o -> GVariant -> m ()
setSpaceDrawerMatrix :: forall (m :: * -> *) o.
(MonadIO m, IsSpaceDrawer o) =>
o -> GVariant -> m ()
setSpaceDrawerMatrix o
obj GVariant
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 -> Maybe GVariant -> IO ()
forall a. GObject a => a -> String -> Maybe GVariant -> IO ()
B.Properties.setObjectPropertyVariant o
obj String
"matrix" (GVariant -> Maybe GVariant
forall a. a -> Maybe a
Just GVariant
val)
constructSpaceDrawerMatrix :: (IsSpaceDrawer o, MIO.MonadIO m) => GVariant -> m (GValueConstruct o)
constructSpaceDrawerMatrix :: forall o (m :: * -> *).
(IsSpaceDrawer o, MonadIO m) =>
GVariant -> m (GValueConstruct o)
constructSpaceDrawerMatrix GVariant
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 GVariant -> IO (GValueConstruct o)
forall o. String -> Maybe GVariant -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyVariant String
"matrix" (GVariant -> Maybe GVariant
forall a. a -> Maybe a
P.Just GVariant
val)
clearSpaceDrawerMatrix :: (MonadIO m, IsSpaceDrawer o) => o -> m ()
clearSpaceDrawerMatrix :: forall (m :: * -> *) o. (MonadIO m, IsSpaceDrawer o) => o -> m ()
clearSpaceDrawerMatrix o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe GVariant -> IO ()
forall a. GObject a => a -> String -> Maybe GVariant -> IO ()
B.Properties.setObjectPropertyVariant o
obj String
"matrix" (Maybe GVariant
forall a. Maybe a
Nothing :: Maybe GVariant)
#if defined(ENABLE_OVERLOADING)
data SpaceDrawerMatrixPropertyInfo
instance AttrInfo SpaceDrawerMatrixPropertyInfo where
type AttrAllowedOps SpaceDrawerMatrixPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SpaceDrawerMatrixPropertyInfo = IsSpaceDrawer
type AttrSetTypeConstraint SpaceDrawerMatrixPropertyInfo = (~) GVariant
type AttrTransferTypeConstraint SpaceDrawerMatrixPropertyInfo = (~) GVariant
type AttrTransferType SpaceDrawerMatrixPropertyInfo = GVariant
type AttrGetType SpaceDrawerMatrixPropertyInfo = (Maybe GVariant)
type AttrLabel SpaceDrawerMatrixPropertyInfo = "matrix"
type AttrOrigin SpaceDrawerMatrixPropertyInfo = SpaceDrawer
attrGet = getSpaceDrawerMatrix
attrSet = setSpaceDrawerMatrix
attrTransfer _ v = do
return v
attrConstruct = constructSpaceDrawerMatrix
attrClear = clearSpaceDrawerMatrix
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SpaceDrawer.matrix"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SpaceDrawer.html#g:attr:matrix"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SpaceDrawer
type instance O.AttributeList SpaceDrawer = SpaceDrawerAttributeList
type SpaceDrawerAttributeList = ('[ '("enableMatrix", SpaceDrawerEnableMatrixPropertyInfo), '("matrix", SpaceDrawerMatrixPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
spaceDrawerEnableMatrix :: AttrLabelProxy "enableMatrix"
spaceDrawerEnableMatrix = AttrLabelProxy
spaceDrawerMatrix :: AttrLabelProxy "matrix"
spaceDrawerMatrix = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SpaceDrawer = SpaceDrawerSignalList
type SpaceDrawerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_source_space_drawer_new" gtk_source_space_drawer_new ::
IO (Ptr SpaceDrawer)
spaceDrawerNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m SpaceDrawer
spaceDrawerNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m SpaceDrawer
spaceDrawerNew = IO SpaceDrawer -> m SpaceDrawer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SpaceDrawer -> m SpaceDrawer)
-> IO SpaceDrawer -> m SpaceDrawer
forall a b. (a -> b) -> a -> b
$ do
Ptr SpaceDrawer
result <- IO (Ptr SpaceDrawer)
gtk_source_space_drawer_new
Text -> Ptr SpaceDrawer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"spaceDrawerNew" Ptr SpaceDrawer
result
SpaceDrawer
result' <- ((ManagedPtr SpaceDrawer -> SpaceDrawer)
-> Ptr SpaceDrawer -> IO SpaceDrawer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr SpaceDrawer -> SpaceDrawer
SpaceDrawer) Ptr SpaceDrawer
result
SpaceDrawer -> IO SpaceDrawer
forall (m :: * -> *) a. Monad m => a -> m a
return SpaceDrawer
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_source_space_drawer_bind_matrix_setting" gtk_source_space_drawer_bind_matrix_setting ::
Ptr SpaceDrawer ->
Ptr Gio.Settings.Settings ->
CString ->
CUInt ->
IO ()
spaceDrawerBindMatrixSetting ::
(B.CallStack.HasCallStack, MonadIO m, IsSpaceDrawer a, Gio.Settings.IsSettings b) =>
a
-> b
-> T.Text
-> [Gio.Flags.SettingsBindFlags]
-> m ()
spaceDrawerBindMatrixSetting :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSpaceDrawer a, IsSettings b) =>
a -> b -> Text -> [SettingsBindFlags] -> m ()
spaceDrawerBindMatrixSetting a
drawer b
settings Text
key [SettingsBindFlags]
flags = 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 SpaceDrawer
drawer' <- a -> IO (Ptr SpaceDrawer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
drawer
Ptr Settings
settings' <- b -> IO (Ptr Settings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
settings
CString
key' <- Text -> IO CString
textToCString Text
key
let flags' :: CUInt
flags' = [SettingsBindFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [SettingsBindFlags]
flags
Ptr SpaceDrawer -> Ptr Settings -> CString -> CUInt -> IO ()
gtk_source_space_drawer_bind_matrix_setting Ptr SpaceDrawer
drawer' Ptr Settings
settings' CString
key' CUInt
flags'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
drawer
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
settings
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
key'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpaceDrawerBindMatrixSettingMethodInfo
instance (signature ~ (b -> T.Text -> [Gio.Flags.SettingsBindFlags] -> m ()), MonadIO m, IsSpaceDrawer a, Gio.Settings.IsSettings b) => O.OverloadedMethod SpaceDrawerBindMatrixSettingMethodInfo a signature where
overloadedMethod = spaceDrawerBindMatrixSetting
instance O.OverloadedMethodInfo SpaceDrawerBindMatrixSettingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SpaceDrawer.spaceDrawerBindMatrixSetting",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SpaceDrawer.html#v:spaceDrawerBindMatrixSetting"
})
#endif
foreign import ccall "gtk_source_space_drawer_get_enable_matrix" gtk_source_space_drawer_get_enable_matrix ::
Ptr SpaceDrawer ->
IO CInt
spaceDrawerGetEnableMatrix ::
(B.CallStack.HasCallStack, MonadIO m, IsSpaceDrawer a) =>
a
-> m Bool
spaceDrawerGetEnableMatrix :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpaceDrawer a) =>
a -> m Bool
spaceDrawerGetEnableMatrix a
drawer = 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 SpaceDrawer
drawer' <- a -> IO (Ptr SpaceDrawer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
drawer
CInt
result <- Ptr SpaceDrawer -> IO CInt
gtk_source_space_drawer_get_enable_matrix Ptr SpaceDrawer
drawer'
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
drawer
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SpaceDrawerGetEnableMatrixMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSpaceDrawer a) => O.OverloadedMethod SpaceDrawerGetEnableMatrixMethodInfo a signature where
overloadedMethod = spaceDrawerGetEnableMatrix
instance O.OverloadedMethodInfo SpaceDrawerGetEnableMatrixMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SpaceDrawer.spaceDrawerGetEnableMatrix",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SpaceDrawer.html#v:spaceDrawerGetEnableMatrix"
})
#endif
foreign import ccall "gtk_source_space_drawer_get_matrix" gtk_source_space_drawer_get_matrix ::
Ptr SpaceDrawer ->
IO (Ptr GVariant)
spaceDrawerGetMatrix ::
(B.CallStack.HasCallStack, MonadIO m, IsSpaceDrawer a) =>
a
-> m GVariant
spaceDrawerGetMatrix :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpaceDrawer a) =>
a -> m GVariant
spaceDrawerGetMatrix a
drawer = IO GVariant -> m GVariant
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GVariant -> m GVariant) -> IO GVariant -> m GVariant
forall a b. (a -> b) -> a -> b
$ do
Ptr SpaceDrawer
drawer' <- a -> IO (Ptr SpaceDrawer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
drawer
Ptr GVariant
result <- Ptr SpaceDrawer -> IO (Ptr GVariant)
gtk_source_space_drawer_get_matrix Ptr SpaceDrawer
drawer'
Text -> Ptr GVariant -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"spaceDrawerGetMatrix" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
drawer
GVariant -> IO GVariant
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result'
#if defined(ENABLE_OVERLOADING)
data SpaceDrawerGetMatrixMethodInfo
instance (signature ~ (m GVariant), MonadIO m, IsSpaceDrawer a) => O.OverloadedMethod SpaceDrawerGetMatrixMethodInfo a signature where
overloadedMethod = spaceDrawerGetMatrix
instance O.OverloadedMethodInfo SpaceDrawerGetMatrixMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SpaceDrawer.spaceDrawerGetMatrix",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SpaceDrawer.html#v:spaceDrawerGetMatrix"
})
#endif
foreign import ccall "gtk_source_space_drawer_get_types_for_locations" gtk_source_space_drawer_get_types_for_locations ::
Ptr SpaceDrawer ->
CUInt ->
IO CUInt
spaceDrawerGetTypesForLocations ::
(B.CallStack.HasCallStack, MonadIO m, IsSpaceDrawer a) =>
a
-> [GtkSource.Flags.SpaceLocationFlags]
-> m [GtkSource.Flags.SpaceTypeFlags]
spaceDrawerGetTypesForLocations :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpaceDrawer a) =>
a -> [SpaceLocationFlags] -> m [SpaceTypeFlags]
spaceDrawerGetTypesForLocations a
drawer [SpaceLocationFlags]
locations = IO [SpaceTypeFlags] -> m [SpaceTypeFlags]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [SpaceTypeFlags] -> m [SpaceTypeFlags])
-> IO [SpaceTypeFlags] -> m [SpaceTypeFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr SpaceDrawer
drawer' <- a -> IO (Ptr SpaceDrawer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
drawer
let locations' :: CUInt
locations' = [SpaceLocationFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [SpaceLocationFlags]
locations
CUInt
result <- Ptr SpaceDrawer -> CUInt -> IO CUInt
gtk_source_space_drawer_get_types_for_locations Ptr SpaceDrawer
drawer' CUInt
locations'
let result' :: [SpaceTypeFlags]
result' = CUInt -> [SpaceTypeFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
drawer
[SpaceTypeFlags] -> IO [SpaceTypeFlags]
forall (m :: * -> *) a. Monad m => a -> m a
return [SpaceTypeFlags]
result'
#if defined(ENABLE_OVERLOADING)
data SpaceDrawerGetTypesForLocationsMethodInfo
instance (signature ~ ([GtkSource.Flags.SpaceLocationFlags] -> m [GtkSource.Flags.SpaceTypeFlags]), MonadIO m, IsSpaceDrawer a) => O.OverloadedMethod SpaceDrawerGetTypesForLocationsMethodInfo a signature where
overloadedMethod = spaceDrawerGetTypesForLocations
instance O.OverloadedMethodInfo SpaceDrawerGetTypesForLocationsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SpaceDrawer.spaceDrawerGetTypesForLocations",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SpaceDrawer.html#v:spaceDrawerGetTypesForLocations"
})
#endif
foreign import ccall "gtk_source_space_drawer_set_enable_matrix" gtk_source_space_drawer_set_enable_matrix ::
Ptr SpaceDrawer ->
CInt ->
IO ()
spaceDrawerSetEnableMatrix ::
(B.CallStack.HasCallStack, MonadIO m, IsSpaceDrawer a) =>
a
-> Bool
-> m ()
spaceDrawerSetEnableMatrix :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpaceDrawer a) =>
a -> Bool -> m ()
spaceDrawerSetEnableMatrix a
drawer Bool
enableMatrix = 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 SpaceDrawer
drawer' <- a -> IO (Ptr SpaceDrawer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
drawer
let enableMatrix' :: CInt
enableMatrix' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enableMatrix
Ptr SpaceDrawer -> CInt -> IO ()
gtk_source_space_drawer_set_enable_matrix Ptr SpaceDrawer
drawer' CInt
enableMatrix'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
drawer
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpaceDrawerSetEnableMatrixMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSpaceDrawer a) => O.OverloadedMethod SpaceDrawerSetEnableMatrixMethodInfo a signature where
overloadedMethod = spaceDrawerSetEnableMatrix
instance O.OverloadedMethodInfo SpaceDrawerSetEnableMatrixMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SpaceDrawer.spaceDrawerSetEnableMatrix",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SpaceDrawer.html#v:spaceDrawerSetEnableMatrix"
})
#endif
foreign import ccall "gtk_source_space_drawer_set_matrix" gtk_source_space_drawer_set_matrix ::
Ptr SpaceDrawer ->
Ptr GVariant ->
IO ()
spaceDrawerSetMatrix ::
(B.CallStack.HasCallStack, MonadIO m, IsSpaceDrawer a) =>
a
-> Maybe (GVariant)
-> m ()
spaceDrawerSetMatrix :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpaceDrawer a) =>
a -> Maybe GVariant -> m ()
spaceDrawerSetMatrix a
drawer Maybe GVariant
matrix = 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 SpaceDrawer
drawer' <- a -> IO (Ptr SpaceDrawer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
drawer
Ptr GVariant
maybeMatrix <- case Maybe GVariant
matrix of
Maybe GVariant
Nothing -> Ptr GVariant -> IO (Ptr GVariant)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
forall a. Ptr a
nullPtr
Just GVariant
jMatrix -> do
Ptr GVariant
jMatrix' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
jMatrix
Ptr GVariant -> IO (Ptr GVariant)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
jMatrix'
Ptr SpaceDrawer -> Ptr GVariant -> IO ()
gtk_source_space_drawer_set_matrix Ptr SpaceDrawer
drawer' Ptr GVariant
maybeMatrix
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
drawer
Maybe GVariant -> (GVariant -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe GVariant
matrix GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpaceDrawerSetMatrixMethodInfo
instance (signature ~ (Maybe (GVariant) -> m ()), MonadIO m, IsSpaceDrawer a) => O.OverloadedMethod SpaceDrawerSetMatrixMethodInfo a signature where
overloadedMethod = spaceDrawerSetMatrix
instance O.OverloadedMethodInfo SpaceDrawerSetMatrixMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SpaceDrawer.spaceDrawerSetMatrix",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SpaceDrawer.html#v:spaceDrawerSetMatrix"
})
#endif
foreign import ccall "gtk_source_space_drawer_set_types_for_locations" gtk_source_space_drawer_set_types_for_locations ::
Ptr SpaceDrawer ->
CUInt ->
CUInt ->
IO ()
spaceDrawerSetTypesForLocations ::
(B.CallStack.HasCallStack, MonadIO m, IsSpaceDrawer a) =>
a
-> [GtkSource.Flags.SpaceLocationFlags]
-> [GtkSource.Flags.SpaceTypeFlags]
-> m ()
spaceDrawerSetTypesForLocations :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSpaceDrawer a) =>
a -> [SpaceLocationFlags] -> [SpaceTypeFlags] -> m ()
spaceDrawerSetTypesForLocations a
drawer [SpaceLocationFlags]
locations [SpaceTypeFlags]
types = 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 SpaceDrawer
drawer' <- a -> IO (Ptr SpaceDrawer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
drawer
let locations' :: CUInt
locations' = [SpaceLocationFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [SpaceLocationFlags]
locations
let types' :: CUInt
types' = [SpaceTypeFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [SpaceTypeFlags]
types
Ptr SpaceDrawer -> CUInt -> CUInt -> IO ()
gtk_source_space_drawer_set_types_for_locations Ptr SpaceDrawer
drawer' CUInt
locations' CUInt
types'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
drawer
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SpaceDrawerSetTypesForLocationsMethodInfo
instance (signature ~ ([GtkSource.Flags.SpaceLocationFlags] -> [GtkSource.Flags.SpaceTypeFlags] -> m ()), MonadIO m, IsSpaceDrawer a) => O.OverloadedMethod SpaceDrawerSetTypesForLocationsMethodInfo a signature where
overloadedMethod = spaceDrawerSetTypesForLocations
instance O.OverloadedMethodInfo SpaceDrawerSetTypesForLocationsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SpaceDrawer.spaceDrawerSetTypesForLocations",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SpaceDrawer.html#v:spaceDrawerSetTypesForLocations"
})
#endif