module GI.Gio.Objects.AppInfoMonitor
(
AppInfoMonitor(..) ,
AppInfoMonitorK ,
toAppInfoMonitor ,
noAppInfoMonitor ,
appInfoMonitorGet ,
AppInfoMonitorChangedCallback ,
AppInfoMonitorChangedCallbackC ,
AppInfoMonitorChangedSignalInfo ,
afterAppInfoMonitorChanged ,
appInfoMonitorChangedCallbackWrapper ,
appInfoMonitorChangedClosure ,
mkAppInfoMonitorChangedCallback ,
noAppInfoMonitorChangedCallback ,
onAppInfoMonitorChanged ,
) 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 AppInfoMonitor = AppInfoMonitor (ForeignPtr AppInfoMonitor)
foreign import ccall "g_app_info_monitor_get_type"
c_g_app_info_monitor_get_type :: IO GType
type instance ParentTypes AppInfoMonitor = AppInfoMonitorParentTypes
type AppInfoMonitorParentTypes = '[GObject.Object]
instance GObject AppInfoMonitor where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_app_info_monitor_get_type
class GObject o => AppInfoMonitorK o
instance (GObject o, IsDescendantOf AppInfoMonitor o) => AppInfoMonitorK o
toAppInfoMonitor :: AppInfoMonitorK o => o -> IO AppInfoMonitor
toAppInfoMonitor = unsafeCastTo AppInfoMonitor
noAppInfoMonitor :: Maybe AppInfoMonitor
noAppInfoMonitor = Nothing
type AppInfoMonitorChangedCallback =
IO ()
noAppInfoMonitorChangedCallback :: Maybe AppInfoMonitorChangedCallback
noAppInfoMonitorChangedCallback = Nothing
type AppInfoMonitorChangedCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkAppInfoMonitorChangedCallback :: AppInfoMonitorChangedCallbackC -> IO (FunPtr AppInfoMonitorChangedCallbackC)
appInfoMonitorChangedClosure :: AppInfoMonitorChangedCallback -> IO Closure
appInfoMonitorChangedClosure cb = newCClosure =<< mkAppInfoMonitorChangedCallback wrapped
where wrapped = appInfoMonitorChangedCallbackWrapper cb
appInfoMonitorChangedCallbackWrapper ::
AppInfoMonitorChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
appInfoMonitorChangedCallbackWrapper _cb _ _ = do
_cb
onAppInfoMonitorChanged :: (GObject a, MonadIO m) => a -> AppInfoMonitorChangedCallback -> m SignalHandlerId
onAppInfoMonitorChanged obj cb = liftIO $ connectAppInfoMonitorChanged obj cb SignalConnectBefore
afterAppInfoMonitorChanged :: (GObject a, MonadIO m) => a -> AppInfoMonitorChangedCallback -> m SignalHandlerId
afterAppInfoMonitorChanged obj cb = connectAppInfoMonitorChanged obj cb SignalConnectAfter
connectAppInfoMonitorChanged :: (GObject a, MonadIO m) =>
a -> AppInfoMonitorChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectAppInfoMonitorChanged obj cb after = liftIO $ do
cb' <- mkAppInfoMonitorChangedCallback (appInfoMonitorChangedCallbackWrapper cb)
connectSignalFunPtr obj "changed" cb' after
type instance AttributeList AppInfoMonitor = AppInfoMonitorAttributeList
type AppInfoMonitorAttributeList = ('[ ] :: [(Symbol, *)])
data AppInfoMonitorChangedSignalInfo
instance SignalInfo AppInfoMonitorChangedSignalInfo where
type HaskellCallbackType AppInfoMonitorChangedSignalInfo = AppInfoMonitorChangedCallback
connectSignal _ = connectAppInfoMonitorChanged
type instance SignalList AppInfoMonitor = AppInfoMonitorSignalList
type AppInfoMonitorSignalList = ('[ '("changed", AppInfoMonitorChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_app_info_monitor_get" g_app_info_monitor_get ::
IO (Ptr AppInfoMonitor)
appInfoMonitorGet ::
(MonadIO m) =>
m AppInfoMonitor
appInfoMonitorGet = liftIO $ do
result <- g_app_info_monitor_get
checkUnexpectedReturnNULL "g_app_info_monitor_get" result
result' <- (wrapObject AppInfoMonitor) result
return result'