{-# 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)
ApplicationGetVersionMethodInfo ,
#endif
applicationGetVersion ,
#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)
ApplicationSetVersionMethodInfo ,
#endif
applicationSetVersion ,
#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 ,
#if defined(ENABLE_OVERLOADING)
ApplicationVersionPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
applicationVersion ,
#endif
constructApplicationVersion ,
getApplicationVersion ,
setApplicationVersion ,
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.Kind as DK
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 Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Enums as GLib.Enums
import qualified GI.GLib.Flags as GLib.Flags
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GLib.Structs.DateTime as GLib.DateTime
import qualified GI.GLib.Structs.OptionEntry as GLib.OptionEntry
import qualified GI.GLib.Structs.OptionGroup as GLib.OptionGroup
import qualified GI.GLib.Structs.PollFD as GLib.PollFD
import qualified GI.GLib.Structs.Source as GLib.Source
import qualified GI.GLib.Structs.String as GLib.String
import qualified GI.GLib.Structs.TimeVal as GLib.TimeVal
import qualified GI.GLib.Structs.VariantDict as GLib.VariantDict
import qualified GI.GLib.Structs.VariantType as GLib.VariantType
import qualified GI.GObject.Callbacks as GObject.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.GObject.Structs.Parameter as GObject.Parameter
import qualified GI.Gio.Callbacks as Gio.Callbacks
import {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums
import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Action as Gio.Action
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.AppInfo as Gio.AppInfo
import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncInitable as Gio.AsyncInitable
import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Drive as Gio.Drive
import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Initable as Gio.Initable
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Mount as Gio.Mount
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Seekable as Gio.Seekable
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Volume as Gio.Volume
import {-# SOURCE #-} qualified GI.Gio.Objects.AppLaunchContext as Gio.AppLaunchContext
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.Credentials as Gio.Credentials
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusAuthObserver as Gio.DBusAuthObserver
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusMessage as Gio.DBusMessage
import {-# SOURCE #-} qualified GI.Gio.Objects.FileEnumerator as Gio.FileEnumerator
import {-# SOURCE #-} qualified GI.Gio.Objects.FileIOStream as Gio.FileIOStream
import {-# SOURCE #-} qualified GI.Gio.Objects.FileInfo as Gio.FileInfo
import {-# SOURCE #-} qualified GI.Gio.Objects.FileInputStream as Gio.FileInputStream
import {-# SOURCE #-} qualified GI.Gio.Objects.FileMonitor as Gio.FileMonitor
import {-# SOURCE #-} qualified GI.Gio.Objects.FileOutputStream as Gio.FileOutputStream
import {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream
import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream
import {-# SOURCE #-} qualified GI.Gio.Objects.MenuAttributeIter as Gio.MenuAttributeIter
import {-# SOURCE #-} qualified GI.Gio.Objects.MenuLinkIter as Gio.MenuLinkIter
import {-# SOURCE #-} qualified GI.Gio.Objects.MenuModel as Gio.MenuModel
import {-# SOURCE #-} qualified GI.Gio.Objects.MountOperation as Gio.MountOperation
import {-# SOURCE #-} qualified GI.Gio.Objects.Notification as Gio.Notification
import {-# SOURCE #-} qualified GI.Gio.Objects.OutputStream as Gio.OutputStream
import {-# SOURCE #-} qualified GI.Gio.Objects.UnixFDList as Gio.UnixFDList
import {-# SOURCE #-} qualified GI.Gio.Structs.ActionEntry as Gio.ActionEntry
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusAnnotationInfo as Gio.DBusAnnotationInfo
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusArgInfo as Gio.DBusArgInfo
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusInterfaceInfo as Gio.DBusInterfaceInfo
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusMethodInfo as Gio.DBusMethodInfo
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusPropertyInfo as Gio.DBusPropertyInfo
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusSignalInfo as Gio.DBusSignalInfo
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusSubtreeVTable as Gio.DBusSubtreeVTable
import {-# SOURCE #-} qualified GI.Gio.Structs.FileAttributeInfo as Gio.FileAttributeInfo
import {-# SOURCE #-} qualified GI.Gio.Structs.FileAttributeInfoList as Gio.FileAttributeInfoList
import {-# SOURCE #-} qualified GI.Gio.Structs.FileAttributeMatcher as Gio.FileAttributeMatcher
import {-# SOURCE #-} qualified GI.Gio.Structs.OutputVector as Gio.OutputVector
#else
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
#endif
newtype Application = Application (SP.ManagedPtr Application)
deriving (Application -> Application -> Bool
(Application -> Application -> Bool)
-> (Application -> Application -> Bool) -> Eq Application
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Application -> Application -> Bool
== :: Application -> Application -> Bool
$c/= :: Application -> Application -> Bool
/= :: 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 = IO Application -> m Application
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Application -> m Application)
-> (o -> IO Application) -> o -> m Application
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Application -> Application) -> o -> IO Application
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 = Ptr GValue -> Ptr Application -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Application
forall a. Ptr a
FP.nullPtr :: FP.Ptr Application)
gvalueSet_ Ptr GValue
gv (P.Just Application
obj) = Application -> (Ptr Application -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Application
obj (Ptr GValue -> Ptr Application -> IO ()
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 <- Ptr GValue -> IO (Ptr Application)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Application)
if ptr /= FP.nullPtr
then P.Just <$> B.ManagedPtr.newObject Application ptr
else return P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveApplicationMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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 "removeActionEntries" o = Gio.ActionMap.ActionMapRemoveActionEntriesMethodInfo
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 "getVersion" o = ApplicationGetVersionMethodInfo
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 "setVersion" o = ApplicationSetVersionMethodInfo
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
Ptr Application -> (Application -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Application
gi'selfPtr ((Application -> IO ()) -> IO ())
-> (Application -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Application
gi'self -> a -> IO ()
gi'cb (Application -> a
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 = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ApplicationActivateCallback
wrapped' = (a -> IO ()) -> C_ApplicationActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationActivateCallback
wrap_ApplicationActivateCallback a -> IO ()
wrapped
wrapped'' <- C_ApplicationActivateCallback
-> IO (FunPtr C_ApplicationActivateCallback)
mk_ApplicationActivateCallback C_ApplicationActivateCallback
wrapped'
connectSignalFunPtr obj "activate" wrapped'' SignalConnectBefore 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 = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ApplicationActivateCallback
wrapped' = (a -> IO ()) -> C_ApplicationActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationActivateCallback
wrap_ApplicationActivateCallback a -> IO ()
wrapped
wrapped'' <- C_ApplicationActivateCallback
-> IO (FunPtr C_ApplicationActivateCallback)
mk_ApplicationActivateCallback C_ApplicationActivateCallback
wrapped'
connectSignalFunPtr obj "activate" wrapped'' SignalConnectAfter 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.35/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
commandLine' <- ((ManagedPtr ApplicationCommandLine -> ApplicationCommandLine)
-> Ptr ApplicationCommandLine -> IO ApplicationCommandLine
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
result <- B.ManagedPtr.withNewObject gi'selfPtr $ \Application
gi'self -> a -> ApplicationCommandLineCallback
gi'cb (Application -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Application
gi'self) ApplicationCommandLine
commandLine'
return 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 = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationCommandLineCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ApplicationCommandLineCallback
ApplicationCommandLineCallback
cb
let wrapped' :: C_ApplicationCommandLineCallback
wrapped' = (a -> ApplicationCommandLineCallback)
-> C_ApplicationCommandLineCallback
forall a.
GObject a =>
(a -> ApplicationCommandLineCallback)
-> C_ApplicationCommandLineCallback
wrap_ApplicationCommandLineCallback a -> ApplicationCommandLineCallback
wrapped
wrapped'' <- C_ApplicationCommandLineCallback
-> IO (FunPtr C_ApplicationCommandLineCallback)
mk_ApplicationCommandLineCallback C_ApplicationCommandLineCallback
wrapped'
connectSignalFunPtr obj "command-line" wrapped'' SignalConnectBefore 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 = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationCommandLineCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ApplicationCommandLineCallback
ApplicationCommandLineCallback
cb
let wrapped' :: C_ApplicationCommandLineCallback
wrapped' = (a -> ApplicationCommandLineCallback)
-> C_ApplicationCommandLineCallback
forall a.
GObject a =>
(a -> ApplicationCommandLineCallback)
-> C_ApplicationCommandLineCallback
wrap_ApplicationCommandLineCallback a -> ApplicationCommandLineCallback
wrapped
wrapped'' <- C_ApplicationCommandLineCallback
-> IO (FunPtr C_ApplicationCommandLineCallback)
mk_ApplicationCommandLineCallback C_ApplicationCommandLineCallback
wrapped'
connectSignalFunPtr obj "command-line" wrapped'' SignalConnectAfter 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.35/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
Ptr VariantDict
-> ApplicationHandleLocalOptionsCallback -> IO Int32
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr VariantDict
options (ApplicationHandleLocalOptionsCallback -> IO Int32)
-> ApplicationHandleLocalOptionsCallback -> IO Int32
forall a b. (a -> b) -> a -> b
$ \VariantDict
options' -> do
result <- Ptr Application -> (Application -> IO Int32) -> IO Int32
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Application
gi'selfPtr ((Application -> IO Int32) -> IO Int32)
-> (Application -> IO Int32) -> IO Int32
forall a b. (a -> b) -> a -> b
$ \Application
gi'self -> a -> ApplicationHandleLocalOptionsCallback
gi'cb (Application -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Application
gi'self) VariantDict
options'
return 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 = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationHandleLocalOptionsCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ApplicationHandleLocalOptionsCallback
ApplicationHandleLocalOptionsCallback
cb
let wrapped' :: C_ApplicationHandleLocalOptionsCallback
wrapped' = (a -> ApplicationHandleLocalOptionsCallback)
-> C_ApplicationHandleLocalOptionsCallback
forall a.
GObject a =>
(a -> ApplicationHandleLocalOptionsCallback)
-> C_ApplicationHandleLocalOptionsCallback
wrap_ApplicationHandleLocalOptionsCallback a -> ApplicationHandleLocalOptionsCallback
wrapped
wrapped'' <- C_ApplicationHandleLocalOptionsCallback
-> IO (FunPtr C_ApplicationHandleLocalOptionsCallback)
mk_ApplicationHandleLocalOptionsCallback C_ApplicationHandleLocalOptionsCallback
wrapped'
connectSignalFunPtr obj "handle-local-options" wrapped'' SignalConnectBefore 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 = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationHandleLocalOptionsCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ApplicationHandleLocalOptionsCallback
ApplicationHandleLocalOptionsCallback
cb
let wrapped' :: C_ApplicationHandleLocalOptionsCallback
wrapped' = (a -> ApplicationHandleLocalOptionsCallback)
-> C_ApplicationHandleLocalOptionsCallback
forall a.
GObject a =>
(a -> ApplicationHandleLocalOptionsCallback)
-> C_ApplicationHandleLocalOptionsCallback
wrap_ApplicationHandleLocalOptionsCallback a -> ApplicationHandleLocalOptionsCallback
wrapped
wrapped'' <- C_ApplicationHandleLocalOptionsCallback
-> IO (FunPtr C_ApplicationHandleLocalOptionsCallback)
mk_ApplicationHandleLocalOptionsCallback C_ApplicationHandleLocalOptionsCallback
wrapped'
connectSignalFunPtr obj "handle-local-options" wrapped'' SignalConnectAfter 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.35/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
result <- Ptr Application
-> (Application -> ApplicationNameLostCallback)
-> ApplicationNameLostCallback
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Application
gi'selfPtr ((Application -> ApplicationNameLostCallback)
-> ApplicationNameLostCallback)
-> (Application -> ApplicationNameLostCallback)
-> ApplicationNameLostCallback
forall a b. (a -> b) -> a -> b
$ \Application
gi'self -> a -> ApplicationNameLostCallback
gi'cb (Application -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Application
gi'self)
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return 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 = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationNameLostCallback
wrapped a
self = let ?self = a
?self::a
self in ApplicationNameLostCallback
(?self::a) => ApplicationNameLostCallback
cb
let wrapped' :: C_ApplicationNameLostCallback
wrapped' = (a -> ApplicationNameLostCallback) -> C_ApplicationNameLostCallback
forall a.
GObject a =>
(a -> ApplicationNameLostCallback) -> C_ApplicationNameLostCallback
wrap_ApplicationNameLostCallback a -> ApplicationNameLostCallback
wrapped
wrapped'' <- C_ApplicationNameLostCallback
-> IO (FunPtr C_ApplicationNameLostCallback)
mk_ApplicationNameLostCallback C_ApplicationNameLostCallback
wrapped'
connectSignalFunPtr obj "name-lost" wrapped'' SignalConnectBefore 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 = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationNameLostCallback
wrapped a
self = let ?self = a
?self::a
self in ApplicationNameLostCallback
(?self::a) => ApplicationNameLostCallback
cb
let wrapped' :: C_ApplicationNameLostCallback
wrapped' = (a -> ApplicationNameLostCallback) -> C_ApplicationNameLostCallback
forall a.
GObject a =>
(a -> ApplicationNameLostCallback) -> C_ApplicationNameLostCallback
wrap_ApplicationNameLostCallback a -> ApplicationNameLostCallback
wrapped
wrapped'' <- C_ApplicationNameLostCallback
-> IO (FunPtr C_ApplicationNameLostCallback)
mk_ApplicationNameLostCallback C_ApplicationNameLostCallback
wrapped'
connectSignalFunPtr obj "name-lost" wrapped'' SignalConnectAfter 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.35/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
files' <- (Int32 -> Ptr (Ptr File) -> IO [Ptr File]
forall a b. Integral a => a -> Ptr (Ptr b) -> IO [Ptr b]
unpackPtrArrayWithLength Int32
nFiles) Ptr (Ptr File)
files
files'' <- mapM (newObject Gio.File.File) files'
hint' <- cstringToText hint
B.ManagedPtr.withNewObject gi'selfPtr $ \Application
gi'self -> a -> ApplicationOpenCallback
gi'cb (Application -> a
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 = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationOpenCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ApplicationOpenCallback
ApplicationOpenCallback
cb
let wrapped' :: C_ApplicationOpenCallback
wrapped' = (a -> ApplicationOpenCallback) -> C_ApplicationOpenCallback
forall a.
GObject a =>
(a -> ApplicationOpenCallback) -> C_ApplicationOpenCallback
wrap_ApplicationOpenCallback a -> ApplicationOpenCallback
wrapped
wrapped'' <- C_ApplicationOpenCallback -> IO (FunPtr C_ApplicationOpenCallback)
mk_ApplicationOpenCallback C_ApplicationOpenCallback
wrapped'
connectSignalFunPtr obj "open" wrapped'' SignalConnectBefore 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 = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationOpenCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ApplicationOpenCallback
ApplicationOpenCallback
cb
let wrapped' :: C_ApplicationOpenCallback
wrapped' = (a -> ApplicationOpenCallback) -> C_ApplicationOpenCallback
forall a.
GObject a =>
(a -> ApplicationOpenCallback) -> C_ApplicationOpenCallback
wrap_ApplicationOpenCallback a -> ApplicationOpenCallback
wrapped
wrapped'' <- C_ApplicationOpenCallback -> IO (FunPtr C_ApplicationOpenCallback)
mk_ApplicationOpenCallback C_ApplicationOpenCallback
wrapped'
connectSignalFunPtr obj "open" wrapped'' SignalConnectAfter 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.35/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
Ptr Application -> (Application -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Application
gi'selfPtr ((Application -> IO ()) -> IO ())
-> (Application -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Application
gi'self -> a -> IO ()
gi'cb (Application -> a
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 = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ApplicationActivateCallback
wrapped' = (a -> IO ()) -> C_ApplicationActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationActivateCallback
wrap_ApplicationShutdownCallback a -> IO ()
wrapped
wrapped'' <- C_ApplicationActivateCallback
-> IO (FunPtr C_ApplicationActivateCallback)
mk_ApplicationShutdownCallback C_ApplicationActivateCallback
wrapped'
connectSignalFunPtr obj "shutdown" wrapped'' SignalConnectBefore 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 = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ApplicationActivateCallback
wrapped' = (a -> IO ()) -> C_ApplicationActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationActivateCallback
wrap_ApplicationShutdownCallback a -> IO ()
wrapped
wrapped'' <- C_ApplicationActivateCallback
-> IO (FunPtr C_ApplicationActivateCallback)
mk_ApplicationShutdownCallback C_ApplicationActivateCallback
wrapped'
connectSignalFunPtr obj "shutdown" wrapped'' SignalConnectAfter 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.35/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
Ptr Application -> (Application -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Application
gi'selfPtr ((Application -> IO ()) -> IO ())
-> (Application -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Application
gi'self -> a -> IO ()
gi'cb (Application -> a
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 = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ApplicationActivateCallback
wrapped' = (a -> IO ()) -> C_ApplicationActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationActivateCallback
wrap_ApplicationStartupCallback a -> IO ()
wrapped
wrapped'' <- C_ApplicationActivateCallback
-> IO (FunPtr C_ApplicationActivateCallback)
mk_ApplicationStartupCallback C_ApplicationActivateCallback
wrapped'
connectSignalFunPtr obj "startup" wrapped'' SignalConnectBefore 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 = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ApplicationActivateCallback
wrapped' = (a -> IO ()) -> C_ApplicationActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationActivateCallback
wrap_ApplicationStartupCallback a -> IO ()
wrapped
wrapped'' <- C_ApplicationActivateCallback
-> IO (FunPtr C_ApplicationActivateCallback)
mk_ApplicationStartupCallback C_ApplicationActivateCallback
wrapped'
connectSignalFunPtr obj "startup" wrapped'' SignalConnectAfter 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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"action-group" (a -> Maybe a
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 = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"action-group" (a -> Maybe a
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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe ActionGroup -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"action-group" (Maybe ActionGroup
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.35/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 = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"application-id" (Text -> Maybe Text
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 = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"application-id" (Text -> Maybe Text
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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"application-id" (Maybe Text
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.35/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 = IO [ApplicationFlags] -> m [ApplicationFlags]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO [ApplicationFlags] -> m [ApplicationFlags])
-> IO [ApplicationFlags] -> m [ApplicationFlags]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [ApplicationFlags]
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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> [ApplicationFlags] -> IO ()
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 = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> [ApplicationFlags] -> IO (GValueConstruct o)
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.35/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 = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
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 = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
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.35/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 = ApplicationNameLostCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (ApplicationNameLostCallback -> m Bool)
-> ApplicationNameLostCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> ApplicationNameLostCallback
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.35/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 = ApplicationNameLostCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (ApplicationNameLostCallback -> m Bool)
-> ApplicationNameLostCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> ApplicationNameLostCallback
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.35/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 = ApplicationNameLostCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (ApplicationNameLostCallback -> m Bool)
-> ApplicationNameLostCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> ApplicationNameLostCallback
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.35/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 = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"resource-base-path" (Text -> Maybe Text
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 = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"resource-base-path" (Text -> Maybe Text
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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"resource-base-path" (Maybe Text
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.35/docs/GI-Gio-Objects-Application.html#g:attr:resourceBasePath"
})
#endif
getApplicationVersion :: (MonadIO m, IsApplication o) => o -> m (Maybe T.Text)
getApplicationVersion :: forall (m :: * -> *) o.
(MonadIO m, IsApplication o) =>
o -> m (Maybe Text)
getApplicationVersion o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"version"
setApplicationVersion :: (MonadIO m, IsApplication o) => o -> T.Text -> m ()
setApplicationVersion :: forall (m :: * -> *) o.
(MonadIO m, IsApplication o) =>
o -> Text -> m ()
setApplicationVersion o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"version" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructApplicationVersion :: (IsApplication o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructApplicationVersion :: forall o (m :: * -> *).
(IsApplication o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructApplicationVersion Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"version" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data ApplicationVersionPropertyInfo
instance AttrInfo ApplicationVersionPropertyInfo where
type AttrAllowedOps ApplicationVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ApplicationVersionPropertyInfo = IsApplication
type AttrSetTypeConstraint ApplicationVersionPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ApplicationVersionPropertyInfo = (~) T.Text
type AttrTransferType ApplicationVersionPropertyInfo = T.Text
type AttrGetType ApplicationVersionPropertyInfo = (Maybe T.Text)
type AttrLabel ApplicationVersionPropertyInfo = "version"
type AttrOrigin ApplicationVersionPropertyInfo = Application
attrGet = getApplicationVersion
attrSet = setApplicationVersion
attrTransfer _ v = do
return v
attrConstruct = constructApplicationVersion
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.version"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-Application.html#g:attr:version"
})
#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), '("version", ApplicationVersionPropertyInfo)] :: [(Symbol, DK.Type)])
#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
applicationVersion :: AttrLabelProxy "version"
applicationVersion = 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, DK.Type)])
#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 = IO (Maybe Application) -> m (Maybe Application)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Application) -> m (Maybe Application))
-> IO (Maybe Application) -> m (Maybe Application)
forall a b. (a -> b) -> a -> b
$ do
maybeApplicationId <- case Maybe Text
applicationId of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
FP.nullPtr
Just Text
jApplicationId -> do
jApplicationId' <- Text -> IO CString
textToCString Text
jApplicationId
return jApplicationId'
let flags' = [ApplicationFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ApplicationFlags]
flags
result <- g_application_new maybeApplicationId flags'
maybeResult <- convertIfNonNull result $ \Ptr Application
result' -> do
result'' <- ((ManagedPtr Application -> Application)
-> Ptr Application -> IO Application
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Application -> Application
Application) Ptr Application
result'
return result''
freeMem maybeApplicationId
return 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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
g_application_activate application'
touchManagedPtr application
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
longName' <- textToCString longName
let flags' = [OptionFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [OptionFlags]
flags
let arg' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (OptionArg -> Int) -> OptionArg -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. OptionArg -> Int
forall a. Enum a => a -> Int
fromEnum) OptionArg
arg
description' <- textToCString description
maybeArgDescription <- case argDescription of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
FP.nullPtr
Just Text
jArgDescription -> do
jArgDescription' <- Text -> IO CString
textToCString Text
jArgDescription
return jArgDescription'
g_application_add_main_option application' longName' shortName flags' arg' description' maybeArgDescription
touchManagedPtr application
freeMem longName'
freeMem description'
freeMem maybeArgDescription
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
entries' <- mapM unsafeManagedPtrGetPtr entries
entries'' <- packZeroTerminatedPtrArray entries'
g_application_add_main_option_entries application' entries''
touchManagedPtr application
mapM_ touchManagedPtr entries
freeMem entries''
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
group' <- B.ManagedPtr.disownBoxed group
g_application_add_option_group application' group'
touchManagedPtr application
touchManagedPtr group
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
object' <- unsafeManagedPtrCastPtr object
property' <- textToCString property
g_application_bind_busy_property application' object' property'
touchManagedPtr application
touchManagedPtr object
freeMem property'
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.35/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 = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
result <- g_application_get_application_id application'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
touchManagedPtr application
return 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.35/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 = IO (Maybe DBusConnection) -> m (Maybe DBusConnection)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DBusConnection) -> m (Maybe DBusConnection))
-> IO (Maybe DBusConnection) -> m (Maybe DBusConnection)
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
result <- g_application_get_dbus_connection application'
maybeResult <- convertIfNonNull result $ \Ptr DBusConnection
result' -> do
result'' <- ((ManagedPtr DBusConnection -> DBusConnection)
-> Ptr DBusConnection -> IO DBusConnection
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'
return result''
touchManagedPtr application
return 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.35/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 = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
result <- g_application_get_dbus_object_path application'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
touchManagedPtr application
return 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.35/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 = IO [ApplicationFlags] -> m [ApplicationFlags]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [ApplicationFlags] -> m [ApplicationFlags])
-> IO [ApplicationFlags] -> m [ApplicationFlags]
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
result <- g_application_get_flags application'
let result' = CUInt -> [ApplicationFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
touchManagedPtr application
return 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.35/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 = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
result <- g_application_get_inactivity_timeout application'
touchManagedPtr application
return 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.35/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 = ApplicationNameLostCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ApplicationNameLostCallback -> m Bool)
-> ApplicationNameLostCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
result <- g_application_get_is_busy application'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr application
return 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.35/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 = ApplicationNameLostCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ApplicationNameLostCallback -> m Bool)
-> ApplicationNameLostCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
result <- g_application_get_is_registered application'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr application
return 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.35/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 = ApplicationNameLostCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ApplicationNameLostCallback -> m Bool)
-> ApplicationNameLostCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
result <- g_application_get_is_remote application'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr application
return 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.35/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 = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
result <- g_application_get_resource_base_path application'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
touchManagedPtr application
return 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.35/docs/GI-Gio-Objects-Application.html#v:applicationGetResourceBasePath"
})
#endif
foreign import ccall "g_application_get_version" g_application_get_version ::
Ptr Application ->
IO CString
applicationGetVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m (Maybe T.Text)
applicationGetVersion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m (Maybe Text)
applicationGetVersion a
application = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
result <- g_application_get_version application'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
touchManagedPtr application
return maybeResult
#if defined(ENABLE_OVERLOADING)
data ApplicationGetVersionMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetVersionMethodInfo a signature where
overloadedMethod = applicationGetVersion
instance O.OverloadedMethodInfo ApplicationGetVersionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationGetVersion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-Application.html#v:applicationGetVersion"
})
#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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
g_application_hold application'
touchManagedPtr application
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
g_application_mark_busy application'
touchManagedPtr application
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let nFiles :: Int32
nFiles = Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int32) -> Int -> Int32
forall a b. (a -> b) -> a -> b
$ [File] -> Int
forall a. [a] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
P.length [File]
files
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
files' <- mapM unsafeManagedPtrCastPtr files
files'' <- packPtrArray files'
hint' <- textToCString hint
g_application_open application' files'' nFiles hint'
touchManagedPtr application
mapM_ touchManagedPtr files
freeMem files''
freeMem hint'
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
g_application_quit application'
touchManagedPtr application
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
maybeCancellable <- case cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
return jCancellable'
onException (do
_ <- propagateGError $ g_application_register application' maybeCancellable
touchManagedPtr application
whenJust cancellable touchManagedPtr
return ()
) (do
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
g_application_release application'
touchManagedPtr application
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.35/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 = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
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 -> Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int32) -> Int -> Int32
forall a b. (a -> b) -> a -> b
$ [String] -> Int
forall a. [a] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
P.length [String]
jArgv
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
maybeArgv <- case argv of
Maybe [String]
Nothing -> Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
forall a. Ptr a
FP.nullPtr
Just [String]
jArgv -> do
jArgv' <- [String] -> IO (Ptr CString)
packFileNameArray [String]
jArgv
return jArgv'
result <- g_application_run application' argc maybeArgv
touchManagedPtr application
(mapCArrayWithLength argc) freeMem maybeArgv
freeMem maybeArgv
return 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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
maybeId <- case id of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
FP.nullPtr
Just Text
jId -> do
jId' <- Text -> IO CString
textToCString Text
jId
return jId'
notification' <- unsafeManagedPtrCastPtr notification
g_application_send_notification application' maybeId notification'
touchManagedPtr application
touchManagedPtr notification
freeMem maybeId
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
maybeActionGroup <- case actionGroup of
Maybe b
Nothing -> Ptr ActionGroup -> IO (Ptr ActionGroup)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ActionGroup
forall a. Ptr a
FP.nullPtr
Just b
jActionGroup -> do
jActionGroup' <- b -> IO (Ptr ActionGroup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jActionGroup
return jActionGroup'
g_application_set_action_group application' maybeActionGroup
touchManagedPtr application
whenJust actionGroup touchManagedPtr
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
maybeApplicationId <- case applicationId of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
FP.nullPtr
Just Text
jApplicationId -> do
jApplicationId' <- Text -> IO CString
textToCString Text
jApplicationId
return jApplicationId'
g_application_set_application_id application' maybeApplicationId
touchManagedPtr application
freeMem maybeApplicationId
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.35/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) =>
Maybe (a)
-> m ()
applicationSetDefault :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
Maybe a -> m ()
applicationSetDefault Maybe a
application = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
maybeApplication <- case Maybe a
application of
Maybe a
Nothing -> Ptr Application -> IO (Ptr Application)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Application
forall a. Ptr a
FP.nullPtr
Just a
jApplication -> do
jApplication' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jApplication
return jApplication'
g_application_set_default maybeApplication
whenJust application touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationSetDefaultMethodInfo
instance (signature ~ (m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationSetDefaultMethodInfo a signature where
overloadedMethod i = applicationSetDefault (Just i)
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
let flags' = [ApplicationFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ApplicationFlags]
flags
g_application_set_flags application' flags'
touchManagedPtr application
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
g_application_set_inactivity_timeout application' inactivityTimeout
touchManagedPtr application
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
maybeDescription <- case description of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
FP.nullPtr
Just Text
jDescription -> do
jDescription' <- Text -> IO CString
textToCString Text
jDescription
return jDescription'
g_application_set_option_context_description application' maybeDescription
touchManagedPtr application
freeMem maybeDescription
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
maybeParameterString <- case parameterString of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
FP.nullPtr
Just Text
jParameterString -> do
jParameterString' <- Text -> IO CString
textToCString Text
jParameterString
return jParameterString'
g_application_set_option_context_parameter_string application' maybeParameterString
touchManagedPtr application
freeMem maybeParameterString
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
maybeSummary <- case summary of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
FP.nullPtr
Just Text
jSummary -> do
jSummary' <- Text -> IO CString
textToCString Text
jSummary
return jSummary'
g_application_set_option_context_summary application' maybeSummary
touchManagedPtr application
freeMem maybeSummary
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
maybeResourcePath <- case resourcePath of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
FP.nullPtr
Just Text
jResourcePath -> do
jResourcePath' <- Text -> IO CString
textToCString Text
jResourcePath
return jResourcePath'
g_application_set_resource_base_path application' maybeResourcePath
touchManagedPtr application
freeMem maybeResourcePath
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.35/docs/GI-Gio-Objects-Application.html#v:applicationSetResourceBasePath"
})
#endif
foreign import ccall "g_application_set_version" g_application_set_version ::
Ptr Application ->
CString ->
IO ()
applicationSetVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> T.Text
-> m ()
applicationSetVersion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> Text -> m ()
applicationSetVersion a
application Text
version = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
version' <- textToCString version
g_application_set_version application' version'
touchManagedPtr application
freeMem version'
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationSetVersionMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationSetVersionMethodInfo a signature where
overloadedMethod = applicationSetVersion
instance O.OverloadedMethodInfo ApplicationSetVersionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.Application.applicationSetVersion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Objects-Application.html#v:applicationSetVersion"
})
#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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
object' <- unsafeManagedPtrCastPtr object
property' <- textToCString property
g_application_unbind_busy_property application' object' property'
touchManagedPtr application
touchManagedPtr object
freeMem property'
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
g_application_unmark_busy application'
touchManagedPtr application
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.35/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 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
application' <- a -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
id' <- textToCString id
g_application_withdraw_notification application' id'
touchManagedPtr application
freeMem id'
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.35/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 = IO (Maybe Application) -> m (Maybe Application)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Application) -> m (Maybe Application))
-> IO (Maybe Application) -> m (Maybe Application)
forall a b. (a -> b) -> a -> b
$ do
result <- IO (Ptr Application)
g_application_get_default
maybeResult <- convertIfNonNull result $ \Ptr Application
result' -> do
result'' <- ((ManagedPtr Application -> Application)
-> Ptr Application -> IO Application
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Application -> Application
Application) Ptr Application
result'
return result''
return 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 = ApplicationNameLostCallback -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ApplicationNameLostCallback -> m Bool)
-> ApplicationNameLostCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
applicationId' <- Text -> IO CString
textToCString Text
applicationId
result <- g_application_id_is_valid applicationId'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
freeMem applicationId'
return result'
#if defined(ENABLE_OVERLOADING)
#endif