{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gio.Objects.Application
(
Application(..) ,
IsApplication ,
toApplication ,
#if defined(ENABLE_OVERLOADING)
ResolveApplicationMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ApplicationActivateMethodInfo ,
#endif
applicationActivate ,
#if defined(ENABLE_OVERLOADING)
ApplicationAddMainOptionMethodInfo ,
#endif
applicationAddMainOption ,
#if defined(ENABLE_OVERLOADING)
ApplicationAddMainOptionEntriesMethodInfo,
#endif
applicationAddMainOptionEntries ,
#if defined(ENABLE_OVERLOADING)
ApplicationAddOptionGroupMethodInfo ,
#endif
applicationAddOptionGroup ,
#if defined(ENABLE_OVERLOADING)
ApplicationBindBusyPropertyMethodInfo ,
#endif
applicationBindBusyProperty ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetApplicationIdMethodInfo ,
#endif
applicationGetApplicationId ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetDbusConnectionMethodInfo ,
#endif
applicationGetDbusConnection ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetDbusObjectPathMethodInfo ,
#endif
applicationGetDbusObjectPath ,
applicationGetDefault ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetFlagsMethodInfo ,
#endif
applicationGetFlags ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetInactivityTimeoutMethodInfo,
#endif
applicationGetInactivityTimeout ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetIsBusyMethodInfo ,
#endif
applicationGetIsBusy ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetIsRegisteredMethodInfo ,
#endif
applicationGetIsRegistered ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetIsRemoteMethodInfo ,
#endif
applicationGetIsRemote ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetResourceBasePathMethodInfo,
#endif
applicationGetResourceBasePath ,
#if defined(ENABLE_OVERLOADING)
ApplicationHoldMethodInfo ,
#endif
applicationHold ,
applicationIdIsValid ,
#if defined(ENABLE_OVERLOADING)
ApplicationMarkBusyMethodInfo ,
#endif
applicationMarkBusy ,
applicationNew ,
#if defined(ENABLE_OVERLOADING)
ApplicationOpenMethodInfo ,
#endif
applicationOpen ,
#if defined(ENABLE_OVERLOADING)
ApplicationQuitMethodInfo ,
#endif
applicationQuit ,
#if defined(ENABLE_OVERLOADING)
ApplicationRegisterMethodInfo ,
#endif
applicationRegister ,
#if defined(ENABLE_OVERLOADING)
ApplicationReleaseMethodInfo ,
#endif
applicationRelease ,
#if defined(ENABLE_OVERLOADING)
ApplicationRunMethodInfo ,
#endif
applicationRun ,
#if defined(ENABLE_OVERLOADING)
ApplicationSendNotificationMethodInfo ,
#endif
applicationSendNotification ,
#if defined(ENABLE_OVERLOADING)
ApplicationSetActionGroupMethodInfo ,
#endif
applicationSetActionGroup ,
#if defined(ENABLE_OVERLOADING)
ApplicationSetApplicationIdMethodInfo ,
#endif
applicationSetApplicationId ,
#if defined(ENABLE_OVERLOADING)
ApplicationSetDefaultMethodInfo ,
#endif
applicationSetDefault ,
#if defined(ENABLE_OVERLOADING)
ApplicationSetFlagsMethodInfo ,
#endif
applicationSetFlags ,
#if defined(ENABLE_OVERLOADING)
ApplicationSetInactivityTimeoutMethodInfo,
#endif
applicationSetInactivityTimeout ,
#if defined(ENABLE_OVERLOADING)
ApplicationSetOptionContextDescriptionMethodInfo,
#endif
applicationSetOptionContextDescription ,
#if defined(ENABLE_OVERLOADING)
ApplicationSetOptionContextParameterStringMethodInfo,
#endif
applicationSetOptionContextParameterString,
#if defined(ENABLE_OVERLOADING)
ApplicationSetOptionContextSummaryMethodInfo,
#endif
applicationSetOptionContextSummary ,
#if defined(ENABLE_OVERLOADING)
ApplicationSetResourceBasePathMethodInfo,
#endif
applicationSetResourceBasePath ,
#if defined(ENABLE_OVERLOADING)
ApplicationUnbindBusyPropertyMethodInfo ,
#endif
applicationUnbindBusyProperty ,
#if defined(ENABLE_OVERLOADING)
ApplicationUnmarkBusyMethodInfo ,
#endif
applicationUnmarkBusy ,
#if defined(ENABLE_OVERLOADING)
ApplicationWithdrawNotificationMethodInfo,
#endif
applicationWithdrawNotification ,
#if defined(ENABLE_OVERLOADING)
ApplicationActionGroupPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
applicationActionGroup ,
#endif
clearApplicationActionGroup ,
constructApplicationActionGroup ,
setApplicationActionGroup ,
#if defined(ENABLE_OVERLOADING)
ApplicationApplicationIdPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
applicationApplicationId ,
#endif
clearApplicationApplicationId ,
constructApplicationApplicationId ,
getApplicationApplicationId ,
setApplicationApplicationId ,
#if defined(ENABLE_OVERLOADING)
ApplicationFlagsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
applicationFlags ,
#endif
constructApplicationFlags ,
getApplicationFlags ,
setApplicationFlags ,
#if defined(ENABLE_OVERLOADING)
ApplicationInactivityTimeoutPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
applicationInactivityTimeout ,
#endif
constructApplicationInactivityTimeout ,
getApplicationInactivityTimeout ,
setApplicationInactivityTimeout ,
#if defined(ENABLE_OVERLOADING)
ApplicationIsBusyPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
applicationIsBusy ,
#endif
getApplicationIsBusy ,
#if defined(ENABLE_OVERLOADING)
ApplicationIsRegisteredPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
applicationIsRegistered ,
#endif
getApplicationIsRegistered ,
#if defined(ENABLE_OVERLOADING)
ApplicationIsRemotePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
applicationIsRemote ,
#endif
getApplicationIsRemote ,
#if defined(ENABLE_OVERLOADING)
ApplicationResourceBasePathPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
applicationResourceBasePath ,
#endif
clearApplicationResourceBasePath ,
constructApplicationResourceBasePath ,
getApplicationResourceBasePath ,
setApplicationResourceBasePath ,
ApplicationActivateCallback ,
#if defined(ENABLE_OVERLOADING)
ApplicationActivateSignalInfo ,
#endif
afterApplicationActivate ,
onApplicationActivate ,
ApplicationCommandLineCallback ,
#if defined(ENABLE_OVERLOADING)
ApplicationCommandLineSignalInfo ,
#endif
afterApplicationCommandLine ,
onApplicationCommandLine ,
ApplicationHandleLocalOptionsCallback ,
#if defined(ENABLE_OVERLOADING)
ApplicationHandleLocalOptionsSignalInfo ,
#endif
afterApplicationHandleLocalOptions ,
onApplicationHandleLocalOptions ,
ApplicationNameLostCallback ,
#if defined(ENABLE_OVERLOADING)
ApplicationNameLostSignalInfo ,
#endif
afterApplicationNameLost ,
onApplicationNameLost ,
ApplicationOpenCallback ,
#if defined(ENABLE_OVERLOADING)
ApplicationOpenSignalInfo ,
#endif
afterApplicationOpen ,
onApplicationOpen ,
ApplicationShutdownCallback ,
#if defined(ENABLE_OVERLOADING)
ApplicationShutdownSignalInfo ,
#endif
afterApplicationShutdown ,
onApplicationShutdown ,
ApplicationStartupCallback ,
#if defined(ENABLE_OVERLOADING)
ApplicationStartupSignalInfo ,
#endif
afterApplicationStartup ,
onApplicationStartup ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
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 GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GLib.Enums as GLib.Enums
import qualified GI.GLib.Flags as GLib.Flags
import qualified GI.GLib.Structs.OptionEntry as GLib.OptionEntry
import qualified GI.GLib.Structs.OptionGroup as GLib.OptionGroup
import qualified GI.GLib.Structs.VariantDict as GLib.VariantDict
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags
import {-# SOURCE #-} qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import {-# SOURCE #-} qualified GI.Gio.Interfaces.ActionMap as Gio.ActionMap
import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File
import {-# SOURCE #-} qualified GI.Gio.Objects.ApplicationCommandLine as Gio.ApplicationCommandLine
import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection
import {-# SOURCE #-} qualified GI.Gio.Objects.Notification as Gio.Notification
newtype Application = Application (SP.ManagedPtr Application)
deriving (Application -> Application -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Application -> Application -> Bool
$c/= :: Application -> Application -> Bool
== :: Application -> Application -> Bool
$c== :: Application -> Application -> Bool
Eq)
instance SP.ManagedPtrNewtype Application where
toManagedPtr :: Application -> ManagedPtr Application
toManagedPtr (Application ManagedPtr Application
p) = ManagedPtr Application
p
foreign import ccall "g_application_get_type"
c_g_application_get_type :: IO B.Types.GType
instance B.Types.TypedObject Application where
glibType :: IO GType
glibType = IO GType
c_g_application_get_type
instance B.Types.GObject Application
class (SP.GObject o, O.IsDescendantOf Application o) => IsApplication o
instance (SP.GObject o, O.IsDescendantOf Application o) => IsApplication o
instance O.HasParentTypes Application
type instance O.ParentTypes Application = '[GObject.Object.Object, Gio.ActionGroup.ActionGroup, Gio.ActionMap.ActionMap]
toApplication :: (MIO.MonadIO m, IsApplication o) => o -> m Application
toApplication :: forall (m :: * -> *) o.
(MonadIO m, IsApplication o) =>
o -> m Application
toApplication = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Application -> Application
Application
instance B.GValue.IsGValue (Maybe Application) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_g_application_get_type
gvalueSet_ :: Ptr GValue -> Maybe Application -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Application
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr Application)
gvalueSet_ Ptr GValue
gv (P.Just Application
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Application
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Application)
gvalueGet_ Ptr GValue
gv = do
Ptr Application
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Application)
if Ptr Application
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Application -> Application
Application Ptr Application
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveApplicationMethod (t :: Symbol) (o :: *) :: * where
ResolveApplicationMethod "actionAdded" o = Gio.ActionGroup.ActionGroupActionAddedMethodInfo
ResolveApplicationMethod "actionEnabledChanged" o = Gio.ActionGroup.ActionGroupActionEnabledChangedMethodInfo
ResolveApplicationMethod "actionRemoved" o = Gio.ActionGroup.ActionGroupActionRemovedMethodInfo
ResolveApplicationMethod "actionStateChanged" o = Gio.ActionGroup.ActionGroupActionStateChangedMethodInfo
ResolveApplicationMethod "activate" o = ApplicationActivateMethodInfo
ResolveApplicationMethod "activateAction" o = Gio.ActionGroup.ActionGroupActivateActionMethodInfo
ResolveApplicationMethod "addAction" o = Gio.ActionMap.ActionMapAddActionMethodInfo
ResolveApplicationMethod "addActionEntries" o = Gio.ActionMap.ActionMapAddActionEntriesMethodInfo
ResolveApplicationMethod "addMainOption" o = ApplicationAddMainOptionMethodInfo
ResolveApplicationMethod "addMainOptionEntries" o = ApplicationAddMainOptionEntriesMethodInfo
ResolveApplicationMethod "addOptionGroup" o = ApplicationAddOptionGroupMethodInfo
ResolveApplicationMethod "bindBusyProperty" o = ApplicationBindBusyPropertyMethodInfo
ResolveApplicationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveApplicationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveApplicationMethod "changeActionState" o = Gio.ActionGroup.ActionGroupChangeActionStateMethodInfo
ResolveApplicationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveApplicationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveApplicationMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveApplicationMethod "hasAction" o = Gio.ActionGroup.ActionGroupHasActionMethodInfo
ResolveApplicationMethod "hold" o = ApplicationHoldMethodInfo
ResolveApplicationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveApplicationMethod "listActions" o = Gio.ActionGroup.ActionGroupListActionsMethodInfo
ResolveApplicationMethod "lookupAction" o = Gio.ActionMap.ActionMapLookupActionMethodInfo
ResolveApplicationMethod "markBusy" o = ApplicationMarkBusyMethodInfo
ResolveApplicationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveApplicationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveApplicationMethod "open" o = ApplicationOpenMethodInfo
ResolveApplicationMethod "queryAction" o = Gio.ActionGroup.ActionGroupQueryActionMethodInfo
ResolveApplicationMethod "quit" o = ApplicationQuitMethodInfo
ResolveApplicationMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveApplicationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveApplicationMethod "register" o = ApplicationRegisterMethodInfo
ResolveApplicationMethod "release" o = ApplicationReleaseMethodInfo
ResolveApplicationMethod "removeAction" o = Gio.ActionMap.ActionMapRemoveActionMethodInfo
ResolveApplicationMethod "run" o = ApplicationRunMethodInfo
ResolveApplicationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveApplicationMethod "sendNotification" o = ApplicationSendNotificationMethodInfo
ResolveApplicationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveApplicationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveApplicationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveApplicationMethod "unbindBusyProperty" o = ApplicationUnbindBusyPropertyMethodInfo
ResolveApplicationMethod "unmarkBusy" o = ApplicationUnmarkBusyMethodInfo
ResolveApplicationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveApplicationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveApplicationMethod "withdrawNotification" o = ApplicationWithdrawNotificationMethodInfo
ResolveApplicationMethod "getActionEnabled" o = Gio.ActionGroup.ActionGroupGetActionEnabledMethodInfo
ResolveApplicationMethod "getActionParameterType" o = Gio.ActionGroup.ActionGroupGetActionParameterTypeMethodInfo
ResolveApplicationMethod "getActionState" o = Gio.ActionGroup.ActionGroupGetActionStateMethodInfo
ResolveApplicationMethod "getActionStateHint" o = Gio.ActionGroup.ActionGroupGetActionStateHintMethodInfo
ResolveApplicationMethod "getActionStateType" o = Gio.ActionGroup.ActionGroupGetActionStateTypeMethodInfo
ResolveApplicationMethod "getApplicationId" o = ApplicationGetApplicationIdMethodInfo
ResolveApplicationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveApplicationMethod "getDbusConnection" o = ApplicationGetDbusConnectionMethodInfo
ResolveApplicationMethod "getDbusObjectPath" o = ApplicationGetDbusObjectPathMethodInfo
ResolveApplicationMethod "getFlags" o = ApplicationGetFlagsMethodInfo
ResolveApplicationMethod "getInactivityTimeout" o = ApplicationGetInactivityTimeoutMethodInfo
ResolveApplicationMethod "getIsBusy" o = ApplicationGetIsBusyMethodInfo
ResolveApplicationMethod "getIsRegistered" o = ApplicationGetIsRegisteredMethodInfo
ResolveApplicationMethod "getIsRemote" o = ApplicationGetIsRemoteMethodInfo
ResolveApplicationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveApplicationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveApplicationMethod "getResourceBasePath" o = ApplicationGetResourceBasePathMethodInfo
ResolveApplicationMethod "setActionGroup" o = ApplicationSetActionGroupMethodInfo
ResolveApplicationMethod "setApplicationId" o = ApplicationSetApplicationIdMethodInfo
ResolveApplicationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveApplicationMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveApplicationMethod "setDefault" o = ApplicationSetDefaultMethodInfo
ResolveApplicationMethod "setFlags" o = ApplicationSetFlagsMethodInfo
ResolveApplicationMethod "setInactivityTimeout" o = ApplicationSetInactivityTimeoutMethodInfo
ResolveApplicationMethod "setOptionContextDescription" o = ApplicationSetOptionContextDescriptionMethodInfo
ResolveApplicationMethod "setOptionContextParameterString" o = ApplicationSetOptionContextParameterStringMethodInfo
ResolveApplicationMethod "setOptionContextSummary" o = ApplicationSetOptionContextSummaryMethodInfo
ResolveApplicationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveApplicationMethod "setResourceBasePath" o = ApplicationSetResourceBasePathMethodInfo
ResolveApplicationMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveApplicationMethod t Application, O.OverloadedMethod info Application p) => OL.IsLabel t (Application -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveApplicationMethod t Application, O.OverloadedMethod info Application p, R.HasField t Application p) => R.HasField t Application p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveApplicationMethod t Application, O.OverloadedMethodInfo info Application) => OL.IsLabel t (O.MethodProxy info Application) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ApplicationActivateCallback =
IO ()
type C_ApplicationActivateCallback =
Ptr Application ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ApplicationActivateCallback :: C_ApplicationActivateCallback -> IO (FunPtr C_ApplicationActivateCallback)
wrap_ApplicationActivateCallback ::
GObject a => (a -> ApplicationActivateCallback) ->
C_ApplicationActivateCallback
wrap_ApplicationActivateCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationActivateCallback
wrap_ApplicationActivateCallback a -> IO ()
gi'cb Ptr Application
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Application
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \Application
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce Application
gi'self)
onApplicationActivate :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationActivateCallback) -> m SignalHandlerId
onApplicationActivate :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onApplicationActivate a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_ApplicationActivateCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationActivateCallback
wrap_ApplicationActivateCallback a -> IO ()
wrapped
FunPtr C_ApplicationActivateCallback
wrapped'' <- C_ApplicationActivateCallback
-> IO (FunPtr C_ApplicationActivateCallback)
mk_ApplicationActivateCallback C_ApplicationActivateCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_ApplicationActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterApplicationActivate :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationActivateCallback) -> m SignalHandlerId
afterApplicationActivate :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterApplicationActivate a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_ApplicationActivateCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationActivateCallback
wrap_ApplicationActivateCallback a -> IO ()
wrapped
FunPtr C_ApplicationActivateCallback
wrapped'' <- C_ApplicationActivateCallback
-> IO (FunPtr C_ApplicationActivateCallback)
mk_ApplicationActivateCallback C_ApplicationActivateCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_ApplicationActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ApplicationActivateSignalInfo
instance SignalInfo ApplicationActivateSignalInfo where
type HaskellCallbackType ApplicationActivateSignalInfo = ApplicationActivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ApplicationActivateCallback cb
cb'' <- mk_ApplicationActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application::activate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#g:signal:activate"})
#endif
type ApplicationCommandLineCallback =
Gio.ApplicationCommandLine.ApplicationCommandLine
-> IO Int32
type C_ApplicationCommandLineCallback =
Ptr Application ->
Ptr Gio.ApplicationCommandLine.ApplicationCommandLine ->
Ptr () ->
IO Int32
foreign import ccall "wrapper"
mk_ApplicationCommandLineCallback :: C_ApplicationCommandLineCallback -> IO (FunPtr C_ApplicationCommandLineCallback)
wrap_ApplicationCommandLineCallback ::
GObject a => (a -> ApplicationCommandLineCallback) ->
C_ApplicationCommandLineCallback
wrap_ApplicationCommandLineCallback :: forall a.
GObject a =>
(a -> ApplicationCommandLineCallback)
-> C_ApplicationCommandLineCallback
wrap_ApplicationCommandLineCallback a -> ApplicationCommandLineCallback
gi'cb Ptr Application
gi'selfPtr Ptr ApplicationCommandLine
commandLine Ptr ()
_ = do
ApplicationCommandLine
commandLine' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ApplicationCommandLine -> ApplicationCommandLine
Gio.ApplicationCommandLine.ApplicationCommandLine) Ptr ApplicationCommandLine
commandLine
Int32
result <- forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Application
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \Application
gi'self -> a -> ApplicationCommandLineCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce Application
gi'self) ApplicationCommandLine
commandLine'
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
onApplicationCommandLine :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationCommandLineCallback) -> m SignalHandlerId
onApplicationCommandLine :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a
-> ((?self::a) => ApplicationCommandLineCallback)
-> m SignalHandlerId
onApplicationCommandLine a
obj (?self::a) => ApplicationCommandLineCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationCommandLineCallback
wrapped a
self = let ?self = a
self in (?self::a) => ApplicationCommandLineCallback
cb
let wrapped' :: C_ApplicationCommandLineCallback
wrapped' = forall a.
GObject a =>
(a -> ApplicationCommandLineCallback)
-> C_ApplicationCommandLineCallback
wrap_ApplicationCommandLineCallback a -> ApplicationCommandLineCallback
wrapped
FunPtr C_ApplicationCommandLineCallback
wrapped'' <- C_ApplicationCommandLineCallback
-> IO (FunPtr C_ApplicationCommandLineCallback)
mk_ApplicationCommandLineCallback C_ApplicationCommandLineCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"command-line" FunPtr C_ApplicationCommandLineCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterApplicationCommandLine :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationCommandLineCallback) -> m SignalHandlerId
afterApplicationCommandLine :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a
-> ((?self::a) => ApplicationCommandLineCallback)
-> m SignalHandlerId
afterApplicationCommandLine a
obj (?self::a) => ApplicationCommandLineCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationCommandLineCallback
wrapped a
self = let ?self = a
self in (?self::a) => ApplicationCommandLineCallback
cb
let wrapped' :: C_ApplicationCommandLineCallback
wrapped' = forall a.
GObject a =>
(a -> ApplicationCommandLineCallback)
-> C_ApplicationCommandLineCallback
wrap_ApplicationCommandLineCallback a -> ApplicationCommandLineCallback
wrapped
FunPtr C_ApplicationCommandLineCallback
wrapped'' <- C_ApplicationCommandLineCallback
-> IO (FunPtr C_ApplicationCommandLineCallback)
mk_ApplicationCommandLineCallback C_ApplicationCommandLineCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"command-line" FunPtr C_ApplicationCommandLineCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ApplicationCommandLineSignalInfo
instance SignalInfo ApplicationCommandLineSignalInfo where
type HaskellCallbackType ApplicationCommandLineSignalInfo = ApplicationCommandLineCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ApplicationCommandLineCallback cb
cb'' <- mk_ApplicationCommandLineCallback cb'
connectSignalFunPtr obj "command-line" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application::command-line"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#g:signal:commandLine"})
#endif
type ApplicationHandleLocalOptionsCallback =
GLib.VariantDict.VariantDict
-> IO Int32
type C_ApplicationHandleLocalOptionsCallback =
Ptr Application ->
Ptr GLib.VariantDict.VariantDict ->
Ptr () ->
IO Int32
foreign import ccall "wrapper"
mk_ApplicationHandleLocalOptionsCallback :: C_ApplicationHandleLocalOptionsCallback -> IO (FunPtr C_ApplicationHandleLocalOptionsCallback)
wrap_ApplicationHandleLocalOptionsCallback ::
GObject a => (a -> ApplicationHandleLocalOptionsCallback) ->
C_ApplicationHandleLocalOptionsCallback
wrap_ApplicationHandleLocalOptionsCallback :: forall a.
GObject a =>
(a -> ApplicationHandleLocalOptionsCallback)
-> C_ApplicationHandleLocalOptionsCallback
wrap_ApplicationHandleLocalOptionsCallback a -> ApplicationHandleLocalOptionsCallback
gi'cb Ptr Application
gi'selfPtr Ptr VariantDict
options Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr VariantDict
options forall a b. (a -> b) -> a -> b
$ \VariantDict
options' -> do
Int32
result <- forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Application
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \Application
gi'self -> a -> ApplicationHandleLocalOptionsCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce Application
gi'self) VariantDict
options'
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
onApplicationHandleLocalOptions :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationHandleLocalOptionsCallback) -> m SignalHandlerId
onApplicationHandleLocalOptions :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a
-> ((?self::a) => ApplicationHandleLocalOptionsCallback)
-> m SignalHandlerId
onApplicationHandleLocalOptions a
obj (?self::a) => ApplicationHandleLocalOptionsCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationHandleLocalOptionsCallback
wrapped a
self = let ?self = a
self in (?self::a) => ApplicationHandleLocalOptionsCallback
cb
let wrapped' :: C_ApplicationHandleLocalOptionsCallback
wrapped' = forall a.
GObject a =>
(a -> ApplicationHandleLocalOptionsCallback)
-> C_ApplicationHandleLocalOptionsCallback
wrap_ApplicationHandleLocalOptionsCallback a -> ApplicationHandleLocalOptionsCallback
wrapped
FunPtr C_ApplicationHandleLocalOptionsCallback
wrapped'' <- C_ApplicationHandleLocalOptionsCallback
-> IO (FunPtr C_ApplicationHandleLocalOptionsCallback)
mk_ApplicationHandleLocalOptionsCallback C_ApplicationHandleLocalOptionsCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"handle-local-options" FunPtr C_ApplicationHandleLocalOptionsCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterApplicationHandleLocalOptions :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationHandleLocalOptionsCallback) -> m SignalHandlerId
afterApplicationHandleLocalOptions :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a
-> ((?self::a) => ApplicationHandleLocalOptionsCallback)
-> m SignalHandlerId
afterApplicationHandleLocalOptions a
obj (?self::a) => ApplicationHandleLocalOptionsCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationHandleLocalOptionsCallback
wrapped a
self = let ?self = a
self in (?self::a) => ApplicationHandleLocalOptionsCallback
cb
let wrapped' :: C_ApplicationHandleLocalOptionsCallback
wrapped' = forall a.
GObject a =>
(a -> ApplicationHandleLocalOptionsCallback)
-> C_ApplicationHandleLocalOptionsCallback
wrap_ApplicationHandleLocalOptionsCallback a -> ApplicationHandleLocalOptionsCallback
wrapped
FunPtr C_ApplicationHandleLocalOptionsCallback
wrapped'' <- C_ApplicationHandleLocalOptionsCallback
-> IO (FunPtr C_ApplicationHandleLocalOptionsCallback)
mk_ApplicationHandleLocalOptionsCallback C_ApplicationHandleLocalOptionsCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"handle-local-options" FunPtr C_ApplicationHandleLocalOptionsCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ApplicationHandleLocalOptionsSignalInfo
instance SignalInfo ApplicationHandleLocalOptionsSignalInfo where
type HaskellCallbackType ApplicationHandleLocalOptionsSignalInfo = ApplicationHandleLocalOptionsCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ApplicationHandleLocalOptionsCallback cb
cb'' <- mk_ApplicationHandleLocalOptionsCallback cb'
connectSignalFunPtr obj "handle-local-options" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application::handle-local-options"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#g:signal:handleLocalOptions"})
#endif
type ApplicationNameLostCallback =
IO Bool
type C_ApplicationNameLostCallback =
Ptr Application ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_ApplicationNameLostCallback :: C_ApplicationNameLostCallback -> IO (FunPtr C_ApplicationNameLostCallback)
wrap_ApplicationNameLostCallback ::
GObject a => (a -> ApplicationNameLostCallback) ->
C_ApplicationNameLostCallback
wrap_ApplicationNameLostCallback :: forall a.
GObject a =>
(a -> ApplicationNameLostCallback) -> C_ApplicationNameLostCallback
wrap_ApplicationNameLostCallback a -> ApplicationNameLostCallback
gi'cb Ptr Application
gi'selfPtr Ptr ()
_ = do
Bool
result <- forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Application
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \Application
gi'self -> a -> ApplicationNameLostCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce Application
gi'self)
let result' :: CInt
result' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Bool
result
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onApplicationNameLost :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationNameLostCallback) -> m SignalHandlerId
onApplicationNameLost :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a
-> ((?self::a) => ApplicationNameLostCallback) -> m SignalHandlerId
onApplicationNameLost a
obj (?self::a) => ApplicationNameLostCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationNameLostCallback
wrapped a
self = let ?self = a
self in (?self::a) => ApplicationNameLostCallback
cb
let wrapped' :: C_ApplicationNameLostCallback
wrapped' = forall a.
GObject a =>
(a -> ApplicationNameLostCallback) -> C_ApplicationNameLostCallback
wrap_ApplicationNameLostCallback a -> ApplicationNameLostCallback
wrapped
FunPtr C_ApplicationNameLostCallback
wrapped'' <- C_ApplicationNameLostCallback
-> IO (FunPtr C_ApplicationNameLostCallback)
mk_ApplicationNameLostCallback C_ApplicationNameLostCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"name-lost" FunPtr C_ApplicationNameLostCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterApplicationNameLost :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationNameLostCallback) -> m SignalHandlerId
afterApplicationNameLost :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a
-> ((?self::a) => ApplicationNameLostCallback) -> m SignalHandlerId
afterApplicationNameLost a
obj (?self::a) => ApplicationNameLostCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationNameLostCallback
wrapped a
self = let ?self = a
self in (?self::a) => ApplicationNameLostCallback
cb
let wrapped' :: C_ApplicationNameLostCallback
wrapped' = forall a.
GObject a =>
(a -> ApplicationNameLostCallback) -> C_ApplicationNameLostCallback
wrap_ApplicationNameLostCallback a -> ApplicationNameLostCallback
wrapped
FunPtr C_ApplicationNameLostCallback
wrapped'' <- C_ApplicationNameLostCallback
-> IO (FunPtr C_ApplicationNameLostCallback)
mk_ApplicationNameLostCallback C_ApplicationNameLostCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"name-lost" FunPtr C_ApplicationNameLostCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ApplicationNameLostSignalInfo
instance SignalInfo ApplicationNameLostSignalInfo where
type HaskellCallbackType ApplicationNameLostSignalInfo = ApplicationNameLostCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ApplicationNameLostCallback cb
cb'' <- mk_ApplicationNameLostCallback cb'
connectSignalFunPtr obj "name-lost" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application::name-lost"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#g:signal:nameLost"})
#endif
type ApplicationOpenCallback =
[Gio.File.File]
-> T.Text
-> IO ()
type C_ApplicationOpenCallback =
Ptr Application ->
Ptr (Ptr Gio.File.File) ->
Int32 ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ApplicationOpenCallback :: C_ApplicationOpenCallback -> IO (FunPtr C_ApplicationOpenCallback)
wrap_ApplicationOpenCallback ::
GObject a => (a -> ApplicationOpenCallback) ->
C_ApplicationOpenCallback
wrap_ApplicationOpenCallback :: forall a.
GObject a =>
(a -> ApplicationOpenCallback) -> C_ApplicationOpenCallback
wrap_ApplicationOpenCallback a -> ApplicationOpenCallback
gi'cb Ptr Application
gi'selfPtr Ptr (Ptr File)
files Int32
nFiles CString
hint Ptr ()
_ = do
[Ptr File]
files' <- (forall a b. Integral a => a -> Ptr (Ptr b) -> IO [Ptr b]
unpackPtrArrayWithLength Int32
nFiles) Ptr (Ptr File)
files
[File]
files'' <- forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr File -> File
Gio.File.File) [Ptr File]
files'
Text
hint' <- HasCallStack => CString -> IO Text
cstringToText CString
hint
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Application
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \Application
gi'self -> a -> ApplicationOpenCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce Application
gi'self) [File]
files'' Text
hint'
onApplicationOpen :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationOpenCallback) -> m SignalHandlerId
onApplicationOpen :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a -> ((?self::a) => ApplicationOpenCallback) -> m SignalHandlerId
onApplicationOpen a
obj (?self::a) => ApplicationOpenCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationOpenCallback
wrapped a
self = let ?self = a
self in (?self::a) => ApplicationOpenCallback
cb
let wrapped' :: C_ApplicationOpenCallback
wrapped' = forall a.
GObject a =>
(a -> ApplicationOpenCallback) -> C_ApplicationOpenCallback
wrap_ApplicationOpenCallback a -> ApplicationOpenCallback
wrapped
FunPtr C_ApplicationOpenCallback
wrapped'' <- C_ApplicationOpenCallback -> IO (FunPtr C_ApplicationOpenCallback)
mk_ApplicationOpenCallback C_ApplicationOpenCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"open" FunPtr C_ApplicationOpenCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterApplicationOpen :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationOpenCallback) -> m SignalHandlerId
afterApplicationOpen :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a -> ((?self::a) => ApplicationOpenCallback) -> m SignalHandlerId
afterApplicationOpen a
obj (?self::a) => ApplicationOpenCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationOpenCallback
wrapped a
self = let ?self = a
self in (?self::a) => ApplicationOpenCallback
cb
let wrapped' :: C_ApplicationOpenCallback
wrapped' = forall a.
GObject a =>
(a -> ApplicationOpenCallback) -> C_ApplicationOpenCallback
wrap_ApplicationOpenCallback a -> ApplicationOpenCallback
wrapped
FunPtr C_ApplicationOpenCallback
wrapped'' <- C_ApplicationOpenCallback -> IO (FunPtr C_ApplicationOpenCallback)
mk_ApplicationOpenCallback C_ApplicationOpenCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"open" FunPtr C_ApplicationOpenCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ApplicationOpenSignalInfo
instance SignalInfo ApplicationOpenSignalInfo where
type HaskellCallbackType ApplicationOpenSignalInfo = ApplicationOpenCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ApplicationOpenCallback cb
cb'' <- mk_ApplicationOpenCallback cb'
connectSignalFunPtr obj "open" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application::open"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#g:signal:open"})
#endif
type ApplicationShutdownCallback =
IO ()
type C_ApplicationShutdownCallback =
Ptr Application ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ApplicationShutdownCallback :: C_ApplicationShutdownCallback -> IO (FunPtr C_ApplicationShutdownCallback)
wrap_ApplicationShutdownCallback ::
GObject a => (a -> ApplicationShutdownCallback) ->
C_ApplicationShutdownCallback
wrap_ApplicationShutdownCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationActivateCallback
wrap_ApplicationShutdownCallback a -> IO ()
gi'cb Ptr Application
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Application
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \Application
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce Application
gi'self)
onApplicationShutdown :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationShutdownCallback) -> m SignalHandlerId
onApplicationShutdown :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onApplicationShutdown a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_ApplicationActivateCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationActivateCallback
wrap_ApplicationShutdownCallback a -> IO ()
wrapped
FunPtr C_ApplicationActivateCallback
wrapped'' <- C_ApplicationActivateCallback
-> IO (FunPtr C_ApplicationActivateCallback)
mk_ApplicationShutdownCallback C_ApplicationActivateCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"shutdown" FunPtr C_ApplicationActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterApplicationShutdown :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationShutdownCallback) -> m SignalHandlerId
afterApplicationShutdown :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterApplicationShutdown a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_ApplicationActivateCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationActivateCallback
wrap_ApplicationShutdownCallback a -> IO ()
wrapped
FunPtr C_ApplicationActivateCallback
wrapped'' <- C_ApplicationActivateCallback
-> IO (FunPtr C_ApplicationActivateCallback)
mk_ApplicationShutdownCallback C_ApplicationActivateCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"shutdown" FunPtr C_ApplicationActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ApplicationShutdownSignalInfo
instance SignalInfo ApplicationShutdownSignalInfo where
type HaskellCallbackType ApplicationShutdownSignalInfo = ApplicationShutdownCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ApplicationShutdownCallback cb
cb'' <- mk_ApplicationShutdownCallback cb'
connectSignalFunPtr obj "shutdown" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application::shutdown"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#g:signal:shutdown"})
#endif
type ApplicationStartupCallback =
IO ()
type C_ApplicationStartupCallback =
Ptr Application ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ApplicationStartupCallback :: C_ApplicationStartupCallback -> IO (FunPtr C_ApplicationStartupCallback)
wrap_ApplicationStartupCallback ::
GObject a => (a -> ApplicationStartupCallback) ->
C_ApplicationStartupCallback
wrap_ApplicationStartupCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationActivateCallback
wrap_ApplicationStartupCallback a -> IO ()
gi'cb Ptr Application
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Application
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \Application
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce Application
gi'self)
onApplicationStartup :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationStartupCallback) -> m SignalHandlerId
onApplicationStartup :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onApplicationStartup a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_ApplicationActivateCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationActivateCallback
wrap_ApplicationStartupCallback a -> IO ()
wrapped
FunPtr C_ApplicationActivateCallback
wrapped'' <- C_ApplicationActivateCallback
-> IO (FunPtr C_ApplicationActivateCallback)
mk_ApplicationStartupCallback C_ApplicationActivateCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"startup" FunPtr C_ApplicationActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterApplicationStartup :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationStartupCallback) -> m SignalHandlerId
afterApplicationStartup :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterApplicationStartup a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_ApplicationActivateCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationActivateCallback
wrap_ApplicationStartupCallback a -> IO ()
wrapped
FunPtr C_ApplicationActivateCallback
wrapped'' <- C_ApplicationActivateCallback
-> IO (FunPtr C_ApplicationActivateCallback)
mk_ApplicationStartupCallback C_ApplicationActivateCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"startup" FunPtr C_ApplicationActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ApplicationStartupSignalInfo
instance SignalInfo ApplicationStartupSignalInfo where
type HaskellCallbackType ApplicationStartupSignalInfo = ApplicationStartupCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ApplicationStartupCallback cb
cb'' <- mk_ApplicationStartupCallback cb'
connectSignalFunPtr obj "startup" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application::startup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#g:signal:startup"})
#endif
setApplicationActionGroup :: (MonadIO m, IsApplication o, Gio.ActionGroup.IsActionGroup a) => o -> a -> m ()
setApplicationActionGroup :: forall (m :: * -> *) o a.
(MonadIO m, IsApplication o, IsActionGroup a) =>
o -> a -> m ()
setApplicationActionGroup o
obj a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"action-group" (forall a. a -> Maybe a
Just a
val)
constructApplicationActionGroup :: (IsApplication o, MIO.MonadIO m, Gio.ActionGroup.IsActionGroup a) => a -> m (GValueConstruct o)
constructApplicationActionGroup :: forall o (m :: * -> *) a.
(IsApplication o, MonadIO m, IsActionGroup a) =>
a -> m (GValueConstruct o)
constructApplicationActionGroup a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"action-group" (forall a. a -> Maybe a
P.Just a
val)
clearApplicationActionGroup :: (MonadIO m, IsApplication o) => o -> m ()
clearApplicationActionGroup :: forall (m :: * -> *) o. (MonadIO m, IsApplication o) => o -> m ()
clearApplicationActionGroup o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"action-group" (forall a. Maybe a
Nothing :: Maybe Gio.ActionGroup.ActionGroup)
#if defined(ENABLE_OVERLOADING)
data ApplicationActionGroupPropertyInfo
instance AttrInfo ApplicationActionGroupPropertyInfo where
type AttrAllowedOps ApplicationActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint ApplicationActionGroupPropertyInfo = IsApplication
type AttrSetTypeConstraint ApplicationActionGroupPropertyInfo = Gio.ActionGroup.IsActionGroup
type AttrTransferTypeConstraint ApplicationActionGroupPropertyInfo = Gio.ActionGroup.IsActionGroup
type AttrTransferType ApplicationActionGroupPropertyInfo = Gio.ActionGroup.ActionGroup
type AttrGetType ApplicationActionGroupPropertyInfo = ()
type AttrLabel ApplicationActionGroupPropertyInfo = "action-group"
type AttrOrigin ApplicationActionGroupPropertyInfo = Application
attrGet = undefined
attrSet = setApplicationActionGroup
attrTransfer _ v = do
unsafeCastTo Gio.ActionGroup.ActionGroup v
attrConstruct = constructApplicationActionGroup
attrClear = clearApplicationActionGroup
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.actionGroup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#g:attr:actionGroup"
})
#endif
getApplicationApplicationId :: (MonadIO m, IsApplication o) => o -> m (Maybe T.Text)
getApplicationApplicationId :: forall (m :: * -> *) o.
(MonadIO m, IsApplication o) =>
o -> m (Maybe Text)
getApplicationApplicationId o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"application-id"
setApplicationApplicationId :: (MonadIO m, IsApplication o) => o -> T.Text -> m ()
setApplicationApplicationId :: forall (m :: * -> *) o.
(MonadIO m, IsApplication o) =>
o -> Text -> m ()
setApplicationApplicationId o
obj Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"application-id" (forall a. a -> Maybe a
Just Text
val)
constructApplicationApplicationId :: (IsApplication o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructApplicationApplicationId :: forall o (m :: * -> *).
(IsApplication o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructApplicationApplicationId Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"application-id" (forall a. a -> Maybe a
P.Just Text
val)
clearApplicationApplicationId :: (MonadIO m, IsApplication o) => o -> m ()
clearApplicationApplicationId :: forall (m :: * -> *) o. (MonadIO m, IsApplication o) => o -> m ()
clearApplicationApplicationId o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"application-id" (forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ApplicationApplicationIdPropertyInfo
instance AttrInfo ApplicationApplicationIdPropertyInfo where
type AttrAllowedOps ApplicationApplicationIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ApplicationApplicationIdPropertyInfo = IsApplication
type AttrSetTypeConstraint ApplicationApplicationIdPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ApplicationApplicationIdPropertyInfo = (~) T.Text
type AttrTransferType ApplicationApplicationIdPropertyInfo = T.Text
type AttrGetType ApplicationApplicationIdPropertyInfo = (Maybe T.Text)
type AttrLabel ApplicationApplicationIdPropertyInfo = "application-id"
type AttrOrigin ApplicationApplicationIdPropertyInfo = Application
attrGet = getApplicationApplicationId
attrSet = setApplicationApplicationId
attrTransfer _ v = do
return v
attrConstruct = constructApplicationApplicationId
attrClear = clearApplicationApplicationId
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationId"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#g:attr:applicationId"
})
#endif
getApplicationFlags :: (MonadIO m, IsApplication o) => o -> m [Gio.Flags.ApplicationFlags]
getApplicationFlags :: forall (m :: * -> *) o.
(MonadIO m, IsApplication o) =>
o -> m [ApplicationFlags]
getApplicationFlags o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"flags"
setApplicationFlags :: (MonadIO m, IsApplication o) => o -> [Gio.Flags.ApplicationFlags] -> m ()
setApplicationFlags :: forall (m :: * -> *) o.
(MonadIO m, IsApplication o) =>
o -> [ApplicationFlags] -> m ()
setApplicationFlags o
obj [ApplicationFlags]
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(IsGFlag b, BoxedFlags b, GObject a) =>
a -> String -> [b] -> IO ()
B.Properties.setObjectPropertyFlags o
obj String
"flags" [ApplicationFlags]
val
constructApplicationFlags :: (IsApplication o, MIO.MonadIO m) => [Gio.Flags.ApplicationFlags] -> m (GValueConstruct o)
constructApplicationFlags :: forall o (m :: * -> *).
(IsApplication o, MonadIO m) =>
[ApplicationFlags] -> m (GValueConstruct o)
constructApplicationFlags [ApplicationFlags]
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags String
"flags" [ApplicationFlags]
val
#if defined(ENABLE_OVERLOADING)
data ApplicationFlagsPropertyInfo
instance AttrInfo ApplicationFlagsPropertyInfo where
type AttrAllowedOps ApplicationFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ApplicationFlagsPropertyInfo = IsApplication
type AttrSetTypeConstraint ApplicationFlagsPropertyInfo = (~) [Gio.Flags.ApplicationFlags]
type AttrTransferTypeConstraint ApplicationFlagsPropertyInfo = (~) [Gio.Flags.ApplicationFlags]
type AttrTransferType ApplicationFlagsPropertyInfo = [Gio.Flags.ApplicationFlags]
type AttrGetType ApplicationFlagsPropertyInfo = [Gio.Flags.ApplicationFlags]
type AttrLabel ApplicationFlagsPropertyInfo = "flags"
type AttrOrigin ApplicationFlagsPropertyInfo = Application
attrGet = getApplicationFlags
attrSet = setApplicationFlags
attrTransfer _ v = do
return v
attrConstruct = constructApplicationFlags
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.flags"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#g:attr:flags"
})
#endif
getApplicationInactivityTimeout :: (MonadIO m, IsApplication o) => o -> m Word32
getApplicationInactivityTimeout :: forall (m :: * -> *) o.
(MonadIO m, IsApplication o) =>
o -> m Word32
getApplicationInactivityTimeout o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"inactivity-timeout"
setApplicationInactivityTimeout :: (MonadIO m, IsApplication o) => o -> Word32 -> m ()
setApplicationInactivityTimeout :: forall (m :: * -> *) o.
(MonadIO m, IsApplication o) =>
o -> Word32 -> m ()
setApplicationInactivityTimeout o
obj Word32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"inactivity-timeout" Word32
val
constructApplicationInactivityTimeout :: (IsApplication o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructApplicationInactivityTimeout :: forall o (m :: * -> *).
(IsApplication o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructApplicationInactivityTimeout Word32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"inactivity-timeout" Word32
val
#if defined(ENABLE_OVERLOADING)
data ApplicationInactivityTimeoutPropertyInfo
instance AttrInfo ApplicationInactivityTimeoutPropertyInfo where
type AttrAllowedOps ApplicationInactivityTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ApplicationInactivityTimeoutPropertyInfo = IsApplication
type AttrSetTypeConstraint ApplicationInactivityTimeoutPropertyInfo = (~) Word32
type AttrTransferTypeConstraint ApplicationInactivityTimeoutPropertyInfo = (~) Word32
type AttrTransferType ApplicationInactivityTimeoutPropertyInfo = Word32
type AttrGetType ApplicationInactivityTimeoutPropertyInfo = Word32
type AttrLabel ApplicationInactivityTimeoutPropertyInfo = "inactivity-timeout"
type AttrOrigin ApplicationInactivityTimeoutPropertyInfo = Application
attrGet = getApplicationInactivityTimeout
attrSet = setApplicationInactivityTimeout
attrTransfer _ v = do
return v
attrConstruct = constructApplicationInactivityTimeout
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.inactivityTimeout"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#g:attr:inactivityTimeout"
})
#endif
getApplicationIsBusy :: (MonadIO m, IsApplication o) => o -> m Bool
getApplicationIsBusy :: forall (m :: * -> *) o. (MonadIO m, IsApplication o) => o -> m Bool
getApplicationIsBusy o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> ApplicationNameLostCallback
B.Properties.getObjectPropertyBool o
obj String
"is-busy"
#if defined(ENABLE_OVERLOADING)
data ApplicationIsBusyPropertyInfo
instance AttrInfo ApplicationIsBusyPropertyInfo where
type AttrAllowedOps ApplicationIsBusyPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ApplicationIsBusyPropertyInfo = IsApplication
type AttrSetTypeConstraint ApplicationIsBusyPropertyInfo = (~) ()
type AttrTransferTypeConstraint ApplicationIsBusyPropertyInfo = (~) ()
type AttrTransferType ApplicationIsBusyPropertyInfo = ()
type AttrGetType ApplicationIsBusyPropertyInfo = Bool
type AttrLabel ApplicationIsBusyPropertyInfo = "is-busy"
type AttrOrigin ApplicationIsBusyPropertyInfo = Application
attrGet = getApplicationIsBusy
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.isBusy"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#g:attr:isBusy"
})
#endif
getApplicationIsRegistered :: (MonadIO m, IsApplication o) => o -> m Bool
getApplicationIsRegistered :: forall (m :: * -> *) o. (MonadIO m, IsApplication o) => o -> m Bool
getApplicationIsRegistered o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> ApplicationNameLostCallback
B.Properties.getObjectPropertyBool o
obj String
"is-registered"
#if defined(ENABLE_OVERLOADING)
data ApplicationIsRegisteredPropertyInfo
instance AttrInfo ApplicationIsRegisteredPropertyInfo where
type AttrAllowedOps ApplicationIsRegisteredPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ApplicationIsRegisteredPropertyInfo = IsApplication
type AttrSetTypeConstraint ApplicationIsRegisteredPropertyInfo = (~) ()
type AttrTransferTypeConstraint ApplicationIsRegisteredPropertyInfo = (~) ()
type AttrTransferType ApplicationIsRegisteredPropertyInfo = ()
type AttrGetType ApplicationIsRegisteredPropertyInfo = Bool
type AttrLabel ApplicationIsRegisteredPropertyInfo = "is-registered"
type AttrOrigin ApplicationIsRegisteredPropertyInfo = Application
attrGet = getApplicationIsRegistered
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.isRegistered"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#g:attr:isRegistered"
})
#endif
getApplicationIsRemote :: (MonadIO m, IsApplication o) => o -> m Bool
getApplicationIsRemote :: forall (m :: * -> *) o. (MonadIO m, IsApplication o) => o -> m Bool
getApplicationIsRemote o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> ApplicationNameLostCallback
B.Properties.getObjectPropertyBool o
obj String
"is-remote"
#if defined(ENABLE_OVERLOADING)
data ApplicationIsRemotePropertyInfo
instance AttrInfo ApplicationIsRemotePropertyInfo where
type AttrAllowedOps ApplicationIsRemotePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ApplicationIsRemotePropertyInfo = IsApplication
type AttrSetTypeConstraint ApplicationIsRemotePropertyInfo = (~) ()
type AttrTransferTypeConstraint ApplicationIsRemotePropertyInfo = (~) ()
type AttrTransferType ApplicationIsRemotePropertyInfo = ()
type AttrGetType ApplicationIsRemotePropertyInfo = Bool
type AttrLabel ApplicationIsRemotePropertyInfo = "is-remote"
type AttrOrigin ApplicationIsRemotePropertyInfo = Application
attrGet = getApplicationIsRemote
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.isRemote"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#g:attr:isRemote"
})
#endif
getApplicationResourceBasePath :: (MonadIO m, IsApplication o) => o -> m (Maybe T.Text)
getApplicationResourceBasePath :: forall (m :: * -> *) o.
(MonadIO m, IsApplication o) =>
o -> m (Maybe Text)
getApplicationResourceBasePath o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"resource-base-path"
setApplicationResourceBasePath :: (MonadIO m, IsApplication o) => o -> T.Text -> m ()
setApplicationResourceBasePath :: forall (m :: * -> *) o.
(MonadIO m, IsApplication o) =>
o -> Text -> m ()
setApplicationResourceBasePath o
obj Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"resource-base-path" (forall a. a -> Maybe a
Just Text
val)
constructApplicationResourceBasePath :: (IsApplication o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructApplicationResourceBasePath :: forall o (m :: * -> *).
(IsApplication o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructApplicationResourceBasePath Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"resource-base-path" (forall a. a -> Maybe a
P.Just Text
val)
clearApplicationResourceBasePath :: (MonadIO m, IsApplication o) => o -> m ()
clearApplicationResourceBasePath :: forall (m :: * -> *) o. (MonadIO m, IsApplication o) => o -> m ()
clearApplicationResourceBasePath o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"resource-base-path" (forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ApplicationResourceBasePathPropertyInfo
instance AttrInfo ApplicationResourceBasePathPropertyInfo where
type AttrAllowedOps ApplicationResourceBasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ApplicationResourceBasePathPropertyInfo = IsApplication
type AttrSetTypeConstraint ApplicationResourceBasePathPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ApplicationResourceBasePathPropertyInfo = (~) T.Text
type AttrTransferType ApplicationResourceBasePathPropertyInfo = T.Text
type AttrGetType ApplicationResourceBasePathPropertyInfo = (Maybe T.Text)
type AttrLabel ApplicationResourceBasePathPropertyInfo = "resource-base-path"
type AttrOrigin ApplicationResourceBasePathPropertyInfo = Application
attrGet = getApplicationResourceBasePath
attrSet = setApplicationResourceBasePath
attrTransfer _ v = do
return v
attrConstruct = constructApplicationResourceBasePath
attrClear = clearApplicationResourceBasePath
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.resourceBasePath"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#g:attr:resourceBasePath"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Application
type instance O.AttributeList Application = ApplicationAttributeList
type ApplicationAttributeList = ('[ '("actionGroup", ApplicationActionGroupPropertyInfo), '("applicationId", ApplicationApplicationIdPropertyInfo), '("flags", ApplicationFlagsPropertyInfo), '("inactivityTimeout", ApplicationInactivityTimeoutPropertyInfo), '("isBusy", ApplicationIsBusyPropertyInfo), '("isRegistered", ApplicationIsRegisteredPropertyInfo), '("isRemote", ApplicationIsRemotePropertyInfo), '("resourceBasePath", ApplicationResourceBasePathPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
applicationActionGroup :: AttrLabelProxy "actionGroup"
applicationActionGroup = AttrLabelProxy
applicationApplicationId :: AttrLabelProxy "applicationId"
applicationApplicationId = AttrLabelProxy
applicationFlags :: AttrLabelProxy "flags"
applicationFlags = AttrLabelProxy
applicationInactivityTimeout :: AttrLabelProxy "inactivityTimeout"
applicationInactivityTimeout = AttrLabelProxy
applicationIsBusy :: AttrLabelProxy "isBusy"
applicationIsBusy = AttrLabelProxy
applicationIsRegistered :: AttrLabelProxy "isRegistered"
applicationIsRegistered = AttrLabelProxy
applicationIsRemote :: AttrLabelProxy "isRemote"
applicationIsRemote = AttrLabelProxy
applicationResourceBasePath :: AttrLabelProxy "resourceBasePath"
applicationResourceBasePath = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Application = ApplicationSignalList
type ApplicationSignalList = ('[ '("actionAdded", Gio.ActionGroup.ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", Gio.ActionGroup.ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", Gio.ActionGroup.ActionGroupActionRemovedSignalInfo), '("actionStateChanged", Gio.ActionGroup.ActionGroupActionStateChangedSignalInfo), '("activate", ApplicationActivateSignalInfo), '("commandLine", ApplicationCommandLineSignalInfo), '("handleLocalOptions", ApplicationHandleLocalOptionsSignalInfo), '("nameLost", ApplicationNameLostSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("open", ApplicationOpenSignalInfo), '("shutdown", ApplicationShutdownSignalInfo), '("startup", ApplicationStartupSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_application_new" g_application_new ::
CString ->
CUInt ->
IO (Ptr Application)
applicationNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Maybe (T.Text)
-> [Gio.Flags.ApplicationFlags]
-> m (Maybe Application)
applicationNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Maybe Text -> [ApplicationFlags] -> m (Maybe Application)
applicationNew Maybe Text
applicationId [ApplicationFlags]
flags = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
CString
maybeApplicationId <- case Maybe Text
applicationId of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jApplicationId -> do
CString
jApplicationId' <- Text -> IO CString
textToCString Text
jApplicationId
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jApplicationId'
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ApplicationFlags]
flags
Ptr Application
result <- CString -> CUInt -> IO (Ptr Application)
g_application_new CString
maybeApplicationId CUInt
flags'
Maybe Application
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Application
result forall a b. (a -> b) -> a -> b
$ \Ptr Application
result' -> do
Application
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Application -> Application
Application) Ptr Application
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Application
result''
forall a. Ptr a -> IO ()
freeMem CString
maybeApplicationId
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Application
maybeResult
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "g_application_activate" g_application_activate ::
Ptr Application ->
IO ()
applicationActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m ()
applicationActivate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m ()
applicationActivate a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Application -> IO ()
g_application_activate Ptr Application
application'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationActivateMethodInfo
instance (signature ~ (m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationActivateMethodInfo a signature where
overloadedMethod = applicationActivate
instance O.OverloadedMethodInfo ApplicationActivateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationActivate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationActivate"
})
#endif
foreign import ccall "g_application_add_main_option" g_application_add_main_option ::
Ptr Application ->
CString ->
Int8 ->
CUInt ->
CUInt ->
CString ->
CString ->
IO ()
applicationAddMainOption ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> T.Text
-> Int8
-> [GLib.Flags.OptionFlags]
-> GLib.Enums.OptionArg
-> T.Text
-> Maybe (T.Text)
-> m ()
applicationAddMainOption :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a
-> Text
-> Int8
-> [OptionFlags]
-> OptionArg
-> Text
-> Maybe Text
-> m ()
applicationAddMainOption a
application Text
longName Int8
shortName [OptionFlags]
flags OptionArg
arg Text
description Maybe Text
argDescription = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
CString
longName' <- Text -> IO CString
textToCString Text
longName
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [OptionFlags]
flags
let arg' :: CUInt
arg' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) OptionArg
arg
CString
description' <- Text -> IO CString
textToCString Text
description
CString
maybeArgDescription <- case Maybe Text
argDescription of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jArgDescription -> do
CString
jArgDescription' <- Text -> IO CString
textToCString Text
jArgDescription
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jArgDescription'
Ptr Application
-> CString -> Int8 -> CUInt -> CUInt -> CString -> CString -> IO ()
g_application_add_main_option Ptr Application
application' CString
longName' Int8
shortName CUInt
flags' CUInt
arg' CString
description' CString
maybeArgDescription
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. Ptr a -> IO ()
freeMem CString
longName'
forall a. Ptr a -> IO ()
freeMem CString
description'
forall a. Ptr a -> IO ()
freeMem CString
maybeArgDescription
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationAddMainOptionMethodInfo
instance (signature ~ (T.Text -> Int8 -> [GLib.Flags.OptionFlags] -> GLib.Enums.OptionArg -> T.Text -> Maybe (T.Text) -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationAddMainOptionMethodInfo a signature where
overloadedMethod = applicationAddMainOption
instance O.OverloadedMethodInfo ApplicationAddMainOptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationAddMainOption",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationAddMainOption"
})
#endif
foreign import ccall "g_application_add_main_option_entries" g_application_add_main_option_entries ::
Ptr Application ->
Ptr (Ptr GLib.OptionEntry.OptionEntry) ->
IO ()
applicationAddMainOptionEntries ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> [GLib.OptionEntry.OptionEntry]
-> m ()
applicationAddMainOptionEntries :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> [OptionEntry] -> m ()
applicationAddMainOptionEntries a
application [OptionEntry]
entries = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
[Ptr OptionEntry]
entries' <- forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [OptionEntry]
entries
Ptr (Ptr OptionEntry)
entries'' <- forall a. [Ptr a] -> IO (Ptr (Ptr a))
packZeroTerminatedPtrArray [Ptr OptionEntry]
entries'
Ptr Application -> Ptr (Ptr OptionEntry) -> IO ()
g_application_add_main_option_entries Ptr Application
application' Ptr (Ptr OptionEntry)
entries''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [OptionEntry]
entries
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr OptionEntry)
entries''
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationAddMainOptionEntriesMethodInfo
instance (signature ~ ([GLib.OptionEntry.OptionEntry] -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationAddMainOptionEntriesMethodInfo a signature where
overloadedMethod = applicationAddMainOptionEntries
instance O.OverloadedMethodInfo ApplicationAddMainOptionEntriesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationAddMainOptionEntries",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationAddMainOptionEntries"
})
#endif
foreign import ccall "g_application_add_option_group" g_application_add_option_group ::
Ptr Application ->
Ptr GLib.OptionGroup.OptionGroup ->
IO ()
applicationAddOptionGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> GLib.OptionGroup.OptionGroup
-> m ()
applicationAddOptionGroup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> OptionGroup -> m ()
applicationAddOptionGroup a
application OptionGroup
group = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr OptionGroup
group' <- forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed OptionGroup
group
Ptr Application -> Ptr OptionGroup -> IO ()
g_application_add_option_group Ptr Application
application' Ptr OptionGroup
group'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr OptionGroup
group
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationAddOptionGroupMethodInfo
instance (signature ~ (GLib.OptionGroup.OptionGroup -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationAddOptionGroupMethodInfo a signature where
overloadedMethod = applicationAddOptionGroup
instance O.OverloadedMethodInfo ApplicationAddOptionGroupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationAddOptionGroup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationAddOptionGroup"
})
#endif
foreign import ccall "g_application_bind_busy_property" g_application_bind_busy_property ::
Ptr Application ->
Ptr GObject.Object.Object ->
CString ->
IO ()
applicationBindBusyProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a, GObject.Object.IsObject b) =>
a
-> b
-> T.Text
-> m ()
applicationBindBusyProperty :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsApplication a, IsObject b) =>
a -> b -> Text -> m ()
applicationBindBusyProperty a
application b
object Text
property = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Object
object' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
object
CString
property' <- Text -> IO CString
textToCString Text
property
Ptr Application -> Ptr Object -> CString -> IO ()
g_application_bind_busy_property Ptr Application
application' Ptr Object
object' CString
property'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
object
forall a. Ptr a -> IO ()
freeMem CString
property'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationBindBusyPropertyMethodInfo
instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsApplication a, GObject.Object.IsObject b) => O.OverloadedMethod ApplicationBindBusyPropertyMethodInfo a signature where
overloadedMethod = applicationBindBusyProperty
instance O.OverloadedMethodInfo ApplicationBindBusyPropertyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationBindBusyProperty",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationBindBusyProperty"
})
#endif
foreign import ccall "g_application_get_application_id" g_application_get_application_id ::
Ptr Application ->
IO CString
applicationGetApplicationId ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m (Maybe T.Text)
applicationGetApplicationId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m (Maybe Text)
applicationGetApplicationId a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
CString
result <- Ptr Application -> IO CString
g_application_get_application_id Ptr Application
application'
Maybe Text
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
cstringToText CString
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data ApplicationGetApplicationIdMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetApplicationIdMethodInfo a signature where
overloadedMethod = applicationGetApplicationId
instance O.OverloadedMethodInfo ApplicationGetApplicationIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationGetApplicationId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationGetApplicationId"
})
#endif
foreign import ccall "g_application_get_dbus_connection" g_application_get_dbus_connection ::
Ptr Application ->
IO (Ptr Gio.DBusConnection.DBusConnection)
applicationGetDbusConnection ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m (Maybe Gio.DBusConnection.DBusConnection)
applicationGetDbusConnection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m (Maybe DBusConnection)
applicationGetDbusConnection a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr DBusConnection
result <- Ptr Application -> IO (Ptr DBusConnection)
g_application_get_dbus_connection Ptr Application
application'
Maybe DBusConnection
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr DBusConnection
result forall a b. (a -> b) -> a -> b
$ \Ptr DBusConnection
result' -> do
DBusConnection
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DBusConnection -> DBusConnection
Gio.DBusConnection.DBusConnection) Ptr DBusConnection
result'
forall (m :: * -> *) a. Monad m => a -> m a
return DBusConnection
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DBusConnection
maybeResult
#if defined(ENABLE_OVERLOADING)
data ApplicationGetDbusConnectionMethodInfo
instance (signature ~ (m (Maybe Gio.DBusConnection.DBusConnection)), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetDbusConnectionMethodInfo a signature where
overloadedMethod = applicationGetDbusConnection
instance O.OverloadedMethodInfo ApplicationGetDbusConnectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationGetDbusConnection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationGetDbusConnection"
})
#endif
foreign import ccall "g_application_get_dbus_object_path" g_application_get_dbus_object_path ::
Ptr Application ->
IO CString
applicationGetDbusObjectPath ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m (Maybe T.Text)
applicationGetDbusObjectPath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m (Maybe Text)
applicationGetDbusObjectPath a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
CString
result <- Ptr Application -> IO CString
g_application_get_dbus_object_path Ptr Application
application'
Maybe Text
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
cstringToText CString
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data ApplicationGetDbusObjectPathMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetDbusObjectPathMethodInfo a signature where
overloadedMethod = applicationGetDbusObjectPath
instance O.OverloadedMethodInfo ApplicationGetDbusObjectPathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationGetDbusObjectPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationGetDbusObjectPath"
})
#endif
foreign import ccall "g_application_get_flags" g_application_get_flags ::
Ptr Application ->
IO CUInt
applicationGetFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m [Gio.Flags.ApplicationFlags]
applicationGetFlags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m [ApplicationFlags]
applicationGetFlags a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
CUInt
result <- Ptr Application -> IO CUInt
g_application_get_flags Ptr Application
application'
let result' :: [ApplicationFlags]
result' = forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return [ApplicationFlags]
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationGetFlagsMethodInfo
instance (signature ~ (m [Gio.Flags.ApplicationFlags]), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetFlagsMethodInfo a signature where
overloadedMethod = applicationGetFlags
instance O.OverloadedMethodInfo ApplicationGetFlagsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationGetFlags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationGetFlags"
})
#endif
foreign import ccall "g_application_get_inactivity_timeout" g_application_get_inactivity_timeout ::
Ptr Application ->
IO Word32
applicationGetInactivityTimeout ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m Word32
applicationGetInactivityTimeout :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m Word32
applicationGetInactivityTimeout a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Word32
result <- Ptr Application -> IO Word32
g_application_get_inactivity_timeout Ptr Application
application'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data ApplicationGetInactivityTimeoutMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetInactivityTimeoutMethodInfo a signature where
overloadedMethod = applicationGetInactivityTimeout
instance O.OverloadedMethodInfo ApplicationGetInactivityTimeoutMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationGetInactivityTimeout",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationGetInactivityTimeout"
})
#endif
foreign import ccall "g_application_get_is_busy" g_application_get_is_busy ::
Ptr Application ->
IO CInt
applicationGetIsBusy ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m Bool
applicationGetIsBusy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m Bool
applicationGetIsBusy a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
CInt
result <- Ptr Application -> IO CInt
g_application_get_is_busy Ptr Application
application'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationGetIsBusyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetIsBusyMethodInfo a signature where
overloadedMethod = applicationGetIsBusy
instance O.OverloadedMethodInfo ApplicationGetIsBusyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationGetIsBusy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationGetIsBusy"
})
#endif
foreign import ccall "g_application_get_is_registered" g_application_get_is_registered ::
Ptr Application ->
IO CInt
applicationGetIsRegistered ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m Bool
applicationGetIsRegistered :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m Bool
applicationGetIsRegistered a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
CInt
result <- Ptr Application -> IO CInt
g_application_get_is_registered Ptr Application
application'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationGetIsRegisteredMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetIsRegisteredMethodInfo a signature where
overloadedMethod = applicationGetIsRegistered
instance O.OverloadedMethodInfo ApplicationGetIsRegisteredMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationGetIsRegistered",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationGetIsRegistered"
})
#endif
foreign import ccall "g_application_get_is_remote" g_application_get_is_remote ::
Ptr Application ->
IO CInt
applicationGetIsRemote ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m Bool
applicationGetIsRemote :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m Bool
applicationGetIsRemote a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
CInt
result <- Ptr Application -> IO CInt
g_application_get_is_remote Ptr Application
application'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationGetIsRemoteMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetIsRemoteMethodInfo a signature where
overloadedMethod = applicationGetIsRemote
instance O.OverloadedMethodInfo ApplicationGetIsRemoteMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationGetIsRemote",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationGetIsRemote"
})
#endif
foreign import ccall "g_application_get_resource_base_path" g_application_get_resource_base_path ::
Ptr Application ->
IO CString
applicationGetResourceBasePath ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m (Maybe T.Text)
applicationGetResourceBasePath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m (Maybe Text)
applicationGetResourceBasePath a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
CString
result <- Ptr Application -> IO CString
g_application_get_resource_base_path Ptr Application
application'
Maybe Text
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
cstringToText CString
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data ApplicationGetResourceBasePathMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetResourceBasePathMethodInfo a signature where
overloadedMethod = applicationGetResourceBasePath
instance O.OverloadedMethodInfo ApplicationGetResourceBasePathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationGetResourceBasePath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationGetResourceBasePath"
})
#endif
foreign import ccall "g_application_hold" g_application_hold ::
Ptr Application ->
IO ()
applicationHold ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m ()
applicationHold :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m ()
applicationHold a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Application -> IO ()
g_application_hold Ptr Application
application'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationHoldMethodInfo
instance (signature ~ (m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationHoldMethodInfo a signature where
overloadedMethod = applicationHold
instance O.OverloadedMethodInfo ApplicationHoldMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationHold",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationHold"
})
#endif
foreign import ccall "g_application_mark_busy" g_application_mark_busy ::
Ptr Application ->
IO ()
applicationMarkBusy ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m ()
applicationMarkBusy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m ()
applicationMarkBusy a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Application -> IO ()
g_application_mark_busy Ptr Application
application'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationMarkBusyMethodInfo
instance (signature ~ (m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationMarkBusyMethodInfo a signature where
overloadedMethod = applicationMarkBusy
instance O.OverloadedMethodInfo ApplicationMarkBusyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationMarkBusy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationMarkBusy"
})
#endif
foreign import ccall "g_application_open" g_application_open ::
Ptr Application ->
Ptr (Ptr Gio.File.File) ->
Int32 ->
CString ->
IO ()
applicationOpen ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> [Gio.File.File]
-> T.Text
-> m ()
applicationOpen :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> [File] -> Text -> m ()
applicationOpen a
application [File]
files Text
hint = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let nFiles :: Int32
nFiles = forall a b. (Integral a, Num b) => a -> b
fromIntegral forall a b. (a -> b) -> a -> b
$ forall (t :: * -> *) a. Foldable t => t a -> Int
P.length [File]
files
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
[Ptr File]
files' <- forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr [File]
files
Ptr (Ptr File)
files'' <- forall a. [Ptr a] -> IO (Ptr (Ptr a))
packPtrArray [Ptr File]
files'
CString
hint' <- Text -> IO CString
textToCString Text
hint
Ptr Application -> Ptr (Ptr File) -> Int32 -> CString -> IO ()
g_application_open Ptr Application
application' Ptr (Ptr File)
files'' Int32
nFiles CString
hint'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [File]
files
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr File)
files''
forall a. Ptr a -> IO ()
freeMem CString
hint'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationOpenMethodInfo
instance (signature ~ ([Gio.File.File] -> T.Text -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationOpenMethodInfo a signature where
overloadedMethod = applicationOpen
instance O.OverloadedMethodInfo ApplicationOpenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationOpen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationOpen"
})
#endif
foreign import ccall "g_application_quit" g_application_quit ::
Ptr Application ->
IO ()
applicationQuit ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m ()
applicationQuit :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m ()
applicationQuit a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Application -> IO ()
g_application_quit Ptr Application
application'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationQuitMethodInfo
instance (signature ~ (m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationQuitMethodInfo a signature where
overloadedMethod = applicationQuit
instance O.OverloadedMethodInfo ApplicationQuitMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationQuit",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationQuit"
})
#endif
foreign import ccall "g_application_register" g_application_register ::
Ptr Application ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO CInt
applicationRegister ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a, Gio.Cancellable.IsCancellable b) =>
a
-> Maybe (b)
-> m ()
applicationRegister :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsApplication a, IsCancellable b) =>
a -> Maybe b -> m ()
applicationRegister a
application Maybe b
cancellable = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr Application -> Ptr Cancellable -> Ptr (Ptr GError) -> IO CInt
g_application_register Ptr Application
application' Ptr Cancellable
maybeCancellable
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data ApplicationRegisterMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsApplication a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod ApplicationRegisterMethodInfo a signature where
overloadedMethod = applicationRegister
instance O.OverloadedMethodInfo ApplicationRegisterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationRegister",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationRegister"
})
#endif
foreign import ccall "g_application_release" g_application_release ::
Ptr Application ->
IO ()
applicationRelease ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m ()
applicationRelease :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m ()
applicationRelease a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Application -> IO ()
g_application_release Ptr Application
application'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationReleaseMethodInfo
instance (signature ~ (m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationReleaseMethodInfo a signature where
overloadedMethod = applicationRelease
instance O.OverloadedMethodInfo ApplicationReleaseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationRelease",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationRelease"
})
#endif
foreign import ccall "g_application_run" g_application_run ::
Ptr Application ->
Int32 ->
Ptr CString ->
IO Int32
applicationRun ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> Maybe ([[Char]])
-> m Int32
applicationRun :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> Maybe [String] -> m Int32
applicationRun a
application Maybe [String]
argv = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let argc :: Int32
argc = case Maybe [String]
argv of
Maybe [String]
Nothing -> Int32
0
Just [String]
jArgv -> forall a b. (Integral a, Num b) => a -> b
fromIntegral forall a b. (a -> b) -> a -> b
$ forall (t :: * -> *) a. Foldable t => t a -> Int
P.length [String]
jArgv
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr CString
maybeArgv <- case Maybe [String]
argv of
Maybe [String]
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just [String]
jArgv -> do
Ptr CString
jArgv' <- [String] -> IO (Ptr CString)
packFileNameArray [String]
jArgv
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
jArgv'
Int32
result <- Ptr Application -> Int32 -> Ptr CString -> IO Int32
g_application_run Ptr Application
application' Int32
argc Ptr CString
maybeArgv
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
(forall a b c.
(Storable a, Integral b) =>
b -> (a -> IO c) -> Ptr a -> IO ()
mapCArrayWithLength Int32
argc) forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeArgv
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeArgv
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ApplicationRunMethodInfo
instance (signature ~ (Maybe ([[Char]]) -> m Int32), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationRunMethodInfo a signature where
overloadedMethod = applicationRun
instance O.OverloadedMethodInfo ApplicationRunMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationRun",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationRun"
})
#endif
foreign import ccall "g_application_send_notification" g_application_send_notification ::
Ptr Application ->
CString ->
Ptr Gio.Notification.Notification ->
IO ()
applicationSendNotification ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a, Gio.Notification.IsNotification b) =>
a
-> Maybe (T.Text)
-> b
-> m ()
applicationSendNotification :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsApplication a, IsNotification b) =>
a -> Maybe Text -> b -> m ()
applicationSendNotification a
application Maybe Text
id b
notification = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
CString
maybeId <- case Maybe Text
id of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jId -> do
CString
jId' <- Text -> IO CString
textToCString Text
jId
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jId'
Ptr Notification
notification' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
notification
Ptr Application -> CString -> Ptr Notification -> IO ()
g_application_send_notification Ptr Application
application' CString
maybeId Ptr Notification
notification'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
notification
forall a. Ptr a -> IO ()
freeMem CString
maybeId
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationSendNotificationMethodInfo
instance (signature ~ (Maybe (T.Text) -> b -> m ()), MonadIO m, IsApplication a, Gio.Notification.IsNotification b) => O.OverloadedMethod ApplicationSendNotificationMethodInfo a signature where
overloadedMethod = applicationSendNotification
instance O.OverloadedMethodInfo ApplicationSendNotificationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationSendNotification",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationSendNotification"
})
#endif
foreign import ccall "g_application_set_action_group" g_application_set_action_group ::
Ptr Application ->
Ptr Gio.ActionGroup.ActionGroup ->
IO ()
{-# DEPRECATED applicationSetActionGroup ["(Since version 2.32)","Use the t'GI.Gio.Interfaces.ActionMap.ActionMap' interface instead. Never ever","mix use of this API with use of t'GI.Gio.Interfaces.ActionMap.ActionMap' on the same /@application@/","or things will go very badly wrong. This function is known to","introduce buggy behaviour (ie: signals not emitted on changes to the","action group), so you should really use t'GI.Gio.Interfaces.ActionMap.ActionMap' instead."] #-}
applicationSetActionGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a, Gio.ActionGroup.IsActionGroup b) =>
a
-> Maybe (b)
-> m ()
applicationSetActionGroup :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsApplication a, IsActionGroup b) =>
a -> Maybe b -> m ()
applicationSetActionGroup a
application Maybe b
actionGroup = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr ActionGroup
maybeActionGroup <- case Maybe b
actionGroup of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jActionGroup -> do
Ptr ActionGroup
jActionGroup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jActionGroup
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ActionGroup
jActionGroup'
Ptr Application -> Ptr ActionGroup -> IO ()
g_application_set_action_group Ptr Application
application' Ptr ActionGroup
maybeActionGroup
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
actionGroup forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationSetActionGroupMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsApplication a, Gio.ActionGroup.IsActionGroup b) => O.OverloadedMethod ApplicationSetActionGroupMethodInfo a signature where
overloadedMethod = applicationSetActionGroup
instance O.OverloadedMethodInfo ApplicationSetActionGroupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationSetActionGroup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationSetActionGroup"
})
#endif
foreign import ccall "g_application_set_application_id" g_application_set_application_id ::
Ptr Application ->
CString ->
IO ()
applicationSetApplicationId ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> Maybe (T.Text)
-> m ()
applicationSetApplicationId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> Maybe Text -> m ()
applicationSetApplicationId a
application Maybe Text
applicationId = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
CString
maybeApplicationId <- case Maybe Text
applicationId of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jApplicationId -> do
CString
jApplicationId' <- Text -> IO CString
textToCString Text
jApplicationId
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jApplicationId'
Ptr Application -> CString -> IO ()
g_application_set_application_id Ptr Application
application' CString
maybeApplicationId
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. Ptr a -> IO ()
freeMem CString
maybeApplicationId
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationSetApplicationIdMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationSetApplicationIdMethodInfo a signature where
overloadedMethod = applicationSetApplicationId
instance O.OverloadedMethodInfo ApplicationSetApplicationIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationSetApplicationId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationSetApplicationId"
})
#endif
foreign import ccall "g_application_set_default" g_application_set_default ::
Ptr Application ->
IO ()
applicationSetDefault ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m ()
applicationSetDefault :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m ()
applicationSetDefault a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Application -> IO ()
g_application_set_default Ptr Application
application'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationSetDefaultMethodInfo
instance (signature ~ (m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationSetDefaultMethodInfo a signature where
overloadedMethod = applicationSetDefault
instance O.OverloadedMethodInfo ApplicationSetDefaultMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationSetDefault",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationSetDefault"
})
#endif
foreign import ccall "g_application_set_flags" g_application_set_flags ::
Ptr Application ->
CUInt ->
IO ()
applicationSetFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> [Gio.Flags.ApplicationFlags]
-> m ()
applicationSetFlags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> [ApplicationFlags] -> m ()
applicationSetFlags a
application [ApplicationFlags]
flags = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ApplicationFlags]
flags
Ptr Application -> CUInt -> IO ()
g_application_set_flags Ptr Application
application' CUInt
flags'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationSetFlagsMethodInfo
instance (signature ~ ([Gio.Flags.ApplicationFlags] -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationSetFlagsMethodInfo a signature where
overloadedMethod = applicationSetFlags
instance O.OverloadedMethodInfo ApplicationSetFlagsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationSetFlags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationSetFlags"
})
#endif
foreign import ccall "g_application_set_inactivity_timeout" g_application_set_inactivity_timeout ::
Ptr Application ->
Word32 ->
IO ()
applicationSetInactivityTimeout ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> Word32
-> m ()
applicationSetInactivityTimeout :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> Word32 -> m ()
applicationSetInactivityTimeout a
application Word32
inactivityTimeout = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Application -> Word32 -> IO ()
g_application_set_inactivity_timeout Ptr Application
application' Word32
inactivityTimeout
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationSetInactivityTimeoutMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationSetInactivityTimeoutMethodInfo a signature where
overloadedMethod = applicationSetInactivityTimeout
instance O.OverloadedMethodInfo ApplicationSetInactivityTimeoutMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationSetInactivityTimeout",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationSetInactivityTimeout"
})
#endif
foreign import ccall "g_application_set_option_context_description" g_application_set_option_context_description ::
Ptr Application ->
CString ->
IO ()
applicationSetOptionContextDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> Maybe (T.Text)
-> m ()
applicationSetOptionContextDescription :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> Maybe Text -> m ()
applicationSetOptionContextDescription a
application Maybe Text
description = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
CString
maybeDescription <- case Maybe Text
description of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jDescription -> do
CString
jDescription' <- Text -> IO CString
textToCString Text
jDescription
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jDescription'
Ptr Application -> CString -> IO ()
g_application_set_option_context_description Ptr Application
application' CString
maybeDescription
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. Ptr a -> IO ()
freeMem CString
maybeDescription
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationSetOptionContextDescriptionMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationSetOptionContextDescriptionMethodInfo a signature where
overloadedMethod = applicationSetOptionContextDescription
instance O.OverloadedMethodInfo ApplicationSetOptionContextDescriptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationSetOptionContextDescription",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationSetOptionContextDescription"
})
#endif
foreign import ccall "g_application_set_option_context_parameter_string" g_application_set_option_context_parameter_string ::
Ptr Application ->
CString ->
IO ()
applicationSetOptionContextParameterString ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> Maybe (T.Text)
-> m ()
applicationSetOptionContextParameterString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> Maybe Text -> m ()
applicationSetOptionContextParameterString a
application Maybe Text
parameterString = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
CString
maybeParameterString <- case Maybe Text
parameterString of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jParameterString -> do
CString
jParameterString' <- Text -> IO CString
textToCString Text
jParameterString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jParameterString'
Ptr Application -> CString -> IO ()
g_application_set_option_context_parameter_string Ptr Application
application' CString
maybeParameterString
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. Ptr a -> IO ()
freeMem CString
maybeParameterString
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationSetOptionContextParameterStringMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationSetOptionContextParameterStringMethodInfo a signature where
overloadedMethod = applicationSetOptionContextParameterString
instance O.OverloadedMethodInfo ApplicationSetOptionContextParameterStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationSetOptionContextParameterString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationSetOptionContextParameterString"
})
#endif
foreign import ccall "g_application_set_option_context_summary" g_application_set_option_context_summary ::
Ptr Application ->
CString ->
IO ()
applicationSetOptionContextSummary ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> Maybe (T.Text)
-> m ()
applicationSetOptionContextSummary :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> Maybe Text -> m ()
applicationSetOptionContextSummary a
application Maybe Text
summary = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
CString
maybeSummary <- case Maybe Text
summary of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jSummary -> do
CString
jSummary' <- Text -> IO CString
textToCString Text
jSummary
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jSummary'
Ptr Application -> CString -> IO ()
g_application_set_option_context_summary Ptr Application
application' CString
maybeSummary
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. Ptr a -> IO ()
freeMem CString
maybeSummary
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationSetOptionContextSummaryMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationSetOptionContextSummaryMethodInfo a signature where
overloadedMethod = applicationSetOptionContextSummary
instance O.OverloadedMethodInfo ApplicationSetOptionContextSummaryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationSetOptionContextSummary",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationSetOptionContextSummary"
})
#endif
foreign import ccall "g_application_set_resource_base_path" g_application_set_resource_base_path ::
Ptr Application ->
CString ->
IO ()
applicationSetResourceBasePath ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> Maybe (T.Text)
-> m ()
applicationSetResourceBasePath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> Maybe Text -> m ()
applicationSetResourceBasePath a
application Maybe Text
resourcePath = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
CString
maybeResourcePath <- case Maybe Text
resourcePath of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jResourcePath -> do
CString
jResourcePath' <- Text -> IO CString
textToCString Text
jResourcePath
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jResourcePath'
Ptr Application -> CString -> IO ()
g_application_set_resource_base_path Ptr Application
application' CString
maybeResourcePath
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. Ptr a -> IO ()
freeMem CString
maybeResourcePath
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationSetResourceBasePathMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationSetResourceBasePathMethodInfo a signature where
overloadedMethod = applicationSetResourceBasePath
instance O.OverloadedMethodInfo ApplicationSetResourceBasePathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationSetResourceBasePath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationSetResourceBasePath"
})
#endif
foreign import ccall "g_application_unbind_busy_property" g_application_unbind_busy_property ::
Ptr Application ->
Ptr GObject.Object.Object ->
CString ->
IO ()
applicationUnbindBusyProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a, GObject.Object.IsObject b) =>
a
-> b
-> T.Text
-> m ()
applicationUnbindBusyProperty :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsApplication a, IsObject b) =>
a -> b -> Text -> m ()
applicationUnbindBusyProperty a
application b
object Text
property = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Object
object' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
object
CString
property' <- Text -> IO CString
textToCString Text
property
Ptr Application -> Ptr Object -> CString -> IO ()
g_application_unbind_busy_property Ptr Application
application' Ptr Object
object' CString
property'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
object
forall a. Ptr a -> IO ()
freeMem CString
property'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationUnbindBusyPropertyMethodInfo
instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsApplication a, GObject.Object.IsObject b) => O.OverloadedMethod ApplicationUnbindBusyPropertyMethodInfo a signature where
overloadedMethod = applicationUnbindBusyProperty
instance O.OverloadedMethodInfo ApplicationUnbindBusyPropertyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationUnbindBusyProperty",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationUnbindBusyProperty"
})
#endif
foreign import ccall "g_application_unmark_busy" g_application_unmark_busy ::
Ptr Application ->
IO ()
applicationUnmarkBusy ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m ()
applicationUnmarkBusy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m ()
applicationUnmarkBusy a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Application -> IO ()
g_application_unmark_busy Ptr Application
application'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationUnmarkBusyMethodInfo
instance (signature ~ (m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationUnmarkBusyMethodInfo a signature where
overloadedMethod = applicationUnmarkBusy
instance O.OverloadedMethodInfo ApplicationUnmarkBusyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationUnmarkBusy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationUnmarkBusy"
})
#endif
foreign import ccall "g_application_withdraw_notification" g_application_withdraw_notification ::
Ptr Application ->
CString ->
IO ()
applicationWithdrawNotification ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> T.Text
-> m ()
applicationWithdrawNotification :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> Text -> m ()
applicationWithdrawNotification a
application Text
id = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
CString
id' <- Text -> IO CString
textToCString Text
id
Ptr Application -> CString -> IO ()
g_application_withdraw_notification Ptr Application
application' CString
id'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. Ptr a -> IO ()
freeMem CString
id'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationWithdrawNotificationMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationWithdrawNotificationMethodInfo a signature where
overloadedMethod = applicationWithdrawNotification
instance O.OverloadedMethodInfo ApplicationWithdrawNotificationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationWithdrawNotification",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-Application.html#v:applicationWithdrawNotification"
})
#endif
foreign import ccall "g_application_get_default" g_application_get_default ::
IO (Ptr Application)
applicationGetDefault ::
(B.CallStack.HasCallStack, MonadIO m) =>
m (Maybe Application)
applicationGetDefault :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m (Maybe Application)
applicationGetDefault = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
result <- IO (Ptr Application)
g_application_get_default
Maybe Application
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Application
result forall a b. (a -> b) -> a -> b
$ \Ptr Application
result' -> do
Application
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Application -> Application
Application) Ptr Application
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Application
result''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Application
maybeResult
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "g_application_id_is_valid" g_application_id_is_valid ::
CString ->
IO CInt
applicationIdIsValid ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m Bool
applicationIdIsValid :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Text -> m Bool
applicationIdIsValid Text
applicationId = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
CString
applicationId' <- Text -> IO CString
textToCString Text
applicationId
CInt
result <- CString -> IO CInt
g_application_id_is_valid CString
applicationId'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. Ptr a -> IO ()
freeMem CString
applicationId'
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
#endif