{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Application
(
Application(..) ,
IsApplication ,
toApplication ,
#if defined(ENABLE_OVERLOADING)
ResolveApplicationMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ApplicationAddAcceleratorMethodInfo ,
#endif
applicationAddAccelerator ,
#if defined(ENABLE_OVERLOADING)
ApplicationAddWindowMethodInfo ,
#endif
applicationAddWindow ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetAccelsForActionMethodInfo ,
#endif
applicationGetAccelsForAction ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetActionsForAccelMethodInfo ,
#endif
applicationGetActionsForAccel ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetActiveWindowMethodInfo ,
#endif
applicationGetActiveWindow ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetAppMenuMethodInfo ,
#endif
applicationGetAppMenu ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetMenuByIdMethodInfo ,
#endif
applicationGetMenuById ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetMenubarMethodInfo ,
#endif
applicationGetMenubar ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetWindowByIdMethodInfo ,
#endif
applicationGetWindowById ,
#if defined(ENABLE_OVERLOADING)
ApplicationGetWindowsMethodInfo ,
#endif
applicationGetWindows ,
#if defined(ENABLE_OVERLOADING)
ApplicationInhibitMethodInfo ,
#endif
applicationInhibit ,
#if defined(ENABLE_OVERLOADING)
ApplicationIsInhibitedMethodInfo ,
#endif
applicationIsInhibited ,
#if defined(ENABLE_OVERLOADING)
ApplicationListActionDescriptionsMethodInfo,
#endif
applicationListActionDescriptions ,
applicationNew ,
#if defined(ENABLE_OVERLOADING)
ApplicationPrefersAppMenuMethodInfo ,
#endif
applicationPrefersAppMenu ,
#if defined(ENABLE_OVERLOADING)
ApplicationRemoveAcceleratorMethodInfo ,
#endif
applicationRemoveAccelerator ,
#if defined(ENABLE_OVERLOADING)
ApplicationRemoveWindowMethodInfo ,
#endif
applicationRemoveWindow ,
#if defined(ENABLE_OVERLOADING)
ApplicationSetAccelsForActionMethodInfo ,
#endif
applicationSetAccelsForAction ,
#if defined(ENABLE_OVERLOADING)
ApplicationSetAppMenuMethodInfo ,
#endif
applicationSetAppMenu ,
#if defined(ENABLE_OVERLOADING)
ApplicationSetMenubarMethodInfo ,
#endif
applicationSetMenubar ,
#if defined(ENABLE_OVERLOADING)
ApplicationUninhibitMethodInfo ,
#endif
applicationUninhibit ,
#if defined(ENABLE_OVERLOADING)
ApplicationActiveWindowPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
applicationActiveWindow ,
#endif
getApplicationActiveWindow ,
#if defined(ENABLE_OVERLOADING)
ApplicationAppMenuPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
applicationAppMenu ,
#endif
clearApplicationAppMenu ,
constructApplicationAppMenu ,
getApplicationAppMenu ,
setApplicationAppMenu ,
#if defined(ENABLE_OVERLOADING)
ApplicationMenubarPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
applicationMenubar ,
#endif
clearApplicationMenubar ,
constructApplicationMenubar ,
getApplicationMenubar ,
setApplicationMenubar ,
#if defined(ENABLE_OVERLOADING)
ApplicationRegisterSessionPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
applicationRegisterSession ,
#endif
constructApplicationRegisterSession ,
getApplicationRegisterSession ,
setApplicationRegisterSession ,
#if defined(ENABLE_OVERLOADING)
ApplicationScreensaverActivePropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
applicationScreensaverActive ,
#endif
getApplicationScreensaverActive ,
ApplicationQueryEndCallback ,
#if defined(ENABLE_OVERLOADING)
ApplicationQueryEndSignalInfo ,
#endif
afterApplicationQueryEnd ,
onApplicationQueryEnd ,
ApplicationWindowAddedCallback ,
#if defined(ENABLE_OVERLOADING)
ApplicationWindowAddedSignalInfo ,
#endif
afterApplicationWindowAdded ,
onApplicationWindowAdded ,
ApplicationWindowRemovedCallback ,
#if defined(ENABLE_OVERLOADING)
ApplicationWindowRemovedSignalInfo ,
#endif
afterApplicationWindowRemoved ,
onApplicationWindowRemoved ,
) 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 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 {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Objects.Window as Gtk.Window
newtype Application = Application (SP.ManagedPtr Application)
deriving (Application -> Application -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Application -> Application -> Bool
$c/= :: Application -> Application -> Bool
== :: Application -> Application -> Bool
$c== :: Application -> Application -> Bool
Eq)
instance SP.ManagedPtrNewtype Application where
toManagedPtr :: Application -> ManagedPtr Application
toManagedPtr (Application ManagedPtr Application
p) = ManagedPtr Application
p
foreign import ccall "gtk_application_get_type"
c_gtk_application_get_type :: IO B.Types.GType
instance B.Types.TypedObject Application where
glibType :: IO GType
glibType = IO GType
c_gtk_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 = '[Gio.Application.Application, GObject.Object.Object, Gio.ActionGroup.ActionGroup, Gio.ActionMap.ActionMap]
toApplication :: (MIO.MonadIO m, IsApplication o) => o -> m Application
toApplication :: forall (m :: * -> *) o.
(MonadIO m, IsApplication o) =>
o -> m Application
toApplication = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Application -> Application
Application
instance B.GValue.IsGValue (Maybe Application) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_application_get_type
gvalueSet_ :: Ptr GValue -> Maybe Application -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Application
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr Application)
gvalueSet_ Ptr GValue
gv (P.Just Application
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Application
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Application)
gvalueGet_ Ptr GValue
gv = do
Ptr Application
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Application)
if Ptr Application
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Application -> Application
Application Ptr Application
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveApplicationMethod (t :: Symbol) (o :: 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 = 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 "getv" o = GObject.Object.ObjectGetvMethodInfo
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 "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 "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveApplicationMethod "setDefault" o = Gio.Application.ApplicationSetDefaultMethodInfo
ResolveApplicationMethod "setFlags" o = Gio.Application.ApplicationSetFlagsMethodInfo
ResolveApplicationMethod "setInactivityTimeout" o = Gio.Application.ApplicationSetInactivityTimeoutMethodInfo
ResolveApplicationMethod "setMenubar" o = ApplicationSetMenubarMethodInfo
ResolveApplicationMethod "setOptionContextDescription" o = Gio.Application.ApplicationSetOptionContextDescriptionMethodInfo
ResolveApplicationMethod "setOptionContextParameterString" o = Gio.Application.ApplicationSetOptionContextParameterStringMethodInfo
ResolveApplicationMethod "setOptionContextSummary" o = Gio.Application.ApplicationSetOptionContextSummaryMethodInfo
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.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 ApplicationQueryEndCallback =
IO ()
type C_ApplicationQueryEndCallback =
Ptr Application ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ApplicationQueryEndCallback :: C_ApplicationQueryEndCallback -> IO (FunPtr C_ApplicationQueryEndCallback)
wrap_ApplicationQueryEndCallback ::
GObject a => (a -> ApplicationQueryEndCallback) ->
C_ApplicationQueryEndCallback
wrap_ApplicationQueryEndCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationQueryEndCallback
wrap_ApplicationQueryEndCallback a -> IO ()
gi'cb Ptr Application
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Application
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \Application
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce Application
gi'self)
onApplicationQueryEnd :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationQueryEndCallback) -> m SignalHandlerId
onApplicationQueryEnd :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onApplicationQueryEnd a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_ApplicationQueryEndCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationQueryEndCallback
wrap_ApplicationQueryEndCallback a -> IO ()
wrapped
FunPtr C_ApplicationQueryEndCallback
wrapped'' <- C_ApplicationQueryEndCallback
-> IO (FunPtr C_ApplicationQueryEndCallback)
mk_ApplicationQueryEndCallback C_ApplicationQueryEndCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"query-end" FunPtr C_ApplicationQueryEndCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterApplicationQueryEnd :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationQueryEndCallback) -> m SignalHandlerId
afterApplicationQueryEnd :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterApplicationQueryEnd a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_ApplicationQueryEndCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_ApplicationQueryEndCallback
wrap_ApplicationQueryEndCallback a -> IO ()
wrapped
FunPtr C_ApplicationQueryEndCallback
wrapped'' <- C_ApplicationQueryEndCallback
-> IO (FunPtr C_ApplicationQueryEndCallback)
mk_ApplicationQueryEndCallback C_ApplicationQueryEndCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"query-end" FunPtr C_ApplicationQueryEndCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ApplicationQueryEndSignalInfo
instance SignalInfo ApplicationQueryEndSignalInfo where
type HaskellCallbackType ApplicationQueryEndSignalInfo = ApplicationQueryEndCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ApplicationQueryEndCallback cb
cb'' <- mk_ApplicationQueryEndCallback cb'
connectSignalFunPtr obj "query-end" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application::query-end"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#g:signal:queryEnd"})
#endif
type ApplicationWindowAddedCallback =
Gtk.Window.Window
-> IO ()
type C_ApplicationWindowAddedCallback =
Ptr Application ->
Ptr Gtk.Window.Window ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ApplicationWindowAddedCallback :: C_ApplicationWindowAddedCallback -> IO (FunPtr C_ApplicationWindowAddedCallback)
wrap_ApplicationWindowAddedCallback ::
GObject a => (a -> ApplicationWindowAddedCallback) ->
C_ApplicationWindowAddedCallback
wrap_ApplicationWindowAddedCallback :: forall a.
GObject a =>
(a -> ApplicationWindowAddedCallback)
-> C_ApplicationWindowAddedCallback
wrap_ApplicationWindowAddedCallback a -> ApplicationWindowAddedCallback
gi'cb Ptr Application
gi'selfPtr Ptr Window
window Ptr ()
_ = do
Window
window' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Gtk.Window.Window) Ptr Window
window
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Application
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \Application
gi'self -> a -> ApplicationWindowAddedCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce Application
gi'self) Window
window'
onApplicationWindowAdded :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationWindowAddedCallback) -> m SignalHandlerId
onApplicationWindowAdded :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a
-> ((?self::a) => ApplicationWindowAddedCallback)
-> m SignalHandlerId
onApplicationWindowAdded a
obj (?self::a) => ApplicationWindowAddedCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationWindowAddedCallback
wrapped a
self = let ?self = a
self in (?self::a) => ApplicationWindowAddedCallback
cb
let wrapped' :: C_ApplicationWindowAddedCallback
wrapped' = forall a.
GObject a =>
(a -> ApplicationWindowAddedCallback)
-> C_ApplicationWindowAddedCallback
wrap_ApplicationWindowAddedCallback a -> ApplicationWindowAddedCallback
wrapped
FunPtr C_ApplicationWindowAddedCallback
wrapped'' <- C_ApplicationWindowAddedCallback
-> IO (FunPtr C_ApplicationWindowAddedCallback)
mk_ApplicationWindowAddedCallback C_ApplicationWindowAddedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"window-added" FunPtr C_ApplicationWindowAddedCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterApplicationWindowAdded :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationWindowAddedCallback) -> m SignalHandlerId
afterApplicationWindowAdded :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a
-> ((?self::a) => ApplicationWindowAddedCallback)
-> m SignalHandlerId
afterApplicationWindowAdded a
obj (?self::a) => ApplicationWindowAddedCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationWindowAddedCallback
wrapped a
self = let ?self = a
self in (?self::a) => ApplicationWindowAddedCallback
cb
let wrapped' :: C_ApplicationWindowAddedCallback
wrapped' = forall a.
GObject a =>
(a -> ApplicationWindowAddedCallback)
-> C_ApplicationWindowAddedCallback
wrap_ApplicationWindowAddedCallback a -> ApplicationWindowAddedCallback
wrapped
FunPtr C_ApplicationWindowAddedCallback
wrapped'' <- C_ApplicationWindowAddedCallback
-> IO (FunPtr C_ApplicationWindowAddedCallback)
mk_ApplicationWindowAddedCallback C_ApplicationWindowAddedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"window-added" FunPtr C_ApplicationWindowAddedCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ApplicationWindowAddedSignalInfo
instance SignalInfo ApplicationWindowAddedSignalInfo where
type HaskellCallbackType ApplicationWindowAddedSignalInfo = ApplicationWindowAddedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ApplicationWindowAddedCallback cb
cb'' <- mk_ApplicationWindowAddedCallback cb'
connectSignalFunPtr obj "window-added" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application::window-added"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#g:signal:windowAdded"})
#endif
type ApplicationWindowRemovedCallback =
Gtk.Window.Window
-> IO ()
type C_ApplicationWindowRemovedCallback =
Ptr Application ->
Ptr Gtk.Window.Window ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ApplicationWindowRemovedCallback :: C_ApplicationWindowRemovedCallback -> IO (FunPtr C_ApplicationWindowRemovedCallback)
wrap_ApplicationWindowRemovedCallback ::
GObject a => (a -> ApplicationWindowRemovedCallback) ->
C_ApplicationWindowRemovedCallback
wrap_ApplicationWindowRemovedCallback :: forall a.
GObject a =>
(a -> ApplicationWindowAddedCallback)
-> C_ApplicationWindowAddedCallback
wrap_ApplicationWindowRemovedCallback a -> ApplicationWindowAddedCallback
gi'cb Ptr Application
gi'selfPtr Ptr Window
window Ptr ()
_ = do
Window
window' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Gtk.Window.Window) Ptr Window
window
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Application
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \Application
gi'self -> a -> ApplicationWindowAddedCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce Application
gi'self) Window
window'
onApplicationWindowRemoved :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationWindowRemovedCallback) -> m SignalHandlerId
onApplicationWindowRemoved :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a
-> ((?self::a) => ApplicationWindowAddedCallback)
-> m SignalHandlerId
onApplicationWindowRemoved a
obj (?self::a) => ApplicationWindowAddedCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationWindowAddedCallback
wrapped a
self = let ?self = a
self in (?self::a) => ApplicationWindowAddedCallback
cb
let wrapped' :: C_ApplicationWindowAddedCallback
wrapped' = forall a.
GObject a =>
(a -> ApplicationWindowAddedCallback)
-> C_ApplicationWindowAddedCallback
wrap_ApplicationWindowRemovedCallback a -> ApplicationWindowAddedCallback
wrapped
FunPtr C_ApplicationWindowAddedCallback
wrapped'' <- C_ApplicationWindowAddedCallback
-> IO (FunPtr C_ApplicationWindowAddedCallback)
mk_ApplicationWindowRemovedCallback C_ApplicationWindowAddedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"window-removed" FunPtr C_ApplicationWindowAddedCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterApplicationWindowRemoved :: (IsApplication a, MonadIO m) => a -> ((?self :: a) => ApplicationWindowRemovedCallback) -> m SignalHandlerId
afterApplicationWindowRemoved :: forall a (m :: * -> *).
(IsApplication a, MonadIO m) =>
a
-> ((?self::a) => ApplicationWindowAddedCallback)
-> m SignalHandlerId
afterApplicationWindowRemoved a
obj (?self::a) => ApplicationWindowAddedCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ApplicationWindowAddedCallback
wrapped a
self = let ?self = a
self in (?self::a) => ApplicationWindowAddedCallback
cb
let wrapped' :: C_ApplicationWindowAddedCallback
wrapped' = forall a.
GObject a =>
(a -> ApplicationWindowAddedCallback)
-> C_ApplicationWindowAddedCallback
wrap_ApplicationWindowRemovedCallback a -> ApplicationWindowAddedCallback
wrapped
FunPtr C_ApplicationWindowAddedCallback
wrapped'' <- C_ApplicationWindowAddedCallback
-> IO (FunPtr C_ApplicationWindowAddedCallback)
mk_ApplicationWindowRemovedCallback C_ApplicationWindowAddedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"window-removed" FunPtr C_ApplicationWindowAddedCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ApplicationWindowRemovedSignalInfo
instance SignalInfo ApplicationWindowRemovedSignalInfo where
type HaskellCallbackType ApplicationWindowRemovedSignalInfo = ApplicationWindowRemovedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ApplicationWindowRemovedCallback cb
cb'' <- mk_ApplicationWindowRemovedCallback cb'
connectSignalFunPtr obj "window-removed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application::window-removed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#g:signal:windowRemoved"})
#endif
getApplicationActiveWindow :: (MonadIO m, IsApplication o) => o -> m (Maybe Gtk.Window.Window)
getApplicationActiveWindow :: forall (m :: * -> *) o.
(MonadIO m, IsApplication o) =>
o -> m (Maybe Window)
getApplicationActiveWindow o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"active-window" ManagedPtr Window -> Window
Gtk.Window.Window
#if defined(ENABLE_OVERLOADING)
data ApplicationActiveWindowPropertyInfo
instance AttrInfo ApplicationActiveWindowPropertyInfo where
type AttrAllowedOps ApplicationActiveWindowPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ApplicationActiveWindowPropertyInfo = IsApplication
type AttrSetTypeConstraint ApplicationActiveWindowPropertyInfo = (~) ()
type AttrTransferTypeConstraint ApplicationActiveWindowPropertyInfo = (~) ()
type AttrTransferType ApplicationActiveWindowPropertyInfo = ()
type AttrGetType ApplicationActiveWindowPropertyInfo = (Maybe Gtk.Window.Window)
type AttrLabel ApplicationActiveWindowPropertyInfo = "active-window"
type AttrOrigin ApplicationActiveWindowPropertyInfo = Application
attrGet = getApplicationActiveWindow
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.activeWindow"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#g:attr:activeWindow"
})
#endif
getApplicationAppMenu :: (MonadIO m, IsApplication o) => o -> m (Maybe Gio.MenuModel.MenuModel)
o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"app-menu" ManagedPtr MenuModel -> MenuModel
Gio.MenuModel.MenuModel
setApplicationAppMenu :: (MonadIO m, IsApplication o, Gio.MenuModel.IsMenuModel a) => o -> a -> m ()
o
obj a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"app-menu" (forall a. a -> Maybe a
Just a
val)
constructApplicationAppMenu :: (IsApplication o, MIO.MonadIO m, Gio.MenuModel.IsMenuModel a) => a -> m (GValueConstruct o)
a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"app-menu" (forall a. a -> Maybe a
P.Just a
val)
clearApplicationAppMenu :: (MonadIO m, IsApplication o) => o -> m ()
o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"app-menu" (forall a. Maybe a
Nothing :: Maybe Gio.MenuModel.MenuModel)
#if defined(ENABLE_OVERLOADING)
data ApplicationAppMenuPropertyInfo
instance AttrInfo ApplicationAppMenuPropertyInfo where
type AttrAllowedOps ApplicationAppMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ApplicationAppMenuPropertyInfo = IsApplication
type AttrSetTypeConstraint ApplicationAppMenuPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrTransferTypeConstraint ApplicationAppMenuPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrTransferType ApplicationAppMenuPropertyInfo = Gio.MenuModel.MenuModel
type AttrGetType ApplicationAppMenuPropertyInfo = (Maybe Gio.MenuModel.MenuModel)
type AttrLabel ApplicationAppMenuPropertyInfo = "app-menu"
type AttrOrigin ApplicationAppMenuPropertyInfo = Application
attrGet = getApplicationAppMenu
attrSet = setApplicationAppMenu
attrTransfer _ v = do
unsafeCastTo Gio.MenuModel.MenuModel v
attrConstruct = constructApplicationAppMenu
attrClear = clearApplicationAppMenu
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.appMenu"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#g:attr:appMenu"
})
#endif
getApplicationMenubar :: (MonadIO m, IsApplication o) => o -> m Gio.MenuModel.MenuModel
o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getApplicationMenubar" forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"menubar" ManagedPtr MenuModel -> MenuModel
Gio.MenuModel.MenuModel
setApplicationMenubar :: (MonadIO m, IsApplication o, Gio.MenuModel.IsMenuModel a) => o -> a -> m ()
o
obj a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"menubar" (forall a. a -> Maybe a
Just a
val)
constructApplicationMenubar :: (IsApplication o, MIO.MonadIO m, Gio.MenuModel.IsMenuModel a) => a -> m (GValueConstruct o)
a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"menubar" (forall a. a -> Maybe a
P.Just a
val)
clearApplicationMenubar :: (MonadIO m, IsApplication o) => o -> m ()
o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"menubar" (forall a. Maybe a
Nothing :: Maybe Gio.MenuModel.MenuModel)
#if defined(ENABLE_OVERLOADING)
data ApplicationMenubarPropertyInfo
instance AttrInfo ApplicationMenubarPropertyInfo where
type AttrAllowedOps ApplicationMenubarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ApplicationMenubarPropertyInfo = IsApplication
type AttrSetTypeConstraint ApplicationMenubarPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrTransferTypeConstraint ApplicationMenubarPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrTransferType ApplicationMenubarPropertyInfo = Gio.MenuModel.MenuModel
type AttrGetType ApplicationMenubarPropertyInfo = Gio.MenuModel.MenuModel
type AttrLabel ApplicationMenubarPropertyInfo = "menubar"
type AttrOrigin ApplicationMenubarPropertyInfo = Application
attrGet = getApplicationMenubar
attrSet = setApplicationMenubar
attrTransfer _ v = do
unsafeCastTo Gio.MenuModel.MenuModel v
attrConstruct = constructApplicationMenubar
attrClear = clearApplicationMenubar
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.menubar"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#g:attr:menubar"
})
#endif
getApplicationRegisterSession :: (MonadIO m, IsApplication o) => o -> m Bool
getApplicationRegisterSession :: forall (m :: * -> *) o. (MonadIO m, IsApplication o) => o -> m Bool
getApplicationRegisterSession o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"register-session"
setApplicationRegisterSession :: (MonadIO m, IsApplication o) => o -> Bool -> m ()
setApplicationRegisterSession :: forall (m :: * -> *) o.
(MonadIO m, IsApplication o) =>
o -> Bool -> m ()
setApplicationRegisterSession o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"register-session" Bool
val
constructApplicationRegisterSession :: (IsApplication o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructApplicationRegisterSession :: forall o (m :: * -> *).
(IsApplication o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructApplicationRegisterSession Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"register-session" Bool
val
#if defined(ENABLE_OVERLOADING)
data ApplicationRegisterSessionPropertyInfo
instance AttrInfo ApplicationRegisterSessionPropertyInfo where
type AttrAllowedOps ApplicationRegisterSessionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ApplicationRegisterSessionPropertyInfo = IsApplication
type AttrSetTypeConstraint ApplicationRegisterSessionPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ApplicationRegisterSessionPropertyInfo = (~) Bool
type AttrTransferType ApplicationRegisterSessionPropertyInfo = Bool
type AttrGetType ApplicationRegisterSessionPropertyInfo = Bool
type AttrLabel ApplicationRegisterSessionPropertyInfo = "register-session"
type AttrOrigin ApplicationRegisterSessionPropertyInfo = Application
attrGet = getApplicationRegisterSession
attrSet = setApplicationRegisterSession
attrTransfer _ v = do
return v
attrConstruct = constructApplicationRegisterSession
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.registerSession"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#g:attr:registerSession"
})
#endif
getApplicationScreensaverActive :: (MonadIO m, IsApplication o) => o -> m Bool
getApplicationScreensaverActive :: forall (m :: * -> *) o. (MonadIO m, IsApplication o) => o -> m Bool
getApplicationScreensaverActive o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"screensaver-active"
#if defined(ENABLE_OVERLOADING)
data ApplicationScreensaverActivePropertyInfo
instance AttrInfo ApplicationScreensaverActivePropertyInfo where
type AttrAllowedOps ApplicationScreensaverActivePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ApplicationScreensaverActivePropertyInfo = IsApplication
type AttrSetTypeConstraint ApplicationScreensaverActivePropertyInfo = (~) ()
type AttrTransferTypeConstraint ApplicationScreensaverActivePropertyInfo = (~) ()
type AttrTransferType ApplicationScreensaverActivePropertyInfo = ()
type AttrGetType ApplicationScreensaverActivePropertyInfo = Bool
type AttrLabel ApplicationScreensaverActivePropertyInfo = "screensaver-active"
type AttrOrigin ApplicationScreensaverActivePropertyInfo = Application
attrGet = getApplicationScreensaverActive
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.screensaverActive"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#g:attr:screensaverActive"
})
#endif
#if defined(ENABLE_OVERLOADING)
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), '("screensaverActive", ApplicationScreensaverActivePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
applicationActiveWindow :: AttrLabelProxy "activeWindow"
applicationActiveWindow = AttrLabelProxy
applicationAppMenu :: AttrLabelProxy "appMenu"
applicationAppMenu = AttrLabelProxy
applicationMenubar :: AttrLabelProxy "menubar"
applicationMenubar = AttrLabelProxy
applicationRegisterSession :: AttrLabelProxy "registerSession"
applicationRegisterSession = AttrLabelProxy
applicationScreensaverActive :: AttrLabelProxy "screensaverActive"
applicationScreensaverActive = 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", Gio.Application.ApplicationActivateSignalInfo), '("commandLine", Gio.Application.ApplicationCommandLineSignalInfo), '("handleLocalOptions", Gio.Application.ApplicationHandleLocalOptionsSignalInfo), '("nameLost", Gio.Application.ApplicationNameLostSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("open", Gio.Application.ApplicationOpenSignalInfo), '("queryEnd", ApplicationQueryEndSignalInfo), '("shutdown", Gio.Application.ApplicationShutdownSignalInfo), '("startup", Gio.Application.ApplicationStartupSignalInfo), '("windowAdded", ApplicationWindowAddedSignalInfo), '("windowRemoved", ApplicationWindowRemovedSignalInfo)] :: [(Symbol, DK.Type)])
#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 (Maybe Application)
applicationNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Maybe Text -> [ApplicationFlags] -> m (Maybe Application)
applicationNew Maybe Text
applicationId [ApplicationFlags]
flags = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr CChar
maybeApplicationId <- case Maybe Text
applicationId of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jApplicationId -> do
Ptr CChar
jApplicationId' <- Text -> IO (Ptr CChar)
textToCString Text
jApplicationId
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jApplicationId'
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ApplicationFlags]
flags
Ptr Application
result <- Ptr CChar -> CUInt -> IO (Ptr Application)
gtk_application_new Ptr CChar
maybeApplicationId CUInt
flags'
Maybe Application
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Application
result forall a b. (a -> b) -> a -> b
$ \Ptr Application
result' -> do
Application
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Application -> Application
Application) Ptr Application
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Application
result''
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeApplicationId
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Application
maybeResult
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_application_add_accelerator" gtk_application_add_accelerator ::
Ptr Application ->
CString ->
CString ->
Ptr GVariant ->
IO ()
{-# DEPRECATED applicationAddAccelerator ["(Since version 3.14)","Use 'GI.Gtk.Objects.Application.applicationSetAccelsForAction' instead"] #-}
applicationAddAccelerator ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> T.Text
-> T.Text
-> Maybe (GVariant)
-> m ()
applicationAddAccelerator :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> Text -> Text -> Maybe GVariant -> m ()
applicationAddAccelerator a
application Text
accelerator Text
actionName Maybe GVariant
parameter = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr CChar
accelerator' <- Text -> IO (Ptr CChar)
textToCString Text
accelerator
Ptr CChar
actionName' <- Text -> IO (Ptr CChar)
textToCString Text
actionName
Ptr GVariant
maybeParameter <- case Maybe GVariant
parameter of
Maybe GVariant
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just GVariant
jParameter -> do
Ptr GVariant
jParameter' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
jParameter
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
jParameter'
Ptr Application -> Ptr CChar -> Ptr CChar -> Ptr GVariant -> IO ()
gtk_application_add_accelerator Ptr Application
application' Ptr CChar
accelerator' Ptr CChar
actionName' Ptr GVariant
maybeParameter
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe GVariant
parameter forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall a. Ptr a -> IO ()
freeMem Ptr CChar
accelerator'
forall a. Ptr a -> IO ()
freeMem Ptr CChar
actionName'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationAddAcceleratorMethodInfo
instance (signature ~ (T.Text -> T.Text -> Maybe (GVariant) -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationAddAcceleratorMethodInfo a signature where
overloadedMethod = applicationAddAccelerator
instance O.OverloadedMethodInfo ApplicationAddAcceleratorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationAddAccelerator",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsApplication a, IsWindow b) =>
a -> b -> m ()
applicationAddWindow a
application b
window = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Window
window' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
window
Ptr Application -> Ptr Window -> IO ()
gtk_application_add_window Ptr Application
application' Ptr Window
window'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
window
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationAddWindowMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsApplication a, Gtk.Window.IsWindow b) => O.OverloadedMethod ApplicationAddWindowMethodInfo a signature where
overloadedMethod = applicationAddWindow
instance O.OverloadedMethodInfo ApplicationAddWindowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationAddWindow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> Text -> m [Text]
applicationGetAccelsForAction a
application Text
detailedActionName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr CChar
detailedActionName' <- Text -> IO (Ptr CChar)
textToCString Text
detailedActionName
Ptr (Ptr CChar)
result <- Ptr Application -> Ptr CChar -> IO (Ptr (Ptr CChar))
gtk_application_get_accels_for_action Ptr Application
application' Ptr CChar
detailedActionName'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"applicationGetAccelsForAction" Ptr (Ptr CChar)
result
[Text]
result' <- HasCallStack => Ptr (Ptr CChar) -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr (Ptr CChar)
result
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
result
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. Ptr a -> IO ()
freeMem Ptr CChar
detailedActionName'
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationGetAccelsForActionMethodInfo
instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetAccelsForActionMethodInfo a signature where
overloadedMethod = applicationGetAccelsForAction
instance O.OverloadedMethodInfo ApplicationGetAccelsForActionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationGetAccelsForAction",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> Text -> m [Text]
applicationGetActionsForAccel a
application Text
accel = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr CChar
accel' <- Text -> IO (Ptr CChar)
textToCString Text
accel
Ptr (Ptr CChar)
result <- Ptr Application -> Ptr CChar -> IO (Ptr (Ptr CChar))
gtk_application_get_actions_for_accel Ptr Application
application' Ptr CChar
accel'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"applicationGetActionsForAccel" Ptr (Ptr CChar)
result
[Text]
result' <- HasCallStack => Ptr (Ptr CChar) -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr (Ptr CChar)
result
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
result
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. Ptr a -> IO ()
freeMem Ptr CChar
accel'
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationGetActionsForAccelMethodInfo
instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetActionsForAccelMethodInfo a signature where
overloadedMethod = applicationGetActionsForAccel
instance O.OverloadedMethodInfo ApplicationGetActionsForAccelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationGetActionsForAccel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m (Maybe Window)
applicationGetActiveWindow a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Window
result <- Ptr Application -> IO (Ptr Window)
gtk_application_get_active_window Ptr Application
application'
Maybe Window
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Window
result forall a b. (a -> b) -> a -> b
$ \Ptr Window
result' -> do
Window
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Gtk.Window.Window) Ptr Window
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Window
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Window
maybeResult
#if defined(ENABLE_OVERLOADING)
data ApplicationGetActiveWindowMethodInfo
instance (signature ~ (m (Maybe Gtk.Window.Window)), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetActiveWindowMethodInfo a signature where
overloadedMethod = applicationGetActiveWindow
instance O.OverloadedMethodInfo ApplicationGetActiveWindowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationGetActiveWindow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v:applicationGetActiveWindow"
})
#endif
foreign import ccall "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)
a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr MenuModel
result <- Ptr Application -> IO (Ptr MenuModel)
gtk_application_get_app_menu Ptr Application
application'
Maybe MenuModel
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr MenuModel
result forall a b. (a -> b) -> a -> b
$ \Ptr MenuModel
result' -> do
MenuModel
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr MenuModel -> MenuModel
Gio.MenuModel.MenuModel) Ptr MenuModel
result'
forall (m :: * -> *) a. Monad m => a -> m a
return MenuModel
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MenuModel
maybeResult
#if defined(ENABLE_OVERLOADING)
data ApplicationGetAppMenuMethodInfo
instance (signature ~ (m (Maybe Gio.MenuModel.MenuModel)), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetAppMenuMethodInfo a signature where
overloadedMethod = applicationGetAppMenu
instance O.OverloadedMethodInfo ApplicationGetAppMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationGetAppMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v:applicationGetAppMenu"
})
#endif
foreign import ccall "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
a
application Text
id = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr CChar
id' <- Text -> IO (Ptr CChar)
textToCString Text
id
Ptr Menu
result <- Ptr Application -> Ptr CChar -> IO (Ptr Menu)
gtk_application_get_menu_by_id Ptr Application
application' Ptr CChar
id'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"applicationGetMenuById" Ptr Menu
result
Menu
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Menu -> Menu
Gio.Menu.Menu) Ptr Menu
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. Ptr a -> IO ()
freeMem Ptr CChar
id'
forall (m :: * -> *) a. Monad m => a -> m a
return Menu
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationGetMenuByIdMethodInfo
instance (signature ~ (T.Text -> m Gio.Menu.Menu), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetMenuByIdMethodInfo a signature where
overloadedMethod = applicationGetMenuById
instance O.OverloadedMethodInfo ApplicationGetMenuByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationGetMenuById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v:applicationGetMenuById"
})
#endif
foreign import ccall "gtk_application_get_menubar" ::
Ptr Application ->
IO (Ptr Gio.MenuModel.MenuModel)
applicationGetMenubar ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m Gio.MenuModel.MenuModel
a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr MenuModel
result <- Ptr Application -> IO (Ptr MenuModel)
gtk_application_get_menubar Ptr Application
application'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"applicationGetMenubar" Ptr MenuModel
result
MenuModel
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr MenuModel -> MenuModel
Gio.MenuModel.MenuModel) Ptr MenuModel
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return MenuModel
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationGetMenubarMethodInfo
instance (signature ~ (m Gio.MenuModel.MenuModel), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetMenubarMethodInfo a signature where
overloadedMethod = applicationGetMenubar
instance O.OverloadedMethodInfo ApplicationGetMenubarMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationGetMenubar",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> Word32 -> m (Maybe Window)
applicationGetWindowById a
application Word32
id = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Window
result <- Ptr Application -> Word32 -> IO (Ptr Window)
gtk_application_get_window_by_id Ptr Application
application' Word32
id
Maybe Window
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Window
result forall a b. (a -> b) -> a -> b
$ \Ptr Window
result' -> do
Window
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Gtk.Window.Window) Ptr Window
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Window
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Window
maybeResult
#if defined(ENABLE_OVERLOADING)
data ApplicationGetWindowByIdMethodInfo
instance (signature ~ (Word32 -> m (Maybe Gtk.Window.Window)), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetWindowByIdMethodInfo a signature where
overloadedMethod = applicationGetWindowById
instance O.OverloadedMethodInfo ApplicationGetWindowByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationGetWindowById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m [Window]
applicationGetWindows a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr (GList (Ptr Window))
result <- Ptr Application -> IO (Ptr (GList (Ptr Window)))
gtk_application_get_windows Ptr Application
application'
[Ptr Window]
result' <- forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr Window))
result
[Window]
result'' <- forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Gtk.Window.Window) [Ptr Window]
result'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return [Window]
result''
#if defined(ENABLE_OVERLOADING)
data ApplicationGetWindowsMethodInfo
instance (signature ~ (m [Gtk.Window.Window]), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationGetWindowsMethodInfo a signature where
overloadedMethod = applicationGetWindows
instance O.OverloadedMethodInfo ApplicationGetWindowsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationGetWindows",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsApplication a, IsWindow b) =>
a -> Maybe b -> [ApplicationInhibitFlags] -> Maybe Text -> m Word32
applicationInhibit a
application Maybe b
window [ApplicationInhibitFlags]
flags Maybe Text
reason = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Window
maybeWindow <- case Maybe b
window of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jWindow -> do
Ptr Window
jWindow' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jWindow
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Window
jWindow'
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ApplicationInhibitFlags]
flags
Ptr CChar
maybeReason <- case Maybe Text
reason of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jReason -> do
Ptr CChar
jReason' <- Text -> IO (Ptr CChar)
textToCString Text
jReason
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jReason'
Word32
result <- Ptr Application -> Ptr Window -> CUInt -> Ptr CChar -> IO Word32
gtk_application_inhibit Ptr Application
application' Ptr Window
maybeWindow CUInt
flags' Ptr CChar
maybeReason
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
window forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeReason
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data ApplicationInhibitMethodInfo
instance (signature ~ (Maybe (b) -> [Gtk.Flags.ApplicationInhibitFlags] -> Maybe (T.Text) -> m Word32), MonadIO m, IsApplication a, Gtk.Window.IsWindow b) => O.OverloadedMethod ApplicationInhibitMethodInfo a signature where
overloadedMethod = applicationInhibit
instance O.OverloadedMethodInfo ApplicationInhibitMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationInhibit",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> [ApplicationInhibitFlags] -> m Bool
applicationIsInhibited a
application [ApplicationInhibitFlags]
flags = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ApplicationInhibitFlags]
flags
CInt
result <- Ptr Application -> CUInt -> IO CInt
gtk_application_is_inhibited Ptr Application
application' CUInt
flags'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationIsInhibitedMethodInfo
instance (signature ~ ([Gtk.Flags.ApplicationInhibitFlags] -> m Bool), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationIsInhibitedMethodInfo a signature where
overloadedMethod = applicationIsInhibited
instance O.OverloadedMethodInfo ApplicationIsInhibitedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationIsInhibited",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> m [Text]
applicationListActionDescriptions a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr (Ptr CChar)
result <- Ptr Application -> IO (Ptr (Ptr CChar))
gtk_application_list_action_descriptions Ptr Application
application'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"applicationListActionDescriptions" Ptr (Ptr CChar)
result
[Text]
result' <- HasCallStack => Ptr (Ptr CChar) -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr (Ptr CChar)
result
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
result
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationListActionDescriptionsMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationListActionDescriptionsMethodInfo a signature where
overloadedMethod = applicationListActionDescriptions
instance O.OverloadedMethodInfo ApplicationListActionDescriptionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationListActionDescriptions",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v:applicationListActionDescriptions"
})
#endif
foreign import ccall "gtk_application_prefers_app_menu" ::
Ptr Application ->
IO CInt
applicationPrefersAppMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> m Bool
a
application = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
CInt
result <- Ptr Application -> IO CInt
gtk_application_prefers_app_menu Ptr Application
application'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationPrefersAppMenuMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationPrefersAppMenuMethodInfo a signature where
overloadedMethod = applicationPrefersAppMenu
instance O.OverloadedMethodInfo ApplicationPrefersAppMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationPrefersAppMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v:applicationPrefersAppMenu"
})
#endif
foreign import ccall "gtk_application_remove_accelerator" gtk_application_remove_accelerator ::
Ptr Application ->
CString ->
Ptr GVariant ->
IO ()
{-# DEPRECATED applicationRemoveAccelerator ["(Since version 3.14)","Use 'GI.Gtk.Objects.Application.applicationSetAccelsForAction' instead"] #-}
applicationRemoveAccelerator ::
(B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>
a
-> T.Text
-> Maybe (GVariant)
-> m ()
applicationRemoveAccelerator :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> Text -> Maybe GVariant -> m ()
applicationRemoveAccelerator a
application Text
actionName Maybe GVariant
parameter = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr CChar
actionName' <- Text -> IO (Ptr CChar)
textToCString Text
actionName
Ptr GVariant
maybeParameter <- case Maybe GVariant
parameter of
Maybe GVariant
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just GVariant
jParameter -> do
Ptr GVariant
jParameter' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
jParameter
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
jParameter'
Ptr Application -> Ptr CChar -> Ptr GVariant -> IO ()
gtk_application_remove_accelerator Ptr Application
application' Ptr CChar
actionName' Ptr GVariant
maybeParameter
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe GVariant
parameter forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall a. Ptr a -> IO ()
freeMem Ptr CChar
actionName'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationRemoveAcceleratorMethodInfo
instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationRemoveAcceleratorMethodInfo a signature where
overloadedMethod = applicationRemoveAccelerator
instance O.OverloadedMethodInfo ApplicationRemoveAcceleratorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationRemoveAccelerator",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsApplication a, IsWindow b) =>
a -> b -> m ()
applicationRemoveWindow a
application b
window = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Window
window' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
window
Ptr Application -> Ptr Window -> IO ()
gtk_application_remove_window Ptr Application
application' Ptr Window
window'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
window
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationRemoveWindowMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsApplication a, Gtk.Window.IsWindow b) => O.OverloadedMethod ApplicationRemoveWindowMethodInfo a signature where
overloadedMethod = applicationRemoveWindow
instance O.OverloadedMethodInfo ApplicationRemoveWindowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationRemoveWindow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> Text -> [Text] -> m ()
applicationSetAccelsForAction a
application Text
detailedActionName [Text]
accels = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr CChar
detailedActionName' <- Text -> IO (Ptr CChar)
textToCString Text
detailedActionName
Ptr (Ptr CChar)
accels' <- [Text] -> IO (Ptr (Ptr CChar))
packZeroTerminatedUTF8CArray [Text]
accels
Ptr Application -> Ptr CChar -> Ptr (Ptr CChar) -> IO ()
gtk_application_set_accels_for_action Ptr Application
application' Ptr CChar
detailedActionName' Ptr (Ptr CChar)
accels'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall a. Ptr a -> IO ()
freeMem Ptr CChar
detailedActionName'
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
accels'
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
accels'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationSetAccelsForActionMethodInfo
instance (signature ~ (T.Text -> [T.Text] -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationSetAccelsForActionMethodInfo a signature where
overloadedMethod = applicationSetAccelsForAction
instance O.OverloadedMethodInfo ApplicationSetAccelsForActionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationSetAccelsForAction",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v:applicationSetAccelsForAction"
})
#endif
foreign import ccall "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 ()
a
application Maybe b
appMenu = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr MenuModel
maybeAppMenu <- case Maybe b
appMenu of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jAppMenu -> do
Ptr MenuModel
jAppMenu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jAppMenu
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MenuModel
jAppMenu'
Ptr Application -> Ptr MenuModel -> IO ()
gtk_application_set_app_menu Ptr Application
application' Ptr MenuModel
maybeAppMenu
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
appMenu forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationSetAppMenuMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsApplication a, Gio.MenuModel.IsMenuModel b) => O.OverloadedMethod ApplicationSetAppMenuMethodInfo a signature where
overloadedMethod = applicationSetAppMenu
instance O.OverloadedMethodInfo ApplicationSetAppMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationSetAppMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v:applicationSetAppMenu"
})
#endif
foreign import ccall "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 ()
a
application Maybe b
menubar = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr MenuModel
maybeMenubar <- case Maybe b
menubar of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jMenubar -> do
Ptr MenuModel
jMenubar' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jMenubar
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MenuModel
jMenubar'
Ptr Application -> Ptr MenuModel -> IO ()
gtk_application_set_menubar Ptr Application
application' Ptr MenuModel
maybeMenubar
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
menubar forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationSetMenubarMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsApplication a, Gio.MenuModel.IsMenuModel b) => O.OverloadedMethod ApplicationSetMenubarMethodInfo a signature where
overloadedMethod = applicationSetMenubar
instance O.OverloadedMethodInfo ApplicationSetMenubarMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationSetMenubar",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplication a) =>
a -> Word32 -> m ()
applicationUninhibit a
application Word32
cookie = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Application
application' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
application
Ptr Application -> Word32 -> IO ()
gtk_application_uninhibit Ptr Application
application' Word32
cookie
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
application
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationUninhibitMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsApplication a) => O.OverloadedMethod ApplicationUninhibitMethodInfo a signature where
overloadedMethod = applicationUninhibit
instance O.OverloadedMethodInfo ApplicationUninhibitMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Application.applicationUninhibit",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Application.html#v:applicationUninhibit"
})
#endif