module GI.Gtk.Objects.Application
(
Application(..) ,
IsApplication ,
toApplication ,
noApplication ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationAddAcceleratorMethodInfo ,
#endif
applicationAddAccelerator ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationAddWindowMethodInfo ,
#endif
applicationAddWindow ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationGetAccelsForActionMethodInfo ,
#endif
applicationGetAccelsForAction ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationGetActionsForAccelMethodInfo ,
#endif
applicationGetActionsForAccel ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationGetActiveWindowMethodInfo ,
#endif
applicationGetActiveWindow ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationGetAppMenuMethodInfo ,
#endif
applicationGetAppMenu ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationGetMenuByIdMethodInfo ,
#endif
applicationGetMenuById ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationGetMenubarMethodInfo ,
#endif
applicationGetMenubar ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationGetWindowByIdMethodInfo ,
#endif
applicationGetWindowById ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationGetWindowsMethodInfo ,
#endif
applicationGetWindows ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationInhibitMethodInfo ,
#endif
applicationInhibit ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationIsInhibitedMethodInfo ,
#endif
applicationIsInhibited ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationListActionDescriptionsMethodInfo,
#endif
applicationListActionDescriptions ,
applicationNew ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationPrefersAppMenuMethodInfo ,
#endif
applicationPrefersAppMenu ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationRemoveAcceleratorMethodInfo ,
#endif
applicationRemoveAccelerator ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationRemoveWindowMethodInfo ,
#endif
applicationRemoveWindow ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationSetAccelsForActionMethodInfo ,
#endif
applicationSetAccelsForAction ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationSetAppMenuMethodInfo ,
#endif
applicationSetAppMenu ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationSetMenubarMethodInfo ,
#endif
applicationSetMenubar ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationUninhibitMethodInfo ,
#endif
applicationUninhibit ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationActiveWindowPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
applicationActiveWindow ,
#endif
getApplicationActiveWindow ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationAppMenuPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
applicationAppMenu ,
#endif
clearApplicationAppMenu ,
constructApplicationAppMenu ,
getApplicationAppMenu ,
setApplicationAppMenu ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationMenubarPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
applicationMenubar ,
#endif
clearApplicationMenubar ,
constructApplicationMenubar ,
getApplicationMenubar ,
setApplicationMenubar ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationRegisterSessionPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
applicationRegisterSession ,
#endif
constructApplicationRegisterSession ,
getApplicationRegisterSession ,
setApplicationRegisterSession ,
ApplicationWindowAddedCallback ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationWindowAddedSignalInfo ,
#endif
C_ApplicationWindowAddedCallback ,
afterApplicationWindowAdded ,
genClosure_ApplicationWindowAdded ,
mk_ApplicationWindowAddedCallback ,
noApplicationWindowAddedCallback ,
onApplicationWindowAdded ,
wrap_ApplicationWindowAddedCallback ,
ApplicationWindowRemovedCallback ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
ApplicationWindowRemovedSignalInfo ,
#endif
C_ApplicationWindowRemovedCallback ,
afterApplicationWindowRemoved ,
genClosure_ApplicationWindowRemoved ,
mk_ApplicationWindowRemovedCallback ,
noApplicationWindowRemovedCallback ,
onApplicationWindowRemoved ,
wrap_ApplicationWindowRemovedCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Flags as Gio.Flags
import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import qualified GI.Gio.Interfaces.ActionMap as Gio.ActionMap
import qualified GI.Gio.Objects.Application as Gio.Application
import qualified GI.Gio.Objects.Menu as Gio.Menu
import qualified GI.Gio.Objects.MenuModel as Gio.MenuModel
import qualified GI.Gtk.Flags as Gtk.Flags
import qualified GI.Gtk.Objects.Window as Gtk.Window
newtype Application = Application (ManagedPtr Application)
foreign import ccall "gtk_application_get_type"
c_gtk_application_get_type :: IO GType
instance GObject Application where
gobjectType _ = c_gtk_application_get_type
class GObject o => IsApplication o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError Application a) =>
IsApplication a
#endif
instance IsApplication Application
instance Gio.Application.IsApplication Application
instance GObject.Object.IsObject Application
instance Gio.ActionGroup.IsActionGroup Application
instance Gio.ActionMap.IsActionMap Application
toApplication :: (MonadIO m, IsApplication o) => o -> m Application
toApplication = liftIO . unsafeCastTo Application
noApplication :: Maybe Application
noApplication = Nothing
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type family ResolveApplicationMethod (t :: Symbol) (o :: *) :: * where
ResolveApplicationMethod "actionAdded" o = Gio.ActionGroup.ActionGroupActionAddedMethodInfo
ResolveApplicationMethod "actionEnabledChanged" o = Gio.ActionGroup.ActionGroupActionEnabledChangedMethodInfo
ResolveApplicationMethod "actionRemoved" o = Gio.ActionGroup.ActionGroupActionRemovedMethodInfo
ResolveApplicationMethod "actionStateChanged" o = Gio.ActionGroup.ActionGroupActionStateChangedMethodInfo
ResolveApplicationMethod "activate" o = Gio.Application.ApplicationActivateMethodInfo
ResolveApplicationMethod "activateAction" o = Gio.ActionGroup.ActionGroupActivateActionMethodInfo
ResolveApplicationMethod "addAccelerator" o = ApplicationAddAcceleratorMethodInfo
ResolveApplicationMethod "addAction" o = Gio.ActionMap.ActionMapAddActionMethodInfo
ResolveApplicationMethod "addActionEntries" o = Gio.ActionMap.ActionMapAddActionEntriesMethodInfo
ResolveApplicationMethod "addMainOption" o = Gio.Application.ApplicationAddMainOptionMethodInfo
ResolveApplicationMethod "addMainOptionEntries" o = Gio.Application.ApplicationAddMainOptionEntriesMethodInfo
ResolveApplicationMethod "addOptionGroup" o = Gio.Application.ApplicationAddOptionGroupMethodInfo
ResolveApplicationMethod "addWindow" o = ApplicationAddWindowMethodInfo
ResolveApplicationMethod "bindBusyProperty" o = Gio.Application.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 "hasAction" o = Gio.ActionGroup.ActionGroupHasActionMethodInfo
ResolveApplicationMethod "hold" o = Gio.Application.ApplicationHoldMethodInfo
ResolveApplicationMethod "inhibit" o = ApplicationInhibitMethodInfo
ResolveApplicationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveApplicationMethod "isInhibited" o = ApplicationIsInhibitedMethodInfo
ResolveApplicationMethod "listActionDescriptions" o = ApplicationListActionDescriptionsMethodInfo
ResolveApplicationMethod "listActions" o = Gio.ActionGroup.ActionGroupListActionsMethodInfo
ResolveApplicationMethod "lookupAction" o = Gio.ActionMap.ActionMapLookupActionMethodInfo
ResolveApplicationMethod "markBusy" o = Gio.Application.ApplicationMarkBusyMethodInfo
ResolveApplicationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveApplicationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveApplicationMethod "open" o = Gio.Application.ApplicationOpenMethodInfo
ResolveApplicationMethod "prefersAppMenu" o = ApplicationPrefersAppMenuMethodInfo
ResolveApplicationMethod "queryAction" o = Gio.ActionGroup.ActionGroupQueryActionMethodInfo
ResolveApplicationMethod "quit" o = Gio.Application.ApplicationQuitMethodInfo
ResolveApplicationMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveApplicationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveApplicationMethod "register" o = Gio.Application.ApplicationRegisterMethodInfo
ResolveApplicationMethod "release" o = Gio.Application.ApplicationReleaseMethodInfo
ResolveApplicationMethod "removeAccelerator" o = ApplicationRemoveAcceleratorMethodInfo
ResolveApplicationMethod "removeAction" o = Gio.ActionMap.ActionMapRemoveActionMethodInfo
ResolveApplicationMethod "removeWindow" o = ApplicationRemoveWindowMethodInfo
ResolveApplicationMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveApplicationMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveApplicationMethod "run" o = Gio.Application.ApplicationRunMethodInfo
ResolveApplicationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveApplicationMethod "sendNotification" o = Gio.Application.ApplicationSendNotificationMethodInfo
ResolveApplicationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveApplicationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveApplicationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveApplicationMethod "unbindBusyProperty" o = Gio.Application.ApplicationUnbindBusyPropertyMethodInfo
ResolveApplicationMethod "uninhibit" o = ApplicationUninhibitMethodInfo
ResolveApplicationMethod "unmarkBusy" o = Gio.Application.ApplicationUnmarkBusyMethodInfo
ResolveApplicationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveApplicationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveApplicationMethod "withdrawNotification" o = Gio.Application.ApplicationWithdrawNotificationMethodInfo
ResolveApplicationMethod "getAccelsForAction" o = ApplicationGetAccelsForActionMethodInfo
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 "getActionsForAccel" o = ApplicationGetActionsForAccelMethodInfo
ResolveApplicationMethod "getActiveWindow" o = ApplicationGetActiveWindowMethodInfo
ResolveApplicationMethod "getAppMenu" o = ApplicationGetAppMenuMethodInfo
ResolveApplicationMethod "getApplicationId" o = Gio.Application.ApplicationGetApplicationIdMethodInfo
ResolveApplicationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveApplicationMethod "getDbusConnection" o = Gio.Application.ApplicationGetDbusConnectionMethodInfo
ResolveApplicationMethod "getDbusObjectPath" o = Gio.Application.ApplicationGetDbusObjectPathMethodInfo
ResolveApplicationMethod "getFlags" o = Gio.Application.ApplicationGetFlagsMethodInfo
ResolveApplicationMethod "getInactivityTimeout" o = Gio.Application.ApplicationGetInactivityTimeoutMethodInfo
ResolveApplicationMethod "getIsBusy" o = Gio.Application.ApplicationGetIsBusyMethodInfo
ResolveApplicationMethod "getIsRegistered" o = Gio.Application.ApplicationGetIsRegisteredMethodInfo
ResolveApplicationMethod "getIsRemote" o = Gio.Application.ApplicationGetIsRemoteMethodInfo
ResolveApplicationMethod "getMenuById" o = ApplicationGetMenuByIdMethodInfo
ResolveApplicationMethod "getMenubar" o = ApplicationGetMenubarMethodInfo
ResolveApplicationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveApplicationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveApplicationMethod "getResourceBasePath" o = Gio.Application.ApplicationGetResourceBasePathMethodInfo
ResolveApplicationMethod "getWindowById" o = ApplicationGetWindowByIdMethodInfo
ResolveApplicationMethod "getWindows" o = ApplicationGetWindowsMethodInfo
ResolveApplicationMethod "setAccelsForAction" o = ApplicationSetAccelsForActionMethodInfo
ResolveApplicationMethod "setActionGroup" o = Gio.Application.ApplicationSetActionGroupMethodInfo
ResolveApplicationMethod "setAppMenu" o = ApplicationSetAppMenuMethodInfo
ResolveApplicationMethod "setApplicationId" o = Gio.Application.ApplicationSetApplicationIdMethodInfo
ResolveApplicationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveApplicationMethod "setDefault" o = Gio.Application.ApplicationSetDefaultMethodInfo
ResolveApplicationMethod "setFlags" o = Gio.Application.ApplicationSetFlagsMethodInfo
ResolveApplicationMethod "setInactivityTimeout" o = Gio.Application.ApplicationSetInactivityTimeoutMethodInfo
ResolveApplicationMethod "setMenubar" o = ApplicationSetMenubarMethodInfo
ResolveApplicationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveApplicationMethod "setResourceBasePath" o = Gio.Application.ApplicationSetResourceBasePathMethodInfo
ResolveApplicationMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveApplicationMethod t Application, O.MethodInfo info Application p) => O.IsLabelProxy t (Application -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveApplicationMethod t Application, O.MethodInfo info Application p) => O.IsLabel t (Application -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
type ApplicationWindowAddedCallback =
Gtk.Window.Window ->
IO ()
noApplicationWindowAddedCallback :: Maybe ApplicationWindowAddedCallback
noApplicationWindowAddedCallback = Nothing
type C_ApplicationWindowAddedCallback =
Ptr () ->
Ptr Gtk.Window.Window ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ApplicationWindowAddedCallback :: C_ApplicationWindowAddedCallback -> IO (FunPtr C_ApplicationWindowAddedCallback)
genClosure_ApplicationWindowAdded :: ApplicationWindowAddedCallback -> IO Closure
genClosure_ApplicationWindowAdded cb = do
let cb' = wrap_ApplicationWindowAddedCallback cb
mk_ApplicationWindowAddedCallback cb' >>= newCClosure
wrap_ApplicationWindowAddedCallback ::
ApplicationWindowAddedCallback ->
Ptr () ->
Ptr Gtk.Window.Window ->
Ptr () ->
IO ()
wrap_ApplicationWindowAddedCallback _cb _ window _ = do
window' <- (newObject Gtk.Window.Window) window
_cb window'
onApplicationWindowAdded :: (IsApplication a, MonadIO m) => a -> ApplicationWindowAddedCallback -> m SignalHandlerId
onApplicationWindowAdded obj cb = liftIO $ do
let cb' = wrap_ApplicationWindowAddedCallback cb
cb'' <- mk_ApplicationWindowAddedCallback cb'
connectSignalFunPtr obj "window-added" cb'' SignalConnectBefore
afterApplicationWindowAdded :: (IsApplication a, MonadIO m) => a -> ApplicationWindowAddedCallback -> m SignalHandlerId
afterApplicationWindowAdded obj cb = liftIO $ do
let cb' = wrap_ApplicationWindowAddedCallback cb
cb'' <- mk_ApplicationWindowAddedCallback cb'
connectSignalFunPtr obj "window-added" cb'' SignalConnectAfter
type ApplicationWindowRemovedCallback =
Gtk.Window.Window ->
IO ()
noApplicationWindowRemovedCallback :: Maybe ApplicationWindowRemovedCallback
noApplicationWindowRemovedCallback = Nothing
type C_ApplicationWindowRemovedCallback =
Ptr () ->
Ptr Gtk.Window.Window ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ApplicationWindowRemovedCallback :: C_ApplicationWindowRemovedCallback -> IO (FunPtr C_ApplicationWindowRemovedCallback)
genClosure_ApplicationWindowRemoved :: ApplicationWindowRemovedCallback -> IO Closure
genClosure_ApplicationWindowRemoved cb = do
let cb' = wrap_ApplicationWindowRemovedCallback cb
mk_ApplicationWindowRemovedCallback cb' >>= newCClosure
wrap_ApplicationWindowRemovedCallback ::
ApplicationWindowRemovedCallback ->
Ptr () ->
Ptr Gtk.Window.Window ->
Ptr () ->
IO ()
wrap_ApplicationWindowRemovedCallback _cb _ window _ = do
window' <- (newObject Gtk.Window.Window) window
_cb window'
onApplicationWindowRemoved :: (IsApplication a, MonadIO m) => a -> ApplicationWindowRemovedCallback -> m SignalHandlerId
onApplicationWindowRemoved obj cb = liftIO $ do
let cb' = wrap_ApplicationWindowRemovedCallback cb
cb'' <- mk_ApplicationWindowRemovedCallback cb'
connectSignalFunPtr obj "window-removed" cb'' SignalConnectBefore
afterApplicationWindowRemoved :: (IsApplication a, MonadIO m) => a -> ApplicationWindowRemovedCallback -> m SignalHandlerId
afterApplicationWindowRemoved obj cb = liftIO $ do
let cb' = wrap_ApplicationWindowRemovedCallback cb
cb'' <- mk_ApplicationWindowRemovedCallback cb'
connectSignalFunPtr obj "window-removed" cb'' SignalConnectAfter
getApplicationActiveWindow :: (MonadIO m, IsApplication o) => o -> m (Maybe Gtk.Window.Window)
getApplicationActiveWindow obj = liftIO $ getObjectPropertyObject obj "active-window" Gtk.Window.Window
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationActiveWindowPropertyInfo
instance AttrInfo ApplicationActiveWindowPropertyInfo where
type AttrAllowedOps ApplicationActiveWindowPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ApplicationActiveWindowPropertyInfo = (~) ()
type AttrBaseTypeConstraint ApplicationActiveWindowPropertyInfo = IsApplication
type AttrGetType ApplicationActiveWindowPropertyInfo = (Maybe Gtk.Window.Window)
type AttrLabel ApplicationActiveWindowPropertyInfo = "active-window"
type AttrOrigin ApplicationActiveWindowPropertyInfo = Application
attrGet _ = getApplicationActiveWindow
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getApplicationAppMenu :: (MonadIO m, IsApplication o) => o -> m (Maybe Gio.MenuModel.MenuModel)
getApplicationAppMenu obj = liftIO $ getObjectPropertyObject obj "app-menu" Gio.MenuModel.MenuModel
setApplicationAppMenu :: (MonadIO m, IsApplication o, Gio.MenuModel.IsMenuModel a) => o -> a -> m ()
setApplicationAppMenu obj val = liftIO $ setObjectPropertyObject obj "app-menu" (Just val)
constructApplicationAppMenu :: (IsApplication o, Gio.MenuModel.IsMenuModel a) => a -> IO (GValueConstruct o)
constructApplicationAppMenu val = constructObjectPropertyObject "app-menu" (Just val)
clearApplicationAppMenu :: (MonadIO m, IsApplication o) => o -> m ()
clearApplicationAppMenu obj = liftIO $ setObjectPropertyObject obj "app-menu" (Nothing :: Maybe Gio.MenuModel.MenuModel)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationAppMenuPropertyInfo
instance AttrInfo ApplicationAppMenuPropertyInfo where
type AttrAllowedOps ApplicationAppMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ApplicationAppMenuPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrBaseTypeConstraint ApplicationAppMenuPropertyInfo = IsApplication
type AttrGetType ApplicationAppMenuPropertyInfo = (Maybe Gio.MenuModel.MenuModel)
type AttrLabel ApplicationAppMenuPropertyInfo = "app-menu"
type AttrOrigin ApplicationAppMenuPropertyInfo = Application
attrGet _ = getApplicationAppMenu
attrSet _ = setApplicationAppMenu
attrConstruct _ = constructApplicationAppMenu
attrClear _ = clearApplicationAppMenu
#endif
getApplicationMenubar :: (MonadIO m, IsApplication o) => o -> m Gio.MenuModel.MenuModel
getApplicationMenubar obj = liftIO $ checkUnexpectedNothing "getApplicationMenubar" $ getObjectPropertyObject obj "menubar" Gio.MenuModel.MenuModel
setApplicationMenubar :: (MonadIO m, IsApplication o, Gio.MenuModel.IsMenuModel a) => o -> a -> m ()
setApplicationMenubar obj val = liftIO $ setObjectPropertyObject obj "menubar" (Just val)
constructApplicationMenubar :: (IsApplication o, Gio.MenuModel.IsMenuModel a) => a -> IO (GValueConstruct o)
constructApplicationMenubar val = constructObjectPropertyObject "menubar" (Just val)
clearApplicationMenubar :: (MonadIO m, IsApplication o) => o -> m ()
clearApplicationMenubar obj = liftIO $ setObjectPropertyObject obj "menubar" (Nothing :: Maybe Gio.MenuModel.MenuModel)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationMenubarPropertyInfo
instance AttrInfo ApplicationMenubarPropertyInfo where
type AttrAllowedOps ApplicationMenubarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ApplicationMenubarPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrBaseTypeConstraint ApplicationMenubarPropertyInfo = IsApplication
type AttrGetType ApplicationMenubarPropertyInfo = Gio.MenuModel.MenuModel
type AttrLabel ApplicationMenubarPropertyInfo = "menubar"
type AttrOrigin ApplicationMenubarPropertyInfo = Application
attrGet _ = getApplicationMenubar
attrSet _ = setApplicationMenubar
attrConstruct _ = constructApplicationMenubar
attrClear _ = clearApplicationMenubar
#endif
getApplicationRegisterSession :: (MonadIO m, IsApplication o) => o -> m Bool
getApplicationRegisterSession obj = liftIO $ getObjectPropertyBool obj "register-session"
setApplicationRegisterSession :: (MonadIO m, IsApplication o) => o -> Bool -> m ()
setApplicationRegisterSession obj val = liftIO $ setObjectPropertyBool obj "register-session" val
constructApplicationRegisterSession :: (IsApplication o) => Bool -> IO (GValueConstruct o)
constructApplicationRegisterSession val = constructObjectPropertyBool "register-session" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationRegisterSessionPropertyInfo
instance AttrInfo ApplicationRegisterSessionPropertyInfo where
type AttrAllowedOps ApplicationRegisterSessionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ApplicationRegisterSessionPropertyInfo = (~) Bool
type AttrBaseTypeConstraint ApplicationRegisterSessionPropertyInfo = IsApplication
type AttrGetType ApplicationRegisterSessionPropertyInfo = Bool
type AttrLabel ApplicationRegisterSessionPropertyInfo = "register-session"
type AttrOrigin ApplicationRegisterSessionPropertyInfo = Application
attrGet _ = getApplicationRegisterSession
attrSet _ = setApplicationRegisterSession
attrConstruct _ = constructApplicationRegisterSession
attrClear _ = undefined
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
instance O.HasAttributeList Application
type instance O.AttributeList Application = ApplicationAttributeList
type ApplicationAttributeList = ('[ '("actionGroup", Gio.Application.ApplicationActionGroupPropertyInfo), '("activeWindow", ApplicationActiveWindowPropertyInfo), '("appMenu", ApplicationAppMenuPropertyInfo), '("applicationId", Gio.Application.ApplicationApplicationIdPropertyInfo), '("flags", Gio.Application.ApplicationFlagsPropertyInfo), '("inactivityTimeout", Gio.Application.ApplicationInactivityTimeoutPropertyInfo), '("isBusy", Gio.Application.ApplicationIsBusyPropertyInfo), '("isRegistered", Gio.Application.ApplicationIsRegisteredPropertyInfo), '("isRemote", Gio.Application.ApplicationIsRemotePropertyInfo), '("menubar", ApplicationMenubarPropertyInfo), '("registerSession", ApplicationRegisterSessionPropertyInfo), '("resourceBasePath", Gio.Application.ApplicationResourceBasePathPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
applicationActiveWindow :: AttrLabelProxy "activeWindow"
applicationActiveWindow = AttrLabelProxy
applicationAppMenu :: AttrLabelProxy "appMenu"
applicationAppMenu = AttrLabelProxy
applicationMenubar :: AttrLabelProxy "menubar"
applicationMenubar = AttrLabelProxy
applicationRegisterSession :: AttrLabelProxy "registerSession"
applicationRegisterSession = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationWindowAddedSignalInfo
instance SignalInfo ApplicationWindowAddedSignalInfo where
type HaskellCallbackType ApplicationWindowAddedSignalInfo = ApplicationWindowAddedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ApplicationWindowAddedCallback cb
cb'' <- mk_ApplicationWindowAddedCallback cb'
connectSignalFunPtr obj "window-added" cb'' connectMode
data ApplicationWindowRemovedSignalInfo
instance SignalInfo ApplicationWindowRemovedSignalInfo where
type HaskellCallbackType ApplicationWindowRemovedSignalInfo = ApplicationWindowRemovedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ApplicationWindowRemovedCallback cb
cb'' <- mk_ApplicationWindowRemovedCallback cb'
connectSignalFunPtr obj "window-removed" cb'' connectMode
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", Gio.Application.ApplicationActivateSignalInfo), '("commandLine", Gio.Application.ApplicationCommandLineSignalInfo), '("handleLocalOptions", Gio.Application.ApplicationHandleLocalOptionsSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("open", Gio.Application.ApplicationOpenSignalInfo), '("shutdown", Gio.Application.ApplicationShutdownSignalInfo), '("startup", Gio.Application.ApplicationStartupSignalInfo), '("windowAdded", ApplicationWindowAddedSignalInfo), '("windowRemoved", ApplicationWindowRemovedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_application_new" gtk_application_new ::
CString ->
CUInt ->
IO (Ptr Application)
applicationNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Maybe (T.Text)
-> [Gio.Flags.ApplicationFlags]
-> m Application
applicationNew applicationId flags = liftIO $ do
maybeApplicationId <- case applicationId of
Nothing -> return nullPtr
Just jApplicationId -> do
jApplicationId' <- textToCString jApplicationId
return jApplicationId'
let flags' = gflagsToWord flags
result <- gtk_application_new maybeApplicationId flags'
checkUnexpectedReturnNULL "applicationNew" result
result' <- (wrapObject Application) result
freeMem maybeApplicationId
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
#endif
foreign import ccall "gtk_application_add_accelerator" gtk_application_add_accelerator ::
Ptr Application ->
CString ->
CString ->
Ptr GVariant ->
IO ()
applicationAddAccelerator ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> T.Text
-> T.Text
-> Maybe (GVariant)
-> m ()
applicationAddAccelerator application accelerator actionName parameter = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
accelerator' <- textToCString accelerator
actionName' <- textToCString actionName
maybeParameter <- case parameter of
Nothing -> return nullPtr
Just jParameter -> do
jParameter' <- unsafeManagedPtrGetPtr jParameter
return jParameter'
gtk_application_add_accelerator application' accelerator' actionName' maybeParameter
touchManagedPtr application
whenJust parameter touchManagedPtr
freeMem accelerator'
freeMem actionName'
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationAddAcceleratorMethodInfo
instance (signature ~ (T.Text -> T.Text -> Maybe (GVariant) -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationAddAcceleratorMethodInfo a signature where
overloadedMethod _ = applicationAddAccelerator
#endif
foreign import ccall "gtk_application_add_window" gtk_application_add_window ::
Ptr Application ->
Ptr Gtk.Window.Window ->
IO ()
applicationAddWindow ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a, Gtk.Window.IsWindow b) =>
a
-> b
-> m ()
applicationAddWindow application window = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
window' <- unsafeManagedPtrCastPtr window
gtk_application_add_window application' window'
touchManagedPtr application
touchManagedPtr window
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationAddWindowMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsApplication a, Gtk.Window.IsWindow b) => O.MethodInfo ApplicationAddWindowMethodInfo a signature where
overloadedMethod _ = applicationAddWindow
#endif
foreign import ccall "gtk_application_get_accels_for_action" gtk_application_get_accels_for_action ::
Ptr Application ->
CString ->
IO (Ptr CString)
applicationGetAccelsForAction ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> T.Text
-> m [T.Text]
applicationGetAccelsForAction application detailedActionName = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
detailedActionName' <- textToCString detailedActionName
result <- gtk_application_get_accels_for_action application' detailedActionName'
checkUnexpectedReturnNULL "applicationGetAccelsForAction" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr application
freeMem detailedActionName'
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationGetAccelsForActionMethodInfo
instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetAccelsForActionMethodInfo a signature where
overloadedMethod _ = applicationGetAccelsForAction
#endif
foreign import ccall "gtk_application_get_actions_for_accel" gtk_application_get_actions_for_accel ::
Ptr Application ->
CString ->
IO (Ptr CString)
applicationGetActionsForAccel ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> T.Text
-> m [T.Text]
applicationGetActionsForAccel application accel = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
accel' <- textToCString accel
result <- gtk_application_get_actions_for_accel application' accel'
checkUnexpectedReturnNULL "applicationGetActionsForAccel" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr application
freeMem accel'
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationGetActionsForAccelMethodInfo
instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetActionsForAccelMethodInfo a signature where
overloadedMethod _ = applicationGetActionsForAccel
#endif
foreign import ccall "gtk_application_get_active_window" gtk_application_get_active_window ::
Ptr Application ->
IO (Ptr Gtk.Window.Window)
applicationGetActiveWindow ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m (Maybe Gtk.Window.Window)
applicationGetActiveWindow application = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
result <- gtk_application_get_active_window application'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gtk.Window.Window) result'
return result''
touchManagedPtr application
return maybeResult
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationGetActiveWindowMethodInfo
instance (signature ~ (m (Maybe Gtk.Window.Window)), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetActiveWindowMethodInfo a signature where
overloadedMethod _ = applicationGetActiveWindow
#endif
foreign import ccall "gtk_application_get_app_menu" gtk_application_get_app_menu ::
Ptr Application ->
IO (Ptr Gio.MenuModel.MenuModel)
applicationGetAppMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m (Maybe Gio.MenuModel.MenuModel)
applicationGetAppMenu application = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
result <- gtk_application_get_app_menu application'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gio.MenuModel.MenuModel) result'
return result''
touchManagedPtr application
return maybeResult
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationGetAppMenuMethodInfo
instance (signature ~ (m (Maybe Gio.MenuModel.MenuModel)), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetAppMenuMethodInfo a signature where
overloadedMethod _ = applicationGetAppMenu
#endif
foreign import ccall "gtk_application_get_menu_by_id" gtk_application_get_menu_by_id ::
Ptr Application ->
CString ->
IO (Ptr Gio.Menu.Menu)
applicationGetMenuById ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> T.Text
-> m Gio.Menu.Menu
applicationGetMenuById application id = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
id' <- textToCString id
result <- gtk_application_get_menu_by_id application' id'
checkUnexpectedReturnNULL "applicationGetMenuById" result
result' <- (newObject Gio.Menu.Menu) result
touchManagedPtr application
freeMem id'
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationGetMenuByIdMethodInfo
instance (signature ~ (T.Text -> m Gio.Menu.Menu), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetMenuByIdMethodInfo a signature where
overloadedMethod _ = applicationGetMenuById
#endif
foreign import ccall "gtk_application_get_menubar" gtk_application_get_menubar ::
Ptr Application ->
IO (Ptr Gio.MenuModel.MenuModel)
applicationGetMenubar ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m Gio.MenuModel.MenuModel
applicationGetMenubar application = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
result <- gtk_application_get_menubar application'
checkUnexpectedReturnNULL "applicationGetMenubar" result
result' <- (newObject Gio.MenuModel.MenuModel) result
touchManagedPtr application
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationGetMenubarMethodInfo
instance (signature ~ (m Gio.MenuModel.MenuModel), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetMenubarMethodInfo a signature where
overloadedMethod _ = applicationGetMenubar
#endif
foreign import ccall "gtk_application_get_window_by_id" gtk_application_get_window_by_id ::
Ptr Application ->
Word32 ->
IO (Ptr Gtk.Window.Window)
applicationGetWindowById ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> Word32
-> m (Maybe Gtk.Window.Window)
applicationGetWindowById application id = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
result <- gtk_application_get_window_by_id application' id
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gtk.Window.Window) result'
return result''
touchManagedPtr application
return maybeResult
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationGetWindowByIdMethodInfo
instance (signature ~ (Word32 -> m (Maybe Gtk.Window.Window)), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetWindowByIdMethodInfo a signature where
overloadedMethod _ = applicationGetWindowById
#endif
foreign import ccall "gtk_application_get_windows" gtk_application_get_windows ::
Ptr Application ->
IO (Ptr (GList (Ptr Gtk.Window.Window)))
applicationGetWindows ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m [Gtk.Window.Window]
applicationGetWindows application = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
result <- gtk_application_get_windows application'
result' <- unpackGList result
result'' <- mapM (newObject Gtk.Window.Window) result'
touchManagedPtr application
return result''
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationGetWindowsMethodInfo
instance (signature ~ (m [Gtk.Window.Window]), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetWindowsMethodInfo a signature where
overloadedMethod _ = applicationGetWindows
#endif
foreign import ccall "gtk_application_inhibit" gtk_application_inhibit ::
Ptr Application ->
Ptr Gtk.Window.Window ->
CUInt ->
CString ->
IO Word32
applicationInhibit ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a, Gtk.Window.IsWindow b) =>
a
-> Maybe (b)
-> [Gtk.Flags.ApplicationInhibitFlags]
-> Maybe (T.Text)
-> m Word32
applicationInhibit application window flags reason = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
maybeWindow <- case window of
Nothing -> return nullPtr
Just jWindow -> do
jWindow' <- unsafeManagedPtrCastPtr jWindow
return jWindow'
let flags' = gflagsToWord flags
maybeReason <- case reason of
Nothing -> return nullPtr
Just jReason -> do
jReason' <- textToCString jReason
return jReason'
result <- gtk_application_inhibit application' maybeWindow flags' maybeReason
touchManagedPtr application
whenJust window touchManagedPtr
freeMem maybeReason
return result
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationInhibitMethodInfo
instance (signature ~ (Maybe (b) -> [Gtk.Flags.ApplicationInhibitFlags] -> Maybe (T.Text) -> m Word32), MonadIO m, IsApplication a, Gtk.Window.IsWindow b) => O.MethodInfo ApplicationInhibitMethodInfo a signature where
overloadedMethod _ = applicationInhibit
#endif
foreign import ccall "gtk_application_is_inhibited" gtk_application_is_inhibited ::
Ptr Application ->
CUInt ->
IO CInt
applicationIsInhibited ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> [Gtk.Flags.ApplicationInhibitFlags]
-> m Bool
applicationIsInhibited application flags = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
let flags' = gflagsToWord flags
result <- gtk_application_is_inhibited application' flags'
let result' = (/= 0) result
touchManagedPtr application
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationIsInhibitedMethodInfo
instance (signature ~ ([Gtk.Flags.ApplicationInhibitFlags] -> m Bool), MonadIO m, IsApplication a) => O.MethodInfo ApplicationIsInhibitedMethodInfo a signature where
overloadedMethod _ = applicationIsInhibited
#endif
foreign import ccall "gtk_application_list_action_descriptions" gtk_application_list_action_descriptions ::
Ptr Application ->
IO (Ptr CString)
applicationListActionDescriptions ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m [T.Text]
applicationListActionDescriptions application = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
result <- gtk_application_list_action_descriptions application'
checkUnexpectedReturnNULL "applicationListActionDescriptions" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr application
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationListActionDescriptionsMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsApplication a) => O.MethodInfo ApplicationListActionDescriptionsMethodInfo a signature where
overloadedMethod _ = applicationListActionDescriptions
#endif
foreign import ccall "gtk_application_prefers_app_menu" gtk_application_prefers_app_menu ::
Ptr Application ->
IO CInt
applicationPrefersAppMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m Bool
applicationPrefersAppMenu application = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
result <- gtk_application_prefers_app_menu application'
let result' = (/= 0) result
touchManagedPtr application
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationPrefersAppMenuMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsApplication a) => O.MethodInfo ApplicationPrefersAppMenuMethodInfo a signature where
overloadedMethod _ = applicationPrefersAppMenu
#endif
foreign import ccall "gtk_application_remove_accelerator" gtk_application_remove_accelerator ::
Ptr Application ->
CString ->
Ptr GVariant ->
IO ()
applicationRemoveAccelerator ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> T.Text
-> Maybe (GVariant)
-> m ()
applicationRemoveAccelerator application actionName parameter = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
actionName' <- textToCString actionName
maybeParameter <- case parameter of
Nothing -> return nullPtr
Just jParameter -> do
jParameter' <- unsafeManagedPtrGetPtr jParameter
return jParameter'
gtk_application_remove_accelerator application' actionName' maybeParameter
touchManagedPtr application
whenJust parameter touchManagedPtr
freeMem actionName'
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationRemoveAcceleratorMethodInfo
instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationRemoveAcceleratorMethodInfo a signature where
overloadedMethod _ = applicationRemoveAccelerator
#endif
foreign import ccall "gtk_application_remove_window" gtk_application_remove_window ::
Ptr Application ->
Ptr Gtk.Window.Window ->
IO ()
applicationRemoveWindow ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a, Gtk.Window.IsWindow b) =>
a
-> b
-> m ()
applicationRemoveWindow application window = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
window' <- unsafeManagedPtrCastPtr window
gtk_application_remove_window application' window'
touchManagedPtr application
touchManagedPtr window
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationRemoveWindowMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsApplication a, Gtk.Window.IsWindow b) => O.MethodInfo ApplicationRemoveWindowMethodInfo a signature where
overloadedMethod _ = applicationRemoveWindow
#endif
foreign import ccall "gtk_application_set_accels_for_action" gtk_application_set_accels_for_action ::
Ptr Application ->
CString ->
Ptr CString ->
IO ()
applicationSetAccelsForAction ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> T.Text
-> [T.Text]
-> m ()
applicationSetAccelsForAction application detailedActionName accels = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
detailedActionName' <- textToCString detailedActionName
accels' <- packZeroTerminatedUTF8CArray accels
gtk_application_set_accels_for_action application' detailedActionName' accels'
touchManagedPtr application
freeMem detailedActionName'
mapZeroTerminatedCArray freeMem accels'
freeMem accels'
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationSetAccelsForActionMethodInfo
instance (signature ~ (T.Text -> [T.Text] -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationSetAccelsForActionMethodInfo a signature where
overloadedMethod _ = applicationSetAccelsForAction
#endif
foreign import ccall "gtk_application_set_app_menu" gtk_application_set_app_menu ::
Ptr Application ->
Ptr Gio.MenuModel.MenuModel ->
IO ()
applicationSetAppMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a, Gio.MenuModel.IsMenuModel b) =>
a
-> Maybe (b)
-> m ()
applicationSetAppMenu application appMenu = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
maybeAppMenu <- case appMenu of
Nothing -> return nullPtr
Just jAppMenu -> do
jAppMenu' <- unsafeManagedPtrCastPtr jAppMenu
return jAppMenu'
gtk_application_set_app_menu application' maybeAppMenu
touchManagedPtr application
whenJust appMenu touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationSetAppMenuMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsApplication a, Gio.MenuModel.IsMenuModel b) => O.MethodInfo ApplicationSetAppMenuMethodInfo a signature where
overloadedMethod _ = applicationSetAppMenu
#endif
foreign import ccall "gtk_application_set_menubar" gtk_application_set_menubar ::
Ptr Application ->
Ptr Gio.MenuModel.MenuModel ->
IO ()
applicationSetMenubar ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a, Gio.MenuModel.IsMenuModel b) =>
a
-> Maybe (b)
-> m ()
applicationSetMenubar application menubar = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
maybeMenubar <- case menubar of
Nothing -> return nullPtr
Just jMenubar -> do
jMenubar' <- unsafeManagedPtrCastPtr jMenubar
return jMenubar'
gtk_application_set_menubar application' maybeMenubar
touchManagedPtr application
whenJust menubar touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationSetMenubarMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsApplication a, Gio.MenuModel.IsMenuModel b) => O.MethodInfo ApplicationSetMenubarMethodInfo a signature where
overloadedMethod _ = applicationSetMenubar
#endif
foreign import ccall "gtk_application_uninhibit" gtk_application_uninhibit ::
Ptr Application ->
Word32 ->
IO ()
applicationUninhibit ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> Word32
-> m ()
applicationUninhibit application cookie = liftIO $ do
application' <- unsafeManagedPtrCastPtr application
gtk_application_uninhibit application' cookie
touchManagedPtr application
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data ApplicationUninhibitMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationUninhibitMethodInfo a signature where
overloadedMethod _ = applicationUninhibit
#endif