{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Structs.BindingSet
(
BindingSet(..) ,
newZeroBindingSet ,
#if defined(ENABLE_OVERLOADING)
ResolveBindingSetMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
BindingSetActivateMethodInfo ,
#endif
bindingSetActivate ,
#if defined(ENABLE_OVERLOADING)
BindingSetAddPathMethodInfo ,
#endif
bindingSetAddPath ,
bindingSetFind ,
#if defined(ENABLE_OVERLOADING)
bindingSet_classBranchPspecs ,
#endif
clearBindingSetClassBranchPspecs ,
getBindingSetClassBranchPspecs ,
setBindingSetClassBranchPspecs ,
#if defined(ENABLE_OVERLOADING)
bindingSet_current ,
#endif
clearBindingSetCurrent ,
getBindingSetCurrent ,
setBindingSetCurrent ,
#if defined(ENABLE_OVERLOADING)
bindingSet_entries ,
#endif
clearBindingSetEntries ,
getBindingSetEntries ,
setBindingSetEntries ,
#if defined(ENABLE_OVERLOADING)
bindingSet_parsed ,
#endif
getBindingSetParsed ,
setBindingSetParsed ,
#if defined(ENABLE_OVERLOADING)
bindingSet_priority ,
#endif
getBindingSetPriority ,
setBindingSetPriority ,
#if defined(ENABLE_OVERLOADING)
bindingSet_setName ,
#endif
clearBindingSetSetName ,
getBindingSetSetName ,
setBindingSetSetName ,
#if defined(ENABLE_OVERLOADING)
bindingSet_widgetClassPspecs ,
#endif
clearBindingSetWidgetClassPspecs ,
getBindingSetWidgetClassPspecs ,
setBindingSetWidgetClassPspecs ,
#if defined(ENABLE_OVERLOADING)
bindingSet_widgetPathPspecs ,
#endif
clearBindingSetWidgetPathPspecs ,
getBindingSetWidgetPathPspecs ,
setBindingSetWidgetPathPspecs ,
) 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.Gdk.Flags as Gdk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Structs.BindingEntry as Gtk.BindingEntry
newtype BindingSet = BindingSet (SP.ManagedPtr BindingSet)
deriving (BindingSet -> BindingSet -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BindingSet -> BindingSet -> Bool
$c/= :: BindingSet -> BindingSet -> Bool
== :: BindingSet -> BindingSet -> Bool
$c== :: BindingSet -> BindingSet -> Bool
Eq)
instance SP.ManagedPtrNewtype BindingSet where
toManagedPtr :: BindingSet -> ManagedPtr BindingSet
toManagedPtr (BindingSet ManagedPtr BindingSet
p) = ManagedPtr BindingSet
p
instance BoxedPtr BindingSet where
boxedPtrCopy :: BindingSet -> IO BindingSet
boxedPtrCopy = \BindingSet
p -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr BindingSet
p (forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
64 forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.wrapPtr ManagedPtr BindingSet -> BindingSet
BindingSet)
boxedPtrFree :: BindingSet -> IO ()
boxedPtrFree = \BindingSet
x -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr BindingSet
x forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr BindingSet where
boxedPtrCalloc :: IO (Ptr BindingSet)
boxedPtrCalloc = forall a. Int -> IO (Ptr a)
callocBytes Int
64
newZeroBindingSet :: MonadIO m => m BindingSet
newZeroBindingSet :: forall (m :: * -> *). MonadIO m => m BindingSet
newZeroBindingSet = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. CallocPtr a => IO (Ptr a)
boxedPtrCalloc forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr BindingSet -> BindingSet
BindingSet
instance tag ~ 'AttrSet => Constructible BindingSet tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr BindingSet -> BindingSet)
-> [AttrOp BindingSet tag] -> m BindingSet
new ManagedPtr BindingSet -> BindingSet
_ [AttrOp BindingSet tag]
attrs = do
BindingSet
o <- forall (m :: * -> *). MonadIO m => m BindingSet
newZeroBindingSet
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set BindingSet
o [AttrOp BindingSet tag]
attrs
forall (m :: * -> *) a. Monad m => a -> m a
return BindingSet
o
getBindingSetSetName :: MonadIO m => BindingSet -> m (Maybe T.Text)
getBindingSetSetName :: forall (m :: * -> *). MonadIO m => BindingSet -> m (Maybe Text)
getBindingSetSetName BindingSet
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
CString
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO CString
Maybe Text
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val forall a b. (a -> b) -> a -> b
$ \CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
cstringToText CString
val'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setBindingSetSetName :: MonadIO m => BindingSet -> CString -> m ()
setBindingSetSetName :: forall (m :: * -> *). MonadIO m => BindingSet -> CString -> m ()
setBindingSetSetName BindingSet
s CString
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CString
val :: CString)
clearBindingSetSetName :: MonadIO m => BindingSet -> m ()
clearBindingSetSetName :: forall (m :: * -> *). MonadIO m => BindingSet -> m ()
clearBindingSetSetName BindingSet
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (forall a. Ptr a
FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data BindingSetSetNameFieldInfo
instance AttrInfo BindingSetSetNameFieldInfo where
type AttrBaseTypeConstraint BindingSetSetNameFieldInfo = (~) BindingSet
type AttrAllowedOps BindingSetSetNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint BindingSetSetNameFieldInfo = (~) CString
type AttrTransferTypeConstraint BindingSetSetNameFieldInfo = (~)CString
type AttrTransferType BindingSetSetNameFieldInfo = CString
type AttrGetType BindingSetSetNameFieldInfo = Maybe T.Text
type AttrLabel BindingSetSetNameFieldInfo = "set_name"
type AttrOrigin BindingSetSetNameFieldInfo = BindingSet
attrGet = getBindingSetSetName
attrSet = setBindingSetSetName
attrConstruct = undefined
attrClear = clearBindingSetSetName
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.BindingSet.setName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-BindingSet.html#g:attr:setName"
})
bindingSet_setName :: AttrLabelProxy "setName"
bindingSet_setName = AttrLabelProxy
#endif
getBindingSetPriority :: MonadIO m => BindingSet -> m Int32
getBindingSetPriority :: forall (m :: * -> *). MonadIO m => BindingSet -> m Int32
getBindingSetPriority BindingSet
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
Int32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) :: IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
val
setBindingSetPriority :: MonadIO m => BindingSet -> Int32 -> m ()
setBindingSetPriority :: forall (m :: * -> *). MonadIO m => BindingSet -> Int32 -> m ()
setBindingSetPriority BindingSet
s Int32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (Int32
val :: Int32)
#if defined(ENABLE_OVERLOADING)
data BindingSetPriorityFieldInfo
instance AttrInfo BindingSetPriorityFieldInfo where
type AttrBaseTypeConstraint BindingSetPriorityFieldInfo = (~) BindingSet
type AttrAllowedOps BindingSetPriorityFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint BindingSetPriorityFieldInfo = (~) Int32
type AttrTransferTypeConstraint BindingSetPriorityFieldInfo = (~)Int32
type AttrTransferType BindingSetPriorityFieldInfo = Int32
type AttrGetType BindingSetPriorityFieldInfo = Int32
type AttrLabel BindingSetPriorityFieldInfo = "priority"
type AttrOrigin BindingSetPriorityFieldInfo = BindingSet
attrGet = getBindingSetPriority
attrSet = setBindingSetPriority
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.BindingSet.priority"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-BindingSet.html#g:attr:priority"
})
bindingSet_priority :: AttrLabelProxy "priority"
bindingSet_priority = AttrLabelProxy
#endif
getBindingSetWidgetPathPspecs :: MonadIO m => BindingSet -> m ([Ptr ()])
getBindingSetWidgetPathPspecs :: forall (m :: * -> *). MonadIO m => BindingSet -> m [Ptr ()]
getBindingSetWidgetPathPspecs BindingSet
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
Ptr (GSList (Ptr ()))
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: IO (Ptr (GSList (Ptr ())))
[Ptr ()]
val' <- forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr ()))
val
forall (m :: * -> *) a. Monad m => a -> m a
return [Ptr ()]
val'
setBindingSetWidgetPathPspecs :: MonadIO m => BindingSet -> Ptr (GSList (Ptr ())) -> m ()
setBindingSetWidgetPathPspecs :: forall (m :: * -> *).
MonadIO m =>
BindingSet -> Ptr (GSList (Ptr ())) -> m ()
setBindingSetWidgetPathPspecs BindingSet
s Ptr (GSList (Ptr ()))
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (Ptr (GSList (Ptr ()))
val :: Ptr (GSList (Ptr ())))
clearBindingSetWidgetPathPspecs :: MonadIO m => BindingSet -> m ()
clearBindingSetWidgetPathPspecs :: forall (m :: * -> *). MonadIO m => BindingSet -> m ()
clearBindingSetWidgetPathPspecs BindingSet
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (forall a. Ptr a
FP.nullPtr :: Ptr (GSList (Ptr ())))
#if defined(ENABLE_OVERLOADING)
data BindingSetWidgetPathPspecsFieldInfo
instance AttrInfo BindingSetWidgetPathPspecsFieldInfo where
type AttrBaseTypeConstraint BindingSetWidgetPathPspecsFieldInfo = (~) BindingSet
type AttrAllowedOps BindingSetWidgetPathPspecsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint BindingSetWidgetPathPspecsFieldInfo = (~) (Ptr (GSList (Ptr ())))
type AttrTransferTypeConstraint BindingSetWidgetPathPspecsFieldInfo = (~)(Ptr (GSList (Ptr ())))
type AttrTransferType BindingSetWidgetPathPspecsFieldInfo = (Ptr (GSList (Ptr ())))
type AttrGetType BindingSetWidgetPathPspecsFieldInfo = [Ptr ()]
type AttrLabel BindingSetWidgetPathPspecsFieldInfo = "widget_path_pspecs"
type AttrOrigin BindingSetWidgetPathPspecsFieldInfo = BindingSet
attrGet = getBindingSetWidgetPathPspecs
attrSet = setBindingSetWidgetPathPspecs
attrConstruct = undefined
attrClear = clearBindingSetWidgetPathPspecs
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.BindingSet.widgetPathPspecs"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-BindingSet.html#g:attr:widgetPathPspecs"
})
bindingSet_widgetPathPspecs :: AttrLabelProxy "widgetPathPspecs"
bindingSet_widgetPathPspecs = AttrLabelProxy
#endif
getBindingSetWidgetClassPspecs :: MonadIO m => BindingSet -> m ([Ptr ()])
getBindingSetWidgetClassPspecs :: forall (m :: * -> *). MonadIO m => BindingSet -> m [Ptr ()]
getBindingSetWidgetClassPspecs BindingSet
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
Ptr (GSList (Ptr ()))
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) :: IO (Ptr (GSList (Ptr ())))
[Ptr ()]
val' <- forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr ()))
val
forall (m :: * -> *) a. Monad m => a -> m a
return [Ptr ()]
val'
setBindingSetWidgetClassPspecs :: MonadIO m => BindingSet -> Ptr (GSList (Ptr ())) -> m ()
setBindingSetWidgetClassPspecs :: forall (m :: * -> *).
MonadIO m =>
BindingSet -> Ptr (GSList (Ptr ())) -> m ()
setBindingSetWidgetClassPspecs BindingSet
s Ptr (GSList (Ptr ()))
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (Ptr (GSList (Ptr ()))
val :: Ptr (GSList (Ptr ())))
clearBindingSetWidgetClassPspecs :: MonadIO m => BindingSet -> m ()
clearBindingSetWidgetClassPspecs :: forall (m :: * -> *). MonadIO m => BindingSet -> m ()
clearBindingSetWidgetClassPspecs BindingSet
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (forall a. Ptr a
FP.nullPtr :: Ptr (GSList (Ptr ())))
#if defined(ENABLE_OVERLOADING)
data BindingSetWidgetClassPspecsFieldInfo
instance AttrInfo BindingSetWidgetClassPspecsFieldInfo where
type AttrBaseTypeConstraint BindingSetWidgetClassPspecsFieldInfo = (~) BindingSet
type AttrAllowedOps BindingSetWidgetClassPspecsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint BindingSetWidgetClassPspecsFieldInfo = (~) (Ptr (GSList (Ptr ())))
type AttrTransferTypeConstraint BindingSetWidgetClassPspecsFieldInfo = (~)(Ptr (GSList (Ptr ())))
type AttrTransferType BindingSetWidgetClassPspecsFieldInfo = (Ptr (GSList (Ptr ())))
type AttrGetType BindingSetWidgetClassPspecsFieldInfo = [Ptr ()]
type AttrLabel BindingSetWidgetClassPspecsFieldInfo = "widget_class_pspecs"
type AttrOrigin BindingSetWidgetClassPspecsFieldInfo = BindingSet
attrGet = getBindingSetWidgetClassPspecs
attrSet = setBindingSetWidgetClassPspecs
attrConstruct = undefined
attrClear = clearBindingSetWidgetClassPspecs
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.BindingSet.widgetClassPspecs"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-BindingSet.html#g:attr:widgetClassPspecs"
})
bindingSet_widgetClassPspecs :: AttrLabelProxy "widgetClassPspecs"
bindingSet_widgetClassPspecs = AttrLabelProxy
#endif
getBindingSetClassBranchPspecs :: MonadIO m => BindingSet -> m ([Ptr ()])
getBindingSetClassBranchPspecs :: forall (m :: * -> *). MonadIO m => BindingSet -> m [Ptr ()]
getBindingSetClassBranchPspecs BindingSet
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
Ptr (GSList (Ptr ()))
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) :: IO (Ptr (GSList (Ptr ())))
[Ptr ()]
val' <- forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr ()))
val
forall (m :: * -> *) a. Monad m => a -> m a
return [Ptr ()]
val'
setBindingSetClassBranchPspecs :: MonadIO m => BindingSet -> Ptr (GSList (Ptr ())) -> m ()
setBindingSetClassBranchPspecs :: forall (m :: * -> *).
MonadIO m =>
BindingSet -> Ptr (GSList (Ptr ())) -> m ()
setBindingSetClassBranchPspecs BindingSet
s Ptr (GSList (Ptr ()))
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (Ptr (GSList (Ptr ()))
val :: Ptr (GSList (Ptr ())))
clearBindingSetClassBranchPspecs :: MonadIO m => BindingSet -> m ()
clearBindingSetClassBranchPspecs :: forall (m :: * -> *). MonadIO m => BindingSet -> m ()
clearBindingSetClassBranchPspecs BindingSet
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (forall a. Ptr a
FP.nullPtr :: Ptr (GSList (Ptr ())))
#if defined(ENABLE_OVERLOADING)
data BindingSetClassBranchPspecsFieldInfo
instance AttrInfo BindingSetClassBranchPspecsFieldInfo where
type AttrBaseTypeConstraint BindingSetClassBranchPspecsFieldInfo = (~) BindingSet
type AttrAllowedOps BindingSetClassBranchPspecsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint BindingSetClassBranchPspecsFieldInfo = (~) (Ptr (GSList (Ptr ())))
type AttrTransferTypeConstraint BindingSetClassBranchPspecsFieldInfo = (~)(Ptr (GSList (Ptr ())))
type AttrTransferType BindingSetClassBranchPspecsFieldInfo = (Ptr (GSList (Ptr ())))
type AttrGetType BindingSetClassBranchPspecsFieldInfo = [Ptr ()]
type AttrLabel BindingSetClassBranchPspecsFieldInfo = "class_branch_pspecs"
type AttrOrigin BindingSetClassBranchPspecsFieldInfo = BindingSet
attrGet = getBindingSetClassBranchPspecs
attrSet = setBindingSetClassBranchPspecs
attrConstruct = undefined
attrClear = clearBindingSetClassBranchPspecs
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.BindingSet.classBranchPspecs"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-BindingSet.html#g:attr:classBranchPspecs"
})
bindingSet_classBranchPspecs :: AttrLabelProxy "classBranchPspecs"
bindingSet_classBranchPspecs = AttrLabelProxy
#endif
getBindingSetEntries :: MonadIO m => BindingSet -> m (Maybe Gtk.BindingEntry.BindingEntry)
getBindingSetEntries :: forall (m :: * -> *).
MonadIO m =>
BindingSet -> m (Maybe BindingEntry)
getBindingSetEntries BindingSet
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
Ptr BindingEntry
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) :: IO (Ptr Gtk.BindingEntry.BindingEntry)
Maybe BindingEntry
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr BindingEntry
val forall a b. (a -> b) -> a -> b
$ \Ptr BindingEntry
val' -> do
BindingEntry
val'' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr BindingEntry -> BindingEntry
Gtk.BindingEntry.BindingEntry) Ptr BindingEntry
val'
forall (m :: * -> *) a. Monad m => a -> m a
return BindingEntry
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe BindingEntry
result
setBindingSetEntries :: MonadIO m => BindingSet -> Ptr Gtk.BindingEntry.BindingEntry -> m ()
setBindingSetEntries :: forall (m :: * -> *).
MonadIO m =>
BindingSet -> Ptr BindingEntry -> m ()
setBindingSetEntries BindingSet
s Ptr BindingEntry
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (Ptr BindingEntry
val :: Ptr Gtk.BindingEntry.BindingEntry)
clearBindingSetEntries :: MonadIO m => BindingSet -> m ()
clearBindingSetEntries :: forall (m :: * -> *). MonadIO m => BindingSet -> m ()
clearBindingSetEntries BindingSet
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (forall a. Ptr a
FP.nullPtr :: Ptr Gtk.BindingEntry.BindingEntry)
#if defined(ENABLE_OVERLOADING)
data BindingSetEntriesFieldInfo
instance AttrInfo BindingSetEntriesFieldInfo where
type AttrBaseTypeConstraint BindingSetEntriesFieldInfo = (~) BindingSet
type AttrAllowedOps BindingSetEntriesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint BindingSetEntriesFieldInfo = (~) (Ptr Gtk.BindingEntry.BindingEntry)
type AttrTransferTypeConstraint BindingSetEntriesFieldInfo = (~)(Ptr Gtk.BindingEntry.BindingEntry)
type AttrTransferType BindingSetEntriesFieldInfo = (Ptr Gtk.BindingEntry.BindingEntry)
type AttrGetType BindingSetEntriesFieldInfo = Maybe Gtk.BindingEntry.BindingEntry
type AttrLabel BindingSetEntriesFieldInfo = "entries"
type AttrOrigin BindingSetEntriesFieldInfo = BindingSet
attrGet = getBindingSetEntries
attrSet = setBindingSetEntries
attrConstruct = undefined
attrClear = clearBindingSetEntries
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.BindingSet.entries"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-BindingSet.html#g:attr:entries"
})
bindingSet_entries :: AttrLabelProxy "entries"
bindingSet_entries = AttrLabelProxy
#endif
getBindingSetCurrent :: MonadIO m => BindingSet -> m (Maybe Gtk.BindingEntry.BindingEntry)
getBindingSetCurrent :: forall (m :: * -> *).
MonadIO m =>
BindingSet -> m (Maybe BindingEntry)
getBindingSetCurrent BindingSet
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
Ptr BindingEntry
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) :: IO (Ptr Gtk.BindingEntry.BindingEntry)
Maybe BindingEntry
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr BindingEntry
val forall a b. (a -> b) -> a -> b
$ \Ptr BindingEntry
val' -> do
BindingEntry
val'' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr BindingEntry -> BindingEntry
Gtk.BindingEntry.BindingEntry) Ptr BindingEntry
val'
forall (m :: * -> *) a. Monad m => a -> m a
return BindingEntry
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe BindingEntry
result
setBindingSetCurrent :: MonadIO m => BindingSet -> Ptr Gtk.BindingEntry.BindingEntry -> m ()
setBindingSetCurrent :: forall (m :: * -> *).
MonadIO m =>
BindingSet -> Ptr BindingEntry -> m ()
setBindingSetCurrent BindingSet
s Ptr BindingEntry
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) (Ptr BindingEntry
val :: Ptr Gtk.BindingEntry.BindingEntry)
clearBindingSetCurrent :: MonadIO m => BindingSet -> m ()
clearBindingSetCurrent :: forall (m :: * -> *). MonadIO m => BindingSet -> m ()
clearBindingSetCurrent BindingSet
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) (forall a. Ptr a
FP.nullPtr :: Ptr Gtk.BindingEntry.BindingEntry)
#if defined(ENABLE_OVERLOADING)
data BindingSetCurrentFieldInfo
instance AttrInfo BindingSetCurrentFieldInfo where
type AttrBaseTypeConstraint BindingSetCurrentFieldInfo = (~) BindingSet
type AttrAllowedOps BindingSetCurrentFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint BindingSetCurrentFieldInfo = (~) (Ptr Gtk.BindingEntry.BindingEntry)
type AttrTransferTypeConstraint BindingSetCurrentFieldInfo = (~)(Ptr Gtk.BindingEntry.BindingEntry)
type AttrTransferType BindingSetCurrentFieldInfo = (Ptr Gtk.BindingEntry.BindingEntry)
type AttrGetType BindingSetCurrentFieldInfo = Maybe Gtk.BindingEntry.BindingEntry
type AttrLabel BindingSetCurrentFieldInfo = "current"
type AttrOrigin BindingSetCurrentFieldInfo = BindingSet
attrGet = getBindingSetCurrent
attrSet = setBindingSetCurrent
attrConstruct = undefined
attrClear = clearBindingSetCurrent
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.BindingSet.current"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-BindingSet.html#g:attr:current"
})
bindingSet_current :: AttrLabelProxy "current"
bindingSet_current = AttrLabelProxy
#endif
getBindingSetParsed :: MonadIO m => BindingSet -> m Word32
getBindingSetParsed :: forall (m :: * -> *). MonadIO m => BindingSet -> m Word32
getBindingSetParsed BindingSet
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56) :: IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setBindingSetParsed :: MonadIO m => BindingSet -> Word32 -> m ()
setBindingSetParsed :: forall (m :: * -> *). MonadIO m => BindingSet -> Word32 -> m ()
setBindingSetParsed BindingSet
s Word32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr BindingSet
s forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr BindingSet
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data BindingSetParsedFieldInfo
instance AttrInfo BindingSetParsedFieldInfo where
type AttrBaseTypeConstraint BindingSetParsedFieldInfo = (~) BindingSet
type AttrAllowedOps BindingSetParsedFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint BindingSetParsedFieldInfo = (~) Word32
type AttrTransferTypeConstraint BindingSetParsedFieldInfo = (~)Word32
type AttrTransferType BindingSetParsedFieldInfo = Word32
type AttrGetType BindingSetParsedFieldInfo = Word32
type AttrLabel BindingSetParsedFieldInfo = "parsed"
type AttrOrigin BindingSetParsedFieldInfo = BindingSet
attrGet = getBindingSetParsed
attrSet = setBindingSetParsed
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.BindingSet.parsed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-BindingSet.html#g:attr:parsed"
})
bindingSet_parsed :: AttrLabelProxy "parsed"
bindingSet_parsed = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList BindingSet
type instance O.AttributeList BindingSet = BindingSetAttributeList
type BindingSetAttributeList = ('[ '("setName", BindingSetSetNameFieldInfo), '("priority", BindingSetPriorityFieldInfo), '("widgetPathPspecs", BindingSetWidgetPathPspecsFieldInfo), '("widgetClassPspecs", BindingSetWidgetClassPspecsFieldInfo), '("classBranchPspecs", BindingSetClassBranchPspecsFieldInfo), '("entries", BindingSetEntriesFieldInfo), '("current", BindingSetCurrentFieldInfo), '("parsed", BindingSetParsedFieldInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_binding_set_activate" gtk_binding_set_activate ::
Ptr BindingSet ->
Word32 ->
CUInt ->
Ptr GObject.Object.Object ->
IO CInt
bindingSetActivate ::
(B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
BindingSet
-> Word32
-> [Gdk.Flags.ModifierType]
-> a
-> m Bool
bindingSetActivate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
BindingSet -> Word32 -> [ModifierType] -> a -> m Bool
bindingSetActivate BindingSet
bindingSet Word32
keyval [ModifierType]
modifiers a
object = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr BindingSet
bindingSet' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BindingSet
bindingSet
let modifiers' :: CUInt
modifiers' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ModifierType]
modifiers
Ptr Object
object' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
CInt
result <- Ptr BindingSet -> Word32 -> CUInt -> Ptr Object -> IO CInt
gtk_binding_set_activate Ptr BindingSet
bindingSet' Word32
keyval CUInt
modifiers' Ptr Object
object'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr BindingSet
bindingSet
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data BindingSetActivateMethodInfo
instance (signature ~ (Word32 -> [Gdk.Flags.ModifierType] -> a -> m Bool), MonadIO m, GObject.Object.IsObject a) => O.OverloadedMethod BindingSetActivateMethodInfo BindingSet signature where
overloadedMethod = bindingSetActivate
instance O.OverloadedMethodInfo BindingSetActivateMethodInfo BindingSet where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.BindingSet.bindingSetActivate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-BindingSet.html#v:bindingSetActivate"
})
#endif
foreign import ccall "gtk_binding_set_add_path" gtk_binding_set_add_path ::
Ptr BindingSet ->
CUInt ->
CString ->
CUInt ->
IO ()
{-# DEPRECATED bindingSetAddPath ["(Since version 3.0)"] #-}
bindingSetAddPath ::
(B.CallStack.HasCallStack, MonadIO m) =>
BindingSet
-> Gtk.Enums.PathType
-> T.Text
-> Gtk.Enums.PathPriorityType
-> m ()
bindingSetAddPath :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
BindingSet -> PathType -> Text -> PathPriorityType -> m ()
bindingSetAddPath BindingSet
bindingSet PathType
pathType Text
pathPattern PathPriorityType
priority = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr BindingSet
bindingSet' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BindingSet
bindingSet
let pathType' :: CUInt
pathType' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) PathType
pathType
CString
pathPattern' <- Text -> IO CString
textToCString Text
pathPattern
let priority' :: CUInt
priority' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) PathPriorityType
priority
Ptr BindingSet -> CUInt -> CString -> CUInt -> IO ()
gtk_binding_set_add_path Ptr BindingSet
bindingSet' CUInt
pathType' CString
pathPattern' CUInt
priority'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr BindingSet
bindingSet
forall a. Ptr a -> IO ()
freeMem CString
pathPattern'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BindingSetAddPathMethodInfo
instance (signature ~ (Gtk.Enums.PathType -> T.Text -> Gtk.Enums.PathPriorityType -> m ()), MonadIO m) => O.OverloadedMethod BindingSetAddPathMethodInfo BindingSet signature where
overloadedMethod = bindingSetAddPath
instance O.OverloadedMethodInfo BindingSetAddPathMethodInfo BindingSet where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.BindingSet.bindingSetAddPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-BindingSet.html#v:bindingSetAddPath"
})
#endif
foreign import ccall "gtk_binding_set_find" gtk_binding_set_find ::
CString ->
IO (Ptr BindingSet)
bindingSetFind ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m (Maybe BindingSet)
bindingSetFind :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> m (Maybe BindingSet)
bindingSetFind Text
setName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
CString
setName' <- Text -> IO CString
textToCString Text
setName
Ptr BindingSet
result <- CString -> IO (Ptr BindingSet)
gtk_binding_set_find CString
setName'
Maybe BindingSet
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr BindingSet
result forall a b. (a -> b) -> a -> b
$ \Ptr BindingSet
result' -> do
BindingSet
result'' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr BindingSet -> BindingSet
BindingSet) Ptr BindingSet
result'
forall (m :: * -> *) a. Monad m => a -> m a
return BindingSet
result''
forall a. Ptr a -> IO ()
freeMem CString
setName'
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe BindingSet
maybeResult
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveBindingSetMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveBindingSetMethod "activate" o = BindingSetActivateMethodInfo
ResolveBindingSetMethod "addPath" o = BindingSetAddPathMethodInfo
ResolveBindingSetMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBindingSetMethod t BindingSet, O.OverloadedMethod info BindingSet p) => OL.IsLabel t (BindingSet -> 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 ~ ResolveBindingSetMethod t BindingSet, O.OverloadedMethod info BindingSet p, R.HasField t BindingSet p) => R.HasField t BindingSet p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveBindingSetMethod t BindingSet, O.OverloadedMethodInfo info BindingSet) => OL.IsLabel t (O.MethodProxy info BindingSet) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif