{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Window
(
Window(..) ,
IsWindow ,
toWindow ,
#if defined(ENABLE_OVERLOADING)
ResolveWindowMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowActivateDefaultMethodInfo ,
#endif
windowActivateDefault ,
#if defined(ENABLE_OVERLOADING)
WindowActivateFocusMethodInfo ,
#endif
windowActivateFocus ,
#if defined(ENABLE_OVERLOADING)
WindowActivateKeyMethodInfo ,
#endif
windowActivateKey ,
#if defined(ENABLE_OVERLOADING)
WindowAddAccelGroupMethodInfo ,
#endif
windowAddAccelGroup ,
#if defined(ENABLE_OVERLOADING)
WindowAddMnemonicMethodInfo ,
#endif
windowAddMnemonic ,
#if defined(ENABLE_OVERLOADING)
WindowBeginMoveDragMethodInfo ,
#endif
windowBeginMoveDrag ,
#if defined(ENABLE_OVERLOADING)
WindowBeginResizeDragMethodInfo ,
#endif
windowBeginResizeDrag ,
#if defined(ENABLE_OVERLOADING)
WindowCloseMethodInfo ,
#endif
windowClose ,
#if defined(ENABLE_OVERLOADING)
WindowDeiconifyMethodInfo ,
#endif
windowDeiconify ,
#if defined(ENABLE_OVERLOADING)
WindowFullscreenMethodInfo ,
#endif
windowFullscreen ,
#if defined(ENABLE_OVERLOADING)
WindowFullscreenOnMonitorMethodInfo ,
#endif
windowFullscreenOnMonitor ,
#if defined(ENABLE_OVERLOADING)
WindowGetAcceptFocusMethodInfo ,
#endif
windowGetAcceptFocus ,
#if defined(ENABLE_OVERLOADING)
WindowGetApplicationMethodInfo ,
#endif
windowGetApplication ,
#if defined(ENABLE_OVERLOADING)
WindowGetAttachedToMethodInfo ,
#endif
windowGetAttachedTo ,
#if defined(ENABLE_OVERLOADING)
WindowGetDecoratedMethodInfo ,
#endif
windowGetDecorated ,
windowGetDefaultIconList ,
windowGetDefaultIconName ,
#if defined(ENABLE_OVERLOADING)
WindowGetDefaultSizeMethodInfo ,
#endif
windowGetDefaultSize ,
#if defined(ENABLE_OVERLOADING)
WindowGetDefaultWidgetMethodInfo ,
#endif
windowGetDefaultWidget ,
#if defined(ENABLE_OVERLOADING)
WindowGetDeletableMethodInfo ,
#endif
windowGetDeletable ,
#if defined(ENABLE_OVERLOADING)
WindowGetDestroyWithParentMethodInfo ,
#endif
windowGetDestroyWithParent ,
#if defined(ENABLE_OVERLOADING)
WindowGetFocusMethodInfo ,
#endif
windowGetFocus ,
#if defined(ENABLE_OVERLOADING)
WindowGetFocusOnMapMethodInfo ,
#endif
windowGetFocusOnMap ,
#if defined(ENABLE_OVERLOADING)
WindowGetFocusVisibleMethodInfo ,
#endif
windowGetFocusVisible ,
#if defined(ENABLE_OVERLOADING)
WindowGetGravityMethodInfo ,
#endif
windowGetGravity ,
#if defined(ENABLE_OVERLOADING)
WindowGetGroupMethodInfo ,
#endif
windowGetGroup ,
#if defined(ENABLE_OVERLOADING)
WindowGetHasResizeGripMethodInfo ,
#endif
windowGetHasResizeGrip ,
#if defined(ENABLE_OVERLOADING)
WindowGetHideTitlebarWhenMaximizedMethodInfo,
#endif
windowGetHideTitlebarWhenMaximized ,
#if defined(ENABLE_OVERLOADING)
WindowGetIconMethodInfo ,
#endif
windowGetIcon ,
#if defined(ENABLE_OVERLOADING)
WindowGetIconListMethodInfo ,
#endif
windowGetIconList ,
#if defined(ENABLE_OVERLOADING)
WindowGetIconNameMethodInfo ,
#endif
windowGetIconName ,
#if defined(ENABLE_OVERLOADING)
WindowGetMnemonicModifierMethodInfo ,
#endif
windowGetMnemonicModifier ,
#if defined(ENABLE_OVERLOADING)
WindowGetMnemonicsVisibleMethodInfo ,
#endif
windowGetMnemonicsVisible ,
#if defined(ENABLE_OVERLOADING)
WindowGetModalMethodInfo ,
#endif
windowGetModal ,
#if defined(ENABLE_OVERLOADING)
WindowGetOpacityMethodInfo ,
#endif
windowGetOpacity ,
#if defined(ENABLE_OVERLOADING)
WindowGetPositionMethodInfo ,
#endif
windowGetPosition ,
#if defined(ENABLE_OVERLOADING)
WindowGetResizableMethodInfo ,
#endif
windowGetResizable ,
#if defined(ENABLE_OVERLOADING)
WindowGetResizeGripAreaMethodInfo ,
#endif
windowGetResizeGripArea ,
#if defined(ENABLE_OVERLOADING)
WindowGetRoleMethodInfo ,
#endif
windowGetRole ,
#if defined(ENABLE_OVERLOADING)
WindowGetScreenMethodInfo ,
#endif
windowGetScreen ,
#if defined(ENABLE_OVERLOADING)
WindowGetSizeMethodInfo ,
#endif
windowGetSize ,
#if defined(ENABLE_OVERLOADING)
WindowGetSkipPagerHintMethodInfo ,
#endif
windowGetSkipPagerHint ,
#if defined(ENABLE_OVERLOADING)
WindowGetSkipTaskbarHintMethodInfo ,
#endif
windowGetSkipTaskbarHint ,
#if defined(ENABLE_OVERLOADING)
WindowGetTitleMethodInfo ,
#endif
windowGetTitle ,
#if defined(ENABLE_OVERLOADING)
WindowGetTitlebarMethodInfo ,
#endif
windowGetTitlebar ,
#if defined(ENABLE_OVERLOADING)
WindowGetTransientForMethodInfo ,
#endif
windowGetTransientFor ,
#if defined(ENABLE_OVERLOADING)
WindowGetTypeHintMethodInfo ,
#endif
windowGetTypeHint ,
#if defined(ENABLE_OVERLOADING)
WindowGetUrgencyHintMethodInfo ,
#endif
windowGetUrgencyHint ,
#if defined(ENABLE_OVERLOADING)
WindowGetWindowTypeMethodInfo ,
#endif
windowGetWindowType ,
#if defined(ENABLE_OVERLOADING)
WindowHasGroupMethodInfo ,
#endif
windowHasGroup ,
#if defined(ENABLE_OVERLOADING)
WindowHasToplevelFocusMethodInfo ,
#endif
windowHasToplevelFocus ,
#if defined(ENABLE_OVERLOADING)
WindowIconifyMethodInfo ,
#endif
windowIconify ,
#if defined(ENABLE_OVERLOADING)
WindowIsActiveMethodInfo ,
#endif
windowIsActive ,
#if defined(ENABLE_OVERLOADING)
WindowIsMaximizedMethodInfo ,
#endif
windowIsMaximized ,
windowListToplevels ,
#if defined(ENABLE_OVERLOADING)
WindowMaximizeMethodInfo ,
#endif
windowMaximize ,
#if defined(ENABLE_OVERLOADING)
WindowMnemonicActivateMethodInfo ,
#endif
windowMnemonicActivate ,
#if defined(ENABLE_OVERLOADING)
WindowMoveMethodInfo ,
#endif
windowMove ,
windowNew ,
#if defined(ENABLE_OVERLOADING)
WindowParseGeometryMethodInfo ,
#endif
windowParseGeometry ,
#if defined(ENABLE_OVERLOADING)
WindowPresentMethodInfo ,
#endif
windowPresent ,
#if defined(ENABLE_OVERLOADING)
WindowPresentWithTimeMethodInfo ,
#endif
windowPresentWithTime ,
#if defined(ENABLE_OVERLOADING)
WindowPropagateKeyEventMethodInfo ,
#endif
windowPropagateKeyEvent ,
#if defined(ENABLE_OVERLOADING)
WindowRemoveAccelGroupMethodInfo ,
#endif
windowRemoveAccelGroup ,
#if defined(ENABLE_OVERLOADING)
WindowRemoveMnemonicMethodInfo ,
#endif
windowRemoveMnemonic ,
#if defined(ENABLE_OVERLOADING)
WindowReshowWithInitialSizeMethodInfo ,
#endif
windowReshowWithInitialSize ,
#if defined(ENABLE_OVERLOADING)
WindowResizeMethodInfo ,
#endif
windowResize ,
#if defined(ENABLE_OVERLOADING)
WindowResizeGripIsVisibleMethodInfo ,
#endif
windowResizeGripIsVisible ,
#if defined(ENABLE_OVERLOADING)
WindowResizeToGeometryMethodInfo ,
#endif
windowResizeToGeometry ,
#if defined(ENABLE_OVERLOADING)
WindowSetAcceptFocusMethodInfo ,
#endif
windowSetAcceptFocus ,
#if defined(ENABLE_OVERLOADING)
WindowSetApplicationMethodInfo ,
#endif
windowSetApplication ,
#if defined(ENABLE_OVERLOADING)
WindowSetAttachedToMethodInfo ,
#endif
windowSetAttachedTo ,
windowSetAutoStartupNotification ,
#if defined(ENABLE_OVERLOADING)
WindowSetDecoratedMethodInfo ,
#endif
windowSetDecorated ,
#if defined(ENABLE_OVERLOADING)
WindowSetDefaultMethodInfo ,
#endif
windowSetDefault ,
#if defined(ENABLE_OVERLOADING)
WindowSetDefaultGeometryMethodInfo ,
#endif
windowSetDefaultGeometry ,
windowSetDefaultIcon ,
windowSetDefaultIconFromFile ,
windowSetDefaultIconList ,
windowSetDefaultIconName ,
#if defined(ENABLE_OVERLOADING)
WindowSetDefaultSizeMethodInfo ,
#endif
windowSetDefaultSize ,
#if defined(ENABLE_OVERLOADING)
WindowSetDeletableMethodInfo ,
#endif
windowSetDeletable ,
#if defined(ENABLE_OVERLOADING)
WindowSetDestroyWithParentMethodInfo ,
#endif
windowSetDestroyWithParent ,
#if defined(ENABLE_OVERLOADING)
WindowSetFocusMethodInfo ,
#endif
windowSetFocus ,
#if defined(ENABLE_OVERLOADING)
WindowSetFocusOnMapMethodInfo ,
#endif
windowSetFocusOnMap ,
#if defined(ENABLE_OVERLOADING)
WindowSetFocusVisibleMethodInfo ,
#endif
windowSetFocusVisible ,
#if defined(ENABLE_OVERLOADING)
WindowSetGeometryHintsMethodInfo ,
#endif
windowSetGeometryHints ,
#if defined(ENABLE_OVERLOADING)
WindowSetGravityMethodInfo ,
#endif
windowSetGravity ,
#if defined(ENABLE_OVERLOADING)
WindowSetHasResizeGripMethodInfo ,
#endif
windowSetHasResizeGrip ,
#if defined(ENABLE_OVERLOADING)
WindowSetHasUserRefCountMethodInfo ,
#endif
windowSetHasUserRefCount ,
#if defined(ENABLE_OVERLOADING)
WindowSetHideTitlebarWhenMaximizedMethodInfo,
#endif
windowSetHideTitlebarWhenMaximized ,
#if defined(ENABLE_OVERLOADING)
WindowSetIconMethodInfo ,
#endif
windowSetIcon ,
#if defined(ENABLE_OVERLOADING)
WindowSetIconFromFileMethodInfo ,
#endif
windowSetIconFromFile ,
#if defined(ENABLE_OVERLOADING)
WindowSetIconListMethodInfo ,
#endif
windowSetIconList ,
#if defined(ENABLE_OVERLOADING)
WindowSetIconNameMethodInfo ,
#endif
windowSetIconName ,
windowSetInteractiveDebugging ,
#if defined(ENABLE_OVERLOADING)
WindowSetKeepAboveMethodInfo ,
#endif
windowSetKeepAbove ,
#if defined(ENABLE_OVERLOADING)
WindowSetKeepBelowMethodInfo ,
#endif
windowSetKeepBelow ,
#if defined(ENABLE_OVERLOADING)
WindowSetMnemonicModifierMethodInfo ,
#endif
windowSetMnemonicModifier ,
#if defined(ENABLE_OVERLOADING)
WindowSetMnemonicsVisibleMethodInfo ,
#endif
windowSetMnemonicsVisible ,
#if defined(ENABLE_OVERLOADING)
WindowSetModalMethodInfo ,
#endif
windowSetModal ,
#if defined(ENABLE_OVERLOADING)
WindowSetOpacityMethodInfo ,
#endif
windowSetOpacity ,
#if defined(ENABLE_OVERLOADING)
WindowSetPositionMethodInfo ,
#endif
windowSetPosition ,
#if defined(ENABLE_OVERLOADING)
WindowSetResizableMethodInfo ,
#endif
windowSetResizable ,
#if defined(ENABLE_OVERLOADING)
WindowSetRoleMethodInfo ,
#endif
windowSetRole ,
#if defined(ENABLE_OVERLOADING)
WindowSetScreenMethodInfo ,
#endif
windowSetScreen ,
#if defined(ENABLE_OVERLOADING)
WindowSetSkipPagerHintMethodInfo ,
#endif
windowSetSkipPagerHint ,
#if defined(ENABLE_OVERLOADING)
WindowSetSkipTaskbarHintMethodInfo ,
#endif
windowSetSkipTaskbarHint ,
#if defined(ENABLE_OVERLOADING)
WindowSetStartupIdMethodInfo ,
#endif
windowSetStartupId ,
#if defined(ENABLE_OVERLOADING)
WindowSetTitleMethodInfo ,
#endif
windowSetTitle ,
#if defined(ENABLE_OVERLOADING)
WindowSetTitlebarMethodInfo ,
#endif
windowSetTitlebar ,
#if defined(ENABLE_OVERLOADING)
WindowSetTransientForMethodInfo ,
#endif
windowSetTransientFor ,
#if defined(ENABLE_OVERLOADING)
WindowSetTypeHintMethodInfo ,
#endif
windowSetTypeHint ,
#if defined(ENABLE_OVERLOADING)
WindowSetUrgencyHintMethodInfo ,
#endif
windowSetUrgencyHint ,
#if defined(ENABLE_OVERLOADING)
WindowSetWmclassMethodInfo ,
#endif
windowSetWmclass ,
#if defined(ENABLE_OVERLOADING)
WindowStickMethodInfo ,
#endif
windowStick ,
#if defined(ENABLE_OVERLOADING)
WindowUnfullscreenMethodInfo ,
#endif
windowUnfullscreen ,
#if defined(ENABLE_OVERLOADING)
WindowUnmaximizeMethodInfo ,
#endif
windowUnmaximize ,
#if defined(ENABLE_OVERLOADING)
WindowUnstickMethodInfo ,
#endif
windowUnstick ,
#if defined(ENABLE_OVERLOADING)
WindowAcceptFocusPropertyInfo ,
#endif
constructWindowAcceptFocus ,
getWindowAcceptFocus ,
setWindowAcceptFocus ,
#if defined(ENABLE_OVERLOADING)
windowAcceptFocus ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowApplicationPropertyInfo ,
#endif
clearWindowApplication ,
constructWindowApplication ,
getWindowApplication ,
setWindowApplication ,
#if defined(ENABLE_OVERLOADING)
windowApplication ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowAttachedToPropertyInfo ,
#endif
clearWindowAttachedTo ,
constructWindowAttachedTo ,
getWindowAttachedTo ,
setWindowAttachedTo ,
#if defined(ENABLE_OVERLOADING)
windowAttachedTo ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowDecoratedPropertyInfo ,
#endif
constructWindowDecorated ,
getWindowDecorated ,
setWindowDecorated ,
#if defined(ENABLE_OVERLOADING)
windowDecorated ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowDefaultHeightPropertyInfo ,
#endif
constructWindowDefaultHeight ,
getWindowDefaultHeight ,
setWindowDefaultHeight ,
#if defined(ENABLE_OVERLOADING)
windowDefaultHeight ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowDefaultWidthPropertyInfo ,
#endif
constructWindowDefaultWidth ,
getWindowDefaultWidth ,
setWindowDefaultWidth ,
#if defined(ENABLE_OVERLOADING)
windowDefaultWidth ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowDeletablePropertyInfo ,
#endif
constructWindowDeletable ,
getWindowDeletable ,
setWindowDeletable ,
#if defined(ENABLE_OVERLOADING)
windowDeletable ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowDestroyWithParentPropertyInfo ,
#endif
constructWindowDestroyWithParent ,
getWindowDestroyWithParent ,
setWindowDestroyWithParent ,
#if defined(ENABLE_OVERLOADING)
windowDestroyWithParent ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowFocusOnMapPropertyInfo ,
#endif
constructWindowFocusOnMap ,
getWindowFocusOnMap ,
setWindowFocusOnMap ,
#if defined(ENABLE_OVERLOADING)
windowFocusOnMap ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowFocusVisiblePropertyInfo ,
#endif
constructWindowFocusVisible ,
getWindowFocusVisible ,
setWindowFocusVisible ,
#if defined(ENABLE_OVERLOADING)
windowFocusVisible ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowGravityPropertyInfo ,
#endif
constructWindowGravity ,
getWindowGravity ,
setWindowGravity ,
#if defined(ENABLE_OVERLOADING)
windowGravity ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowHasResizeGripPropertyInfo ,
#endif
constructWindowHasResizeGrip ,
getWindowHasResizeGrip ,
setWindowHasResizeGrip ,
#if defined(ENABLE_OVERLOADING)
windowHasResizeGrip ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowHasToplevelFocusPropertyInfo ,
#endif
getWindowHasToplevelFocus ,
#if defined(ENABLE_OVERLOADING)
WindowHideTitlebarWhenMaximizedPropertyInfo,
#endif
constructWindowHideTitlebarWhenMaximized,
getWindowHideTitlebarWhenMaximized ,
setWindowHideTitlebarWhenMaximized ,
#if defined(ENABLE_OVERLOADING)
windowHideTitlebarWhenMaximized ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowIconPropertyInfo ,
#endif
clearWindowIcon ,
constructWindowIcon ,
getWindowIcon ,
setWindowIcon ,
#if defined(ENABLE_OVERLOADING)
windowIcon ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowIconNamePropertyInfo ,
#endif
clearWindowIconName ,
constructWindowIconName ,
getWindowIconName ,
setWindowIconName ,
#if defined(ENABLE_OVERLOADING)
windowIconName ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowIsActivePropertyInfo ,
#endif
getWindowIsActive ,
#if defined(ENABLE_OVERLOADING)
WindowIsMaximizedPropertyInfo ,
#endif
getWindowIsMaximized ,
#if defined(ENABLE_OVERLOADING)
WindowMnemonicsVisiblePropertyInfo ,
#endif
constructWindowMnemonicsVisible ,
getWindowMnemonicsVisible ,
setWindowMnemonicsVisible ,
#if defined(ENABLE_OVERLOADING)
windowMnemonicsVisible ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowModalPropertyInfo ,
#endif
constructWindowModal ,
getWindowModal ,
setWindowModal ,
#if defined(ENABLE_OVERLOADING)
windowModal ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowResizablePropertyInfo ,
#endif
constructWindowResizable ,
getWindowResizable ,
setWindowResizable ,
#if defined(ENABLE_OVERLOADING)
windowResizable ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowResizeGripVisiblePropertyInfo ,
#endif
getWindowResizeGripVisible ,
#if defined(ENABLE_OVERLOADING)
windowResizeGripVisible ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowRolePropertyInfo ,
#endif
constructWindowRole ,
getWindowRole ,
setWindowRole ,
#if defined(ENABLE_OVERLOADING)
windowRole ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowScreenPropertyInfo ,
#endif
constructWindowScreen ,
getWindowScreen ,
setWindowScreen ,
#if defined(ENABLE_OVERLOADING)
windowScreen ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowSkipPagerHintPropertyInfo ,
#endif
constructWindowSkipPagerHint ,
getWindowSkipPagerHint ,
setWindowSkipPagerHint ,
#if defined(ENABLE_OVERLOADING)
windowSkipPagerHint ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowSkipTaskbarHintPropertyInfo ,
#endif
constructWindowSkipTaskbarHint ,
getWindowSkipTaskbarHint ,
setWindowSkipTaskbarHint ,
#if defined(ENABLE_OVERLOADING)
windowSkipTaskbarHint ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowStartupIdPropertyInfo ,
#endif
constructWindowStartupId ,
setWindowStartupId ,
#if defined(ENABLE_OVERLOADING)
windowStartupId ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowTitlePropertyInfo ,
#endif
constructWindowTitle ,
getWindowTitle ,
setWindowTitle ,
#if defined(ENABLE_OVERLOADING)
windowTitle ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowTransientForPropertyInfo ,
#endif
clearWindowTransientFor ,
constructWindowTransientFor ,
getWindowTransientFor ,
setWindowTransientFor ,
#if defined(ENABLE_OVERLOADING)
windowTransientFor ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowTypePropertyInfo ,
#endif
constructWindowType ,
getWindowType ,
#if defined(ENABLE_OVERLOADING)
windowType ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowTypeHintPropertyInfo ,
#endif
constructWindowTypeHint ,
getWindowTypeHint ,
setWindowTypeHint ,
#if defined(ENABLE_OVERLOADING)
windowTypeHint ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowUrgencyHintPropertyInfo ,
#endif
constructWindowUrgencyHint ,
getWindowUrgencyHint ,
setWindowUrgencyHint ,
#if defined(ENABLE_OVERLOADING)
windowUrgencyHint ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowWindowPositionPropertyInfo ,
#endif
constructWindowWindowPosition ,
getWindowWindowPosition ,
setWindowWindowPosition ,
#if defined(ENABLE_OVERLOADING)
windowWindowPosition ,
#endif
C_WindowActivateDefaultCallback ,
WindowActivateDefaultCallback ,
#if defined(ENABLE_OVERLOADING)
WindowActivateDefaultSignalInfo ,
#endif
afterWindowActivateDefault ,
genClosure_WindowActivateDefault ,
mk_WindowActivateDefaultCallback ,
noWindowActivateDefaultCallback ,
onWindowActivateDefault ,
wrap_WindowActivateDefaultCallback ,
C_WindowActivateFocusCallback ,
WindowActivateFocusCallback ,
#if defined(ENABLE_OVERLOADING)
WindowActivateFocusSignalInfo ,
#endif
afterWindowActivateFocus ,
genClosure_WindowActivateFocus ,
mk_WindowActivateFocusCallback ,
noWindowActivateFocusCallback ,
onWindowActivateFocus ,
wrap_WindowActivateFocusCallback ,
C_WindowEnableDebuggingCallback ,
WindowEnableDebuggingCallback ,
#if defined(ENABLE_OVERLOADING)
WindowEnableDebuggingSignalInfo ,
#endif
afterWindowEnableDebugging ,
genClosure_WindowEnableDebugging ,
mk_WindowEnableDebuggingCallback ,
noWindowEnableDebuggingCallback ,
onWindowEnableDebugging ,
wrap_WindowEnableDebuggingCallback ,
C_WindowKeysChangedCallback ,
WindowKeysChangedCallback ,
#if defined(ENABLE_OVERLOADING)
WindowKeysChangedSignalInfo ,
#endif
afterWindowKeysChanged ,
genClosure_WindowKeysChanged ,
mk_WindowKeysChangedCallback ,
noWindowKeysChangedCallback ,
onWindowKeysChanged ,
wrap_WindowKeysChangedCallback ,
C_WindowSetFocusCallback ,
WindowSetFocusCallback ,
#if defined(ENABLE_OVERLOADING)
WindowSetFocusSignalInfo ,
#endif
afterWindowSetFocus ,
genClosure_WindowSetFocus ,
mk_WindowSetFocusCallback ,
noWindowSetFocusCallback ,
onWindowSetFocus ,
wrap_WindowSetFocusCallback ,
) 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.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Enums as Gdk.Enums
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Objects.Screen as Gdk.Screen
import qualified GI.Gdk.Structs.EventKey as Gdk.EventKey
import qualified GI.Gdk.Structs.Geometry as Gdk.Geometry
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Objects.AccelGroup as Gtk.AccelGroup
import {-# SOURCE #-} qualified GI.Gtk.Objects.Application as Gtk.Application
import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Objects.WindowGroup as Gtk.WindowGroup
newtype Window = Window (SP.ManagedPtr Window)
deriving (Window -> Window -> Bool
(Window -> Window -> Bool)
-> (Window -> Window -> Bool) -> Eq Window
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Window -> Window -> Bool
$c/= :: Window -> Window -> Bool
== :: Window -> Window -> Bool
$c== :: Window -> Window -> Bool
Eq)
instance SP.ManagedPtrNewtype Window where
toManagedPtr :: Window -> ManagedPtr Window
toManagedPtr (Window ManagedPtr Window
p) = ManagedPtr Window
p
foreign import ccall "gtk_window_get_type"
c_gtk_window_get_type :: IO B.Types.GType
instance B.Types.TypedObject Window where
glibType :: IO GType
glibType = IO GType
c_gtk_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 = '[Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
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 (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_gtk_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 (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 :: *) :: * where
ResolveWindowMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveWindowMethod "activateDefault" o = WindowActivateDefaultMethodInfo
ResolveWindowMethod "activateFocus" o = WindowActivateFocusMethodInfo
ResolveWindowMethod "activateKey" o = WindowActivateKeyMethodInfo
ResolveWindowMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveWindowMethod "addAccelGroup" o = WindowAddAccelGroupMethodInfo
ResolveWindowMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveWindowMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveWindowMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveWindowMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveWindowMethod "addMnemonic" o = WindowAddMnemonicMethodInfo
ResolveWindowMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveWindowMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveWindowMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo
ResolveWindowMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo
ResolveWindowMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveWindowMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveWindowMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveWindowMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolveWindowMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveWindowMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolveWindowMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolveWindowMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolveWindowMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolveWindowMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveWindowMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveWindowMethod "close" o = WindowCloseMethodInfo
ResolveWindowMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveWindowMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveWindowMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveWindowMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveWindowMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveWindowMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveWindowMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveWindowMethod "deiconify" o = WindowDeiconifyMethodInfo
ResolveWindowMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveWindowMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveWindowMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveWindowMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveWindowMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveWindowMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveWindowMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveWindowMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveWindowMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveWindowMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveWindowMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveWindowMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveWindowMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveWindowMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveWindowMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveWindowMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveWindowMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveWindowMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveWindowMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveWindowMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveWindowMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveWindowMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveWindowMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveWindowMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveWindowMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveWindowMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveWindowMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveWindowMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveWindowMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveWindowMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveWindowMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveWindowMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveWindowMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveWindowMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveWindowMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveWindowMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveWindowMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWindowMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveWindowMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveWindowMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWindowMethod "fullscreen" o = WindowFullscreenMethodInfo
ResolveWindowMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo
ResolveWindowMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveWindowMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveWindowMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveWindowMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveWindowMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveWindowMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveWindowMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveWindowMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveWindowMethod "hasGroup" o = WindowHasGroupMethodInfo
ResolveWindowMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveWindowMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveWindowMethod "hasToplevelFocus" o = WindowHasToplevelFocusMethodInfo
ResolveWindowMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveWindowMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveWindowMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveWindowMethod "iconify" o = WindowIconifyMethodInfo
ResolveWindowMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveWindowMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveWindowMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveWindowMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveWindowMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveWindowMethod "isActive" o = WindowIsActiveMethodInfo
ResolveWindowMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveWindowMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveWindowMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveWindowMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveWindowMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveWindowMethod "isMaximized" o = WindowIsMaximizedMethodInfo
ResolveWindowMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveWindowMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveWindowMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveWindowMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveWindowMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveWindowMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveWindowMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveWindowMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveWindowMethod "maximize" o = WindowMaximizeMethodInfo
ResolveWindowMethod "mnemonicActivate" o = WindowMnemonicActivateMethodInfo
ResolveWindowMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveWindowMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveWindowMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveWindowMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveWindowMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveWindowMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveWindowMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveWindowMethod "move" o = WindowMoveMethodInfo
ResolveWindowMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWindowMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWindowMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveWindowMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveWindowMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveWindowMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveWindowMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveWindowMethod "parseGeometry" o = WindowParseGeometryMethodInfo
ResolveWindowMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveWindowMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveWindowMethod "present" o = WindowPresentMethodInfo
ResolveWindowMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo
ResolveWindowMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolveWindowMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo
ResolveWindowMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveWindowMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveWindowMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveWindowMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveWindowMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveWindowMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveWindowMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveWindowMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveWindowMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWindowMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWindowMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveWindowMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveWindowMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveWindowMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo
ResolveWindowMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveWindowMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo
ResolveWindowMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveWindowMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveWindowMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveWindowMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveWindowMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveWindowMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveWindowMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveWindowMethod "reshowWithInitialSize" o = WindowReshowWithInitialSizeMethodInfo
ResolveWindowMethod "resize" o = WindowResizeMethodInfo
ResolveWindowMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolveWindowMethod "resizeGripIsVisible" o = WindowResizeGripIsVisibleMethodInfo
ResolveWindowMethod "resizeToGeometry" o = WindowResizeToGeometryMethodInfo
ResolveWindowMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWindowMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveWindowMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveWindowMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveWindowMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveWindowMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveWindowMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveWindowMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveWindowMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveWindowMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveWindowMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWindowMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWindowMethod "stick" o = WindowStickMethodInfo
ResolveWindowMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveWindowMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveWindowMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveWindowMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveWindowMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveWindowMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveWindowMethod "unfullscreen" o = WindowUnfullscreenMethodInfo
ResolveWindowMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveWindowMethod "unmaximize" o = WindowUnmaximizeMethodInfo
ResolveWindowMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveWindowMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveWindowMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveWindowMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveWindowMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolveWindowMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveWindowMethod "unstick" o = WindowUnstickMethodInfo
ResolveWindowMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWindowMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo
ResolveWindowMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveWindowMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveWindowMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveWindowMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveWindowMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveWindowMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveWindowMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveWindowMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveWindowMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveWindowMethod "getApplication" o = WindowGetApplicationMethodInfo
ResolveWindowMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo
ResolveWindowMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolveWindowMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveWindowMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveWindowMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo
ResolveWindowMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveWindowMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveWindowMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveWindowMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveWindowMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveWindowMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveWindowMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveWindowMethod "getDecorated" o = WindowGetDecoratedMethodInfo
ResolveWindowMethod "getDefaultSize" o = WindowGetDefaultSizeMethodInfo
ResolveWindowMethod "getDefaultWidget" o = WindowGetDefaultWidgetMethodInfo
ResolveWindowMethod "getDeletable" o = WindowGetDeletableMethodInfo
ResolveWindowMethod "getDestroyWithParent" o = WindowGetDestroyWithParentMethodInfo
ResolveWindowMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveWindowMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveWindowMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveWindowMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveWindowMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveWindowMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveWindowMethod "getFocus" o = WindowGetFocusMethodInfo
ResolveWindowMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolveWindowMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolveWindowMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveWindowMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveWindowMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo
ResolveWindowMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveWindowMethod "getFocusVisible" o = WindowGetFocusVisibleMethodInfo
ResolveWindowMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveWindowMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveWindowMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveWindowMethod "getGravity" o = WindowGetGravityMethodInfo
ResolveWindowMethod "getGroup" o = WindowGetGroupMethodInfo
ResolveWindowMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveWindowMethod "getHasResizeGrip" o = WindowGetHasResizeGripMethodInfo
ResolveWindowMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveWindowMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveWindowMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveWindowMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveWindowMethod "getHideTitlebarWhenMaximized" o = WindowGetHideTitlebarWhenMaximizedMethodInfo
ResolveWindowMethod "getIcon" o = WindowGetIconMethodInfo
ResolveWindowMethod "getIconList" o = WindowGetIconListMethodInfo
ResolveWindowMethod "getIconName" o = WindowGetIconNameMethodInfo
ResolveWindowMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveWindowMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveWindowMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveWindowMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveWindowMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveWindowMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveWindowMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveWindowMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveWindowMethod "getMnemonicModifier" o = WindowGetMnemonicModifierMethodInfo
ResolveWindowMethod "getMnemonicsVisible" o = WindowGetMnemonicsVisibleMethodInfo
ResolveWindowMethod "getModal" o = WindowGetModalMethodInfo
ResolveWindowMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveWindowMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveWindowMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveWindowMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveWindowMethod "getOpacity" o = WindowGetOpacityMethodInfo
ResolveWindowMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveWindowMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveWindowMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveWindowMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveWindowMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveWindowMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveWindowMethod "getPosition" o = WindowGetPositionMethodInfo
ResolveWindowMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveWindowMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveWindowMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveWindowMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveWindowMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveWindowMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveWindowMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWindowMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWindowMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveWindowMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveWindowMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveWindowMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveWindowMethod "getResizable" o = WindowGetResizableMethodInfo
ResolveWindowMethod "getResizeGripArea" o = WindowGetResizeGripAreaMethodInfo
ResolveWindowMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolveWindowMethod "getRole" o = WindowGetRoleMethodInfo
ResolveWindowMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveWindowMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveWindowMethod "getScreen" o = WindowGetScreenMethodInfo
ResolveWindowMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveWindowMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveWindowMethod "getSize" o = WindowGetSizeMethodInfo
ResolveWindowMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveWindowMethod "getSkipPagerHint" o = WindowGetSkipPagerHintMethodInfo
ResolveWindowMethod "getSkipTaskbarHint" o = WindowGetSkipTaskbarHintMethodInfo
ResolveWindowMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveWindowMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveWindowMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveWindowMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveWindowMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveWindowMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveWindowMethod "getTitle" o = WindowGetTitleMethodInfo
ResolveWindowMethod "getTitlebar" o = WindowGetTitlebarMethodInfo
ResolveWindowMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveWindowMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveWindowMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveWindowMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveWindowMethod "getTransientFor" o = WindowGetTransientForMethodInfo
ResolveWindowMethod "getTypeHint" o = WindowGetTypeHintMethodInfo
ResolveWindowMethod "getUrgencyHint" o = WindowGetUrgencyHintMethodInfo
ResolveWindowMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveWindowMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveWindowMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveWindowMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveWindowMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveWindowMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveWindowMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveWindowMethod "getWindowType" o = WindowGetWindowTypeMethodInfo
ResolveWindowMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveWindowMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo
ResolveWindowMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveWindowMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveWindowMethod "setApplication" o = WindowSetApplicationMethodInfo
ResolveWindowMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo
ResolveWindowMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolveWindowMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveWindowMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveWindowMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveWindowMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveWindowMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveWindowMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveWindowMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWindowMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveWindowMethod "setDecorated" o = WindowSetDecoratedMethodInfo
ResolveWindowMethod "setDefault" o = WindowSetDefaultMethodInfo
ResolveWindowMethod "setDefaultGeometry" o = WindowSetDefaultGeometryMethodInfo
ResolveWindowMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo
ResolveWindowMethod "setDeletable" o = WindowSetDeletableMethodInfo
ResolveWindowMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo
ResolveWindowMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveWindowMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveWindowMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveWindowMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveWindowMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveWindowMethod "setFocus" o = WindowSetFocusMethodInfo
ResolveWindowMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolveWindowMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolveWindowMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveWindowMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveWindowMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo
ResolveWindowMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveWindowMethod "setFocusVisible" o = WindowSetFocusVisibleMethodInfo
ResolveWindowMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveWindowMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveWindowMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo
ResolveWindowMethod "setGravity" o = WindowSetGravityMethodInfo
ResolveWindowMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveWindowMethod "setHasResizeGrip" o = WindowSetHasResizeGripMethodInfo
ResolveWindowMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveWindowMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo
ResolveWindowMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveWindowMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveWindowMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveWindowMethod "setHideTitlebarWhenMaximized" o = WindowSetHideTitlebarWhenMaximizedMethodInfo
ResolveWindowMethod "setIcon" o = WindowSetIconMethodInfo
ResolveWindowMethod "setIconFromFile" o = WindowSetIconFromFileMethodInfo
ResolveWindowMethod "setIconList" o = WindowSetIconListMethodInfo
ResolveWindowMethod "setIconName" o = WindowSetIconNameMethodInfo
ResolveWindowMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo
ResolveWindowMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo
ResolveWindowMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveWindowMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveWindowMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveWindowMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveWindowMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveWindowMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveWindowMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveWindowMethod "setMnemonicModifier" o = WindowSetMnemonicModifierMethodInfo
ResolveWindowMethod "setMnemonicsVisible" o = WindowSetMnemonicsVisibleMethodInfo
ResolveWindowMethod "setModal" o = WindowSetModalMethodInfo
ResolveWindowMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveWindowMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveWindowMethod "setOpacity" o = WindowSetOpacityMethodInfo
ResolveWindowMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveWindowMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveWindowMethod "setPosition" o = WindowSetPositionMethodInfo
ResolveWindowMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWindowMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveWindowMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolveWindowMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveWindowMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveWindowMethod "setResizable" o = WindowSetResizableMethodInfo
ResolveWindowMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolveWindowMethod "setRole" o = WindowSetRoleMethodInfo
ResolveWindowMethod "setScreen" o = WindowSetScreenMethodInfo
ResolveWindowMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveWindowMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveWindowMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo
ResolveWindowMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo
ResolveWindowMethod "setStartupId" o = WindowSetStartupIdMethodInfo
ResolveWindowMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveWindowMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveWindowMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveWindowMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveWindowMethod "setTitle" o = WindowSetTitleMethodInfo
ResolveWindowMethod "setTitlebar" o = WindowSetTitlebarMethodInfo
ResolveWindowMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveWindowMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveWindowMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveWindowMethod "setTransientFor" o = WindowSetTransientForMethodInfo
ResolveWindowMethod "setTypeHint" o = WindowSetTypeHintMethodInfo
ResolveWindowMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo
ResolveWindowMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveWindowMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveWindowMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveWindowMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveWindowMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveWindowMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveWindowMethod "setWmclass" o = WindowSetWmclassMethodInfo
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 WindowActivateDefaultCallback =
IO ()
noWindowActivateDefaultCallback :: Maybe WindowActivateDefaultCallback
noWindowActivateDefaultCallback :: Maybe (IO ())
noWindowActivateDefaultCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WindowActivateDefaultCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowActivateDefaultCallback :: C_WindowActivateDefaultCallback -> IO (FunPtr C_WindowActivateDefaultCallback)
genClosure_WindowActivateDefault :: MonadIO m => WindowActivateDefaultCallback -> m (GClosure C_WindowActivateDefaultCallback)
genClosure_WindowActivateDefault :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_WindowActivateDefaultCallback)
genClosure_WindowActivateDefault IO ()
cb = IO (GClosure C_WindowActivateDefaultCallback)
-> m (GClosure C_WindowActivateDefaultCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WindowActivateDefaultCallback)
-> m (GClosure C_WindowActivateDefaultCallback))
-> IO (GClosure C_WindowActivateDefaultCallback)
-> m (GClosure C_WindowActivateDefaultCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateDefaultCallback
cb' = IO () -> C_WindowActivateDefaultCallback
wrap_WindowActivateDefaultCallback IO ()
cb
C_WindowActivateDefaultCallback
-> IO (FunPtr C_WindowActivateDefaultCallback)
mk_WindowActivateDefaultCallback C_WindowActivateDefaultCallback
cb' IO (FunPtr C_WindowActivateDefaultCallback)
-> (FunPtr C_WindowActivateDefaultCallback
-> IO (GClosure C_WindowActivateDefaultCallback))
-> IO (GClosure C_WindowActivateDefaultCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowActivateDefaultCallback
-> IO (GClosure C_WindowActivateDefaultCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WindowActivateDefaultCallback ::
WindowActivateDefaultCallback ->
C_WindowActivateDefaultCallback
wrap_WindowActivateDefaultCallback :: IO () -> C_WindowActivateDefaultCallback
wrap_WindowActivateDefaultCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWindowActivateDefault :: (IsWindow a, MonadIO m) => a -> WindowActivateDefaultCallback -> m SignalHandlerId
onWindowActivateDefault :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onWindowActivateDefault a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateDefaultCallback
cb' = IO () -> C_WindowActivateDefaultCallback
wrap_WindowActivateDefaultCallback IO ()
cb
FunPtr C_WindowActivateDefaultCallback
cb'' <- C_WindowActivateDefaultCallback
-> IO (FunPtr C_WindowActivateDefaultCallback)
mk_WindowActivateDefaultCallback C_WindowActivateDefaultCallback
cb'
a
-> Text
-> FunPtr C_WindowActivateDefaultCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate-default" FunPtr C_WindowActivateDefaultCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowActivateDefault :: (IsWindow a, MonadIO m) => a -> WindowActivateDefaultCallback -> m SignalHandlerId
afterWindowActivateDefault :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterWindowActivateDefault a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateDefaultCallback
cb' = IO () -> C_WindowActivateDefaultCallback
wrap_WindowActivateDefaultCallback IO ()
cb
FunPtr C_WindowActivateDefaultCallback
cb'' <- C_WindowActivateDefaultCallback
-> IO (FunPtr C_WindowActivateDefaultCallback)
mk_WindowActivateDefaultCallback C_WindowActivateDefaultCallback
cb'
a
-> Text
-> FunPtr C_WindowActivateDefaultCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate-default" FunPtr C_WindowActivateDefaultCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WindowActivateDefaultSignalInfo
instance SignalInfo WindowActivateDefaultSignalInfo where
type HaskellCallbackType WindowActivateDefaultSignalInfo = WindowActivateDefaultCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowActivateDefaultCallback cb
cb'' <- mk_WindowActivateDefaultCallback cb'
connectSignalFunPtr obj "activate-default" cb'' connectMode detail
#endif
type WindowActivateFocusCallback =
IO ()
noWindowActivateFocusCallback :: Maybe WindowActivateFocusCallback
noWindowActivateFocusCallback :: Maybe (IO ())
noWindowActivateFocusCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WindowActivateFocusCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowActivateFocusCallback :: C_WindowActivateFocusCallback -> IO (FunPtr C_WindowActivateFocusCallback)
genClosure_WindowActivateFocus :: MonadIO m => WindowActivateFocusCallback -> m (GClosure C_WindowActivateFocusCallback)
genClosure_WindowActivateFocus :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_WindowActivateDefaultCallback)
genClosure_WindowActivateFocus IO ()
cb = IO (GClosure C_WindowActivateDefaultCallback)
-> m (GClosure C_WindowActivateDefaultCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WindowActivateDefaultCallback)
-> m (GClosure C_WindowActivateDefaultCallback))
-> IO (GClosure C_WindowActivateDefaultCallback)
-> m (GClosure C_WindowActivateDefaultCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateDefaultCallback
cb' = IO () -> C_WindowActivateDefaultCallback
wrap_WindowActivateFocusCallback IO ()
cb
C_WindowActivateDefaultCallback
-> IO (FunPtr C_WindowActivateDefaultCallback)
mk_WindowActivateFocusCallback C_WindowActivateDefaultCallback
cb' IO (FunPtr C_WindowActivateDefaultCallback)
-> (FunPtr C_WindowActivateDefaultCallback
-> IO (GClosure C_WindowActivateDefaultCallback))
-> IO (GClosure C_WindowActivateDefaultCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowActivateDefaultCallback
-> IO (GClosure C_WindowActivateDefaultCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WindowActivateFocusCallback ::
WindowActivateFocusCallback ->
C_WindowActivateFocusCallback
wrap_WindowActivateFocusCallback :: IO () -> C_WindowActivateDefaultCallback
wrap_WindowActivateFocusCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWindowActivateFocus :: (IsWindow a, MonadIO m) => a -> WindowActivateFocusCallback -> m SignalHandlerId
onWindowActivateFocus :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onWindowActivateFocus a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateDefaultCallback
cb' = IO () -> C_WindowActivateDefaultCallback
wrap_WindowActivateFocusCallback IO ()
cb
FunPtr C_WindowActivateDefaultCallback
cb'' <- C_WindowActivateDefaultCallback
-> IO (FunPtr C_WindowActivateDefaultCallback)
mk_WindowActivateFocusCallback C_WindowActivateDefaultCallback
cb'
a
-> Text
-> FunPtr C_WindowActivateDefaultCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate-focus" FunPtr C_WindowActivateDefaultCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowActivateFocus :: (IsWindow a, MonadIO m) => a -> WindowActivateFocusCallback -> m SignalHandlerId
afterWindowActivateFocus :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterWindowActivateFocus a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateDefaultCallback
cb' = IO () -> C_WindowActivateDefaultCallback
wrap_WindowActivateFocusCallback IO ()
cb
FunPtr C_WindowActivateDefaultCallback
cb'' <- C_WindowActivateDefaultCallback
-> IO (FunPtr C_WindowActivateDefaultCallback)
mk_WindowActivateFocusCallback C_WindowActivateDefaultCallback
cb'
a
-> Text
-> FunPtr C_WindowActivateDefaultCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate-focus" FunPtr C_WindowActivateDefaultCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WindowActivateFocusSignalInfo
instance SignalInfo WindowActivateFocusSignalInfo where
type HaskellCallbackType WindowActivateFocusSignalInfo = WindowActivateFocusCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowActivateFocusCallback cb
cb'' <- mk_WindowActivateFocusCallback cb'
connectSignalFunPtr obj "activate-focus" cb'' connectMode detail
#endif
type WindowEnableDebuggingCallback =
Bool
-> IO Bool
noWindowEnableDebuggingCallback :: Maybe WindowEnableDebuggingCallback
noWindowEnableDebuggingCallback :: Maybe WindowEnableDebuggingCallback
noWindowEnableDebuggingCallback = Maybe WindowEnableDebuggingCallback
forall a. Maybe a
Nothing
type C_WindowEnableDebuggingCallback =
Ptr () ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WindowEnableDebuggingCallback :: C_WindowEnableDebuggingCallback -> IO (FunPtr C_WindowEnableDebuggingCallback)
genClosure_WindowEnableDebugging :: MonadIO m => WindowEnableDebuggingCallback -> m (GClosure C_WindowEnableDebuggingCallback)
genClosure_WindowEnableDebugging :: forall (m :: * -> *).
MonadIO m =>
WindowEnableDebuggingCallback
-> m (GClosure C_WindowEnableDebuggingCallback)
genClosure_WindowEnableDebugging WindowEnableDebuggingCallback
cb = IO (GClosure C_WindowEnableDebuggingCallback)
-> m (GClosure C_WindowEnableDebuggingCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WindowEnableDebuggingCallback)
-> m (GClosure C_WindowEnableDebuggingCallback))
-> IO (GClosure C_WindowEnableDebuggingCallback)
-> m (GClosure C_WindowEnableDebuggingCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowEnableDebuggingCallback
cb' = WindowEnableDebuggingCallback -> C_WindowEnableDebuggingCallback
wrap_WindowEnableDebuggingCallback WindowEnableDebuggingCallback
cb
C_WindowEnableDebuggingCallback
-> IO (FunPtr C_WindowEnableDebuggingCallback)
mk_WindowEnableDebuggingCallback C_WindowEnableDebuggingCallback
cb' IO (FunPtr C_WindowEnableDebuggingCallback)
-> (FunPtr C_WindowEnableDebuggingCallback
-> IO (GClosure C_WindowEnableDebuggingCallback))
-> IO (GClosure C_WindowEnableDebuggingCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowEnableDebuggingCallback
-> IO (GClosure C_WindowEnableDebuggingCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WindowEnableDebuggingCallback ::
WindowEnableDebuggingCallback ->
C_WindowEnableDebuggingCallback
wrap_WindowEnableDebuggingCallback :: WindowEnableDebuggingCallback -> C_WindowEnableDebuggingCallback
wrap_WindowEnableDebuggingCallback WindowEnableDebuggingCallback
_cb Ptr ()
_ CInt
toggle Ptr ()
_ = do
let toggle' :: Bool
toggle' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
toggle
Bool
result <- WindowEnableDebuggingCallback
_cb Bool
toggle'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onWindowEnableDebugging :: (IsWindow a, MonadIO m) => a -> WindowEnableDebuggingCallback -> m SignalHandlerId
onWindowEnableDebugging :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> WindowEnableDebuggingCallback -> m SignalHandlerId
onWindowEnableDebugging a
obj WindowEnableDebuggingCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowEnableDebuggingCallback
cb' = WindowEnableDebuggingCallback -> C_WindowEnableDebuggingCallback
wrap_WindowEnableDebuggingCallback WindowEnableDebuggingCallback
cb
FunPtr C_WindowEnableDebuggingCallback
cb'' <- C_WindowEnableDebuggingCallback
-> IO (FunPtr C_WindowEnableDebuggingCallback)
mk_WindowEnableDebuggingCallback C_WindowEnableDebuggingCallback
cb'
a
-> Text
-> FunPtr C_WindowEnableDebuggingCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"enable-debugging" FunPtr C_WindowEnableDebuggingCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowEnableDebugging :: (IsWindow a, MonadIO m) => a -> WindowEnableDebuggingCallback -> m SignalHandlerId
afterWindowEnableDebugging :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> WindowEnableDebuggingCallback -> m SignalHandlerId
afterWindowEnableDebugging a
obj WindowEnableDebuggingCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowEnableDebuggingCallback
cb' = WindowEnableDebuggingCallback -> C_WindowEnableDebuggingCallback
wrap_WindowEnableDebuggingCallback WindowEnableDebuggingCallback
cb
FunPtr C_WindowEnableDebuggingCallback
cb'' <- C_WindowEnableDebuggingCallback
-> IO (FunPtr C_WindowEnableDebuggingCallback)
mk_WindowEnableDebuggingCallback C_WindowEnableDebuggingCallback
cb'
a
-> Text
-> FunPtr C_WindowEnableDebuggingCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"enable-debugging" FunPtr C_WindowEnableDebuggingCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WindowEnableDebuggingSignalInfo
instance SignalInfo WindowEnableDebuggingSignalInfo where
type HaskellCallbackType WindowEnableDebuggingSignalInfo = WindowEnableDebuggingCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowEnableDebuggingCallback cb
cb'' <- mk_WindowEnableDebuggingCallback cb'
connectSignalFunPtr obj "enable-debugging" cb'' connectMode detail
#endif
type WindowKeysChangedCallback =
IO ()
noWindowKeysChangedCallback :: Maybe WindowKeysChangedCallback
noWindowKeysChangedCallback :: Maybe (IO ())
noWindowKeysChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_WindowKeysChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowKeysChangedCallback :: C_WindowKeysChangedCallback -> IO (FunPtr C_WindowKeysChangedCallback)
genClosure_WindowKeysChanged :: MonadIO m => WindowKeysChangedCallback -> m (GClosure C_WindowKeysChangedCallback)
genClosure_WindowKeysChanged :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_WindowActivateDefaultCallback)
genClosure_WindowKeysChanged IO ()
cb = IO (GClosure C_WindowActivateDefaultCallback)
-> m (GClosure C_WindowActivateDefaultCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WindowActivateDefaultCallback)
-> m (GClosure C_WindowActivateDefaultCallback))
-> IO (GClosure C_WindowActivateDefaultCallback)
-> m (GClosure C_WindowActivateDefaultCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateDefaultCallback
cb' = IO () -> C_WindowActivateDefaultCallback
wrap_WindowKeysChangedCallback IO ()
cb
C_WindowActivateDefaultCallback
-> IO (FunPtr C_WindowActivateDefaultCallback)
mk_WindowKeysChangedCallback C_WindowActivateDefaultCallback
cb' IO (FunPtr C_WindowActivateDefaultCallback)
-> (FunPtr C_WindowActivateDefaultCallback
-> IO (GClosure C_WindowActivateDefaultCallback))
-> IO (GClosure C_WindowActivateDefaultCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowActivateDefaultCallback
-> IO (GClosure C_WindowActivateDefaultCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WindowKeysChangedCallback ::
WindowKeysChangedCallback ->
C_WindowKeysChangedCallback
wrap_WindowKeysChangedCallback :: IO () -> C_WindowActivateDefaultCallback
wrap_WindowKeysChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onWindowKeysChanged :: (IsWindow a, MonadIO m) => a -> WindowKeysChangedCallback -> m SignalHandlerId
onWindowKeysChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onWindowKeysChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateDefaultCallback
cb' = IO () -> C_WindowActivateDefaultCallback
wrap_WindowKeysChangedCallback IO ()
cb
FunPtr C_WindowActivateDefaultCallback
cb'' <- C_WindowActivateDefaultCallback
-> IO (FunPtr C_WindowActivateDefaultCallback)
mk_WindowKeysChangedCallback C_WindowActivateDefaultCallback
cb'
a
-> Text
-> FunPtr C_WindowActivateDefaultCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"keys-changed" FunPtr C_WindowActivateDefaultCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowKeysChanged :: (IsWindow a, MonadIO m) => a -> WindowKeysChangedCallback -> m SignalHandlerId
afterWindowKeysChanged :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterWindowKeysChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowActivateDefaultCallback
cb' = IO () -> C_WindowActivateDefaultCallback
wrap_WindowKeysChangedCallback IO ()
cb
FunPtr C_WindowActivateDefaultCallback
cb'' <- C_WindowActivateDefaultCallback
-> IO (FunPtr C_WindowActivateDefaultCallback)
mk_WindowKeysChangedCallback C_WindowActivateDefaultCallback
cb'
a
-> Text
-> FunPtr C_WindowActivateDefaultCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"keys-changed" FunPtr C_WindowActivateDefaultCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WindowKeysChangedSignalInfo
instance SignalInfo WindowKeysChangedSignalInfo where
type HaskellCallbackType WindowKeysChangedSignalInfo = WindowKeysChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowKeysChangedCallback cb
cb'' <- mk_WindowKeysChangedCallback cb'
connectSignalFunPtr obj "keys-changed" cb'' connectMode detail
#endif
type WindowSetFocusCallback =
Maybe Gtk.Widget.Widget
-> IO ()
noWindowSetFocusCallback :: Maybe WindowSetFocusCallback
noWindowSetFocusCallback :: Maybe WindowSetFocusCallback
noWindowSetFocusCallback = Maybe WindowSetFocusCallback
forall a. Maybe a
Nothing
type C_WindowSetFocusCallback =
Ptr () ->
Ptr Gtk.Widget.Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WindowSetFocusCallback :: C_WindowSetFocusCallback -> IO (FunPtr C_WindowSetFocusCallback)
genClosure_WindowSetFocus :: MonadIO m => WindowSetFocusCallback -> m (GClosure C_WindowSetFocusCallback)
genClosure_WindowSetFocus :: forall (m :: * -> *).
MonadIO m =>
WindowSetFocusCallback -> m (GClosure C_WindowSetFocusCallback)
genClosure_WindowSetFocus WindowSetFocusCallback
cb = IO (GClosure C_WindowSetFocusCallback)
-> m (GClosure C_WindowSetFocusCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WindowSetFocusCallback)
-> m (GClosure C_WindowSetFocusCallback))
-> IO (GClosure C_WindowSetFocusCallback)
-> m (GClosure C_WindowSetFocusCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowSetFocusCallback
cb' = WindowSetFocusCallback -> C_WindowSetFocusCallback
wrap_WindowSetFocusCallback WindowSetFocusCallback
cb
C_WindowSetFocusCallback -> IO (FunPtr C_WindowSetFocusCallback)
mk_WindowSetFocusCallback C_WindowSetFocusCallback
cb' IO (FunPtr C_WindowSetFocusCallback)
-> (FunPtr C_WindowSetFocusCallback
-> IO (GClosure C_WindowSetFocusCallback))
-> IO (GClosure C_WindowSetFocusCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowSetFocusCallback
-> IO (GClosure C_WindowSetFocusCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WindowSetFocusCallback ::
WindowSetFocusCallback ->
C_WindowSetFocusCallback
wrap_WindowSetFocusCallback :: WindowSetFocusCallback -> C_WindowSetFocusCallback
wrap_WindowSetFocusCallback WindowSetFocusCallback
_cb Ptr ()
_ Ptr Widget
widget Ptr ()
_ = do
Maybe Widget
maybeWidget <-
if Ptr Widget
widget Ptr Widget -> Ptr Widget -> Bool
forall a. Eq a => a -> a -> Bool
== Ptr Widget
forall a. Ptr a
nullPtr
then Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
forall a. Maybe a
Nothing
else do
Widget
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Widget -> IO (Maybe Widget))
-> Maybe Widget -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ Widget -> Maybe Widget
forall a. a -> Maybe a
Just Widget
widget'
WindowSetFocusCallback
_cb Maybe Widget
maybeWidget
onWindowSetFocus :: (IsWindow a, MonadIO m) => a -> WindowSetFocusCallback -> m SignalHandlerId
onWindowSetFocus :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> WindowSetFocusCallback -> m SignalHandlerId
onWindowSetFocus a
obj WindowSetFocusCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowSetFocusCallback
cb' = WindowSetFocusCallback -> C_WindowSetFocusCallback
wrap_WindowSetFocusCallback WindowSetFocusCallback
cb
FunPtr C_WindowSetFocusCallback
cb'' <- C_WindowSetFocusCallback -> IO (FunPtr C_WindowSetFocusCallback)
mk_WindowSetFocusCallback C_WindowSetFocusCallback
cb'
a
-> Text
-> FunPtr C_WindowSetFocusCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"set-focus" FunPtr C_WindowSetFocusCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowSetFocus :: (IsWindow a, MonadIO m) => a -> WindowSetFocusCallback -> m SignalHandlerId
afterWindowSetFocus :: forall a (m :: * -> *).
(IsWindow a, MonadIO m) =>
a -> WindowSetFocusCallback -> m SignalHandlerId
afterWindowSetFocus a
obj WindowSetFocusCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowSetFocusCallback
cb' = WindowSetFocusCallback -> C_WindowSetFocusCallback
wrap_WindowSetFocusCallback WindowSetFocusCallback
cb
FunPtr C_WindowSetFocusCallback
cb'' <- C_WindowSetFocusCallback -> IO (FunPtr C_WindowSetFocusCallback)
mk_WindowSetFocusCallback C_WindowSetFocusCallback
cb'
a
-> Text
-> FunPtr C_WindowSetFocusCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"set-focus" FunPtr C_WindowSetFocusCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WindowSetFocusSignalInfo
instance SignalInfo WindowSetFocusSignalInfo where
type HaskellCallbackType WindowSetFocusSignalInfo = WindowSetFocusCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowSetFocusCallback cb
cb'' <- mk_WindowSetFocusCallback cb'
connectSignalFunPtr obj "set-focus" cb'' connectMode detail
#endif
getWindowAcceptFocus :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowAcceptFocus :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowAcceptFocus o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"accept-focus"
setWindowAcceptFocus :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowAcceptFocus :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Bool -> m ()
setWindowAcceptFocus o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"accept-focus" Bool
val
constructWindowAcceptFocus :: (IsWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowAcceptFocus :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowAcceptFocus Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"accept-focus" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowAcceptFocusPropertyInfo
instance AttrInfo WindowAcceptFocusPropertyInfo where
type AttrAllowedOps WindowAcceptFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowAcceptFocusPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowAcceptFocusPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowAcceptFocusPropertyInfo = (~) Bool
type AttrTransferType WindowAcceptFocusPropertyInfo = Bool
type AttrGetType WindowAcceptFocusPropertyInfo = Bool
type AttrLabel WindowAcceptFocusPropertyInfo = "accept-focus"
type AttrOrigin WindowAcceptFocusPropertyInfo = Window
attrGet = getWindowAcceptFocus
attrSet = setWindowAcceptFocus
attrTransfer _ v = do
return v
attrConstruct = constructWindowAcceptFocus
attrClear = undefined
#endif
getWindowApplication :: (MonadIO m, IsWindow o) => o -> m (Maybe Gtk.Application.Application)
getWindowApplication :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> m (Maybe Application)
getWindowApplication o
obj = IO (Maybe Application) -> m (Maybe Application)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Application) -> m (Maybe Application))
-> IO (Maybe Application) -> m (Maybe Application)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Application -> Application)
-> IO (Maybe Application)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"application" ManagedPtr Application -> Application
Gtk.Application.Application
setWindowApplication :: (MonadIO m, IsWindow o, Gtk.Application.IsApplication a) => o -> a -> m ()
setWindowApplication :: forall (m :: * -> *) o a.
(MonadIO m, IsWindow o, IsApplication a) =>
o -> a -> m ()
setWindowApplication o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"application" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWindowApplication :: (IsWindow o, MIO.MonadIO m, Gtk.Application.IsApplication a) => a -> m (GValueConstruct o)
constructWindowApplication :: forall o (m :: * -> *) a.
(IsWindow o, MonadIO m, IsApplication a) =>
a -> m (GValueConstruct o)
constructWindowApplication a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"application" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearWindowApplication :: (MonadIO m, IsWindow o) => o -> m ()
clearWindowApplication :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m ()
clearWindowApplication o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Application -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"application" (Maybe Application
forall a. Maybe a
Nothing :: Maybe Gtk.Application.Application)
#if defined(ENABLE_OVERLOADING)
data WindowApplicationPropertyInfo
instance AttrInfo WindowApplicationPropertyInfo where
type AttrAllowedOps WindowApplicationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WindowApplicationPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowApplicationPropertyInfo = Gtk.Application.IsApplication
type AttrTransferTypeConstraint WindowApplicationPropertyInfo = Gtk.Application.IsApplication
type AttrTransferType WindowApplicationPropertyInfo = Gtk.Application.Application
type AttrGetType WindowApplicationPropertyInfo = (Maybe Gtk.Application.Application)
type AttrLabel WindowApplicationPropertyInfo = "application"
type AttrOrigin WindowApplicationPropertyInfo = Window
attrGet = getWindowApplication
attrSet = setWindowApplication
attrTransfer _ v = do
unsafeCastTo Gtk.Application.Application v
attrConstruct = constructWindowApplication
attrClear = clearWindowApplication
#endif
getWindowAttachedTo :: (MonadIO m, IsWindow o) => o -> m (Maybe Gtk.Widget.Widget)
getWindowAttachedTo :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> m (Maybe Widget)
getWindowAttachedTo o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"attached-to" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setWindowAttachedTo :: (MonadIO m, IsWindow o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setWindowAttachedTo :: forall (m :: * -> *) o a.
(MonadIO m, IsWindow o, IsWidget a) =>
o -> a -> m ()
setWindowAttachedTo o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"attached-to" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWindowAttachedTo :: (IsWindow o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructWindowAttachedTo :: forall o (m :: * -> *) a.
(IsWindow o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructWindowAttachedTo a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"attached-to" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearWindowAttachedTo :: (MonadIO m, IsWindow o) => o -> m ()
clearWindowAttachedTo :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m ()
clearWindowAttachedTo o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> WindowSetFocusCallback
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"attached-to" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data WindowAttachedToPropertyInfo
instance AttrInfo WindowAttachedToPropertyInfo where
type AttrAllowedOps WindowAttachedToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WindowAttachedToPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowAttachedToPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint WindowAttachedToPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType WindowAttachedToPropertyInfo = Gtk.Widget.Widget
type AttrGetType WindowAttachedToPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel WindowAttachedToPropertyInfo = "attached-to"
type AttrOrigin WindowAttachedToPropertyInfo = Window
attrGet = getWindowAttachedTo
attrSet = setWindowAttachedTo
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructWindowAttachedTo
attrClear = clearWindowAttachedTo
#endif
getWindowDecorated :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowDecorated :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowDecorated o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"decorated"
setWindowDecorated :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowDecorated :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Bool -> m ()
setWindowDecorated o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"decorated" Bool
val
constructWindowDecorated :: (IsWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowDecorated :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowDecorated Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"decorated" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowDecoratedPropertyInfo
instance AttrInfo WindowDecoratedPropertyInfo where
type AttrAllowedOps WindowDecoratedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowDecoratedPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowDecoratedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowDecoratedPropertyInfo = (~) Bool
type AttrTransferType WindowDecoratedPropertyInfo = Bool
type AttrGetType WindowDecoratedPropertyInfo = Bool
type AttrLabel WindowDecoratedPropertyInfo = "decorated"
type AttrOrigin WindowDecoratedPropertyInfo = Window
attrGet = getWindowDecorated
attrSet = setWindowDecorated
attrTransfer _ v = do
return v
attrConstruct = constructWindowDecorated
attrClear = undefined
#endif
getWindowDefaultHeight :: (MonadIO m, IsWindow o) => o -> m Int32
getWindowDefaultHeight :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Int32
getWindowDefaultHeight o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"default-height"
setWindowDefaultHeight :: (MonadIO m, IsWindow o) => o -> Int32 -> m ()
setWindowDefaultHeight :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Int32 -> m ()
setWindowDefaultHeight o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"default-height" Int32
val
constructWindowDefaultHeight :: (IsWindow o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructWindowDefaultHeight :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructWindowDefaultHeight Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"default-height" Int32
val
#if defined(ENABLE_OVERLOADING)
data WindowDefaultHeightPropertyInfo
instance AttrInfo WindowDefaultHeightPropertyInfo where
type AttrAllowedOps WindowDefaultHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowDefaultHeightPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowDefaultHeightPropertyInfo = (~) Int32
type AttrTransferTypeConstraint WindowDefaultHeightPropertyInfo = (~) Int32
type AttrTransferType WindowDefaultHeightPropertyInfo = Int32
type AttrGetType WindowDefaultHeightPropertyInfo = Int32
type AttrLabel WindowDefaultHeightPropertyInfo = "default-height"
type AttrOrigin WindowDefaultHeightPropertyInfo = Window
attrGet = getWindowDefaultHeight
attrSet = setWindowDefaultHeight
attrTransfer _ v = do
return v
attrConstruct = constructWindowDefaultHeight
attrClear = undefined
#endif
getWindowDefaultWidth :: (MonadIO m, IsWindow o) => o -> m Int32
getWindowDefaultWidth :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Int32
getWindowDefaultWidth o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"default-width"
setWindowDefaultWidth :: (MonadIO m, IsWindow o) => o -> Int32 -> m ()
setWindowDefaultWidth :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Int32 -> m ()
setWindowDefaultWidth o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"default-width" Int32
val
constructWindowDefaultWidth :: (IsWindow o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructWindowDefaultWidth :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructWindowDefaultWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"default-width" Int32
val
#if defined(ENABLE_OVERLOADING)
data WindowDefaultWidthPropertyInfo
instance AttrInfo WindowDefaultWidthPropertyInfo where
type AttrAllowedOps WindowDefaultWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowDefaultWidthPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowDefaultWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint WindowDefaultWidthPropertyInfo = (~) Int32
type AttrTransferType WindowDefaultWidthPropertyInfo = Int32
type AttrGetType WindowDefaultWidthPropertyInfo = Int32
type AttrLabel WindowDefaultWidthPropertyInfo = "default-width"
type AttrOrigin WindowDefaultWidthPropertyInfo = Window
attrGet = getWindowDefaultWidth
attrSet = setWindowDefaultWidth
attrTransfer _ v = do
return v
attrConstruct = constructWindowDefaultWidth
attrClear = undefined
#endif
getWindowDeletable :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowDeletable :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowDeletable o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"deletable"
setWindowDeletable :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowDeletable :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Bool -> m ()
setWindowDeletable o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"deletable" Bool
val
constructWindowDeletable :: (IsWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowDeletable :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowDeletable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"deletable" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowDeletablePropertyInfo
instance AttrInfo WindowDeletablePropertyInfo where
type AttrAllowedOps WindowDeletablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowDeletablePropertyInfo = IsWindow
type AttrSetTypeConstraint WindowDeletablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowDeletablePropertyInfo = (~) Bool
type AttrTransferType WindowDeletablePropertyInfo = Bool
type AttrGetType WindowDeletablePropertyInfo = Bool
type AttrLabel WindowDeletablePropertyInfo = "deletable"
type AttrOrigin WindowDeletablePropertyInfo = Window
attrGet = getWindowDeletable
attrSet = setWindowDeletable
attrTransfer _ v = do
return v
attrConstruct = constructWindowDeletable
attrClear = undefined
#endif
getWindowDestroyWithParent :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowDestroyWithParent :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowDestroyWithParent o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"destroy-with-parent"
setWindowDestroyWithParent :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowDestroyWithParent :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Bool -> m ()
setWindowDestroyWithParent o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"destroy-with-parent" Bool
val
constructWindowDestroyWithParent :: (IsWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowDestroyWithParent :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowDestroyWithParent Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"destroy-with-parent" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowDestroyWithParentPropertyInfo
instance AttrInfo WindowDestroyWithParentPropertyInfo where
type AttrAllowedOps WindowDestroyWithParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowDestroyWithParentPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowDestroyWithParentPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowDestroyWithParentPropertyInfo = (~) Bool
type AttrTransferType WindowDestroyWithParentPropertyInfo = Bool
type AttrGetType WindowDestroyWithParentPropertyInfo = Bool
type AttrLabel WindowDestroyWithParentPropertyInfo = "destroy-with-parent"
type AttrOrigin WindowDestroyWithParentPropertyInfo = Window
attrGet = getWindowDestroyWithParent
attrSet = setWindowDestroyWithParent
attrTransfer _ v = do
return v
attrConstruct = constructWindowDestroyWithParent
attrClear = undefined
#endif
getWindowFocusOnMap :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowFocusOnMap :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowFocusOnMap o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"focus-on-map"
setWindowFocusOnMap :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowFocusOnMap :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Bool -> m ()
setWindowFocusOnMap o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"focus-on-map" Bool
val
constructWindowFocusOnMap :: (IsWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowFocusOnMap :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowFocusOnMap Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"focus-on-map" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowFocusOnMapPropertyInfo
instance AttrInfo WindowFocusOnMapPropertyInfo where
type AttrAllowedOps WindowFocusOnMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowFocusOnMapPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowFocusOnMapPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowFocusOnMapPropertyInfo = (~) Bool
type AttrTransferType WindowFocusOnMapPropertyInfo = Bool
type AttrGetType WindowFocusOnMapPropertyInfo = Bool
type AttrLabel WindowFocusOnMapPropertyInfo = "focus-on-map"
type AttrOrigin WindowFocusOnMapPropertyInfo = Window
attrGet = getWindowFocusOnMap
attrSet = setWindowFocusOnMap
attrTransfer _ v = do
return v
attrConstruct = constructWindowFocusOnMap
attrClear = undefined
#endif
getWindowFocusVisible :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowFocusVisible :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowFocusVisible o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"focus-visible"
setWindowFocusVisible :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowFocusVisible :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Bool -> m ()
setWindowFocusVisible o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"focus-visible" Bool
val
constructWindowFocusVisible :: (IsWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowFocusVisible :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowFocusVisible Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"focus-visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowFocusVisiblePropertyInfo
instance AttrInfo WindowFocusVisiblePropertyInfo where
type AttrAllowedOps WindowFocusVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowFocusVisiblePropertyInfo = IsWindow
type AttrSetTypeConstraint WindowFocusVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowFocusVisiblePropertyInfo = (~) Bool
type AttrTransferType WindowFocusVisiblePropertyInfo = Bool
type AttrGetType WindowFocusVisiblePropertyInfo = Bool
type AttrLabel WindowFocusVisiblePropertyInfo = "focus-visible"
type AttrOrigin WindowFocusVisiblePropertyInfo = Window
attrGet = getWindowFocusVisible
attrSet = setWindowFocusVisible
attrTransfer _ v = do
return v
attrConstruct = constructWindowFocusVisible
attrClear = undefined
#endif
getWindowGravity :: (MonadIO m, IsWindow o) => o -> m Gdk.Enums.Gravity
getWindowGravity :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Gravity
getWindowGravity o
obj = IO Gravity -> m Gravity
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Gravity -> m Gravity) -> IO Gravity -> m Gravity
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Gravity
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"gravity"
setWindowGravity :: (MonadIO m, IsWindow o) => o -> Gdk.Enums.Gravity -> m ()
setWindowGravity :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Gravity -> m ()
setWindowGravity o
obj Gravity
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Gravity -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"gravity" Gravity
val
constructWindowGravity :: (IsWindow o, MIO.MonadIO m) => Gdk.Enums.Gravity -> m (GValueConstruct o)
constructWindowGravity :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Gravity -> m (GValueConstruct o)
constructWindowGravity Gravity
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Gravity -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"gravity" Gravity
val
#if defined(ENABLE_OVERLOADING)
data WindowGravityPropertyInfo
instance AttrInfo WindowGravityPropertyInfo where
type AttrAllowedOps WindowGravityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowGravityPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowGravityPropertyInfo = (~) Gdk.Enums.Gravity
type AttrTransferTypeConstraint WindowGravityPropertyInfo = (~) Gdk.Enums.Gravity
type AttrTransferType WindowGravityPropertyInfo = Gdk.Enums.Gravity
type AttrGetType WindowGravityPropertyInfo = Gdk.Enums.Gravity
type AttrLabel WindowGravityPropertyInfo = "gravity"
type AttrOrigin WindowGravityPropertyInfo = Window
attrGet = getWindowGravity
attrSet = setWindowGravity
attrTransfer _ v = do
return v
attrConstruct = constructWindowGravity
attrClear = undefined
#endif
getWindowHasResizeGrip :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowHasResizeGrip :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowHasResizeGrip o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"has-resize-grip"
setWindowHasResizeGrip :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowHasResizeGrip :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Bool -> m ()
setWindowHasResizeGrip o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"has-resize-grip" Bool
val
constructWindowHasResizeGrip :: (IsWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowHasResizeGrip :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowHasResizeGrip Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"has-resize-grip" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowHasResizeGripPropertyInfo
instance AttrInfo WindowHasResizeGripPropertyInfo where
type AttrAllowedOps WindowHasResizeGripPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowHasResizeGripPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowHasResizeGripPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowHasResizeGripPropertyInfo = (~) Bool
type AttrTransferType WindowHasResizeGripPropertyInfo = Bool
type AttrGetType WindowHasResizeGripPropertyInfo = Bool
type AttrLabel WindowHasResizeGripPropertyInfo = "has-resize-grip"
type AttrOrigin WindowHasResizeGripPropertyInfo = Window
attrGet = getWindowHasResizeGrip
attrSet = setWindowHasResizeGrip
attrTransfer _ v = do
return v
attrConstruct = constructWindowHasResizeGrip
attrClear = undefined
#endif
getWindowHasToplevelFocus :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowHasToplevelFocus :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowHasToplevelFocus o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"has-toplevel-focus"
#if defined(ENABLE_OVERLOADING)
data WindowHasToplevelFocusPropertyInfo
instance AttrInfo WindowHasToplevelFocusPropertyInfo where
type AttrAllowedOps WindowHasToplevelFocusPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint WindowHasToplevelFocusPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowHasToplevelFocusPropertyInfo = (~) ()
type AttrTransferTypeConstraint WindowHasToplevelFocusPropertyInfo = (~) ()
type AttrTransferType WindowHasToplevelFocusPropertyInfo = ()
type AttrGetType WindowHasToplevelFocusPropertyInfo = Bool
type AttrLabel WindowHasToplevelFocusPropertyInfo = "has-toplevel-focus"
type AttrOrigin WindowHasToplevelFocusPropertyInfo = Window
attrGet = getWindowHasToplevelFocus
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWindowHideTitlebarWhenMaximized :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowHideTitlebarWhenMaximized :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowHideTitlebarWhenMaximized o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"hide-titlebar-when-maximized"
setWindowHideTitlebarWhenMaximized :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowHideTitlebarWhenMaximized :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Bool -> m ()
setWindowHideTitlebarWhenMaximized o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"hide-titlebar-when-maximized" Bool
val
constructWindowHideTitlebarWhenMaximized :: (IsWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowHideTitlebarWhenMaximized :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowHideTitlebarWhenMaximized Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"hide-titlebar-when-maximized" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowHideTitlebarWhenMaximizedPropertyInfo
instance AttrInfo WindowHideTitlebarWhenMaximizedPropertyInfo where
type AttrAllowedOps WindowHideTitlebarWhenMaximizedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowHideTitlebarWhenMaximizedPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowHideTitlebarWhenMaximizedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowHideTitlebarWhenMaximizedPropertyInfo = (~) Bool
type AttrTransferType WindowHideTitlebarWhenMaximizedPropertyInfo = Bool
type AttrGetType WindowHideTitlebarWhenMaximizedPropertyInfo = Bool
type AttrLabel WindowHideTitlebarWhenMaximizedPropertyInfo = "hide-titlebar-when-maximized"
type AttrOrigin WindowHideTitlebarWhenMaximizedPropertyInfo = Window
attrGet = getWindowHideTitlebarWhenMaximized
attrSet = setWindowHideTitlebarWhenMaximized
attrTransfer _ v = do
return v
attrConstruct = constructWindowHideTitlebarWhenMaximized
attrClear = undefined
#endif
getWindowIcon :: (MonadIO m, IsWindow o) => o -> m (Maybe GdkPixbuf.Pixbuf.Pixbuf)
getWindowIcon :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> m (Maybe Pixbuf)
getWindowIcon o
obj = IO (Maybe Pixbuf) -> m (Maybe Pixbuf)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Pixbuf) -> m (Maybe Pixbuf))
-> IO (Maybe Pixbuf) -> m (Maybe Pixbuf)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Pixbuf -> Pixbuf) -> IO (Maybe Pixbuf)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"icon" ManagedPtr Pixbuf -> Pixbuf
GdkPixbuf.Pixbuf.Pixbuf
setWindowIcon :: (MonadIO m, IsWindow o, GdkPixbuf.Pixbuf.IsPixbuf a) => o -> a -> m ()
setWindowIcon :: forall (m :: * -> *) o a.
(MonadIO m, IsWindow o, IsPixbuf a) =>
o -> a -> m ()
setWindowIcon o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"icon" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWindowIcon :: (IsWindow o, MIO.MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) => a -> m (GValueConstruct o)
constructWindowIcon :: forall o (m :: * -> *) a.
(IsWindow o, MonadIO m, IsPixbuf a) =>
a -> m (GValueConstruct o)
constructWindowIcon a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"icon" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearWindowIcon :: (MonadIO m, IsWindow o) => o -> m ()
clearWindowIcon :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m ()
clearWindowIcon o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Pixbuf -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"icon" (Maybe Pixbuf
forall a. Maybe a
Nothing :: Maybe GdkPixbuf.Pixbuf.Pixbuf)
#if defined(ENABLE_OVERLOADING)
data WindowIconPropertyInfo
instance AttrInfo WindowIconPropertyInfo where
type AttrAllowedOps WindowIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WindowIconPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowIconPropertyInfo = GdkPixbuf.Pixbuf.IsPixbuf
type AttrTransferTypeConstraint WindowIconPropertyInfo = GdkPixbuf.Pixbuf.IsPixbuf
type AttrTransferType WindowIconPropertyInfo = GdkPixbuf.Pixbuf.Pixbuf
type AttrGetType WindowIconPropertyInfo = (Maybe GdkPixbuf.Pixbuf.Pixbuf)
type AttrLabel WindowIconPropertyInfo = "icon"
type AttrOrigin WindowIconPropertyInfo = Window
attrGet = getWindowIcon
attrSet = setWindowIcon
attrTransfer _ v = do
unsafeCastTo GdkPixbuf.Pixbuf.Pixbuf v
attrConstruct = constructWindowIcon
attrClear = clearWindowIcon
#endif
getWindowIconName :: (MonadIO m, IsWindow o) => o -> m (Maybe T.Text)
getWindowIconName :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> m (Maybe Text)
getWindowIconName o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"icon-name"
setWindowIconName :: (MonadIO m, IsWindow o) => o -> T.Text -> m ()
setWindowIconName :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Text -> m ()
setWindowIconName o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"icon-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructWindowIconName :: (IsWindow o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWindowIconName :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWindowIconName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"icon-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearWindowIconName :: (MonadIO m, IsWindow o) => o -> m ()
clearWindowIconName :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m ()
clearWindowIconName o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"icon-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data WindowIconNamePropertyInfo
instance AttrInfo WindowIconNamePropertyInfo where
type AttrAllowedOps WindowIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WindowIconNamePropertyInfo = IsWindow
type AttrSetTypeConstraint WindowIconNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WindowIconNamePropertyInfo = (~) T.Text
type AttrTransferType WindowIconNamePropertyInfo = T.Text
type AttrGetType WindowIconNamePropertyInfo = (Maybe T.Text)
type AttrLabel WindowIconNamePropertyInfo = "icon-name"
type AttrOrigin WindowIconNamePropertyInfo = Window
attrGet = getWindowIconName
attrSet = setWindowIconName
attrTransfer _ v = do
return v
attrConstruct = constructWindowIconName
attrClear = clearWindowIconName
#endif
getWindowIsActive :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowIsActive :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowIsActive o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"is-active"
#if defined(ENABLE_OVERLOADING)
data WindowIsActivePropertyInfo
instance AttrInfo WindowIsActivePropertyInfo where
type AttrAllowedOps WindowIsActivePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint WindowIsActivePropertyInfo = IsWindow
type AttrSetTypeConstraint WindowIsActivePropertyInfo = (~) ()
type AttrTransferTypeConstraint WindowIsActivePropertyInfo = (~) ()
type AttrTransferType WindowIsActivePropertyInfo = ()
type AttrGetType WindowIsActivePropertyInfo = Bool
type AttrLabel WindowIsActivePropertyInfo = "is-active"
type AttrOrigin WindowIsActivePropertyInfo = Window
attrGet = getWindowIsActive
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWindowIsMaximized :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowIsMaximized :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowIsMaximized o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"is-maximized"
#if defined(ENABLE_OVERLOADING)
data WindowIsMaximizedPropertyInfo
instance AttrInfo WindowIsMaximizedPropertyInfo where
type AttrAllowedOps WindowIsMaximizedPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint WindowIsMaximizedPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowIsMaximizedPropertyInfo = (~) ()
type AttrTransferTypeConstraint WindowIsMaximizedPropertyInfo = (~) ()
type AttrTransferType WindowIsMaximizedPropertyInfo = ()
type AttrGetType WindowIsMaximizedPropertyInfo = Bool
type AttrLabel WindowIsMaximizedPropertyInfo = "is-maximized"
type AttrOrigin WindowIsMaximizedPropertyInfo = Window
attrGet = getWindowIsMaximized
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWindowMnemonicsVisible :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowMnemonicsVisible :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowMnemonicsVisible o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"mnemonics-visible"
setWindowMnemonicsVisible :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowMnemonicsVisible :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Bool -> m ()
setWindowMnemonicsVisible o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"mnemonics-visible" Bool
val
constructWindowMnemonicsVisible :: (IsWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowMnemonicsVisible :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowMnemonicsVisible Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"mnemonics-visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowMnemonicsVisiblePropertyInfo
instance AttrInfo WindowMnemonicsVisiblePropertyInfo where
type AttrAllowedOps WindowMnemonicsVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowMnemonicsVisiblePropertyInfo = IsWindow
type AttrSetTypeConstraint WindowMnemonicsVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowMnemonicsVisiblePropertyInfo = (~) Bool
type AttrTransferType WindowMnemonicsVisiblePropertyInfo = Bool
type AttrGetType WindowMnemonicsVisiblePropertyInfo = Bool
type AttrLabel WindowMnemonicsVisiblePropertyInfo = "mnemonics-visible"
type AttrOrigin WindowMnemonicsVisiblePropertyInfo = Window
attrGet = getWindowMnemonicsVisible
attrSet = setWindowMnemonicsVisible
attrTransfer _ v = do
return v
attrConstruct = constructWindowMnemonicsVisible
attrClear = undefined
#endif
getWindowModal :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowModal :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowModal o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"modal"
setWindowModal :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowModal :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Bool -> m ()
setWindowModal o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"modal" Bool
val
constructWindowModal :: (IsWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowModal :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowModal Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"modal" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowModalPropertyInfo
instance AttrInfo WindowModalPropertyInfo where
type AttrAllowedOps WindowModalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowModalPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowModalPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowModalPropertyInfo = (~) Bool
type AttrTransferType WindowModalPropertyInfo = Bool
type AttrGetType WindowModalPropertyInfo = Bool
type AttrLabel WindowModalPropertyInfo = "modal"
type AttrOrigin WindowModalPropertyInfo = Window
attrGet = getWindowModal
attrSet = setWindowModal
attrTransfer _ v = do
return v
attrConstruct = constructWindowModal
attrClear = undefined
#endif
getWindowResizable :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowResizable :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowResizable o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"resizable"
setWindowResizable :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowResizable :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Bool -> m ()
setWindowResizable o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"resizable" Bool
val
constructWindowResizable :: (IsWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowResizable :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowResizable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"resizable" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowResizablePropertyInfo
instance AttrInfo WindowResizablePropertyInfo where
type AttrAllowedOps WindowResizablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowResizablePropertyInfo = IsWindow
type AttrSetTypeConstraint WindowResizablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowResizablePropertyInfo = (~) Bool
type AttrTransferType WindowResizablePropertyInfo = Bool
type AttrGetType WindowResizablePropertyInfo = Bool
type AttrLabel WindowResizablePropertyInfo = "resizable"
type AttrOrigin WindowResizablePropertyInfo = Window
attrGet = getWindowResizable
attrSet = setWindowResizable
attrTransfer _ v = do
return v
attrConstruct = constructWindowResizable
attrClear = undefined
#endif
getWindowResizeGripVisible :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowResizeGripVisible :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowResizeGripVisible o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"resize-grip-visible"
#if defined(ENABLE_OVERLOADING)
data WindowResizeGripVisiblePropertyInfo
instance AttrInfo WindowResizeGripVisiblePropertyInfo where
type AttrAllowedOps WindowResizeGripVisiblePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint WindowResizeGripVisiblePropertyInfo = IsWindow
type AttrSetTypeConstraint WindowResizeGripVisiblePropertyInfo = (~) ()
type AttrTransferTypeConstraint WindowResizeGripVisiblePropertyInfo = (~) ()
type AttrTransferType WindowResizeGripVisiblePropertyInfo = ()
type AttrGetType WindowResizeGripVisiblePropertyInfo = Bool
type AttrLabel WindowResizeGripVisiblePropertyInfo = "resize-grip-visible"
type AttrOrigin WindowResizeGripVisiblePropertyInfo = Window
attrGet = getWindowResizeGripVisible
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getWindowRole :: (MonadIO m, IsWindow o) => o -> m (Maybe T.Text)
getWindowRole :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> m (Maybe Text)
getWindowRole o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"role"
setWindowRole :: (MonadIO m, IsWindow o) => o -> T.Text -> m ()
setWindowRole :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Text -> m ()
setWindowRole o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"role" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructWindowRole :: (IsWindow o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWindowRole :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWindowRole Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"role" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data WindowRolePropertyInfo
instance AttrInfo WindowRolePropertyInfo where
type AttrAllowedOps WindowRolePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowRolePropertyInfo = IsWindow
type AttrSetTypeConstraint WindowRolePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WindowRolePropertyInfo = (~) T.Text
type AttrTransferType WindowRolePropertyInfo = T.Text
type AttrGetType WindowRolePropertyInfo = (Maybe T.Text)
type AttrLabel WindowRolePropertyInfo = "role"
type AttrOrigin WindowRolePropertyInfo = Window
attrGet = getWindowRole
attrSet = setWindowRole
attrTransfer _ v = do
return v
attrConstruct = constructWindowRole
attrClear = undefined
#endif
getWindowScreen :: (MonadIO m, IsWindow o) => o -> m Gdk.Screen.Screen
getWindowScreen :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Screen
getWindowScreen o
obj = IO Screen -> m Screen
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Screen -> m Screen) -> IO Screen -> m Screen
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Screen) -> IO Screen
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getWindowScreen" (IO (Maybe Screen) -> IO Screen) -> IO (Maybe Screen) -> IO Screen
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Screen -> Screen) -> IO (Maybe Screen)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"screen" ManagedPtr Screen -> Screen
Gdk.Screen.Screen
setWindowScreen :: (MonadIO m, IsWindow o, Gdk.Screen.IsScreen a) => o -> a -> m ()
setWindowScreen :: forall (m :: * -> *) o a.
(MonadIO m, IsWindow o, IsScreen a) =>
o -> a -> m ()
setWindowScreen o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"screen" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWindowScreen :: (IsWindow o, MIO.MonadIO m, Gdk.Screen.IsScreen a) => a -> m (GValueConstruct o)
constructWindowScreen :: forall o (m :: * -> *) a.
(IsWindow o, MonadIO m, IsScreen a) =>
a -> m (GValueConstruct o)
constructWindowScreen a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"screen" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data WindowScreenPropertyInfo
instance AttrInfo WindowScreenPropertyInfo where
type AttrAllowedOps WindowScreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowScreenPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowScreenPropertyInfo = Gdk.Screen.IsScreen
type AttrTransferTypeConstraint WindowScreenPropertyInfo = Gdk.Screen.IsScreen
type AttrTransferType WindowScreenPropertyInfo = Gdk.Screen.Screen
type AttrGetType WindowScreenPropertyInfo = Gdk.Screen.Screen
type AttrLabel WindowScreenPropertyInfo = "screen"
type AttrOrigin WindowScreenPropertyInfo = Window
attrGet = getWindowScreen
attrSet = setWindowScreen
attrTransfer _ v = do
unsafeCastTo Gdk.Screen.Screen v
attrConstruct = constructWindowScreen
attrClear = undefined
#endif
getWindowSkipPagerHint :: (MonadIO m, IsWindow o) => o -> m Bool
o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"skip-pager-hint"
setWindowSkipPagerHint :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"skip-pager-hint" Bool
val
constructWindowSkipPagerHint :: (IsWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"skip-pager-hint" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowSkipPagerHintPropertyInfo
instance AttrInfo WindowSkipPagerHintPropertyInfo where
type AttrAllowedOps WindowSkipPagerHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowSkipPagerHintPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowSkipPagerHintPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowSkipPagerHintPropertyInfo = (~) Bool
type AttrTransferType WindowSkipPagerHintPropertyInfo = Bool
type AttrGetType WindowSkipPagerHintPropertyInfo = Bool
type AttrLabel WindowSkipPagerHintPropertyInfo = "skip-pager-hint"
type AttrOrigin WindowSkipPagerHintPropertyInfo = Window
attrGet = getWindowSkipPagerHint
attrSet = setWindowSkipPagerHint
attrTransfer _ v = do
return v
attrConstruct = constructWindowSkipPagerHint
attrClear = undefined
#endif
getWindowSkipTaskbarHint :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowSkipTaskbarHint :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowSkipTaskbarHint o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"skip-taskbar-hint"
setWindowSkipTaskbarHint :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowSkipTaskbarHint :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Bool -> m ()
setWindowSkipTaskbarHint o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"skip-taskbar-hint" Bool
val
constructWindowSkipTaskbarHint :: (IsWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowSkipTaskbarHint :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowSkipTaskbarHint Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"skip-taskbar-hint" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowSkipTaskbarHintPropertyInfo
instance AttrInfo WindowSkipTaskbarHintPropertyInfo where
type AttrAllowedOps WindowSkipTaskbarHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowSkipTaskbarHintPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowSkipTaskbarHintPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowSkipTaskbarHintPropertyInfo = (~) Bool
type AttrTransferType WindowSkipTaskbarHintPropertyInfo = Bool
type AttrGetType WindowSkipTaskbarHintPropertyInfo = Bool
type AttrLabel WindowSkipTaskbarHintPropertyInfo = "skip-taskbar-hint"
type AttrOrigin WindowSkipTaskbarHintPropertyInfo = Window
attrGet = getWindowSkipTaskbarHint
attrSet = setWindowSkipTaskbarHint
attrTransfer _ v = do
return v
attrConstruct = constructWindowSkipTaskbarHint
attrClear = undefined
#endif
setWindowStartupId :: (MonadIO m, IsWindow o) => o -> T.Text -> m ()
setWindowStartupId :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Text -> m ()
setWindowStartupId o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"startup-id" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructWindowStartupId :: (IsWindow o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWindowStartupId :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWindowStartupId Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"startup-id" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data WindowStartupIdPropertyInfo
instance AttrInfo WindowStartupIdPropertyInfo where
type AttrAllowedOps WindowStartupIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct]
type AttrBaseTypeConstraint WindowStartupIdPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowStartupIdPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WindowStartupIdPropertyInfo = (~) T.Text
type AttrTransferType WindowStartupIdPropertyInfo = T.Text
type AttrGetType WindowStartupIdPropertyInfo = ()
type AttrLabel WindowStartupIdPropertyInfo = "startup-id"
type AttrOrigin WindowStartupIdPropertyInfo = Window
attrGet = undefined
attrSet = setWindowStartupId
attrTransfer _ v = do
return v
attrConstruct = constructWindowStartupId
attrClear = undefined
#endif
getWindowTitle :: (MonadIO m, IsWindow o) => o -> m (Maybe T.Text)
getWindowTitle :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> m (Maybe Text)
getWindowTitle o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"title"
setWindowTitle :: (MonadIO m, IsWindow o) => o -> T.Text -> m ()
setWindowTitle :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Text -> m ()
setWindowTitle o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructWindowTitle :: (IsWindow o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructWindowTitle :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructWindowTitle Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data WindowTitlePropertyInfo
instance AttrInfo WindowTitlePropertyInfo where
type AttrAllowedOps WindowTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowTitlePropertyInfo = IsWindow
type AttrSetTypeConstraint WindowTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint WindowTitlePropertyInfo = (~) T.Text
type AttrTransferType WindowTitlePropertyInfo = T.Text
type AttrGetType WindowTitlePropertyInfo = (Maybe T.Text)
type AttrLabel WindowTitlePropertyInfo = "title"
type AttrOrigin WindowTitlePropertyInfo = Window
attrGet = getWindowTitle
attrSet = setWindowTitle
attrTransfer _ v = do
return v
attrConstruct = constructWindowTitle
attrClear = undefined
#endif
getWindowTransientFor :: (MonadIO m, IsWindow o) => o -> m (Maybe Window)
getWindowTransientFor :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> m (Maybe Window)
getWindowTransientFor o
obj = IO (Maybe Window) -> m (Maybe Window)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Window) -> m (Maybe Window))
-> IO (Maybe Window) -> m (Maybe Window)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Window -> Window) -> IO (Maybe Window)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"transient-for" ManagedPtr Window -> Window
Window
setWindowTransientFor :: (MonadIO m, IsWindow o, IsWindow a) => o -> a -> m ()
setWindowTransientFor :: forall (m :: * -> *) o a.
(MonadIO m, IsWindow o, IsWindow a) =>
o -> a -> m ()
setWindowTransientFor o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"transient-for" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWindowTransientFor :: (IsWindow o, MIO.MonadIO m, IsWindow a) => a -> m (GValueConstruct o)
constructWindowTransientFor :: forall o (m :: * -> *) a.
(IsWindow o, MonadIO m, IsWindow a) =>
a -> m (GValueConstruct o)
constructWindowTransientFor a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"transient-for" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearWindowTransientFor :: (MonadIO m, IsWindow o) => o -> m ()
clearWindowTransientFor :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m ()
clearWindowTransientFor o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Window -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"transient-for" (Maybe Window
forall a. Maybe a
Nothing :: Maybe Window)
#if defined(ENABLE_OVERLOADING)
data WindowTransientForPropertyInfo
instance AttrInfo WindowTransientForPropertyInfo where
type AttrAllowedOps WindowTransientForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WindowTransientForPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowTransientForPropertyInfo = IsWindow
type AttrTransferTypeConstraint WindowTransientForPropertyInfo = IsWindow
type AttrTransferType WindowTransientForPropertyInfo = Window
type AttrGetType WindowTransientForPropertyInfo = (Maybe Window)
type AttrLabel WindowTransientForPropertyInfo = "transient-for"
type AttrOrigin WindowTransientForPropertyInfo = Window
attrGet = getWindowTransientFor
attrSet = setWindowTransientFor
attrTransfer _ v = do
unsafeCastTo Window v
attrConstruct = constructWindowTransientFor
attrClear = clearWindowTransientFor
#endif
getWindowType :: (MonadIO m, IsWindow o) => o -> m Gtk.Enums.WindowType
getWindowType :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> m WindowType
getWindowType o
obj = IO WindowType -> m WindowType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO WindowType -> m WindowType) -> IO WindowType -> m WindowType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO WindowType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"type"
constructWindowType :: (IsWindow o, MIO.MonadIO m) => Gtk.Enums.WindowType -> m (GValueConstruct o)
constructWindowType :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
WindowType -> m (GValueConstruct o)
constructWindowType WindowType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> WindowType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"type" WindowType
val
#if defined(ENABLE_OVERLOADING)
data WindowTypePropertyInfo
instance AttrInfo WindowTypePropertyInfo where
type AttrAllowedOps WindowTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowTypePropertyInfo = IsWindow
type AttrSetTypeConstraint WindowTypePropertyInfo = (~) Gtk.Enums.WindowType
type AttrTransferTypeConstraint WindowTypePropertyInfo = (~) Gtk.Enums.WindowType
type AttrTransferType WindowTypePropertyInfo = Gtk.Enums.WindowType
type AttrGetType WindowTypePropertyInfo = Gtk.Enums.WindowType
type AttrLabel WindowTypePropertyInfo = "type"
type AttrOrigin WindowTypePropertyInfo = Window
attrGet = getWindowType
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWindowType
attrClear = undefined
#endif
getWindowTypeHint :: (MonadIO m, IsWindow o) => o -> m Gdk.Enums.WindowTypeHint
getWindowTypeHint :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> m WindowTypeHint
getWindowTypeHint o
obj = IO WindowTypeHint -> m WindowTypeHint
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO WindowTypeHint -> m WindowTypeHint)
-> IO WindowTypeHint -> m WindowTypeHint
forall a b. (a -> b) -> a -> b
$ o -> String -> IO WindowTypeHint
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"type-hint"
setWindowTypeHint :: (MonadIO m, IsWindow o) => o -> Gdk.Enums.WindowTypeHint -> m ()
setWindowTypeHint :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> WindowTypeHint -> m ()
setWindowTypeHint o
obj WindowTypeHint
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> WindowTypeHint -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"type-hint" WindowTypeHint
val
constructWindowTypeHint :: (IsWindow o, MIO.MonadIO m) => Gdk.Enums.WindowTypeHint -> m (GValueConstruct o)
constructWindowTypeHint :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
WindowTypeHint -> m (GValueConstruct o)
constructWindowTypeHint WindowTypeHint
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> WindowTypeHint -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"type-hint" WindowTypeHint
val
#if defined(ENABLE_OVERLOADING)
data WindowTypeHintPropertyInfo
instance AttrInfo WindowTypeHintPropertyInfo where
type AttrAllowedOps WindowTypeHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowTypeHintPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowTypeHintPropertyInfo = (~) Gdk.Enums.WindowTypeHint
type AttrTransferTypeConstraint WindowTypeHintPropertyInfo = (~) Gdk.Enums.WindowTypeHint
type AttrTransferType WindowTypeHintPropertyInfo = Gdk.Enums.WindowTypeHint
type AttrGetType WindowTypeHintPropertyInfo = Gdk.Enums.WindowTypeHint
type AttrLabel WindowTypeHintPropertyInfo = "type-hint"
type AttrOrigin WindowTypeHintPropertyInfo = Window
attrGet = getWindowTypeHint
attrSet = setWindowTypeHint
attrTransfer _ v = do
return v
attrConstruct = constructWindowTypeHint
attrClear = undefined
#endif
getWindowUrgencyHint :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowUrgencyHint :: forall (m :: * -> *) o. (MonadIO m, IsWindow o) => o -> m Bool
getWindowUrgencyHint o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"urgency-hint"
setWindowUrgencyHint :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowUrgencyHint :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> Bool -> m ()
setWindowUrgencyHint o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"urgency-hint" Bool
val
constructWindowUrgencyHint :: (IsWindow o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowUrgencyHint :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowUrgencyHint Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"urgency-hint" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowUrgencyHintPropertyInfo
instance AttrInfo WindowUrgencyHintPropertyInfo where
type AttrAllowedOps WindowUrgencyHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowUrgencyHintPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowUrgencyHintPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowUrgencyHintPropertyInfo = (~) Bool
type AttrTransferType WindowUrgencyHintPropertyInfo = Bool
type AttrGetType WindowUrgencyHintPropertyInfo = Bool
type AttrLabel WindowUrgencyHintPropertyInfo = "urgency-hint"
type AttrOrigin WindowUrgencyHintPropertyInfo = Window
attrGet = getWindowUrgencyHint
attrSet = setWindowUrgencyHint
attrTransfer _ v = do
return v
attrConstruct = constructWindowUrgencyHint
attrClear = undefined
#endif
getWindowWindowPosition :: (MonadIO m, IsWindow o) => o -> m Gtk.Enums.WindowPosition
getWindowWindowPosition :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> m WindowPosition
getWindowWindowPosition o
obj = IO WindowPosition -> m WindowPosition
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO WindowPosition -> m WindowPosition)
-> IO WindowPosition -> m WindowPosition
forall a b. (a -> b) -> a -> b
$ o -> String -> IO WindowPosition
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"window-position"
setWindowWindowPosition :: (MonadIO m, IsWindow o) => o -> Gtk.Enums.WindowPosition -> m ()
setWindowWindowPosition :: forall (m :: * -> *) o.
(MonadIO m, IsWindow o) =>
o -> WindowPosition -> m ()
setWindowWindowPosition o
obj WindowPosition
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> WindowPosition -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"window-position" WindowPosition
val
constructWindowWindowPosition :: (IsWindow o, MIO.MonadIO m) => Gtk.Enums.WindowPosition -> m (GValueConstruct o)
constructWindowWindowPosition :: forall o (m :: * -> *).
(IsWindow o, MonadIO m) =>
WindowPosition -> m (GValueConstruct o)
constructWindowWindowPosition WindowPosition
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> WindowPosition -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"window-position" WindowPosition
val
#if defined(ENABLE_OVERLOADING)
data WindowWindowPositionPropertyInfo
instance AttrInfo WindowWindowPositionPropertyInfo where
type AttrAllowedOps WindowWindowPositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowWindowPositionPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowWindowPositionPropertyInfo = (~) Gtk.Enums.WindowPosition
type AttrTransferTypeConstraint WindowWindowPositionPropertyInfo = (~) Gtk.Enums.WindowPosition
type AttrTransferType WindowWindowPositionPropertyInfo = Gtk.Enums.WindowPosition
type AttrGetType WindowWindowPositionPropertyInfo = Gtk.Enums.WindowPosition
type AttrLabel WindowWindowPositionPropertyInfo = "window-position"
type AttrOrigin WindowWindowPositionPropertyInfo = Window
attrGet = getWindowWindowPosition
attrSet = setWindowWindowPosition
attrTransfer _ v = do
return v
attrConstruct = constructWindowWindowPosition
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Window
type instance O.AttributeList Window = WindowAttributeList
type WindowAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
windowAcceptFocus :: AttrLabelProxy "acceptFocus"
windowAcceptFocus = AttrLabelProxy
windowApplication :: AttrLabelProxy "application"
windowApplication = AttrLabelProxy
windowAttachedTo :: AttrLabelProxy "attachedTo"
windowAttachedTo = AttrLabelProxy
windowDecorated :: AttrLabelProxy "decorated"
windowDecorated = AttrLabelProxy
windowDefaultHeight :: AttrLabelProxy "defaultHeight"
windowDefaultHeight = AttrLabelProxy
windowDefaultWidth :: AttrLabelProxy "defaultWidth"
windowDefaultWidth = AttrLabelProxy
windowDeletable :: AttrLabelProxy "deletable"
windowDeletable = AttrLabelProxy
windowDestroyWithParent :: AttrLabelProxy "destroyWithParent"
windowDestroyWithParent = AttrLabelProxy
windowFocusOnMap :: AttrLabelProxy "focusOnMap"
windowFocusOnMap = AttrLabelProxy
windowFocusVisible :: AttrLabelProxy "focusVisible"
windowFocusVisible = AttrLabelProxy
windowGravity :: AttrLabelProxy "gravity"
windowGravity = AttrLabelProxy
windowHasResizeGrip :: AttrLabelProxy "hasResizeGrip"
windowHasResizeGrip = AttrLabelProxy
windowHideTitlebarWhenMaximized :: AttrLabelProxy "hideTitlebarWhenMaximized"
windowHideTitlebarWhenMaximized = AttrLabelProxy
windowIcon :: AttrLabelProxy "icon"
windowIcon = AttrLabelProxy
windowIconName :: AttrLabelProxy "iconName"
windowIconName = AttrLabelProxy
windowMnemonicsVisible :: AttrLabelProxy "mnemonicsVisible"
windowMnemonicsVisible = AttrLabelProxy
windowModal :: AttrLabelProxy "modal"
windowModal = AttrLabelProxy
windowResizable :: AttrLabelProxy "resizable"
windowResizable = AttrLabelProxy
windowResizeGripVisible :: AttrLabelProxy "resizeGripVisible"
windowResizeGripVisible = AttrLabelProxy
windowRole :: AttrLabelProxy "role"
windowRole = AttrLabelProxy
windowScreen :: AttrLabelProxy "screen"
windowScreen = AttrLabelProxy
windowSkipPagerHint :: AttrLabelProxy "skipPagerHint"
windowSkipPagerHint = AttrLabelProxy
windowSkipTaskbarHint :: AttrLabelProxy "skipTaskbarHint"
windowSkipTaskbarHint = AttrLabelProxy
windowStartupId :: AttrLabelProxy "startupId"
windowStartupId = AttrLabelProxy
windowTitle :: AttrLabelProxy "title"
windowTitle = AttrLabelProxy
windowTransientFor :: AttrLabelProxy "transientFor"
windowTransientFor = AttrLabelProxy
windowType :: AttrLabelProxy "type"
windowType = AttrLabelProxy
windowTypeHint :: AttrLabelProxy "typeHint"
windowTypeHint = AttrLabelProxy
windowUrgencyHint :: AttrLabelProxy "urgencyHint"
windowUrgencyHint = AttrLabelProxy
windowWindowPosition :: AttrLabelProxy "windowPosition"
windowWindowPosition = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Window = WindowSignalList
type WindowSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_window_new" gtk_window_new ::
CUInt ->
IO (Ptr Window)
windowNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Gtk.Enums.WindowType
-> m Window
windowNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
WindowType -> m Window
windowNew WindowType
type_ = IO Window -> m Window
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Window -> m Window) -> IO Window -> m Window
forall a b. (a -> b) -> a -> b
$ do
let type_' :: CUInt
type_' = (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
type_
Ptr Window
result <- CUInt -> IO (Ptr Window)
gtk_window_new CUInt
type_'
Text -> Ptr Window -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowNew" Ptr Window
result
Window
result' <- ((ManagedPtr Window -> Window) -> Ptr Window -> IO Window
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Window) Ptr Window
result
Window -> IO Window
forall (m :: * -> *) a. Monad m => a -> m a
return Window
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_window_activate_default" gtk_window_activate_default ::
Ptr Window ->
IO CInt
windowActivateDefault ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowActivateDefault :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowActivateDefault a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_activate_default 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowActivateDefaultMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowActivateDefaultMethodInfo a signature where
overloadedMethod = windowActivateDefault
instance O.OverloadedMethodInfo WindowActivateDefaultMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowActivateDefault",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowActivateDefault"
}
#endif
foreign import ccall "gtk_window_activate_focus" gtk_window_activate_focus ::
Ptr Window ->
IO CInt
windowActivateFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowActivateFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowActivateFocus a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_activate_focus 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowActivateFocusMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowActivateFocusMethodInfo a signature where
overloadedMethod = windowActivateFocus
instance O.OverloadedMethodInfo WindowActivateFocusMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowActivateFocus",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowActivateFocus"
}
#endif
foreign import ccall "gtk_window_activate_key" gtk_window_activate_key ::
Ptr Window ->
Ptr Gdk.EventKey.EventKey ->
IO CInt
windowActivateKey ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Gdk.EventKey.EventKey
-> m Bool
windowActivateKey :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> EventKey -> m Bool
windowActivateKey a
window EventKey
event = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr EventKey
event' <- EventKey -> IO (Ptr EventKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr EventKey
event
CInt
result <- Ptr Window -> Ptr EventKey -> IO CInt
gtk_window_activate_key Ptr Window
window' Ptr EventKey
event'
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
EventKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr EventKey
event
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowActivateKeyMethodInfo
instance (signature ~ (Gdk.EventKey.EventKey -> m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowActivateKeyMethodInfo a signature where
overloadedMethod = windowActivateKey
instance O.OverloadedMethodInfo WindowActivateKeyMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowActivateKey",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowActivateKey"
}
#endif
foreign import ccall "gtk_window_add_accel_group" gtk_window_add_accel_group ::
Ptr Window ->
Ptr Gtk.AccelGroup.AccelGroup ->
IO ()
windowAddAccelGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gtk.AccelGroup.IsAccelGroup b) =>
a
-> b
-> m ()
windowAddAccelGroup :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsAccelGroup b) =>
a -> b -> m ()
windowAddAccelGroup a
window b
accelGroup = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr AccelGroup
accelGroup' <- b -> IO (Ptr AccelGroup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
accelGroup
Ptr Window -> Ptr AccelGroup -> IO ()
gtk_window_add_accel_group Ptr Window
window' Ptr AccelGroup
accelGroup'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
accelGroup
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowAddAccelGroupMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWindow a, Gtk.AccelGroup.IsAccelGroup b) => O.OverloadedMethod WindowAddAccelGroupMethodInfo a signature where
overloadedMethod = windowAddAccelGroup
instance O.OverloadedMethodInfo WindowAddAccelGroupMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowAddAccelGroup",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowAddAccelGroup"
}
#endif
foreign import ccall "gtk_window_add_mnemonic" gtk_window_add_mnemonic ::
Ptr Window ->
Word32 ->
Ptr Gtk.Widget.Widget ->
IO ()
windowAddMnemonic ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gtk.Widget.IsWidget b) =>
a
-> Word32
-> b
-> m ()
windowAddMnemonic :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsWidget b) =>
a -> Word32 -> b -> m ()
windowAddMnemonic a
window Word32
keyval b
target = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Widget
target' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
target
Ptr Window -> Word32 -> Ptr Widget -> IO ()
gtk_window_add_mnemonic Ptr Window
window' Word32
keyval Ptr Widget
target'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
target
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowAddMnemonicMethodInfo
instance (signature ~ (Word32 -> b -> m ()), MonadIO m, IsWindow a, Gtk.Widget.IsWidget b) => O.OverloadedMethod WindowAddMnemonicMethodInfo a signature where
overloadedMethod = windowAddMnemonic
instance O.OverloadedMethodInfo WindowAddMnemonicMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowAddMnemonic",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowAddMnemonic"
}
#endif
foreign import ccall "gtk_window_begin_move_drag" gtk_window_begin_move_drag ::
Ptr Window ->
Int32 ->
Int32 ->
Int32 ->
Word32 ->
IO ()
windowBeginMoveDrag ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Int32
-> Int32
-> Int32
-> Word32
-> m ()
windowBeginMoveDrag :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Int32 -> Int32 -> Int32 -> Word32 -> m ()
windowBeginMoveDrag a
window Int32
button Int32
rootX Int32
rootY Word32
timestamp = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> Int32 -> Int32 -> Int32 -> Word32 -> IO ()
gtk_window_begin_move_drag Ptr Window
window' Int32
button Int32
rootX Int32
rootY Word32
timestamp
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowBeginMoveDragMethodInfo
instance (signature ~ (Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowBeginMoveDragMethodInfo a signature where
overloadedMethod = windowBeginMoveDrag
instance O.OverloadedMethodInfo WindowBeginMoveDragMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowBeginMoveDrag",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowBeginMoveDrag"
}
#endif
foreign import ccall "gtk_window_begin_resize_drag" gtk_window_begin_resize_drag ::
Ptr Window ->
CUInt ->
Int32 ->
Int32 ->
Int32 ->
Word32 ->
IO ()
windowBeginResizeDrag ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Gdk.Enums.WindowEdge
-> Int32
-> Int32
-> Int32
-> Word32
-> m ()
windowBeginResizeDrag :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> WindowEdge -> Int32 -> Int32 -> Int32 -> Word32 -> m ()
windowBeginResizeDrag a
window WindowEdge
edge Int32
button Int32
rootX Int32
rootY Word32
timestamp = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let edge' :: CUInt
edge' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (WindowEdge -> Int) -> WindowEdge -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. WindowEdge -> Int
forall a. Enum a => a -> Int
fromEnum) WindowEdge
edge
Ptr Window -> CUInt -> Int32 -> Int32 -> Int32 -> Word32 -> IO ()
gtk_window_begin_resize_drag Ptr Window
window' CUInt
edge' Int32
button Int32
rootX Int32
rootY Word32
timestamp
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowBeginResizeDragMethodInfo
instance (signature ~ (Gdk.Enums.WindowEdge -> Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowBeginResizeDragMethodInfo a signature where
overloadedMethod = windowBeginResizeDrag
instance O.OverloadedMethodInfo WindowBeginResizeDragMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowBeginResizeDrag",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowBeginResizeDrag"
}
#endif
foreign import ccall "gtk_window_close" gtk_window_close ::
Ptr Window ->
IO ()
windowClose ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowClose :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowClose a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
gtk_window_close Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowCloseMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowCloseMethodInfo a signature where
overloadedMethod = windowClose
instance O.OverloadedMethodInfo WindowCloseMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowClose",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowClose"
}
#endif
foreign import ccall "gtk_window_deiconify" gtk_window_deiconify ::
Ptr Window ->
IO ()
windowDeiconify ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowDeiconify :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowDeiconify a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
gtk_window_deiconify Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowDeiconifyMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowDeiconifyMethodInfo a signature where
overloadedMethod = windowDeiconify
instance O.OverloadedMethodInfo WindowDeiconifyMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowDeiconify",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowDeiconify"
}
#endif
foreign import ccall "gtk_window_fullscreen" gtk_window_fullscreen ::
Ptr Window ->
IO ()
windowFullscreen ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowFullscreen :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowFullscreen a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
gtk_window_fullscreen Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowFullscreenMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowFullscreenMethodInfo a signature where
overloadedMethod = windowFullscreen
instance O.OverloadedMethodInfo WindowFullscreenMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowFullscreen",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowFullscreen"
}
#endif
foreign import ccall "gtk_window_fullscreen_on_monitor" gtk_window_fullscreen_on_monitor ::
Ptr Window ->
Ptr Gdk.Screen.Screen ->
Int32 ->
IO ()
windowFullscreenOnMonitor ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gdk.Screen.IsScreen b) =>
a
-> b
-> Int32
-> m ()
windowFullscreenOnMonitor :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsScreen b) =>
a -> b -> Int32 -> m ()
windowFullscreenOnMonitor a
window b
screen Int32
monitor = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Screen
screen' <- b -> IO (Ptr Screen)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
screen
Ptr Window -> Ptr Screen -> Int32 -> IO ()
gtk_window_fullscreen_on_monitor Ptr Window
window' Ptr Screen
screen' Int32
monitor
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
screen
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowFullscreenOnMonitorMethodInfo
instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsWindow a, Gdk.Screen.IsScreen b) => O.OverloadedMethod WindowFullscreenOnMonitorMethodInfo a signature where
overloadedMethod = windowFullscreenOnMonitor
instance O.OverloadedMethodInfo WindowFullscreenOnMonitorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowFullscreenOnMonitor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowFullscreenOnMonitor"
}
#endif
foreign import ccall "gtk_window_get_accept_focus" gtk_window_get_accept_focus ::
Ptr Window ->
IO CInt
windowGetAcceptFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowGetAcceptFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowGetAcceptFocus a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_get_accept_focus 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetAcceptFocusMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetAcceptFocusMethodInfo a signature where
overloadedMethod = windowGetAcceptFocus
instance O.OverloadedMethodInfo WindowGetAcceptFocusMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetAcceptFocus",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetAcceptFocus"
}
#endif
foreign import ccall "gtk_window_get_application" gtk_window_get_application ::
Ptr Window ->
IO (Ptr Gtk.Application.Application)
windowGetApplication ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m (Maybe Gtk.Application.Application)
windowGetApplication :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Maybe Application)
windowGetApplication a
window = IO (Maybe Application) -> m (Maybe Application)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Application) -> m (Maybe Application))
-> IO (Maybe Application) -> m (Maybe 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)
gtk_window_get_application Ptr Window
window'
Maybe Application
maybeResult <- Ptr Application
-> (Ptr Application -> IO Application) -> IO (Maybe Application)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Application
result ((Ptr Application -> IO Application) -> IO (Maybe Application))
-> (Ptr Application -> IO Application) -> IO (Maybe Application)
forall a b. (a -> b) -> a -> b
$ \Ptr Application
result' -> do
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
Gtk.Application.Application) Ptr Application
result'
Application -> IO Application
forall (m :: * -> *) a. Monad m => a -> m a
return Application
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe Application -> IO (Maybe Application)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Application
maybeResult
#if defined(ENABLE_OVERLOADING)
data WindowGetApplicationMethodInfo
instance (signature ~ (m (Maybe Gtk.Application.Application)), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetApplicationMethodInfo a signature where
overloadedMethod = windowGetApplication
instance O.OverloadedMethodInfo WindowGetApplicationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetApplication",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetApplication"
}
#endif
foreign import ccall "gtk_window_get_attached_to" gtk_window_get_attached_to ::
Ptr Window ->
IO (Ptr Gtk.Widget.Widget)
windowGetAttachedTo ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m (Maybe Gtk.Widget.Widget)
windowGetAttachedTo :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Maybe Widget)
windowGetAttachedTo a
window = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
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 Widget
result <- Ptr Window -> IO (Ptr Widget)
gtk_window_get_attached_to Ptr Window
window'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data WindowGetAttachedToMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetAttachedToMethodInfo a signature where
overloadedMethod = windowGetAttachedTo
instance O.OverloadedMethodInfo WindowGetAttachedToMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetAttachedTo",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetAttachedTo"
}
#endif
foreign import ccall "gtk_window_get_decorated" gtk_window_get_decorated ::
Ptr Window ->
IO CInt
windowGetDecorated ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowGetDecorated :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowGetDecorated a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_get_decorated 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetDecoratedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetDecoratedMethodInfo a signature where
overloadedMethod = windowGetDecorated
instance O.OverloadedMethodInfo WindowGetDecoratedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetDecorated",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetDecorated"
}
#endif
foreign import ccall "gtk_window_get_default_size" gtk_window_get_default_size ::
Ptr Window ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
windowGetDefaultSize ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ((Int32, Int32))
windowGetDefaultSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Int32, Int32)
windowGetDefaultSize a
window = IO (Int32, Int32) -> m (Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (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
width <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
height <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Window -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_window_get_default_size Ptr Window
window' Ptr Int32
width Ptr Int32
height
Int32
width' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
width
Int32
height' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
width
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
height
(Int32, Int32) -> IO (Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
width', Int32
height')
#if defined(ENABLE_OVERLOADING)
data WindowGetDefaultSizeMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetDefaultSizeMethodInfo a signature where
overloadedMethod = windowGetDefaultSize
instance O.OverloadedMethodInfo WindowGetDefaultSizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetDefaultSize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetDefaultSize"
}
#endif
foreign import ccall "gtk_window_get_default_widget" gtk_window_get_default_widget ::
Ptr Window ->
IO (Ptr Gtk.Widget.Widget)
windowGetDefaultWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m (Maybe Gtk.Widget.Widget)
windowGetDefaultWidget :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Maybe Widget)
windowGetDefaultWidget a
window = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
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 Widget
result <- Ptr Window -> IO (Ptr Widget)
gtk_window_get_default_widget Ptr Window
window'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data WindowGetDefaultWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetDefaultWidgetMethodInfo a signature where
overloadedMethod = windowGetDefaultWidget
instance O.OverloadedMethodInfo WindowGetDefaultWidgetMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetDefaultWidget",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetDefaultWidget"
}
#endif
foreign import ccall "gtk_window_get_deletable" gtk_window_get_deletable ::
Ptr Window ->
IO CInt
windowGetDeletable ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowGetDeletable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowGetDeletable a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_get_deletable 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetDeletableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetDeletableMethodInfo a signature where
overloadedMethod = windowGetDeletable
instance O.OverloadedMethodInfo WindowGetDeletableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetDeletable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetDeletable"
}
#endif
foreign import ccall "gtk_window_get_destroy_with_parent" gtk_window_get_destroy_with_parent ::
Ptr Window ->
IO CInt
windowGetDestroyWithParent ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowGetDestroyWithParent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowGetDestroyWithParent a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_get_destroy_with_parent 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetDestroyWithParentMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetDestroyWithParentMethodInfo a signature where
overloadedMethod = windowGetDestroyWithParent
instance O.OverloadedMethodInfo WindowGetDestroyWithParentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetDestroyWithParent",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetDestroyWithParent"
}
#endif
foreign import ccall "gtk_window_get_focus" gtk_window_get_focus ::
Ptr Window ->
IO (Ptr Gtk.Widget.Widget)
windowGetFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m (Maybe Gtk.Widget.Widget)
windowGetFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Maybe Widget)
windowGetFocus a
window = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
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 Widget
result <- Ptr Window -> IO (Ptr Widget)
gtk_window_get_focus Ptr Window
window'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data WindowGetFocusMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetFocusMethodInfo a signature where
overloadedMethod = windowGetFocus
instance O.OverloadedMethodInfo WindowGetFocusMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetFocus",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetFocus"
}
#endif
foreign import ccall "gtk_window_get_focus_on_map" gtk_window_get_focus_on_map ::
Ptr Window ->
IO CInt
windowGetFocusOnMap ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowGetFocusOnMap :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowGetFocusOnMap a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_get_focus_on_map 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetFocusOnMapMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetFocusOnMapMethodInfo a signature where
overloadedMethod = windowGetFocusOnMap
instance O.OverloadedMethodInfo WindowGetFocusOnMapMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetFocusOnMap",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetFocusOnMap"
}
#endif
foreign import ccall "gtk_window_get_focus_visible" gtk_window_get_focus_visible ::
Ptr Window ->
IO CInt
windowGetFocusVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowGetFocusVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowGetFocusVisible a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_get_focus_visible 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetFocusVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetFocusVisibleMethodInfo a signature where
overloadedMethod = windowGetFocusVisible
instance O.OverloadedMethodInfo WindowGetFocusVisibleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetFocusVisible",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetFocusVisible"
}
#endif
foreign import ccall "gtk_window_get_gravity" gtk_window_get_gravity ::
Ptr Window ->
IO CUInt
windowGetGravity ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Gdk.Enums.Gravity
windowGetGravity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Gravity
windowGetGravity a
window = IO Gravity -> m Gravity
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Gravity -> m Gravity) -> IO Gravity -> m Gravity
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
gtk_window_get_gravity Ptr Window
window'
let result' :: Gravity
result' = (Int -> Gravity
forall a. Enum a => Int -> a
toEnum (Int -> Gravity) -> (CUInt -> Int) -> CUInt -> Gravity
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
Gravity -> IO Gravity
forall (m :: * -> *) a. Monad m => a -> m a
return Gravity
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetGravityMethodInfo
instance (signature ~ (m Gdk.Enums.Gravity), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetGravityMethodInfo a signature where
overloadedMethod = windowGetGravity
instance O.OverloadedMethodInfo WindowGetGravityMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetGravity",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetGravity"
}
#endif
foreign import ccall "gtk_window_get_group" gtk_window_get_group ::
Ptr Window ->
IO (Ptr Gtk.WindowGroup.WindowGroup)
windowGetGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Gtk.WindowGroup.WindowGroup
windowGetGroup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m WindowGroup
windowGetGroup a
window = IO WindowGroup -> m WindowGroup
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WindowGroup -> m WindowGroup)
-> IO WindowGroup -> m WindowGroup
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 WindowGroup
result <- Ptr Window -> IO (Ptr WindowGroup)
gtk_window_get_group Ptr Window
window'
Text -> Ptr WindowGroup -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetGroup" Ptr WindowGroup
result
WindowGroup
result' <- ((ManagedPtr WindowGroup -> WindowGroup)
-> Ptr WindowGroup -> IO WindowGroup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr WindowGroup -> WindowGroup
Gtk.WindowGroup.WindowGroup) Ptr WindowGroup
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
WindowGroup -> IO WindowGroup
forall (m :: * -> *) a. Monad m => a -> m a
return WindowGroup
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetGroupMethodInfo
instance (signature ~ (m Gtk.WindowGroup.WindowGroup), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetGroupMethodInfo a signature where
overloadedMethod = windowGetGroup
instance O.OverloadedMethodInfo WindowGetGroupMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetGroup",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetGroup"
}
#endif
foreign import ccall "gtk_window_get_has_resize_grip" gtk_window_get_has_resize_grip ::
Ptr Window ->
IO CInt
{-# DEPRECATED windowGetHasResizeGrip ["(Since version 3.14)","Resize grips have been removed."] #-}
windowGetHasResizeGrip ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowGetHasResizeGrip :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowGetHasResizeGrip a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_get_has_resize_grip 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetHasResizeGripMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetHasResizeGripMethodInfo a signature where
overloadedMethod = windowGetHasResizeGrip
instance O.OverloadedMethodInfo WindowGetHasResizeGripMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetHasResizeGrip",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetHasResizeGrip"
}
#endif
foreign import ccall "gtk_window_get_hide_titlebar_when_maximized" gtk_window_get_hide_titlebar_when_maximized ::
Ptr Window ->
IO CInt
windowGetHideTitlebarWhenMaximized ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowGetHideTitlebarWhenMaximized :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowGetHideTitlebarWhenMaximized a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_get_hide_titlebar_when_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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetHideTitlebarWhenMaximizedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetHideTitlebarWhenMaximizedMethodInfo a signature where
overloadedMethod = windowGetHideTitlebarWhenMaximized
instance O.OverloadedMethodInfo WindowGetHideTitlebarWhenMaximizedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetHideTitlebarWhenMaximized",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetHideTitlebarWhenMaximized"
}
#endif
foreign import ccall "gtk_window_get_icon" gtk_window_get_icon ::
Ptr Window ->
IO (Ptr GdkPixbuf.Pixbuf.Pixbuf)
windowGetIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m (Maybe GdkPixbuf.Pixbuf.Pixbuf)
windowGetIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Maybe Pixbuf)
windowGetIcon a
window = IO (Maybe Pixbuf) -> m (Maybe Pixbuf)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Pixbuf) -> m (Maybe Pixbuf))
-> IO (Maybe Pixbuf) -> m (Maybe 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)
gtk_window_get_icon Ptr Window
window'
Maybe Pixbuf
maybeResult <- Ptr Pixbuf -> (Ptr Pixbuf -> IO Pixbuf) -> IO (Maybe Pixbuf)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Pixbuf
result ((Ptr Pixbuf -> IO Pixbuf) -> IO (Maybe Pixbuf))
-> (Ptr Pixbuf -> IO Pixbuf) -> IO (Maybe Pixbuf)
forall a b. (a -> b) -> a -> b
$ \Ptr Pixbuf
result' -> do
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'
Pixbuf -> IO Pixbuf
forall (m :: * -> *) a. Monad m => a -> m a
return Pixbuf
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe Pixbuf -> IO (Maybe Pixbuf)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Pixbuf
maybeResult
#if defined(ENABLE_OVERLOADING)
data WindowGetIconMethodInfo
instance (signature ~ (m (Maybe GdkPixbuf.Pixbuf.Pixbuf)), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetIconMethodInfo a signature where
overloadedMethod = windowGetIcon
instance O.OverloadedMethodInfo WindowGetIconMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetIcon",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetIcon"
}
#endif
foreign import ccall "gtk_window_get_icon_list" gtk_window_get_icon_list ::
Ptr Window ->
IO (Ptr (GList (Ptr GdkPixbuf.Pixbuf.Pixbuf)))
windowGetIconList ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m [GdkPixbuf.Pixbuf.Pixbuf]
windowGetIconList :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m [Pixbuf]
windowGetIconList a
window = IO [Pixbuf] -> m [Pixbuf]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Pixbuf] -> m [Pixbuf]) -> IO [Pixbuf] -> m [Pixbuf]
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr (GList (Ptr Pixbuf))
result <- Ptr Window -> IO (Ptr (GList (Ptr Pixbuf)))
gtk_window_get_icon_list Ptr Window
window'
[Ptr Pixbuf]
result' <- Ptr (GList (Ptr Pixbuf)) -> IO [Ptr Pixbuf]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr Pixbuf))
result
[Pixbuf]
result'' <- (Ptr Pixbuf -> IO Pixbuf) -> [Ptr Pixbuf] -> IO [Pixbuf]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((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'
Ptr (GList (Ptr Pixbuf)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr Pixbuf))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
[Pixbuf] -> IO [Pixbuf]
forall (m :: * -> *) a. Monad m => a -> m a
return [Pixbuf]
result''
#if defined(ENABLE_OVERLOADING)
data WindowGetIconListMethodInfo
instance (signature ~ (m [GdkPixbuf.Pixbuf.Pixbuf]), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetIconListMethodInfo a signature where
overloadedMethod = windowGetIconList
instance O.OverloadedMethodInfo WindowGetIconListMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetIconList",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetIconList"
}
#endif
foreign import ccall "gtk_window_get_icon_name" gtk_window_get_icon_name ::
Ptr Window ->
IO CString
windowGetIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m (Maybe T.Text)
windowGetIconName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Maybe Text)
windowGetIconName a
window = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe 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
gtk_window_get_icon_name Ptr Window
window'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WindowGetIconNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetIconNameMethodInfo a signature where
overloadedMethod = windowGetIconName
instance O.OverloadedMethodInfo WindowGetIconNameMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetIconName",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetIconName"
}
#endif
foreign import ccall "gtk_window_get_mnemonic_modifier" gtk_window_get_mnemonic_modifier ::
Ptr Window ->
IO CUInt
windowGetMnemonicModifier ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m [Gdk.Flags.ModifierType]
windowGetMnemonicModifier :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m [ModifierType]
windowGetMnemonicModifier a
window = IO [ModifierType] -> m [ModifierType]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [ModifierType] -> m [ModifierType])
-> IO [ModifierType] -> m [ModifierType]
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
gtk_window_get_mnemonic_modifier Ptr Window
window'
let result' :: [ModifierType]
result' = CUInt -> [ModifierType]
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
[ModifierType] -> IO [ModifierType]
forall (m :: * -> *) a. Monad m => a -> m a
return [ModifierType]
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetMnemonicModifierMethodInfo
instance (signature ~ (m [Gdk.Flags.ModifierType]), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetMnemonicModifierMethodInfo a signature where
overloadedMethod = windowGetMnemonicModifier
instance O.OverloadedMethodInfo WindowGetMnemonicModifierMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetMnemonicModifier",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetMnemonicModifier"
}
#endif
foreign import ccall "gtk_window_get_mnemonics_visible" gtk_window_get_mnemonics_visible ::
Ptr Window ->
IO CInt
windowGetMnemonicsVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowGetMnemonicsVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowGetMnemonicsVisible a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_get_mnemonics_visible 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetMnemonicsVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetMnemonicsVisibleMethodInfo a signature where
overloadedMethod = windowGetMnemonicsVisible
instance O.OverloadedMethodInfo WindowGetMnemonicsVisibleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetMnemonicsVisible",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetMnemonicsVisible"
}
#endif
foreign import ccall "gtk_window_get_modal" gtk_window_get_modal ::
Ptr Window ->
IO CInt
windowGetModal ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowGetModal :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowGetModal a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_get_modal 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetModalMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetModalMethodInfo a signature where
overloadedMethod = windowGetModal
instance O.OverloadedMethodInfo WindowGetModalMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetModal",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetModal"
}
#endif
foreign import ccall "gtk_window_get_opacity" gtk_window_get_opacity ::
Ptr Window ->
IO CDouble
{-# DEPRECATED windowGetOpacity ["(Since version 3.8)","Use gtk_widget_get_opacity instead."] #-}
windowGetOpacity ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Double
windowGetOpacity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Double
windowGetOpacity a
window = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
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
CDouble
result <- Ptr Window -> IO CDouble
gtk_window_get_opacity Ptr Window
window'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetOpacityMethodInfo
instance (signature ~ (m Double), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetOpacityMethodInfo a signature where
overloadedMethod = windowGetOpacity
instance O.OverloadedMethodInfo WindowGetOpacityMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetOpacity",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetOpacity"
}
#endif
foreign import ccall "gtk_window_get_position" gtk_window_get_position ::
Ptr Window ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
windowGetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ((Int32, Int32))
windowGetPosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Int32, Int32)
windowGetPosition a
window = IO (Int32, Int32) -> m (Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (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
rootX <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
rootY <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Window -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_window_get_position Ptr Window
window' Ptr Int32
rootX Ptr Int32
rootY
Int32
rootX' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
rootX
Int32
rootY' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
rootY
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
rootX
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
rootY
(Int32, Int32) -> IO (Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
rootX', Int32
rootY')
#if defined(ENABLE_OVERLOADING)
data WindowGetPositionMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetPositionMethodInfo a signature where
overloadedMethod = windowGetPosition
instance O.OverloadedMethodInfo WindowGetPositionMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetPosition",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetPosition"
}
#endif
foreign import ccall "gtk_window_get_resizable" gtk_window_get_resizable ::
Ptr Window ->
IO CInt
windowGetResizable ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowGetResizable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowGetResizable a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_get_resizable 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetResizableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetResizableMethodInfo a signature where
overloadedMethod = windowGetResizable
instance O.OverloadedMethodInfo WindowGetResizableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetResizable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetResizable"
}
#endif
foreign import ccall "gtk_window_get_resize_grip_area" gtk_window_get_resize_grip_area ::
Ptr Window ->
Ptr Gdk.Rectangle.Rectangle ->
IO CInt
{-# DEPRECATED windowGetResizeGripArea ["(Since version 3.14)","Resize grips have been removed."] #-}
windowGetResizeGripArea ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ((Bool, Gdk.Rectangle.Rectangle))
windowGetResizeGripArea :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Bool, Rectangle)
windowGetResizeGripArea a
window = IO (Bool, Rectangle) -> m (Bool, Rectangle)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Rectangle) -> m (Bool, Rectangle))
-> IO (Bool, Rectangle) -> m (Bool, Rectangle)
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 Rectangle
rect <- Int -> IO (Ptr Rectangle)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Gdk.Rectangle.Rectangle)
CInt
result <- Ptr Window -> Ptr Rectangle -> IO CInt
gtk_window_get_resize_grip_area Ptr Window
window' Ptr Rectangle
rect
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Rectangle
rect' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
rect
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
(Bool, Rectangle) -> IO (Bool, Rectangle)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Rectangle
rect')
#if defined(ENABLE_OVERLOADING)
data WindowGetResizeGripAreaMethodInfo
instance (signature ~ (m ((Bool, Gdk.Rectangle.Rectangle))), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetResizeGripAreaMethodInfo a signature where
overloadedMethod = windowGetResizeGripArea
instance O.OverloadedMethodInfo WindowGetResizeGripAreaMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetResizeGripArea",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetResizeGripArea"
}
#endif
foreign import ccall "gtk_window_get_role" gtk_window_get_role ::
Ptr Window ->
IO CString
windowGetRole ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m (Maybe T.Text)
windowGetRole :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Maybe Text)
windowGetRole a
window = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe 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
gtk_window_get_role Ptr Window
window'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WindowGetRoleMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetRoleMethodInfo a signature where
overloadedMethod = windowGetRole
instance O.OverloadedMethodInfo WindowGetRoleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetRole",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetRole"
}
#endif
foreign import ccall "gtk_window_get_screen" gtk_window_get_screen ::
Ptr Window ->
IO (Ptr Gdk.Screen.Screen)
windowGetScreen ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Gdk.Screen.Screen
windowGetScreen :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Screen
windowGetScreen a
window = IO Screen -> m Screen
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Screen -> m Screen) -> IO Screen -> m Screen
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Screen
result <- Ptr Window -> IO (Ptr Screen)
gtk_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
Gdk.Screen.Screen) Ptr Screen
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Screen -> IO Screen
forall (m :: * -> *) a. Monad m => a -> m a
return Screen
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetScreenMethodInfo
instance (signature ~ (m Gdk.Screen.Screen), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetScreenMethodInfo a signature where
overloadedMethod = windowGetScreen
instance O.OverloadedMethodInfo WindowGetScreenMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetScreen",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetScreen"
}
#endif
foreign import ccall "gtk_window_get_size" gtk_window_get_size ::
Ptr Window ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
windowGetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ((Int32, Int32))
windowGetSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Int32, Int32)
windowGetSize a
window = IO (Int32, Int32) -> m (Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (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
width <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
height <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Window -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_window_get_size Ptr Window
window' Ptr Int32
width Ptr Int32
height
Int32
width' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
width
Int32
height' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
width
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
height
(Int32, Int32) -> IO (Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
width', Int32
height')
#if defined(ENABLE_OVERLOADING)
data WindowGetSizeMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetSizeMethodInfo a signature where
overloadedMethod = windowGetSize
instance O.OverloadedMethodInfo WindowGetSizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetSize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetSize"
}
#endif
foreign import ccall "gtk_window_get_skip_pager_hint" ::
Ptr Window ->
IO CInt
windowGetSkipPagerHint ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_get_skip_pager_hint 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetSkipPagerHintMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetSkipPagerHintMethodInfo a signature where
overloadedMethod = windowGetSkipPagerHint
instance O.OverloadedMethodInfo WindowGetSkipPagerHintMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetSkipPagerHint",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetSkipPagerHint"
}
#endif
foreign import ccall "gtk_window_get_skip_taskbar_hint" gtk_window_get_skip_taskbar_hint ::
Ptr Window ->
IO CInt
windowGetSkipTaskbarHint ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowGetSkipTaskbarHint :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowGetSkipTaskbarHint a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_get_skip_taskbar_hint 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetSkipTaskbarHintMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetSkipTaskbarHintMethodInfo a signature where
overloadedMethod = windowGetSkipTaskbarHint
instance O.OverloadedMethodInfo WindowGetSkipTaskbarHintMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetSkipTaskbarHint",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetSkipTaskbarHint"
}
#endif
foreign import ccall "gtk_window_get_title" gtk_window_get_title ::
Ptr Window ->
IO CString
windowGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m (Maybe T.Text)
windowGetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Maybe Text)
windowGetTitle a
window = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe 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
gtk_window_get_title Ptr Window
window'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data WindowGetTitleMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetTitleMethodInfo a signature where
overloadedMethod = windowGetTitle
instance O.OverloadedMethodInfo WindowGetTitleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetTitle",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetTitle"
}
#endif
foreign import ccall "gtk_window_get_titlebar" gtk_window_get_titlebar ::
Ptr Window ->
IO (Ptr Gtk.Widget.Widget)
windowGetTitlebar ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m (Maybe Gtk.Widget.Widget)
windowGetTitlebar :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Maybe Widget)
windowGetTitlebar a
window = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
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 Widget
result <- Ptr Window -> IO (Ptr Widget)
gtk_window_get_titlebar Ptr Window
window'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data WindowGetTitlebarMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetTitlebarMethodInfo a signature where
overloadedMethod = windowGetTitlebar
instance O.OverloadedMethodInfo WindowGetTitlebarMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetTitlebar",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetTitlebar"
}
#endif
foreign import ccall "gtk_window_get_transient_for" gtk_window_get_transient_for ::
Ptr Window ->
IO (Ptr Window)
windowGetTransientFor ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m (Maybe Window)
windowGetTransientFor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Maybe Window)
windowGetTransientFor a
window = IO (Maybe Window) -> m (Maybe Window)
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
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)
gtk_window_get_transient_for Ptr Window
window'
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 (m :: * -> *) a. Monad m => a -> m a
return Window
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe Window -> IO (Maybe Window)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Window
maybeResult
#if defined(ENABLE_OVERLOADING)
data WindowGetTransientForMethodInfo
instance (signature ~ (m (Maybe Window)), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetTransientForMethodInfo a signature where
overloadedMethod = windowGetTransientFor
instance O.OverloadedMethodInfo WindowGetTransientForMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetTransientFor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetTransientFor"
}
#endif
foreign import ccall "gtk_window_get_type_hint" gtk_window_get_type_hint ::
Ptr Window ->
IO CUInt
windowGetTypeHint ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Gdk.Enums.WindowTypeHint
windowGetTypeHint :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m WindowTypeHint
windowGetTypeHint a
window = IO WindowTypeHint -> m WindowTypeHint
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WindowTypeHint -> m WindowTypeHint)
-> IO WindowTypeHint -> m WindowTypeHint
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
gtk_window_get_type_hint Ptr Window
window'
let result' :: WindowTypeHint
result' = (Int -> WindowTypeHint
forall a. Enum a => Int -> a
toEnum (Int -> WindowTypeHint)
-> (CUInt -> Int) -> CUInt -> WindowTypeHint
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
WindowTypeHint -> IO WindowTypeHint
forall (m :: * -> *) a. Monad m => a -> m a
return WindowTypeHint
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetTypeHintMethodInfo
instance (signature ~ (m Gdk.Enums.WindowTypeHint), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetTypeHintMethodInfo a signature where
overloadedMethod = windowGetTypeHint
instance O.OverloadedMethodInfo WindowGetTypeHintMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetTypeHint",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetTypeHint"
}
#endif
foreign import ccall "gtk_window_get_urgency_hint" gtk_window_get_urgency_hint ::
Ptr Window ->
IO CInt
windowGetUrgencyHint ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowGetUrgencyHint :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowGetUrgencyHint a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_get_urgency_hint 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetUrgencyHintMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetUrgencyHintMethodInfo a signature where
overloadedMethod = windowGetUrgencyHint
instance O.OverloadedMethodInfo WindowGetUrgencyHintMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetUrgencyHint",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetUrgencyHint"
}
#endif
foreign import ccall "gtk_window_get_window_type" gtk_window_get_window_type ::
Ptr Window ->
IO CUInt
windowGetWindowType ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Gtk.Enums.WindowType
windowGetWindowType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m WindowType
windowGetWindowType a
window = IO WindowType -> m WindowType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WindowType -> m WindowType) -> IO WindowType -> m WindowType
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CUInt
result <- Ptr Window -> IO CUInt
gtk_window_get_window_type Ptr Window
window'
let result' :: WindowType
result' = (Int -> WindowType
forall a. Enum a => Int -> a
toEnum (Int -> WindowType) -> (CUInt -> Int) -> CUInt -> WindowType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
WindowType -> IO WindowType
forall (m :: * -> *) a. Monad m => a -> m a
return WindowType
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetWindowTypeMethodInfo
instance (signature ~ (m Gtk.Enums.WindowType), MonadIO m, IsWindow a) => O.OverloadedMethod WindowGetWindowTypeMethodInfo a signature where
overloadedMethod = windowGetWindowType
instance O.OverloadedMethodInfo WindowGetWindowTypeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowGetWindowType",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowGetWindowType"
}
#endif
foreign import ccall "gtk_window_has_group" gtk_window_has_group ::
Ptr Window ->
IO CInt
windowHasGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowHasGroup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowHasGroup a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_has_group 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowHasGroupMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowHasGroupMethodInfo a signature where
overloadedMethod = windowHasGroup
instance O.OverloadedMethodInfo WindowHasGroupMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowHasGroup",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowHasGroup"
}
#endif
foreign import ccall "gtk_window_has_toplevel_focus" gtk_window_has_toplevel_focus ::
Ptr Window ->
IO CInt
windowHasToplevelFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowHasToplevelFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowHasToplevelFocus a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_has_toplevel_focus 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowHasToplevelFocusMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowHasToplevelFocusMethodInfo a signature where
overloadedMethod = windowHasToplevelFocus
instance O.OverloadedMethodInfo WindowHasToplevelFocusMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowHasToplevelFocus",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowHasToplevelFocus"
}
#endif
foreign import ccall "gtk_window_iconify" gtk_window_iconify ::
Ptr Window ->
IO ()
windowIconify ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowIconify :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowIconify a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
gtk_window_iconify Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowIconifyMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowIconifyMethodInfo a signature where
overloadedMethod = windowIconify
instance O.OverloadedMethodInfo WindowIconifyMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowIconify",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowIconify"
}
#endif
foreign import ccall "gtk_window_is_active" gtk_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 (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
gtk_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
WindowEnableDebuggingCallback
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowIsActive",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowIsActive"
}
#endif
foreign import ccall "gtk_window_is_maximized" gtk_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 (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
gtk_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
WindowEnableDebuggingCallback
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowIsMaximized",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowIsMaximized"
}
#endif
foreign import ccall "gtk_window_maximize" gtk_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 (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 ()
gtk_window_maximize Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowMaximizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowMaximizeMethodInfo a signature where
overloadedMethod = windowMaximize
instance O.OverloadedMethodInfo WindowMaximizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowMaximize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowMaximize"
}
#endif
foreign import ccall "gtk_window_mnemonic_activate" gtk_window_mnemonic_activate ::
Ptr Window ->
Word32 ->
CUInt ->
IO CInt
windowMnemonicActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Word32
-> [Gdk.Flags.ModifierType]
-> m Bool
windowMnemonicActivate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Word32 -> [ModifierType] -> m Bool
windowMnemonicActivate a
window Word32
keyval [ModifierType]
modifier = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let modifier' :: CUInt
modifier' = [ModifierType] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ModifierType]
modifier
CInt
result <- Ptr Window -> Word32 -> CUInt -> IO CInt
gtk_window_mnemonic_activate Ptr Window
window' Word32
keyval CUInt
modifier'
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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowMnemonicActivateMethodInfo
instance (signature ~ (Word32 -> [Gdk.Flags.ModifierType] -> m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowMnemonicActivateMethodInfo a signature where
overloadedMethod = windowMnemonicActivate
instance O.OverloadedMethodInfo WindowMnemonicActivateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowMnemonicActivate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowMnemonicActivate"
}
#endif
foreign import ccall "gtk_window_move" gtk_window_move ::
Ptr Window ->
Int32 ->
Int32 ->
IO ()
windowMove ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Int32
-> Int32
-> m ()
windowMove :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Int32 -> Int32 -> m ()
windowMove a
window Int32
x Int32
y = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> Int32 -> Int32 -> IO ()
gtk_window_move Ptr Window
window' Int32
x Int32
y
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowMoveMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowMoveMethodInfo a signature where
overloadedMethod = windowMove
instance O.OverloadedMethodInfo WindowMoveMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowMove",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowMove"
}
#endif
foreign import ccall "gtk_window_parse_geometry" gtk_window_parse_geometry ::
Ptr Window ->
CString ->
IO CInt
{-# DEPRECATED windowParseGeometry ["(Since version 3.20)","Geometry handling in GTK is deprecated."] #-}
windowParseGeometry ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> T.Text
-> m Bool
windowParseGeometry :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Text -> m Bool
windowParseGeometry a
window Text
geometry = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
geometry' <- Text -> IO CString
textToCString Text
geometry
CInt
result <- Ptr Window -> CString -> IO CInt
gtk_window_parse_geometry Ptr Window
window' CString
geometry'
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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
geometry'
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowParseGeometryMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowParseGeometryMethodInfo a signature where
overloadedMethod = windowParseGeometry
instance O.OverloadedMethodInfo WindowParseGeometryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowParseGeometry",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowParseGeometry"
}
#endif
foreign import ccall "gtk_window_present" gtk_window_present ::
Ptr Window ->
IO ()
windowPresent ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowPresent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowPresent a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
gtk_window_present Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowPresentMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowPresentMethodInfo a signature where
overloadedMethod = windowPresent
instance O.OverloadedMethodInfo WindowPresentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowPresent",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowPresent"
}
#endif
foreign import ccall "gtk_window_present_with_time" gtk_window_present_with_time ::
Ptr Window ->
Word32 ->
IO ()
windowPresentWithTime ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Word32
-> m ()
windowPresentWithTime :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Word32 -> m ()
windowPresentWithTime a
window Word32
timestamp = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> Word32 -> IO ()
gtk_window_present_with_time Ptr Window
window' Word32
timestamp
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowPresentWithTimeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowPresentWithTimeMethodInfo a signature where
overloadedMethod = windowPresentWithTime
instance O.OverloadedMethodInfo WindowPresentWithTimeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowPresentWithTime",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowPresentWithTime"
}
#endif
foreign import ccall "gtk_window_propagate_key_event" gtk_window_propagate_key_event ::
Ptr Window ->
Ptr Gdk.EventKey.EventKey ->
IO CInt
windowPropagateKeyEvent ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Gdk.EventKey.EventKey
-> m Bool
windowPropagateKeyEvent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> EventKey -> m Bool
windowPropagateKeyEvent a
window EventKey
event = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr EventKey
event' <- EventKey -> IO (Ptr EventKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr EventKey
event
CInt
result <- Ptr Window -> Ptr EventKey -> IO CInt
gtk_window_propagate_key_event Ptr Window
window' Ptr EventKey
event'
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
EventKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr EventKey
event
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowPropagateKeyEventMethodInfo
instance (signature ~ (Gdk.EventKey.EventKey -> m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowPropagateKeyEventMethodInfo a signature where
overloadedMethod = windowPropagateKeyEvent
instance O.OverloadedMethodInfo WindowPropagateKeyEventMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowPropagateKeyEvent",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowPropagateKeyEvent"
}
#endif
foreign import ccall "gtk_window_remove_accel_group" gtk_window_remove_accel_group ::
Ptr Window ->
Ptr Gtk.AccelGroup.AccelGroup ->
IO ()
windowRemoveAccelGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gtk.AccelGroup.IsAccelGroup b) =>
a
-> b
-> m ()
windowRemoveAccelGroup :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsAccelGroup b) =>
a -> b -> m ()
windowRemoveAccelGroup a
window b
accelGroup = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr AccelGroup
accelGroup' <- b -> IO (Ptr AccelGroup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
accelGroup
Ptr Window -> Ptr AccelGroup -> IO ()
gtk_window_remove_accel_group Ptr Window
window' Ptr AccelGroup
accelGroup'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
accelGroup
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowRemoveAccelGroupMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWindow a, Gtk.AccelGroup.IsAccelGroup b) => O.OverloadedMethod WindowRemoveAccelGroupMethodInfo a signature where
overloadedMethod = windowRemoveAccelGroup
instance O.OverloadedMethodInfo WindowRemoveAccelGroupMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowRemoveAccelGroup",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowRemoveAccelGroup"
}
#endif
foreign import ccall "gtk_window_remove_mnemonic" gtk_window_remove_mnemonic ::
Ptr Window ->
Word32 ->
Ptr Gtk.Widget.Widget ->
IO ()
windowRemoveMnemonic ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gtk.Widget.IsWidget b) =>
a
-> Word32
-> b
-> m ()
windowRemoveMnemonic :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsWidget b) =>
a -> Word32 -> b -> m ()
windowRemoveMnemonic a
window Word32
keyval b
target = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Widget
target' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
target
Ptr Window -> Word32 -> Ptr Widget -> IO ()
gtk_window_remove_mnemonic Ptr Window
window' Word32
keyval Ptr Widget
target'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
target
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowRemoveMnemonicMethodInfo
instance (signature ~ (Word32 -> b -> m ()), MonadIO m, IsWindow a, Gtk.Widget.IsWidget b) => O.OverloadedMethod WindowRemoveMnemonicMethodInfo a signature where
overloadedMethod = windowRemoveMnemonic
instance O.OverloadedMethodInfo WindowRemoveMnemonicMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowRemoveMnemonic",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowRemoveMnemonic"
}
#endif
foreign import ccall "gtk_window_reshow_with_initial_size" gtk_window_reshow_with_initial_size ::
Ptr Window ->
IO ()
{-# DEPRECATED windowReshowWithInitialSize ["(Since version 3.10)","GUI builders can call 'GI.Gtk.Objects.Widget.widgetHide',"," 'GI.Gtk.Objects.Widget.widgetUnrealize' and then 'GI.Gtk.Objects.Widget.widgetShow' on /@window@/"," themselves, if they still need this functionality."] #-}
windowReshowWithInitialSize ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowReshowWithInitialSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowReshowWithInitialSize a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
gtk_window_reshow_with_initial_size Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowReshowWithInitialSizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowReshowWithInitialSizeMethodInfo a signature where
overloadedMethod = windowReshowWithInitialSize
instance O.OverloadedMethodInfo WindowReshowWithInitialSizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowReshowWithInitialSize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowReshowWithInitialSize"
}
#endif
foreign import ccall "gtk_window_resize" gtk_window_resize ::
Ptr Window ->
Int32 ->
Int32 ->
IO ()
windowResize ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Int32
-> Int32
-> m ()
windowResize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Int32 -> Int32 -> m ()
windowResize a
window Int32
width Int32
height = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> Int32 -> Int32 -> IO ()
gtk_window_resize Ptr Window
window' Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowResizeMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowResizeMethodInfo a signature where
overloadedMethod = windowResize
instance O.OverloadedMethodInfo WindowResizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowResize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowResize"
}
#endif
foreign import ccall "gtk_window_resize_grip_is_visible" gtk_window_resize_grip_is_visible ::
Ptr Window ->
IO CInt
{-# DEPRECATED windowResizeGripIsVisible ["(Since version 3.14)","Resize grips have been removed."] #-}
windowResizeGripIsVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowResizeGripIsVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
windowResizeGripIsVisible a
window = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_window_resize_grip_is_visible 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
WindowEnableDebuggingCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowResizeGripIsVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.OverloadedMethod WindowResizeGripIsVisibleMethodInfo a signature where
overloadedMethod = windowResizeGripIsVisible
instance O.OverloadedMethodInfo WindowResizeGripIsVisibleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowResizeGripIsVisible",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowResizeGripIsVisible"
}
#endif
foreign import ccall "gtk_window_resize_to_geometry" gtk_window_resize_to_geometry ::
Ptr Window ->
Int32 ->
Int32 ->
IO ()
{-# DEPRECATED windowResizeToGeometry ["(Since version 3.20)","This function does nothing. Use"," 'GI.Gtk.Objects.Window.windowResize' and compute the geometry yourself."] #-}
windowResizeToGeometry ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Int32
-> Int32
-> m ()
windowResizeToGeometry :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Int32 -> Int32 -> m ()
windowResizeToGeometry a
window Int32
width Int32
height = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> Int32 -> Int32 -> IO ()
gtk_window_resize_to_geometry Ptr Window
window' Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowResizeToGeometryMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowResizeToGeometryMethodInfo a signature where
overloadedMethod = windowResizeToGeometry
instance O.OverloadedMethodInfo WindowResizeToGeometryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowResizeToGeometry",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowResizeToGeometry"
}
#endif
foreign import ccall "gtk_window_set_accept_focus" gtk_window_set_accept_focus ::
Ptr Window ->
CInt ->
IO ()
windowSetAcceptFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetAcceptFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetAcceptFocus a
window Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr Window -> CInt -> IO ()
gtk_window_set_accept_focus Ptr Window
window' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetAcceptFocusMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetAcceptFocusMethodInfo a signature where
overloadedMethod = windowSetAcceptFocus
instance O.OverloadedMethodInfo WindowSetAcceptFocusMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetAcceptFocus",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetAcceptFocus"
}
#endif
foreign import ccall "gtk_window_set_application" gtk_window_set_application ::
Ptr Window ->
Ptr Gtk.Application.Application ->
IO ()
windowSetApplication ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gtk.Application.IsApplication b) =>
a
-> Maybe (b)
-> m ()
windowSetApplication :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsApplication b) =>
a -> Maybe b -> m ()
windowSetApplication a
window Maybe b
application = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Application
maybeApplication <- case Maybe b
application of
Maybe b
Nothing -> Ptr Application -> IO (Ptr Application)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Application
forall a. Ptr a
nullPtr
Just b
jApplication -> do
Ptr Application
jApplication' <- b -> IO (Ptr Application)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jApplication
Ptr Application -> IO (Ptr Application)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Application
jApplication'
Ptr Window -> Ptr Application -> IO ()
gtk_window_set_application Ptr Window
window' Ptr Application
maybeApplication
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
application b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetApplicationMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWindow a, Gtk.Application.IsApplication b) => O.OverloadedMethod WindowSetApplicationMethodInfo a signature where
overloadedMethod = windowSetApplication
instance O.OverloadedMethodInfo WindowSetApplicationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetApplication",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetApplication"
}
#endif
foreign import ccall "gtk_window_set_attached_to" gtk_window_set_attached_to ::
Ptr Window ->
Ptr Gtk.Widget.Widget ->
IO ()
windowSetAttachedTo ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
windowSetAttachedTo :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsWidget b) =>
a -> Maybe b -> m ()
windowSetAttachedTo a
window Maybe b
attachWidget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Widget
maybeAttachWidget <- case Maybe b
attachWidget of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jAttachWidget -> do
Ptr Widget
jAttachWidget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jAttachWidget
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jAttachWidget'
Ptr Window -> Ptr Widget -> IO ()
gtk_window_set_attached_to Ptr Window
window' Ptr Widget
maybeAttachWidget
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
attachWidget b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetAttachedToMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWindow a, Gtk.Widget.IsWidget b) => O.OverloadedMethod WindowSetAttachedToMethodInfo a signature where
overloadedMethod = windowSetAttachedTo
instance O.OverloadedMethodInfo WindowSetAttachedToMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetAttachedTo",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetAttachedTo"
}
#endif
foreign import ccall "gtk_window_set_decorated" gtk_window_set_decorated ::
Ptr Window ->
CInt ->
IO ()
windowSetDecorated ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetDecorated :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetDecorated a
window Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr Window -> CInt -> IO ()
gtk_window_set_decorated Ptr Window
window' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetDecoratedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetDecoratedMethodInfo a signature where
overloadedMethod = windowSetDecorated
instance O.OverloadedMethodInfo WindowSetDecoratedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetDecorated",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetDecorated"
}
#endif
foreign import ccall "gtk_window_set_default" gtk_window_set_default ::
Ptr Window ->
Ptr Gtk.Widget.Widget ->
IO ()
windowSetDefault ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
windowSetDefault :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsWidget b) =>
a -> Maybe b -> m ()
windowSetDefault a
window Maybe b
defaultWidget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Widget
maybeDefaultWidget <- case Maybe b
defaultWidget of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jDefaultWidget -> do
Ptr Widget
jDefaultWidget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jDefaultWidget
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jDefaultWidget'
Ptr Window -> Ptr Widget -> IO ()
gtk_window_set_default Ptr Window
window' Ptr Widget
maybeDefaultWidget
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
defaultWidget b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetDefaultMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWindow a, Gtk.Widget.IsWidget b) => O.OverloadedMethod WindowSetDefaultMethodInfo a signature where
overloadedMethod = windowSetDefault
instance O.OverloadedMethodInfo WindowSetDefaultMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetDefault",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetDefault"
}
#endif
foreign import ccall "gtk_window_set_default_geometry" gtk_window_set_default_geometry ::
Ptr Window ->
Int32 ->
Int32 ->
IO ()
{-# DEPRECATED windowSetDefaultGeometry ["(Since version 3.20)","This function does nothing. If you want to set a default"," size, use 'GI.Gtk.Objects.Window.windowSetDefaultSize' instead."] #-}
windowSetDefaultGeometry ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Int32
-> Int32
-> m ()
windowSetDefaultGeometry :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Int32 -> Int32 -> m ()
windowSetDefaultGeometry a
window Int32
width Int32
height = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> Int32 -> Int32 -> IO ()
gtk_window_set_default_geometry Ptr Window
window' Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetDefaultGeometryMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetDefaultGeometryMethodInfo a signature where
overloadedMethod = windowSetDefaultGeometry
instance O.OverloadedMethodInfo WindowSetDefaultGeometryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetDefaultGeometry",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetDefaultGeometry"
}
#endif
foreign import ccall "gtk_window_set_default_size" gtk_window_set_default_size ::
Ptr Window ->
Int32 ->
Int32 ->
IO ()
windowSetDefaultSize ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Int32
-> Int32
-> m ()
windowSetDefaultSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Int32 -> Int32 -> m ()
windowSetDefaultSize a
window Int32
width Int32
height = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> Int32 -> Int32 -> IO ()
gtk_window_set_default_size Ptr Window
window' Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetDefaultSizeMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetDefaultSizeMethodInfo a signature where
overloadedMethod = windowSetDefaultSize
instance O.OverloadedMethodInfo WindowSetDefaultSizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetDefaultSize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetDefaultSize"
}
#endif
foreign import ccall "gtk_window_set_deletable" gtk_window_set_deletable ::
Ptr Window ->
CInt ->
IO ()
windowSetDeletable ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetDeletable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetDeletable a
window Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr Window -> CInt -> IO ()
gtk_window_set_deletable Ptr Window
window' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetDeletableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetDeletableMethodInfo a signature where
overloadedMethod = windowSetDeletable
instance O.OverloadedMethodInfo WindowSetDeletableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetDeletable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetDeletable"
}
#endif
foreign import ccall "gtk_window_set_destroy_with_parent" gtk_window_set_destroy_with_parent ::
Ptr Window ->
CInt ->
IO ()
windowSetDestroyWithParent ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetDestroyWithParent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetDestroyWithParent a
window Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr Window -> CInt -> IO ()
gtk_window_set_destroy_with_parent Ptr Window
window' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetDestroyWithParentMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetDestroyWithParentMethodInfo a signature where
overloadedMethod = windowSetDestroyWithParent
instance O.OverloadedMethodInfo WindowSetDestroyWithParentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetDestroyWithParent",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetDestroyWithParent"
}
#endif
foreign import ccall "gtk_window_set_focus" gtk_window_set_focus ::
Ptr Window ->
Ptr Gtk.Widget.Widget ->
IO ()
windowSetFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
windowSetFocus :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsWidget b) =>
a -> Maybe b -> m ()
windowSetFocus a
window Maybe b
focus = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Widget
maybeFocus <- case Maybe b
focus of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jFocus -> do
Ptr Widget
jFocus' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jFocus
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jFocus'
Ptr Window -> Ptr Widget -> IO ()
gtk_window_set_focus Ptr Window
window' Ptr Widget
maybeFocus
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
focus b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetFocusMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWindow a, Gtk.Widget.IsWidget b) => O.OverloadedMethod WindowSetFocusMethodInfo a signature where
overloadedMethod = windowSetFocus
instance O.OverloadedMethodInfo WindowSetFocusMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetFocus",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetFocus"
}
#endif
foreign import ccall "gtk_window_set_focus_on_map" gtk_window_set_focus_on_map ::
Ptr Window ->
CInt ->
IO ()
windowSetFocusOnMap ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetFocusOnMap :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetFocusOnMap a
window Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr Window -> CInt -> IO ()
gtk_window_set_focus_on_map Ptr Window
window' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetFocusOnMapMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetFocusOnMapMethodInfo a signature where
overloadedMethod = windowSetFocusOnMap
instance O.OverloadedMethodInfo WindowSetFocusOnMapMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetFocusOnMap",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetFocusOnMap"
}
#endif
foreign import ccall "gtk_window_set_focus_visible" gtk_window_set_focus_visible ::
Ptr Window ->
CInt ->
IO ()
windowSetFocusVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetFocusVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetFocusVisible a
window Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr Window -> CInt -> IO ()
gtk_window_set_focus_visible Ptr Window
window' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetFocusVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetFocusVisibleMethodInfo a signature where
overloadedMethod = windowSetFocusVisible
instance O.OverloadedMethodInfo WindowSetFocusVisibleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetFocusVisible",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetFocusVisible"
}
#endif
foreign import ccall "gtk_window_set_geometry_hints" gtk_window_set_geometry_hints ::
Ptr Window ->
Ptr Gtk.Widget.Widget ->
Ptr Gdk.Geometry.Geometry ->
CUInt ->
IO ()
windowSetGeometryHints ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> Maybe (Gdk.Geometry.Geometry)
-> [Gdk.Flags.WindowHints]
-> m ()
windowSetGeometryHints :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsWidget b) =>
a -> Maybe b -> Maybe Geometry -> [WindowHints] -> m ()
windowSetGeometryHints a
window Maybe b
geometryWidget Maybe Geometry
geometry [WindowHints]
geomMask = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Widget
maybeGeometryWidget <- case Maybe b
geometryWidget of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jGeometryWidget -> do
Ptr Widget
jGeometryWidget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jGeometryWidget
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jGeometryWidget'
Ptr Geometry
maybeGeometry <- case Maybe Geometry
geometry of
Maybe Geometry
Nothing -> Ptr Geometry -> IO (Ptr Geometry)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Geometry
forall a. Ptr a
nullPtr
Just Geometry
jGeometry -> do
Ptr Geometry
jGeometry' <- Geometry -> IO (Ptr Geometry)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Geometry
jGeometry
Ptr Geometry -> IO (Ptr Geometry)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Geometry
jGeometry'
let geomMask' :: CUInt
geomMask' = [WindowHints] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [WindowHints]
geomMask
Ptr Window -> Ptr Widget -> Ptr Geometry -> CUInt -> IO ()
gtk_window_set_geometry_hints Ptr Window
window' Ptr Widget
maybeGeometryWidget Ptr Geometry
maybeGeometry CUInt
geomMask'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
geometryWidget b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe Geometry -> (Geometry -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Geometry
geometry Geometry -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetGeometryHintsMethodInfo
instance (signature ~ (Maybe (b) -> Maybe (Gdk.Geometry.Geometry) -> [Gdk.Flags.WindowHints] -> m ()), MonadIO m, IsWindow a, Gtk.Widget.IsWidget b) => O.OverloadedMethod WindowSetGeometryHintsMethodInfo a signature where
overloadedMethod = windowSetGeometryHints
instance O.OverloadedMethodInfo WindowSetGeometryHintsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetGeometryHints",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetGeometryHints"
}
#endif
foreign import ccall "gtk_window_set_gravity" gtk_window_set_gravity ::
Ptr Window ->
CUInt ->
IO ()
windowSetGravity ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Gdk.Enums.Gravity
-> m ()
windowSetGravity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Gravity -> m ()
windowSetGravity a
window Gravity
gravity = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let gravity' :: CUInt
gravity' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Gravity -> Int) -> Gravity -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Gravity -> Int
forall a. Enum a => a -> Int
fromEnum) Gravity
gravity
Ptr Window -> CUInt -> IO ()
gtk_window_set_gravity Ptr Window
window' CUInt
gravity'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetGravityMethodInfo
instance (signature ~ (Gdk.Enums.Gravity -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetGravityMethodInfo a signature where
overloadedMethod = windowSetGravity
instance O.OverloadedMethodInfo WindowSetGravityMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetGravity",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetGravity"
}
#endif
foreign import ccall "gtk_window_set_has_resize_grip" gtk_window_set_has_resize_grip ::
Ptr Window ->
CInt ->
IO ()
{-# DEPRECATED windowSetHasResizeGrip ["(Since version 3.14)","Resize grips have been removed."] #-}
windowSetHasResizeGrip ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetHasResizeGrip :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetHasResizeGrip a
window Bool
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let value' :: CInt
value' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
value
Ptr Window -> CInt -> IO ()
gtk_window_set_has_resize_grip Ptr Window
window' CInt
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetHasResizeGripMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetHasResizeGripMethodInfo a signature where
overloadedMethod = windowSetHasResizeGrip
instance O.OverloadedMethodInfo WindowSetHasResizeGripMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetHasResizeGrip",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetHasResizeGrip"
}
#endif
foreign import ccall "gtk_window_set_has_user_ref_count" gtk_window_set_has_user_ref_count ::
Ptr Window ->
CInt ->
IO ()
windowSetHasUserRefCount ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetHasUserRefCount :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetHasUserRefCount a
window Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr Window -> CInt -> IO ()
gtk_window_set_has_user_ref_count Ptr Window
window' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetHasUserRefCountMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetHasUserRefCountMethodInfo a signature where
overloadedMethod = windowSetHasUserRefCount
instance O.OverloadedMethodInfo WindowSetHasUserRefCountMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetHasUserRefCount",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetHasUserRefCount"
}
#endif
foreign import ccall "gtk_window_set_hide_titlebar_when_maximized" gtk_window_set_hide_titlebar_when_maximized ::
Ptr Window ->
CInt ->
IO ()
windowSetHideTitlebarWhenMaximized ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetHideTitlebarWhenMaximized :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetHideTitlebarWhenMaximized a
window Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr Window -> CInt -> IO ()
gtk_window_set_hide_titlebar_when_maximized Ptr Window
window' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetHideTitlebarWhenMaximizedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetHideTitlebarWhenMaximizedMethodInfo a signature where
overloadedMethod = windowSetHideTitlebarWhenMaximized
instance O.OverloadedMethodInfo WindowSetHideTitlebarWhenMaximizedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetHideTitlebarWhenMaximized",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetHideTitlebarWhenMaximized"
}
#endif
foreign import ccall "gtk_window_set_icon" gtk_window_set_icon ::
Ptr Window ->
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
IO ()
windowSetIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, GdkPixbuf.Pixbuf.IsPixbuf b) =>
a
-> Maybe (b)
-> m ()
windowSetIcon :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsPixbuf b) =>
a -> Maybe b -> m ()
windowSetIcon a
window Maybe b
icon = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Pixbuf
maybeIcon <- case Maybe b
icon of
Maybe b
Nothing -> Ptr Pixbuf -> IO (Ptr Pixbuf)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Pixbuf
forall a. Ptr a
nullPtr
Just b
jIcon -> do
Ptr Pixbuf
jIcon' <- b -> IO (Ptr Pixbuf)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jIcon
Ptr Pixbuf -> IO (Ptr Pixbuf)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Pixbuf
jIcon'
Ptr Window -> Ptr Pixbuf -> IO ()
gtk_window_set_icon Ptr Window
window' Ptr Pixbuf
maybeIcon
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
icon b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetIconMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWindow a, GdkPixbuf.Pixbuf.IsPixbuf b) => O.OverloadedMethod WindowSetIconMethodInfo a signature where
overloadedMethod = windowSetIcon
instance O.OverloadedMethodInfo WindowSetIconMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetIcon",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetIcon"
}
#endif
foreign import ccall "gtk_window_set_icon_from_file" gtk_window_set_icon_from_file ::
Ptr Window ->
CString ->
Ptr (Ptr GError) ->
IO CInt
windowSetIconFromFile ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> [Char]
-> m ()
windowSetIconFromFile :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> String -> m ()
windowSetIconFromFile a
window String
filename = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
filename' <- String -> IO CString
stringToCString String
filename
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Window -> CString -> Ptr (Ptr GError) -> IO CInt
gtk_window_set_icon_from_file Ptr Window
window' CString
filename'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filename'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filename'
)
#if defined(ENABLE_OVERLOADING)
data WindowSetIconFromFileMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetIconFromFileMethodInfo a signature where
overloadedMethod = windowSetIconFromFile
instance O.OverloadedMethodInfo WindowSetIconFromFileMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetIconFromFile",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetIconFromFile"
}
#endif
foreign import ccall "gtk_window_set_icon_list" gtk_window_set_icon_list ::
Ptr Window ->
Ptr (GList (Ptr GdkPixbuf.Pixbuf.Pixbuf)) ->
IO ()
windowSetIconList ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, GdkPixbuf.Pixbuf.IsPixbuf b) =>
a
-> [b]
-> m ()
windowSetIconList :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsPixbuf b) =>
a -> [b] -> m ()
windowSetIconList a
window [b]
list = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
[Ptr Pixbuf]
list' <- (b -> IO (Ptr Pixbuf)) -> [b] -> IO [Ptr Pixbuf]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM b -> IO (Ptr Pixbuf)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr [b]
list
Ptr (GList (Ptr Pixbuf))
list'' <- [Ptr Pixbuf] -> IO (Ptr (GList (Ptr Pixbuf)))
forall a. [Ptr a] -> IO (Ptr (GList (Ptr a)))
packGList [Ptr Pixbuf]
list'
Ptr Window -> Ptr (GList (Ptr Pixbuf)) -> IO ()
gtk_window_set_icon_list Ptr Window
window' Ptr (GList (Ptr Pixbuf))
list''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
(b -> IO ()) -> [b] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [b]
list
Ptr (GList (Ptr Pixbuf)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr Pixbuf))
list''
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetIconListMethodInfo
instance (signature ~ ([b] -> m ()), MonadIO m, IsWindow a, GdkPixbuf.Pixbuf.IsPixbuf b) => O.OverloadedMethod WindowSetIconListMethodInfo a signature where
overloadedMethod = windowSetIconList
instance O.OverloadedMethodInfo WindowSetIconListMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetIconList",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetIconList"
}
#endif
foreign import ccall "gtk_window_set_icon_name" gtk_window_set_icon_name ::
Ptr Window ->
CString ->
IO ()
windowSetIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Maybe (T.Text)
-> m ()
windowSetIconName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Maybe Text -> m ()
windowSetIconName a
window Maybe Text
name = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
maybeName <- case Maybe Text
name of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jName -> do
CString
jName' <- Text -> IO CString
textToCString Text
jName
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jName'
Ptr Window -> CString -> IO ()
gtk_window_set_icon_name Ptr Window
window' CString
maybeName
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeName
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetIconNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetIconNameMethodInfo a signature where
overloadedMethod = windowSetIconName
instance O.OverloadedMethodInfo WindowSetIconNameMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetIconName",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetIconName"
}
#endif
foreign import ccall "gtk_window_set_keep_above" gtk_window_set_keep_above ::
Ptr Window ->
CInt ->
IO ()
windowSetKeepAbove ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetKeepAbove :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetKeepAbove a
window Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr Window -> CInt -> IO ()
gtk_window_set_keep_above Ptr Window
window' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetKeepAboveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetKeepAboveMethodInfo a signature where
overloadedMethod = windowSetKeepAbove
instance O.OverloadedMethodInfo WindowSetKeepAboveMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetKeepAbove",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetKeepAbove"
}
#endif
foreign import ccall "gtk_window_set_keep_below" gtk_window_set_keep_below ::
Ptr Window ->
CInt ->
IO ()
windowSetKeepBelow ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetKeepBelow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetKeepBelow a
window Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr Window -> CInt -> IO ()
gtk_window_set_keep_below Ptr Window
window' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetKeepBelowMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetKeepBelowMethodInfo a signature where
overloadedMethod = windowSetKeepBelow
instance O.OverloadedMethodInfo WindowSetKeepBelowMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetKeepBelow",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetKeepBelow"
}
#endif
foreign import ccall "gtk_window_set_mnemonic_modifier" gtk_window_set_mnemonic_modifier ::
Ptr Window ->
CUInt ->
IO ()
windowSetMnemonicModifier ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> [Gdk.Flags.ModifierType]
-> m ()
windowSetMnemonicModifier :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> [ModifierType] -> m ()
windowSetMnemonicModifier a
window [ModifierType]
modifier = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let modifier' :: CUInt
modifier' = [ModifierType] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ModifierType]
modifier
Ptr Window -> CUInt -> IO ()
gtk_window_set_mnemonic_modifier Ptr Window
window' CUInt
modifier'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetMnemonicModifierMethodInfo
instance (signature ~ ([Gdk.Flags.ModifierType] -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetMnemonicModifierMethodInfo a signature where
overloadedMethod = windowSetMnemonicModifier
instance O.OverloadedMethodInfo WindowSetMnemonicModifierMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetMnemonicModifier",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetMnemonicModifier"
}
#endif
foreign import ccall "gtk_window_set_mnemonics_visible" gtk_window_set_mnemonics_visible ::
Ptr Window ->
CInt ->
IO ()
windowSetMnemonicsVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetMnemonicsVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetMnemonicsVisible a
window Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr Window -> CInt -> IO ()
gtk_window_set_mnemonics_visible Ptr Window
window' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetMnemonicsVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetMnemonicsVisibleMethodInfo a signature where
overloadedMethod = windowSetMnemonicsVisible
instance O.OverloadedMethodInfo WindowSetMnemonicsVisibleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetMnemonicsVisible",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetMnemonicsVisible"
}
#endif
foreign import ccall "gtk_window_set_modal" gtk_window_set_modal ::
Ptr Window ->
CInt ->
IO ()
windowSetModal ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetModal :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetModal a
window Bool
modal = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let modal' :: CInt
modal' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
modal
Ptr Window -> CInt -> IO ()
gtk_window_set_modal Ptr Window
window' CInt
modal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetModalMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetModalMethodInfo a signature where
overloadedMethod = windowSetModal
instance O.OverloadedMethodInfo WindowSetModalMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetModal",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetModal"
}
#endif
foreign import ccall "gtk_window_set_opacity" gtk_window_set_opacity ::
Ptr Window ->
CDouble ->
IO ()
{-# DEPRECATED windowSetOpacity ["(Since version 3.8)","Use gtk_widget_set_opacity instead."] #-}
windowSetOpacity ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Double
-> m ()
windowSetOpacity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Double -> m ()
windowSetOpacity a
window Double
opacity = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let opacity' :: CDouble
opacity' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
opacity
Ptr Window -> CDouble -> IO ()
gtk_window_set_opacity Ptr Window
window' CDouble
opacity'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetOpacityMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetOpacityMethodInfo a signature where
overloadedMethod = windowSetOpacity
instance O.OverloadedMethodInfo WindowSetOpacityMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetOpacity",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetOpacity"
}
#endif
foreign import ccall "gtk_window_set_position" gtk_window_set_position ::
Ptr Window ->
CUInt ->
IO ()
windowSetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Gtk.Enums.WindowPosition
-> m ()
windowSetPosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> WindowPosition -> m ()
windowSetPosition a
window WindowPosition
position = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let position' :: CUInt
position' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (WindowPosition -> Int) -> WindowPosition -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. WindowPosition -> Int
forall a. Enum a => a -> Int
fromEnum) WindowPosition
position
Ptr Window -> CUInt -> IO ()
gtk_window_set_position Ptr Window
window' CUInt
position'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetPositionMethodInfo
instance (signature ~ (Gtk.Enums.WindowPosition -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetPositionMethodInfo a signature where
overloadedMethod = windowSetPosition
instance O.OverloadedMethodInfo WindowSetPositionMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetPosition",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetPosition"
}
#endif
foreign import ccall "gtk_window_set_resizable" gtk_window_set_resizable ::
Ptr Window ->
CInt ->
IO ()
windowSetResizable ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetResizable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetResizable a
window Bool
resizable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let resizable' :: CInt
resizable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
resizable
Ptr Window -> CInt -> IO ()
gtk_window_set_resizable Ptr Window
window' CInt
resizable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetResizableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetResizableMethodInfo a signature where
overloadedMethod = windowSetResizable
instance O.OverloadedMethodInfo WindowSetResizableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetResizable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetResizable"
}
#endif
foreign import ccall "gtk_window_set_role" gtk_window_set_role ::
Ptr Window ->
CString ->
IO ()
windowSetRole ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> T.Text
-> m ()
windowSetRole :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Text -> m ()
windowSetRole a
window Text
role = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
role' <- Text -> IO CString
textToCString Text
role
Ptr Window -> CString -> IO ()
gtk_window_set_role Ptr Window
window' CString
role'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
role'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetRoleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetRoleMethodInfo a signature where
overloadedMethod = windowSetRole
instance O.OverloadedMethodInfo WindowSetRoleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetRole",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetRole"
}
#endif
foreign import ccall "gtk_window_set_screen" gtk_window_set_screen ::
Ptr Window ->
Ptr Gdk.Screen.Screen ->
IO ()
windowSetScreen ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gdk.Screen.IsScreen b) =>
a
-> b
-> m ()
windowSetScreen :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsScreen b) =>
a -> b -> m ()
windowSetScreen a
window b
screen = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Screen
screen' <- b -> IO (Ptr Screen)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
screen
Ptr Window -> Ptr Screen -> IO ()
gtk_window_set_screen Ptr Window
window' Ptr Screen
screen'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
screen
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetScreenMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWindow a, Gdk.Screen.IsScreen b) => O.OverloadedMethod WindowSetScreenMethodInfo a signature where
overloadedMethod = windowSetScreen
instance O.OverloadedMethodInfo WindowSetScreenMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetScreen",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetScreen"
}
#endif
foreign import ccall "gtk_window_set_skip_pager_hint" ::
Ptr Window ->
CInt ->
IO ()
windowSetSkipPagerHint ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
a
window Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr Window -> CInt -> IO ()
gtk_window_set_skip_pager_hint Ptr Window
window' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetSkipPagerHintMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetSkipPagerHintMethodInfo a signature where
overloadedMethod = windowSetSkipPagerHint
instance O.OverloadedMethodInfo WindowSetSkipPagerHintMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetSkipPagerHint",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetSkipPagerHint"
}
#endif
foreign import ccall "gtk_window_set_skip_taskbar_hint" gtk_window_set_skip_taskbar_hint ::
Ptr Window ->
CInt ->
IO ()
windowSetSkipTaskbarHint ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetSkipTaskbarHint :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetSkipTaskbarHint a
window Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr Window -> CInt -> IO ()
gtk_window_set_skip_taskbar_hint Ptr Window
window' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetSkipTaskbarHintMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetSkipTaskbarHintMethodInfo a signature where
overloadedMethod = windowSetSkipTaskbarHint
instance O.OverloadedMethodInfo WindowSetSkipTaskbarHintMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetSkipTaskbarHint",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetSkipTaskbarHint"
}
#endif
foreign import ccall "gtk_window_set_startup_id" gtk_window_set_startup_id ::
Ptr Window ->
CString ->
IO ()
windowSetStartupId ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> T.Text
-> m ()
windowSetStartupId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Text -> m ()
windowSetStartupId a
window Text
startupId = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
startupId' <- Text -> IO CString
textToCString Text
startupId
Ptr Window -> CString -> IO ()
gtk_window_set_startup_id Ptr Window
window' CString
startupId'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
startupId'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetStartupIdMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetStartupIdMethodInfo a signature where
overloadedMethod = windowSetStartupId
instance O.OverloadedMethodInfo WindowSetStartupIdMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetStartupId",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetStartupId"
}
#endif
foreign import ccall "gtk_window_set_title" gtk_window_set_title ::
Ptr Window ->
CString ->
IO ()
windowSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> T.Text
-> m ()
windowSetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Text -> m ()
windowSetTitle a
window Text
title = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
title' <- Text -> IO CString
textToCString Text
title
Ptr Window -> CString -> IO ()
gtk_window_set_title Ptr Window
window' CString
title'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
title'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetTitleMethodInfo a signature where
overloadedMethod = windowSetTitle
instance O.OverloadedMethodInfo WindowSetTitleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetTitle",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetTitle"
}
#endif
foreign import ccall "gtk_window_set_titlebar" gtk_window_set_titlebar ::
Ptr Window ->
Ptr Gtk.Widget.Widget ->
IO ()
windowSetTitlebar ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
windowSetTitlebar :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsWidget b) =>
a -> Maybe b -> m ()
windowSetTitlebar a
window Maybe b
titlebar = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Widget
maybeTitlebar <- case Maybe b
titlebar of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jTitlebar -> do
Ptr Widget
jTitlebar' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jTitlebar
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jTitlebar'
Ptr Window -> Ptr Widget -> IO ()
gtk_window_set_titlebar Ptr Window
window' Ptr Widget
maybeTitlebar
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
titlebar b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetTitlebarMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWindow a, Gtk.Widget.IsWidget b) => O.OverloadedMethod WindowSetTitlebarMethodInfo a signature where
overloadedMethod = windowSetTitlebar
instance O.OverloadedMethodInfo WindowSetTitlebarMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetTitlebar",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetTitlebar"
}
#endif
foreign import ccall "gtk_window_set_transient_for" gtk_window_set_transient_for ::
Ptr Window ->
Ptr Window ->
IO ()
windowSetTransientFor ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, IsWindow b) =>
a
-> Maybe (b)
-> m ()
windowSetTransientFor :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsWindow b) =>
a -> Maybe b -> m ()
windowSetTransientFor a
window Maybe b
parent = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window
maybeParent <- case Maybe b
parent of
Maybe b
Nothing -> Ptr Window -> IO (Ptr Window)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Window
forall a. Ptr a
nullPtr
Just b
jParent -> do
Ptr Window
jParent' <- b -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jParent
Ptr Window -> IO (Ptr Window)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Window
jParent'
Ptr Window -> Ptr Window -> IO ()
gtk_window_set_transient_for Ptr Window
window' Ptr Window
maybeParent
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
parent b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetTransientForMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWindow a, IsWindow b) => O.OverloadedMethod WindowSetTransientForMethodInfo a signature where
overloadedMethod = windowSetTransientFor
instance O.OverloadedMethodInfo WindowSetTransientForMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetTransientFor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetTransientFor"
}
#endif
foreign import ccall "gtk_window_set_type_hint" gtk_window_set_type_hint ::
Ptr Window ->
CUInt ->
IO ()
windowSetTypeHint ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Gdk.Enums.WindowTypeHint
-> m ()
windowSetTypeHint :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> WindowTypeHint -> m ()
windowSetTypeHint a
window WindowTypeHint
hint = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let hint' :: CUInt
hint' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (WindowTypeHint -> Int) -> WindowTypeHint -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. WindowTypeHint -> Int
forall a. Enum a => a -> Int
fromEnum) WindowTypeHint
hint
Ptr Window -> CUInt -> IO ()
gtk_window_set_type_hint Ptr Window
window' CUInt
hint'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetTypeHintMethodInfo
instance (signature ~ (Gdk.Enums.WindowTypeHint -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetTypeHintMethodInfo a signature where
overloadedMethod = windowSetTypeHint
instance O.OverloadedMethodInfo WindowSetTypeHintMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetTypeHint",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetTypeHint"
}
#endif
foreign import ccall "gtk_window_set_urgency_hint" gtk_window_set_urgency_hint ::
Ptr Window ->
CInt ->
IO ()
windowSetUrgencyHint ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetUrgencyHint :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
windowSetUrgencyHint a
window Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr Window -> CInt -> IO ()
gtk_window_set_urgency_hint Ptr Window
window' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetUrgencyHintMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetUrgencyHintMethodInfo a signature where
overloadedMethod = windowSetUrgencyHint
instance O.OverloadedMethodInfo WindowSetUrgencyHintMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetUrgencyHint",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetUrgencyHint"
}
#endif
foreign import ccall "gtk_window_set_wmclass" gtk_window_set_wmclass ::
Ptr Window ->
CString ->
CString ->
IO ()
{-# DEPRECATED windowSetWmclass ["(Since version 3.22)"] #-}
windowSetWmclass ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> T.Text
-> T.Text
-> m ()
windowSetWmclass :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Text -> Text -> m ()
windowSetWmclass a
window Text
wmclassName Text
wmclassClass = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
wmclassName' <- Text -> IO CString
textToCString Text
wmclassName
CString
wmclassClass' <- Text -> IO CString
textToCString Text
wmclassClass
Ptr Window -> CString -> CString -> IO ()
gtk_window_set_wmclass Ptr Window
window' CString
wmclassName' CString
wmclassClass'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
wmclassName'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
wmclassClass'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetWmclassMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowSetWmclassMethodInfo a signature where
overloadedMethod = windowSetWmclass
instance O.OverloadedMethodInfo WindowSetWmclassMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowSetWmclass",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowSetWmclass"
}
#endif
foreign import ccall "gtk_window_stick" gtk_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 (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 ()
gtk_window_stick Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowStickMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowStickMethodInfo a signature where
overloadedMethod = windowStick
instance O.OverloadedMethodInfo WindowStickMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowStick",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowStick"
}
#endif
foreign import ccall "gtk_window_unfullscreen" gtk_window_unfullscreen ::
Ptr Window ->
IO ()
windowUnfullscreen ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowUnfullscreen :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
windowUnfullscreen a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
gtk_window_unfullscreen Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnfullscreenMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowUnfullscreenMethodInfo a signature where
overloadedMethod = windowUnfullscreen
instance O.OverloadedMethodInfo WindowUnfullscreenMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowUnfullscreen",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowUnfullscreen"
}
#endif
foreign import ccall "gtk_window_unmaximize" gtk_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 (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 ()
gtk_window_unmaximize Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnmaximizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowUnmaximizeMethodInfo a signature where
overloadedMethod = windowUnmaximize
instance O.OverloadedMethodInfo WindowUnmaximizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowUnmaximize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowUnmaximize"
}
#endif
foreign import ccall "gtk_window_unstick" gtk_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 (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 ()
gtk_window_unstick Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowUnstickMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.OverloadedMethod WindowUnstickMethodInfo a signature where
overloadedMethod = windowUnstick
instance O.OverloadedMethodInfo WindowUnstickMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.Window.windowUnstick",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-Window.html#v:windowUnstick"
}
#endif
foreign import ccall "gtk_window_get_default_icon_list" gtk_window_get_default_icon_list ::
IO (Ptr (GList (Ptr GdkPixbuf.Pixbuf.Pixbuf)))
windowGetDefaultIconList ::
(B.CallStack.HasCallStack, MonadIO m) =>
m [GdkPixbuf.Pixbuf.Pixbuf]
windowGetDefaultIconList :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m [Pixbuf]
windowGetDefaultIconList = IO [Pixbuf] -> m [Pixbuf]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Pixbuf] -> m [Pixbuf]) -> IO [Pixbuf] -> m [Pixbuf]
forall a b. (a -> b) -> a -> b
$ do
Ptr (GList (Ptr Pixbuf))
result <- IO (Ptr (GList (Ptr Pixbuf)))
gtk_window_get_default_icon_list
[Ptr Pixbuf]
result' <- Ptr (GList (Ptr Pixbuf)) -> IO [Ptr Pixbuf]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr Pixbuf))
result
[Pixbuf]
result'' <- (Ptr Pixbuf -> IO Pixbuf) -> [Ptr Pixbuf] -> IO [Pixbuf]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((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'
Ptr (GList (Ptr Pixbuf)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr Pixbuf))
result
[Pixbuf] -> IO [Pixbuf]
forall (m :: * -> *) a. Monad m => a -> m a
return [Pixbuf]
result''
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_window_get_default_icon_name" gtk_window_get_default_icon_name ::
IO CString
windowGetDefaultIconName ::
(B.CallStack.HasCallStack, MonadIO m) =>
m T.Text
windowGetDefaultIconName :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Text
windowGetDefaultIconName = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
CString
result <- IO CString
gtk_window_get_default_icon_name
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowGetDefaultIconName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_window_list_toplevels" gtk_window_list_toplevels ::
IO (Ptr (GList (Ptr Gtk.Widget.Widget)))
windowListToplevels ::
(B.CallStack.HasCallStack, MonadIO m) =>
m [Gtk.Widget.Widget]
windowListToplevels :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m [Widget]
windowListToplevels = IO [Widget] -> m [Widget]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Widget] -> m [Widget]) -> IO [Widget] -> m [Widget]
forall a b. (a -> b) -> a -> b
$ do
Ptr (GList (Ptr Widget))
result <- IO (Ptr (GList (Ptr Widget)))
gtk_window_list_toplevels
[Ptr Widget]
result' <- Ptr (GList (Ptr Widget)) -> IO [Ptr Widget]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr Widget))
result
[Widget]
result'' <- (Ptr Widget -> IO Widget) -> [Ptr Widget] -> IO [Widget]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) [Ptr Widget]
result'
Ptr (GList (Ptr Widget)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr Widget))
result
[Widget] -> IO [Widget]
forall (m :: * -> *) a. Monad m => a -> m a
return [Widget]
result''
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_window_set_auto_startup_notification" gtk_window_set_auto_startup_notification ::
CInt ->
IO ()
windowSetAutoStartupNotification ::
(B.CallStack.HasCallStack, MonadIO m) =>
Bool
-> m ()
windowSetAutoStartupNotification :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Bool -> m ()
windowSetAutoStartupNotification Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
CInt -> IO ()
gtk_window_set_auto_startup_notification CInt
setting'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_window_set_default_icon" gtk_window_set_default_icon ::
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
IO ()
windowSetDefaultIcon ::
(B.CallStack.HasCallStack, MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) =>
a
-> m ()
windowSetDefaultIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPixbuf a) =>
a -> m ()
windowSetDefaultIcon a
icon = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Pixbuf
icon' <- a -> IO (Ptr Pixbuf)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
icon
Ptr Pixbuf -> IO ()
gtk_window_set_default_icon Ptr Pixbuf
icon'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
icon
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_window_set_default_icon_from_file" gtk_window_set_default_icon_from_file ::
CString ->
Ptr (Ptr GError) ->
IO CInt
windowSetDefaultIconFromFile ::
(B.CallStack.HasCallStack, MonadIO m) =>
[Char]
-> m ()
windowSetDefaultIconFromFile :: forall (m :: * -> *). (HasCallStack, MonadIO m) => String -> m ()
windowSetDefaultIconFromFile String
filename = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
CString
filename' <- String -> IO CString
stringToCString String
filename
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ CString -> Ptr (Ptr GError) -> IO CInt
gtk_window_set_default_icon_from_file CString
filename'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filename'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filename'
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_window_set_default_icon_list" gtk_window_set_default_icon_list ::
Ptr (GList (Ptr GdkPixbuf.Pixbuf.Pixbuf)) ->
IO ()
windowSetDefaultIconList ::
(B.CallStack.HasCallStack, MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) =>
[a]
-> m ()
windowSetDefaultIconList :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPixbuf a) =>
[a] -> m ()
windowSetDefaultIconList [a]
list = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
[Ptr Pixbuf]
list' <- (a -> IO (Ptr Pixbuf)) -> [a] -> IO [Ptr Pixbuf]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM a -> IO (Ptr Pixbuf)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr [a]
list
Ptr (GList (Ptr Pixbuf))
list'' <- [Ptr Pixbuf] -> IO (Ptr (GList (Ptr Pixbuf)))
forall a. [Ptr a] -> IO (Ptr (GList (Ptr a)))
packGList [Ptr Pixbuf]
list'
Ptr (GList (Ptr Pixbuf)) -> IO ()
gtk_window_set_default_icon_list Ptr (GList (Ptr Pixbuf))
list''
(a -> IO ()) -> [a] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [a]
list
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_window_set_default_icon_name" gtk_window_set_default_icon_name ::
CString ->
IO ()
windowSetDefaultIconName ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m ()
windowSetDefaultIconName :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Text -> m ()
windowSetDefaultIconName Text
name = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
CString
name' <- Text -> IO CString
textToCString Text
name
CString -> IO ()
gtk_window_set_default_icon_name CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_window_set_interactive_debugging" gtk_window_set_interactive_debugging ::
CInt ->
IO ()
windowSetInteractiveDebugging ::
(B.CallStack.HasCallStack, MonadIO m) =>
Bool
-> m ()
windowSetInteractiveDebugging :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Bool -> m ()
windowSetInteractiveDebugging Bool
enable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let enable' :: CInt
enable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enable
CInt -> IO ()
gtk_window_set_interactive_debugging CInt
enable'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif