module GI.Gio.Objects.Application
(
Application(..) ,
ApplicationK ,
toApplication ,
noApplication ,
applicationActivate ,
applicationAddMainOption ,
applicationAddMainOptionEntries ,
applicationAddOptionGroup ,
applicationBindBusyProperty ,
applicationGetApplicationId ,
applicationGetDbusConnection ,
applicationGetDbusObjectPath ,
applicationGetDefault ,
applicationGetFlags ,
applicationGetInactivityTimeout ,
applicationGetIsBusy ,
applicationGetIsRegistered ,
applicationGetIsRemote ,
applicationGetResourceBasePath ,
applicationHold ,
applicationIdIsValid ,
applicationMarkBusy ,
applicationNew ,
applicationOpen ,
applicationQuit ,
applicationRegister ,
applicationRelease ,
applicationRun ,
applicationSendNotification ,
applicationSetActionGroup ,
applicationSetApplicationId ,
applicationSetDefault ,
applicationSetFlags ,
applicationSetInactivityTimeout ,
applicationSetResourceBasePath ,
applicationUnbindBusyProperty ,
applicationUnmarkBusy ,
applicationWithdrawNotification ,
ApplicationActionGroupPropertyInfo ,
constructApplicationActionGroup ,
setApplicationActionGroup ,
ApplicationApplicationIdPropertyInfo ,
constructApplicationApplicationId ,
getApplicationApplicationId ,
setApplicationApplicationId ,
ApplicationFlagsPropertyInfo ,
constructApplicationFlags ,
getApplicationFlags ,
setApplicationFlags ,
ApplicationInactivityTimeoutPropertyInfo,
constructApplicationInactivityTimeout ,
getApplicationInactivityTimeout ,
setApplicationInactivityTimeout ,
ApplicationIsBusyPropertyInfo ,
getApplicationIsBusy ,
ApplicationIsRegisteredPropertyInfo ,
getApplicationIsRegistered ,
ApplicationIsRemotePropertyInfo ,
getApplicationIsRemote ,
ApplicationResourceBasePathPropertyInfo ,
constructApplicationResourceBasePath ,
getApplicationResourceBasePath ,
setApplicationResourceBasePath ,
ApplicationActivateCallback ,
ApplicationActivateCallbackC ,
ApplicationActivateSignalInfo ,
afterApplicationActivate ,
applicationActivateCallbackWrapper ,
applicationActivateClosure ,
mkApplicationActivateCallback ,
noApplicationActivateCallback ,
onApplicationActivate ,
ApplicationCommandLineCallback ,
ApplicationCommandLineCallbackC ,
ApplicationCommandLineSignalInfo ,
afterApplicationCommandLine ,
applicationCommandLineCallbackWrapper ,
applicationCommandLineClosure ,
mkApplicationCommandLineCallback ,
noApplicationCommandLineCallback ,
onApplicationCommandLine ,
ApplicationHandleLocalOptionsCallback ,
ApplicationHandleLocalOptionsCallbackC ,
ApplicationHandleLocalOptionsSignalInfo ,
afterApplicationHandleLocalOptions ,
applicationHandleLocalOptionsCallbackWrapper,
applicationHandleLocalOptionsClosure ,
mkApplicationHandleLocalOptionsCallback ,
noApplicationHandleLocalOptionsCallback ,
onApplicationHandleLocalOptions ,
ApplicationOpenCallback ,
ApplicationOpenCallbackC ,
ApplicationOpenSignalInfo ,
afterApplicationOpen ,
applicationOpenCallbackWrapper ,
applicationOpenClosure ,
mkApplicationOpenCallback ,
noApplicationOpenCallback ,
onApplicationOpen ,
ApplicationShutdownCallback ,
ApplicationShutdownCallbackC ,
ApplicationShutdownSignalInfo ,
afterApplicationShutdown ,
applicationShutdownCallbackWrapper ,
applicationShutdownClosure ,
mkApplicationShutdownCallback ,
noApplicationShutdownCallback ,
onApplicationShutdown ,
ApplicationStartupCallback ,
ApplicationStartupCallbackC ,
ApplicationStartupSignalInfo ,
afterApplicationStartup ,
applicationStartupCallbackWrapper ,
applicationStartupClosure ,
mkApplicationStartupCallback ,
noApplicationStartupCallback ,
onApplicationStartup ,
) 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.GLib as GLib
import qualified GI.GObject as GObject
newtype Application = Application (ForeignPtr Application)
foreign import ccall "g_application_get_type"
c_g_application_get_type :: IO GType
type instance ParentTypes Application = ApplicationParentTypes
type ApplicationParentTypes = '[GObject.Object, ActionGroup, ActionMap]
instance GObject Application where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_application_get_type
class GObject o => ApplicationK o
instance (GObject o, IsDescendantOf Application o) => ApplicationK o
toApplication :: ApplicationK o => o -> IO Application
toApplication = unsafeCastTo Application
noApplication :: Maybe Application
noApplication = Nothing
type ApplicationActivateCallback =
IO ()
noApplicationActivateCallback :: Maybe ApplicationActivateCallback
noApplicationActivateCallback = Nothing
type ApplicationActivateCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkApplicationActivateCallback :: ApplicationActivateCallbackC -> IO (FunPtr ApplicationActivateCallbackC)
applicationActivateClosure :: ApplicationActivateCallback -> IO Closure
applicationActivateClosure cb = newCClosure =<< mkApplicationActivateCallback wrapped
where wrapped = applicationActivateCallbackWrapper cb
applicationActivateCallbackWrapper ::
ApplicationActivateCallback ->
Ptr () ->
Ptr () ->
IO ()
applicationActivateCallbackWrapper _cb _ _ = do
_cb
onApplicationActivate :: (GObject a, MonadIO m) => a -> ApplicationActivateCallback -> m SignalHandlerId
onApplicationActivate obj cb = liftIO $ connectApplicationActivate obj cb SignalConnectBefore
afterApplicationActivate :: (GObject a, MonadIO m) => a -> ApplicationActivateCallback -> m SignalHandlerId
afterApplicationActivate obj cb = connectApplicationActivate obj cb SignalConnectAfter
connectApplicationActivate :: (GObject a, MonadIO m) =>
a -> ApplicationActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectApplicationActivate obj cb after = liftIO $ do
cb' <- mkApplicationActivateCallback (applicationActivateCallbackWrapper cb)
connectSignalFunPtr obj "activate" cb' after
type ApplicationCommandLineCallback =
ApplicationCommandLine ->
IO Int32
noApplicationCommandLineCallback :: Maybe ApplicationCommandLineCallback
noApplicationCommandLineCallback = Nothing
type ApplicationCommandLineCallbackC =
Ptr () ->
Ptr ApplicationCommandLine ->
Ptr () ->
IO Int32
foreign import ccall "wrapper"
mkApplicationCommandLineCallback :: ApplicationCommandLineCallbackC -> IO (FunPtr ApplicationCommandLineCallbackC)
applicationCommandLineClosure :: ApplicationCommandLineCallback -> IO Closure
applicationCommandLineClosure cb = newCClosure =<< mkApplicationCommandLineCallback wrapped
where wrapped = applicationCommandLineCallbackWrapper cb
applicationCommandLineCallbackWrapper ::
ApplicationCommandLineCallback ->
Ptr () ->
Ptr ApplicationCommandLine ->
Ptr () ->
IO Int32
applicationCommandLineCallbackWrapper _cb _ command_line _ = do
command_line' <- (newObject ApplicationCommandLine) command_line
result <- _cb command_line'
return result
onApplicationCommandLine :: (GObject a, MonadIO m) => a -> ApplicationCommandLineCallback -> m SignalHandlerId
onApplicationCommandLine obj cb = liftIO $ connectApplicationCommandLine obj cb SignalConnectBefore
afterApplicationCommandLine :: (GObject a, MonadIO m) => a -> ApplicationCommandLineCallback -> m SignalHandlerId
afterApplicationCommandLine obj cb = connectApplicationCommandLine obj cb SignalConnectAfter
connectApplicationCommandLine :: (GObject a, MonadIO m) =>
a -> ApplicationCommandLineCallback -> SignalConnectMode -> m SignalHandlerId
connectApplicationCommandLine obj cb after = liftIO $ do
cb' <- mkApplicationCommandLineCallback (applicationCommandLineCallbackWrapper cb)
connectSignalFunPtr obj "command-line" cb' after
type ApplicationHandleLocalOptionsCallback =
GLib.VariantDict ->
IO Int32
noApplicationHandleLocalOptionsCallback :: Maybe ApplicationHandleLocalOptionsCallback
noApplicationHandleLocalOptionsCallback = Nothing
type ApplicationHandleLocalOptionsCallbackC =
Ptr () ->
Ptr GLib.VariantDict ->
Ptr () ->
IO Int32
foreign import ccall "wrapper"
mkApplicationHandleLocalOptionsCallback :: ApplicationHandleLocalOptionsCallbackC -> IO (FunPtr ApplicationHandleLocalOptionsCallbackC)
applicationHandleLocalOptionsClosure :: ApplicationHandleLocalOptionsCallback -> IO Closure
applicationHandleLocalOptionsClosure cb = newCClosure =<< mkApplicationHandleLocalOptionsCallback wrapped
where wrapped = applicationHandleLocalOptionsCallbackWrapper cb
applicationHandleLocalOptionsCallbackWrapper ::
ApplicationHandleLocalOptionsCallback ->
Ptr () ->
Ptr GLib.VariantDict ->
Ptr () ->
IO Int32
applicationHandleLocalOptionsCallbackWrapper _cb _ options _ = do
options' <- (newBoxed GLib.VariantDict) options
result <- _cb options'
return result
onApplicationHandleLocalOptions :: (GObject a, MonadIO m) => a -> ApplicationHandleLocalOptionsCallback -> m SignalHandlerId
onApplicationHandleLocalOptions obj cb = liftIO $ connectApplicationHandleLocalOptions obj cb SignalConnectBefore
afterApplicationHandleLocalOptions :: (GObject a, MonadIO m) => a -> ApplicationHandleLocalOptionsCallback -> m SignalHandlerId
afterApplicationHandleLocalOptions obj cb = connectApplicationHandleLocalOptions obj cb SignalConnectAfter
connectApplicationHandleLocalOptions :: (GObject a, MonadIO m) =>
a -> ApplicationHandleLocalOptionsCallback -> SignalConnectMode -> m SignalHandlerId
connectApplicationHandleLocalOptions obj cb after = liftIO $ do
cb' <- mkApplicationHandleLocalOptionsCallback (applicationHandleLocalOptionsCallbackWrapper cb)
connectSignalFunPtr obj "handle-local-options" cb' after
type ApplicationOpenCallback =
[File] ->
T.Text ->
IO ()
noApplicationOpenCallback :: Maybe ApplicationOpenCallback
noApplicationOpenCallback = Nothing
type ApplicationOpenCallbackC =
Ptr () ->
Ptr (Ptr File) ->
Int32 ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkApplicationOpenCallback :: ApplicationOpenCallbackC -> IO (FunPtr ApplicationOpenCallbackC)
applicationOpenClosure :: ApplicationOpenCallback -> IO Closure
applicationOpenClosure cb = newCClosure =<< mkApplicationOpenCallback wrapped
where wrapped = applicationOpenCallbackWrapper cb
applicationOpenCallbackWrapper ::
ApplicationOpenCallback ->
Ptr () ->
Ptr (Ptr File) ->
Int32 ->
CString ->
Ptr () ->
IO ()
applicationOpenCallbackWrapper _cb _ files n_files hint _ = do
files' <- (unpackPtrArrayWithLength n_files) files
files'' <- mapM (newObject File) files'
hint' <- cstringToText hint
_cb files'' hint'
onApplicationOpen :: (GObject a, MonadIO m) => a -> ApplicationOpenCallback -> m SignalHandlerId
onApplicationOpen obj cb = liftIO $ connectApplicationOpen obj cb SignalConnectBefore
afterApplicationOpen :: (GObject a, MonadIO m) => a -> ApplicationOpenCallback -> m SignalHandlerId
afterApplicationOpen obj cb = connectApplicationOpen obj cb SignalConnectAfter
connectApplicationOpen :: (GObject a, MonadIO m) =>
a -> ApplicationOpenCallback -> SignalConnectMode -> m SignalHandlerId
connectApplicationOpen obj cb after = liftIO $ do
cb' <- mkApplicationOpenCallback (applicationOpenCallbackWrapper cb)
connectSignalFunPtr obj "open" cb' after
type ApplicationShutdownCallback =
IO ()
noApplicationShutdownCallback :: Maybe ApplicationShutdownCallback
noApplicationShutdownCallback = Nothing
type ApplicationShutdownCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkApplicationShutdownCallback :: ApplicationShutdownCallbackC -> IO (FunPtr ApplicationShutdownCallbackC)
applicationShutdownClosure :: ApplicationShutdownCallback -> IO Closure
applicationShutdownClosure cb = newCClosure =<< mkApplicationShutdownCallback wrapped
where wrapped = applicationShutdownCallbackWrapper cb
applicationShutdownCallbackWrapper ::
ApplicationShutdownCallback ->
Ptr () ->
Ptr () ->
IO ()
applicationShutdownCallbackWrapper _cb _ _ = do
_cb
onApplicationShutdown :: (GObject a, MonadIO m) => a -> ApplicationShutdownCallback -> m SignalHandlerId
onApplicationShutdown obj cb = liftIO $ connectApplicationShutdown obj cb SignalConnectBefore
afterApplicationShutdown :: (GObject a, MonadIO m) => a -> ApplicationShutdownCallback -> m SignalHandlerId
afterApplicationShutdown obj cb = connectApplicationShutdown obj cb SignalConnectAfter
connectApplicationShutdown :: (GObject a, MonadIO m) =>
a -> ApplicationShutdownCallback -> SignalConnectMode -> m SignalHandlerId
connectApplicationShutdown obj cb after = liftIO $ do
cb' <- mkApplicationShutdownCallback (applicationShutdownCallbackWrapper cb)
connectSignalFunPtr obj "shutdown" cb' after
type ApplicationStartupCallback =
IO ()
noApplicationStartupCallback :: Maybe ApplicationStartupCallback
noApplicationStartupCallback = Nothing
type ApplicationStartupCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkApplicationStartupCallback :: ApplicationStartupCallbackC -> IO (FunPtr ApplicationStartupCallbackC)
applicationStartupClosure :: ApplicationStartupCallback -> IO Closure
applicationStartupClosure cb = newCClosure =<< mkApplicationStartupCallback wrapped
where wrapped = applicationStartupCallbackWrapper cb
applicationStartupCallbackWrapper ::
ApplicationStartupCallback ->
Ptr () ->
Ptr () ->
IO ()
applicationStartupCallbackWrapper _cb _ _ = do
_cb
onApplicationStartup :: (GObject a, MonadIO m) => a -> ApplicationStartupCallback -> m SignalHandlerId
onApplicationStartup obj cb = liftIO $ connectApplicationStartup obj cb SignalConnectBefore
afterApplicationStartup :: (GObject a, MonadIO m) => a -> ApplicationStartupCallback -> m SignalHandlerId
afterApplicationStartup obj cb = connectApplicationStartup obj cb SignalConnectAfter
connectApplicationStartup :: (GObject a, MonadIO m) =>
a -> ApplicationStartupCallback -> SignalConnectMode -> m SignalHandlerId
connectApplicationStartup obj cb after = liftIO $ do
cb' <- mkApplicationStartupCallback (applicationStartupCallbackWrapper cb)
connectSignalFunPtr obj "startup" cb' after
setApplicationActionGroup :: (MonadIO m, ApplicationK o, ActionGroupK a) => o -> a -> m ()
setApplicationActionGroup obj val = liftIO $ setObjectPropertyObject obj "action-group" val
constructApplicationActionGroup :: (ActionGroupK a) => a -> IO ([Char], GValue)
constructApplicationActionGroup val = constructObjectPropertyObject "action-group" val
data ApplicationActionGroupPropertyInfo
instance AttrInfo ApplicationActionGroupPropertyInfo where
type AttrAllowedOps ApplicationActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct]
type AttrSetTypeConstraint ApplicationActionGroupPropertyInfo = ActionGroupK
type AttrBaseTypeConstraint ApplicationActionGroupPropertyInfo = ApplicationK
type AttrGetType ApplicationActionGroupPropertyInfo = ()
type AttrLabel ApplicationActionGroupPropertyInfo = "Application::action-group"
attrGet _ = undefined
attrSet _ = setApplicationActionGroup
attrConstruct _ = constructApplicationActionGroup
getApplicationApplicationId :: (MonadIO m, ApplicationK o) => o -> m T.Text
getApplicationApplicationId obj = liftIO $ getObjectPropertyString obj "application-id"
setApplicationApplicationId :: (MonadIO m, ApplicationK o) => o -> T.Text -> m ()
setApplicationApplicationId obj val = liftIO $ setObjectPropertyString obj "application-id" val
constructApplicationApplicationId :: T.Text -> IO ([Char], GValue)
constructApplicationApplicationId val = constructObjectPropertyString "application-id" val
data ApplicationApplicationIdPropertyInfo
instance AttrInfo ApplicationApplicationIdPropertyInfo where
type AttrAllowedOps ApplicationApplicationIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ApplicationApplicationIdPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ApplicationApplicationIdPropertyInfo = ApplicationK
type AttrGetType ApplicationApplicationIdPropertyInfo = T.Text
type AttrLabel ApplicationApplicationIdPropertyInfo = "Application::application-id"
attrGet _ = getApplicationApplicationId
attrSet _ = setApplicationApplicationId
attrConstruct _ = constructApplicationApplicationId
getApplicationFlags :: (MonadIO m, ApplicationK o) => o -> m [ApplicationFlags]
getApplicationFlags obj = liftIO $ getObjectPropertyFlags obj "flags"
setApplicationFlags :: (MonadIO m, ApplicationK o) => o -> [ApplicationFlags] -> m ()
setApplicationFlags obj val = liftIO $ setObjectPropertyFlags obj "flags" val
constructApplicationFlags :: [ApplicationFlags] -> IO ([Char], GValue)
constructApplicationFlags val = constructObjectPropertyFlags "flags" val
data ApplicationFlagsPropertyInfo
instance AttrInfo ApplicationFlagsPropertyInfo where
type AttrAllowedOps ApplicationFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ApplicationFlagsPropertyInfo = (~) [ApplicationFlags]
type AttrBaseTypeConstraint ApplicationFlagsPropertyInfo = ApplicationK
type AttrGetType ApplicationFlagsPropertyInfo = [ApplicationFlags]
type AttrLabel ApplicationFlagsPropertyInfo = "Application::flags"
attrGet _ = getApplicationFlags
attrSet _ = setApplicationFlags
attrConstruct _ = constructApplicationFlags
getApplicationInactivityTimeout :: (MonadIO m, ApplicationK o) => o -> m Word32
getApplicationInactivityTimeout obj = liftIO $ getObjectPropertyCUInt obj "inactivity-timeout"
setApplicationInactivityTimeout :: (MonadIO m, ApplicationK o) => o -> Word32 -> m ()
setApplicationInactivityTimeout obj val = liftIO $ setObjectPropertyCUInt obj "inactivity-timeout" val
constructApplicationInactivityTimeout :: Word32 -> IO ([Char], GValue)
constructApplicationInactivityTimeout val = constructObjectPropertyCUInt "inactivity-timeout" val
data ApplicationInactivityTimeoutPropertyInfo
instance AttrInfo ApplicationInactivityTimeoutPropertyInfo where
type AttrAllowedOps ApplicationInactivityTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ApplicationInactivityTimeoutPropertyInfo = (~) Word32
type AttrBaseTypeConstraint ApplicationInactivityTimeoutPropertyInfo = ApplicationK
type AttrGetType ApplicationInactivityTimeoutPropertyInfo = Word32
type AttrLabel ApplicationInactivityTimeoutPropertyInfo = "Application::inactivity-timeout"
attrGet _ = getApplicationInactivityTimeout
attrSet _ = setApplicationInactivityTimeout
attrConstruct _ = constructApplicationInactivityTimeout
getApplicationIsBusy :: (MonadIO m, ApplicationK o) => o -> m Bool
getApplicationIsBusy obj = liftIO $ getObjectPropertyBool obj "is-busy"
data ApplicationIsBusyPropertyInfo
instance AttrInfo ApplicationIsBusyPropertyInfo where
type AttrAllowedOps ApplicationIsBusyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ApplicationIsBusyPropertyInfo = (~) ()
type AttrBaseTypeConstraint ApplicationIsBusyPropertyInfo = ApplicationK
type AttrGetType ApplicationIsBusyPropertyInfo = Bool
type AttrLabel ApplicationIsBusyPropertyInfo = "Application::is-busy"
attrGet _ = getApplicationIsBusy
attrSet _ = undefined
attrConstruct _ = undefined
getApplicationIsRegistered :: (MonadIO m, ApplicationK o) => o -> m Bool
getApplicationIsRegistered obj = liftIO $ getObjectPropertyBool obj "is-registered"
data ApplicationIsRegisteredPropertyInfo
instance AttrInfo ApplicationIsRegisteredPropertyInfo where
type AttrAllowedOps ApplicationIsRegisteredPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ApplicationIsRegisteredPropertyInfo = (~) ()
type AttrBaseTypeConstraint ApplicationIsRegisteredPropertyInfo = ApplicationK
type AttrGetType ApplicationIsRegisteredPropertyInfo = Bool
type AttrLabel ApplicationIsRegisteredPropertyInfo = "Application::is-registered"
attrGet _ = getApplicationIsRegistered
attrSet _ = undefined
attrConstruct _ = undefined
getApplicationIsRemote :: (MonadIO m, ApplicationK o) => o -> m Bool
getApplicationIsRemote obj = liftIO $ getObjectPropertyBool obj "is-remote"
data ApplicationIsRemotePropertyInfo
instance AttrInfo ApplicationIsRemotePropertyInfo where
type AttrAllowedOps ApplicationIsRemotePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ApplicationIsRemotePropertyInfo = (~) ()
type AttrBaseTypeConstraint ApplicationIsRemotePropertyInfo = ApplicationK
type AttrGetType ApplicationIsRemotePropertyInfo = Bool
type AttrLabel ApplicationIsRemotePropertyInfo = "Application::is-remote"
attrGet _ = getApplicationIsRemote
attrSet _ = undefined
attrConstruct _ = undefined
getApplicationResourceBasePath :: (MonadIO m, ApplicationK o) => o -> m T.Text
getApplicationResourceBasePath obj = liftIO $ getObjectPropertyString obj "resource-base-path"
setApplicationResourceBasePath :: (MonadIO m, ApplicationK o) => o -> T.Text -> m ()
setApplicationResourceBasePath obj val = liftIO $ setObjectPropertyString obj "resource-base-path" val
constructApplicationResourceBasePath :: T.Text -> IO ([Char], GValue)
constructApplicationResourceBasePath val = constructObjectPropertyString "resource-base-path" val
data ApplicationResourceBasePathPropertyInfo
instance AttrInfo ApplicationResourceBasePathPropertyInfo where
type AttrAllowedOps ApplicationResourceBasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ApplicationResourceBasePathPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint ApplicationResourceBasePathPropertyInfo = ApplicationK
type AttrGetType ApplicationResourceBasePathPropertyInfo = T.Text
type AttrLabel ApplicationResourceBasePathPropertyInfo = "Application::resource-base-path"
attrGet _ = getApplicationResourceBasePath
attrSet _ = setApplicationResourceBasePath
attrConstruct _ = constructApplicationResourceBasePath
type instance AttributeList Application = ApplicationAttributeList
type ApplicationAttributeList = ('[ '("action-group", ApplicationActionGroupPropertyInfo), '("application-id", ApplicationApplicationIdPropertyInfo), '("flags", ApplicationFlagsPropertyInfo), '("inactivity-timeout", ApplicationInactivityTimeoutPropertyInfo), '("is-busy", ApplicationIsBusyPropertyInfo), '("is-registered", ApplicationIsRegisteredPropertyInfo), '("is-remote", ApplicationIsRemotePropertyInfo), '("resource-base-path", ApplicationResourceBasePathPropertyInfo)] :: [(Symbol, *)])
data ApplicationActivateSignalInfo
instance SignalInfo ApplicationActivateSignalInfo where
type HaskellCallbackType ApplicationActivateSignalInfo = ApplicationActivateCallback
connectSignal _ = connectApplicationActivate
data ApplicationCommandLineSignalInfo
instance SignalInfo ApplicationCommandLineSignalInfo where
type HaskellCallbackType ApplicationCommandLineSignalInfo = ApplicationCommandLineCallback
connectSignal _ = connectApplicationCommandLine
data ApplicationHandleLocalOptionsSignalInfo
instance SignalInfo ApplicationHandleLocalOptionsSignalInfo where
type HaskellCallbackType ApplicationHandleLocalOptionsSignalInfo = ApplicationHandleLocalOptionsCallback
connectSignal _ = connectApplicationHandleLocalOptions
data ApplicationOpenSignalInfo
instance SignalInfo ApplicationOpenSignalInfo where
type HaskellCallbackType ApplicationOpenSignalInfo = ApplicationOpenCallback
connectSignal _ = connectApplicationOpen
data ApplicationShutdownSignalInfo
instance SignalInfo ApplicationShutdownSignalInfo where
type HaskellCallbackType ApplicationShutdownSignalInfo = ApplicationShutdownCallback
connectSignal _ = connectApplicationShutdown
data ApplicationStartupSignalInfo
instance SignalInfo ApplicationStartupSignalInfo where
type HaskellCallbackType ApplicationStartupSignalInfo = ApplicationStartupCallback
connectSignal _ = connectApplicationStartup
type instance SignalList Application = ApplicationSignalList
type ApplicationSignalList = ('[ '("action-added", ActionGroupActionAddedSignalInfo), '("action-enabled-changed", ActionGroupActionEnabledChangedSignalInfo), '("action-removed", ActionGroupActionRemovedSignalInfo), '("action-state-changed", ActionGroupActionStateChangedSignalInfo), '("activate", ApplicationActivateSignalInfo), '("command-line", ApplicationCommandLineSignalInfo), '("handle-local-options", ApplicationHandleLocalOptionsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("open", ApplicationOpenSignalInfo), '("shutdown", ApplicationShutdownSignalInfo), '("startup", ApplicationStartupSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_application_new" g_application_new ::
CString ->
CUInt ->
IO (Ptr Application)
applicationNew ::
(MonadIO m) =>
Maybe (T.Text) ->
[ApplicationFlags] ->
m Application
applicationNew application_id flags = liftIO $ do
maybeApplication_id <- case application_id of
Nothing -> return nullPtr
Just jApplication_id -> do
jApplication_id' <- textToCString jApplication_id
return jApplication_id'
let flags' = gflagsToWord flags
result <- g_application_new maybeApplication_id flags'
checkUnexpectedReturnNULL "g_application_new" result
result' <- (wrapObject Application) result
freeMem maybeApplication_id
return result'
foreign import ccall "g_application_activate" g_application_activate ::
Ptr Application ->
IO ()
applicationActivate ::
(MonadIO m, ApplicationK a) =>
a ->
m ()
applicationActivate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_application_activate _obj'
touchManagedPtr _obj
return ()
foreign import ccall "g_application_add_main_option" g_application_add_main_option ::
Ptr Application ->
CString ->
Int8 ->
CUInt ->
CUInt ->
CString ->
CString ->
IO ()
applicationAddMainOption ::
(MonadIO m, ApplicationK a) =>
a ->
T.Text ->
Int8 ->
[GLib.OptionFlags] ->
GLib.OptionArg ->
T.Text ->
Maybe (T.Text) ->
m ()
applicationAddMainOption _obj long_name short_name flags arg description arg_description = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
long_name' <- textToCString long_name
let flags' = gflagsToWord flags
let arg' = (fromIntegral . fromEnum) arg
description' <- textToCString description
maybeArg_description <- case arg_description of
Nothing -> return nullPtr
Just jArg_description -> do
jArg_description' <- textToCString jArg_description
return jArg_description'
g_application_add_main_option _obj' long_name' short_name flags' arg' description' maybeArg_description
touchManagedPtr _obj
freeMem long_name'
freeMem description'
freeMem maybeArg_description
return ()
foreign import ccall "g_application_add_main_option_entries" g_application_add_main_option_entries ::
Ptr Application ->
Ptr (Ptr GLib.OptionEntry) ->
IO ()
applicationAddMainOptionEntries ::
(MonadIO m, ApplicationK a) =>
a ->
[GLib.OptionEntry] ->
m ()
applicationAddMainOptionEntries _obj entries = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let entries' = map unsafeManagedPtrGetPtr entries
entries'' <- packZeroTerminatedPtrArray entries'
g_application_add_main_option_entries _obj' entries''
touchManagedPtr _obj
mapM_ touchManagedPtr entries
freeMem entries''
return ()
foreign import ccall "g_application_add_option_group" g_application_add_option_group ::
Ptr Application ->
Ptr GLib.OptionGroup ->
IO ()
applicationAddOptionGroup ::
(MonadIO m, ApplicationK a) =>
a ->
GLib.OptionGroup ->
m ()
applicationAddOptionGroup _obj group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let group' = unsafeManagedPtrGetPtr group
g_application_add_option_group _obj' group'
touchManagedPtr _obj
touchManagedPtr group
return ()
foreign import ccall "g_application_bind_busy_property" g_application_bind_busy_property ::
Ptr Application ->
Ptr GObject.Object ->
CString ->
IO ()
applicationBindBusyProperty ::
(MonadIO m, ApplicationK a, GObject.ObjectK b) =>
a ->
b ->
T.Text ->
m ()
applicationBindBusyProperty _obj object property = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let object' = unsafeManagedPtrCastPtr object
property' <- textToCString property
g_application_bind_busy_property _obj' object' property'
touchManagedPtr _obj
touchManagedPtr object
freeMem property'
return ()
foreign import ccall "g_application_get_application_id" g_application_get_application_id ::
Ptr Application ->
IO CString
applicationGetApplicationId ::
(MonadIO m, ApplicationK a) =>
a ->
m T.Text
applicationGetApplicationId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_application_get_application_id _obj'
checkUnexpectedReturnNULL "g_application_get_application_id" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "g_application_get_dbus_connection" g_application_get_dbus_connection ::
Ptr Application ->
IO (Ptr DBusConnection)
applicationGetDbusConnection ::
(MonadIO m, ApplicationK a) =>
a ->
m DBusConnection
applicationGetDbusConnection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_application_get_dbus_connection _obj'
checkUnexpectedReturnNULL "g_application_get_dbus_connection" result
result' <- (newObject DBusConnection) result
touchManagedPtr _obj
return result'
foreign import ccall "g_application_get_dbus_object_path" g_application_get_dbus_object_path ::
Ptr Application ->
IO CString
applicationGetDbusObjectPath ::
(MonadIO m, ApplicationK a) =>
a ->
m T.Text
applicationGetDbusObjectPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_application_get_dbus_object_path _obj'
checkUnexpectedReturnNULL "g_application_get_dbus_object_path" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "g_application_get_flags" g_application_get_flags ::
Ptr Application ->
IO CUInt
applicationGetFlags ::
(MonadIO m, ApplicationK a) =>
a ->
m [ApplicationFlags]
applicationGetFlags _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_application_get_flags _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
foreign import ccall "g_application_get_inactivity_timeout" g_application_get_inactivity_timeout ::
Ptr Application ->
IO Word32
applicationGetInactivityTimeout ::
(MonadIO m, ApplicationK a) =>
a ->
m Word32
applicationGetInactivityTimeout _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_application_get_inactivity_timeout _obj'
touchManagedPtr _obj
return result
foreign import ccall "g_application_get_is_busy" g_application_get_is_busy ::
Ptr Application ->
IO CInt
applicationGetIsBusy ::
(MonadIO m, ApplicationK a) =>
a ->
m Bool
applicationGetIsBusy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_application_get_is_busy _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "g_application_get_is_registered" g_application_get_is_registered ::
Ptr Application ->
IO CInt
applicationGetIsRegistered ::
(MonadIO m, ApplicationK a) =>
a ->
m Bool
applicationGetIsRegistered _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_application_get_is_registered _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "g_application_get_is_remote" g_application_get_is_remote ::
Ptr Application ->
IO CInt
applicationGetIsRemote ::
(MonadIO m, ApplicationK a) =>
a ->
m Bool
applicationGetIsRemote _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_application_get_is_remote _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "g_application_get_resource_base_path" g_application_get_resource_base_path ::
Ptr Application ->
IO CString
applicationGetResourceBasePath ::
(MonadIO m, ApplicationK a) =>
a ->
m T.Text
applicationGetResourceBasePath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_application_get_resource_base_path _obj'
checkUnexpectedReturnNULL "g_application_get_resource_base_path" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "g_application_hold" g_application_hold ::
Ptr Application ->
IO ()
applicationHold ::
(MonadIO m, ApplicationK a) =>
a ->
m ()
applicationHold _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_application_hold _obj'
touchManagedPtr _obj
return ()
foreign import ccall "g_application_mark_busy" g_application_mark_busy ::
Ptr Application ->
IO ()
applicationMarkBusy ::
(MonadIO m, ApplicationK a) =>
a ->
m ()
applicationMarkBusy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_application_mark_busy _obj'
touchManagedPtr _obj
return ()
foreign import ccall "g_application_open" g_application_open ::
Ptr Application ->
Ptr (Ptr File) ->
Int32 ->
CString ->
IO ()
applicationOpen ::
(MonadIO m, ApplicationK a) =>
a ->
[File] ->
T.Text ->
m ()
applicationOpen _obj files hint = liftIO $ do
let n_files = fromIntegral $ length files
let _obj' = unsafeManagedPtrCastPtr _obj
let files' = map unsafeManagedPtrCastPtr files
files'' <- packPtrArray files'
hint' <- textToCString hint
g_application_open _obj' files'' n_files hint'
touchManagedPtr _obj
mapM_ touchManagedPtr files
freeMem files''
freeMem hint'
return ()
foreign import ccall "g_application_quit" g_application_quit ::
Ptr Application ->
IO ()
applicationQuit ::
(MonadIO m, ApplicationK a) =>
a ->
m ()
applicationQuit _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_application_quit _obj'
touchManagedPtr _obj
return ()
foreign import ccall "g_application_register" g_application_register ::
Ptr Application ->
Ptr Cancellable ->
Ptr (Ptr GError) ->
IO CInt
applicationRegister ::
(MonadIO m, ApplicationK a, CancellableK b) =>
a ->
Maybe (b) ->
m ()
applicationRegister _obj cancellable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
_ <- propagateGError $ g_application_register _obj' maybeCancellable
touchManagedPtr _obj
whenJust cancellable touchManagedPtr
return ()
) (do
return ()
)
foreign import ccall "g_application_release" g_application_release ::
Ptr Application ->
IO ()
applicationRelease ::
(MonadIO m, ApplicationK a) =>
a ->
m ()
applicationRelease _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_application_release _obj'
touchManagedPtr _obj
return ()
foreign import ccall "g_application_run" g_application_run ::
Ptr Application ->
Int32 ->
Ptr CString ->
IO Int32
applicationRun ::
(MonadIO m, ApplicationK a) =>
a ->
Maybe ([T.Text]) ->
m Int32
applicationRun _obj argv = liftIO $ do
let argc = case argv of
Nothing -> 0
Just jArgv -> fromIntegral $ length jArgv
let _obj' = unsafeManagedPtrCastPtr _obj
maybeArgv <- case argv of
Nothing -> return nullPtr
Just jArgv -> do
jArgv' <- packUTF8CArray jArgv
return jArgv'
result <- g_application_run _obj' argc maybeArgv
touchManagedPtr _obj
(mapCArrayWithLength argc) freeMem maybeArgv
freeMem maybeArgv
return result
foreign import ccall "g_application_send_notification" g_application_send_notification ::
Ptr Application ->
CString ->
Ptr Notification ->
IO ()
applicationSendNotification ::
(MonadIO m, ApplicationK a, NotificationK b) =>
a ->
Maybe (T.Text) ->
b ->
m ()
applicationSendNotification _obj id notification = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeId <- case id of
Nothing -> return nullPtr
Just jId -> do
jId' <- textToCString jId
return jId'
let notification' = unsafeManagedPtrCastPtr notification
g_application_send_notification _obj' maybeId notification'
touchManagedPtr _obj
touchManagedPtr notification
freeMem maybeId
return ()
foreign import ccall "g_application_set_action_group" g_application_set_action_group ::
Ptr Application ->
Ptr ActionGroup ->
IO ()
applicationSetActionGroup ::
(MonadIO m, ApplicationK a, ActionGroupK b) =>
a ->
Maybe (b) ->
m ()
applicationSetActionGroup _obj action_group = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeAction_group <- case action_group of
Nothing -> return nullPtr
Just jAction_group -> do
let jAction_group' = unsafeManagedPtrCastPtr jAction_group
return jAction_group'
g_application_set_action_group _obj' maybeAction_group
touchManagedPtr _obj
whenJust action_group touchManagedPtr
return ()
foreign import ccall "g_application_set_application_id" g_application_set_application_id ::
Ptr Application ->
CString ->
IO ()
applicationSetApplicationId ::
(MonadIO m, ApplicationK a) =>
a ->
Maybe (T.Text) ->
m ()
applicationSetApplicationId _obj application_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeApplication_id <- case application_id of
Nothing -> return nullPtr
Just jApplication_id -> do
jApplication_id' <- textToCString jApplication_id
return jApplication_id'
g_application_set_application_id _obj' maybeApplication_id
touchManagedPtr _obj
freeMem maybeApplication_id
return ()
foreign import ccall "g_application_set_default" g_application_set_default ::
Ptr Application ->
IO ()
applicationSetDefault ::
(MonadIO m, ApplicationK a) =>
a ->
m ()
applicationSetDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_application_set_default _obj'
touchManagedPtr _obj
return ()
foreign import ccall "g_application_set_flags" g_application_set_flags ::
Ptr Application ->
CUInt ->
IO ()
applicationSetFlags ::
(MonadIO m, ApplicationK a) =>
a ->
[ApplicationFlags] ->
m ()
applicationSetFlags _obj flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flags' = gflagsToWord flags
g_application_set_flags _obj' flags'
touchManagedPtr _obj
return ()
foreign import ccall "g_application_set_inactivity_timeout" g_application_set_inactivity_timeout ::
Ptr Application ->
Word32 ->
IO ()
applicationSetInactivityTimeout ::
(MonadIO m, ApplicationK a) =>
a ->
Word32 ->
m ()
applicationSetInactivityTimeout _obj inactivity_timeout = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_application_set_inactivity_timeout _obj' inactivity_timeout
touchManagedPtr _obj
return ()
foreign import ccall "g_application_set_resource_base_path" g_application_set_resource_base_path ::
Ptr Application ->
CString ->
IO ()
applicationSetResourceBasePath ::
(MonadIO m, ApplicationK a) =>
a ->
Maybe (T.Text) ->
m ()
applicationSetResourceBasePath _obj resource_path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeResource_path <- case resource_path of
Nothing -> return nullPtr
Just jResource_path -> do
jResource_path' <- textToCString jResource_path
return jResource_path'
g_application_set_resource_base_path _obj' maybeResource_path
touchManagedPtr _obj
freeMem maybeResource_path
return ()
foreign import ccall "g_application_unbind_busy_property" g_application_unbind_busy_property ::
Ptr Application ->
Ptr GObject.Object ->
CString ->
IO ()
applicationUnbindBusyProperty ::
(MonadIO m, ApplicationK a, GObject.ObjectK b) =>
a ->
b ->
T.Text ->
m ()
applicationUnbindBusyProperty _obj object property = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let object' = unsafeManagedPtrCastPtr object
property' <- textToCString property
g_application_unbind_busy_property _obj' object' property'
touchManagedPtr _obj
touchManagedPtr object
freeMem property'
return ()
foreign import ccall "g_application_unmark_busy" g_application_unmark_busy ::
Ptr Application ->
IO ()
applicationUnmarkBusy ::
(MonadIO m, ApplicationK a) =>
a ->
m ()
applicationUnmarkBusy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_application_unmark_busy _obj'
touchManagedPtr _obj
return ()
foreign import ccall "g_application_withdraw_notification" g_application_withdraw_notification ::
Ptr Application ->
CString ->
IO ()
applicationWithdrawNotification ::
(MonadIO m, ApplicationK a) =>
a ->
T.Text ->
m ()
applicationWithdrawNotification _obj id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
id' <- textToCString id
g_application_withdraw_notification _obj' id'
touchManagedPtr _obj
freeMem id'
return ()
foreign import ccall "g_application_get_default" g_application_get_default ::
IO (Ptr Application)
applicationGetDefault ::
(MonadIO m) =>
m Application
applicationGetDefault = liftIO $ do
result <- g_application_get_default
checkUnexpectedReturnNULL "g_application_get_default" result
result' <- (newObject Application) result
return result'
foreign import ccall "g_application_id_is_valid" g_application_id_is_valid ::
CString ->
IO CInt
applicationIdIsValid ::
(MonadIO m) =>
T.Text ->
m Bool
applicationIdIsValid application_id = liftIO $ do
application_id' <- textToCString application_id
result <- g_application_id_is_valid application_id'
let result' = (/= 0) result
freeMem application_id'
return result'