{-# 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 ,
#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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
newtype WindowProperties = WindowProperties (SP.ManagedPtr WindowProperties)
deriving (WindowProperties -> WindowProperties -> Bool
(WindowProperties -> WindowProperties -> Bool)
-> (WindowProperties -> WindowProperties -> Bool)
-> Eq WindowProperties
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WindowProperties -> WindowProperties -> Bool
== :: WindowProperties -> WindowProperties -> Bool
$c/= :: WindowProperties -> WindowProperties -> Bool
/= :: WindowProperties -> WindowProperties -> Bool
Eq)
instance SP.ManagedPtrNewtype WindowProperties where
toManagedPtr :: WindowProperties -> ManagedPtr WindowProperties
toManagedPtr (WindowProperties ManagedPtr WindowProperties
p) = ManagedPtr WindowProperties
p
foreign import ccall "webkit_window_properties_get_type"
c_webkit_window_properties_get_type :: IO B.Types.GType
instance B.Types.TypedObject WindowProperties where
glibType :: IO GType
glibType = IO GType
c_webkit_window_properties_get_type
instance B.Types.GObject WindowProperties
class (SP.GObject o, O.IsDescendantOf WindowProperties o) => IsWindowProperties o
instance (SP.GObject o, O.IsDescendantOf WindowProperties o) => IsWindowProperties o
instance O.HasParentTypes WindowProperties
type instance O.ParentTypes WindowProperties = '[GObject.Object.Object]
toWindowProperties :: (MIO.MonadIO m, IsWindowProperties o) => o -> m WindowProperties
toWindowProperties :: forall (m :: * -> *) o.
(MonadIO m, IsWindowProperties o) =>
o -> m WindowProperties
toWindowProperties = IO WindowProperties -> m WindowProperties
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr WindowProperties -> WindowProperties
WindowProperties
instance B.GValue.IsGValue (Maybe WindowProperties) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_window_properties_get_type
gvalueSet_ :: Ptr GValue -> Maybe WindowProperties -> IO ()
gvalueSet_ Ptr GValue
gv Maybe WindowProperties
P.Nothing = Ptr GValue -> Ptr WindowProperties -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr WindowProperties
forall a. Ptr a
FP.nullPtr :: FP.Ptr WindowProperties)
gvalueSet_ Ptr GValue
gv (P.Just WindowProperties
obj) = WindowProperties -> (Ptr WindowProperties -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr WindowProperties
obj (Ptr GValue -> Ptr WindowProperties -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe WindowProperties)
gvalueGet_ Ptr GValue
gv = do
Ptr WindowProperties
ptr <- Ptr GValue -> IO (Ptr WindowProperties)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr WindowProperties)
if Ptr WindowProperties
ptr Ptr WindowProperties -> Ptr WindowProperties -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr WindowProperties
forall a. Ptr a
FP.nullPtr
then WindowProperties -> Maybe WindowProperties
forall a. a -> Maybe a
P.Just (WindowProperties -> Maybe WindowProperties)
-> IO WindowProperties -> IO (Maybe WindowProperties)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe WindowProperties -> IO (Maybe WindowProperties)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe WindowProperties
forall a. Maybe a
P.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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveWindowPropertiesMethod t WindowProperties, O.OverloadedMethod info WindowProperties p, R.HasField t WindowProperties p) => R.HasField t WindowProperties p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveWindowPropertiesMethod t WindowProperties, O.OverloadedMethodInfo info WindowProperties) => OL.IsLabel t (O.MethodProxy info WindowProperties) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getWindowPropertiesFullscreen :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesFullscreen :: forall (m :: * -> *) o.
(MonadIO m, IsWindowProperties o) =>
o -> m Bool
getWindowPropertiesFullscreen o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"fullscreen"
constructWindowPropertiesFullscreen :: (IsWindowProperties o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowPropertiesFullscreen :: forall o (m :: * -> *).
(IsWindowProperties o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowPropertiesFullscreen Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WindowProperties.fullscreen"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WindowProperties.html#g:attr:fullscreen"
})
#endif
getWindowPropertiesGeometry :: (MonadIO m, IsWindowProperties o) => o -> m (Maybe Gdk.Rectangle.Rectangle)
getWindowPropertiesGeometry :: forall (m :: * -> *) o.
(MonadIO m, IsWindowProperties o) =>
o -> m (Maybe Rectangle)
getWindowPropertiesGeometry o
obj = IO (Maybe Rectangle) -> m (Maybe Rectangle)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"geometry" ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle
constructWindowPropertiesGeometry :: (IsWindowProperties o, MIO.MonadIO m) => Gdk.Rectangle.Rectangle -> m (GValueConstruct o)
constructWindowPropertiesGeometry :: forall o (m :: * -> *).
(IsWindowProperties o, MonadIO m) =>
Rectangle -> m (GValueConstruct o)
constructWindowPropertiesGeometry Rectangle
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Rectangle -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"geometry" (Rectangle -> Maybe Rectangle
forall a. a -> Maybe a
P.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WindowProperties.geometry"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WindowProperties.html#g:attr:geometry"
})
#endif
getWindowPropertiesLocationbarVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesLocationbarVisible :: forall (m :: * -> *) o.
(MonadIO m, IsWindowProperties o) =>
o -> m Bool
getWindowPropertiesLocationbarVisible o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"locationbar-visible"
constructWindowPropertiesLocationbarVisible :: (IsWindowProperties o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowPropertiesLocationbarVisible :: forall o (m :: * -> *).
(IsWindowProperties o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowPropertiesLocationbarVisible Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WindowProperties.locationbarVisible"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WindowProperties.html#g:attr:locationbarVisible"
})
#endif
getWindowPropertiesMenubarVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool
o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"menubar-visible"
constructWindowPropertiesMenubarVisible :: (IsWindowProperties o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WindowProperties.menubarVisible"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WindowProperties.html#g:attr:menubarVisible"
})
#endif
getWindowPropertiesResizable :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesResizable :: forall (m :: * -> *) o.
(MonadIO m, IsWindowProperties o) =>
o -> m Bool
getWindowPropertiesResizable o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"resizable"
constructWindowPropertiesResizable :: (IsWindowProperties o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowPropertiesResizable :: forall o (m :: * -> *).
(IsWindowProperties o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowPropertiesResizable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"resizable" Bool
val
#if defined(ENABLE_OVERLOADING)
data 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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WindowProperties.resizable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WindowProperties.html#g:attr:resizable"
})
#endif
getWindowPropertiesScrollbarsVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesScrollbarsVisible :: forall (m :: * -> *) o.
(MonadIO m, IsWindowProperties o) =>
o -> m Bool
getWindowPropertiesScrollbarsVisible o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"scrollbars-visible"
constructWindowPropertiesScrollbarsVisible :: (IsWindowProperties o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowPropertiesScrollbarsVisible :: forall o (m :: * -> *).
(IsWindowProperties o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowPropertiesScrollbarsVisible Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WindowProperties.scrollbarsVisible"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WindowProperties.html#g:attr:scrollbarsVisible"
})
#endif
getWindowPropertiesStatusbarVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesStatusbarVisible :: forall (m :: * -> *) o.
(MonadIO m, IsWindowProperties o) =>
o -> m Bool
getWindowPropertiesStatusbarVisible o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"statusbar-visible"
constructWindowPropertiesStatusbarVisible :: (IsWindowProperties o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowPropertiesStatusbarVisible :: forall o (m :: * -> *).
(IsWindowProperties o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowPropertiesStatusbarVisible Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WindowProperties.statusbarVisible"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WindowProperties.html#g:attr:statusbarVisible"
})
#endif
getWindowPropertiesToolbarVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesToolbarVisible :: forall (m :: * -> *) o.
(MonadIO m, IsWindowProperties o) =>
o -> m Bool
getWindowPropertiesToolbarVisible o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"toolbar-visible"
constructWindowPropertiesToolbarVisible :: (IsWindowProperties o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructWindowPropertiesToolbarVisible :: forall o (m :: * -> *).
(IsWindowProperties o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructWindowPropertiesToolbarVisible Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WindowProperties.toolbarVisible"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WindowProperties.html#g:attr:toolbarVisible"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindowProperties a) =>
a -> m Bool
windowPropertiesGetFullscreen a
windowProperties = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
windowProperties
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod WindowPropertiesGetFullscreenMethodInfo a signature where
overloadedMethod = windowPropertiesGetFullscreen
instance O.OverloadedMethodInfo WindowPropertiesGetFullscreenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WindowProperties.windowPropertiesGetFullscreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WindowProperties.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindowProperties a) =>
a -> m Rectangle
windowPropertiesGetGeometry a
windowProperties = IO Rectangle -> m Rectangle
forall a. IO a -> m a
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. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
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, GBoxed 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 a. a -> IO a
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.OverloadedMethod WindowPropertiesGetGeometryMethodInfo a signature where
overloadedMethod = windowPropertiesGetGeometry
instance O.OverloadedMethodInfo WindowPropertiesGetGeometryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WindowProperties.windowPropertiesGetGeometry",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WindowProperties.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindowProperties a) =>
a -> m Bool
windowPropertiesGetLocationbarVisible a
windowProperties = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
windowProperties
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod WindowPropertiesGetLocationbarVisibleMethodInfo a signature where
overloadedMethod = windowPropertiesGetLocationbarVisible
instance O.OverloadedMethodInfo WindowPropertiesGetLocationbarVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WindowProperties.windowPropertiesGetLocationbarVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WindowProperties.html#v: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
a
windowProperties = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
windowProperties
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod WindowPropertiesGetMenubarVisibleMethodInfo a signature where
overloadedMethod = windowPropertiesGetMenubarVisible
instance O.OverloadedMethodInfo WindowPropertiesGetMenubarVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WindowProperties.windowPropertiesGetMenubarVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WindowProperties.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindowProperties a) =>
a -> m Bool
windowPropertiesGetResizable a
windowProperties = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
windowProperties
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod WindowPropertiesGetResizableMethodInfo a signature where
overloadedMethod = windowPropertiesGetResizable
instance O.OverloadedMethodInfo WindowPropertiesGetResizableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WindowProperties.windowPropertiesGetResizable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WindowProperties.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindowProperties a) =>
a -> m Bool
windowPropertiesGetScrollbarsVisible a
windowProperties = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
windowProperties
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod WindowPropertiesGetScrollbarsVisibleMethodInfo a signature where
overloadedMethod = windowPropertiesGetScrollbarsVisible
instance O.OverloadedMethodInfo WindowPropertiesGetScrollbarsVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WindowProperties.windowPropertiesGetScrollbarsVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WindowProperties.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindowProperties a) =>
a -> m Bool
windowPropertiesGetStatusbarVisible a
windowProperties = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
windowProperties
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod WindowPropertiesGetStatusbarVisibleMethodInfo a signature where
overloadedMethod = windowPropertiesGetStatusbarVisible
instance O.OverloadedMethodInfo WindowPropertiesGetStatusbarVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WindowProperties.windowPropertiesGetStatusbarVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WindowProperties.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindowProperties a) =>
a -> m Bool
windowPropertiesGetToolbarVisible a
windowProperties = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
windowProperties
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod WindowPropertiesGetToolbarVisibleMethodInfo a signature where
overloadedMethod = windowPropertiesGetToolbarVisible
instance O.OverloadedMethodInfo WindowPropertiesGetToolbarVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.WindowProperties.windowPropertiesGetToolbarVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-WindowProperties.html#v:windowPropertiesGetToolbarVisible"
})
#endif