module GI.Gio.Objects.AppInfoMonitor
(
AppInfoMonitor(..) ,
IsAppInfoMonitor ,
toAppInfoMonitor ,
noAppInfoMonitor ,
appInfoMonitorGet ,
AppInfoMonitorChangedCallback ,
AppInfoMonitorChangedSignalInfo ,
C_AppInfoMonitorChangedCallback ,
afterAppInfoMonitorChanged ,
genClosure_AppInfoMonitorChanged ,
mk_AppInfoMonitorChangedCallback ,
noAppInfoMonitorChangedCallback ,
onAppInfoMonitorChanged ,
wrap_AppInfoMonitorChangedCallback ,
) 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.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 AppInfoMonitor = AppInfoMonitor (ManagedPtr AppInfoMonitor)
foreign import ccall "g_app_info_monitor_get_type"
c_g_app_info_monitor_get_type :: IO GType
instance GObject AppInfoMonitor where
gobjectType _ = c_g_app_info_monitor_get_type
class GObject o => IsAppInfoMonitor o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError AppInfoMonitor a) =>
IsAppInfoMonitor a
#endif
instance IsAppInfoMonitor AppInfoMonitor
instance GObject.Object.IsObject AppInfoMonitor
toAppInfoMonitor :: IsAppInfoMonitor o => o -> IO AppInfoMonitor
toAppInfoMonitor = unsafeCastTo AppInfoMonitor
noAppInfoMonitor :: Maybe AppInfoMonitor
noAppInfoMonitor = Nothing
type family ResolveAppInfoMonitorMethod (t :: Symbol) (o :: *) :: * where
ResolveAppInfoMonitorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAppInfoMonitorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAppInfoMonitorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAppInfoMonitorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAppInfoMonitorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAppInfoMonitorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAppInfoMonitorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAppInfoMonitorMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAppInfoMonitorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAppInfoMonitorMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveAppInfoMonitorMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveAppInfoMonitorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAppInfoMonitorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAppInfoMonitorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAppInfoMonitorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAppInfoMonitorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAppInfoMonitorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAppInfoMonitorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAppInfoMonitorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAppInfoMonitorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAppInfoMonitorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAppInfoMonitorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAppInfoMonitorMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAppInfoMonitorMethod t AppInfoMonitor, O.MethodInfo info AppInfoMonitor p) => O.IsLabelProxy t (AppInfoMonitor -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveAppInfoMonitorMethod t AppInfoMonitor, O.MethodInfo info AppInfoMonitor p) => O.IsLabel t (AppInfoMonitor -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
type AppInfoMonitorChangedCallback =
IO ()
noAppInfoMonitorChangedCallback :: Maybe AppInfoMonitorChangedCallback
noAppInfoMonitorChangedCallback = Nothing
type C_AppInfoMonitorChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AppInfoMonitorChangedCallback :: C_AppInfoMonitorChangedCallback -> IO (FunPtr C_AppInfoMonitorChangedCallback)
genClosure_AppInfoMonitorChanged :: AppInfoMonitorChangedCallback -> IO Closure
genClosure_AppInfoMonitorChanged cb = do
let cb' = wrap_AppInfoMonitorChangedCallback cb
mk_AppInfoMonitorChangedCallback cb' >>= newCClosure
wrap_AppInfoMonitorChangedCallback ::
AppInfoMonitorChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_AppInfoMonitorChangedCallback _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
let cb' = wrap_AppInfoMonitorChangedCallback cb
cb'' <- mk_AppInfoMonitorChangedCallback cb'
connectSignalFunPtr obj "changed" cb'' after
instance O.HasAttributeList AppInfoMonitor
type instance O.AttributeList AppInfoMonitor = AppInfoMonitorAttributeList
type AppInfoMonitorAttributeList = ('[ ] :: [(Symbol, *)])
data AppInfoMonitorChangedSignalInfo
instance SignalInfo AppInfoMonitorChangedSignalInfo where
type HaskellCallbackType AppInfoMonitorChangedSignalInfo = AppInfoMonitorChangedCallback
connectSignal _ = connectAppInfoMonitorChanged
type instance O.SignalList AppInfoMonitor = AppInfoMonitorSignalList
type AppInfoMonitorSignalList = ('[ '("changed", AppInfoMonitorChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_app_info_monitor_get" g_app_info_monitor_get ::
IO (Ptr AppInfoMonitor)
appInfoMonitorGet ::
(B.CallStack.HasCallStack, MonadIO m) =>
m AppInfoMonitor
appInfoMonitorGet = liftIO $ do
result <- g_app_info_monitor_get
checkUnexpectedReturnNULL "appInfoMonitorGet" result
result' <- (wrapObject AppInfoMonitor) result
return result'