#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Gio.Interfaces.ListModel
(
ListModel(..) ,
noListModel ,
IsListModel ,
toListModel ,
#if ENABLE_OVERLOADING
ListModelGetItemMethodInfo ,
#endif
listModelGetItem ,
#if ENABLE_OVERLOADING
ListModelGetItemTypeMethodInfo ,
#endif
listModelGetItemType ,
#if ENABLE_OVERLOADING
ListModelGetNItemsMethodInfo ,
#endif
listModelGetNItems ,
#if ENABLE_OVERLOADING
ListModelItemsChangedMethodInfo ,
#endif
listModelItemsChanged ,
C_ListModelItemsChangedCallback ,
ListModelItemsChangedCallback ,
#if ENABLE_OVERLOADING
ListModelItemsChangedSignalInfo ,
#endif
afterListModelItemsChanged ,
genClosure_ListModelItemsChanged ,
mk_ListModelItemsChangedCallback ,
noListModelItemsChangedCallback ,
onListModelItemsChanged ,
wrap_ListModelItemsChangedCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
newtype ListModel = ListModel (ManagedPtr ListModel)
noListModel :: Maybe ListModel
noListModel :: Maybe ListModel
noListModel = Maybe ListModel
forall a. Maybe a
Nothing
type ListModelItemsChangedCallback =
Word32
-> Word32
-> Word32
-> IO ()
noListModelItemsChangedCallback :: Maybe ListModelItemsChangedCallback
noListModelItemsChangedCallback :: Maybe ListModelItemsChangedCallback
noListModelItemsChangedCallback = Maybe ListModelItemsChangedCallback
forall a. Maybe a
Nothing
type C_ListModelItemsChangedCallback =
Ptr () ->
Word32 ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListModelItemsChangedCallback :: C_ListModelItemsChangedCallback -> IO (FunPtr C_ListModelItemsChangedCallback)
genClosure_ListModelItemsChanged :: ListModelItemsChangedCallback -> IO Closure
genClosure_ListModelItemsChanged :: ListModelItemsChangedCallback -> IO Closure
genClosure_ListModelItemsChanged cb :: ListModelItemsChangedCallback
cb = do
let cb' :: C_ListModelItemsChangedCallback
cb' = ListModelItemsChangedCallback -> C_ListModelItemsChangedCallback
wrap_ListModelItemsChangedCallback ListModelItemsChangedCallback
cb
C_ListModelItemsChangedCallback
-> IO (FunPtr C_ListModelItemsChangedCallback)
mk_ListModelItemsChangedCallback C_ListModelItemsChangedCallback
cb' IO (FunPtr C_ListModelItemsChangedCallback)
-> (FunPtr C_ListModelItemsChangedCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ListModelItemsChangedCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_ListModelItemsChangedCallback ::
ListModelItemsChangedCallback ->
C_ListModelItemsChangedCallback
wrap_ListModelItemsChangedCallback :: ListModelItemsChangedCallback -> C_ListModelItemsChangedCallback
wrap_ListModelItemsChangedCallback _cb :: ListModelItemsChangedCallback
_cb _ position :: Word32
position removed :: Word32
removed added :: Word32
added _ = do
ListModelItemsChangedCallback
_cb Word32
position Word32
removed Word32
added
onListModelItemsChanged :: (IsListModel a, MonadIO m) => a -> ListModelItemsChangedCallback -> m SignalHandlerId
onListModelItemsChanged :: a -> ListModelItemsChangedCallback -> m SignalHandlerId
onListModelItemsChanged obj :: a
obj cb :: ListModelItemsChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListModelItemsChangedCallback
cb' = ListModelItemsChangedCallback -> C_ListModelItemsChangedCallback
wrap_ListModelItemsChangedCallback ListModelItemsChangedCallback
cb
FunPtr C_ListModelItemsChangedCallback
cb'' <- C_ListModelItemsChangedCallback
-> IO (FunPtr C_ListModelItemsChangedCallback)
mk_ListModelItemsChangedCallback C_ListModelItemsChangedCallback
cb'
a
-> String
-> FunPtr C_ListModelItemsChangedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "items-changed" FunPtr C_ListModelItemsChangedCallback
cb'' SignalConnectMode
SignalConnectBefore
afterListModelItemsChanged :: (IsListModel a, MonadIO m) => a -> ListModelItemsChangedCallback -> m SignalHandlerId
afterListModelItemsChanged :: a -> ListModelItemsChangedCallback -> m SignalHandlerId
afterListModelItemsChanged obj :: a
obj cb :: ListModelItemsChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListModelItemsChangedCallback
cb' = ListModelItemsChangedCallback -> C_ListModelItemsChangedCallback
wrap_ListModelItemsChangedCallback ListModelItemsChangedCallback
cb
FunPtr C_ListModelItemsChangedCallback
cb'' <- C_ListModelItemsChangedCallback
-> IO (FunPtr C_ListModelItemsChangedCallback)
mk_ListModelItemsChangedCallback C_ListModelItemsChangedCallback
cb'
a
-> String
-> FunPtr C_ListModelItemsChangedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "items-changed" FunPtr C_ListModelItemsChangedCallback
cb'' SignalConnectMode
SignalConnectAfter
#if ENABLE_OVERLOADING
data ListModelItemsChangedSignalInfo
instance SignalInfo ListModelItemsChangedSignalInfo where
type HaskellCallbackType ListModelItemsChangedSignalInfo = ListModelItemsChangedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ListModelItemsChangedCallback cb
cb'' <- mk_ListModelItemsChangedCallback cb'
connectSignalFunPtr obj "items-changed" cb'' connectMode
type instance O.SignalList ListModel = ListModelSignalList
type ListModelSignalList = ('[ '("itemsChanged", ListModelItemsChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_list_model_get_type"
c_g_list_model_get_type :: IO GType
instance GObject ListModel where
gobjectType :: ListModel -> IO GType
gobjectType _ = IO GType
c_g_list_model_get_type
class GObject o => IsListModel o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError ListModel a) =>
IsListModel a
#endif
instance IsListModel ListModel
instance GObject.Object.IsObject ListModel
toListModel :: (MonadIO m, IsListModel o) => o -> m ListModel
toListModel :: o -> m ListModel
toListModel = IO ListModel -> m ListModel
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ListModel -> m ListModel)
-> (o -> IO ListModel) -> o -> m ListModel
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ListModel -> ListModel) -> o -> IO ListModel
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr ListModel -> ListModel
ListModel
#if ENABLE_OVERLOADING
instance O.HasAttributeList ListModel
type instance O.AttributeList ListModel = ListModelAttributeList
type ListModelAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type family ResolveListModelMethod (t :: Symbol) (o :: *) :: * where
ResolveListModelMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveListModelMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveListModelMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveListModelMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveListModelMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveListModelMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveListModelMethod "itemsChanged" o = ListModelItemsChangedMethodInfo
ResolveListModelMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveListModelMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveListModelMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveListModelMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveListModelMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveListModelMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveListModelMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveListModelMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveListModelMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveListModelMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveListModelMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveListModelMethod "getItem" o = ListModelGetItemMethodInfo
ResolveListModelMethod "getItemType" o = ListModelGetItemTypeMethodInfo
ResolveListModelMethod "getNItems" o = ListModelGetNItemsMethodInfo
ResolveListModelMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveListModelMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveListModelMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveListModelMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveListModelMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveListModelMethod t ListModel, O.MethodInfo info ListModel p) => O.IsLabelProxy t (ListModel -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveListModelMethod t ListModel, O.MethodInfo info ListModel p) => O.IsLabel t (ListModel -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
foreign import ccall "g_list_model_get_item_type" g_list_model_get_item_type ::
Ptr ListModel ->
IO CGType
listModelGetItemType ::
(B.CallStack.HasCallStack, MonadIO m, IsListModel a) =>
a
-> m GType
listModelGetItemType :: a -> m GType
listModelGetItemType list :: a
list = IO GType -> m GType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GType -> m GType) -> IO GType -> m GType
forall a b. (a -> b) -> a -> b
$ do
Ptr ListModel
list' <- a -> IO (Ptr ListModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
list
CGType
result <- Ptr ListModel -> IO CGType
g_list_model_get_item_type Ptr ListModel
list'
let result' :: GType
result' = CGType -> GType
GType CGType
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
list
GType -> IO GType
forall (m :: * -> *) a. Monad m => a -> m a
return GType
result'
#if ENABLE_OVERLOADING
data ListModelGetItemTypeMethodInfo
instance (signature ~ (m GType), MonadIO m, IsListModel a) => O.MethodInfo ListModelGetItemTypeMethodInfo a signature where
overloadedMethod _ = listModelGetItemType
#endif
foreign import ccall "g_list_model_get_n_items" g_list_model_get_n_items ::
Ptr ListModel ->
IO Word32
listModelGetNItems ::
(B.CallStack.HasCallStack, MonadIO m, IsListModel a) =>
a
-> m Word32
listModelGetNItems :: a -> m Word32
listModelGetNItems list :: a
list = IO Word32 -> m Word32
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 ListModel
list' <- a -> IO (Ptr ListModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
list
Word32
result <- Ptr ListModel -> IO Word32
g_list_model_get_n_items Ptr ListModel
list'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
list
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if ENABLE_OVERLOADING
data ListModelGetNItemsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsListModel a) => O.MethodInfo ListModelGetNItemsMethodInfo a signature where
overloadedMethod _ = listModelGetNItems
#endif
foreign import ccall "g_list_model_get_object" g_list_model_get_object ::
Ptr ListModel ->
Word32 ->
IO (Ptr GObject.Object.Object)
listModelGetItem ::
(B.CallStack.HasCallStack, MonadIO m, IsListModel a) =>
a
-> Word32
-> m (Maybe GObject.Object.Object)
listModelGetItem :: a -> Word32 -> m (Maybe Object)
listModelGetItem list :: a
list position :: Word32
position = IO (Maybe Object) -> m (Maybe Object)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Object) -> m (Maybe Object))
-> IO (Maybe Object) -> m (Maybe Object)
forall a b. (a -> b) -> a -> b
$ do
Ptr ListModel
list' <- a -> IO (Ptr ListModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
list
Ptr Object
result <- Ptr ListModel -> Word32 -> IO (Ptr Object)
g_list_model_get_object Ptr ListModel
list' Word32
position
Maybe Object
maybeResult <- Ptr Object -> (Ptr Object -> IO Object) -> IO (Maybe Object)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Object
result ((Ptr Object -> IO Object) -> IO (Maybe Object))
-> (Ptr Object -> IO Object) -> IO (Maybe Object)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr Object
result' -> do
Object
result'' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
result'
Object -> IO Object
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
list
Maybe Object -> IO (Maybe Object)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Object
maybeResult
#if ENABLE_OVERLOADING
data ListModelGetItemMethodInfo
instance (signature ~ (Word32 -> m (Maybe GObject.Object.Object)), MonadIO m, IsListModel a) => O.MethodInfo ListModelGetItemMethodInfo a signature where
overloadedMethod _ = listModelGetItem
#endif
foreign import ccall "g_list_model_items_changed" g_list_model_items_changed ::
Ptr ListModel ->
Word32 ->
Word32 ->
Word32 ->
IO ()
listModelItemsChanged ::
(B.CallStack.HasCallStack, MonadIO m, IsListModel a) =>
a
-> Word32
-> Word32
-> Word32
-> m ()
listModelItemsChanged :: a -> Word32 -> Word32 -> Word32 -> m ()
listModelItemsChanged list :: a
list position :: Word32
position removed :: Word32
removed added :: Word32
added = 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 ListModel
list' <- a -> IO (Ptr ListModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
list
Ptr ListModel -> ListModelItemsChangedCallback
g_list_model_items_changed Ptr ListModel
list' Word32
position Word32
removed Word32
added
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
list
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data ListModelItemsChangedMethodInfo
instance (signature ~ (Word32 -> Word32 -> Word32 -> m ()), MonadIO m, IsListModel a) => O.MethodInfo ListModelItemsChangedMethodInfo a signature where
overloadedMethod _ = listModelItemsChanged
#endif