module GI.WebKit2.Objects.WindowProperties
(
WindowProperties(..) ,
IsWindowProperties ,
toWindowProperties ,
noWindowProperties ,
WindowPropertiesGetFullscreenMethodInfo ,
windowPropertiesGetFullscreen ,
WindowPropertiesGetGeometryMethodInfo ,
windowPropertiesGetGeometry ,
WindowPropertiesGetLocationbarVisibleMethodInfo,
windowPropertiesGetLocationbarVisible ,
WindowPropertiesGetMenubarVisibleMethodInfo,
windowPropertiesGetMenubarVisible ,
WindowPropertiesGetResizableMethodInfo ,
windowPropertiesGetResizable ,
WindowPropertiesGetScrollbarsVisibleMethodInfo,
windowPropertiesGetScrollbarsVisible ,
WindowPropertiesGetStatusbarVisibleMethodInfo,
windowPropertiesGetStatusbarVisible ,
WindowPropertiesGetToolbarVisibleMethodInfo,
windowPropertiesGetToolbarVisible ,
WindowPropertiesFullscreenPropertyInfo ,
constructWindowPropertiesFullscreen ,
getWindowPropertiesFullscreen ,
windowPropertiesFullscreen ,
WindowPropertiesGeometryPropertyInfo ,
constructWindowPropertiesGeometry ,
getWindowPropertiesGeometry ,
windowPropertiesGeometry ,
WindowPropertiesLocationbarVisiblePropertyInfo,
constructWindowPropertiesLocationbarVisible,
getWindowPropertiesLocationbarVisible ,
windowPropertiesLocationbarVisible ,
WindowPropertiesMenubarVisiblePropertyInfo,
constructWindowPropertiesMenubarVisible ,
getWindowPropertiesMenubarVisible ,
windowPropertiesMenubarVisible ,
WindowPropertiesResizablePropertyInfo ,
constructWindowPropertiesResizable ,
getWindowPropertiesResizable ,
windowPropertiesResizable ,
WindowPropertiesScrollbarsVisiblePropertyInfo,
constructWindowPropertiesScrollbarsVisible,
getWindowPropertiesScrollbarsVisible ,
windowPropertiesScrollbarsVisible ,
WindowPropertiesStatusbarVisiblePropertyInfo,
constructWindowPropertiesStatusbarVisible,
getWindowPropertiesStatusbarVisible ,
windowPropertiesStatusbarVisible ,
WindowPropertiesToolbarVisiblePropertyInfo,
constructWindowPropertiesToolbarVisible ,
getWindowPropertiesToolbarVisible ,
windowPropertiesToolbarVisible ,
) 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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
newtype WindowProperties = WindowProperties (ManagedPtr WindowProperties)
foreign import ccall "webkit_window_properties_get_type"
c_webkit_window_properties_get_type :: IO GType
instance GObject WindowProperties where
gobjectType _ = c_webkit_window_properties_get_type
class GObject o => IsWindowProperties o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError WindowProperties a) =>
IsWindowProperties a
#endif
instance IsWindowProperties WindowProperties
instance GObject.Object.IsObject WindowProperties
toWindowProperties :: IsWindowProperties o => o -> IO WindowProperties
toWindowProperties = unsafeCastTo WindowProperties
noWindowProperties :: Maybe WindowProperties
noWindowProperties = Nothing
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 "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 "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveWindowPropertiesMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
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 "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWindowPropertiesMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWindowPropertiesMethod t WindowProperties, O.MethodInfo info WindowProperties p) => O.IsLabelProxy t (WindowProperties -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveWindowPropertiesMethod t WindowProperties, O.MethodInfo info WindowProperties p) => O.IsLabel t (WindowProperties -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
getWindowPropertiesFullscreen :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesFullscreen obj = liftIO $ getObjectPropertyBool obj "fullscreen"
constructWindowPropertiesFullscreen :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
constructWindowPropertiesFullscreen val = constructObjectPropertyBool "fullscreen" val
data WindowPropertiesFullscreenPropertyInfo
instance AttrInfo WindowPropertiesFullscreenPropertyInfo where
type AttrAllowedOps WindowPropertiesFullscreenPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WindowPropertiesFullscreenPropertyInfo = (~) Bool
type AttrBaseTypeConstraint WindowPropertiesFullscreenPropertyInfo = IsWindowProperties
type AttrGetType WindowPropertiesFullscreenPropertyInfo = Bool
type AttrLabel WindowPropertiesFullscreenPropertyInfo = "fullscreen"
type AttrOrigin WindowPropertiesFullscreenPropertyInfo = WindowProperties
attrGet _ = getWindowPropertiesFullscreen
attrSet _ = undefined
attrConstruct _ = constructWindowPropertiesFullscreen
attrClear _ = undefined
getWindowPropertiesGeometry :: (MonadIO m, IsWindowProperties o) => o -> m (Maybe Gdk.Rectangle.Rectangle)
getWindowPropertiesGeometry obj = liftIO $ getObjectPropertyBoxed obj "geometry" Gdk.Rectangle.Rectangle
constructWindowPropertiesGeometry :: (IsWindowProperties o) => Gdk.Rectangle.Rectangle -> IO (GValueConstruct o)
constructWindowPropertiesGeometry val = constructObjectPropertyBoxed "geometry" (Just val)
data WindowPropertiesGeometryPropertyInfo
instance AttrInfo WindowPropertiesGeometryPropertyInfo where
type AttrAllowedOps WindowPropertiesGeometryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint WindowPropertiesGeometryPropertyInfo = (~) Gdk.Rectangle.Rectangle
type AttrBaseTypeConstraint WindowPropertiesGeometryPropertyInfo = IsWindowProperties
type AttrGetType WindowPropertiesGeometryPropertyInfo = (Maybe Gdk.Rectangle.Rectangle)
type AttrLabel WindowPropertiesGeometryPropertyInfo = "geometry"
type AttrOrigin WindowPropertiesGeometryPropertyInfo = WindowProperties
attrGet _ = getWindowPropertiesGeometry
attrSet _ = undefined
attrConstruct _ = constructWindowPropertiesGeometry
attrClear _ = undefined
getWindowPropertiesLocationbarVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesLocationbarVisible obj = liftIO $ getObjectPropertyBool obj "locationbar-visible"
constructWindowPropertiesLocationbarVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
constructWindowPropertiesLocationbarVisible val = constructObjectPropertyBool "locationbar-visible" val
data WindowPropertiesLocationbarVisiblePropertyInfo
instance AttrInfo WindowPropertiesLocationbarVisiblePropertyInfo where
type AttrAllowedOps WindowPropertiesLocationbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WindowPropertiesLocationbarVisiblePropertyInfo = (~) Bool
type AttrBaseTypeConstraint WindowPropertiesLocationbarVisiblePropertyInfo = IsWindowProperties
type AttrGetType WindowPropertiesLocationbarVisiblePropertyInfo = Bool
type AttrLabel WindowPropertiesLocationbarVisiblePropertyInfo = "locationbar-visible"
type AttrOrigin WindowPropertiesLocationbarVisiblePropertyInfo = WindowProperties
attrGet _ = getWindowPropertiesLocationbarVisible
attrSet _ = undefined
attrConstruct _ = constructWindowPropertiesLocationbarVisible
attrClear _ = undefined
getWindowPropertiesMenubarVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesMenubarVisible obj = liftIO $ getObjectPropertyBool obj "menubar-visible"
constructWindowPropertiesMenubarVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
constructWindowPropertiesMenubarVisible val = constructObjectPropertyBool "menubar-visible" val
data WindowPropertiesMenubarVisiblePropertyInfo
instance AttrInfo WindowPropertiesMenubarVisiblePropertyInfo where
type AttrAllowedOps WindowPropertiesMenubarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WindowPropertiesMenubarVisiblePropertyInfo = (~) Bool
type AttrBaseTypeConstraint WindowPropertiesMenubarVisiblePropertyInfo = IsWindowProperties
type AttrGetType WindowPropertiesMenubarVisiblePropertyInfo = Bool
type AttrLabel WindowPropertiesMenubarVisiblePropertyInfo = "menubar-visible"
type AttrOrigin WindowPropertiesMenubarVisiblePropertyInfo = WindowProperties
attrGet _ = getWindowPropertiesMenubarVisible
attrSet _ = undefined
attrConstruct _ = constructWindowPropertiesMenubarVisible
attrClear _ = undefined
getWindowPropertiesResizable :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesResizable obj = liftIO $ getObjectPropertyBool obj "resizable"
constructWindowPropertiesResizable :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
constructWindowPropertiesResizable val = constructObjectPropertyBool "resizable" val
data WindowPropertiesResizablePropertyInfo
instance AttrInfo WindowPropertiesResizablePropertyInfo where
type AttrAllowedOps WindowPropertiesResizablePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WindowPropertiesResizablePropertyInfo = (~) Bool
type AttrBaseTypeConstraint WindowPropertiesResizablePropertyInfo = IsWindowProperties
type AttrGetType WindowPropertiesResizablePropertyInfo = Bool
type AttrLabel WindowPropertiesResizablePropertyInfo = "resizable"
type AttrOrigin WindowPropertiesResizablePropertyInfo = WindowProperties
attrGet _ = getWindowPropertiesResizable
attrSet _ = undefined
attrConstruct _ = constructWindowPropertiesResizable
attrClear _ = undefined
getWindowPropertiesScrollbarsVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesScrollbarsVisible obj = liftIO $ getObjectPropertyBool obj "scrollbars-visible"
constructWindowPropertiesScrollbarsVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
constructWindowPropertiesScrollbarsVisible val = constructObjectPropertyBool "scrollbars-visible" val
data WindowPropertiesScrollbarsVisiblePropertyInfo
instance AttrInfo WindowPropertiesScrollbarsVisiblePropertyInfo where
type AttrAllowedOps WindowPropertiesScrollbarsVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WindowPropertiesScrollbarsVisiblePropertyInfo = (~) Bool
type AttrBaseTypeConstraint WindowPropertiesScrollbarsVisiblePropertyInfo = IsWindowProperties
type AttrGetType WindowPropertiesScrollbarsVisiblePropertyInfo = Bool
type AttrLabel WindowPropertiesScrollbarsVisiblePropertyInfo = "scrollbars-visible"
type AttrOrigin WindowPropertiesScrollbarsVisiblePropertyInfo = WindowProperties
attrGet _ = getWindowPropertiesScrollbarsVisible
attrSet _ = undefined
attrConstruct _ = constructWindowPropertiesScrollbarsVisible
attrClear _ = undefined
getWindowPropertiesStatusbarVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesStatusbarVisible obj = liftIO $ getObjectPropertyBool obj "statusbar-visible"
constructWindowPropertiesStatusbarVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
constructWindowPropertiesStatusbarVisible val = constructObjectPropertyBool "statusbar-visible" val
data WindowPropertiesStatusbarVisiblePropertyInfo
instance AttrInfo WindowPropertiesStatusbarVisiblePropertyInfo where
type AttrAllowedOps WindowPropertiesStatusbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WindowPropertiesStatusbarVisiblePropertyInfo = (~) Bool
type AttrBaseTypeConstraint WindowPropertiesStatusbarVisiblePropertyInfo = IsWindowProperties
type AttrGetType WindowPropertiesStatusbarVisiblePropertyInfo = Bool
type AttrLabel WindowPropertiesStatusbarVisiblePropertyInfo = "statusbar-visible"
type AttrOrigin WindowPropertiesStatusbarVisiblePropertyInfo = WindowProperties
attrGet _ = getWindowPropertiesStatusbarVisible
attrSet _ = undefined
attrConstruct _ = constructWindowPropertiesStatusbarVisible
attrClear _ = undefined
getWindowPropertiesToolbarVisible :: (MonadIO m, IsWindowProperties o) => o -> m Bool
getWindowPropertiesToolbarVisible obj = liftIO $ getObjectPropertyBool obj "toolbar-visible"
constructWindowPropertiesToolbarVisible :: (IsWindowProperties o) => Bool -> IO (GValueConstruct o)
constructWindowPropertiesToolbarVisible val = constructObjectPropertyBool "toolbar-visible" val
data WindowPropertiesToolbarVisiblePropertyInfo
instance AttrInfo WindowPropertiesToolbarVisiblePropertyInfo where
type AttrAllowedOps WindowPropertiesToolbarVisiblePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WindowPropertiesToolbarVisiblePropertyInfo = (~) Bool
type AttrBaseTypeConstraint WindowPropertiesToolbarVisiblePropertyInfo = IsWindowProperties
type AttrGetType WindowPropertiesToolbarVisiblePropertyInfo = Bool
type AttrLabel WindowPropertiesToolbarVisiblePropertyInfo = "toolbar-visible"
type AttrOrigin WindowPropertiesToolbarVisiblePropertyInfo = WindowProperties
attrGet _ = getWindowPropertiesToolbarVisible
attrSet _ = undefined
attrConstruct _ = constructWindowPropertiesToolbarVisible
attrClear _ = undefined
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, *)])
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
type instance O.SignalList WindowProperties = WindowPropertiesSignalList
type WindowPropertiesSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
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 windowProperties = liftIO $ do
windowProperties' <- unsafeManagedPtrCastPtr windowProperties
result <- webkit_window_properties_get_fullscreen windowProperties'
let result' = (/= 0) result
touchManagedPtr windowProperties
return result'
data WindowPropertiesGetFullscreenMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetFullscreenMethodInfo a signature where
overloadedMethod _ = windowPropertiesGetFullscreen
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 windowProperties = liftIO $ do
windowProperties' <- unsafeManagedPtrCastPtr windowProperties
geometry <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
webkit_window_properties_get_geometry windowProperties' geometry
geometry' <- (wrapBoxed Gdk.Rectangle.Rectangle) geometry
touchManagedPtr windowProperties
return geometry'
data WindowPropertiesGetGeometryMethodInfo
instance (signature ~ (m (Gdk.Rectangle.Rectangle)), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetGeometryMethodInfo a signature where
overloadedMethod _ = windowPropertiesGetGeometry
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 windowProperties = liftIO $ do
windowProperties' <- unsafeManagedPtrCastPtr windowProperties
result <- webkit_window_properties_get_locationbar_visible windowProperties'
let result' = (/= 0) result
touchManagedPtr windowProperties
return result'
data WindowPropertiesGetLocationbarVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetLocationbarVisibleMethodInfo a signature where
overloadedMethod _ = windowPropertiesGetLocationbarVisible
foreign import ccall "webkit_window_properties_get_menubar_visible" webkit_window_properties_get_menubar_visible ::
Ptr WindowProperties ->
IO CInt
windowPropertiesGetMenubarVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsWindowProperties a) =>
a
-> m Bool
windowPropertiesGetMenubarVisible windowProperties = liftIO $ do
windowProperties' <- unsafeManagedPtrCastPtr windowProperties
result <- webkit_window_properties_get_menubar_visible windowProperties'
let result' = (/= 0) result
touchManagedPtr windowProperties
return result'
data WindowPropertiesGetMenubarVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetMenubarVisibleMethodInfo a signature where
overloadedMethod _ = windowPropertiesGetMenubarVisible
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 windowProperties = liftIO $ do
windowProperties' <- unsafeManagedPtrCastPtr windowProperties
result <- webkit_window_properties_get_resizable windowProperties'
let result' = (/= 0) result
touchManagedPtr windowProperties
return result'
data WindowPropertiesGetResizableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetResizableMethodInfo a signature where
overloadedMethod _ = windowPropertiesGetResizable
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 windowProperties = liftIO $ do
windowProperties' <- unsafeManagedPtrCastPtr windowProperties
result <- webkit_window_properties_get_scrollbars_visible windowProperties'
let result' = (/= 0) result
touchManagedPtr windowProperties
return result'
data WindowPropertiesGetScrollbarsVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetScrollbarsVisibleMethodInfo a signature where
overloadedMethod _ = windowPropertiesGetScrollbarsVisible
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 windowProperties = liftIO $ do
windowProperties' <- unsafeManagedPtrCastPtr windowProperties
result <- webkit_window_properties_get_statusbar_visible windowProperties'
let result' = (/= 0) result
touchManagedPtr windowProperties
return result'
data WindowPropertiesGetStatusbarVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetStatusbarVisibleMethodInfo a signature where
overloadedMethod _ = windowPropertiesGetStatusbarVisible
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 windowProperties = liftIO $ do
windowProperties' <- unsafeManagedPtrCastPtr windowProperties
result <- webkit_window_properties_get_toolbar_visible windowProperties'
let result' = (/= 0) result
touchManagedPtr windowProperties
return result'
data WindowPropertiesGetToolbarVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWindowProperties a) => O.MethodInfo WindowPropertiesGetToolbarVisibleMethodInfo a signature where
overloadedMethod _ = windowPropertiesGetToolbarVisible