{-# LANGUAGE ImplicitParams, RankNTypes, 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)
WindowGetIconSurfaceMethodInfo ,
#endif
windowGetIconSurface ,
#if defined(ENABLE_OVERLOADING)
WindowGetMiniIconMethodInfo ,
#endif
windowGetMiniIcon ,
#if defined(ENABLE_OVERLOADING)
WindowGetMiniIconSurfaceMethodInfo ,
#endif
windowGetMiniIconSurface ,
#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 ,
WindowActionsChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowActionsChangedSignalInfo ,
#endif
afterWindowActionsChanged ,
onWindowActionsChanged ,
WindowClassChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowClassChangedSignalInfo ,
#endif
afterWindowClassChanged ,
onWindowClassChanged ,
WindowGeometryChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowGeometryChangedSignalInfo ,
#endif
afterWindowGeometryChanged ,
onWindowGeometryChanged ,
WindowIconChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowIconChangedSignalInfo ,
#endif
afterWindowIconChanged ,
onWindowIconChanged ,
WindowNameChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowNameChangedSignalInfo ,
#endif
afterWindowNameChanged ,
onWindowNameChanged ,
WindowRoleChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowRoleChangedSignalInfo ,
#endif
afterWindowRoleChanged ,
onWindowRoleChanged ,
WindowStateChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowStateChangedSignalInfo ,
#endif
afterWindowStateChanged ,
onWindowStateChanged ,
WindowTypeChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowTypeChangedSignalInfo ,
#endif
afterWindowTypeChanged ,
onWindowTypeChanged ,
WindowWorkspaceChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowWorkspaceChangedSignalInfo ,
#endif
afterWindowWorkspaceChanged ,
onWindowWorkspaceChanged ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.Cairo.Structs.Surface as Cairo.Surface
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
$c== :: Window -> Window -> Bool
== :: Window -> Window -> Bool
$c/= :: Window -> Window -> Bool
/= :: 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
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 :: (MIO.MonadIO m, IsWindow o) => o -> m Window
toWindow :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Window
toWindow = IO Window -> m Window
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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'
B.ManagedPtr.unsafeCastTo ManagedPtr Window -> Window
Window
instance B.GValue.IsGValue (Maybe Window) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_wnck_window_get_type
gvalueSet_ :: Ptr GValue -> Maybe Window -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Window
P.Nothing = Ptr GValue -> Ptr Window -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Window
forall a. Ptr a
FP.nullPtr :: FP.Ptr Window)
gvalueSet_ Ptr GValue
gv (P.Just Window
obj) = Window -> (Ptr Window -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Window
obj (Ptr GValue -> Ptr Window -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Window)
gvalueGet_ Ptr GValue
gv = do
Ptr Window
ptr <- Ptr GValue -> IO (Ptr Window)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Window)
if Ptr Window
ptr Ptr Window -> Ptr Window -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Window
forall a. Ptr a
FP.nullPtr
then Window -> Maybe Window
forall a. a -> Maybe a
P.Just (Window -> Maybe Window) -> IO Window -> IO (Maybe Window)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe Window -> IO (Maybe Window)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Window
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveWindowMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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 "getIconSurface" o = WindowGetIconSurfaceMethodInfo
ResolveWindowMethod "getMiniIcon" o = WindowGetMiniIconMethodInfo
ResolveWindowMethod "getMiniIconSurface" o = WindowGetMiniIconSurfaceMethodInfo
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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveWindowMethod t Window, O.OverloadedMethod info Window p, R.HasField t Window p) => R.HasField t Window p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveWindowMethod t Window, O.OverloadedMethodInfo info Window) => OL.IsLabel t (O.MethodProxy info Window) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type WindowActionsChangedCallback =
[Wnck.Flags.WindowActions]
-> [Wnck.Flags.WindowActions]
-> IO ()
type C_WindowActionsChangedCallback =
Ptr Window ->
CUInt ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowActionsChangedCallback :: C_WindowActionsChangedCallback -> IO (FunPtr C_WindowActionsChangedCallback)
wrap_WindowActionsChangedCallback ::
GObject a => (a -> WindowActionsChangedCallback) ->
C_WindowActionsChangedCallback
wrap_WindowActionsChangedCallback :: forall a.
GObject a =>
(a -> WindowActionsChangedCallback)
-> C_WindowActionsChangedCallback
wrap_WindowActionsChangedCallback a -> WindowActionsChangedCallback
gi'cb Ptr Window
gi'selfPtr 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
Ptr Window -> (Window -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Window
gi'selfPtr ((Window -> IO ()) -> IO ()) -> (Window -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Window
gi'self -> a -> WindowActionsChangedCallback
gi'cb (Window -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Window
gi'self) [WindowActions]
changedMask' [WindowActions]
newState'
onWindowActionsChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowActionsChangedCallback) -> m SignalHandlerId
onWindowActionsChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a
-> ((?self::a) => WindowActionsChangedCallback)
-> m SignalHandlerId
onWindowActionsChanged a
obj (?self::a) => WindowActionsChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> WindowActionsChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WindowActionsChangedCallback
WindowActionsChangedCallback
cb
let wrapped' :: C_WindowActionsChangedCallback
wrapped' = (a -> WindowActionsChangedCallback)
-> C_WindowActionsChangedCallback
forall a.
GObject a =>
(a -> WindowActionsChangedCallback)
-> C_WindowActionsChangedCallback
wrap_WindowActionsChangedCallback a -> WindowActionsChangedCallback
wrapped
FunPtr C_WindowActionsChangedCallback
wrapped'' <- C_WindowActionsChangedCallback
-> IO (FunPtr C_WindowActionsChangedCallback)
mk_WindowActionsChangedCallback C_WindowActionsChangedCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowActionsChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowActionsChangedCallback) -> m SignalHandlerId
afterWindowActionsChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a
-> ((?self::a) => WindowActionsChangedCallback)
-> m SignalHandlerId
afterWindowActionsChanged a
obj (?self::a) => WindowActionsChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> WindowActionsChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WindowActionsChangedCallback
WindowActionsChangedCallback
cb
let wrapped' :: C_WindowActionsChangedCallback
wrapped' = (a -> WindowActionsChangedCallback)
-> C_WindowActionsChangedCallback
forall a.
GObject a =>
(a -> WindowActionsChangedCallback)
-> C_WindowActionsChangedCallback
wrap_WindowActionsChangedCallback a -> WindowActionsChangedCallback
wrapped
FunPtr C_WindowActionsChangedCallback
wrapped'' <- C_WindowActionsChangedCallback
-> IO (FunPtr C_WindowActionsChangedCallback)
mk_WindowActionsChangedCallback C_WindowActionsChangedCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window::actions-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#g:signal:actionsChanged"})
#endif
type WindowClassChangedCallback =
IO ()
type C_WindowClassChangedCallback =
Ptr Window ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowClassChangedCallback :: C_WindowClassChangedCallback -> IO (FunPtr C_WindowClassChangedCallback)
wrap_WindowClassChangedCallback ::
GObject a => (a -> WindowClassChangedCallback) ->
C_WindowClassChangedCallback
wrap_WindowClassChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowClassChangedCallback a -> IO ()
gi'cb Ptr Window
gi'selfPtr Ptr ()
_ = do
Ptr Window -> (Window -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Window
gi'selfPtr ((Window -> IO ()) -> IO ()) -> (Window -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Window
gi'self -> a -> IO ()
gi'cb (Window -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Window
gi'self)
onWindowClassChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowClassChangedCallback) -> m SignalHandlerId
onWindowClassChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onWindowClassChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WindowClassChangedCallback
wrapped' = (a -> IO ()) -> C_WindowClassChangedCallback
forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowClassChangedCallback a -> IO ()
wrapped
FunPtr C_WindowClassChangedCallback
wrapped'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowClassChangedCallback C_WindowClassChangedCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowClassChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowClassChangedCallback) -> m SignalHandlerId
afterWindowClassChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterWindowClassChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WindowClassChangedCallback
wrapped' = (a -> IO ()) -> C_WindowClassChangedCallback
forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowClassChangedCallback a -> IO ()
wrapped
FunPtr C_WindowClassChangedCallback
wrapped'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowClassChangedCallback C_WindowClassChangedCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window::class-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#g:signal:classChanged"})
#endif
type WindowGeometryChangedCallback =
IO ()
type C_WindowGeometryChangedCallback =
Ptr Window ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowGeometryChangedCallback :: C_WindowGeometryChangedCallback -> IO (FunPtr C_WindowGeometryChangedCallback)
wrap_WindowGeometryChangedCallback ::
GObject a => (a -> WindowGeometryChangedCallback) ->
C_WindowGeometryChangedCallback
wrap_WindowGeometryChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowGeometryChangedCallback a -> IO ()
gi'cb Ptr Window
gi'selfPtr Ptr ()
_ = do
Ptr Window -> (Window -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Window
gi'selfPtr ((Window -> IO ()) -> IO ()) -> (Window -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Window
gi'self -> a -> IO ()
gi'cb (Window -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Window
gi'self)
onWindowGeometryChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowGeometryChangedCallback) -> m SignalHandlerId
onWindowGeometryChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onWindowGeometryChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WindowClassChangedCallback
wrapped' = (a -> IO ()) -> C_WindowClassChangedCallback
forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowGeometryChangedCallback a -> IO ()
wrapped
FunPtr C_WindowClassChangedCallback
wrapped'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowGeometryChangedCallback C_WindowClassChangedCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowGeometryChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowGeometryChangedCallback) -> m SignalHandlerId
afterWindowGeometryChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterWindowGeometryChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WindowClassChangedCallback
wrapped' = (a -> IO ()) -> C_WindowClassChangedCallback
forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowGeometryChangedCallback a -> IO ()
wrapped
FunPtr C_WindowClassChangedCallback
wrapped'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowGeometryChangedCallback C_WindowClassChangedCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window::geometry-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#g:signal:geometryChanged"})
#endif
type WindowIconChangedCallback =
IO ()
type C_WindowIconChangedCallback =
Ptr Window ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowIconChangedCallback :: C_WindowIconChangedCallback -> IO (FunPtr C_WindowIconChangedCallback)
wrap_WindowIconChangedCallback ::
GObject a => (a -> WindowIconChangedCallback) ->
C_WindowIconChangedCallback
wrap_WindowIconChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowIconChangedCallback a -> IO ()
gi'cb Ptr Window
gi'selfPtr Ptr ()
_ = do
Ptr Window -> (Window -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Window
gi'selfPtr ((Window -> IO ()) -> IO ()) -> (Window -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Window
gi'self -> a -> IO ()
gi'cb (Window -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Window
gi'self)
onWindowIconChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowIconChangedCallback) -> m SignalHandlerId
onWindowIconChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onWindowIconChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WindowClassChangedCallback
wrapped' = (a -> IO ()) -> C_WindowClassChangedCallback
forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowIconChangedCallback a -> IO ()
wrapped
FunPtr C_WindowClassChangedCallback
wrapped'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowIconChangedCallback C_WindowClassChangedCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowIconChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowIconChangedCallback) -> m SignalHandlerId
afterWindowIconChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterWindowIconChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WindowClassChangedCallback
wrapped' = (a -> IO ()) -> C_WindowClassChangedCallback
forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowIconChangedCallback a -> IO ()
wrapped
FunPtr C_WindowClassChangedCallback
wrapped'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowIconChangedCallback C_WindowClassChangedCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window::icon-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#g:signal:iconChanged"})
#endif
type WindowNameChangedCallback =
IO ()
type C_WindowNameChangedCallback =
Ptr Window ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowNameChangedCallback :: C_WindowNameChangedCallback -> IO (FunPtr C_WindowNameChangedCallback)
wrap_WindowNameChangedCallback ::
GObject a => (a -> WindowNameChangedCallback) ->
C_WindowNameChangedCallback
wrap_WindowNameChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowNameChangedCallback a -> IO ()
gi'cb Ptr Window
gi'selfPtr Ptr ()
_ = do
Ptr Window -> (Window -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Window
gi'selfPtr ((Window -> IO ()) -> IO ()) -> (Window -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Window
gi'self -> a -> IO ()
gi'cb (Window -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Window
gi'self)
onWindowNameChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowNameChangedCallback) -> m SignalHandlerId
onWindowNameChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onWindowNameChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WindowClassChangedCallback
wrapped' = (a -> IO ()) -> C_WindowClassChangedCallback
forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowNameChangedCallback a -> IO ()
wrapped
FunPtr C_WindowClassChangedCallback
wrapped'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowNameChangedCallback C_WindowClassChangedCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowNameChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowNameChangedCallback) -> m SignalHandlerId
afterWindowNameChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterWindowNameChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WindowClassChangedCallback
wrapped' = (a -> IO ()) -> C_WindowClassChangedCallback
forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowNameChangedCallback a -> IO ()
wrapped
FunPtr C_WindowClassChangedCallback
wrapped'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowNameChangedCallback C_WindowClassChangedCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window::name-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#g:signal:nameChanged"})
#endif
type WindowRoleChangedCallback =
IO ()
type C_WindowRoleChangedCallback =
Ptr Window ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowRoleChangedCallback :: C_WindowRoleChangedCallback -> IO (FunPtr C_WindowRoleChangedCallback)
wrap_WindowRoleChangedCallback ::
GObject a => (a -> WindowRoleChangedCallback) ->
C_WindowRoleChangedCallback
wrap_WindowRoleChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowRoleChangedCallback a -> IO ()
gi'cb Ptr Window
gi'selfPtr Ptr ()
_ = do
Ptr Window -> (Window -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Window
gi'selfPtr ((Window -> IO ()) -> IO ()) -> (Window -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Window
gi'self -> a -> IO ()
gi'cb (Window -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Window
gi'self)
onWindowRoleChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowRoleChangedCallback) -> m SignalHandlerId
onWindowRoleChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onWindowRoleChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WindowClassChangedCallback
wrapped' = (a -> IO ()) -> C_WindowClassChangedCallback
forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowRoleChangedCallback a -> IO ()
wrapped
FunPtr C_WindowClassChangedCallback
wrapped'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowRoleChangedCallback C_WindowClassChangedCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowRoleChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowRoleChangedCallback) -> m SignalHandlerId
afterWindowRoleChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterWindowRoleChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WindowClassChangedCallback
wrapped' = (a -> IO ()) -> C_WindowClassChangedCallback
forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowRoleChangedCallback a -> IO ()
wrapped
FunPtr C_WindowClassChangedCallback
wrapped'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowRoleChangedCallback C_WindowClassChangedCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window::role-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#g:signal:roleChanged"})
#endif
type WindowStateChangedCallback =
[Wnck.Flags.WindowState]
-> [Wnck.Flags.WindowState]
-> IO ()
type C_WindowStateChangedCallback =
Ptr Window ->
CUInt ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowStateChangedCallback :: C_WindowStateChangedCallback -> IO (FunPtr C_WindowStateChangedCallback)
wrap_WindowStateChangedCallback ::
GObject a => (a -> WindowStateChangedCallback) ->
C_WindowStateChangedCallback
wrap_WindowStateChangedCallback :: forall a.
GObject a =>
(a -> WindowStateChangedCallback) -> C_WindowActionsChangedCallback
wrap_WindowStateChangedCallback a -> WindowStateChangedCallback
gi'cb Ptr Window
gi'selfPtr 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
Ptr Window -> (Window -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Window
gi'selfPtr ((Window -> IO ()) -> IO ()) -> (Window -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Window
gi'self -> a -> WindowStateChangedCallback
gi'cb (Window -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Window
gi'self) [WindowState]
changedMask' [WindowState]
newState'
onWindowStateChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowStateChangedCallback) -> m SignalHandlerId
onWindowStateChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a
-> ((?self::a) => WindowStateChangedCallback) -> m SignalHandlerId
onWindowStateChanged a
obj (?self::a) => WindowStateChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> WindowStateChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WindowStateChangedCallback
WindowStateChangedCallback
cb
let wrapped' :: C_WindowActionsChangedCallback
wrapped' = (a -> WindowStateChangedCallback) -> C_WindowActionsChangedCallback
forall a.
GObject a =>
(a -> WindowStateChangedCallback) -> C_WindowActionsChangedCallback
wrap_WindowStateChangedCallback a -> WindowStateChangedCallback
wrapped
FunPtr C_WindowActionsChangedCallback
wrapped'' <- C_WindowActionsChangedCallback
-> IO (FunPtr C_WindowActionsChangedCallback)
mk_WindowStateChangedCallback C_WindowActionsChangedCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowStateChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowStateChangedCallback) -> m SignalHandlerId
afterWindowStateChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a
-> ((?self::a) => WindowStateChangedCallback) -> m SignalHandlerId
afterWindowStateChanged a
obj (?self::a) => WindowStateChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> WindowStateChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => WindowStateChangedCallback
WindowStateChangedCallback
cb
let wrapped' :: C_WindowActionsChangedCallback
wrapped' = (a -> WindowStateChangedCallback) -> C_WindowActionsChangedCallback
forall a.
GObject a =>
(a -> WindowStateChangedCallback) -> C_WindowActionsChangedCallback
wrap_WindowStateChangedCallback a -> WindowStateChangedCallback
wrapped
FunPtr C_WindowActionsChangedCallback
wrapped'' <- C_WindowActionsChangedCallback
-> IO (FunPtr C_WindowActionsChangedCallback)
mk_WindowStateChangedCallback C_WindowActionsChangedCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window::state-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#g:signal:stateChanged"})
#endif
type WindowTypeChangedCallback =
IO ()
type C_WindowTypeChangedCallback =
Ptr Window ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowTypeChangedCallback :: C_WindowTypeChangedCallback -> IO (FunPtr C_WindowTypeChangedCallback)
wrap_WindowTypeChangedCallback ::
GObject a => (a -> WindowTypeChangedCallback) ->
C_WindowTypeChangedCallback
wrap_WindowTypeChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowTypeChangedCallback a -> IO ()
gi'cb Ptr Window
gi'selfPtr Ptr ()
_ = do
Ptr Window -> (Window -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Window
gi'selfPtr ((Window -> IO ()) -> IO ()) -> (Window -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Window
gi'self -> a -> IO ()
gi'cb (Window -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Window
gi'self)
onWindowTypeChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowTypeChangedCallback) -> m SignalHandlerId
onWindowTypeChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onWindowTypeChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WindowClassChangedCallback
wrapped' = (a -> IO ()) -> C_WindowClassChangedCallback
forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowTypeChangedCallback a -> IO ()
wrapped
FunPtr C_WindowClassChangedCallback
wrapped'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowTypeChangedCallback C_WindowClassChangedCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowTypeChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowTypeChangedCallback) -> m SignalHandlerId
afterWindowTypeChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterWindowTypeChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WindowClassChangedCallback
wrapped' = (a -> IO ()) -> C_WindowClassChangedCallback
forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowTypeChangedCallback a -> IO ()
wrapped
FunPtr C_WindowClassChangedCallback
wrapped'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowTypeChangedCallback C_WindowClassChangedCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window::type-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#g:signal:typeChanged"})
#endif
type WindowWorkspaceChangedCallback =
IO ()
type C_WindowWorkspaceChangedCallback =
Ptr Window ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowWorkspaceChangedCallback :: C_WindowWorkspaceChangedCallback -> IO (FunPtr C_WindowWorkspaceChangedCallback)
wrap_WindowWorkspaceChangedCallback ::
GObject a => (a -> WindowWorkspaceChangedCallback) ->
C_WindowWorkspaceChangedCallback
wrap_WindowWorkspaceChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowWorkspaceChangedCallback a -> IO ()
gi'cb Ptr Window
gi'selfPtr Ptr ()
_ = do
Ptr Window -> (Window -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Window
gi'selfPtr ((Window -> IO ()) -> IO ()) -> (Window -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Window
gi'self -> a -> IO ()
gi'cb (Window -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Window
gi'self)
onWindowWorkspaceChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowWorkspaceChangedCallback) -> m SignalHandlerId
onWindowWorkspaceChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onWindowWorkspaceChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WindowClassChangedCallback
wrapped' = (a -> IO ()) -> C_WindowClassChangedCallback
forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowWorkspaceChangedCallback a -> IO ()
wrapped
FunPtr C_WindowClassChangedCallback
wrapped'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowWorkspaceChangedCallback C_WindowClassChangedCallback
wrapped'
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
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowWorkspaceChanged :: (IsWindow a, MonadIO m) => a -> ((?self :: a) => WindowWorkspaceChangedCallback) -> m SignalHandlerId
afterWindowWorkspaceChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterWindowWorkspaceChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_WindowClassChangedCallback
wrapped' = (a -> IO ()) -> C_WindowClassChangedCallback
forall a. GObject a => (a -> IO ()) -> C_WindowClassChangedCallback
wrap_WindowWorkspaceChangedCallback a -> IO ()
wrapped
FunPtr C_WindowClassChangedCallback
wrapped'' <- C_WindowClassChangedCallback
-> IO (FunPtr C_WindowClassChangedCallback)
mk_WindowWorkspaceChangedCallback C_WindowClassChangedCallback
wrapped'
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
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window::workspace-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#g:signal:workspaceChanged"})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Window
type instance O.AttributeList Window = WindowAttributeList
type WindowAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#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, DK.Type)])
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Word32 -> m ()
windowActivate a
window Word32
timestamp = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowActivateMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowActivateMethodInfo a signature where
overloadedMethod = windowActivate
instance O.OverloadedMethodInfo WindowActivateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowActivate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Word32 -> m ()
windowActivateTransient a
window Word32
timestamp = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowActivateTransientMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowActivateTransientMethodInfo a signature where
overloadedMethod = windowActivateTransient
instance O.OverloadedMethodInfo WindowActivateTransientMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowActivateTransient",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Word32 -> m ()
windowClose a
window Word32
timestamp = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowCloseMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowCloseMethodInfo a signature where
overloadedMethod = windowClose
instance O.OverloadedMethodInfo WindowCloseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowClose",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m [WindowActions]
windowGetActions a
window = IO [WindowActions] -> m [WindowActions]
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetActionsMethodInfo a signature where
overloadedMethod = windowGetActions
instance O.OverloadedMethodInfo WindowGetActionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetActions",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Application
windowGetApplication a
window = IO Application -> m Application
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetApplicationMethodInfo a signature where
overloadedMethod = windowGetApplication
instance O.OverloadedMethodInfo WindowGetApplicationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetApplication",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ClassGroup
windowGetClassGroup a
window = IO ClassGroup -> m ClassGroup
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetClassGroupMethodInfo a signature where
overloadedMethod = windowGetClassGroup
instance O.OverloadedMethodInfo WindowGetClassGroupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetClassGroup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Text
windowGetClassGroupName a
window = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetClassGroupNameMethodInfo a signature where
overloadedMethod = windowGetClassGroupName
instance O.OverloadedMethodInfo WindowGetClassGroupNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetClassGroupName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Text
windowGetClassInstanceName a
window = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetClassInstanceNameMethodInfo a signature where
overloadedMethod = windowGetClassInstanceName
instance O.OverloadedMethodInfo WindowGetClassInstanceNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetClassInstanceName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Int32, Int32, Int32, Int32)
windowGetClientWindowGeometry a
window = IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32)
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetClientWindowGeometryMethodInfo a signature where
overloadedMethod = windowGetClientWindowGeometry
instance O.OverloadedMethodInfo WindowGetClientWindowGeometryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetClientWindowGeometry",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Int32, Int32, Int32, Int32)
windowGetGeometry a
window = IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32)
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetGeometryMethodInfo a signature where
overloadedMethod = windowGetGeometry
instance O.OverloadedMethodInfo WindowGetGeometryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetGeometry",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m SignalHandlerId
windowGetGroupLeader a
window = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetGroupLeaderMethodInfo a signature where
overloadedMethod = windowGetGroupLeader
instance O.OverloadedMethodInfo WindowGetGroupLeaderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetGroupLeader",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v:windowGetGroupLeader"
})
#endif
foreign import ccall "wnck_window_get_icon" wnck_window_get_icon ::
Ptr Window ->
IO (Ptr GdkPixbuf.Pixbuf.Pixbuf)
{-# DEPRECATED windowGetIcon ["(Since version 41.0)","Use 'GI.Wnck.Objects.Window.windowGetIconSurface' instead."] #-}
windowGetIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m GdkPixbuf.Pixbuf.Pixbuf
windowGetIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Pixbuf
windowGetIcon a
window = IO Pixbuf -> m Pixbuf
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetIconMethodInfo a signature where
overloadedMethod = windowGetIcon
instance O.OverloadedMethodInfo WindowGetIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowGetIconIsFallback a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetIconIsFallbackMethodInfo a signature where
overloadedMethod = windowGetIconIsFallback
instance O.OverloadedMethodInfo WindowGetIconIsFallbackMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetIconIsFallback",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Text
windowGetIconName a
window = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetIconNameMethodInfo a signature where
overloadedMethod = windowGetIconName
instance O.OverloadedMethodInfo WindowGetIconNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetIconName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v:windowGetIconName"
})
#endif
foreign import ccall "wnck_window_get_icon_surface" wnck_window_get_icon_surface ::
Ptr Window ->
IO (Ptr Cairo.Surface.Surface)
windowGetIconSurface ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Cairo.Surface.Surface
windowGetIconSurface :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Surface
windowGetIconSurface a
window = IO Surface -> m Surface
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Surface -> m Surface) -> IO Surface -> m Surface
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 Surface
result <- Ptr Window -> IO (Ptr Surface)
wnck_window_get_icon_surface Ptr Window
window'
Text -> Ptr Surface -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetIconSurface" Ptr Surface
result
Surface
result' <- ((ManagedPtr Surface -> Surface) -> Ptr Surface -> IO Surface
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Surface -> Surface
Cairo.Surface.Surface) Ptr Surface
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Surface -> IO Surface
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Surface
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetIconSurfaceMethodInfo
instance (signature ~ (m Cairo.Surface.Surface), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetIconSurfaceMethodInfo a signature where
overloadedMethod = windowGetIconSurface
instance O.OverloadedMethodInfo WindowGetIconSurfaceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetIconSurface",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v:windowGetIconSurface"
})
#endif
foreign import ccall "wnck_window_get_mini_icon" wnck_window_get_mini_icon ::
Ptr Window ->
IO (Ptr GdkPixbuf.Pixbuf.Pixbuf)
{-# DEPRECATED windowGetMiniIcon ["(Since version 41.0)","Use 'GI.Wnck.Objects.Window.windowGetMiniIconSurface' instead."] #-}
windowGetMiniIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m GdkPixbuf.Pixbuf.Pixbuf
windowGetMiniIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Pixbuf
windowGetMiniIcon a
window = IO Pixbuf -> m Pixbuf
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetMiniIconMethodInfo a signature where
overloadedMethod = windowGetMiniIcon
instance O.OverloadedMethodInfo WindowGetMiniIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetMiniIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v:windowGetMiniIcon"
})
#endif
foreign import ccall "wnck_window_get_mini_icon_surface" wnck_window_get_mini_icon_surface ::
Ptr Window ->
IO (Ptr Cairo.Surface.Surface)
windowGetMiniIconSurface ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Cairo.Surface.Surface
windowGetMiniIconSurface :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Surface
windowGetMiniIconSurface a
window = IO Surface -> m Surface
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Surface -> m Surface) -> IO Surface -> m Surface
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 Surface
result <- Ptr Window -> IO (Ptr Surface)
wnck_window_get_mini_icon_surface Ptr Window
window'
Text -> Ptr Surface -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetMiniIconSurface" Ptr Surface
result
Surface
result' <- ((ManagedPtr Surface -> Surface) -> Ptr Surface -> IO Surface
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Surface -> Surface
Cairo.Surface.Surface) Ptr Surface
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Surface -> IO Surface
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Surface
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetMiniIconSurfaceMethodInfo
instance (signature ~ (m Cairo.Surface.Surface), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetMiniIconSurfaceMethodInfo a signature where
overloadedMethod = windowGetMiniIconSurface
instance O.OverloadedMethodInfo WindowGetMiniIconSurfaceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetMiniIconSurface",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v:windowGetMiniIconSurface"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Text
windowGetName a
window = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetNameMethodInfo a signature where
overloadedMethod = windowGetName
instance O.OverloadedMethodInfo WindowGetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Int32
windowGetPid a
window = IO Int32 -> m Int32
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetPidMethodInfo a signature where
overloadedMethod = windowGetPid
instance O.OverloadedMethodInfo WindowGetPidMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetPid",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Text
windowGetRole a
window = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetRoleMethodInfo a signature where
overloadedMethod = windowGetRole
instance O.OverloadedMethodInfo WindowGetRoleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetRole",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Screen
windowGetScreen a
window = IO Screen -> m Screen
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetScreenMethodInfo a signature where
overloadedMethod = windowGetScreen
instance O.OverloadedMethodInfo WindowGetScreenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetScreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Text
windowGetSessionId a
window = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetSessionIdMethodInfo a signature where
overloadedMethod = windowGetSessionId
instance O.OverloadedMethodInfo WindowGetSessionIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetSessionId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Text
windowGetSessionIdUtf8 a
window = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetSessionIdUtf8MethodInfo a signature where
overloadedMethod = windowGetSessionIdUtf8
instance O.OverloadedMethodInfo WindowGetSessionIdUtf8MethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetSessionIdUtf8",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Int32
windowGetSortOrder a
window = IO Int32 -> m Int32
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetSortOrderMethodInfo a signature where
overloadedMethod = windowGetSortOrder
instance O.OverloadedMethodInfo WindowGetSortOrderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetSortOrder",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m [WindowState]
windowGetState a
window = IO [WindowState] -> m [WindowState]
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetStateMethodInfo a signature where
overloadedMethod = windowGetState
instance O.OverloadedMethodInfo WindowGetStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Window
windowGetTransient a
window = IO Window -> m Window
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetTransientMethodInfo a signature where
overloadedMethod = windowGetTransient
instance O.OverloadedMethodInfo WindowGetTransientMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetTransient",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m WindowType
windowGetWindowType a
window = IO WindowType -> m WindowType
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetWindowTypeMethodInfo a signature where
overloadedMethod = windowGetWindowType
instance O.OverloadedMethodInfo WindowGetWindowTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetWindowType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Workspace
windowGetWorkspace a
window = IO Workspace -> m Workspace
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetWorkspaceMethodInfo a signature where
overloadedMethod = windowGetWorkspace
instance O.OverloadedMethodInfo WindowGetWorkspaceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetWorkspace",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m SignalHandlerId
windowGetXid a
window = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowGetXidMethodInfo a signature where
overloadedMethod = windowGetXid
instance O.OverloadedMethodInfo WindowGetXidMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowGetXid",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowHasIconName a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowHasIconNameMethodInfo a signature where
overloadedMethod = windowHasIconName
instance O.OverloadedMethodInfo WindowHasIconNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowHasIconName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowHasName a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowHasNameMethodInfo a signature where
overloadedMethod = windowHasName
instance O.OverloadedMethodInfo WindowHasNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowHasName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowIsAbove a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsAboveMethodInfo a signature where
overloadedMethod = windowIsAbove
instance O.OverloadedMethodInfo WindowIsAboveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsAbove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowIsActive a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsActiveMethodInfo a signature where
overloadedMethod = windowIsActive
instance O.OverloadedMethodInfo WindowIsActiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsActive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowIsBelow a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsBelowMethodInfo a signature where
overloadedMethod = windowIsBelow
instance O.OverloadedMethodInfo WindowIsBelowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsBelow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowIsFullscreen a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsFullscreenMethodInfo a signature where
overloadedMethod = windowIsFullscreen
instance O.OverloadedMethodInfo WindowIsFullscreenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsFullscreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsWorkspace b) =>
a -> b -> m Bool
windowIsInViewport a
window b
workspace = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsInViewportMethodInfo a signature where
overloadedMethod = windowIsInViewport
instance O.OverloadedMethodInfo WindowIsInViewportMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsInViewport",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowIsMaximized a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsMaximizedMethodInfo a signature where
overloadedMethod = windowIsMaximized
instance O.OverloadedMethodInfo WindowIsMaximizedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsMaximized",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowIsMaximizedHorizontally a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsMaximizedHorizontallyMethodInfo a signature where
overloadedMethod = windowIsMaximizedHorizontally
instance O.OverloadedMethodInfo WindowIsMaximizedHorizontallyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsMaximizedHorizontally",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowIsMaximizedVertically a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsMaximizedVerticallyMethodInfo a signature where
overloadedMethod = windowIsMaximizedVertically
instance O.OverloadedMethodInfo WindowIsMaximizedVerticallyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsMaximizedVertically",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowIsMinimized a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsMinimizedMethodInfo a signature where
overloadedMethod = windowIsMinimized
instance O.OverloadedMethodInfo WindowIsMinimizedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsMinimized",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowIsMostRecentlyActivated a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsMostRecentlyActivatedMethodInfo a signature where
overloadedMethod = windowIsMostRecentlyActivated
instance O.OverloadedMethodInfo WindowIsMostRecentlyActivatedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsMostRecentlyActivated",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsWorkspace b) =>
a -> b -> m Bool
windowIsOnWorkspace a
window b
workspace = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsOnWorkspaceMethodInfo a signature where
overloadedMethod = windowIsOnWorkspace
instance O.OverloadedMethodInfo WindowIsOnWorkspaceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsOnWorkspace",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowIsPinned a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsPinnedMethodInfo a signature where
overloadedMethod = windowIsPinned
instance O.OverloadedMethodInfo WindowIsPinnedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsPinned",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowIsShaded a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsShadedMethodInfo a signature where
overloadedMethod = windowIsShaded
instance O.OverloadedMethodInfo WindowIsShadedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsShaded",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsSkipPagerMethodInfo a signature where
overloadedMethod = windowIsSkipPager
instance O.OverloadedMethodInfo WindowIsSkipPagerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsSkipPager",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowIsSkipTasklist a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsSkipTasklistMethodInfo a signature where
overloadedMethod = windowIsSkipTasklist
instance O.OverloadedMethodInfo WindowIsSkipTasklistMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsSkipTasklist",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowIsSticky a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsStickyMethodInfo a signature where
overloadedMethod = windowIsSticky
instance O.OverloadedMethodInfo WindowIsStickyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsSticky",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsWorkspace b) =>
a -> b -> m Bool
windowIsVisibleOnWorkspace a
window b
workspace = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowIsVisibleOnWorkspaceMethodInfo a signature where
overloadedMethod = windowIsVisibleOnWorkspace
instance O.OverloadedMethodInfo WindowIsVisibleOnWorkspaceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowIsVisibleOnWorkspace",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowKeyboardMove a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowKeyboardMoveMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowKeyboardMoveMethodInfo a signature where
overloadedMethod = windowKeyboardMove
instance O.OverloadedMethodInfo WindowKeyboardMoveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowKeyboardMove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowKeyboardSize a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowKeyboardSizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowKeyboardSizeMethodInfo a signature where
overloadedMethod = windowKeyboardSize
instance O.OverloadedMethodInfo WindowKeyboardSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowKeyboardSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowMakeAbove a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowMakeAboveMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowMakeAboveMethodInfo a signature where
overloadedMethod = windowMakeAbove
instance O.OverloadedMethodInfo WindowMakeAboveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowMakeAbove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowMakeBelow a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowMakeBelowMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowMakeBelowMethodInfo a signature where
overloadedMethod = windowMakeBelow
instance O.OverloadedMethodInfo WindowMakeBelowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowMakeBelow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowMaximize a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowMaximizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowMaximizeMethodInfo a signature where
overloadedMethod = windowMaximize
instance O.OverloadedMethodInfo WindowMaximizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowMaximize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowMaximizeHorizontally a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowMaximizeHorizontallyMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowMaximizeHorizontallyMethodInfo a signature where
overloadedMethod = windowMaximizeHorizontally
instance O.OverloadedMethodInfo WindowMaximizeHorizontallyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowMaximizeHorizontally",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowMaximizeVertically a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowMaximizeVerticallyMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowMaximizeVerticallyMethodInfo a signature where
overloadedMethod = windowMaximizeVertically
instance O.OverloadedMethodInfo WindowMaximizeVerticallyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowMaximizeVertically",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowMinimize a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowMinimizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowMinimizeMethodInfo a signature where
overloadedMethod = windowMinimize
instance O.OverloadedMethodInfo WindowMinimizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowMinimize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsWorkspace b) =>
a -> b -> m ()
windowMoveToWorkspace a
window b
space = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowMoveToWorkspaceMethodInfo a signature where
overloadedMethod = windowMoveToWorkspace
instance O.OverloadedMethodInfo WindowMoveToWorkspaceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowMoveToWorkspace",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowNeedsAttention a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowNeedsAttentionMethodInfo a signature where
overloadedMethod = windowNeedsAttention
instance O.OverloadedMethodInfo WindowNeedsAttentionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowNeedsAttention",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowOrTransientNeedsAttention a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowOrTransientNeedsAttentionMethodInfo a signature where
overloadedMethod = windowOrTransientNeedsAttention
instance O.OverloadedMethodInfo WindowOrTransientNeedsAttentionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowOrTransientNeedsAttention",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowPin a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowPinMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowPinMethodInfo a signature where
overloadedMethod = windowPin
instance O.OverloadedMethodInfo WindowPinMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowPin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetFullscreen a
window Bool
fullscreen = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetFullscreenMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetFullscreenMethodInfo a signature where
overloadedMethod = windowSetFullscreen
instance O.OverloadedMethodInfo WindowSetFullscreenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowSetFullscreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
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 a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowSetGeometryMethodInfo a signature where
overloadedMethod = windowSetGeometry
instance O.OverloadedMethodInfo WindowSetGeometryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowSetGeometry",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Int32 -> Int32 -> Int32 -> Int32 -> m ()
windowSetIconGeometry a
window Int32
x Int32
y Int32
width Int32
height = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowSetIconGeometryMethodInfo a signature where
overloadedMethod = windowSetIconGeometry
instance O.OverloadedMethodInfo WindowSetIconGeometryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowSetIconGeometry",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetSkipPagerMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetSkipPagerMethodInfo a signature where
overloadedMethod = windowSetSkipPager
instance O.OverloadedMethodInfo WindowSetSkipPagerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowSetSkipPager",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetSkipTasklist a
window Bool
skip = IO () -> m ()
forall a. IO a -> m a
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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetSkipTasklistMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetSkipTasklistMethodInfo a signature where
overloadedMethod = windowSetSkipTasklist
instance O.OverloadedMethodInfo WindowSetSkipTasklistMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowSetSkipTasklist",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Int32 -> m ()
windowSetSortOrder a
window Int32
order = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetSortOrderMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetSortOrderMethodInfo a signature where
overloadedMethod = windowSetSortOrder
instance O.OverloadedMethodInfo WindowSetSortOrderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowSetSortOrder",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> WindowType -> m ()
windowSetWindowType a
window WindowType
wintype = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowSetWindowTypeMethodInfo a signature where
overloadedMethod = windowSetWindowType
instance O.OverloadedMethodInfo WindowSetWindowTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowSetWindowType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowShade a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowShadeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowShadeMethodInfo a signature where
overloadedMethod = windowShade
instance O.OverloadedMethodInfo WindowShadeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowShade",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowStick a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowStickMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowStickMethodInfo a signature where
overloadedMethod = windowStick
instance O.OverloadedMethodInfo WindowStickMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowStick",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowTransientIsMostRecentlyActivated a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod WindowTransientIsMostRecentlyActivatedMethodInfo a signature where
overloadedMethod = windowTransientIsMostRecentlyActivated
instance O.OverloadedMethodInfo WindowTransientIsMostRecentlyActivatedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowTransientIsMostRecentlyActivated",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowUnmakeAbove a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnmakeAboveMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowUnmakeAboveMethodInfo a signature where
overloadedMethod = windowUnmakeAbove
instance O.OverloadedMethodInfo WindowUnmakeAboveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowUnmakeAbove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowUnmakeBelow a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnmakeBelowMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowUnmakeBelowMethodInfo a signature where
overloadedMethod = windowUnmakeBelow
instance O.OverloadedMethodInfo WindowUnmakeBelowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowUnmakeBelow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowUnmaximize a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnmaximizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowUnmaximizeMethodInfo a signature where
overloadedMethod = windowUnmaximize
instance O.OverloadedMethodInfo WindowUnmaximizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowUnmaximize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowUnmaximizeHorizontally a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnmaximizeHorizontallyMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowUnmaximizeHorizontallyMethodInfo a signature where
overloadedMethod = windowUnmaximizeHorizontally
instance O.OverloadedMethodInfo WindowUnmaximizeHorizontallyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowUnmaximizeHorizontally",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowUnmaximizeVertically a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnmaximizeVerticallyMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowUnmaximizeVerticallyMethodInfo a signature where
overloadedMethod = windowUnmaximizeVertically
instance O.OverloadedMethodInfo WindowUnmaximizeVerticallyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowUnmaximizeVertically",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Word32 -> m ()
windowUnminimize a
window Word32
timestamp = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnminimizeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowUnminimizeMethodInfo a signature where
overloadedMethod = windowUnminimize
instance O.OverloadedMethodInfo WindowUnminimizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowUnminimize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowUnpin a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnpinMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowUnpinMethodInfo a signature where
overloadedMethod = windowUnpin
instance O.OverloadedMethodInfo WindowUnpinMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowUnpin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowUnshade a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnshadeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowUnshadeMethodInfo a signature where
overloadedMethod = windowUnshade
instance O.OverloadedMethodInfo WindowUnshadeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowUnshade",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowUnstick a
window = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnstickMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowUnstickMethodInfo a signature where
overloadedMethod = windowUnstick
instance O.OverloadedMethodInfo WindowUnstickMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Window.windowUnstick",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.14/docs/GI-Wnck-Objects-Window.html#v:windowUnstick"
})
#endif
foreign import ccall "wnck_window_get" wnck_window_get ::
CULong ->
IO (Ptr Window)
windowGet ::
(B.CallStack.HasCallStack, MonadIO m) =>
CULong
-> m (Maybe Window)
windowGet :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SignalHandlerId -> m (Maybe Window)
windowGet SignalHandlerId
xwindow = IO (Maybe Window) -> m (Maybe Window)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Window) -> m (Maybe Window))
-> IO (Maybe Window) -> m (Maybe Window)
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
result <- SignalHandlerId -> IO (Ptr Window)
wnck_window_get SignalHandlerId
xwindow
Maybe Window
maybeResult <- Ptr Window -> (Ptr Window -> IO Window) -> IO (Maybe Window)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Window
result ((Ptr Window -> IO Window) -> IO (Maybe Window))
-> (Ptr Window -> IO Window) -> IO (Maybe Window)
forall a b. (a -> b) -> a -> b
$ \Ptr Window
result' -> do
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Window
result''
Maybe Window -> IO (Maybe Window)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Window
maybeResult
#if defined(ENABLE_OVERLOADING)
#endif