#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Atk.Interfaces.Window
(
Window(..) ,
noWindow ,
IsWindow ,
toWindow ,
C_WindowActivateCallback ,
WindowActivateCallback ,
#if ENABLE_OVERLOADING
WindowActivateSignalInfo ,
#endif
afterWindowActivate ,
genClosure_WindowActivate ,
mk_WindowActivateCallback ,
noWindowActivateCallback ,
onWindowActivate ,
wrap_WindowActivateCallback ,
C_WindowCreateCallback ,
WindowCreateCallback ,
#if ENABLE_OVERLOADING
WindowCreateSignalInfo ,
#endif
afterWindowCreate ,
genClosure_WindowCreate ,
mk_WindowCreateCallback ,
noWindowCreateCallback ,
onWindowCreate ,
wrap_WindowCreateCallback ,
C_WindowDeactivateCallback ,
WindowDeactivateCallback ,
#if ENABLE_OVERLOADING
WindowDeactivateSignalInfo ,
#endif
afterWindowDeactivate ,
genClosure_WindowDeactivate ,
mk_WindowDeactivateCallback ,
noWindowDeactivateCallback ,
onWindowDeactivate ,
wrap_WindowDeactivateCallback ,
C_WindowDestroyCallback ,
WindowDestroyCallback ,
#if ENABLE_OVERLOADING
WindowDestroySignalInfo ,
#endif
afterWindowDestroy ,
genClosure_WindowDestroy ,
mk_WindowDestroyCallback ,
noWindowDestroyCallback ,
onWindowDestroy ,
wrap_WindowDestroyCallback ,
C_WindowMaximizeCallback ,
WindowMaximizeCallback ,
#if ENABLE_OVERLOADING
WindowMaximizeSignalInfo ,
#endif
afterWindowMaximize ,
genClosure_WindowMaximize ,
mk_WindowMaximizeCallback ,
noWindowMaximizeCallback ,
onWindowMaximize ,
wrap_WindowMaximizeCallback ,
C_WindowMinimizeCallback ,
WindowMinimizeCallback ,
#if ENABLE_OVERLOADING
WindowMinimizeSignalInfo ,
#endif
afterWindowMinimize ,
genClosure_WindowMinimize ,
mk_WindowMinimizeCallback ,
noWindowMinimizeCallback ,
onWindowMinimize ,
wrap_WindowMinimizeCallback ,
C_WindowMoveCallback ,
WindowMoveCallback ,
#if ENABLE_OVERLOADING
WindowMoveSignalInfo ,
#endif
afterWindowMove ,
genClosure_WindowMove ,
mk_WindowMoveCallback ,
noWindowMoveCallback ,
onWindowMove ,
wrap_WindowMoveCallback ,
C_WindowResizeCallback ,
WindowResizeCallback ,
#if ENABLE_OVERLOADING
WindowResizeSignalInfo ,
#endif
afterWindowResize ,
genClosure_WindowResize ,
mk_WindowResizeCallback ,
noWindowResizeCallback ,
onWindowResize ,
wrap_WindowResizeCallback ,
C_WindowRestoreCallback ,
WindowRestoreCallback ,
#if 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import {-# SOURCE #-} qualified GI.Atk.Objects.Object as Atk.Object
import qualified GI.GObject.Objects.Object as GObject.Object
newtype Window = Window (ManagedPtr Window)
noWindow :: Maybe Window
noWindow :: Maybe Window
noWindow = Maybe Window
forall a. Maybe a
Nothing
type WindowActivateCallback =
IO ()
noWindowActivateCallback :: Maybe WindowActivateCallback
noWindowActivateCallback :: Maybe WindowActivateCallback
noWindowActivateCallback = Maybe WindowActivateCallback
forall a. Maybe a
Nothing
type C_WindowActivateCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowActivateCallback :: C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
genClosure_WindowActivate :: WindowActivateCallback -> IO Closure
genClosure_WindowActivate :: WindowActivateCallback -> IO Closure
genClosure_WindowActivate cb :: WindowActivateCallback
cb = do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowActivateCallback WindowActivateCallback
cb
C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowActivateCallback C_WindowActivateCallback
cb' IO (FunPtr C_WindowActivateCallback)
-> (FunPtr C_WindowActivateCallback -> IO Closure) -> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowActivateCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_WindowActivateCallback ::
WindowActivateCallback ->
C_WindowActivateCallback
wrap_WindowActivateCallback :: WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowActivateCallback _cb :: WindowActivateCallback
_cb _ _ = do
WindowActivateCallback
_cb
onWindowActivate :: (IsWindow a, MonadIO m) => a -> WindowActivateCallback -> m SignalHandlerId
onWindowActivate :: a -> WindowActivateCallback -> m SignalHandlerId
onWindowActivate obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowActivateCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowActivateCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "activate" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectBefore
afterWindowActivate :: (IsWindow a, MonadIO m) => a -> WindowActivateCallback -> m SignalHandlerId
afterWindowActivate :: a -> WindowActivateCallback -> m SignalHandlerId
afterWindowActivate obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowActivateCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowActivateCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "activate" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectAfter
type WindowCreateCallback =
IO ()
noWindowCreateCallback :: Maybe WindowCreateCallback
noWindowCreateCallback :: Maybe WindowActivateCallback
noWindowCreateCallback = Maybe WindowActivateCallback
forall a. Maybe a
Nothing
type C_WindowCreateCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowCreateCallback :: C_WindowCreateCallback -> IO (FunPtr C_WindowCreateCallback)
genClosure_WindowCreate :: WindowCreateCallback -> IO Closure
genClosure_WindowCreate :: WindowActivateCallback -> IO Closure
genClosure_WindowCreate cb :: WindowActivateCallback
cb = do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowCreateCallback WindowActivateCallback
cb
C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowCreateCallback C_WindowActivateCallback
cb' IO (FunPtr C_WindowActivateCallback)
-> (FunPtr C_WindowActivateCallback -> IO Closure) -> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowActivateCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_WindowCreateCallback ::
WindowCreateCallback ->
C_WindowCreateCallback
wrap_WindowCreateCallback :: WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowCreateCallback _cb :: WindowActivateCallback
_cb _ _ = do
WindowActivateCallback
_cb
onWindowCreate :: (IsWindow a, MonadIO m) => a -> WindowCreateCallback -> m SignalHandlerId
onWindowCreate :: a -> WindowActivateCallback -> m SignalHandlerId
onWindowCreate obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowCreateCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowCreateCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "create" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectBefore
afterWindowCreate :: (IsWindow a, MonadIO m) => a -> WindowCreateCallback -> m SignalHandlerId
afterWindowCreate :: a -> WindowActivateCallback -> m SignalHandlerId
afterWindowCreate obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowCreateCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowCreateCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "create" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectAfter
type WindowDeactivateCallback =
IO ()
noWindowDeactivateCallback :: Maybe WindowDeactivateCallback
noWindowDeactivateCallback :: Maybe WindowActivateCallback
noWindowDeactivateCallback = Maybe WindowActivateCallback
forall a. Maybe a
Nothing
type C_WindowDeactivateCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowDeactivateCallback :: C_WindowDeactivateCallback -> IO (FunPtr C_WindowDeactivateCallback)
genClosure_WindowDeactivate :: WindowDeactivateCallback -> IO Closure
genClosure_WindowDeactivate :: WindowActivateCallback -> IO Closure
genClosure_WindowDeactivate cb :: WindowActivateCallback
cb = do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowDeactivateCallback WindowActivateCallback
cb
C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowDeactivateCallback C_WindowActivateCallback
cb' IO (FunPtr C_WindowActivateCallback)
-> (FunPtr C_WindowActivateCallback -> IO Closure) -> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowActivateCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_WindowDeactivateCallback ::
WindowDeactivateCallback ->
C_WindowDeactivateCallback
wrap_WindowDeactivateCallback :: WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowDeactivateCallback _cb :: WindowActivateCallback
_cb _ _ = do
WindowActivateCallback
_cb
onWindowDeactivate :: (IsWindow a, MonadIO m) => a -> WindowDeactivateCallback -> m SignalHandlerId
onWindowDeactivate :: a -> WindowActivateCallback -> m SignalHandlerId
onWindowDeactivate obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowDeactivateCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowDeactivateCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "deactivate" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectBefore
afterWindowDeactivate :: (IsWindow a, MonadIO m) => a -> WindowDeactivateCallback -> m SignalHandlerId
afterWindowDeactivate :: a -> WindowActivateCallback -> m SignalHandlerId
afterWindowDeactivate obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowDeactivateCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowDeactivateCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "deactivate" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectAfter
type WindowDestroyCallback =
IO ()
noWindowDestroyCallback :: Maybe WindowDestroyCallback
noWindowDestroyCallback :: Maybe WindowActivateCallback
noWindowDestroyCallback = Maybe WindowActivateCallback
forall a. Maybe a
Nothing
type C_WindowDestroyCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowDestroyCallback :: C_WindowDestroyCallback -> IO (FunPtr C_WindowDestroyCallback)
genClosure_WindowDestroy :: WindowDestroyCallback -> IO Closure
genClosure_WindowDestroy :: WindowActivateCallback -> IO Closure
genClosure_WindowDestroy cb :: WindowActivateCallback
cb = do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowDestroyCallback WindowActivateCallback
cb
C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowDestroyCallback C_WindowActivateCallback
cb' IO (FunPtr C_WindowActivateCallback)
-> (FunPtr C_WindowActivateCallback -> IO Closure) -> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowActivateCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_WindowDestroyCallback ::
WindowDestroyCallback ->
C_WindowDestroyCallback
wrap_WindowDestroyCallback :: WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowDestroyCallback _cb :: WindowActivateCallback
_cb _ _ = do
WindowActivateCallback
_cb
onWindowDestroy :: (IsWindow a, MonadIO m) => a -> WindowDestroyCallback -> m SignalHandlerId
onWindowDestroy :: a -> WindowActivateCallback -> m SignalHandlerId
onWindowDestroy obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowDestroyCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowDestroyCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "destroy" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectBefore
afterWindowDestroy :: (IsWindow a, MonadIO m) => a -> WindowDestroyCallback -> m SignalHandlerId
afterWindowDestroy :: a -> WindowActivateCallback -> m SignalHandlerId
afterWindowDestroy obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowDestroyCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowDestroyCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "destroy" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectAfter
type WindowMaximizeCallback =
IO ()
noWindowMaximizeCallback :: Maybe WindowMaximizeCallback
noWindowMaximizeCallback :: Maybe WindowActivateCallback
noWindowMaximizeCallback = Maybe WindowActivateCallback
forall a. Maybe a
Nothing
type C_WindowMaximizeCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowMaximizeCallback :: C_WindowMaximizeCallback -> IO (FunPtr C_WindowMaximizeCallback)
genClosure_WindowMaximize :: WindowMaximizeCallback -> IO Closure
genClosure_WindowMaximize :: WindowActivateCallback -> IO Closure
genClosure_WindowMaximize cb :: WindowActivateCallback
cb = do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowMaximizeCallback WindowActivateCallback
cb
C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowMaximizeCallback C_WindowActivateCallback
cb' IO (FunPtr C_WindowActivateCallback)
-> (FunPtr C_WindowActivateCallback -> IO Closure) -> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowActivateCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_WindowMaximizeCallback ::
WindowMaximizeCallback ->
C_WindowMaximizeCallback
wrap_WindowMaximizeCallback :: WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowMaximizeCallback _cb :: WindowActivateCallback
_cb _ _ = do
WindowActivateCallback
_cb
onWindowMaximize :: (IsWindow a, MonadIO m) => a -> WindowMaximizeCallback -> m SignalHandlerId
onWindowMaximize :: a -> WindowActivateCallback -> m SignalHandlerId
onWindowMaximize obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowMaximizeCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowMaximizeCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "maximize" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectBefore
afterWindowMaximize :: (IsWindow a, MonadIO m) => a -> WindowMaximizeCallback -> m SignalHandlerId
afterWindowMaximize :: a -> WindowActivateCallback -> m SignalHandlerId
afterWindowMaximize obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowMaximizeCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowMaximizeCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "maximize" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectAfter
type WindowMinimizeCallback =
IO ()
noWindowMinimizeCallback :: Maybe WindowMinimizeCallback
noWindowMinimizeCallback :: Maybe WindowActivateCallback
noWindowMinimizeCallback = Maybe WindowActivateCallback
forall a. Maybe a
Nothing
type C_WindowMinimizeCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowMinimizeCallback :: C_WindowMinimizeCallback -> IO (FunPtr C_WindowMinimizeCallback)
genClosure_WindowMinimize :: WindowMinimizeCallback -> IO Closure
genClosure_WindowMinimize :: WindowActivateCallback -> IO Closure
genClosure_WindowMinimize cb :: WindowActivateCallback
cb = do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowMinimizeCallback WindowActivateCallback
cb
C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowMinimizeCallback C_WindowActivateCallback
cb' IO (FunPtr C_WindowActivateCallback)
-> (FunPtr C_WindowActivateCallback -> IO Closure) -> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowActivateCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_WindowMinimizeCallback ::
WindowMinimizeCallback ->
C_WindowMinimizeCallback
wrap_WindowMinimizeCallback :: WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowMinimizeCallback _cb :: WindowActivateCallback
_cb _ _ = do
WindowActivateCallback
_cb
onWindowMinimize :: (IsWindow a, MonadIO m) => a -> WindowMinimizeCallback -> m SignalHandlerId
onWindowMinimize :: a -> WindowActivateCallback -> m SignalHandlerId
onWindowMinimize obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowMinimizeCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowMinimizeCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "minimize" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectBefore
afterWindowMinimize :: (IsWindow a, MonadIO m) => a -> WindowMinimizeCallback -> m SignalHandlerId
afterWindowMinimize :: a -> WindowActivateCallback -> m SignalHandlerId
afterWindowMinimize obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowMinimizeCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowMinimizeCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "minimize" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectAfter
type WindowMoveCallback =
IO ()
noWindowMoveCallback :: Maybe WindowMoveCallback
noWindowMoveCallback :: Maybe WindowActivateCallback
noWindowMoveCallback = Maybe WindowActivateCallback
forall a. Maybe a
Nothing
type C_WindowMoveCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowMoveCallback :: C_WindowMoveCallback -> IO (FunPtr C_WindowMoveCallback)
genClosure_WindowMove :: WindowMoveCallback -> IO Closure
genClosure_WindowMove :: WindowActivateCallback -> IO Closure
genClosure_WindowMove cb :: WindowActivateCallback
cb = do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowMoveCallback WindowActivateCallback
cb
C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowMoveCallback C_WindowActivateCallback
cb' IO (FunPtr C_WindowActivateCallback)
-> (FunPtr C_WindowActivateCallback -> IO Closure) -> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowActivateCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_WindowMoveCallback ::
WindowMoveCallback ->
C_WindowMoveCallback
wrap_WindowMoveCallback :: WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowMoveCallback _cb :: WindowActivateCallback
_cb _ _ = do
WindowActivateCallback
_cb
onWindowMove :: (IsWindow a, MonadIO m) => a -> WindowMoveCallback -> m SignalHandlerId
onWindowMove :: a -> WindowActivateCallback -> m SignalHandlerId
onWindowMove obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowMoveCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowMoveCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "move" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectBefore
afterWindowMove :: (IsWindow a, MonadIO m) => a -> WindowMoveCallback -> m SignalHandlerId
afterWindowMove :: a -> WindowActivateCallback -> m SignalHandlerId
afterWindowMove obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowMoveCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowMoveCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "move" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectAfter
type WindowResizeCallback =
IO ()
noWindowResizeCallback :: Maybe WindowResizeCallback
noWindowResizeCallback :: Maybe WindowActivateCallback
noWindowResizeCallback = Maybe WindowActivateCallback
forall a. Maybe a
Nothing
type C_WindowResizeCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowResizeCallback :: C_WindowResizeCallback -> IO (FunPtr C_WindowResizeCallback)
genClosure_WindowResize :: WindowResizeCallback -> IO Closure
genClosure_WindowResize :: WindowActivateCallback -> IO Closure
genClosure_WindowResize cb :: WindowActivateCallback
cb = do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowResizeCallback WindowActivateCallback
cb
C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowResizeCallback C_WindowActivateCallback
cb' IO (FunPtr C_WindowActivateCallback)
-> (FunPtr C_WindowActivateCallback -> IO Closure) -> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowActivateCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_WindowResizeCallback ::
WindowResizeCallback ->
C_WindowResizeCallback
wrap_WindowResizeCallback :: WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowResizeCallback _cb :: WindowActivateCallback
_cb _ _ = do
WindowActivateCallback
_cb
onWindowResize :: (IsWindow a, MonadIO m) => a -> WindowResizeCallback -> m SignalHandlerId
onWindowResize :: a -> WindowActivateCallback -> m SignalHandlerId
onWindowResize obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowResizeCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowResizeCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "resize" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectBefore
afterWindowResize :: (IsWindow a, MonadIO m) => a -> WindowResizeCallback -> m SignalHandlerId
afterWindowResize :: a -> WindowActivateCallback -> m SignalHandlerId
afterWindowResize obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowResizeCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowResizeCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "resize" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectAfter
type WindowRestoreCallback =
IO ()
noWindowRestoreCallback :: Maybe WindowRestoreCallback
noWindowRestoreCallback :: Maybe WindowActivateCallback
noWindowRestoreCallback = Maybe WindowActivateCallback
forall a. Maybe a
Nothing
type C_WindowRestoreCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowRestoreCallback :: C_WindowRestoreCallback -> IO (FunPtr C_WindowRestoreCallback)
genClosure_WindowRestore :: WindowRestoreCallback -> IO Closure
genClosure_WindowRestore :: WindowActivateCallback -> IO Closure
genClosure_WindowRestore cb :: WindowActivateCallback
cb = do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowRestoreCallback WindowActivateCallback
cb
C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowRestoreCallback C_WindowActivateCallback
cb' IO (FunPtr C_WindowActivateCallback)
-> (FunPtr C_WindowActivateCallback -> IO Closure) -> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowActivateCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_WindowRestoreCallback ::
WindowRestoreCallback ->
C_WindowRestoreCallback
wrap_WindowRestoreCallback :: WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowRestoreCallback _cb :: WindowActivateCallback
_cb _ _ = do
WindowActivateCallback
_cb
onWindowRestore :: (IsWindow a, MonadIO m) => a -> WindowRestoreCallback -> m SignalHandlerId
onWindowRestore :: a -> WindowActivateCallback -> m SignalHandlerId
onWindowRestore obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowRestoreCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowRestoreCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "restore" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectBefore
afterWindowRestore :: (IsWindow a, MonadIO m) => a -> WindowRestoreCallback -> m SignalHandlerId
afterWindowRestore :: a -> WindowActivateCallback -> m SignalHandlerId
afterWindowRestore obj :: a
obj cb :: WindowActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateCallback
cb' = WindowActivateCallback -> C_WindowActivateCallback
wrap_WindowRestoreCallback WindowActivateCallback
cb
FunPtr C_WindowActivateCallback
cb'' <- C_WindowActivateCallback -> IO (FunPtr C_WindowActivateCallback)
mk_WindowRestoreCallback C_WindowActivateCallback
cb'
a
-> String
-> FunPtr C_WindowActivateCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "restore" FunPtr C_WindowActivateCallback
cb'' SignalConnectMode
SignalConnectAfter
#if ENABLE_OVERLOADING
data WindowActivateSignalInfo
instance SignalInfo WindowActivateSignalInfo where
type HaskellCallbackType WindowActivateSignalInfo = WindowActivateCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_WindowActivateCallback cb
cb'' <- mk_WindowActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode
data WindowCreateSignalInfo
instance SignalInfo WindowCreateSignalInfo where
type HaskellCallbackType WindowCreateSignalInfo = WindowCreateCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_WindowCreateCallback cb
cb'' <- mk_WindowCreateCallback cb'
connectSignalFunPtr obj "create" cb'' connectMode
data WindowDeactivateSignalInfo
instance SignalInfo WindowDeactivateSignalInfo where
type HaskellCallbackType WindowDeactivateSignalInfo = WindowDeactivateCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_WindowDeactivateCallback cb
cb'' <- mk_WindowDeactivateCallback cb'
connectSignalFunPtr obj "deactivate" cb'' connectMode
data WindowDestroySignalInfo
instance SignalInfo WindowDestroySignalInfo where
type HaskellCallbackType WindowDestroySignalInfo = WindowDestroyCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_WindowDestroyCallback cb
cb'' <- mk_WindowDestroyCallback cb'
connectSignalFunPtr obj "destroy" cb'' connectMode
data WindowMaximizeSignalInfo
instance SignalInfo WindowMaximizeSignalInfo where
type HaskellCallbackType WindowMaximizeSignalInfo = WindowMaximizeCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_WindowMaximizeCallback cb
cb'' <- mk_WindowMaximizeCallback cb'
connectSignalFunPtr obj "maximize" cb'' connectMode
data WindowMinimizeSignalInfo
instance SignalInfo WindowMinimizeSignalInfo where
type HaskellCallbackType WindowMinimizeSignalInfo = WindowMinimizeCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_WindowMinimizeCallback cb
cb'' <- mk_WindowMinimizeCallback cb'
connectSignalFunPtr obj "minimize" cb'' connectMode
data WindowMoveSignalInfo
instance SignalInfo WindowMoveSignalInfo where
type HaskellCallbackType WindowMoveSignalInfo = WindowMoveCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_WindowMoveCallback cb
cb'' <- mk_WindowMoveCallback cb'
connectSignalFunPtr obj "move" cb'' connectMode
data WindowResizeSignalInfo
instance SignalInfo WindowResizeSignalInfo where
type HaskellCallbackType WindowResizeSignalInfo = WindowResizeCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_WindowResizeCallback cb
cb'' <- mk_WindowResizeCallback cb'
connectSignalFunPtr obj "resize" cb'' connectMode
data WindowRestoreSignalInfo
instance SignalInfo WindowRestoreSignalInfo where
type HaskellCallbackType WindowRestoreSignalInfo = WindowRestoreCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_WindowRestoreCallback cb
cb'' <- mk_WindowRestoreCallback cb'
connectSignalFunPtr obj "restore" cb'' connectMode
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 :: Window -> IO GType
gobjectType _ = IO GType
c_atk_window_get_type
class GObject o => IsWindow o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError Window a) =>
IsWindow a
#endif
instance IsWindow Window
instance GObject.Object.IsObject Window
instance Atk.Object.IsObject Window
toWindow :: (MonadIO m, IsWindow o) => o -> m Window
toWindow :: o -> m Window
toWindow = IO Window -> m Window
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Window -> m Window) -> (o -> IO Window) -> o -> m Window
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Window -> Window) -> o -> IO Window
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Window -> Window
Window
#if 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 ENABLE_OVERLOADING
#endif
#if 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 "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) => O.IsLabelProxy t (Window -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveWindowMethod t Window, O.MethodInfo info Window p) => O.IsLabel t (Window -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif