module GI.Gio.Interfaces.ListModel
(
ListModel(..) ,
noListModel ,
ListModelK ,
toListModel ,
listModelGetItem ,
listModelGetItemType ,
listModelGetNItems ,
listModelItemsChanged ,
ListModelItemsChangedCallback ,
ListModelItemsChangedCallbackC ,
ListModelItemsChangedSignalInfo ,
afterListModelItemsChanged ,
listModelItemsChangedCallbackWrapper ,
listModelItemsChangedClosure ,
mkListModelItemsChangedCallback ,
noListModelItemsChangedCallback ,
onListModelItemsChanged ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gio.Types
import GI.Gio.Callbacks
import qualified GI.GObject as GObject
newtype ListModel = ListModel (ForeignPtr ListModel)
noListModel :: Maybe ListModel
noListModel = Nothing
type ListModelItemsChangedCallback =
Word32 ->
Word32 ->
Word32 ->
IO ()
noListModelItemsChangedCallback :: Maybe ListModelItemsChangedCallback
noListModelItemsChangedCallback = Nothing
type ListModelItemsChangedCallbackC =
Ptr () ->
Word32 ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkListModelItemsChangedCallback :: ListModelItemsChangedCallbackC -> IO (FunPtr ListModelItemsChangedCallbackC)
listModelItemsChangedClosure :: ListModelItemsChangedCallback -> IO Closure
listModelItemsChangedClosure cb = newCClosure =<< mkListModelItemsChangedCallback wrapped
where wrapped = listModelItemsChangedCallbackWrapper cb
listModelItemsChangedCallbackWrapper ::
ListModelItemsChangedCallback ->
Ptr () ->
Word32 ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
listModelItemsChangedCallbackWrapper _cb _ position removed added _ = do
_cb position removed added
onListModelItemsChanged :: (GObject a, MonadIO m) => a -> ListModelItemsChangedCallback -> m SignalHandlerId
onListModelItemsChanged obj cb = liftIO $ connectListModelItemsChanged obj cb SignalConnectBefore
afterListModelItemsChanged :: (GObject a, MonadIO m) => a -> ListModelItemsChangedCallback -> m SignalHandlerId
afterListModelItemsChanged obj cb = connectListModelItemsChanged obj cb SignalConnectAfter
connectListModelItemsChanged :: (GObject a, MonadIO m) =>
a -> ListModelItemsChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectListModelItemsChanged obj cb after = liftIO $ do
cb' <- mkListModelItemsChangedCallback (listModelItemsChangedCallbackWrapper cb)
connectSignalFunPtr obj "items-changed" cb' after
type instance AttributeList ListModel = ListModelAttributeList
type ListModelAttributeList = ('[ ] :: [(Symbol, *)])
data ListModelItemsChangedSignalInfo
instance SignalInfo ListModelItemsChangedSignalInfo where
type HaskellCallbackType ListModelItemsChangedSignalInfo = ListModelItemsChangedCallback
connectSignal _ = connectListModelItemsChanged
type instance SignalList ListModel = ListModelSignalList
type ListModelSignalList = ('[ '("items-changed", ListModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_list_model_get_type"
c_g_list_model_get_type :: IO GType
type instance ParentTypes ListModel = ListModelParentTypes
type ListModelParentTypes = '[GObject.Object]
instance GObject ListModel where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_list_model_get_type
class GObject o => ListModelK o
instance (GObject o, IsDescendantOf ListModel o) => ListModelK o
toListModel :: ListModelK o => o -> IO ListModel
toListModel = unsafeCastTo ListModel
foreign import ccall "g_list_model_get_item_type" g_list_model_get_item_type ::
Ptr ListModel ->
IO CGType
listModelGetItemType ::
(MonadIO m, ListModelK a) =>
a ->
m GType
listModelGetItemType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_list_model_get_item_type _obj'
let result' = GType result
touchManagedPtr _obj
return result'
foreign import ccall "g_list_model_get_n_items" g_list_model_get_n_items ::
Ptr ListModel ->
IO Word32
listModelGetNItems ::
(MonadIO m, ListModelK a) =>
a ->
m Word32
listModelGetNItems _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_list_model_get_n_items _obj'
touchManagedPtr _obj
return result
foreign import ccall "g_list_model_get_object" g_list_model_get_object ::
Ptr ListModel ->
Word32 ->
IO (Ptr GObject.Object)
listModelGetItem ::
(MonadIO m, ListModelK a) =>
a ->
Word32 ->
m GObject.Object
listModelGetItem _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_list_model_get_object _obj' position
checkUnexpectedReturnNULL "g_list_model_get_object" result
result' <- (wrapObject GObject.Object) result
touchManagedPtr _obj
return result'
foreign import ccall "g_list_model_items_changed" g_list_model_items_changed ::
Ptr ListModel ->
Word32 ->
Word32 ->
Word32 ->
IO ()
listModelItemsChanged ::
(MonadIO m, ListModelK a) =>
a ->
Word32 ->
Word32 ->
Word32 ->
m ()
listModelItemsChanged _obj position removed added = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_list_model_items_changed _obj' position removed added
touchManagedPtr _obj
return ()