{-# 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 ,
noWindow ,
#if defined(ENABLE_OVERLOADING)
ResolveWindowMethod ,
#endif
#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 ,
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)
WindowGetGroupMethodInfo ,
#endif
windowGetGroup ,
#if defined(ENABLE_OVERLOADING)
WindowGetHideOnCloseMethodInfo ,
#endif
windowGetHideOnClose ,
#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)
WindowGetResizableMethodInfo ,
#endif
windowGetResizable ,
#if defined(ENABLE_OVERLOADING)
WindowGetSizeMethodInfo ,
#endif
windowGetSize ,
#if defined(ENABLE_OVERLOADING)
WindowGetTitleMethodInfo ,
#endif
windowGetTitle ,
#if defined(ENABLE_OVERLOADING)
WindowGetTitlebarMethodInfo ,
#endif
windowGetTitlebar ,
windowGetToplevels ,
#if defined(ENABLE_OVERLOADING)
WindowGetTransientForMethodInfo ,
#endif
windowGetTransientFor ,
#if defined(ENABLE_OVERLOADING)
WindowGetTypeHintMethodInfo ,
#endif
windowGetTypeHint ,
#if defined(ENABLE_OVERLOADING)
WindowGetWindowTypeMethodInfo ,
#endif
windowGetWindowType ,
#if defined(ENABLE_OVERLOADING)
WindowHasGroupMethodInfo ,
#endif
windowHasGroup ,
#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 ,
windowNew ,
#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)
WindowResizeMethodInfo ,
#endif
windowResize ,
#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 ,
windowSetDefaultIconName ,
#if defined(ENABLE_OVERLOADING)
WindowSetDefaultSizeMethodInfo ,
#endif
windowSetDefaultSize ,
#if defined(ENABLE_OVERLOADING)
WindowSetDefaultWidgetMethodInfo ,
#endif
windowSetDefaultWidget ,
#if defined(ENABLE_OVERLOADING)
WindowSetDeletableMethodInfo ,
#endif
windowSetDeletable ,
#if defined(ENABLE_OVERLOADING)
WindowSetDestroyWithParentMethodInfo ,
#endif
windowSetDestroyWithParent ,
#if defined(ENABLE_OVERLOADING)
WindowSetDisplayMethodInfo ,
#endif
windowSetDisplay ,
#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)
WindowSetHasUserRefCountMethodInfo ,
#endif
windowSetHasUserRefCount ,
#if defined(ENABLE_OVERLOADING)
WindowSetHideOnCloseMethodInfo ,
#endif
windowSetHideOnClose ,
#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)
WindowSetPositionMethodInfo ,
#endif
windowSetPosition ,
#if defined(ENABLE_OVERLOADING)
WindowSetResizableMethodInfo ,
#endif
windowSetResizable ,
#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)
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)
WindowDefaultWidgetPropertyInfo ,
#endif
clearWindowDefaultWidget ,
constructWindowDefaultWidget ,
getWindowDefaultWidget ,
setWindowDefaultWidget ,
#if defined(ENABLE_OVERLOADING)
windowDefaultWidget ,
#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)
WindowDisplayPropertyInfo ,
#endif
constructWindowDisplay ,
getWindowDisplay ,
setWindowDisplay ,
#if defined(ENABLE_OVERLOADING)
windowDisplay ,
#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)
WindowHideOnClosePropertyInfo ,
#endif
constructWindowHideOnClose ,
getWindowHideOnClose ,
setWindowHideOnClose ,
#if defined(ENABLE_OVERLOADING)
windowHideOnClose ,
#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)
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)
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_WindowCloseRequestCallback ,
WindowCloseRequestCallback ,
#if defined(ENABLE_OVERLOADING)
WindowCloseRequestSignalInfo ,
#endif
afterWindowCloseRequest ,
genClosure_WindowCloseRequest ,
mk_WindowCloseRequestCallback ,
noWindowCloseRequestCallback ,
onWindowCloseRequest ,
wrap_WindowCloseRequestCallback ,
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 ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import 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.Display as Gdk.Display
import qualified GI.Gdk.Objects.Monitor as Gdk.Monitor
import qualified GI.Gdk.Structs.EventKey as Gdk.EventKey
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
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 (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)
foreign import ccall "gtk_window_get_type"
c_gtk_window_get_type :: IO GType
instance GObject Window where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_window_get_type
instance B.GValue.IsGValue Window where
toGValue :: Window -> IO GValue
toGValue o :: Window
o = do
GType
gtype <- IO GType
c_gtk_window_get_type
Window -> (Ptr Window -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Window
o (GType -> (GValue -> Ptr Window -> IO ()) -> Ptr Window -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Window -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Window
fromGValue gv :: GValue
gv = do
Ptr Window
ptr <- GValue -> IO (Ptr Window)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Window)
(ManagedPtr Window -> Window) -> Ptr Window -> IO Window
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Window -> Window
Window Ptr Window
ptr
class (GObject o, O.IsDescendantOf Window o) => IsWindow o
instance (GObject o, O.IsDescendantOf Window o) => IsWindow o
instance O.HasParentTypes Window
type instance O.ParentTypes Window = '[Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.Root.Root]
toWindow :: (MonadIO m, IsWindow o) => o -> m Window
toWindow :: o -> m Window
toWindow = IO Window -> m Window
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Window -> m Window) -> (o -> IO Window) -> o -> m Window
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Window -> Window) -> o -> IO Window
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Window -> Window
Window
noWindow :: Maybe Window
noWindow :: Maybe Window
noWindow = Maybe Window
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveWindowMethod (t :: Symbol) (o :: *) :: * where
ResolveWindowMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveWindowMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveWindowMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
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 "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveWindowMethod "addMnemonic" o = WindowAddMnemonicMethodInfo
ResolveWindowMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveWindowMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveWindowMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
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 "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveWindowMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveWindowMethod "close" o = WindowCloseMethodInfo
ResolveWindowMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveWindowMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveWindowMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveWindowMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveWindowMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveWindowMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
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 "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 "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 "dragSourceSetIconPaintable" o = Gtk.Widget.WidgetDragSourceSetIconPaintableMethodInfo
ResolveWindowMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveWindowMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveWindowMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
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 "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 "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 "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveWindowMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
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 "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveWindowMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveWindowMethod "isActive" o = WindowIsActiveMethodInfo
ResolveWindowMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
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 "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveWindowMethod "mnemonicActivate" o = WindowMnemonicActivateMethodInfo
ResolveWindowMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWindowMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWindowMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveWindowMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveWindowMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveWindowMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveWindowMethod "present" o = WindowPresentMethodInfo
ResolveWindowMethod "presentWithTime" o = WindowPresentWithTimeMethodInfo
ResolveWindowMethod "propagateKeyEvent" o = WindowPropagateKeyEventMethodInfo
ResolveWindowMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveWindowMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveWindowMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
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 "registerSurface" o = Gtk.Widget.WidgetRegisterSurfaceMethodInfo
ResolveWindowMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveWindowMethod "removeAccelGroup" o = WindowRemoveAccelGroupMethodInfo
ResolveWindowMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveWindowMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveWindowMethod "removeMnemonic" o = WindowRemoveMnemonicMethodInfo
ResolveWindowMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveWindowMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveWindowMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveWindowMethod "resize" o = WindowResizeMethodInfo
ResolveWindowMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWindowMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveWindowMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveWindowMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveWindowMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWindowMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWindowMethod "stick" o = WindowStickMethodInfo
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 "unregisterSurface" o = Gtk.Widget.WidgetUnregisterSurfaceMethodInfo
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 "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveWindowMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveWindowMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveWindowMethod "getApplication" o = WindowGetApplicationMethodInfo
ResolveWindowMethod "getAttachedTo" o = WindowGetAttachedToMethodInfo
ResolveWindowMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveWindowMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveWindowMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo
ResolveWindowMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveWindowMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveWindowMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveWindowMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
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 "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveWindowMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveWindowMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveWindowMethod "getFocus" o = WindowGetFocusMethodInfo
ResolveWindowMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
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 "getGroup" o = WindowGetGroupMethodInfo
ResolveWindowMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveWindowMethod "getHasSurface" o = Gtk.Widget.WidgetGetHasSurfaceMethodInfo
ResolveWindowMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveWindowMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveWindowMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveWindowMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveWindowMethod "getHideOnClose" o = WindowGetHideOnCloseMethodInfo
ResolveWindowMethod "getIconName" o = WindowGetIconNameMethodInfo
ResolveWindowMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveWindowMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveWindowMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveWindowMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveWindowMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveWindowMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
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 "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveWindowMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveWindowMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveWindowMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveWindowMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveWindowMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveWindowMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveWindowMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveWindowMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveWindowMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveWindowMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
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 "getResizable" o = WindowGetResizableMethodInfo
ResolveWindowMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveWindowMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveWindowMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveWindowMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveWindowMethod "getSize" o = WindowGetSizeMethodInfo
ResolveWindowMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveWindowMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveWindowMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveWindowMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveWindowMethod "getSurface" o = Gtk.Widget.WidgetGetSurfaceMethodInfo
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 "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveWindowMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveWindowMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveWindowMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveWindowMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveWindowMethod "getWindowType" o = WindowGetWindowTypeMethodInfo
ResolveWindowMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveWindowMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo
ResolveWindowMethod "setApplication" o = WindowSetApplicationMethodInfo
ResolveWindowMethod "setAttachedTo" o = WindowSetAttachedToMethodInfo
ResolveWindowMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveWindowMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveWindowMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveWindowMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveWindowMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveWindowMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveWindowMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWindowMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveWindowMethod "setDecorated" o = WindowSetDecoratedMethodInfo
ResolveWindowMethod "setDefaultSize" o = WindowSetDefaultSizeMethodInfo
ResolveWindowMethod "setDefaultWidget" o = WindowSetDefaultWidgetMethodInfo
ResolveWindowMethod "setDeletable" o = WindowSetDeletableMethodInfo
ResolveWindowMethod "setDestroyWithParent" o = WindowSetDestroyWithParentMethodInfo
ResolveWindowMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveWindowMethod "setDisplay" o = WindowSetDisplayMethodInfo
ResolveWindowMethod "setFocus" o = WindowSetFocusMethodInfo
ResolveWindowMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
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 "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveWindowMethod "setHasSurface" o = Gtk.Widget.WidgetSetHasSurfaceMethodInfo
ResolveWindowMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveWindowMethod "setHasUserRefCount" o = WindowSetHasUserRefCountMethodInfo
ResolveWindowMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveWindowMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveWindowMethod "setHideOnClose" o = WindowSetHideOnCloseMethodInfo
ResolveWindowMethod "setIconName" o = WindowSetIconNameMethodInfo
ResolveWindowMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo
ResolveWindowMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo
ResolveWindowMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveWindowMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveWindowMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
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 "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveWindowMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveWindowMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveWindowMethod "setPosition" o = WindowSetPositionMethodInfo
ResolveWindowMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWindowMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveWindowMethod "setResizable" o = WindowSetResizableMethodInfo
ResolveWindowMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveWindowMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveWindowMethod "setStartupId" o = WindowSetStartupIdMethodInfo
ResolveWindowMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveWindowMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveWindowMethod "setSurface" o = Gtk.Widget.WidgetSetSurfaceMethodInfo
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 "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveWindowMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveWindowMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveWindowMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveWindowMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWindowMethod t Window, O.MethodInfo info Window p) => OL.IsLabel t (Window -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type 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 :: IO () -> m (GClosure C_WindowActivateDefaultCallback)
genClosure_WindowActivateDefault cb :: 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 _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWindowActivateDefault :: (IsWindow a, MonadIO m) => a -> WindowActivateDefaultCallback -> m SignalHandlerId
onWindowActivateDefault :: a -> IO () -> m SignalHandlerId
onWindowActivateDefault obj :: a
obj cb :: 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 "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 :: a -> IO () -> m SignalHandlerId
afterWindowActivateDefault obj :: a
obj cb :: 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 "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 :: IO () -> m (GClosure C_WindowActivateDefaultCallback)
genClosure_WindowActivateFocus cb :: 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 _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWindowActivateFocus :: (IsWindow a, MonadIO m) => a -> WindowActivateFocusCallback -> m SignalHandlerId
onWindowActivateFocus :: a -> IO () -> m SignalHandlerId
onWindowActivateFocus obj :: a
obj cb :: 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 "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 :: a -> IO () -> m SignalHandlerId
afterWindowActivateFocus obj :: a
obj cb :: 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 "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 WindowCloseRequestCallback =
IO Bool
noWindowCloseRequestCallback :: Maybe WindowCloseRequestCallback
noWindowCloseRequestCallback :: Maybe WindowCloseRequestCallback
noWindowCloseRequestCallback = Maybe WindowCloseRequestCallback
forall a. Maybe a
Nothing
type C_WindowCloseRequestCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_WindowCloseRequestCallback :: C_WindowCloseRequestCallback -> IO (FunPtr C_WindowCloseRequestCallback)
genClosure_WindowCloseRequest :: MonadIO m => WindowCloseRequestCallback -> m (GClosure C_WindowCloseRequestCallback)
genClosure_WindowCloseRequest :: WindowCloseRequestCallback
-> m (GClosure C_WindowCloseRequestCallback)
genClosure_WindowCloseRequest cb :: WindowCloseRequestCallback
cb = IO (GClosure C_WindowCloseRequestCallback)
-> m (GClosure C_WindowCloseRequestCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_WindowCloseRequestCallback)
-> m (GClosure C_WindowCloseRequestCallback))
-> IO (GClosure C_WindowCloseRequestCallback)
-> m (GClosure C_WindowCloseRequestCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_WindowCloseRequestCallback
cb' = WindowCloseRequestCallback -> C_WindowCloseRequestCallback
wrap_WindowCloseRequestCallback WindowCloseRequestCallback
cb
C_WindowCloseRequestCallback
-> IO (FunPtr C_WindowCloseRequestCallback)
mk_WindowCloseRequestCallback C_WindowCloseRequestCallback
cb' IO (FunPtr C_WindowCloseRequestCallback)
-> (FunPtr C_WindowCloseRequestCallback
-> IO (GClosure C_WindowCloseRequestCallback))
-> IO (GClosure C_WindowCloseRequestCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_WindowCloseRequestCallback
-> IO (GClosure C_WindowCloseRequestCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_WindowCloseRequestCallback ::
WindowCloseRequestCallback ->
C_WindowCloseRequestCallback
wrap_WindowCloseRequestCallback :: WindowCloseRequestCallback -> C_WindowCloseRequestCallback
wrap_WindowCloseRequestCallback _cb :: WindowCloseRequestCallback
_cb _ _ = do
Bool
result <- WindowCloseRequestCallback
_cb
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'
onWindowCloseRequest :: (IsWindow a, MonadIO m) => a -> WindowCloseRequestCallback -> m SignalHandlerId
onWindowCloseRequest :: a -> WindowCloseRequestCallback -> m SignalHandlerId
onWindowCloseRequest obj :: a
obj cb :: WindowCloseRequestCallback
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_WindowCloseRequestCallback
cb' = WindowCloseRequestCallback -> C_WindowCloseRequestCallback
wrap_WindowCloseRequestCallback WindowCloseRequestCallback
cb
FunPtr C_WindowCloseRequestCallback
cb'' <- C_WindowCloseRequestCallback
-> IO (FunPtr C_WindowCloseRequestCallback)
mk_WindowCloseRequestCallback C_WindowCloseRequestCallback
cb'
a
-> Text
-> FunPtr C_WindowCloseRequestCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "close-request" FunPtr C_WindowCloseRequestCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterWindowCloseRequest :: (IsWindow a, MonadIO m) => a -> WindowCloseRequestCallback -> m SignalHandlerId
afterWindowCloseRequest :: a -> WindowCloseRequestCallback -> m SignalHandlerId
afterWindowCloseRequest obj :: a
obj cb :: WindowCloseRequestCallback
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_WindowCloseRequestCallback
cb' = WindowCloseRequestCallback -> C_WindowCloseRequestCallback
wrap_WindowCloseRequestCallback WindowCloseRequestCallback
cb
FunPtr C_WindowCloseRequestCallback
cb'' <- C_WindowCloseRequestCallback
-> IO (FunPtr C_WindowCloseRequestCallback)
mk_WindowCloseRequestCallback C_WindowCloseRequestCallback
cb'
a
-> Text
-> FunPtr C_WindowCloseRequestCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "close-request" FunPtr C_WindowCloseRequestCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data WindowCloseRequestSignalInfo
instance SignalInfo WindowCloseRequestSignalInfo where
type HaskellCallbackType WindowCloseRequestSignalInfo = WindowCloseRequestCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_WindowCloseRequestCallback cb
cb'' <- mk_WindowCloseRequestCallback cb'
connectSignalFunPtr obj "close-request" 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 :: WindowEnableDebuggingCallback
-> m (GClosure C_WindowEnableDebuggingCallback)
genClosure_WindowEnableDebugging cb :: 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 _cb :: WindowEnableDebuggingCallback
_cb _ toggle :: CInt
toggle _ = do
let toggle' :: Bool
toggle' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 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 :: a -> WindowEnableDebuggingCallback -> m SignalHandlerId
onWindowEnableDebugging obj :: a
obj cb :: 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 "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 :: a -> WindowEnableDebuggingCallback -> m SignalHandlerId
afterWindowEnableDebugging obj :: a
obj cb :: 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 "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 :: IO () -> m (GClosure C_WindowActivateDefaultCallback)
genClosure_WindowKeysChanged cb :: 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 _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onWindowKeysChanged :: (IsWindow a, MonadIO m) => a -> WindowKeysChangedCallback -> m SignalHandlerId
onWindowKeysChanged :: a -> IO () -> m SignalHandlerId
onWindowKeysChanged obj :: a
obj cb :: 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 "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 :: a -> IO () -> m SignalHandlerId
afterWindowKeysChanged obj :: a
obj cb :: 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 "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
getWindowAcceptFocus :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowAcceptFocus :: o -> m Bool
getWindowAcceptFocus obj :: o
obj = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WindowCloseRequestCallback
forall a. GObject a => a -> String -> WindowCloseRequestCallback
B.Properties.getObjectPropertyBool o
obj "accept-focus"
setWindowAcceptFocus :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowAcceptFocus :: o -> Bool -> m ()
setWindowAcceptFocus obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "accept-focus" Bool
val
constructWindowAcceptFocus :: (IsWindow o) => Bool -> IO (GValueConstruct o)
constructWindowAcceptFocus :: Bool -> IO (GValueConstruct o)
constructWindowAcceptFocus val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m (Maybe Application)
getWindowApplication obj :: o
obj = 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
$ 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 "application" ManagedPtr Application -> Application
Gtk.Application.Application
setWindowApplication :: (MonadIO m, IsWindow o, Gtk.Application.IsApplication a) => o -> a -> m ()
setWindowApplication :: o -> a -> m ()
setWindowApplication obj :: o
obj val :: a
val = 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 a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "application" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWindowApplication :: (IsWindow o, Gtk.Application.IsApplication a) => a -> IO (GValueConstruct o)
constructWindowApplication :: a -> IO (GValueConstruct o)
constructWindowApplication val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "application" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearWindowApplication :: (MonadIO m, IsWindow o) => o -> m ()
clearWindowApplication :: o -> m ()
clearWindowApplication obj :: 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 "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 :: o -> m (Maybe Widget)
getWindowAttachedTo obj :: o
obj = 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
$ 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 "attached-to" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setWindowAttachedTo :: (MonadIO m, IsWindow o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setWindowAttachedTo :: o -> a -> m ()
setWindowAttachedTo obj :: o
obj val :: a
val = 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 a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "attached-to" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWindowAttachedTo :: (IsWindow o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o)
constructWindowAttachedTo :: a -> IO (GValueConstruct o)
constructWindowAttachedTo val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "attached-to" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearWindowAttachedTo :: (MonadIO m, IsWindow o) => o -> m ()
clearWindowAttachedTo :: o -> m ()
clearWindowAttachedTo obj :: 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 Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "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 :: o -> m Bool
getWindowDecorated obj :: o
obj = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WindowCloseRequestCallback
forall a. GObject a => a -> String -> WindowCloseRequestCallback
B.Properties.getObjectPropertyBool o
obj "decorated"
setWindowDecorated :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowDecorated :: o -> Bool -> m ()
setWindowDecorated obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "decorated" Bool
val
constructWindowDecorated :: (IsWindow o) => Bool -> IO (GValueConstruct o)
constructWindowDecorated :: Bool -> IO (GValueConstruct o)
constructWindowDecorated val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m Int32
getWindowDefaultHeight obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "default-height"
setWindowDefaultHeight :: (MonadIO m, IsWindow o) => o -> Int32 -> m ()
setWindowDefaultHeight :: o -> Int32 -> m ()
setWindowDefaultHeight obj :: o
obj val :: Int32
val = 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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "default-height" Int32
val
constructWindowDefaultHeight :: (IsWindow o) => Int32 -> IO (GValueConstruct o)
constructWindowDefaultHeight :: Int32 -> IO (GValueConstruct o)
constructWindowDefaultHeight val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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
getWindowDefaultWidget :: (MonadIO m, IsWindow o) => o -> m (Maybe Gtk.Widget.Widget)
getWindowDefaultWidget :: o -> m (Maybe Widget)
getWindowDefaultWidget obj :: o
obj = 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
$ 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 "default-widget" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setWindowDefaultWidget :: (MonadIO m, IsWindow o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setWindowDefaultWidget :: o -> a -> m ()
setWindowDefaultWidget obj :: o
obj val :: a
val = 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 a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "default-widget" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWindowDefaultWidget :: (IsWindow o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o)
constructWindowDefaultWidget :: a -> IO (GValueConstruct o)
constructWindowDefaultWidget val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "default-widget" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearWindowDefaultWidget :: (MonadIO m, IsWindow o) => o -> m ()
clearWindowDefaultWidget :: o -> m ()
clearWindowDefaultWidget obj :: 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 Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "default-widget" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data WindowDefaultWidgetPropertyInfo
instance AttrInfo WindowDefaultWidgetPropertyInfo where
type AttrAllowedOps WindowDefaultWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WindowDefaultWidgetPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowDefaultWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint WindowDefaultWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType WindowDefaultWidgetPropertyInfo = Gtk.Widget.Widget
type AttrGetType WindowDefaultWidgetPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel WindowDefaultWidgetPropertyInfo = "default-widget"
type AttrOrigin WindowDefaultWidgetPropertyInfo = Window
attrGet = getWindowDefaultWidget
attrSet = setWindowDefaultWidget
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructWindowDefaultWidget
attrClear = clearWindowDefaultWidget
#endif
getWindowDefaultWidth :: (MonadIO m, IsWindow o) => o -> m Int32
getWindowDefaultWidth :: o -> m Int32
getWindowDefaultWidth obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "default-width"
setWindowDefaultWidth :: (MonadIO m, IsWindow o) => o -> Int32 -> m ()
setWindowDefaultWidth :: o -> Int32 -> m ()
setWindowDefaultWidth obj :: o
obj val :: Int32
val = 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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "default-width" Int32
val
constructWindowDefaultWidth :: (IsWindow o) => Int32 -> IO (GValueConstruct o)
constructWindowDefaultWidth :: Int32 -> IO (GValueConstruct o)
constructWindowDefaultWidth val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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 :: o -> m Bool
getWindowDeletable obj :: o
obj = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WindowCloseRequestCallback
forall a. GObject a => a -> String -> WindowCloseRequestCallback
B.Properties.getObjectPropertyBool o
obj "deletable"
setWindowDeletable :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowDeletable :: o -> Bool -> m ()
setWindowDeletable obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "deletable" Bool
val
constructWindowDeletable :: (IsWindow o) => Bool -> IO (GValueConstruct o)
constructWindowDeletable :: Bool -> IO (GValueConstruct o)
constructWindowDeletable val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m Bool
getWindowDestroyWithParent obj :: o
obj = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WindowCloseRequestCallback
forall a. GObject a => a -> String -> WindowCloseRequestCallback
B.Properties.getObjectPropertyBool o
obj "destroy-with-parent"
setWindowDestroyWithParent :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowDestroyWithParent :: o -> Bool -> m ()
setWindowDestroyWithParent obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "destroy-with-parent" Bool
val
constructWindowDestroyWithParent :: (IsWindow o) => Bool -> IO (GValueConstruct o)
constructWindowDestroyWithParent :: Bool -> IO (GValueConstruct o)
constructWindowDestroyWithParent val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
getWindowDisplay :: (MonadIO m, IsWindow o) => o -> m (Maybe Gdk.Display.Display)
getWindowDisplay :: o -> m (Maybe Display)
getWindowDisplay obj :: o
obj = IO (Maybe Display) -> m (Maybe Display)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Display) -> m (Maybe Display))
-> IO (Maybe Display) -> m (Maybe Display)
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr Display -> Display) -> IO (Maybe Display)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "display" ManagedPtr Display -> Display
Gdk.Display.Display
setWindowDisplay :: (MonadIO m, IsWindow o, Gdk.Display.IsDisplay a) => o -> a -> m ()
setWindowDisplay :: o -> a -> m ()
setWindowDisplay obj :: o
obj val :: a
val = 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 a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "display" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWindowDisplay :: (IsWindow o, Gdk.Display.IsDisplay a) => a -> IO (GValueConstruct o)
constructWindowDisplay :: a -> IO (GValueConstruct o)
constructWindowDisplay val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "display" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
#if defined(ENABLE_OVERLOADING)
data WindowDisplayPropertyInfo
instance AttrInfo WindowDisplayPropertyInfo where
type AttrAllowedOps WindowDisplayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowDisplayPropertyInfo = IsWindow
type AttrSetTypeConstraint WindowDisplayPropertyInfo = Gdk.Display.IsDisplay
type AttrTransferTypeConstraint WindowDisplayPropertyInfo = Gdk.Display.IsDisplay
type AttrTransferType WindowDisplayPropertyInfo = Gdk.Display.Display
type AttrGetType WindowDisplayPropertyInfo = (Maybe Gdk.Display.Display)
type AttrLabel WindowDisplayPropertyInfo = "display"
type AttrOrigin WindowDisplayPropertyInfo = Window
attrGet = getWindowDisplay
attrSet = setWindowDisplay
attrTransfer _ v = do
unsafeCastTo Gdk.Display.Display v
attrConstruct = constructWindowDisplay
attrClear = undefined
#endif
getWindowFocusOnMap :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowFocusOnMap :: o -> m Bool
getWindowFocusOnMap obj :: o
obj = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WindowCloseRequestCallback
forall a. GObject a => a -> String -> WindowCloseRequestCallback
B.Properties.getObjectPropertyBool o
obj "focus-on-map"
setWindowFocusOnMap :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowFocusOnMap :: o -> Bool -> m ()
setWindowFocusOnMap obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "focus-on-map" Bool
val
constructWindowFocusOnMap :: (IsWindow o) => Bool -> IO (GValueConstruct o)
constructWindowFocusOnMap :: Bool -> IO (GValueConstruct o)
constructWindowFocusOnMap val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m Bool
getWindowFocusVisible obj :: o
obj = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WindowCloseRequestCallback
forall a. GObject a => a -> String -> WindowCloseRequestCallback
B.Properties.getObjectPropertyBool o
obj "focus-visible"
setWindowFocusVisible :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowFocusVisible :: o -> Bool -> m ()
setWindowFocusVisible obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "focus-visible" Bool
val
constructWindowFocusVisible :: (IsWindow o) => Bool -> IO (GValueConstruct o)
constructWindowFocusVisible :: Bool -> IO (GValueConstruct o)
constructWindowFocusVisible val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
getWindowHideOnClose :: (MonadIO m, IsWindow o) => o -> m Bool
getWindowHideOnClose :: o -> m Bool
getWindowHideOnClose obj :: o
obj = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WindowCloseRequestCallback
forall a. GObject a => a -> String -> WindowCloseRequestCallback
B.Properties.getObjectPropertyBool o
obj "hide-on-close"
setWindowHideOnClose :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowHideOnClose :: o -> Bool -> m ()
setWindowHideOnClose obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "hide-on-close" Bool
val
constructWindowHideOnClose :: (IsWindow o) => Bool -> IO (GValueConstruct o)
constructWindowHideOnClose :: Bool -> IO (GValueConstruct o)
constructWindowHideOnClose val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "hide-on-close" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowHideOnClosePropertyInfo
instance AttrInfo WindowHideOnClosePropertyInfo where
type AttrAllowedOps WindowHideOnClosePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowHideOnClosePropertyInfo = IsWindow
type AttrSetTypeConstraint WindowHideOnClosePropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowHideOnClosePropertyInfo = (~) Bool
type AttrTransferType WindowHideOnClosePropertyInfo = Bool
type AttrGetType WindowHideOnClosePropertyInfo = Bool
type AttrLabel WindowHideOnClosePropertyInfo = "hide-on-close"
type AttrOrigin WindowHideOnClosePropertyInfo = Window
attrGet = getWindowHideOnClose
attrSet = setWindowHideOnClose
attrTransfer _ v = do
return v
attrConstruct = constructWindowHideOnClose
attrClear = undefined
#endif
getWindowIconName :: (MonadIO m, IsWindow o) => o -> m (Maybe T.Text)
getWindowIconName :: o -> m (Maybe Text)
getWindowIconName obj :: o
obj = 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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "icon-name"
setWindowIconName :: (MonadIO m, IsWindow o) => o -> T.Text -> m ()
setWindowIconName :: o -> Text -> m ()
setWindowIconName obj :: o
obj val :: Text
val = 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 "icon-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructWindowIconName :: (IsWindow o) => T.Text -> IO (GValueConstruct o)
constructWindowIconName :: Text -> IO (GValueConstruct o)
constructWindowIconName val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "icon-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearWindowIconName :: (MonadIO m, IsWindow o) => o -> m ()
clearWindowIconName :: o -> m ()
clearWindowIconName obj :: 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 "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 :: o -> m Bool
getWindowIsActive obj :: o
obj = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WindowCloseRequestCallback
forall a. GObject a => a -> String -> WindowCloseRequestCallback
B.Properties.getObjectPropertyBool o
obj "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 :: o -> m Bool
getWindowIsMaximized obj :: o
obj = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WindowCloseRequestCallback
forall a. GObject a => a -> String -> WindowCloseRequestCallback
B.Properties.getObjectPropertyBool o
obj "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 :: o -> m Bool
getWindowMnemonicsVisible obj :: o
obj = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WindowCloseRequestCallback
forall a. GObject a => a -> String -> WindowCloseRequestCallback
B.Properties.getObjectPropertyBool o
obj "mnemonics-visible"
setWindowMnemonicsVisible :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowMnemonicsVisible :: o -> Bool -> m ()
setWindowMnemonicsVisible obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "mnemonics-visible" Bool
val
constructWindowMnemonicsVisible :: (IsWindow o) => Bool -> IO (GValueConstruct o)
constructWindowMnemonicsVisible :: Bool -> IO (GValueConstruct o)
constructWindowMnemonicsVisible val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m Bool
getWindowModal obj :: o
obj = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WindowCloseRequestCallback
forall a. GObject a => a -> String -> WindowCloseRequestCallback
B.Properties.getObjectPropertyBool o
obj "modal"
setWindowModal :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowModal :: o -> Bool -> m ()
setWindowModal obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "modal" Bool
val
constructWindowModal :: (IsWindow o) => Bool -> IO (GValueConstruct o)
constructWindowModal :: Bool -> IO (GValueConstruct o)
constructWindowModal val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m Bool
getWindowResizable obj :: o
obj = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> WindowCloseRequestCallback
forall a. GObject a => a -> String -> WindowCloseRequestCallback
B.Properties.getObjectPropertyBool o
obj "resizable"
setWindowResizable :: (MonadIO m, IsWindow o) => o -> Bool -> m ()
setWindowResizable :: o -> Bool -> m ()
setWindowResizable obj :: o
obj val :: Bool
val = 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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "resizable" Bool
val
constructWindowResizable :: (IsWindow o) => Bool -> IO (GValueConstruct o)
constructWindowResizable :: Bool -> IO (GValueConstruct o)
constructWindowResizable val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
setWindowStartupId :: (MonadIO m, IsWindow o) => o -> T.Text -> m ()
setWindowStartupId :: o -> Text -> m ()
setWindowStartupId obj :: o
obj val :: Text
val = 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 "startup-id" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructWindowStartupId :: (IsWindow o) => T.Text -> IO (GValueConstruct o)
constructWindowStartupId :: Text -> IO (GValueConstruct o)
constructWindowStartupId val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "startup-id" (Text -> Maybe Text
forall a. a -> Maybe a
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 :: o -> m (Maybe Text)
getWindowTitle obj :: o
obj = 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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "title"
setWindowTitle :: (MonadIO m, IsWindow o) => o -> T.Text -> m ()
setWindowTitle :: o -> Text -> m ()
setWindowTitle obj :: o
obj val :: Text
val = 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 "title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructWindowTitle :: (IsWindow o) => T.Text -> IO (GValueConstruct o)
constructWindowTitle :: Text -> IO (GValueConstruct o)
constructWindowTitle val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "title" (Text -> Maybe Text
forall a. a -> Maybe a
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 :: o -> m (Maybe Window)
getWindowTransientFor obj :: o
obj = 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
$ 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 "transient-for" ManagedPtr Window -> Window
Window
setWindowTransientFor :: (MonadIO m, IsWindow o, IsWindow a) => o -> a -> m ()
setWindowTransientFor :: o -> a -> m ()
setWindowTransientFor obj :: o
obj val :: a
val = 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 a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "transient-for" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWindowTransientFor :: (IsWindow o, IsWindow a) => a -> IO (GValueConstruct o)
constructWindowTransientFor :: a -> IO (GValueConstruct o)
constructWindowTransientFor val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "transient-for" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearWindowTransientFor :: (MonadIO m, IsWindow o) => o -> m ()
clearWindowTransientFor :: o -> m ()
clearWindowTransientFor obj :: 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 "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 :: o -> m WindowType
getWindowType obj :: o
obj = 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
$ o -> String -> IO WindowType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "type"
constructWindowType :: (IsWindow o) => Gtk.Enums.WindowType -> IO (GValueConstruct o)
constructWindowType :: WindowType -> IO (GValueConstruct o)
constructWindowType val :: WindowType
val = String -> WindowType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "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.SurfaceTypeHint
getWindowTypeHint :: o -> m SurfaceTypeHint
getWindowTypeHint obj :: o
obj = IO SurfaceTypeHint -> m SurfaceTypeHint
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SurfaceTypeHint -> m SurfaceTypeHint)
-> IO SurfaceTypeHint -> m SurfaceTypeHint
forall a b. (a -> b) -> a -> b
$ o -> String -> IO SurfaceTypeHint
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "type-hint"
setWindowTypeHint :: (MonadIO m, IsWindow o) => o -> Gdk.Enums.SurfaceTypeHint -> m ()
setWindowTypeHint :: o -> SurfaceTypeHint -> m ()
setWindowTypeHint obj :: o
obj val :: SurfaceTypeHint
val = 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 -> SurfaceTypeHint -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "type-hint" SurfaceTypeHint
val
constructWindowTypeHint :: (IsWindow o) => Gdk.Enums.SurfaceTypeHint -> IO (GValueConstruct o)
constructWindowTypeHint :: SurfaceTypeHint -> IO (GValueConstruct o)
constructWindowTypeHint val :: SurfaceTypeHint
val = String -> SurfaceTypeHint -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "type-hint" SurfaceTypeHint
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.SurfaceTypeHint
type AttrTransferTypeConstraint WindowTypeHintPropertyInfo = (~) Gdk.Enums.SurfaceTypeHint
type AttrTransferType WindowTypeHintPropertyInfo = Gdk.Enums.SurfaceTypeHint
type AttrGetType WindowTypeHintPropertyInfo = Gdk.Enums.SurfaceTypeHint
type AttrLabel WindowTypeHintPropertyInfo = "type-hint"
type AttrOrigin WindowTypeHintPropertyInfo = Window
attrGet = getWindowTypeHint
attrSet = setWindowTypeHint
attrTransfer _ v = do
return v
attrConstruct = constructWindowTypeHint
attrClear = undefined
#endif
getWindowWindowPosition :: (MonadIO m, IsWindow o) => o -> m Gtk.Enums.WindowPosition
getWindowWindowPosition :: o -> m WindowPosition
getWindowWindowPosition obj :: o
obj = IO WindowPosition -> m WindowPosition
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 "window-position"
setWindowWindowPosition :: (MonadIO m, IsWindow o) => o -> Gtk.Enums.WindowPosition -> m ()
setWindowWindowPosition :: o -> WindowPosition -> m ()
setWindowWindowPosition obj :: o
obj val :: WindowPosition
val = 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 -> WindowPosition -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "window-position" WindowPosition
val
constructWindowWindowPosition :: (IsWindow o) => Gtk.Enums.WindowPosition -> IO (GValueConstruct o)
constructWindowWindowPosition :: WindowPosition -> IO (GValueConstruct o)
constructWindowWindowPosition val :: WindowPosition
val = String -> WindowPosition -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "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), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidget", WindowDefaultWidgetPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("display", WindowDisplayPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("focusWidget", Gtk.Root.RootFocusWidgetPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("hideOnClose", WindowHideOnClosePropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("surface", Gtk.Widget.WidgetSurfacePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("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
windowDefaultWidget :: AttrLabelProxy "defaultWidget"
windowDefaultWidget = AttrLabelProxy
windowDefaultWidth :: AttrLabelProxy "defaultWidth"
windowDefaultWidth = AttrLabelProxy
windowDeletable :: AttrLabelProxy "deletable"
windowDeletable = AttrLabelProxy
windowDestroyWithParent :: AttrLabelProxy "destroyWithParent"
windowDestroyWithParent = AttrLabelProxy
windowDisplay :: AttrLabelProxy "display"
windowDisplay = AttrLabelProxy
windowFocusOnMap :: AttrLabelProxy "focusOnMap"
windowFocusOnMap = AttrLabelProxy
windowFocusVisible :: AttrLabelProxy "focusVisible"
windowFocusVisible = AttrLabelProxy
windowHideOnClose :: AttrLabelProxy "hideOnClose"
windowHideOnClose = AttrLabelProxy
windowIconName :: AttrLabelProxy "iconName"
windowIconName = AttrLabelProxy
windowMnemonicsVisible :: AttrLabelProxy "mnemonicsVisible"
windowMnemonicsVisible = AttrLabelProxy
windowModal :: AttrLabelProxy "modal"
windowModal = AttrLabelProxy
windowResizable :: AttrLabelProxy "resizable"
windowResizable = 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
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), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("closeRequest", WindowCloseRequestSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("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), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(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 :: WindowType -> m Window
windowNew type_ :: 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 "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_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 :: a -> EventKey -> m Bool
windowActivateKey window :: a
window event :: EventKey
event = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> 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
/= 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.MethodInfo WindowActivateKeyMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m ()
windowAddAccelGroup window :: a
window accelGroup :: 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.MethodInfo WindowAddAccelGroupMethodInfo a signature where
overloadedMethod = 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 :: a -> Word32 -> b -> m ()
windowAddMnemonic window :: a
window keyval :: Word32
keyval target :: 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.MethodInfo WindowAddMnemonicMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> Int32 -> Int32 -> Word32 -> m ()
windowBeginMoveDrag window :: a
window button :: Int32
button x :: Int32
x y :: Int32
y timestamp :: 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
x Int32
y 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.MethodInfo WindowBeginMoveDragMethodInfo a signature where
overloadedMethod = 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.SurfaceEdge
-> Int32
-> Int32
-> Int32
-> Word32
-> m ()
windowBeginResizeDrag :: a -> SurfaceEdge -> Int32 -> Int32 -> Int32 -> Word32 -> m ()
windowBeginResizeDrag window :: a
window edge :: SurfaceEdge
edge button :: Int32
button x :: Int32
x y :: Int32
y timestamp :: 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) -> (SurfaceEdge -> Int) -> SurfaceEdge -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SurfaceEdge -> Int
forall a. Enum a => a -> Int
fromEnum) SurfaceEdge
edge
Ptr Window -> CUInt -> Int32 -> Int32 -> Int32 -> Word32 -> IO ()
gtk_window_begin_resize_drag Ptr Window
window' CUInt
edge' Int32
button Int32
x Int32
y 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.SurfaceEdge -> Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowBeginResizeDragMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
windowClose window :: 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.MethodInfo WindowCloseMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
windowDeiconify window :: 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.MethodInfo WindowDeiconifyMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
windowFullscreen window :: 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.MethodInfo WindowFullscreenMethodInfo a signature where
overloadedMethod = windowFullscreen
#endif
foreign import ccall "gtk_window_fullscreen_on_monitor" gtk_window_fullscreen_on_monitor ::
Ptr Window ->
Ptr Gdk.Monitor.Monitor ->
IO ()
windowFullscreenOnMonitor ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gdk.Monitor.IsMonitor b) =>
a
-> b
-> m ()
windowFullscreenOnMonitor :: a -> b -> m ()
windowFullscreenOnMonitor window :: a
window monitor :: b
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 Monitor
monitor' <- b -> IO (Ptr Monitor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
monitor
Ptr Window -> Ptr Monitor -> IO ()
gtk_window_fullscreen_on_monitor Ptr Window
window' Ptr Monitor
monitor'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
monitor
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowFullscreenOnMonitorMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWindow a, Gdk.Monitor.IsMonitor b) => O.MethodInfo WindowFullscreenOnMonitorMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
windowGetAcceptFocus window :: a
window = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> 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
/= 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.MethodInfo WindowGetAcceptFocusMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Application)
windowGetApplication window :: 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
$ \result' :: 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.MethodInfo WindowGetApplicationMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Widget)
windowGetAttachedTo window :: 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
$ \result' :: 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.MethodInfo WindowGetAttachedToMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
windowGetDecorated window :: a
window = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> 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
/= 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.MethodInfo WindowGetDecoratedMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Int32, Int32)
windowGetDefaultSize window :: 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.MethodInfo WindowGetDefaultSizeMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Widget)
windowGetDefaultWidget window :: 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
$ \result' :: 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.MethodInfo WindowGetDefaultWidgetMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
windowGetDeletable window :: a
window = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> 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
/= 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.MethodInfo WindowGetDeletableMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
windowGetDestroyWithParent window :: a
window = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> 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
/= 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.MethodInfo WindowGetDestroyWithParentMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Widget)
windowGetFocus window :: 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
$ \result' :: 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.MethodInfo WindowGetFocusMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
windowGetFocusOnMap window :: a
window = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> 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
/= 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.MethodInfo WindowGetFocusOnMapMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
windowGetFocusVisible window :: a
window = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> 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
/= 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.MethodInfo WindowGetFocusVisibleMethodInfo a signature where
overloadedMethod = windowGetFocusVisible
#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 :: a -> m WindowGroup
windowGetGroup window :: 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 "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.MethodInfo WindowGetGroupMethodInfo a signature where
overloadedMethod = windowGetGroup
#endif
foreign import ccall "gtk_window_get_hide_on_close" gtk_window_get_hide_on_close ::
Ptr Window ->
IO CInt
windowGetHideOnClose ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m Bool
windowGetHideOnClose :: a -> m Bool
windowGetHideOnClose window :: a
window = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> 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_on_close Ptr Window
window'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 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 WindowGetHideOnCloseMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowGetHideOnCloseMethodInfo a signature where
overloadedMethod = windowGetHideOnClose
#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 :: a -> m (Maybe Text)
windowGetIconName window :: 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
$ \result' :: 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.MethodInfo WindowGetIconNameMethodInfo a signature where
overloadedMethod = 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 :: a -> m [ModifierType]
windowGetMnemonicModifier window :: 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.MethodInfo WindowGetMnemonicModifierMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
windowGetMnemonicsVisible window :: a
window = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> 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
/= 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.MethodInfo WindowGetMnemonicsVisibleMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
windowGetModal window :: a
window = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> 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
/= 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.MethodInfo WindowGetModalMethodInfo a signature where
overloadedMethod = windowGetModal
#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 :: a -> m Bool
windowGetResizable window :: a
window = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> 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
/= 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.MethodInfo WindowGetResizableMethodInfo a signature where
overloadedMethod = windowGetResizable
#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 :: a -> m (Int32, Int32)
windowGetSize window :: 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.MethodInfo WindowGetSizeMethodInfo a signature where
overloadedMethod = windowGetSize
#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 :: a -> m (Maybe Text)
windowGetTitle window :: 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
$ \result' :: 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.MethodInfo WindowGetTitleMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Widget)
windowGetTitlebar window :: 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
$ \result' :: 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.MethodInfo WindowGetTitlebarMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Window)
windowGetTransientFor window :: 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
$ \result' :: 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.MethodInfo WindowGetTransientForMethodInfo a signature where
overloadedMethod = 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.SurfaceTypeHint
windowGetTypeHint :: a -> m SurfaceTypeHint
windowGetTypeHint window :: a
window = IO SurfaceTypeHint -> m SurfaceTypeHint
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SurfaceTypeHint -> m SurfaceTypeHint)
-> IO SurfaceTypeHint -> m SurfaceTypeHint
forall a b. (a -> 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' :: SurfaceTypeHint
result' = (Int -> SurfaceTypeHint
forall a. Enum a => Int -> a
toEnum (Int -> SurfaceTypeHint)
-> (CUInt -> Int) -> CUInt -> SurfaceTypeHint
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
SurfaceTypeHint -> IO SurfaceTypeHint
forall (m :: * -> *) a. Monad m => a -> m a
return SurfaceTypeHint
result'
#if defined(ENABLE_OVERLOADING)
data WindowGetTypeHintMethodInfo
instance (signature ~ (m Gdk.Enums.SurfaceTypeHint), MonadIO m, IsWindow a) => O.MethodInfo WindowGetTypeHintMethodInfo a signature where
overloadedMethod = windowGetTypeHint
#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 :: a -> m WindowType
windowGetWindowType window :: 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.MethodInfo WindowGetWindowTypeMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
windowHasGroup window :: a
window = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> 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
/= 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.MethodInfo WindowHasGroupMethodInfo a signature where
overloadedMethod = windowHasGroup
#endif
foreign import ccall "gtk_window_iconify" gtk_window_iconify ::
Ptr Window ->
IO ()
windowIconify ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowIconify :: a -> m ()
windowIconify window :: 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.MethodInfo WindowIconifyMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
windowIsActive window :: a
window = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> 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
/= 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.MethodInfo WindowIsActiveMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
windowIsMaximized window :: a
window = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> 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
/= 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.MethodInfo WindowIsMaximizedMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
windowMaximize window :: 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.MethodInfo WindowMaximizeMethodInfo a signature where
overloadedMethod = 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 :: a -> Word32 -> [ModifierType] -> m Bool
windowMnemonicActivate window :: a
window keyval :: Word32
keyval modifier :: [ModifierType]
modifier = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> 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
/= 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.MethodInfo WindowMnemonicActivateMethodInfo a signature where
overloadedMethod = windowMnemonicActivate
#endif
foreign import ccall "gtk_window_present" gtk_window_present ::
Ptr Window ->
IO ()
windowPresent ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowPresent :: a -> m ()
windowPresent window :: 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.MethodInfo WindowPresentMethodInfo a signature where
overloadedMethod = 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 :: a -> Word32 -> m ()
windowPresentWithTime window :: a
window timestamp :: 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.MethodInfo WindowPresentWithTimeMethodInfo a signature where
overloadedMethod = 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 :: a -> EventKey -> m Bool
windowPropagateKeyEvent window :: a
window event :: EventKey
event = WindowCloseRequestCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (WindowCloseRequestCallback -> m Bool)
-> WindowCloseRequestCallback -> 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
/= 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.MethodInfo WindowPropagateKeyEventMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m ()
windowRemoveAccelGroup window :: a
window accelGroup :: 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.MethodInfo WindowRemoveAccelGroupMethodInfo a signature where
overloadedMethod = 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 :: a -> Word32 -> b -> m ()
windowRemoveMnemonic window :: a
window keyval :: Word32
keyval target :: 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.MethodInfo WindowRemoveMnemonicMethodInfo a signature where
overloadedMethod = windowRemoveMnemonic
#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 :: a -> Int32 -> Int32 -> m ()
windowResize window :: a
window width :: Int32
width height :: 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.MethodInfo WindowResizeMethodInfo a signature where
overloadedMethod = windowResize
#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 :: a -> Bool -> m ()
windowSetAcceptFocus window :: a
window setting :: 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.MethodInfo WindowSetAcceptFocusMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe b -> m ()
windowSetApplication window :: a
window application :: 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
Nothing -> Ptr Application -> IO (Ptr Application)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Application
forall a. Ptr a
nullPtr
Just jApplication :: 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.MethodInfo WindowSetApplicationMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe b -> m ()
windowSetAttachedTo window :: a
window attachWidget :: 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
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jAttachWidget :: 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.MethodInfo WindowSetAttachedToMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
windowSetDecorated window :: a
window setting :: 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.MethodInfo WindowSetDecoratedMethodInfo a signature where
overloadedMethod = windowSetDecorated
#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 :: a -> Int32 -> Int32 -> m ()
windowSetDefaultSize window :: a
window width :: Int32
width height :: 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.MethodInfo WindowSetDefaultSizeMethodInfo a signature where
overloadedMethod = windowSetDefaultSize
#endif
foreign import ccall "gtk_window_set_default_widget" gtk_window_set_default_widget ::
Ptr Window ->
Ptr Gtk.Widget.Widget ->
IO ()
windowSetDefaultWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
windowSetDefaultWidget :: a -> Maybe b -> m ()
windowSetDefaultWidget window :: a
window defaultWidget :: 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
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jDefaultWidget :: 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_widget 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 WindowSetDefaultWidgetMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWindow a, Gtk.Widget.IsWidget b) => O.MethodInfo WindowSetDefaultWidgetMethodInfo a signature where
overloadedMethod = windowSetDefaultWidget
#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 :: a -> Bool -> m ()
windowSetDeletable window :: a
window setting :: 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.MethodInfo WindowSetDeletableMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
windowSetDestroyWithParent window :: a
window setting :: 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.MethodInfo WindowSetDestroyWithParentMethodInfo a signature where
overloadedMethod = windowSetDestroyWithParent
#endif
foreign import ccall "gtk_window_set_display" gtk_window_set_display ::
Ptr Window ->
Ptr Gdk.Display.Display ->
IO ()
windowSetDisplay ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gdk.Display.IsDisplay b) =>
a
-> b
-> m ()
windowSetDisplay :: a -> b -> m ()
windowSetDisplay window :: a
window display :: b
display = 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 Display
display' <- b -> IO (Ptr Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
display
Ptr Window -> Ptr Display -> IO ()
gtk_window_set_display Ptr Window
window' Ptr Display
display'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
display
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowSetDisplayMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsWindow a, Gdk.Display.IsDisplay b) => O.MethodInfo WindowSetDisplayMethodInfo a signature where
overloadedMethod = windowSetDisplay
#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 :: a -> Maybe b -> m ()
windowSetFocus window :: a
window focus :: 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
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jFocus :: 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.MethodInfo WindowSetFocusMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
windowSetFocusOnMap window :: a
window setting :: 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.MethodInfo WindowSetFocusOnMapMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
windowSetFocusVisible window :: a
window setting :: 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.MethodInfo WindowSetFocusVisibleMethodInfo a signature where
overloadedMethod = windowSetFocusVisible
#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 :: a -> Bool -> m ()
windowSetHasUserRefCount window :: a
window setting :: 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.MethodInfo WindowSetHasUserRefCountMethodInfo a signature where
overloadedMethod = windowSetHasUserRefCount
#endif
foreign import ccall "gtk_window_set_hide_on_close" gtk_window_set_hide_on_close ::
Ptr Window ->
CInt ->
IO ()
windowSetHideOnClose ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> Bool
-> m ()
windowSetHideOnClose :: a -> Bool -> m ()
windowSetHideOnClose window :: a
window setting :: 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_on_close 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 WindowSetHideOnCloseMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetHideOnCloseMethodInfo a signature where
overloadedMethod = windowSetHideOnClose
#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 :: a -> Maybe Text -> m ()
windowSetIconName window :: a
window name :: 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
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jName :: 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.MethodInfo WindowSetIconNameMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
windowSetKeepAbove window :: a
window setting :: 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.MethodInfo WindowSetKeepAboveMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
windowSetKeepBelow window :: a
window setting :: 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.MethodInfo WindowSetKeepBelowMethodInfo a signature where
overloadedMethod = 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 :: a -> [ModifierType] -> m ()
windowSetMnemonicModifier window :: a
window modifier :: [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.MethodInfo WindowSetMnemonicModifierMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
windowSetMnemonicsVisible window :: a
window setting :: 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.MethodInfo WindowSetMnemonicsVisibleMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
windowSetModal window :: a
window modal :: 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.MethodInfo WindowSetModalMethodInfo a signature where
overloadedMethod = windowSetModal
#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 :: a -> WindowPosition -> m ()
windowSetPosition window :: a
window position :: 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.MethodInfo WindowSetPositionMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
windowSetResizable window :: a
window resizable :: 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.MethodInfo WindowSetResizableMethodInfo a signature where
overloadedMethod = windowSetResizable
#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 :: a -> Text -> m ()
windowSetStartupId window :: a
window startupId :: 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.MethodInfo WindowSetStartupIdMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> m ()
windowSetTitle window :: a
window title :: 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.MethodInfo WindowSetTitleMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe b -> m ()
windowSetTitlebar window :: a
window titlebar :: 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
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jTitlebar :: 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.MethodInfo WindowSetTitlebarMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe b -> m ()
windowSetTransientFor window :: a
window parent :: 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
Nothing -> Ptr Window -> IO (Ptr Window)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Window
forall a. Ptr a
nullPtr
Just jParent :: 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.MethodInfo WindowSetTransientForMethodInfo a signature where
overloadedMethod = 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.SurfaceTypeHint
-> m ()
windowSetTypeHint :: a -> SurfaceTypeHint -> m ()
windowSetTypeHint window :: a
window hint :: SurfaceTypeHint
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)
-> (SurfaceTypeHint -> Int) -> SurfaceTypeHint -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SurfaceTypeHint -> Int
forall a. Enum a => a -> Int
fromEnum) SurfaceTypeHint
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.SurfaceTypeHint -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetTypeHintMethodInfo a signature where
overloadedMethod = windowSetTypeHint
#endif
foreign import ccall "gtk_window_stick" gtk_window_stick ::
Ptr Window ->
IO ()
windowStick ::
(B.CallStack.HasCallStack, MonadIO m, IsWindow a) =>
a
-> m ()
windowStick :: a -> m ()
windowStick window :: 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.MethodInfo WindowStickMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
windowUnfullscreen window :: 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.MethodInfo WindowUnfullscreenMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
windowUnmaximize window :: 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.MethodInfo WindowUnmaximizeMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
windowUnstick window :: 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.MethodInfo WindowUnstickMethodInfo a signature where
overloadedMethod = windowUnstick
#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 :: 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 "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_get_toplevels" gtk_window_get_toplevels ::
IO (Ptr Gio.ListModel.ListModel)
windowGetToplevels ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Gio.ListModel.ListModel
windowGetToplevels :: m ListModel
windowGetToplevels = IO ListModel -> m ListModel
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ListModel -> m ListModel) -> IO ListModel -> m ListModel
forall a b. (a -> b) -> a -> b
$ do
Ptr ListModel
result <- IO (Ptr ListModel)
gtk_window_get_toplevels
Text -> Ptr ListModel -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "windowGetToplevels" Ptr ListModel
result
ListModel
result' <- ((ManagedPtr ListModel -> ListModel)
-> Ptr ListModel -> IO ListModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListModel -> ListModel
Gio.ListModel.ListModel) Ptr ListModel
result
ListModel -> IO ListModel
forall (m :: * -> *) a. Monad m => a -> m a
return ListModel
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 :: 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 :: Bool -> m ()
windowSetAutoStartupNotification setting :: 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_name" gtk_window_set_default_icon_name ::
CString ->
IO ()
windowSetDefaultIconName ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m ()
windowSetDefaultIconName :: Text -> m ()
windowSetDefaultIconName name :: 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 :: Bool -> m ()
windowSetInteractiveDebugging enable :: 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