{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.WindowProperties
(
WindowProperties(..) ,
IsWindowProperties ,
toWindowProperties ,
noWindowProperties ,
#if defined(ENABLE_OVERLOADING)
ResolveWindowPropertiesMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowPropertiesGetFullscreenMethodInfo ,
#endif
windowPropertiesGetFullscreen ,
#if defined(ENABLE_OVERLOADING)
WindowPropertiesGetGeometryMethodInfo ,
#endif
windowPropertiesGetGeometry ,
#if defined(ENABLE_OVERLOADING)
WindowPropertiesGetLocationbarVisibleMethodInfo,
#endif
windowPropertiesGetLocationbarVisible ,
#if defined(ENABLE_OVERLOADING)
WindowPropertiesGetMenubarVisibleMethodInfo,
#endif
windowPropertiesGetMenubarVisible ,
#if defined(ENABLE_OVERLOADING)
WindowPropertiesGetResizableMethodInfo ,
#endif
windowPropertiesGetResizable ,
#if defined(ENABLE_OVERLOADING)
WindowPropertiesGetScrollbarsVisibleMethodInfo,
#endif
windowPropertiesGetScrollbarsVisible ,
#if defined(ENABLE_OVERLOADING)
WindowPropertiesGetStatusbarVisibleMethodInfo,
#endif
windowPropertiesGetStatusbarVisible ,
#if defined(ENABLE_OVERLOADING)
WindowPropertiesGetToolbarVisibleMethodInfo,
#endif
windowPropertiesGetToolbarVisible ,
#if defined(ENABLE_OVERLOADING)
WindowPropertiesFullscreenPropertyInfo ,
#endif
constructWindowPropertiesFullscreen ,
getWindowPropertiesFullscreen ,
#if defined(ENABLE_OVERLOADING)
windowPropertiesFullscreen ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowPropertiesGeometryPropertyInfo ,
#endif
constructWindowPropertiesGeometry ,
getWindowPropertiesGeometry ,
#if defined(ENABLE_OVERLOADING)
windowPropertiesGeometry ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowPropertiesLocationbarVisiblePropertyInfo,
#endif
constructWindowPropertiesLocationbarVisible,
getWindowPropertiesLocationbarVisible ,
#if defined(ENABLE_OVERLOADING)
windowPropertiesLocationbarVisible ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowPropertiesMenubarVisiblePropertyInfo,
#endif
constructWindowPropertiesMenubarVisible ,
getWindowPropertiesMenubarVisible ,
#if defined(ENABLE_OVERLOADING)
windowPropertiesMenubarVisible ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowPropertiesResizablePropertyInfo ,
#endif
constructWindowPropertiesResizable ,
getWindowPropertiesResizable ,
#if defined(ENABLE_OVERLOADING)
windowPropertiesResizable ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowPropertiesScrollbarsVisiblePropertyInfo,
#endif
constructWindowPropertiesScrollbarsVisible,
getWindowPropertiesScrollbarsVisible ,
#if defined(ENABLE_OVERLOADING)
windowPropertiesScrollbarsVisible ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowPropertiesStatusbarVisiblePropertyInfo,
#endif
constructWindowPropertiesStatusbarVisible,
getWindowPropertiesStatusbarVisible ,
#if defined(ENABLE_OVERLOADING)
windowPropertiesStatusbarVisible ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowPropertiesToolbarVisiblePropertyInfo,
#endif
constructWindowPropertiesToolbarVisible ,
getWindowPropertiesToolbarVisible ,
#if defined(ENABLE_OVERLOADING)
windowPropertiesToolbarVisible ,
#endif
) 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.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
newtype WindowProperties = WindowProperties (ManagedPtr WindowProperties)
deriving (WindowProperties -> WindowProperties -> Bool
(WindowProperties -> WindowProperties -> Bool)
-> (WindowProperties -> WindowProperties -> Bool)
-> Eq WindowProperties
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WindowProperties -> WindowProperties -> Bool
$c/= :: WindowProperties -> WindowProperties -> Bool
== :: WindowProperties -> WindowProperties -> Bool
$c== :: WindowProperties -> WindowProperties -> Bool
Eq)
foreign import ccall "webkit_window_properties_get_type"
c_webkit_window_properties_get_type :: IO GType
instance GObject WindowProperties where
gobjectType :: IO GType
gobjectType = IO GType
c_webkit_window_properties_get_type
instance B.GValue.IsGValue WindowProperties where
toGValue :: WindowProperties -> IO GValue
toGValue o :: WindowProperties
o = do
GType
gtype <- IO GType
c_webkit_window_properties_get_type
WindowProperties
-> (Ptr WindowProperties -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr WindowProperties
o (GType
-> (GValue -> Ptr WindowProperties -> IO ())
-> Ptr WindowProperties
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr WindowProperties -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO WindowProperties
fromGValue gv :: GValue
gv = do
Ptr WindowProperties
ptr <- GValue -> IO (Ptr WindowProperties)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr WindowProperties)
(ManagedPtr WindowProperties -> WindowProperties)
-> Ptr WindowProperties -> IO WindowProperties
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr WindowProperties -> WindowProperties
WindowProperties Ptr WindowProperties
ptr
class (GObject o, O.IsDescendantOf WindowProperties o) => IsWindowProperties o
instance (GObject o, O.IsDescendantOf WindowProperties o) => IsWindowProperties o
instance O.HasParentTypes WindowProperties
type instance O.ParentTypes WindowProperties = '[GObject.Object.Object]
toWindowProperties :: (MonadIO m, IsWindowProperties o) => o -> m WindowProperties
toWindowProperties :: o -> m WindowProperties
toWindowProperties = IO WindowProperties -> m WindowProperties
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WindowProperties -> m WindowProperties)
-> (o -> IO WindowProperties) -> o -> m WindowProperties
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr WindowProperties -> WindowProperties)
-> o -> IO WindowProperties
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr WindowProperties -> WindowProperties
WindowProperties
noWindowProperties :: Maybe WindowProperties
noWindowProperties :: Maybe WindowProperties
noWindowProperties = Maybe WindowProperties
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveWindowPropertiesMethod (t :: Symbol) (o :: *) :: * where
ResolveWindowPropertiesMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveWindowPropertiesMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveWindowPropertiesMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWindowPropertiesMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWindowPropertiesMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveWindowPropertiesMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveWindowPropertiesMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWindowPropertiesMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWindowPropertiesMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWindowPropertiesMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWindowPropertiesMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWindowPropertiesMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWindowPropertiesMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWindowPropertiesMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveWindowPropertiesMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveWindowPropertiesMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWindowPropertiesMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveWindowPropertiesMethod "getFullscreen" o = WindowPropertiesGetFullscreenMethodInfo
ResolveWindowPropertiesMethod "getGeometry" o = WindowPropertiesGetGeometryMethodInfo
ResolveWindowPropertiesMethod "getLocationbarVisible" o = WindowPropertiesGetLocationbarVisibleMethodInfo
ResolveWindowPropertiesMethod "getMenubarVisible" o = WindowPropertiesGetMenubarVisibleMethodInfo
ResolveWindowPropertiesMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWindowPropertiesMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWindowPropertiesMethod "getResizable" o = WindowPropertiesGetResizableMethodInfo
ResolveWindowPropertiesMethod "getScrollbarsVisible" o = WindowPropertiesGetScrollbarsVisibleMethodInfo
ResolveWindowPropertiesMethod "getStatusbarVisible" o = WindowPropertiesGetStatusbarVisibleMethodInfo
ResolveWindowPropertiesMethod "getToolbarVisible" o = WindowPropertiesGetToolbarVisibleMethodInfo
ResolveWindowPropertiesMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWindowPropertiesMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveWindowPropertiesMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWindowPropertiesMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWindowPropertiesMethod t WindowProperties, O.MethodInfo info WindowProperties p) => OL.IsLabel t (WindowProperties -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getWindowPropertiesFullscreen :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesFullscreen :: o -> m Bool
getWindowPropertiesFullscreen obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "fullscreen"
constructWindowPropertiesFullscreen :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
constructWindowPropertiesFullscreen :: Bool -> IO (GValueConstruct o)
constructWindowPropertiesFullscreen val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "fullscreen" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowPropertiesFullscreenPropertyInfo
instance AttrInfo WindowPropertiesFullscreenPropertyInfo where
type AttrAllowedOps WindowPropertiesFullscreenPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowPropertiesFullscreenPropertyInfo = IsWindowProperties
type AttrSetTypeConstraint WindowPropertiesFullscreenPropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowPropertiesFullscreenPropertyInfo = (~) Bool
type AttrTransferType WindowPropertiesFullscreenPropertyInfo = Bool
type AttrGetType WindowPropertiesFullscreenPropertyInfo = Bool
type AttrLabel WindowPropertiesFullscreenPropertyInfo = "fullscreen"
type AttrOrigin WindowPropertiesFullscreenPropertyInfo = WindowProperties
attrGet = getWindowPropertiesFullscreen
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWindowPropertiesFullscreen
attrClear = undefined
#endif
getWindowPropertiesGeometry :: (MonadIO m, IsWindowProperties o) => o -> m (Maybe Gdk.Rectangle.Rectangle)
getWindowPropertiesGeometry :: o -> m (Maybe Rectangle)
getWindowPropertiesGeometry obj :: o
obj = IO (Maybe Rectangle) -> m (Maybe Rectangle)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Rectangle) -> m (Maybe Rectangle))
-> IO (Maybe Rectangle) -> m (Maybe Rectangle)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Rectangle -> Rectangle)
-> IO (Maybe Rectangle)
forall a b.
(GObject a, BoxedObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj "geometry" ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle
constructWindowPropertiesGeometry :: (IsWindowProperties o) => Gdk.Rectangle.Rectangle -> IO (GValueConstruct o)
constructWindowPropertiesGeometry :: Rectangle -> IO (GValueConstruct o)
constructWindowPropertiesGeometry val :: Rectangle
val = String -> Maybe Rectangle -> IO (GValueConstruct o)
forall a o.
BoxedObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed "geometry" (Rectangle -> Maybe Rectangle
forall a. a -> Maybe a
Just Rectangle
val)
#if defined(ENABLE_OVERLOADING)
data WindowPropertiesGeometryPropertyInfo
instance AttrInfo WindowPropertiesGeometryPropertyInfo where
type AttrAllowedOps WindowPropertiesGeometryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WindowPropertiesGeometryPropertyInfo = IsWindowProperties
type AttrSetTypeConstraint WindowPropertiesGeometryPropertyInfo = (~) Gdk.Rectangle.Rectangle
type AttrTransferTypeConstraint WindowPropertiesGeometryPropertyInfo = (~) Gdk.Rectangle.Rectangle
type AttrTransferType WindowPropertiesGeometryPropertyInfo = Gdk.Rectangle.Rectangle
type AttrGetType WindowPropertiesGeometryPropertyInfo = (Maybe Gdk.Rectangle.Rectangle)
type AttrLabel WindowPropertiesGeometryPropertyInfo = "geometry"
type AttrOrigin WindowPropertiesGeometryPropertyInfo = WindowProperties
attrGet = getWindowPropertiesGeometry
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWindowPropertiesGeometry
attrClear = undefined
#endif
getWindowPropertiesLocationbarVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesLocationbarVisible :: o -> m Bool
getWindowPropertiesLocationbarVisible obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "locationbar-visible"
constructWindowPropertiesLocationbarVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
constructWindowPropertiesLocationbarVisible :: Bool -> IO (GValueConstruct o)
constructWindowPropertiesLocationbarVisible val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "locationbar-visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowPropertiesLocationbarVisiblePropertyInfo
instance AttrInfo WindowPropertiesLocationbarVisiblePropertyInfo where
type AttrAllowedOps WindowPropertiesLocationbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowPropertiesLocationbarVisiblePropertyInfo = IsWindowProperties
type AttrSetTypeConstraint WindowPropertiesLocationbarVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowPropertiesLocationbarVisiblePropertyInfo = (~) Bool
type AttrTransferType WindowPropertiesLocationbarVisiblePropertyInfo = Bool
type AttrGetType WindowPropertiesLocationbarVisiblePropertyInfo = Bool
type AttrLabel WindowPropertiesLocationbarVisiblePropertyInfo = "locationbar-visible"
type AttrOrigin WindowPropertiesLocationbarVisiblePropertyInfo = WindowProperties
attrGet = getWindowPropertiesLocationbarVisible
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWindowPropertiesLocationbarVisible
attrClear = undefined
#endif
getWindowPropertiesMenubarVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool
obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "menubar-visible"
constructWindowPropertiesMenubarVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "menubar-visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowPropertiesMenubarVisiblePropertyInfo
instance AttrInfo WindowPropertiesMenubarVisiblePropertyInfo where
type AttrAllowedOps WindowPropertiesMenubarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowPropertiesMenubarVisiblePropertyInfo = IsWindowProperties
type AttrSetTypeConstraint WindowPropertiesMenubarVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowPropertiesMenubarVisiblePropertyInfo = (~) Bool
type AttrTransferType WindowPropertiesMenubarVisiblePropertyInfo = Bool
type AttrGetType WindowPropertiesMenubarVisiblePropertyInfo = Bool
type AttrLabel WindowPropertiesMenubarVisiblePropertyInfo = "menubar-visible"
type AttrOrigin WindowPropertiesMenubarVisiblePropertyInfo = WindowProperties
attrGet = getWindowPropertiesMenubarVisible
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWindowPropertiesMenubarVisible
attrClear = undefined
#endif
getWindowPropertiesResizable :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesResizable :: o -> m Bool
getWindowPropertiesResizable obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "resizable"
constructWindowPropertiesResizable :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
constructWindowPropertiesResizable :: Bool -> IO (GValueConstruct o)
constructWindowPropertiesResizable 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 WindowPropertiesResizablePropertyInfo
instance AttrInfo WindowPropertiesResizablePropertyInfo where
type AttrAllowedOps WindowPropertiesResizablePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowPropertiesResizablePropertyInfo = IsWindowProperties
type AttrSetTypeConstraint WindowPropertiesResizablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowPropertiesResizablePropertyInfo = (~) Bool
type AttrTransferType WindowPropertiesResizablePropertyInfo = Bool
type AttrGetType WindowPropertiesResizablePropertyInfo = Bool
type AttrLabel WindowPropertiesResizablePropertyInfo = "resizable"
type AttrOrigin WindowPropertiesResizablePropertyInfo = WindowProperties
attrGet = getWindowPropertiesResizable
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWindowPropertiesResizable
attrClear = undefined
#endif
getWindowPropertiesScrollbarsVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesScrollbarsVisible :: o -> m Bool
getWindowPropertiesScrollbarsVisible obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "scrollbars-visible"
constructWindowPropertiesScrollbarsVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
constructWindowPropertiesScrollbarsVisible :: Bool -> IO (GValueConstruct o)
constructWindowPropertiesScrollbarsVisible val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "scrollbars-visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowPropertiesScrollbarsVisiblePropertyInfo
instance AttrInfo WindowPropertiesScrollbarsVisiblePropertyInfo where
type AttrAllowedOps WindowPropertiesScrollbarsVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowPropertiesScrollbarsVisiblePropertyInfo = IsWindowProperties
type AttrSetTypeConstraint WindowPropertiesScrollbarsVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowPropertiesScrollbarsVisiblePropertyInfo = (~) Bool
type AttrTransferType WindowPropertiesScrollbarsVisiblePropertyInfo = Bool
type AttrGetType WindowPropertiesScrollbarsVisiblePropertyInfo = Bool
type AttrLabel WindowPropertiesScrollbarsVisiblePropertyInfo = "scrollbars-visible"
type AttrOrigin WindowPropertiesScrollbarsVisiblePropertyInfo = WindowProperties
attrGet = getWindowPropertiesScrollbarsVisible
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWindowPropertiesScrollbarsVisible
attrClear = undefined
#endif
getWindowPropertiesStatusbarVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesStatusbarVisible :: o -> m Bool
getWindowPropertiesStatusbarVisible obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "statusbar-visible"
constructWindowPropertiesStatusbarVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
constructWindowPropertiesStatusbarVisible :: Bool -> IO (GValueConstruct o)
constructWindowPropertiesStatusbarVisible val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "statusbar-visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowPropertiesStatusbarVisiblePropertyInfo
instance AttrInfo WindowPropertiesStatusbarVisiblePropertyInfo where
type AttrAllowedOps WindowPropertiesStatusbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowPropertiesStatusbarVisiblePropertyInfo = IsWindowProperties
type AttrSetTypeConstraint WindowPropertiesStatusbarVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowPropertiesStatusbarVisiblePropertyInfo = (~) Bool
type AttrTransferType WindowPropertiesStatusbarVisiblePropertyInfo = Bool
type AttrGetType WindowPropertiesStatusbarVisiblePropertyInfo = Bool
type AttrLabel WindowPropertiesStatusbarVisiblePropertyInfo = "statusbar-visible"
type AttrOrigin WindowPropertiesStatusbarVisiblePropertyInfo = WindowProperties
attrGet = getWindowPropertiesStatusbarVisible
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWindowPropertiesStatusbarVisible
attrClear = undefined
#endif
getWindowPropertiesToolbarVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesToolbarVisible :: o -> m Bool
getWindowPropertiesToolbarVisible obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "toolbar-visible"
constructWindowPropertiesToolbarVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
constructWindowPropertiesToolbarVisible :: Bool -> IO (GValueConstruct o)
constructWindowPropertiesToolbarVisible val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "toolbar-visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data WindowPropertiesToolbarVisiblePropertyInfo
instance AttrInfo WindowPropertiesToolbarVisiblePropertyInfo where
type AttrAllowedOps WindowPropertiesToolbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint WindowPropertiesToolbarVisiblePropertyInfo = IsWindowProperties
type AttrSetTypeConstraint WindowPropertiesToolbarVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint WindowPropertiesToolbarVisiblePropertyInfo = (~) Bool
type AttrTransferType WindowPropertiesToolbarVisiblePropertyInfo = Bool
type AttrGetType WindowPropertiesToolbarVisiblePropertyInfo = Bool
type AttrLabel WindowPropertiesToolbarVisiblePropertyInfo = "toolbar-visible"
type AttrOrigin WindowPropertiesToolbarVisiblePropertyInfo = WindowProperties
attrGet = getWindowPropertiesToolbarVisible
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructWindowPropertiesToolbarVisible
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList WindowProperties
type instance O.AttributeList WindowProperties = WindowPropertiesAttributeList
type WindowPropertiesAttributeList = ('[ '("fullscreen", WindowPropertiesFullscreenPropertyInfo), '("geometry", WindowPropertiesGeometryPropertyInfo), '("locationbarVisible", WindowPropertiesLocationbarVisiblePropertyInfo), '("menubarVisible", WindowPropertiesMenubarVisiblePropertyInfo), '("resizable", WindowPropertiesResizablePropertyInfo), '("scrollbarsVisible", WindowPropertiesScrollbarsVisiblePropertyInfo), '("statusbarVisible", WindowPropertiesStatusbarVisiblePropertyInfo), '("toolbarVisible", WindowPropertiesToolbarVisiblePropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
windowPropertiesFullscreen :: AttrLabelProxy "fullscreen"
windowPropertiesFullscreen = AttrLabelProxy
windowPropertiesGeometry :: AttrLabelProxy "geometry"
windowPropertiesGeometry = AttrLabelProxy
windowPropertiesLocationbarVisible :: AttrLabelProxy "locationbarVisible"
windowPropertiesLocationbarVisible = AttrLabelProxy
windowPropertiesMenubarVisible :: AttrLabelProxy "menubarVisible"
windowPropertiesMenubarVisible = AttrLabelProxy
windowPropertiesResizable :: AttrLabelProxy "resizable"
windowPropertiesResizable = AttrLabelProxy
windowPropertiesScrollbarsVisible :: AttrLabelProxy "scrollbarsVisible"
windowPropertiesScrollbarsVisible = AttrLabelProxy
windowPropertiesStatusbarVisible :: AttrLabelProxy "statusbarVisible"
windowPropertiesStatusbarVisible = AttrLabelProxy
windowPropertiesToolbarVisible :: AttrLabelProxy "toolbarVisible"
windowPropertiesToolbarVisible = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList WindowProperties = WindowPropertiesSignalList
type WindowPropertiesSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_window_properties_get_fullscreen" webkit_window_properties_get_fullscreen ::
Ptr WindowProperties ->
IO CInt
windowPropertiesGetFullscreen ::
(B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>
a
-> m Bool
windowPropertiesGetFullscreen :: a -> m Bool
windowPropertiesGetFullscreen windowProperties :: a
windowProperties = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WindowProperties
windowProperties' <- a -> IO (Ptr WindowProperties)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
windowProperties
CInt
result <- Ptr WindowProperties -> IO CInt
webkit_window_properties_get_fullscreen Ptr WindowProperties
windowProperties'
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
windowProperties
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowPropertiesGetFullscreenMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetFullscreenMethodInfo a signature where
overloadedMethod = windowPropertiesGetFullscreen
#endif
foreign import ccall "webkit_window_properties_get_geometry" webkit_window_properties_get_geometry ::
Ptr WindowProperties ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
windowPropertiesGetGeometry ::
(B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>
a
-> m (Gdk.Rectangle.Rectangle)
windowPropertiesGetGeometry :: a -> m Rectangle
windowPropertiesGetGeometry windowProperties :: a
windowProperties = IO Rectangle -> m Rectangle
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Rectangle -> m Rectangle) -> IO Rectangle -> m Rectangle
forall a b. (a -> b) -> a -> b
$ do
Ptr WindowProperties
windowProperties' <- a -> IO (Ptr WindowProperties)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
windowProperties
Ptr Rectangle
geometry <- Int -> IO (Ptr Rectangle)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
Ptr WindowProperties -> Ptr Rectangle -> IO ()
webkit_window_properties_get_geometry Ptr WindowProperties
windowProperties' Ptr Rectangle
geometry
Rectangle
geometry' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
geometry
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
windowProperties
Rectangle -> IO Rectangle
forall (m :: * -> *) a. Monad m => a -> m a
return Rectangle
geometry'
#if defined(ENABLE_OVERLOADING)
data WindowPropertiesGetGeometryMethodInfo
instance (signature ~ (m (Gdk.Rectangle.Rectangle)), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetGeometryMethodInfo a signature where
overloadedMethod = windowPropertiesGetGeometry
#endif
foreign import ccall "webkit_window_properties_get_locationbar_visible" webkit_window_properties_get_locationbar_visible ::
Ptr WindowProperties ->
IO CInt
windowPropertiesGetLocationbarVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>
a
-> m Bool
windowPropertiesGetLocationbarVisible :: a -> m Bool
windowPropertiesGetLocationbarVisible windowProperties :: a
windowProperties = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WindowProperties
windowProperties' <- a -> IO (Ptr WindowProperties)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
windowProperties
CInt
result <- Ptr WindowProperties -> IO CInt
webkit_window_properties_get_locationbar_visible Ptr WindowProperties
windowProperties'
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
windowProperties
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowPropertiesGetLocationbarVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetLocationbarVisibleMethodInfo a signature where
overloadedMethod = windowPropertiesGetLocationbarVisible
#endif
foreign import ccall "webkit_window_properties_get_menubar_visible" ::
Ptr WindowProperties ->
IO CInt
windowPropertiesGetMenubarVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>
a
-> m Bool
windowProperties :: a
windowProperties = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WindowProperties
windowProperties' <- a -> IO (Ptr WindowProperties)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
windowProperties
CInt
result <- Ptr WindowProperties -> IO CInt
webkit_window_properties_get_menubar_visible Ptr WindowProperties
windowProperties'
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
windowProperties
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowPropertiesGetMenubarVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetMenubarVisibleMethodInfo a signature where
overloadedMethod = windowPropertiesGetMenubarVisible
#endif
foreign import ccall "webkit_window_properties_get_resizable" webkit_window_properties_get_resizable ::
Ptr WindowProperties ->
IO CInt
windowPropertiesGetResizable ::
(B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>
a
-> m Bool
windowPropertiesGetResizable :: a -> m Bool
windowPropertiesGetResizable windowProperties :: a
windowProperties = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WindowProperties
windowProperties' <- a -> IO (Ptr WindowProperties)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
windowProperties
CInt
result <- Ptr WindowProperties -> IO CInt
webkit_window_properties_get_resizable Ptr WindowProperties
windowProperties'
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
windowProperties
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowPropertiesGetResizableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetResizableMethodInfo a signature where
overloadedMethod = windowPropertiesGetResizable
#endif
foreign import ccall "webkit_window_properties_get_scrollbars_visible" webkit_window_properties_get_scrollbars_visible ::
Ptr WindowProperties ->
IO CInt
windowPropertiesGetScrollbarsVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>
a
-> m Bool
windowPropertiesGetScrollbarsVisible :: a -> m Bool
windowPropertiesGetScrollbarsVisible windowProperties :: a
windowProperties = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WindowProperties
windowProperties' <- a -> IO (Ptr WindowProperties)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
windowProperties
CInt
result <- Ptr WindowProperties -> IO CInt
webkit_window_properties_get_scrollbars_visible Ptr WindowProperties
windowProperties'
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
windowProperties
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowPropertiesGetScrollbarsVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetScrollbarsVisibleMethodInfo a signature where
overloadedMethod = windowPropertiesGetScrollbarsVisible
#endif
foreign import ccall "webkit_window_properties_get_statusbar_visible" webkit_window_properties_get_statusbar_visible ::
Ptr WindowProperties ->
IO CInt
windowPropertiesGetStatusbarVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>
a
-> m Bool
windowPropertiesGetStatusbarVisible :: a -> m Bool
windowPropertiesGetStatusbarVisible windowProperties :: a
windowProperties = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WindowProperties
windowProperties' <- a -> IO (Ptr WindowProperties)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
windowProperties
CInt
result <- Ptr WindowProperties -> IO CInt
webkit_window_properties_get_statusbar_visible Ptr WindowProperties
windowProperties'
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
windowProperties
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowPropertiesGetStatusbarVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetStatusbarVisibleMethodInfo a signature where
overloadedMethod = windowPropertiesGetStatusbarVisible
#endif
foreign import ccall "webkit_window_properties_get_toolbar_visible" webkit_window_properties_get_toolbar_visible ::
Ptr WindowProperties ->
IO CInt
windowPropertiesGetToolbarVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>
a
-> m Bool
windowPropertiesGetToolbarVisible :: a -> m Bool
windowPropertiesGetToolbarVisible windowProperties :: a
windowProperties = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr WindowProperties
windowProperties' <- a -> IO (Ptr WindowProperties)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
windowProperties
CInt
result <- Ptr WindowProperties -> IO CInt
webkit_window_properties_get_toolbar_visible Ptr WindowProperties
windowProperties'
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
windowProperties
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WindowPropertiesGetToolbarVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetToolbarVisibleMethodInfo a signature where
overloadedMethod = windowPropertiesGetToolbarVisible
#endif