{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Wnck.Objects.Window
(
Window(..) ,
IsWindow ,
toWindow ,
#if defined(ENABLE_OVERLOADING)
ResolveWindowMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowActivateMethodInfo ,
#endif
windowActivate ,
#if defined(ENABLE_OVERLOADING)
WindowActivateTransientMethodInfo ,
#endif
windowActivateTransient ,
#if defined(ENABLE_OVERLOADING)
WindowCloseMethodInfo ,
#endif
windowClose ,
windowGet ,
#if defined(ENABLE_OVERLOADING)
WindowGetActionsMethodInfo ,
#endif
windowGetActions ,
#if defined(ENABLE_OVERLOADING)
WindowGetApplicationMethodInfo ,
#endif
windowGetApplication ,
#if defined(ENABLE_OVERLOADING)
WindowGetClassGroupMethodInfo ,
#endif
windowGetClassGroup ,
#if defined(ENABLE_OVERLOADING)
WindowGetClassGroupNameMethodInfo ,
#endif
windowGetClassGroupName ,
#if defined(ENABLE_OVERLOADING)
WindowGetClassInstanceNameMethodInfo ,
#endif
windowGetClassInstanceName ,
#if defined(ENABLE_OVERLOADING)
WindowGetClientWindowGeometryMethodInfo ,
#endif
windowGetClientWindowGeometry ,
#if defined(ENABLE_OVERLOADING)
WindowGetGeometryMethodInfo ,
#endif
windowGetGeometry ,
#if defined(ENABLE_OVERLOADING)
WindowGetGroupLeaderMethodInfo ,
#endif
windowGetGroupLeader ,
#if defined(ENABLE_OVERLOADING)
WindowGetIconMethodInfo ,
#endif
windowGetIcon ,
#if defined(ENABLE_OVERLOADING)
WindowGetIconIsFallbackMethodInfo ,
#endif
windowGetIconIsFallback ,
#if defined(ENABLE_OVERLOADING)
WindowGetIconNameMethodInfo ,
#endif
windowGetIconName ,
#if defined(ENABLE_OVERLOADING)
WindowGetMiniIconMethodInfo ,
#endif
windowGetMiniIcon ,
#if defined(ENABLE_OVERLOADING)
WindowGetNameMethodInfo ,
#endif
windowGetName ,
#if defined(ENABLE_OVERLOADING)
WindowGetPidMethodInfo ,
#endif
windowGetPid ,
#if defined(ENABLE_OVERLOADING)
WindowGetRoleMethodInfo ,
#endif
windowGetRole ,
#if defined(ENABLE_OVERLOADING)
WindowGetScreenMethodInfo ,
#endif
windowGetScreen ,
#if defined(ENABLE_OVERLOADING)
WindowGetSessionIdMethodInfo ,
#endif
windowGetSessionId ,
#if defined(ENABLE_OVERLOADING)
WindowGetSessionIdUtf8MethodInfo ,
#endif
windowGetSessionIdUtf8 ,
#if defined(ENABLE_OVERLOADING)
WindowGetSortOrderMethodInfo ,
#endif
windowGetSortOrder ,
#if defined(ENABLE_OVERLOADING)
WindowGetStateMethodInfo ,
#endif
windowGetState ,
#if defined(ENABLE_OVERLOADING)
WindowGetTransientMethodInfo ,
#endif
windowGetTransient ,
#if defined(ENABLE_OVERLOADING)
WindowGetWindowTypeMethodInfo ,
#endif
windowGetWindowType ,
#if defined(ENABLE_OVERLOADING)
WindowGetWorkspaceMethodInfo ,
#endif
windowGetWorkspace ,
#if defined(ENABLE_OVERLOADING)
WindowGetXidMethodInfo ,
#endif
windowGetXid ,
#if defined(ENABLE_OVERLOADING)
WindowHasIconNameMethodInfo ,
#endif
windowHasIconName ,
#if defined(ENABLE_OVERLOADING)
WindowHasNameMethodInfo ,
#endif
windowHasName ,
#if defined(ENABLE_OVERLOADING)
WindowIsAboveMethodInfo ,
#endif
windowIsAbove ,
#if defined(ENABLE_OVERLOADING)
WindowIsActiveMethodInfo ,
#endif
windowIsActive ,
#if defined(ENABLE_OVERLOADING)
WindowIsBelowMethodInfo ,
#endif
windowIsBelow ,
#if defined(ENABLE_OVERLOADING)
WindowIsFullscreenMethodInfo ,
#endif
windowIsFullscreen ,
#if defined(ENABLE_OVERLOADING)
WindowIsInViewportMethodInfo ,
#endif
windowIsInViewport ,
#if defined(ENABLE_OVERLOADING)
WindowIsMaximizedMethodInfo ,
#endif
windowIsMaximized ,
#if defined(ENABLE_OVERLOADING)
WindowIsMaximizedHorizontallyMethodInfo ,
#endif
windowIsMaximizedHorizontally ,
#if defined(ENABLE_OVERLOADING)
WindowIsMaximizedVerticallyMethodInfo ,
#endif
windowIsMaximizedVertically ,
#if defined(ENABLE_OVERLOADING)
WindowIsMinimizedMethodInfo ,
#endif
windowIsMinimized ,
#if defined(ENABLE_OVERLOADING)
WindowIsMostRecentlyActivatedMethodInfo ,
#endif
windowIsMostRecentlyActivated ,
#if defined(ENABLE_OVERLOADING)
WindowIsOnWorkspaceMethodInfo ,
#endif
windowIsOnWorkspace ,
#if defined(ENABLE_OVERLOADING)
WindowIsPinnedMethodInfo ,
#endif
windowIsPinned ,
#if defined(ENABLE_OVERLOADING)
WindowIsShadedMethodInfo ,
#endif
windowIsShaded ,
#if defined(ENABLE_OVERLOADING)
WindowIsSkipPagerMethodInfo ,
#endif
windowIsSkipPager ,
#if defined(ENABLE_OVERLOADING)
WindowIsSkipTasklistMethodInfo ,
#endif
windowIsSkipTasklist ,
#if defined(ENABLE_OVERLOADING)
WindowIsStickyMethodInfo ,
#endif
windowIsSticky ,
#if defined(ENABLE_OVERLOADING)
WindowIsVisibleOnWorkspaceMethodInfo ,
#endif
windowIsVisibleOnWorkspace ,
#if defined(ENABLE_OVERLOADING)
WindowKeyboardMoveMethodInfo ,
#endif
windowKeyboardMove ,
#if defined(ENABLE_OVERLOADING)
WindowKeyboardSizeMethodInfo ,
#endif
windowKeyboardSize ,
#if defined(ENABLE_OVERLOADING)
WindowMakeAboveMethodInfo ,
#endif
windowMakeAbove ,
#if defined(ENABLE_OVERLOADING)
WindowMakeBelowMethodInfo ,
#endif
windowMakeBelow ,
#if defined(ENABLE_OVERLOADING)
WindowMaximizeMethodInfo ,
#endif
windowMaximize ,
#if defined(ENABLE_OVERLOADING)
WindowMaximizeHorizontallyMethodInfo ,
#endif
windowMaximizeHorizontally ,
#if defined(ENABLE_OVERLOADING)
WindowMaximizeVerticallyMethodInfo ,
#endif
windowMaximizeVertically ,
#if defined(ENABLE_OVERLOADING)
WindowMinimizeMethodInfo ,
#endif
windowMinimize ,
#if defined(ENABLE_OVERLOADING)
WindowMoveToWorkspaceMethodInfo ,
#endif
windowMoveToWorkspace ,
#if defined(ENABLE_OVERLOADING)
WindowNeedsAttentionMethodInfo ,
#endif
windowNeedsAttention ,
#if defined(ENABLE_OVERLOADING)
WindowOrTransientNeedsAttentionMethodInfo,
#endif
windowOrTransientNeedsAttention ,
#if defined(ENABLE_OVERLOADING)
WindowPinMethodInfo ,
#endif
windowPin ,
#if defined(ENABLE_OVERLOADING)
WindowSetFullscreenMethodInfo ,
#endif
windowSetFullscreen ,
#if defined(ENABLE_OVERLOADING)
WindowSetGeometryMethodInfo ,
#endif
windowSetGeometry ,
#if defined(ENABLE_OVERLOADING)
WindowSetIconGeometryMethodInfo ,
#endif
windowSetIconGeometry ,
#if defined(ENABLE_OVERLOADING)
WindowSetSkipPagerMethodInfo ,
#endif
windowSetSkipPager ,
#if defined(ENABLE_OVERLOADING)
WindowSetSkipTasklistMethodInfo ,
#endif
windowSetSkipTasklist ,
#if defined(ENABLE_OVERLOADING)
WindowSetSortOrderMethodInfo ,
#endif
windowSetSortOrder ,
#if defined(ENABLE_OVERLOADING)
WindowSetWindowTypeMethodInfo ,
#endif
windowSetWindowType ,
#if defined(ENABLE_OVERLOADING)
WindowShadeMethodInfo ,
#endif
windowShade ,
#if defined(ENABLE_OVERLOADING)
WindowStickMethodInfo ,
#endif
windowStick ,
#if defined(ENABLE_OVERLOADING)
WindowTransientIsMostRecentlyActivatedMethodInfo,
#endif
windowTransientIsMostRecentlyActivated ,
#if defined(ENABLE_OVERLOADING)
WindowUnmakeAboveMethodInfo ,
#endif
windowUnmakeAbove ,
#if defined(ENABLE_OVERLOADING)
WindowUnmakeBelowMethodInfo ,
#endif
windowUnmakeBelow ,
#if defined(ENABLE_OVERLOADING)
WindowUnmaximizeMethodInfo ,
#endif
windowUnmaximize ,
#if defined(ENABLE_OVERLOADING)
WindowUnmaximizeHorizontallyMethodInfo ,
#endif
windowUnmaximizeHorizontally ,
#if defined(ENABLE_OVERLOADING)
WindowUnmaximizeVerticallyMethodInfo ,
#endif
windowUnmaximizeVertically ,
#if defined(ENABLE_OVERLOADING)
WindowUnminimizeMethodInfo ,
#endif
windowUnminimize ,
#if defined(ENABLE_OVERLOADING)
WindowUnpinMethodInfo ,
#endif
windowUnpin ,
#if defined(ENABLE_OVERLOADING)
WindowUnshadeMethodInfo ,
#endif
windowUnshade ,
#if defined(ENABLE_OVERLOADING)
WindowUnstickMethodInfo ,
#endif
windowUnstick ,
C_WindowActionsChangedCallback ,
WindowActionsChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowActionsChangedSignalInfo ,
#endif
afterWindowActionsChanged ,
genClosure_WindowActionsChanged ,
mk_WindowActionsChangedCallback ,
noWindowActionsChangedCallback ,
onWindowActionsChanged ,
wrap_WindowActionsChangedCallback ,
C_WindowClassChangedCallback ,
WindowClassChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowClassChangedSignalInfo ,
#endif
afterWindowClassChanged ,
genClosure_WindowClassChanged ,
mk_WindowClassChangedCallback ,
noWindowClassChangedCallback ,
onWindowClassChanged ,
wrap_WindowClassChangedCallback ,
C_WindowGeometryChangedCallback ,
WindowGeometryChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowGeometryChangedSignalInfo ,
#endif
afterWindowGeometryChanged ,
genClosure_WindowGeometryChanged ,
mk_WindowGeometryChangedCallback ,
noWindowGeometryChangedCallback ,
onWindowGeometryChanged ,
wrap_WindowGeometryChangedCallback ,
C_WindowIconChangedCallback ,
WindowIconChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowIconChangedSignalInfo ,
#endif
afterWindowIconChanged ,
genClosure_WindowIconChanged ,
mk_WindowIconChangedCallback ,
noWindowIconChangedCallback ,
onWindowIconChanged ,
wrap_WindowIconChangedCallback ,
C_WindowNameChangedCallback ,
WindowNameChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowNameChangedSignalInfo ,
#endif
afterWindowNameChanged ,
genClosure_WindowNameChanged ,
mk_WindowNameChangedCallback ,
noWindowNameChangedCallback ,
onWindowNameChanged ,
wrap_WindowNameChangedCallback ,
C_WindowRoleChangedCallback ,
WindowRoleChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowRoleChangedSignalInfo ,
#endif
afterWindowRoleChanged ,
genClosure_WindowRoleChanged ,
mk_WindowRoleChangedCallback ,
noWindowRoleChangedCallback ,
onWindowRoleChanged ,
wrap_WindowRoleChangedCallback ,
C_WindowStateChangedCallback ,
WindowStateChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowStateChangedSignalInfo ,
#endif
afterWindowStateChanged ,
genClosure_WindowStateChanged ,
mk_WindowStateChangedCallback ,
noWindowStateChangedCallback ,
onWindowStateChanged ,
wrap_WindowStateChangedCallback ,
C_WindowTypeChangedCallback ,
WindowTypeChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowTypeChangedSignalInfo ,
#endif
afterWindowTypeChanged ,
genClosure_WindowTypeChanged ,
mk_WindowTypeChangedCallback ,
noWindowTypeChangedCallback ,
onWindowTypeChanged ,
wrap_WindowTypeChangedCallback ,
C_WindowWorkspaceChangedCallback ,
WindowWorkspaceChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowWorkspaceChangedSignalInfo ,
#endif
afterWindowWorkspaceChanged ,
genClosure_WindowWorkspaceChanged ,
mk_WindowWorkspaceChangedCallback ,
noWindowWorkspaceChangedCallback ,
onWindowWorkspaceChanged ,
wrap_WindowWorkspaceChangedCallback ,
) 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.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 Control.Monad.IO.Class as MIO
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 qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import {-# SOURCE #-} qualified GI.Wnck.Enums as Wnck.Enums
import {-# SOURCE #-} qualified GI.Wnck.Flags as Wnck.Flags
import {-# SOURCE #-} qualified GI.Wnck.Objects.Application as Wnck.Application
import {-# SOURCE #-} qualified GI.Wnck.Objects.ClassGroup as Wnck.ClassGroup
import {-# SOURCE #-} qualified GI.Wnck.Objects.Screen as Wnck.Screen
import {-# SOURCE #-} qualified GI.Wnck.Objects.Workspace as Wnck.Workspace
newtype Window = Window (SP.ManagedPtr Window)
deriving (Window -> Window -> Bool
(Window -> Window -> Bool)
-> (Window -> Window -> Bool) -> Eq Window
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Window -> Window -> Bool
$c/= :: Window -> Window -> Bool
== :: Window -> Window -> Bool
$c== :: Window -> Window -> Bool
Eq)
instance SP.ManagedPtrNewtype Window where
toManagedPtr :: Window -> ManagedPtr Window
toManagedPtr (Window ManagedPtr Window
p) = ManagedPtr Window
p
foreign import ccall "wnck_window_get_type"
c_wnck_window_get_type :: IO B.Types.GType
instance B.Types.TypedObject Window where
glibType :: IO GType
glibType = IO GType
c_wnck_window_get_type
instance B.Types.GObject Window
instance B.GValue.IsGValue Window where
toGValue :: Window -> IO GValue
toGValue Window
o = do
GType
gtype <- IO GType
c_wnck_window_get_type
Window -> (Ptr Window -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Window
o (GType -> (GValue -> Ptr Window -> IO ()) -> Ptr Window -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Window -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Window
fromGValue GValue
gv = do
Ptr Window
ptr <- GValue -> IO (Ptr Window)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Window)
(ManagedPtr Window -> Window) -> Ptr Window -> IO Window
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Window -> Window
Window Ptr Window
ptr
class (SP.GObject o, O.IsDescendantOf Window o) => IsWindow o
instance (SP.GObject o, O.IsDescendantOf Window o) => IsWindow o
instance O.HasParentTypes Window
type instance O.ParentTypes Window = '[GObject.Object.Object]
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, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Window -> Window
Window
#if defined(ENABLE_OVERLOADING)
type family ResolveWindowMethod (t :: Symbol) (o :: *) :: * where
ResolveWindowMethod "activate" o = WindowActivateMethodInfo
ResolveWindowMethod "activateTransient" o = WindowActivateTransientMethodInfo
ResolveWindowMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveWindowMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveWindowMethod "close" o = WindowCloseMethodInfo
ResolveWindowMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWindowMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWindowMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveWindowMethod "hasIconName" o = WindowHasIconNameMethodInfo
ResolveWindowMethod "hasName" o = WindowHasNameMethodInfo
ResolveWindowMethod "isAbove" o = WindowIsAboveMethodInfo
ResolveWindowMethod "isActive" o = WindowIsActiveMethodInfo
ResolveWindowMethod "isBelow" o = WindowIsBelowMethodInfo
ResolveWindowMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveWindowMethod "isFullscreen" o = WindowIsFullscreenMethodInfo
ResolveWindowMethod "isInViewport" o = WindowIsInViewportMethodInfo
ResolveWindowMethod "isMaximized" o = WindowIsMaximizedMethodInfo
ResolveWindowMethod "isMaximizedHorizontally" o = WindowIsMaximizedHorizontallyMethodInfo
ResolveWindowMethod "isMaximizedVertically" o = WindowIsMaximizedVerticallyMethodInfo
ResolveWindowMethod "isMinimized" o = WindowIsMinimizedMethodInfo
ResolveWindowMethod "isMostRecentlyActivated" o = WindowIsMostRecentlyActivatedMethodInfo
ResolveWindowMethod "isOnWorkspace" o = WindowIsOnWorkspaceMethodInfo
ResolveWindowMethod "isPinned" o = WindowIsPinnedMethodInfo
ResolveWindowMethod "isShaded" o = WindowIsShadedMethodInfo
ResolveWindowMethod "isSkipPager" o = WindowIsSkipPagerMethodInfo
ResolveWindowMethod "isSkipTasklist" o = WindowIsSkipTasklistMethodInfo
ResolveWindowMethod "isSticky" o = WindowIsStickyMethodInfo
ResolveWindowMethod "isVisibleOnWorkspace" o = WindowIsVisibleOnWorkspaceMethodInfo
ResolveWindowMethod "keyboardMove" o = WindowKeyboardMoveMethodInfo
ResolveWindowMethod "keyboardSize" o = WindowKeyboardSizeMethodInfo
ResolveWindowMethod "makeAbove" o = WindowMakeAboveMethodInfo
ResolveWindowMethod "makeBelow" o = WindowMakeBelowMethodInfo
ResolveWindowMethod "maximize" o = WindowMaximizeMethodInfo
ResolveWindowMethod "maximizeHorizontally" o = WindowMaximizeHorizontallyMethodInfo
ResolveWindowMethod "maximizeVertically" o = WindowMaximizeVerticallyMethodInfo
ResolveWindowMethod "minimize" o = WindowMinimizeMethodInfo
ResolveWindowMethod "moveToWorkspace" o = WindowMoveToWorkspaceMethodInfo
ResolveWindowMethod "needsAttention" o = WindowNeedsAttentionMethodInfo
ResolveWindowMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWindowMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWindowMethod "orTransientNeedsAttention" o = WindowOrTransientNeedsAttentionMethodInfo
ResolveWindowMethod "pin" o = WindowPinMethodInfo
ResolveWindowMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWindowMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWindowMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWindowMethod "shade" o = WindowShadeMethodInfo
ResolveWindowMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWindowMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWindowMethod "stick" o = WindowStickMethodInfo
ResolveWindowMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveWindowMethod "transientIsMostRecentlyActivated" o = WindowTransientIsMostRecentlyActivatedMethodInfo
ResolveWindowMethod "unmakeAbove" o = WindowUnmakeAboveMethodInfo
ResolveWindowMethod "unmakeBelow" o = WindowUnmakeBelowMethodInfo
ResolveWindowMethod "unmaximize" o = WindowUnmaximizeMethodInfo
ResolveWindowMethod "unmaximizeHorizontally" o = WindowUnmaximizeHorizontallyMethodInfo
ResolveWindowMethod "unmaximizeVertically" o = WindowUnmaximizeVerticallyMethodInfo
ResolveWindowMethod "unminimize" o = WindowUnminimizeMethodInfo
ResolveWindowMethod "unpin" o = WindowUnpinMethodInfo
ResolveWindowMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveWindowMethod "unshade" o = WindowUnshadeMethodInfo
ResolveWindowMethod "unstick" o = WindowUnstickMethodInfo
ResolveWindowMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWindowMethod "getActions" o = WindowGetActionsMethodInfo
ResolveWindowMethod "getApplication" o = WindowGetApplicationMethodInfo
ResolveWindowMethod "getClassGroup" o = WindowGetClassGroupMethodInfo
ResolveWindowMethod "getClassGroupName" o = WindowGetClassGroupNameMethodInfo
ResolveWindowMethod "getClassInstanceName" o = WindowGetClassInstanceNameMethodInfo
ResolveWindowMethod "getClientWindowGeometry" o = WindowGetClientWindowGeometryMethodInfo
ResolveWindowMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveWindowMethod "getGeometry" o = WindowGetGeometryMethodInfo
ResolveWindowMethod "getGroupLeader" o = WindowGetGroupLeaderMethodInfo
ResolveWindowMethod "getIcon" o = WindowGetIconMethodInfo
ResolveWindowMethod "getIconIsFallback" o = WindowGetIconIsFallbackMethodInfo
ResolveWindowMethod "getIconName" o = WindowGetIconNameMethodInfo
ResolveWindowMethod "getMiniIcon" o = WindowGetMiniIconMethodInfo
ResolveWindowMethod "getName" o = WindowGetNameMethodInfo
ResolveWindowMethod "getPid" o = WindowGetPidMethodInfo
ResolveWindowMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWindowMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWindowMethod "getRole" o = WindowGetRoleMethodInfo
ResolveWindowMethod "getScreen" o = WindowGetScreenMethodInfo
ResolveWindowMethod "getSessionId" o = WindowGetSessionIdMethodInfo
ResolveWindowMethod "getSessionIdUtf8" o = WindowGetSessionIdUtf8MethodInfo
ResolveWindowMethod "getSortOrder" o = WindowGetSortOrderMethodInfo
ResolveWindowMethod "getState" o = WindowGetStateMethodInfo
ResolveWindowMethod "getTransient" o = WindowGetTransientMethodInfo
ResolveWindowMethod "getWindowType" o = WindowGetWindowTypeMethodInfo
ResolveWindowMethod "getWorkspace" o = WindowGetWorkspaceMethodInfo
ResolveWindowMethod "getXid" o = WindowGetXidMethodInfo
ResolveWindowMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWindowMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveWindowMethod "setFullscreen" o = WindowSetFullscreenMethodInfo
ResolveWindowMethod "setGeometry" o = WindowSetGeometryMethodInfo
ResolveWindowMethod "setIconGeometry" o = WindowSetIconGeometryMethodInfo
ResolveWindowMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWindowMethod "setSkipPager" o = WindowSetSkipPagerMethodInfo
ResolveWindowMethod "setSkipTasklist" o = WindowSetSkipTasklistMethodInfo
ResolveWindowMethod "setSortOrder" o = WindowSetSortOrderMethodInfo
ResolveWindowMethod "setWindowType" o = WindowSetWindowTypeMethodInfo
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
type WindowActionsChangedCallback =
[Wnck.Flags.WindowActions]
-> [Wnck.Flags.WindowActions]
-> IO ()
noWindowActionsChangedCallback :: Maybe WindowActionsChangedCallback
noWindowActionsChangedCallback :: Maybe WindowActionsChangedCallback
noWindowActionsChangedCallback = Maybe WindowActionsChangedCallback
forall a. Maybe a
Nothing
type C_WindowActionsChangedCallback =
Ptr () ->
CUInt ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowActionsChangedCallback :: C_WindowActionsChangedCallback -> IO (FunPtr C_WindowActionsChangedCallback)
genClosure_WindowActionsChanged :: MonadIO m => WindowActionsChangedCallback -> m (GClosure C_WindowActionsChangedCallback)
genClosure_WindowActionsChanged :: WindowActionsChangedCallback
-> m (GClosure C_WindowActionsChangedCallback)
genClosure_WindowActionsChanged WindowActionsChangedCallback
cb = IO (GClosure C_WindowActionsChangedCallback)
-> m (GClosure C_WindowActionsChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WindowActionsChangedCallback)
-> m (GClosure C_WindowActionsChangedCallback))
-> IO (GClosure C_WindowActionsChangedCallback)
-> m (GClosure C_WindowActionsChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActionsChangedCallback
cb' = WindowActionsChangedCallback -> C_WindowActionsChangedCallback
wrap_WindowActionsChangedCallback WindowActionsChangedCallback
cb
C_WindowActionsChangedCallback
-> IO (FunPtr C_WindowActionsChangedCallback)
mk_WindowActionsChangedCallback C_WindowActionsChangedCallback
cb' IO (FunPtr C_WindowActionsChangedCallback)
-> (FunPtr C_WindowActionsChangedCallback
-> IO (GClosure C_WindowActionsChangedCallback))
-> IO (GClosure C_WindowActionsChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowActionsChangedCallback
-> IO (GClosure C_WindowActionsChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WindowActionsChangedCallback ::
WindowActionsChangedCallback ->
C_WindowActionsChangedCallback
wrap_WindowActionsChangedCallback :: WindowActionsChangedCallback -> C_WindowActionsChangedCallback
wrap_WindowActionsChangedCallback WindowActionsChangedCallback
_cb Ptr ()
_ CUInt
changedMask CUInt
newState Ptr ()
_ = do
let changedMask' :: [WindowActions]
changedMask' = CUInt -> [WindowActions]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
changedMask
let newState' :: [WindowActions]
newState' = CUInt -> [WindowActions]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
newState
WindowActionsChangedCallback
_cb [WindowActions]
changedMask' [WindowActions]
newState'
onWindowActionsChanged :: (IsWindow a, MonadIO m) => a -> WindowActionsChangedCallback -> m SignalHandlerId
onWindowActionsChanged :: a -> WindowActionsChangedCallback -> m SignalHandlerId
onWindowActionsChanged a
obj WindowActionsChangedCallback
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_WindowActionsChangedCallback
cb' = WindowActionsChangedCallback -> C_WindowActionsChangedCallback
wrap_WindowActionsChangedCallback WindowActionsChangedCallback
cb
FunPtr C_WindowActionsChangedCallback
cb'' <- C_WindowActionsChangedCallback
-> IO (FunPtr C_WindowActionsChangedCallback)
mk_WindowActionsChangedCallback C_WindowActionsChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowActionsChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"actions-changed" FunPtr C_WindowActionsChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowActionsChanged :: (IsWindow a, MonadIO m) => a -> WindowActionsChangedCallback -> m SignalHandlerId
afterWindowActionsChanged :: a -> WindowActionsChangedCallback -> m SignalHandlerId
afterWindowActionsChanged a
obj WindowActionsChangedCallback
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_WindowActionsChangedCallback
cb' = WindowActionsChangedCallback -> C_WindowActionsChangedCallback
wrap_WindowActionsChangedCallback WindowActionsChangedCallback
cb
FunPtr C_WindowActionsChangedCallback
cb'' <- C_WindowActionsChangedCallback
-> IO (FunPtr C_WindowActionsChangedCallback)
mk_WindowActionsChangedCallback C_WindowActionsChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowActionsChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"actions-changed" FunPtr C_WindowActionsChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WindowActionsChangedSignalInfo
instance SignalInfo WindowActionsChangedSignalInfo where
type HaskellCallbackType WindowActionsChangedSignalInfo = WindowActionsChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowActionsChangedCallback cb
cb'' <- mk_WindowActionsChangedCallback cb'
connectSignalFunPtr obj "actions-changed" cb'' connectMode detail
#endif
type WindowClassChangedCallback =
IO ()
noWindowClassChangedCallback :: Maybe WindowClassChangedCallback
noWindowClassChangedCallback :: Maybe (IO ())
noWindowClassChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WindowClassChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowClassChangedCallback :: C_WindowClassChangedCallback -> IO (FunPtr C_WindowClassChangedCallback)
genClosure_WindowClassChanged :: MonadIO m => WindowClassChangedCallback -> m (GClosure C_WindowClassChangedCallback)
genClosure_WindowClassChanged :: IO () -> m (GClosure C_WindowClassChangedCallback)
genClosure_WindowClassChanged IO ()
cb = IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback))
-> IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowClassChangedCallback IO ()
cb
C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowClassChangedCallback C_WindowClassChangedCallback
cb' IO (FunPtr C_WindowClassChangedCallback)
-> (FunPtr C_WindowClassChangedCallback
-> IO (GClosure C_WindowClassChangedCallback))
-> IO (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowClassChangedCallback
-> IO (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WindowClassChangedCallback ::
WindowClassChangedCallback ->
C_WindowClassChangedCallback
wrap_WindowClassChangedCallback :: IO () -> C_WindowClassChangedCallback
wrap_WindowClassChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWindowClassChanged :: (IsWindow a, MonadIO m) => a -> WindowClassChangedCallback -> m SignalHandlerId
onWindowClassChanged :: a -> IO () -> m SignalHandlerId
onWindowClassChanged a
obj IO ()
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_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowClassChangedCallback IO ()
cb
FunPtr C_WindowClassChangedCallback
cb'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowClassChangedCallback C_WindowClassChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowClassChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"class-changed" FunPtr C_WindowClassChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowClassChanged :: (IsWindow a, MonadIO m) => a -> WindowClassChangedCallback -> m SignalHandlerId
afterWindowClassChanged :: a -> IO () -> m SignalHandlerId
afterWindowClassChanged a
obj IO ()
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_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowClassChangedCallback IO ()
cb
FunPtr C_WindowClassChangedCallback
cb'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowClassChangedCallback C_WindowClassChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowClassChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"class-changed" FunPtr C_WindowClassChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WindowClassChangedSignalInfo
instance SignalInfo WindowClassChangedSignalInfo where
type HaskellCallbackType WindowClassChangedSignalInfo = WindowClassChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowClassChangedCallback cb
cb'' <- mk_WindowClassChangedCallback cb'
connectSignalFunPtr obj "class-changed" cb'' connectMode detail
#endif
type WindowGeometryChangedCallback =
IO ()
noWindowGeometryChangedCallback :: Maybe WindowGeometryChangedCallback
noWindowGeometryChangedCallback :: Maybe (IO ())
noWindowGeometryChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WindowGeometryChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowGeometryChangedCallback :: C_WindowGeometryChangedCallback -> IO (FunPtr C_WindowGeometryChangedCallback)
genClosure_WindowGeometryChanged :: MonadIO m => WindowGeometryChangedCallback -> m (GClosure C_WindowGeometryChangedCallback)
genClosure_WindowGeometryChanged :: IO () -> m (GClosure C_WindowClassChangedCallback)
genClosure_WindowGeometryChanged IO ()
cb = IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback))
-> IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowGeometryChangedCallback IO ()
cb
C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowGeometryChangedCallback C_WindowClassChangedCallback
cb' IO (FunPtr C_WindowClassChangedCallback)
-> (FunPtr C_WindowClassChangedCallback
-> IO (GClosure C_WindowClassChangedCallback))
-> IO (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowClassChangedCallback
-> IO (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WindowGeometryChangedCallback ::
WindowGeometryChangedCallback ->
C_WindowGeometryChangedCallback
wrap_WindowGeometryChangedCallback :: IO () -> C_WindowClassChangedCallback
wrap_WindowGeometryChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWindowGeometryChanged :: (IsWindow a, MonadIO m) => a -> WindowGeometryChangedCallback -> m SignalHandlerId
onWindowGeometryChanged :: a -> IO () -> m SignalHandlerId
onWindowGeometryChanged a
obj IO ()
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_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowGeometryChangedCallback IO ()
cb
FunPtr C_WindowClassChangedCallback
cb'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowGeometryChangedCallback C_WindowClassChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowClassChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"geometry-changed" FunPtr C_WindowClassChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowGeometryChanged :: (IsWindow a, MonadIO m) => a -> WindowGeometryChangedCallback -> m SignalHandlerId
afterWindowGeometryChanged :: a -> IO () -> m SignalHandlerId
afterWindowGeometryChanged a
obj IO ()
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_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowGeometryChangedCallback IO ()
cb
FunPtr C_WindowClassChangedCallback
cb'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowGeometryChangedCallback C_WindowClassChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowClassChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"geometry-changed" FunPtr C_WindowClassChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WindowGeometryChangedSignalInfo
instance SignalInfo WindowGeometryChangedSignalInfo where
type HaskellCallbackType WindowGeometryChangedSignalInfo = WindowGeometryChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowGeometryChangedCallback cb
cb'' <- mk_WindowGeometryChangedCallback cb'
connectSignalFunPtr obj "geometry-changed" cb'' connectMode detail
#endif
type WindowIconChangedCallback =
IO ()
noWindowIconChangedCallback :: Maybe WindowIconChangedCallback
noWindowIconChangedCallback :: Maybe (IO ())
noWindowIconChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WindowIconChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowIconChangedCallback :: C_WindowIconChangedCallback -> IO (FunPtr C_WindowIconChangedCallback)
genClosure_WindowIconChanged :: MonadIO m => WindowIconChangedCallback -> m (GClosure C_WindowIconChangedCallback)
genClosure_WindowIconChanged :: IO () -> m (GClosure C_WindowClassChangedCallback)
genClosure_WindowIconChanged IO ()
cb = IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback))
-> IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowIconChangedCallback IO ()
cb
C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowIconChangedCallback C_WindowClassChangedCallback
cb' IO (FunPtr C_WindowClassChangedCallback)
-> (FunPtr C_WindowClassChangedCallback
-> IO (GClosure C_WindowClassChangedCallback))
-> IO (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowClassChangedCallback
-> IO (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WindowIconChangedCallback ::
WindowIconChangedCallback ->
C_WindowIconChangedCallback
wrap_WindowIconChangedCallback :: IO () -> C_WindowClassChangedCallback
wrap_WindowIconChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWindowIconChanged :: (IsWindow a, MonadIO m) => a -> WindowIconChangedCallback -> m SignalHandlerId
onWindowIconChanged :: a -> IO () -> m SignalHandlerId
onWindowIconChanged a
obj IO ()
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_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowIconChangedCallback IO ()
cb
FunPtr C_WindowClassChangedCallback
cb'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowIconChangedCallback C_WindowClassChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowClassChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"icon-changed" FunPtr C_WindowClassChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowIconChanged :: (IsWindow a, MonadIO m) => a -> WindowIconChangedCallback -> m SignalHandlerId
afterWindowIconChanged :: a -> IO () -> m SignalHandlerId
afterWindowIconChanged a
obj IO ()
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_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowIconChangedCallback IO ()
cb
FunPtr C_WindowClassChangedCallback
cb'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowIconChangedCallback C_WindowClassChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowClassChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"icon-changed" FunPtr C_WindowClassChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WindowIconChangedSignalInfo
instance SignalInfo WindowIconChangedSignalInfo where
type HaskellCallbackType WindowIconChangedSignalInfo = WindowIconChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowIconChangedCallback cb
cb'' <- mk_WindowIconChangedCallback cb'
connectSignalFunPtr obj "icon-changed" cb'' connectMode detail
#endif
type WindowNameChangedCallback =
IO ()
noWindowNameChangedCallback :: Maybe WindowNameChangedCallback
noWindowNameChangedCallback :: Maybe (IO ())
noWindowNameChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WindowNameChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowNameChangedCallback :: C_WindowNameChangedCallback -> IO (FunPtr C_WindowNameChangedCallback)
genClosure_WindowNameChanged :: MonadIO m => WindowNameChangedCallback -> m (GClosure C_WindowNameChangedCallback)
genClosure_WindowNameChanged :: IO () -> m (GClosure C_WindowClassChangedCallback)
genClosure_WindowNameChanged IO ()
cb = IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback))
-> IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowNameChangedCallback IO ()
cb
C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowNameChangedCallback C_WindowClassChangedCallback
cb' IO (FunPtr C_WindowClassChangedCallback)
-> (FunPtr C_WindowClassChangedCallback
-> IO (GClosure C_WindowClassChangedCallback))
-> IO (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowClassChangedCallback
-> IO (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WindowNameChangedCallback ::
WindowNameChangedCallback ->
C_WindowNameChangedCallback
wrap_WindowNameChangedCallback :: IO () -> C_WindowClassChangedCallback
wrap_WindowNameChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWindowNameChanged :: (IsWindow a, MonadIO m) => a -> WindowNameChangedCallback -> m SignalHandlerId
onWindowNameChanged :: a -> IO () -> m SignalHandlerId
onWindowNameChanged a
obj IO ()
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_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowNameChangedCallback IO ()
cb
FunPtr C_WindowClassChangedCallback
cb'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowNameChangedCallback C_WindowClassChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowClassChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"name-changed" FunPtr C_WindowClassChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowNameChanged :: (IsWindow a, MonadIO m) => a -> WindowNameChangedCallback -> m SignalHandlerId
afterWindowNameChanged :: a -> IO () -> m SignalHandlerId
afterWindowNameChanged a
obj IO ()
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_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowNameChangedCallback IO ()
cb
FunPtr C_WindowClassChangedCallback
cb'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowNameChangedCallback C_WindowClassChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowClassChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"name-changed" FunPtr C_WindowClassChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WindowNameChangedSignalInfo
instance SignalInfo WindowNameChangedSignalInfo where
type HaskellCallbackType WindowNameChangedSignalInfo = WindowNameChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowNameChangedCallback cb
cb'' <- mk_WindowNameChangedCallback cb'
connectSignalFunPtr obj "name-changed" cb'' connectMode detail
#endif
type WindowRoleChangedCallback =
IO ()
noWindowRoleChangedCallback :: Maybe WindowRoleChangedCallback
noWindowRoleChangedCallback :: Maybe (IO ())
noWindowRoleChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WindowRoleChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowRoleChangedCallback :: C_WindowRoleChangedCallback -> IO (FunPtr C_WindowRoleChangedCallback)
genClosure_WindowRoleChanged :: MonadIO m => WindowRoleChangedCallback -> m (GClosure C_WindowRoleChangedCallback)
genClosure_WindowRoleChanged :: IO () -> m (GClosure C_WindowClassChangedCallback)
genClosure_WindowRoleChanged IO ()
cb = IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback))
-> IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowRoleChangedCallback IO ()
cb
C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowRoleChangedCallback C_WindowClassChangedCallback
cb' IO (FunPtr C_WindowClassChangedCallback)
-> (FunPtr C_WindowClassChangedCallback
-> IO (GClosure C_WindowClassChangedCallback))
-> IO (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowClassChangedCallback
-> IO (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WindowRoleChangedCallback ::
WindowRoleChangedCallback ->
C_WindowRoleChangedCallback
wrap_WindowRoleChangedCallback :: IO () -> C_WindowClassChangedCallback
wrap_WindowRoleChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWindowRoleChanged :: (IsWindow a, MonadIO m) => a -> WindowRoleChangedCallback -> m SignalHandlerId
onWindowRoleChanged :: a -> IO () -> m SignalHandlerId
onWindowRoleChanged a
obj IO ()
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_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowRoleChangedCallback IO ()
cb
FunPtr C_WindowClassChangedCallback
cb'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowRoleChangedCallback C_WindowClassChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowClassChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"role-changed" FunPtr C_WindowClassChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowRoleChanged :: (IsWindow a, MonadIO m) => a -> WindowRoleChangedCallback -> m SignalHandlerId
afterWindowRoleChanged :: a -> IO () -> m SignalHandlerId
afterWindowRoleChanged a
obj IO ()
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_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowRoleChangedCallback IO ()
cb
FunPtr C_WindowClassChangedCallback
cb'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowRoleChangedCallback C_WindowClassChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowClassChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"role-changed" FunPtr C_WindowClassChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WindowRoleChangedSignalInfo
instance SignalInfo WindowRoleChangedSignalInfo where
type HaskellCallbackType WindowRoleChangedSignalInfo = WindowRoleChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowRoleChangedCallback cb
cb'' <- mk_WindowRoleChangedCallback cb'
connectSignalFunPtr obj "role-changed" cb'' connectMode detail
#endif
type WindowStateChangedCallback =
[Wnck.Flags.WindowState]
-> [Wnck.Flags.WindowState]
-> IO ()
noWindowStateChangedCallback :: Maybe WindowStateChangedCallback
noWindowStateChangedCallback :: Maybe WindowStateChangedCallback
noWindowStateChangedCallback = Maybe WindowStateChangedCallback
forall a. Maybe a
Nothing
type C_WindowStateChangedCallback =
Ptr () ->
CUInt ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowStateChangedCallback :: C_WindowStateChangedCallback -> IO (FunPtr C_WindowStateChangedCallback)
genClosure_WindowStateChanged :: MonadIO m => WindowStateChangedCallback -> m (GClosure C_WindowStateChangedCallback)
genClosure_WindowStateChanged :: WindowStateChangedCallback
-> m (GClosure C_WindowActionsChangedCallback)
genClosure_WindowStateChanged WindowStateChangedCallback
cb = IO (GClosure C_WindowActionsChangedCallback)
-> m (GClosure C_WindowActionsChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WindowActionsChangedCallback)
-> m (GClosure C_WindowActionsChangedCallback))
-> IO (GClosure C_WindowActionsChangedCallback)
-> m (GClosure C_WindowActionsChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActionsChangedCallback
cb' = WindowStateChangedCallback -> C_WindowActionsChangedCallback
wrap_WindowStateChangedCallback WindowStateChangedCallback
cb
C_WindowActionsChangedCallback
-> IO (FunPtr C_WindowActionsChangedCallback)
mk_WindowStateChangedCallback C_WindowActionsChangedCallback
cb' IO (FunPtr C_WindowActionsChangedCallback)
-> (FunPtr C_WindowActionsChangedCallback
-> IO (GClosure C_WindowActionsChangedCallback))
-> IO (GClosure C_WindowActionsChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowActionsChangedCallback
-> IO (GClosure C_WindowActionsChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WindowStateChangedCallback ::
WindowStateChangedCallback ->
C_WindowStateChangedCallback
wrap_WindowStateChangedCallback :: WindowStateChangedCallback -> C_WindowActionsChangedCallback
wrap_WindowStateChangedCallback WindowStateChangedCallback
_cb Ptr ()
_ CUInt
changedMask CUInt
newState Ptr ()
_ = do
let changedMask' :: [WindowState]
changedMask' = CUInt -> [WindowState]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
changedMask
let newState' :: [WindowState]
newState' = CUInt -> [WindowState]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
newState
WindowStateChangedCallback
_cb [WindowState]
changedMask' [WindowState]
newState'
onWindowStateChanged :: (IsWindow a, MonadIO m) => a -> WindowStateChangedCallback -> m SignalHandlerId
onWindowStateChanged :: a -> WindowStateChangedCallback -> m SignalHandlerId
onWindowStateChanged a
obj WindowStateChangedCallback
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_WindowActionsChangedCallback
cb' = WindowStateChangedCallback -> C_WindowActionsChangedCallback
wrap_WindowStateChangedCallback WindowStateChangedCallback
cb
FunPtr C_WindowActionsChangedCallback
cb'' <- C_WindowActionsChangedCallback
-> IO (FunPtr C_WindowActionsChangedCallback)
mk_WindowStateChangedCallback C_WindowActionsChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowActionsChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"state-changed" FunPtr C_WindowActionsChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowStateChanged :: (IsWindow a, MonadIO m) => a -> WindowStateChangedCallback -> m SignalHandlerId
afterWindowStateChanged :: a -> WindowStateChangedCallback -> m SignalHandlerId
afterWindowStateChanged a
obj WindowStateChangedCallback
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_WindowActionsChangedCallback
cb' = WindowStateChangedCallback -> C_WindowActionsChangedCallback
wrap_WindowStateChangedCallback WindowStateChangedCallback
cb
FunPtr C_WindowActionsChangedCallback
cb'' <- C_WindowActionsChangedCallback
-> IO (FunPtr C_WindowActionsChangedCallback)
mk_WindowStateChangedCallback C_WindowActionsChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowActionsChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"state-changed" FunPtr C_WindowActionsChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WindowStateChangedSignalInfo
instance SignalInfo WindowStateChangedSignalInfo where
type HaskellCallbackType WindowStateChangedSignalInfo = WindowStateChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowStateChangedCallback cb
cb'' <- mk_WindowStateChangedCallback cb'
connectSignalFunPtr obj "state-changed" cb'' connectMode detail
#endif
type WindowTypeChangedCallback =
IO ()
noWindowTypeChangedCallback :: Maybe WindowTypeChangedCallback
noWindowTypeChangedCallback :: Maybe (IO ())
noWindowTypeChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WindowTypeChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowTypeChangedCallback :: C_WindowTypeChangedCallback -> IO (FunPtr C_WindowTypeChangedCallback)
genClosure_WindowTypeChanged :: MonadIO m => WindowTypeChangedCallback -> m (GClosure C_WindowTypeChangedCallback)
genClosure_WindowTypeChanged :: IO () -> m (GClosure C_WindowClassChangedCallback)
genClosure_WindowTypeChanged IO ()
cb = IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback))
-> IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowTypeChangedCallback IO ()
cb
C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowTypeChangedCallback C_WindowClassChangedCallback
cb' IO (FunPtr C_WindowClassChangedCallback)
-> (FunPtr C_WindowClassChangedCallback
-> IO (GClosure C_WindowClassChangedCallback))
-> IO (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowClassChangedCallback
-> IO (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WindowTypeChangedCallback ::
WindowTypeChangedCallback ->
C_WindowTypeChangedCallback
wrap_WindowTypeChangedCallback :: IO () -> C_WindowClassChangedCallback
wrap_WindowTypeChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWindowTypeChanged :: (IsWindow a, MonadIO m) => a -> WindowTypeChangedCallback -> m SignalHandlerId
onWindowTypeChanged :: a -> IO () -> m SignalHandlerId
onWindowTypeChanged a
obj IO ()
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_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowTypeChangedCallback IO ()
cb
FunPtr C_WindowClassChangedCallback
cb'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowTypeChangedCallback C_WindowClassChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowClassChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"type-changed" FunPtr C_WindowClassChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowTypeChanged :: (IsWindow a, MonadIO m) => a -> WindowTypeChangedCallback -> m SignalHandlerId
afterWindowTypeChanged :: a -> IO () -> m SignalHandlerId
afterWindowTypeChanged a
obj IO ()
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_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowTypeChangedCallback IO ()
cb
FunPtr C_WindowClassChangedCallback
cb'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowTypeChangedCallback C_WindowClassChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowClassChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"type-changed" FunPtr C_WindowClassChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WindowTypeChangedSignalInfo
instance SignalInfo WindowTypeChangedSignalInfo where
type HaskellCallbackType WindowTypeChangedSignalInfo = WindowTypeChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowTypeChangedCallback cb
cb'' <- mk_WindowTypeChangedCallback cb'
connectSignalFunPtr obj "type-changed" cb'' connectMode detail
#endif
type WindowWorkspaceChangedCallback =
IO ()
noWindowWorkspaceChangedCallback :: Maybe WindowWorkspaceChangedCallback
noWindowWorkspaceChangedCallback :: Maybe (IO ())
noWindowWorkspaceChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WindowWorkspaceChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowWorkspaceChangedCallback :: C_WindowWorkspaceChangedCallback -> IO (FunPtr C_WindowWorkspaceChangedCallback)
genClosure_WindowWorkspaceChanged :: MonadIO m => WindowWorkspaceChangedCallback -> m (GClosure C_WindowWorkspaceChangedCallback)
genClosure_WindowWorkspaceChanged :: IO () -> m (GClosure C_WindowClassChangedCallback)
genClosure_WindowWorkspaceChanged IO ()
cb = IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback))
-> IO (GClosure C_WindowClassChangedCallback)
-> m (GClosure C_WindowClassChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowWorkspaceChangedCallback IO ()
cb
C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowWorkspaceChangedCallback C_WindowClassChangedCallback
cb' IO (FunPtr C_WindowClassChangedCallback)
-> (FunPtr C_WindowClassChangedCallback
-> IO (GClosure C_WindowClassChangedCallback))
-> IO (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowClassChangedCallback
-> IO (GClosure C_WindowClassChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WindowWorkspaceChangedCallback ::
WindowWorkspaceChangedCallback ->
C_WindowWorkspaceChangedCallback
wrap_WindowWorkspaceChangedCallback :: IO () -> C_WindowClassChangedCallback
wrap_WindowWorkspaceChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWindowWorkspaceChanged :: (IsWindow a, MonadIO m) => a -> WindowWorkspaceChangedCallback -> m SignalHandlerId
onWindowWorkspaceChanged :: a -> IO () -> m SignalHandlerId
onWindowWorkspaceChanged a
obj IO ()
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_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowWorkspaceChangedCallback IO ()
cb
FunPtr C_WindowClassChangedCallback
cb'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowWorkspaceChangedCallback C_WindowClassChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowClassChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"workspace-changed" FunPtr C_WindowClassChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowWorkspaceChanged :: (IsWindow a, MonadIO m) => a -> WindowWorkspaceChangedCallback -> m SignalHandlerId
afterWindowWorkspaceChanged :: a -> IO () -> m SignalHandlerId
afterWindowWorkspaceChanged a
obj IO ()
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_WindowClassChangedCallback
cb' = IO () -> C_WindowClassChangedCallback
wrap_WindowWorkspaceChangedCallback IO ()
cb
FunPtr C_WindowClassChangedCallback
cb'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowWorkspaceChangedCallback C_WindowClassChangedCallback
cb'
a
-> Text
-> FunPtr C_WindowClassChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"workspace-changed" FunPtr C_WindowClassChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WindowWorkspaceChangedSignalInfo
instance SignalInfo WindowWorkspaceChangedSignalInfo where
type HaskellCallbackType WindowWorkspaceChangedSignalInfo = WindowWorkspaceChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowWorkspaceChangedCallback cb
cb'' <- mk_WindowWorkspaceChangedCallback cb'
connectSignalFunPtr obj "workspace-changed" cb'' connectMode detail
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Window
type instance O.AttributeList Window = WindowAttributeList
type WindowAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Window = WindowSignalList
type WindowSignalList = ('[ '("actionsChanged", WindowActionsChangedSignalInfo), '("classChanged", WindowClassChangedSignalInfo), '("geometryChanged", WindowGeometryChangedSignalInfo), '("iconChanged", WindowIconChangedSignalInfo), '("nameChanged", WindowNameChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("roleChanged", WindowRoleChangedSignalInfo), '("stateChanged", WindowStateChangedSignalInfo), '("typeChanged", WindowTypeChangedSignalInfo), '("workspaceChanged", WindowWorkspaceChangedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "wnck_window_activate" wnck_window_activate ::
Ptr Window ->
Word32 ->
IO ()
windowActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Word32
-> m ()
windowActivate :: a -> Word32 -> m ()
windowActivate a
window Word32
timestamp = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> Word32 -> IO ()
wnck_window_activate Ptr Window
window' Word32
timestamp
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowActivateMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowActivateMethodInfo a signature where
overloadedMethod = windowActivate
#endif
foreign import ccall "wnck_window_activate_transient" wnck_window_activate_transient ::
Ptr Window ->
Word32 ->
IO ()
windowActivateTransient ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Word32
-> m ()
windowActivateTransient :: a -> Word32 -> m ()
windowActivateTransient a
window Word32
timestamp = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> Word32 -> IO ()
wnck_window_activate_transient Ptr Window
window' Word32
timestamp
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowActivateTransientMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowActivateTransientMethodInfo a signature where
overloadedMethod = windowActivateTransient
#endif
foreign import ccall "wnck_window_close" wnck_window_close ::
Ptr Window ->
Word32 ->
IO ()
windowClose ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Word32
-> m ()
windowClose :: a -> Word32 -> m ()
windowClose a
window Word32
timestamp = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> Word32 -> IO ()
wnck_window_close Ptr Window
window' Word32
timestamp
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowCloseMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowCloseMethodInfo a signature where
overloadedMethod = windowClose
#endif
foreign import ccall "wnck_window_get_actions" wnck_window_get_actions ::
Ptr Window ->
IO CUInt
windowGetActions ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m [Wnck.Flags.WindowActions]
windowGetActions :: a -> m [WindowActions]
windowGetActions a
window = IO [WindowActions] -> m [WindowActions]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [WindowActions] -> m [WindowActions])
-> IO [WindowActions] -> m [WindowActions]
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CUInt
result <- Ptr Window -> IO CUInt
wnck_window_get_actions Ptr Window
window'
let result' :: [WindowActions]
result' = CUInt -> [WindowActions]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
[WindowActions] -> IO [WindowActions]
forall (m :: * -> *) a. Monad m => a -> m a
return [WindowActions]
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetActionsMethodInfo
instance (signature ~ (m [Wnck.Flags.WindowActions]), MonadIO m, IsWindow a) => O.MethodInfo WindowGetActionsMethodInfo a signature where
overloadedMethod = windowGetActions
#endif
foreign import ccall "wnck_window_get_application" wnck_window_get_application ::
Ptr Window ->
IO (Ptr Wnck.Application.Application)
windowGetApplication ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Wnck.Application.Application
windowGetApplication :: a -> m Application
windowGetApplication a
window = IO Application -> m Application
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Application -> m Application)
-> IO Application -> m Application
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Application
result <- Ptr Window -> IO (Ptr Application)
wnck_window_get_application Ptr Window
window'
Text -> Ptr Application -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetApplication" Ptr Application
result
Application
result' <- ((ManagedPtr Application -> Application)
-> Ptr Application -> IO Application
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Application -> Application
Wnck.Application.Application) Ptr Application
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Application -> IO Application
forall (m :: * -> *) a. Monad m => a -> m a
return Application
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetApplicationMethodInfo
instance (signature ~ (m Wnck.Application.Application), MonadIO m, IsWindow a) => O.MethodInfo WindowGetApplicationMethodInfo a signature where
overloadedMethod = windowGetApplication
#endif
foreign import ccall "wnck_window_get_class_group" wnck_window_get_class_group ::
Ptr Window ->
IO (Ptr Wnck.ClassGroup.ClassGroup)
windowGetClassGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Wnck.ClassGroup.ClassGroup
windowGetClassGroup :: a -> m ClassGroup
windowGetClassGroup a
window = IO ClassGroup -> m ClassGroup
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ClassGroup -> m ClassGroup) -> IO ClassGroup -> m ClassGroup
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr ClassGroup
result <- Ptr Window -> IO (Ptr ClassGroup)
wnck_window_get_class_group Ptr Window
window'
Text -> Ptr ClassGroup -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetClassGroup" Ptr ClassGroup
result
ClassGroup
result' <- ((ManagedPtr ClassGroup -> ClassGroup)
-> Ptr ClassGroup -> IO ClassGroup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ClassGroup -> ClassGroup
Wnck.ClassGroup.ClassGroup) Ptr ClassGroup
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
ClassGroup -> IO ClassGroup
forall (m :: * -> *) a. Monad m => a -> m a
return ClassGroup
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetClassGroupMethodInfo
instance (signature ~ (m Wnck.ClassGroup.ClassGroup), MonadIO m, IsWindow a) => O.MethodInfo WindowGetClassGroupMethodInfo a signature where
overloadedMethod = windowGetClassGroup
#endif
foreign import ccall "wnck_window_get_class_group_name" wnck_window_get_class_group_name ::
Ptr Window ->
IO CString
windowGetClassGroupName ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m T.Text
windowGetClassGroupName :: a -> m Text
windowGetClassGroupName a
window = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
result <- Ptr Window -> IO CString
wnck_window_get_class_group_name Ptr Window
window'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetClassGroupName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetClassGroupNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWindow a) => O.MethodInfo WindowGetClassGroupNameMethodInfo a signature where
overloadedMethod = windowGetClassGroupName
#endif
foreign import ccall "wnck_window_get_class_instance_name" wnck_window_get_class_instance_name ::
Ptr Window ->
IO CString
windowGetClassInstanceName ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m T.Text
windowGetClassInstanceName :: a -> m Text
windowGetClassInstanceName a
window = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
result <- Ptr Window -> IO CString
wnck_window_get_class_instance_name Ptr Window
window'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetClassInstanceName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetClassInstanceNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWindow a) => O.MethodInfo WindowGetClassInstanceNameMethodInfo a signature where
overloadedMethod = windowGetClassInstanceName
#endif
foreign import ccall "wnck_window_get_client_window_geometry" wnck_window_get_client_window_geometry ::
Ptr Window ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
windowGetClientWindowGeometry ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ((Int32, Int32, Int32, Int32))
windowGetClientWindowGeometry :: a -> m (Int32, Int32, Int32, Int32)
windowGetClientWindowGeometry a
window = IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32))
-> IO (Int32, Int32, Int32, Int32)
-> m (Int32, Int32, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Int32
xp <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
yp <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
widthp <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
heightp <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Window
-> Ptr Int32 -> Ptr Int32 -> Ptr Int32 -> Ptr Int32 -> IO ()
wnck_window_get_client_window_geometry Ptr Window
window' Ptr Int32
xp Ptr Int32
yp Ptr Int32
widthp Ptr Int32
heightp
Int32
xp' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
xp
Int32
yp' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
yp
Int32
widthp' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
widthp
Int32
heightp' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
heightp
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
xp
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
yp
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
widthp
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
heightp
(Int32, Int32, Int32, Int32) -> IO (Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
xp', Int32
yp', Int32
widthp', Int32
heightp')
#if defined(ENABLE_OVERLOADING)
data WindowGetClientWindowGeometryMethodInfo
instance (signature ~ (m ((Int32, Int32, Int32, Int32))), MonadIO m, IsWindow a) => O.MethodInfo WindowGetClientWindowGeometryMethodInfo a signature where
overloadedMethod = windowGetClientWindowGeometry
#endif
foreign import ccall "wnck_window_get_geometry" wnck_window_get_geometry ::
Ptr Window ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
windowGetGeometry ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ((Int32, Int32, Int32, Int32))
windowGetGeometry :: a -> m (Int32, Int32, Int32, Int32)
windowGetGeometry a
window = IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32))
-> IO (Int32, Int32, Int32, Int32)
-> m (Int32, Int32, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Int32
xp <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
yp <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
widthp <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
heightp <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Window
-> Ptr Int32 -> Ptr Int32 -> Ptr Int32 -> Ptr Int32 -> IO ()
wnck_window_get_geometry Ptr Window
window' Ptr Int32
xp Ptr Int32
yp Ptr Int32
widthp Ptr Int32
heightp
Int32
xp' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
xp
Int32
yp' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
yp
Int32
widthp' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
widthp
Int32
heightp' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
heightp
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
xp
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
yp
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
widthp
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
heightp
(Int32, Int32, Int32, Int32) -> IO (Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
xp', Int32
yp', Int32
widthp', Int32
heightp')
#if defined(ENABLE_OVERLOADING)
data WindowGetGeometryMethodInfo
instance (signature ~ (m ((Int32, Int32, Int32, Int32))), MonadIO m, IsWindow a) => O.MethodInfo WindowGetGeometryMethodInfo a signature where
overloadedMethod = windowGetGeometry
#endif
foreign import ccall "wnck_window_get_group_leader" wnck_window_get_group_leader ::
Ptr Window ->
IO CULong
windowGetGroupLeader ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m CULong
windowGetGroupLeader :: a -> m SignalHandlerId
windowGetGroupLeader a
window = 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
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
SignalHandlerId
result <- Ptr Window -> IO SignalHandlerId
wnck_window_get_group_leader Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
SignalHandlerId -> IO SignalHandlerId
forall (m :: * -> *) a. Monad m => a -> m a
return SignalHandlerId
result
#if defined(ENABLE_OVERLOADING)
data WindowGetGroupLeaderMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsWindow a) => O.MethodInfo WindowGetGroupLeaderMethodInfo a signature where
overloadedMethod = windowGetGroupLeader
#endif
foreign import ccall "wnck_window_get_icon" wnck_window_get_icon ::
Ptr Window ->
IO (Ptr GdkPixbuf.Pixbuf.Pixbuf)
windowGetIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m GdkPixbuf.Pixbuf.Pixbuf
windowGetIcon :: a -> m Pixbuf
windowGetIcon a
window = IO Pixbuf -> m Pixbuf
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Pixbuf -> m Pixbuf) -> IO Pixbuf -> m Pixbuf
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Pixbuf
result <- Ptr Window -> IO (Ptr Pixbuf)
wnck_window_get_icon Ptr Window
window'
Text -> Ptr Pixbuf -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetIcon" Ptr Pixbuf
result
Pixbuf
result' <- ((ManagedPtr Pixbuf -> Pixbuf) -> Ptr Pixbuf -> IO Pixbuf
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Pixbuf -> Pixbuf
GdkPixbuf.Pixbuf.Pixbuf) Ptr Pixbuf
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Pixbuf -> IO Pixbuf
forall (m :: * -> *) a. Monad m => a -> m a
return Pixbuf
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetIconMethodInfo
instance (signature ~ (m GdkPixbuf.Pixbuf.Pixbuf), MonadIO m, IsWindow a) => O.MethodInfo WindowGetIconMethodInfo a signature where
overloadedMethod = windowGetIcon
#endif
foreign import ccall "wnck_window_get_icon_is_fallback" wnck_window_get_icon_is_fallback ::
Ptr Window ->
IO CInt
windowGetIconIsFallback ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowGetIconIsFallback :: a -> m Bool
windowGetIconIsFallback a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_get_icon_is_fallback Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetIconIsFallbackMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowGetIconIsFallbackMethodInfo a signature where
overloadedMethod = windowGetIconIsFallback
#endif
foreign import ccall "wnck_window_get_icon_name" wnck_window_get_icon_name ::
Ptr Window ->
IO CString
windowGetIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m T.Text
windowGetIconName :: a -> m Text
windowGetIconName a
window = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
result <- Ptr Window -> IO CString
wnck_window_get_icon_name Ptr Window
window'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetIconName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetIconNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWindow a) => O.MethodInfo WindowGetIconNameMethodInfo a signature where
overloadedMethod = windowGetIconName
#endif
foreign import ccall "wnck_window_get_mini_icon" wnck_window_get_mini_icon ::
Ptr Window ->
IO (Ptr GdkPixbuf.Pixbuf.Pixbuf)
windowGetMiniIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m GdkPixbuf.Pixbuf.Pixbuf
windowGetMiniIcon :: a -> m Pixbuf
windowGetMiniIcon a
window = IO Pixbuf -> m Pixbuf
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Pixbuf -> m Pixbuf) -> IO Pixbuf -> m Pixbuf
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Pixbuf
result <- Ptr Window -> IO (Ptr Pixbuf)
wnck_window_get_mini_icon Ptr Window
window'
Text -> Ptr Pixbuf -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetMiniIcon" Ptr Pixbuf
result
Pixbuf
result' <- ((ManagedPtr Pixbuf -> Pixbuf) -> Ptr Pixbuf -> IO Pixbuf
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Pixbuf -> Pixbuf
GdkPixbuf.Pixbuf.Pixbuf) Ptr Pixbuf
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Pixbuf -> IO Pixbuf
forall (m :: * -> *) a. Monad m => a -> m a
return Pixbuf
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetMiniIconMethodInfo
instance (signature ~ (m GdkPixbuf.Pixbuf.Pixbuf), MonadIO m, IsWindow a) => O.MethodInfo WindowGetMiniIconMethodInfo a signature where
overloadedMethod = windowGetMiniIcon
#endif
foreign import ccall "wnck_window_get_name" wnck_window_get_name ::
Ptr Window ->
IO CString
windowGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m T.Text
windowGetName :: a -> m Text
windowGetName a
window = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
result <- Ptr Window -> IO CString
wnck_window_get_name Ptr Window
window'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWindow a) => O.MethodInfo WindowGetNameMethodInfo a signature where
overloadedMethod = windowGetName
#endif
foreign import ccall "wnck_window_get_pid" wnck_window_get_pid ::
Ptr Window ->
IO Int32
windowGetPid ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Int32
windowGetPid :: a -> m Int32
windowGetPid a
window = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Int32
result <- Ptr Window -> IO Int32
wnck_window_get_pid Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data WindowGetPidMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsWindow a) => O.MethodInfo WindowGetPidMethodInfo a signature where
overloadedMethod = windowGetPid
#endif
foreign import ccall "wnck_window_get_role" wnck_window_get_role ::
Ptr Window ->
IO CString
windowGetRole ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m T.Text
windowGetRole :: a -> m Text
windowGetRole a
window = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
result <- Ptr Window -> IO CString
wnck_window_get_role Ptr Window
window'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetRole" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetRoleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWindow a) => O.MethodInfo WindowGetRoleMethodInfo a signature where
overloadedMethod = windowGetRole
#endif
foreign import ccall "wnck_window_get_screen" wnck_window_get_screen ::
Ptr Window ->
IO (Ptr Wnck.Screen.Screen)
windowGetScreen ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Wnck.Screen.Screen
windowGetScreen :: a -> m Screen
windowGetScreen a
window = IO Screen -> m Screen
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Screen -> m Screen) -> IO Screen -> m Screen
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Screen
result <- Ptr Window -> IO (Ptr Screen)
wnck_window_get_screen Ptr Window
window'
Text -> Ptr Screen -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetScreen" Ptr Screen
result
Screen
result' <- ((ManagedPtr Screen -> Screen) -> Ptr Screen -> IO Screen
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Screen -> Screen
Wnck.Screen.Screen) Ptr Screen
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Screen -> IO Screen
forall (m :: * -> *) a. Monad m => a -> m a
return Screen
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetScreenMethodInfo
instance (signature ~ (m Wnck.Screen.Screen), MonadIO m, IsWindow a) => O.MethodInfo WindowGetScreenMethodInfo a signature where
overloadedMethod = windowGetScreen
#endif
foreign import ccall "wnck_window_get_session_id" wnck_window_get_session_id ::
Ptr Window ->
IO CString
windowGetSessionId ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m T.Text
windowGetSessionId :: a -> m Text
windowGetSessionId a
window = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
result <- Ptr Window -> IO CString
wnck_window_get_session_id Ptr Window
window'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetSessionId" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetSessionIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWindow a) => O.MethodInfo WindowGetSessionIdMethodInfo a signature where
overloadedMethod = windowGetSessionId
#endif
foreign import ccall "wnck_window_get_session_id_utf8" wnck_window_get_session_id_utf8 ::
Ptr Window ->
IO CString
windowGetSessionIdUtf8 ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m T.Text
windowGetSessionIdUtf8 :: a -> m Text
windowGetSessionIdUtf8 a
window = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
result <- Ptr Window -> IO CString
wnck_window_get_session_id_utf8 Ptr Window
window'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetSessionIdUtf8" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetSessionIdUtf8MethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWindow a) => O.MethodInfo WindowGetSessionIdUtf8MethodInfo a signature where
overloadedMethod = windowGetSessionIdUtf8
#endif
foreign import ccall "wnck_window_get_sort_order" wnck_window_get_sort_order ::
Ptr Window ->
IO Int32
windowGetSortOrder ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Int32
windowGetSortOrder :: a -> m Int32
windowGetSortOrder a
window = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Int32
result <- Ptr Window -> IO Int32
wnck_window_get_sort_order Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data WindowGetSortOrderMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsWindow a) => O.MethodInfo WindowGetSortOrderMethodInfo a signature where
overloadedMethod = windowGetSortOrder
#endif
foreign import ccall "wnck_window_get_state" wnck_window_get_state ::
Ptr Window ->
IO CUInt
windowGetState ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m [Wnck.Flags.WindowState]
windowGetState :: a -> m [WindowState]
windowGetState a
window = IO [WindowState] -> m [WindowState]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [WindowState] -> m [WindowState])
-> IO [WindowState] -> m [WindowState]
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CUInt
result <- Ptr Window -> IO CUInt
wnck_window_get_state Ptr Window
window'
let result' :: [WindowState]
result' = CUInt -> [WindowState]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
[WindowState] -> IO [WindowState]
forall (m :: * -> *) a. Monad m => a -> m a
return [WindowState]
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetStateMethodInfo
instance (signature ~ (m [Wnck.Flags.WindowState]), MonadIO m, IsWindow a) => O.MethodInfo WindowGetStateMethodInfo a signature where
overloadedMethod = windowGetState
#endif
foreign import ccall "wnck_window_get_transient" wnck_window_get_transient ::
Ptr Window ->
IO (Ptr Window)
windowGetTransient ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Window
windowGetTransient :: a -> m Window
windowGetTransient a
window = IO Window -> m Window
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Window -> m Window) -> IO Window -> m Window
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window
result <- Ptr Window -> IO (Ptr Window)
wnck_window_get_transient Ptr Window
window'
Text -> Ptr Window -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetTransient" Ptr Window
result
Window
result' <- ((ManagedPtr Window -> Window) -> Ptr Window -> IO Window
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Window) Ptr Window
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Window -> IO Window
forall (m :: * -> *) a. Monad m => a -> m a
return Window
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetTransientMethodInfo
instance (signature ~ (m Window), MonadIO m, IsWindow a) => O.MethodInfo WindowGetTransientMethodInfo a signature where
overloadedMethod = windowGetTransient
#endif
foreign import ccall "wnck_window_get_window_type" wnck_window_get_window_type ::
Ptr Window ->
IO CUInt
windowGetWindowType ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Wnck.Enums.WindowType
windowGetWindowType :: a -> m WindowType
windowGetWindowType a
window = IO WindowType -> m WindowType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WindowType -> m WindowType) -> IO WindowType -> m WindowType
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CUInt
result <- Ptr Window -> IO CUInt
wnck_window_get_window_type Ptr Window
window'
let result' :: WindowType
result' = (Int -> WindowType
forall a. Enum a => Int -> a
toEnum (Int -> WindowType) -> (CUInt -> Int) -> CUInt -> WindowType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
WindowType -> IO WindowType
forall (m :: * -> *) a. Monad m => a -> m a
return WindowType
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetWindowTypeMethodInfo
instance (signature ~ (m Wnck.Enums.WindowType), MonadIO m, IsWindow a) => O.MethodInfo WindowGetWindowTypeMethodInfo a signature where
overloadedMethod = windowGetWindowType
#endif
foreign import ccall "wnck_window_get_workspace" wnck_window_get_workspace ::
Ptr Window ->
IO (Ptr Wnck.Workspace.Workspace)
windowGetWorkspace ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Wnck.Workspace.Workspace
windowGetWorkspace :: a -> m Workspace
windowGetWorkspace a
window = IO Workspace -> m Workspace
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Workspace -> m Workspace) -> IO Workspace -> m Workspace
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Workspace
result <- Ptr Window -> IO (Ptr Workspace)
wnck_window_get_workspace Ptr Window
window'
Text -> Ptr Workspace -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetWorkspace" Ptr Workspace
result
Workspace
result' <- ((ManagedPtr Workspace -> Workspace)
-> Ptr Workspace -> IO Workspace
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Workspace -> Workspace
Wnck.Workspace.Workspace) Ptr Workspace
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Workspace -> IO Workspace
forall (m :: * -> *) a. Monad m => a -> m a
return Workspace
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetWorkspaceMethodInfo
instance (signature ~ (m Wnck.Workspace.Workspace), MonadIO m, IsWindow a) => O.MethodInfo WindowGetWorkspaceMethodInfo a signature where
overloadedMethod = windowGetWorkspace
#endif
foreign import ccall "wnck_window_get_xid" wnck_window_get_xid ::
Ptr Window ->
IO CULong
windowGetXid ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m CULong
windowGetXid :: a -> m SignalHandlerId
windowGetXid a
window = 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
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
SignalHandlerId
result <- Ptr Window -> IO SignalHandlerId
wnck_window_get_xid Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
SignalHandlerId -> IO SignalHandlerId
forall (m :: * -> *) a. Monad m => a -> m a
return SignalHandlerId
result
#if defined(ENABLE_OVERLOADING)
data WindowGetXidMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsWindow a) => O.MethodInfo WindowGetXidMethodInfo a signature where
overloadedMethod = windowGetXid
#endif
foreign import ccall "wnck_window_has_icon_name" wnck_window_has_icon_name ::
Ptr Window ->
IO CInt
windowHasIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowHasIconName :: a -> m Bool
windowHasIconName a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_has_icon_name Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowHasIconNameMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowHasIconNameMethodInfo a signature where
overloadedMethod = windowHasIconName
#endif
foreign import ccall "wnck_window_has_name" wnck_window_has_name ::
Ptr Window ->
IO CInt
windowHasName ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowHasName :: a -> m Bool
windowHasName a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_has_name Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowHasNameMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowHasNameMethodInfo a signature where
overloadedMethod = windowHasName
#endif
foreign import ccall "wnck_window_is_above" wnck_window_is_above ::
Ptr Window ->
IO CInt
windowIsAbove ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowIsAbove :: a -> m Bool
windowIsAbove a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_is_above Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsAboveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsAboveMethodInfo a signature where
overloadedMethod = windowIsAbove
#endif
foreign import ccall "wnck_window_is_active" wnck_window_is_active ::
Ptr Window ->
IO CInt
windowIsActive ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowIsActive :: a -> m Bool
windowIsActive a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_is_active Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsActiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsActiveMethodInfo a signature where
overloadedMethod = windowIsActive
#endif
foreign import ccall "wnck_window_is_below" wnck_window_is_below ::
Ptr Window ->
IO CInt
windowIsBelow ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowIsBelow :: a -> m Bool
windowIsBelow a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_is_below Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsBelowMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsBelowMethodInfo a signature where
overloadedMethod = windowIsBelow
#endif
foreign import ccall "wnck_window_is_fullscreen" wnck_window_is_fullscreen ::
Ptr Window ->
IO CInt
windowIsFullscreen ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowIsFullscreen :: a -> m Bool
windowIsFullscreen a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_is_fullscreen Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsFullscreenMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsFullscreenMethodInfo a signature where
overloadedMethod = windowIsFullscreen
#endif
foreign import ccall "wnck_window_is_in_viewport" wnck_window_is_in_viewport ::
Ptr Window ->
Ptr Wnck.Workspace.Workspace ->
IO CInt
windowIsInViewport ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Wnck.Workspace.IsWorkspace b) =>
a
-> b
-> m Bool
windowIsInViewport :: a -> b -> m Bool
windowIsInViewport a
window b
workspace = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Workspace
workspace' <- b -> IO (Ptr Workspace)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
workspace
CInt
result <- Ptr Window -> Ptr Workspace -> IO CInt
wnck_window_is_in_viewport Ptr Window
window' Ptr Workspace
workspace'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
workspace
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsInViewportMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsWindow a, Wnck.Workspace.IsWorkspace b) => O.MethodInfo WindowIsInViewportMethodInfo a signature where
overloadedMethod = windowIsInViewport
#endif
foreign import ccall "wnck_window_is_maximized" wnck_window_is_maximized ::
Ptr Window ->
IO CInt
windowIsMaximized ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowIsMaximized :: a -> m Bool
windowIsMaximized a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_is_maximized Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsMaximizedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsMaximizedMethodInfo a signature where
overloadedMethod = windowIsMaximized
#endif
foreign import ccall "wnck_window_is_maximized_horizontally" wnck_window_is_maximized_horizontally ::
Ptr Window ->
IO CInt
windowIsMaximizedHorizontally ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowIsMaximizedHorizontally :: a -> m Bool
windowIsMaximizedHorizontally a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_is_maximized_horizontally Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsMaximizedHorizontallyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsMaximizedHorizontallyMethodInfo a signature where
overloadedMethod = windowIsMaximizedHorizontally
#endif
foreign import ccall "wnck_window_is_maximized_vertically" wnck_window_is_maximized_vertically ::
Ptr Window ->
IO CInt
windowIsMaximizedVertically ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowIsMaximizedVertically :: a -> m Bool
windowIsMaximizedVertically a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_is_maximized_vertically Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsMaximizedVerticallyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsMaximizedVerticallyMethodInfo a signature where
overloadedMethod = windowIsMaximizedVertically
#endif
foreign import ccall "wnck_window_is_minimized" wnck_window_is_minimized ::
Ptr Window ->
IO CInt
windowIsMinimized ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowIsMinimized :: a -> m Bool
windowIsMinimized a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_is_minimized Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsMinimizedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsMinimizedMethodInfo a signature where
overloadedMethod = windowIsMinimized
#endif
foreign import ccall "wnck_window_is_most_recently_activated" wnck_window_is_most_recently_activated ::
Ptr Window ->
IO CInt
windowIsMostRecentlyActivated ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowIsMostRecentlyActivated :: a -> m Bool
windowIsMostRecentlyActivated a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_is_most_recently_activated Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsMostRecentlyActivatedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsMostRecentlyActivatedMethodInfo a signature where
overloadedMethod = windowIsMostRecentlyActivated
#endif
foreign import ccall "wnck_window_is_on_workspace" wnck_window_is_on_workspace ::
Ptr Window ->
Ptr Wnck.Workspace.Workspace ->
IO CInt
windowIsOnWorkspace ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Wnck.Workspace.IsWorkspace b) =>
a
-> b
-> m Bool
windowIsOnWorkspace :: a -> b -> m Bool
windowIsOnWorkspace a
window b
workspace = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Workspace
workspace' <- b -> IO (Ptr Workspace)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
workspace
CInt
result <- Ptr Window -> Ptr Workspace -> IO CInt
wnck_window_is_on_workspace Ptr Window
window' Ptr Workspace
workspace'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
workspace
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsOnWorkspaceMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsWindow a, Wnck.Workspace.IsWorkspace b) => O.MethodInfo WindowIsOnWorkspaceMethodInfo a signature where
overloadedMethod = windowIsOnWorkspace
#endif
foreign import ccall "wnck_window_is_pinned" wnck_window_is_pinned ::
Ptr Window ->
IO CInt
windowIsPinned ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowIsPinned :: a -> m Bool
windowIsPinned a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_is_pinned Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsPinnedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsPinnedMethodInfo a signature where
overloadedMethod = windowIsPinned
#endif
foreign import ccall "wnck_window_is_shaded" wnck_window_is_shaded ::
Ptr Window ->
IO CInt
windowIsShaded ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowIsShaded :: a -> m Bool
windowIsShaded a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_is_shaded Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsShadedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsShadedMethodInfo a signature where
overloadedMethod = windowIsShaded
#endif
foreign import ccall "wnck_window_is_skip_pager" ::
Ptr Window ->
IO CInt
windowIsSkipPager ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_is_skip_pager Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsSkipPagerMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsSkipPagerMethodInfo a signature where
overloadedMethod = windowIsSkipPager
#endif
foreign import ccall "wnck_window_is_skip_tasklist" wnck_window_is_skip_tasklist ::
Ptr Window ->
IO CInt
windowIsSkipTasklist ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowIsSkipTasklist :: a -> m Bool
windowIsSkipTasklist a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_is_skip_tasklist Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsSkipTasklistMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsSkipTasklistMethodInfo a signature where
overloadedMethod = windowIsSkipTasklist
#endif
foreign import ccall "wnck_window_is_sticky" wnck_window_is_sticky ::
Ptr Window ->
IO CInt
windowIsSticky ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowIsSticky :: a -> m Bool
windowIsSticky a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_is_sticky Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsStickyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsStickyMethodInfo a signature where
overloadedMethod = windowIsSticky
#endif
foreign import ccall "wnck_window_is_visible_on_workspace" wnck_window_is_visible_on_workspace ::
Ptr Window ->
Ptr Wnck.Workspace.Workspace ->
IO CInt
windowIsVisibleOnWorkspace ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Wnck.Workspace.IsWorkspace b) =>
a
-> b
-> m Bool
windowIsVisibleOnWorkspace :: a -> b -> m Bool
windowIsVisibleOnWorkspace a
window b
workspace = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Workspace
workspace' <- b -> IO (Ptr Workspace)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
workspace
CInt
result <- Ptr Window -> Ptr Workspace -> IO CInt
wnck_window_is_visible_on_workspace Ptr Window
window' Ptr Workspace
workspace'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
workspace
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowIsVisibleOnWorkspaceMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsWindow a, Wnck.Workspace.IsWorkspace b) => O.MethodInfo WindowIsVisibleOnWorkspaceMethodInfo a signature where
overloadedMethod = windowIsVisibleOnWorkspace
#endif
foreign import ccall "wnck_window_keyboard_move" wnck_window_keyboard_move ::
Ptr Window ->
IO ()
windowKeyboardMove ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowKeyboardMove :: a -> m ()
windowKeyboardMove a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_keyboard_move Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowKeyboardMoveMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowKeyboardMoveMethodInfo a signature where
overloadedMethod = windowKeyboardMove
#endif
foreign import ccall "wnck_window_keyboard_size" wnck_window_keyboard_size ::
Ptr Window ->
IO ()
windowKeyboardSize ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowKeyboardSize :: a -> m ()
windowKeyboardSize a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_keyboard_size Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowKeyboardSizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowKeyboardSizeMethodInfo a signature where
overloadedMethod = windowKeyboardSize
#endif
foreign import ccall "wnck_window_make_above" wnck_window_make_above ::
Ptr Window ->
IO ()
windowMakeAbove ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowMakeAbove :: a -> m ()
windowMakeAbove a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_make_above Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowMakeAboveMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowMakeAboveMethodInfo a signature where
overloadedMethod = windowMakeAbove
#endif
foreign import ccall "wnck_window_make_below" wnck_window_make_below ::
Ptr Window ->
IO ()
windowMakeBelow ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowMakeBelow :: a -> m ()
windowMakeBelow a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_make_below Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowMakeBelowMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowMakeBelowMethodInfo a signature where
overloadedMethod = windowMakeBelow
#endif
foreign import ccall "wnck_window_maximize" wnck_window_maximize ::
Ptr Window ->
IO ()
windowMaximize ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowMaximize :: a -> m ()
windowMaximize a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_maximize Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowMaximizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowMaximizeMethodInfo a signature where
overloadedMethod = windowMaximize
#endif
foreign import ccall "wnck_window_maximize_horizontally" wnck_window_maximize_horizontally ::
Ptr Window ->
IO ()
windowMaximizeHorizontally ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowMaximizeHorizontally :: a -> m ()
windowMaximizeHorizontally a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_maximize_horizontally Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowMaximizeHorizontallyMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowMaximizeHorizontallyMethodInfo a signature where
overloadedMethod = windowMaximizeHorizontally
#endif
foreign import ccall "wnck_window_maximize_vertically" wnck_window_maximize_vertically ::
Ptr Window ->
IO ()
windowMaximizeVertically ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowMaximizeVertically :: a -> m ()
windowMaximizeVertically a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_maximize_vertically Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowMaximizeVerticallyMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowMaximizeVerticallyMethodInfo a signature where
overloadedMethod = windowMaximizeVertically
#endif
foreign import ccall "wnck_window_minimize" wnck_window_minimize ::
Ptr Window ->
IO ()
windowMinimize ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowMinimize :: a -> m ()
windowMinimize a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_minimize Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowMinimizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowMinimizeMethodInfo a signature where
overloadedMethod = windowMinimize
#endif
foreign import ccall "wnck_window_move_to_workspace" wnck_window_move_to_workspace ::
Ptr Window ->
Ptr Wnck.Workspace.Workspace ->
IO ()
windowMoveToWorkspace ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Wnck.Workspace.IsWorkspace b) =>
a
-> b
-> m ()
windowMoveToWorkspace :: a -> b -> m ()
windowMoveToWorkspace a
window b
space = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Workspace
space' <- b -> IO (Ptr Workspace)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
space
Ptr Window -> Ptr Workspace -> IO ()
wnck_window_move_to_workspace Ptr Window
window' Ptr Workspace
space'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
space
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowMoveToWorkspaceMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWindow a, Wnck.Workspace.IsWorkspace b) => O.MethodInfo WindowMoveToWorkspaceMethodInfo a signature where
overloadedMethod = windowMoveToWorkspace
#endif
foreign import ccall "wnck_window_needs_attention" wnck_window_needs_attention ::
Ptr Window ->
IO CInt
windowNeedsAttention ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowNeedsAttention :: a -> m Bool
windowNeedsAttention a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_needs_attention Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowNeedsAttentionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowNeedsAttentionMethodInfo a signature where
overloadedMethod = windowNeedsAttention
#endif
foreign import ccall "wnck_window_or_transient_needs_attention" wnck_window_or_transient_needs_attention ::
Ptr Window ->
IO CInt
windowOrTransientNeedsAttention ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowOrTransientNeedsAttention :: a -> m Bool
windowOrTransientNeedsAttention a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_or_transient_needs_attention Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowOrTransientNeedsAttentionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowOrTransientNeedsAttentionMethodInfo a signature where
overloadedMethod = windowOrTransientNeedsAttention
#endif
foreign import ccall "wnck_window_pin" wnck_window_pin ::
Ptr Window ->
IO ()
windowPin ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowPin :: a -> m ()
windowPin a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_pin Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowPinMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowPinMethodInfo a signature where
overloadedMethod = windowPin
#endif
foreign import ccall "wnck_window_set_fullscreen" wnck_window_set_fullscreen ::
Ptr Window ->
CInt ->
IO ()
windowSetFullscreen ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetFullscreen :: a -> Bool -> m ()
windowSetFullscreen a
window Bool
fullscreen = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let fullscreen' :: CInt
fullscreen' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
fullscreen
Ptr Window -> CInt -> IO ()
wnck_window_set_fullscreen Ptr Window
window' CInt
fullscreen'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetFullscreenMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetFullscreenMethodInfo a signature where
overloadedMethod = windowSetFullscreen
#endif
foreign import ccall "wnck_window_set_geometry" wnck_window_set_geometry ::
Ptr Window ->
CUInt ->
CUInt ->
Int32 ->
Int32 ->
Int32 ->
Int32 ->
IO ()
windowSetGeometry ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Wnck.Enums.WindowGravity
-> [Wnck.Flags.WindowMoveResizeMask]
-> Int32
-> Int32
-> Int32
-> Int32
-> m ()
windowSetGeometry :: a
-> WindowGravity
-> [WindowMoveResizeMask]
-> Int32
-> Int32
-> Int32
-> Int32
-> m ()
windowSetGeometry a
window WindowGravity
gravity [WindowMoveResizeMask]
geometryMask Int32
x Int32
y Int32
width Int32
height = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let gravity' :: CUInt
gravity' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (WindowGravity -> Int) -> WindowGravity -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. WindowGravity -> Int
forall a. Enum a => a -> Int
fromEnum) WindowGravity
gravity
let geometryMask' :: CUInt
geometryMask' = [WindowMoveResizeMask] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [WindowMoveResizeMask]
geometryMask
Ptr Window
-> CUInt -> CUInt -> Int32 -> Int32 -> Int32 -> Int32 -> IO ()
wnck_window_set_geometry Ptr Window
window' CUInt
gravity' CUInt
geometryMask' Int32
x Int32
y Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetGeometryMethodInfo
instance (signature ~ (Wnck.Enums.WindowGravity -> [Wnck.Flags.WindowMoveResizeMask] -> Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetGeometryMethodInfo a signature where
overloadedMethod = windowSetGeometry
#endif
foreign import ccall "wnck_window_set_icon_geometry" wnck_window_set_icon_geometry ::
Ptr Window ->
Int32 ->
Int32 ->
Int32 ->
Int32 ->
IO ()
windowSetIconGeometry ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Int32
-> Int32
-> Int32
-> Int32
-> m ()
windowSetIconGeometry :: a -> Int32 -> Int32 -> Int32 -> Int32 -> m ()
windowSetIconGeometry a
window Int32
x Int32
y Int32
width Int32
height = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> Int32 -> Int32 -> Int32 -> Int32 -> IO ()
wnck_window_set_icon_geometry Ptr Window
window' Int32
x Int32
y Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetIconGeometryMethodInfo
instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetIconGeometryMethodInfo a signature where
overloadedMethod = windowSetIconGeometry
#endif
foreign import ccall "wnck_window_set_skip_pager" ::
Ptr Window ->
CInt ->
IO ()
windowSetSkipPager ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
a
window Bool
skip = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let skip' :: CInt
skip' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
skip
Ptr Window -> CInt -> IO ()
wnck_window_set_skip_pager Ptr Window
window' CInt
skip'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetSkipPagerMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetSkipPagerMethodInfo a signature where
overloadedMethod = windowSetSkipPager
#endif
foreign import ccall "wnck_window_set_skip_tasklist" wnck_window_set_skip_tasklist ::
Ptr Window ->
CInt ->
IO ()
windowSetSkipTasklist ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetSkipTasklist :: a -> Bool -> m ()
windowSetSkipTasklist a
window Bool
skip = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let skip' :: CInt
skip' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
skip
Ptr Window -> CInt -> IO ()
wnck_window_set_skip_tasklist Ptr Window
window' CInt
skip'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetSkipTasklistMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetSkipTasklistMethodInfo a signature where
overloadedMethod = windowSetSkipTasklist
#endif
foreign import ccall "wnck_window_set_sort_order" wnck_window_set_sort_order ::
Ptr Window ->
Int32 ->
IO ()
windowSetSortOrder ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Int32
-> m ()
windowSetSortOrder :: a -> Int32 -> m ()
windowSetSortOrder a
window Int32
order = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> Int32 -> IO ()
wnck_window_set_sort_order Ptr Window
window' Int32
order
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetSortOrderMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetSortOrderMethodInfo a signature where
overloadedMethod = windowSetSortOrder
#endif
foreign import ccall "wnck_window_set_window_type" wnck_window_set_window_type ::
Ptr Window ->
CUInt ->
IO ()
windowSetWindowType ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Wnck.Enums.WindowType
-> m ()
windowSetWindowType :: a -> WindowType -> m ()
windowSetWindowType a
window WindowType
wintype = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let wintype' :: CUInt
wintype' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (WindowType -> Int) -> WindowType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. WindowType -> Int
forall a. Enum a => a -> Int
fromEnum) WindowType
wintype
Ptr Window -> CUInt -> IO ()
wnck_window_set_window_type Ptr Window
window' CUInt
wintype'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetWindowTypeMethodInfo
instance (signature ~ (Wnck.Enums.WindowType -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetWindowTypeMethodInfo a signature where
overloadedMethod = windowSetWindowType
#endif
foreign import ccall "wnck_window_shade" wnck_window_shade ::
Ptr Window ->
IO ()
windowShade ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowShade :: a -> m ()
windowShade a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_shade Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowShadeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowShadeMethodInfo a signature where
overloadedMethod = windowShade
#endif
foreign import ccall "wnck_window_stick" wnck_window_stick ::
Ptr Window ->
IO ()
windowStick ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowStick :: a -> m ()
windowStick a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_stick Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowStickMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowStickMethodInfo a signature where
overloadedMethod = windowStick
#endif
foreign import ccall "wnck_window_transient_is_most_recently_activated" wnck_window_transient_is_most_recently_activated ::
Ptr Window ->
IO CInt
windowTransientIsMostRecentlyActivated ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowTransientIsMostRecentlyActivated :: a -> m Bool
windowTransientIsMostRecentlyActivated a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
wnck_window_transient_is_most_recently_activated Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowTransientIsMostRecentlyActivatedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowTransientIsMostRecentlyActivatedMethodInfo a signature where
overloadedMethod = windowTransientIsMostRecentlyActivated
#endif
foreign import ccall "wnck_window_unmake_above" wnck_window_unmake_above ::
Ptr Window ->
IO ()
windowUnmakeAbove ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowUnmakeAbove :: a -> m ()
windowUnmakeAbove a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_unmake_above Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnmakeAboveMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowUnmakeAboveMethodInfo a signature where
overloadedMethod = windowUnmakeAbove
#endif
foreign import ccall "wnck_window_unmake_below" wnck_window_unmake_below ::
Ptr Window ->
IO ()
windowUnmakeBelow ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowUnmakeBelow :: a -> m ()
windowUnmakeBelow a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_unmake_below Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnmakeBelowMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowUnmakeBelowMethodInfo a signature where
overloadedMethod = windowUnmakeBelow
#endif
foreign import ccall "wnck_window_unmaximize" wnck_window_unmaximize ::
Ptr Window ->
IO ()
windowUnmaximize ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowUnmaximize :: a -> m ()
windowUnmaximize a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_unmaximize Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnmaximizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowUnmaximizeMethodInfo a signature where
overloadedMethod = windowUnmaximize
#endif
foreign import ccall "wnck_window_unmaximize_horizontally" wnck_window_unmaximize_horizontally ::
Ptr Window ->
IO ()
windowUnmaximizeHorizontally ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowUnmaximizeHorizontally :: a -> m ()
windowUnmaximizeHorizontally a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_unmaximize_horizontally Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnmaximizeHorizontallyMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowUnmaximizeHorizontallyMethodInfo a signature where
overloadedMethod = windowUnmaximizeHorizontally
#endif
foreign import ccall "wnck_window_unmaximize_vertically" wnck_window_unmaximize_vertically ::
Ptr Window ->
IO ()
windowUnmaximizeVertically ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowUnmaximizeVertically :: a -> m ()
windowUnmaximizeVertically a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_unmaximize_vertically Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnmaximizeVerticallyMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowUnmaximizeVerticallyMethodInfo a signature where
overloadedMethod = windowUnmaximizeVertically
#endif
foreign import ccall "wnck_window_unminimize" wnck_window_unminimize ::
Ptr Window ->
Word32 ->
IO ()
windowUnminimize ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Word32
-> m ()
windowUnminimize :: a -> Word32 -> m ()
windowUnminimize a
window Word32
timestamp = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> Word32 -> IO ()
wnck_window_unminimize Ptr Window
window' Word32
timestamp
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnminimizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowUnminimizeMethodInfo a signature where
overloadedMethod = windowUnminimize
#endif
foreign import ccall "wnck_window_unpin" wnck_window_unpin ::
Ptr Window ->
IO ()
windowUnpin ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowUnpin :: a -> m ()
windowUnpin a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_unpin Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnpinMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowUnpinMethodInfo a signature where
overloadedMethod = windowUnpin
#endif
foreign import ccall "wnck_window_unshade" wnck_window_unshade ::
Ptr Window ->
IO ()
windowUnshade ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowUnshade :: a -> m ()
windowUnshade a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_unshade Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnshadeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowUnshadeMethodInfo a signature where
overloadedMethod = windowUnshade
#endif
foreign import ccall "wnck_window_unstick" wnck_window_unstick ::
Ptr Window ->
IO ()
windowUnstick ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowUnstick :: a -> m ()
windowUnstick a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
wnck_window_unstick Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnstickMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowUnstickMethodInfo a signature where
overloadedMethod = windowUnstick
#endif
foreign import ccall "wnck_window_get" wnck_window_get ::
CULong ->
IO (Ptr Window)
windowGet ::
(B.CallStack.HasCallStack, MonadIO m) =>
CULong
-> m Window
windowGet :: SignalHandlerId -> m Window
windowGet SignalHandlerId
xwindow = IO Window -> m Window
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Window -> m Window) -> IO Window -> m Window
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
result <- SignalHandlerId -> IO (Ptr Window)
wnck_window_get SignalHandlerId
xwindow
Text -> Ptr Window -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGet" Ptr Window
result
Window
result' <- ((ManagedPtr Window -> Window) -> Ptr Window -> IO Window
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Window) Ptr Window
result
Window -> IO Window
forall (m :: * -> *) a. Monad m => a -> m a
return Window
result'
#if defined(ENABLE_OVERLOADING)
#endif