{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Atk.Interfaces.Window
(
Window(..) ,
noWindow ,
IsWindow ,
toWindow ,
#if defined(ENABLE_OVERLOADING)
ResolveWindowMethod ,
#endif
C_WindowActivateCallback ,
WindowActivateCallback ,
#if defined(ENABLE_OVERLOADING)
WindowActivateSignalInfo ,
#endif
afterWindowActivate ,
genClosure_WindowActivate ,
mk_WindowActivateCallback ,
noWindowActivateCallback ,
onWindowActivate ,
wrap_WindowActivateCallback ,
C_WindowCreateCallback ,
WindowCreateCallback ,
#if defined(ENABLE_OVERLOADING)
WindowCreateSignalInfo ,
#endif
afterWindowCreate ,
genClosure_WindowCreate ,
mk_WindowCreateCallback ,
noWindowCreateCallback ,
onWindowCreate ,
wrap_WindowCreateCallback ,
C_WindowDeactivateCallback ,
WindowDeactivateCallback ,
#if defined(ENABLE_OVERLOADING)
WindowDeactivateSignalInfo ,
#endif
afterWindowDeactivate ,
genClosure_WindowDeactivate ,
mk_WindowDeactivateCallback ,
noWindowDeactivateCallback ,
onWindowDeactivate ,
wrap_WindowDeactivateCallback ,
C_WindowDestroyCallback ,
WindowDestroyCallback ,
#if defined(ENABLE_OVERLOADING)
WindowDestroySignalInfo ,
#endif
afterWindowDestroy ,
genClosure_WindowDestroy ,
mk_WindowDestroyCallback ,
noWindowDestroyCallback ,
onWindowDestroy ,
wrap_WindowDestroyCallback ,
C_WindowMaximizeCallback ,
WindowMaximizeCallback ,
#if defined(ENABLE_OVERLOADING)
WindowMaximizeSignalInfo ,
#endif
afterWindowMaximize ,
genClosure_WindowMaximize ,
mk_WindowMaximizeCallback ,
noWindowMaximizeCallback ,
onWindowMaximize ,
wrap_WindowMaximizeCallback ,
C_WindowMinimizeCallback ,
WindowMinimizeCallback ,
#if defined(ENABLE_OVERLOADING)
WindowMinimizeSignalInfo ,
#endif
afterWindowMinimize ,
genClosure_WindowMinimize ,
mk_WindowMinimizeCallback ,
noWindowMinimizeCallback ,
onWindowMinimize ,
wrap_WindowMinimizeCallback ,
C_WindowMoveCallback ,
WindowMoveCallback ,
#if defined(ENABLE_OVERLOADING)
WindowMoveSignalInfo ,
#endif
afterWindowMove ,
genClosure_WindowMove ,
mk_WindowMoveCallback ,
noWindowMoveCallback ,
onWindowMove ,
wrap_WindowMoveCallback ,
C_WindowResizeCallback ,
WindowResizeCallback ,
#if defined(ENABLE_OVERLOADING)
WindowResizeSignalInfo ,
#endif
afterWindowResize ,
genClosure_WindowResize ,
mk_WindowResizeCallback ,
noWindowResizeCallback ,
onWindowResize ,
wrap_WindowResizeCallback ,
C_WindowRestoreCallback ,
WindowRestoreCallback ,
#if defined(ENABLE_OVERLOADING)
WindowRestoreSignalInfo ,
#endif
afterWindowRestore ,
genClosure_WindowRestore ,
mk_WindowRestoreCallback ,
noWindowRestoreCallback ,
onWindowRestore ,
wrap_WindowRestoreCallback ,
) 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.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
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 Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import {-# SOURCE #-} qualified GI.Atk.Objects.Object as Atk.Object
import qualified GI.GObject.Objects.Object as GObject.Object
newtype Window = Window (ManagedPtr Window)
deriving (Eq)
noWindow :: Maybe Window
noWindow = Nothing
type WindowActivateCallback =
IO ()
noWindowActivateCallback :: Maybe WindowActivateCallback
noWindowActivateCallback = Nothing
type C_WindowActivateCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowActivateCallback :: C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
genClosure_WindowActivate :: MonadIO m => WindowActivateCallback -> m (GClosure C_WindowActivateCallback)
genClosure_WindowActivate cb = liftIO $ do
let cb' = wrap_WindowActivateCallback cb
mk_WindowActivateCallback cb' >>= B.GClosure.newGClosure
wrap_WindowActivateCallback ::
WindowActivateCallback ->
C_WindowActivateCallback
wrap_WindowActivateCallback _cb _ _ = do
_cb
onWindowActivate :: (IsWindow a, MonadIO m) => a -> WindowActivateCallback -> m SignalHandlerId
onWindowActivate obj cb = liftIO $ do
let cb' = wrap_WindowActivateCallback cb
cb'' <- mk_WindowActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' SignalConnectBefore Nothing
afterWindowActivate :: (IsWindow a, MonadIO m) => a -> WindowActivateCallback -> m SignalHandlerId
afterWindowActivate obj cb = liftIO $ do
let cb' = wrap_WindowActivateCallback cb
cb'' <- mk_WindowActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data WindowActivateSignalInfo
instance SignalInfo WindowActivateSignalInfo where
type HaskellCallbackType WindowActivateSignalInfo = WindowActivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowActivateCallback cb
cb'' <- mk_WindowActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode detail
#endif
type WindowCreateCallback =
IO ()
noWindowCreateCallback :: Maybe WindowCreateCallback
noWindowCreateCallback = Nothing
type C_WindowCreateCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowCreateCallback :: C_WindowCreateCallback -> IO (FunPtr C_WindowCreateCallback)
genClosure_WindowCreate :: MonadIO m => WindowCreateCallback -> m (GClosure C_WindowCreateCallback)
genClosure_WindowCreate cb = liftIO $ do
let cb' = wrap_WindowCreateCallback cb
mk_WindowCreateCallback cb' >>= B.GClosure.newGClosure
wrap_WindowCreateCallback ::
WindowCreateCallback ->
C_WindowCreateCallback
wrap_WindowCreateCallback _cb _ _ = do
_cb
onWindowCreate :: (IsWindow a, MonadIO m) => a -> WindowCreateCallback -> m SignalHandlerId
onWindowCreate obj cb = liftIO $ do
let cb' = wrap_WindowCreateCallback cb
cb'' <- mk_WindowCreateCallback cb'
connectSignalFunPtr obj "create" cb'' SignalConnectBefore Nothing
afterWindowCreate :: (IsWindow a, MonadIO m) => a -> WindowCreateCallback -> m SignalHandlerId
afterWindowCreate obj cb = liftIO $ do
let cb' = wrap_WindowCreateCallback cb
cb'' <- mk_WindowCreateCallback cb'
connectSignalFunPtr obj "create" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data WindowCreateSignalInfo
instance SignalInfo WindowCreateSignalInfo where
type HaskellCallbackType WindowCreateSignalInfo = WindowCreateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowCreateCallback cb
cb'' <- mk_WindowCreateCallback cb'
connectSignalFunPtr obj "create" cb'' connectMode detail
#endif
type WindowDeactivateCallback =
IO ()
noWindowDeactivateCallback :: Maybe WindowDeactivateCallback
noWindowDeactivateCallback = Nothing
type C_WindowDeactivateCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowDeactivateCallback :: C_WindowDeactivateCallback -> IO (FunPtr C_WindowDeactivateCallback)
genClosure_WindowDeactivate :: MonadIO m => WindowDeactivateCallback -> m (GClosure C_WindowDeactivateCallback)
genClosure_WindowDeactivate cb = liftIO $ do
let cb' = wrap_WindowDeactivateCallback cb
mk_WindowDeactivateCallback cb' >>= B.GClosure.newGClosure
wrap_WindowDeactivateCallback ::
WindowDeactivateCallback ->
C_WindowDeactivateCallback
wrap_WindowDeactivateCallback _cb _ _ = do
_cb
onWindowDeactivate :: (IsWindow a, MonadIO m) => a -> WindowDeactivateCallback -> m SignalHandlerId
onWindowDeactivate obj cb = liftIO $ do
let cb' = wrap_WindowDeactivateCallback cb
cb'' <- mk_WindowDeactivateCallback cb'
connectSignalFunPtr obj "deactivate" cb'' SignalConnectBefore Nothing
afterWindowDeactivate :: (IsWindow a, MonadIO m) => a -> WindowDeactivateCallback -> m SignalHandlerId
afterWindowDeactivate obj cb = liftIO $ do
let cb' = wrap_WindowDeactivateCallback cb
cb'' <- mk_WindowDeactivateCallback cb'
connectSignalFunPtr obj "deactivate" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data WindowDeactivateSignalInfo
instance SignalInfo WindowDeactivateSignalInfo where
type HaskellCallbackType WindowDeactivateSignalInfo = WindowDeactivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowDeactivateCallback cb
cb'' <- mk_WindowDeactivateCallback cb'
connectSignalFunPtr obj "deactivate" cb'' connectMode detail
#endif
type WindowDestroyCallback =
IO ()
noWindowDestroyCallback :: Maybe WindowDestroyCallback
noWindowDestroyCallback = Nothing
type C_WindowDestroyCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowDestroyCallback :: C_WindowDestroyCallback -> IO (FunPtr C_WindowDestroyCallback)
genClosure_WindowDestroy :: MonadIO m => WindowDestroyCallback -> m (GClosure C_WindowDestroyCallback)
genClosure_WindowDestroy cb = liftIO $ do
let cb' = wrap_WindowDestroyCallback cb
mk_WindowDestroyCallback cb' >>= B.GClosure.newGClosure
wrap_WindowDestroyCallback ::
WindowDestroyCallback ->
C_WindowDestroyCallback
wrap_WindowDestroyCallback _cb _ _ = do
_cb
onWindowDestroy :: (IsWindow a, MonadIO m) => a -> WindowDestroyCallback -> m SignalHandlerId
onWindowDestroy obj cb = liftIO $ do
let cb' = wrap_WindowDestroyCallback cb
cb'' <- mk_WindowDestroyCallback cb'
connectSignalFunPtr obj "destroy" cb'' SignalConnectBefore Nothing
afterWindowDestroy :: (IsWindow a, MonadIO m) => a -> WindowDestroyCallback -> m SignalHandlerId
afterWindowDestroy obj cb = liftIO $ do
let cb' = wrap_WindowDestroyCallback cb
cb'' <- mk_WindowDestroyCallback cb'
connectSignalFunPtr obj "destroy" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data WindowDestroySignalInfo
instance SignalInfo WindowDestroySignalInfo where
type HaskellCallbackType WindowDestroySignalInfo = WindowDestroyCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowDestroyCallback cb
cb'' <- mk_WindowDestroyCallback cb'
connectSignalFunPtr obj "destroy" cb'' connectMode detail
#endif
type WindowMaximizeCallback =
IO ()
noWindowMaximizeCallback :: Maybe WindowMaximizeCallback
noWindowMaximizeCallback = Nothing
type C_WindowMaximizeCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowMaximizeCallback :: C_WindowMaximizeCallback -> IO (FunPtr C_WindowMaximizeCallback)
genClosure_WindowMaximize :: MonadIO m => WindowMaximizeCallback -> m (GClosure C_WindowMaximizeCallback)
genClosure_WindowMaximize cb = liftIO $ do
let cb' = wrap_WindowMaximizeCallback cb
mk_WindowMaximizeCallback cb' >>= B.GClosure.newGClosure
wrap_WindowMaximizeCallback ::
WindowMaximizeCallback ->
C_WindowMaximizeCallback
wrap_WindowMaximizeCallback _cb _ _ = do
_cb
onWindowMaximize :: (IsWindow a, MonadIO m) => a -> WindowMaximizeCallback -> m SignalHandlerId
onWindowMaximize obj cb = liftIO $ do
let cb' = wrap_WindowMaximizeCallback cb
cb'' <- mk_WindowMaximizeCallback cb'
connectSignalFunPtr obj "maximize" cb'' SignalConnectBefore Nothing
afterWindowMaximize :: (IsWindow a, MonadIO m) => a -> WindowMaximizeCallback -> m SignalHandlerId
afterWindowMaximize obj cb = liftIO $ do
let cb' = wrap_WindowMaximizeCallback cb
cb'' <- mk_WindowMaximizeCallback cb'
connectSignalFunPtr obj "maximize" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data WindowMaximizeSignalInfo
instance SignalInfo WindowMaximizeSignalInfo where
type HaskellCallbackType WindowMaximizeSignalInfo = WindowMaximizeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowMaximizeCallback cb
cb'' <- mk_WindowMaximizeCallback cb'
connectSignalFunPtr obj "maximize" cb'' connectMode detail
#endif
type WindowMinimizeCallback =
IO ()
noWindowMinimizeCallback :: Maybe WindowMinimizeCallback
noWindowMinimizeCallback = Nothing
type C_WindowMinimizeCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowMinimizeCallback :: C_WindowMinimizeCallback -> IO (FunPtr C_WindowMinimizeCallback)
genClosure_WindowMinimize :: MonadIO m => WindowMinimizeCallback -> m (GClosure C_WindowMinimizeCallback)
genClosure_WindowMinimize cb = liftIO $ do
let cb' = wrap_WindowMinimizeCallback cb
mk_WindowMinimizeCallback cb' >>= B.GClosure.newGClosure
wrap_WindowMinimizeCallback ::
WindowMinimizeCallback ->
C_WindowMinimizeCallback
wrap_WindowMinimizeCallback _cb _ _ = do
_cb
onWindowMinimize :: (IsWindow a, MonadIO m) => a -> WindowMinimizeCallback -> m SignalHandlerId
onWindowMinimize obj cb = liftIO $ do
let cb' = wrap_WindowMinimizeCallback cb
cb'' <- mk_WindowMinimizeCallback cb'
connectSignalFunPtr obj "minimize" cb'' SignalConnectBefore Nothing
afterWindowMinimize :: (IsWindow a, MonadIO m) => a -> WindowMinimizeCallback -> m SignalHandlerId
afterWindowMinimize obj cb = liftIO $ do
let cb' = wrap_WindowMinimizeCallback cb
cb'' <- mk_WindowMinimizeCallback cb'
connectSignalFunPtr obj "minimize" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data WindowMinimizeSignalInfo
instance SignalInfo WindowMinimizeSignalInfo where
type HaskellCallbackType WindowMinimizeSignalInfo = WindowMinimizeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowMinimizeCallback cb
cb'' <- mk_WindowMinimizeCallback cb'
connectSignalFunPtr obj "minimize" cb'' connectMode detail
#endif
type WindowMoveCallback =
IO ()
noWindowMoveCallback :: Maybe WindowMoveCallback
noWindowMoveCallback = Nothing
type C_WindowMoveCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowMoveCallback :: C_WindowMoveCallback -> IO (FunPtr C_WindowMoveCallback)
genClosure_WindowMove :: MonadIO m => WindowMoveCallback -> m (GClosure C_WindowMoveCallback)
genClosure_WindowMove cb = liftIO $ do
let cb' = wrap_WindowMoveCallback cb
mk_WindowMoveCallback cb' >>= B.GClosure.newGClosure
wrap_WindowMoveCallback ::
WindowMoveCallback ->
C_WindowMoveCallback
wrap_WindowMoveCallback _cb _ _ = do
_cb
onWindowMove :: (IsWindow a, MonadIO m) => a -> WindowMoveCallback -> m SignalHandlerId
onWindowMove obj cb = liftIO $ do
let cb' = wrap_WindowMoveCallback cb
cb'' <- mk_WindowMoveCallback cb'
connectSignalFunPtr obj "move" cb'' SignalConnectBefore Nothing
afterWindowMove :: (IsWindow a, MonadIO m) => a -> WindowMoveCallback -> m SignalHandlerId
afterWindowMove obj cb = liftIO $ do
let cb' = wrap_WindowMoveCallback cb
cb'' <- mk_WindowMoveCallback cb'
connectSignalFunPtr obj "move" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data WindowMoveSignalInfo
instance SignalInfo WindowMoveSignalInfo where
type HaskellCallbackType WindowMoveSignalInfo = WindowMoveCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowMoveCallback cb
cb'' <- mk_WindowMoveCallback cb'
connectSignalFunPtr obj "move" cb'' connectMode detail
#endif
type WindowResizeCallback =
IO ()
noWindowResizeCallback :: Maybe WindowResizeCallback
noWindowResizeCallback = Nothing
type C_WindowResizeCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowResizeCallback :: C_WindowResizeCallback -> IO (FunPtr C_WindowResizeCallback)
genClosure_WindowResize :: MonadIO m => WindowResizeCallback -> m (GClosure C_WindowResizeCallback)
genClosure_WindowResize cb = liftIO $ do
let cb' = wrap_WindowResizeCallback cb
mk_WindowResizeCallback cb' >>= B.GClosure.newGClosure
wrap_WindowResizeCallback ::
WindowResizeCallback ->
C_WindowResizeCallback
wrap_WindowResizeCallback _cb _ _ = do
_cb
onWindowResize :: (IsWindow a, MonadIO m) => a -> WindowResizeCallback -> m SignalHandlerId
onWindowResize obj cb = liftIO $ do
let cb' = wrap_WindowResizeCallback cb
cb'' <- mk_WindowResizeCallback cb'
connectSignalFunPtr obj "resize" cb'' SignalConnectBefore Nothing
afterWindowResize :: (IsWindow a, MonadIO m) => a -> WindowResizeCallback -> m SignalHandlerId
afterWindowResize obj cb = liftIO $ do
let cb' = wrap_WindowResizeCallback cb
cb'' <- mk_WindowResizeCallback cb'
connectSignalFunPtr obj "resize" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data WindowResizeSignalInfo
instance SignalInfo WindowResizeSignalInfo where
type HaskellCallbackType WindowResizeSignalInfo = WindowResizeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowResizeCallback cb
cb'' <- mk_WindowResizeCallback cb'
connectSignalFunPtr obj "resize" cb'' connectMode detail
#endif
type WindowRestoreCallback =
IO ()
noWindowRestoreCallback :: Maybe WindowRestoreCallback
noWindowRestoreCallback = Nothing
type C_WindowRestoreCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowRestoreCallback :: C_WindowRestoreCallback -> IO (FunPtr C_WindowRestoreCallback)
genClosure_WindowRestore :: MonadIO m => WindowRestoreCallback -> m (GClosure C_WindowRestoreCallback)
genClosure_WindowRestore cb = liftIO $ do
let cb' = wrap_WindowRestoreCallback cb
mk_WindowRestoreCallback cb' >>= B.GClosure.newGClosure
wrap_WindowRestoreCallback ::
WindowRestoreCallback ->
C_WindowRestoreCallback
wrap_WindowRestoreCallback _cb _ _ = do
_cb
onWindowRestore :: (IsWindow a, MonadIO m) => a -> WindowRestoreCallback -> m SignalHandlerId
onWindowRestore obj cb = liftIO $ do
let cb' = wrap_WindowRestoreCallback cb
cb'' <- mk_WindowRestoreCallback cb'
connectSignalFunPtr obj "restore" cb'' SignalConnectBefore Nothing
afterWindowRestore :: (IsWindow a, MonadIO m) => a -> WindowRestoreCallback -> m SignalHandlerId
afterWindowRestore obj cb = liftIO $ do
let cb' = wrap_WindowRestoreCallback cb
cb'' <- mk_WindowRestoreCallback cb'
connectSignalFunPtr obj "restore" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data WindowRestoreSignalInfo
instance SignalInfo WindowRestoreSignalInfo where
type HaskellCallbackType WindowRestoreSignalInfo = WindowRestoreCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowRestoreCallback cb
cb'' <- mk_WindowRestoreCallback cb'
connectSignalFunPtr obj "restore" cb'' connectMode detail
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Window = WindowSignalList
type WindowSignalList = ('[ '("activate", WindowActivateSignalInfo), '("activeDescendantChanged", Atk.Object.ObjectActiveDescendantChangedSignalInfo), '("childrenChanged", Atk.Object.ObjectChildrenChangedSignalInfo), '("create", WindowCreateSignalInfo), '("deactivate", WindowDeactivateSignalInfo), '("destroy", WindowDestroySignalInfo), '("focusEvent", Atk.Object.ObjectFocusEventSignalInfo), '("maximize", WindowMaximizeSignalInfo), '("minimize", WindowMinimizeSignalInfo), '("move", WindowMoveSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("propertyChange", Atk.Object.ObjectPropertyChangeSignalInfo), '("resize", WindowResizeSignalInfo), '("restore", WindowRestoreSignalInfo), '("stateChange", Atk.Object.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.Object.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "atk_window_get_type"
c_atk_window_get_type :: IO GType
instance GObject Window where
gobjectType = c_atk_window_get_type
instance B.GValue.IsGValue Window where
toGValue o = do
gtype <- c_atk_window_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)
fromGValue gv = do
ptr <- B.GValue.get_object gv :: IO (Ptr Window)
B.ManagedPtr.newObject Window ptr
class (GObject o, O.IsDescendantOf Window o) => IsWindow o
instance (GObject o, O.IsDescendantOf Window o) => IsWindow o
instance O.HasParentTypes Window
type instance O.ParentTypes Window = '[GObject.Object.Object, Atk.Object.Object]
toWindow :: (MonadIO m, IsWindow o) => o -> m Window
toWindow = liftIO . unsafeCastTo Window
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Window
type instance O.AttributeList Window = WindowAttributeList
type WindowAttributeList = ('[ '("accessibleComponentLayer", Atk.Object.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.Object.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.Object.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.Object.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.Object.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.Object.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.Object.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.Object.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.Object.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.Object.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.Object.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.Object.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.Object.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.Object.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.Object.ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveWindowMethod (t :: Symbol) (o :: *) :: * where
ResolveWindowMethod "addRelationship" o = Atk.Object.ObjectAddRelationshipMethodInfo
ResolveWindowMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveWindowMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveWindowMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWindowMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWindowMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveWindowMethod "initialize" o = Atk.Object.ObjectInitializeMethodInfo
ResolveWindowMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveWindowMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWindowMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWindowMethod "notifyStateChange" o = Atk.Object.ObjectNotifyStateChangeMethodInfo
ResolveWindowMethod "peekParent" o = Atk.Object.ObjectPeekParentMethodInfo
ResolveWindowMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWindowMethod "refAccessibleChild" o = Atk.Object.ObjectRefAccessibleChildMethodInfo
ResolveWindowMethod "refRelationSet" o = Atk.Object.ObjectRefRelationSetMethodInfo
ResolveWindowMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWindowMethod "refStateSet" o = Atk.Object.ObjectRefStateSetMethodInfo
ResolveWindowMethod "removePropertyChangeHandler" o = Atk.Object.ObjectRemovePropertyChangeHandlerMethodInfo
ResolveWindowMethod "removeRelationship" o = Atk.Object.ObjectRemoveRelationshipMethodInfo
ResolveWindowMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWindowMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWindowMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWindowMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveWindowMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveWindowMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWindowMethod "getAccessibleId" o = Atk.Object.ObjectGetAccessibleIdMethodInfo
ResolveWindowMethod "getAttributes" o = Atk.Object.ObjectGetAttributesMethodInfo
ResolveWindowMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveWindowMethod "getDescription" o = Atk.Object.ObjectGetDescriptionMethodInfo
ResolveWindowMethod "getIndexInParent" o = Atk.Object.ObjectGetIndexInParentMethodInfo
ResolveWindowMethod "getLayer" o = Atk.Object.ObjectGetLayerMethodInfo
ResolveWindowMethod "getMdiZorder" o = Atk.Object.ObjectGetMdiZorderMethodInfo
ResolveWindowMethod "getNAccessibleChildren" o = Atk.Object.ObjectGetNAccessibleChildrenMethodInfo
ResolveWindowMethod "getName" o = Atk.Object.ObjectGetNameMethodInfo
ResolveWindowMethod "getObjectLocale" o = Atk.Object.ObjectGetObjectLocaleMethodInfo
ResolveWindowMethod "getParent" o = Atk.Object.ObjectGetParentMethodInfo
ResolveWindowMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWindowMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWindowMethod "getRole" o = Atk.Object.ObjectGetRoleMethodInfo
ResolveWindowMethod "setAccessibleId" o = Atk.Object.ObjectSetAccessibleIdMethodInfo
ResolveWindowMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWindowMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveWindowMethod "setDescription" o = Atk.Object.ObjectSetDescriptionMethodInfo
ResolveWindowMethod "setName" o = Atk.Object.ObjectSetNameMethodInfo
ResolveWindowMethod "setParent" o = Atk.Object.ObjectSetParentMethodInfo
ResolveWindowMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWindowMethod "setRole" o = Atk.Object.ObjectSetRoleMethodInfo
ResolveWindowMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWindowMethod t Window, O.MethodInfo info Window p) => OL.IsLabel t (Window -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif