gi-webkit-0.2.4.14: GI/WebKit/Objects/ViewportAttributes.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.WebKit.Objects.ViewportAttributes
(
-- * Exported types
ViewportAttributes(..) ,
ViewportAttributesK ,
toViewportAttributes ,
noViewportAttributes ,
-- * Methods
-- ** viewportAttributesRecompute
ViewportAttributesRecomputeMethodInfo ,
viewportAttributesRecompute ,
-- * Properties
-- ** AvailableHeight
ViewportAttributesAvailableHeightPropertyInfo,
constructViewportAttributesAvailableHeight,
getViewportAttributesAvailableHeight ,
setViewportAttributesAvailableHeight ,
viewportAttributesAvailableHeight ,
-- ** AvailableWidth
ViewportAttributesAvailableWidthPropertyInfo,
constructViewportAttributesAvailableWidth,
getViewportAttributesAvailableWidth ,
setViewportAttributesAvailableWidth ,
viewportAttributesAvailableWidth ,
-- ** DesktopWidth
ViewportAttributesDesktopWidthPropertyInfo,
constructViewportAttributesDesktopWidth ,
getViewportAttributesDesktopWidth ,
setViewportAttributesDesktopWidth ,
viewportAttributesDesktopWidth ,
-- ** DeviceDpi
ViewportAttributesDeviceDpiPropertyInfo ,
constructViewportAttributesDeviceDpi ,
getViewportAttributesDeviceDpi ,
setViewportAttributesDeviceDpi ,
viewportAttributesDeviceDpi ,
-- ** DeviceHeight
ViewportAttributesDeviceHeightPropertyInfo,
constructViewportAttributesDeviceHeight ,
getViewportAttributesDeviceHeight ,
setViewportAttributesDeviceHeight ,
viewportAttributesDeviceHeight ,
-- ** DevicePixelRatio
ViewportAttributesDevicePixelRatioPropertyInfo,
getViewportAttributesDevicePixelRatio ,
viewportAttributesDevicePixelRatio ,
-- ** DeviceWidth
ViewportAttributesDeviceWidthPropertyInfo,
constructViewportAttributesDeviceWidth ,
getViewportAttributesDeviceWidth ,
setViewportAttributesDeviceWidth ,
viewportAttributesDeviceWidth ,
-- ** Height
ViewportAttributesHeightPropertyInfo ,
getViewportAttributesHeight ,
viewportAttributesHeight ,
-- ** InitialScaleFactor
ViewportAttributesInitialScaleFactorPropertyInfo,
getViewportAttributesInitialScaleFactor ,
viewportAttributesInitialScaleFactor ,
-- ** MaximumScaleFactor
ViewportAttributesMaximumScaleFactorPropertyInfo,
getViewportAttributesMaximumScaleFactor ,
viewportAttributesMaximumScaleFactor ,
-- ** MinimumScaleFactor
ViewportAttributesMinimumScaleFactorPropertyInfo,
getViewportAttributesMinimumScaleFactor ,
viewportAttributesMinimumScaleFactor ,
-- ** UserScalable
ViewportAttributesUserScalablePropertyInfo,
getViewportAttributesUserScalable ,
viewportAttributesUserScalable ,
-- ** Valid
ViewportAttributesValidPropertyInfo ,
getViewportAttributesValid ,
viewportAttributesValid ,
-- ** Width
ViewportAttributesWidthPropertyInfo ,
getViewportAttributesWidth ,
viewportAttributesWidth ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GObject as GObject
newtype ViewportAttributes = ViewportAttributes (ForeignPtr ViewportAttributes)
foreign import ccall "webkit_viewport_attributes_get_type"
c_webkit_viewport_attributes_get_type :: IO GType
type instance ParentTypes ViewportAttributes = ViewportAttributesParentTypes
type ViewportAttributesParentTypes = '[GObject.Object]
instance GObject ViewportAttributes where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_viewport_attributes_get_type
class GObject o => ViewportAttributesK o
instance (GObject o, IsDescendantOf ViewportAttributes o) => ViewportAttributesK o
toViewportAttributes :: ViewportAttributesK o => o -> IO ViewportAttributes
toViewportAttributes = unsafeCastTo ViewportAttributes
noViewportAttributes :: Maybe ViewportAttributes
noViewportAttributes = Nothing
type family ResolveViewportAttributesMethod (t :: Symbol) (o :: *) :: * where
ResolveViewportAttributesMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveViewportAttributesMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveViewportAttributesMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveViewportAttributesMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveViewportAttributesMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveViewportAttributesMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveViewportAttributesMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveViewportAttributesMethod "recompute" o = ViewportAttributesRecomputeMethodInfo
ResolveViewportAttributesMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveViewportAttributesMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveViewportAttributesMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveViewportAttributesMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveViewportAttributesMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveViewportAttributesMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveViewportAttributesMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveViewportAttributesMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveViewportAttributesMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveViewportAttributesMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveViewportAttributesMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveViewportAttributesMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveViewportAttributesMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveViewportAttributesMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveViewportAttributesMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveViewportAttributesMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveViewportAttributesMethod t ViewportAttributes, MethodInfo info ViewportAttributes p) => IsLabelProxy t (ViewportAttributes -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveViewportAttributesMethod t ViewportAttributes, MethodInfo info ViewportAttributes p) => IsLabel t (ViewportAttributes -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- VVV Prop "available-height"
-- Type: TBasicType TInt
-- Flags: [PropertyReadable,PropertyWritable]
-- Nullable: (Nothing,Nothing)
getViewportAttributesAvailableHeight :: (MonadIO m, ViewportAttributesK o) => o -> m Int32
getViewportAttributesAvailableHeight obj = liftIO $ getObjectPropertyInt32 obj "available-height"
setViewportAttributesAvailableHeight :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m ()
setViewportAttributesAvailableHeight obj val = liftIO $ setObjectPropertyInt32 obj "available-height" val
constructViewportAttributesAvailableHeight :: Int32 -> IO ([Char], GValue)
constructViewportAttributesAvailableHeight val = constructObjectPropertyInt32 "available-height" val
data ViewportAttributesAvailableHeightPropertyInfo
instance AttrInfo ViewportAttributesAvailableHeightPropertyInfo where
type AttrAllowedOps ViewportAttributesAvailableHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ViewportAttributesAvailableHeightPropertyInfo = (~) Int32
type AttrBaseTypeConstraint ViewportAttributesAvailableHeightPropertyInfo = ViewportAttributesK
type AttrGetType ViewportAttributesAvailableHeightPropertyInfo = Int32
type AttrLabel ViewportAttributesAvailableHeightPropertyInfo = "available-height"
attrGet _ = getViewportAttributesAvailableHeight
attrSet _ = setViewportAttributesAvailableHeight
attrConstruct _ = constructViewportAttributesAvailableHeight
attrClear _ = undefined
-- VVV Prop "available-width"
-- Type: TBasicType TInt
-- Flags: [PropertyReadable,PropertyWritable]
-- Nullable: (Nothing,Nothing)
getViewportAttributesAvailableWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32
getViewportAttributesAvailableWidth obj = liftIO $ getObjectPropertyInt32 obj "available-width"
setViewportAttributesAvailableWidth :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m ()
setViewportAttributesAvailableWidth obj val = liftIO $ setObjectPropertyInt32 obj "available-width" val
constructViewportAttributesAvailableWidth :: Int32 -> IO ([Char], GValue)
constructViewportAttributesAvailableWidth val = constructObjectPropertyInt32 "available-width" val
data ViewportAttributesAvailableWidthPropertyInfo
instance AttrInfo ViewportAttributesAvailableWidthPropertyInfo where
type AttrAllowedOps ViewportAttributesAvailableWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ViewportAttributesAvailableWidthPropertyInfo = (~) Int32
type AttrBaseTypeConstraint ViewportAttributesAvailableWidthPropertyInfo = ViewportAttributesK
type AttrGetType ViewportAttributesAvailableWidthPropertyInfo = Int32
type AttrLabel ViewportAttributesAvailableWidthPropertyInfo = "available-width"
attrGet _ = getViewportAttributesAvailableWidth
attrSet _ = setViewportAttributesAvailableWidth
attrConstruct _ = constructViewportAttributesAvailableWidth
attrClear _ = undefined
-- VVV Prop "desktop-width"
-- Type: TBasicType TInt
-- Flags: [PropertyReadable,PropertyWritable]
-- Nullable: (Nothing,Nothing)
getViewportAttributesDesktopWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32
getViewportAttributesDesktopWidth obj = liftIO $ getObjectPropertyInt32 obj "desktop-width"
setViewportAttributesDesktopWidth :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m ()
setViewportAttributesDesktopWidth obj val = liftIO $ setObjectPropertyInt32 obj "desktop-width" val
constructViewportAttributesDesktopWidth :: Int32 -> IO ([Char], GValue)
constructViewportAttributesDesktopWidth val = constructObjectPropertyInt32 "desktop-width" val
data ViewportAttributesDesktopWidthPropertyInfo
instance AttrInfo ViewportAttributesDesktopWidthPropertyInfo where
type AttrAllowedOps ViewportAttributesDesktopWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ViewportAttributesDesktopWidthPropertyInfo = (~) Int32
type AttrBaseTypeConstraint ViewportAttributesDesktopWidthPropertyInfo = ViewportAttributesK
type AttrGetType ViewportAttributesDesktopWidthPropertyInfo = Int32
type AttrLabel ViewportAttributesDesktopWidthPropertyInfo = "desktop-width"
attrGet _ = getViewportAttributesDesktopWidth
attrSet _ = setViewportAttributesDesktopWidth
attrConstruct _ = constructViewportAttributesDesktopWidth
attrClear _ = undefined
-- VVV Prop "device-dpi"
-- Type: TBasicType TInt
-- Flags: [PropertyReadable,PropertyWritable]
-- Nullable: (Nothing,Nothing)
getViewportAttributesDeviceDpi :: (MonadIO m, ViewportAttributesK o) => o -> m Int32
getViewportAttributesDeviceDpi obj = liftIO $ getObjectPropertyInt32 obj "device-dpi"
setViewportAttributesDeviceDpi :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m ()
setViewportAttributesDeviceDpi obj val = liftIO $ setObjectPropertyInt32 obj "device-dpi" val
constructViewportAttributesDeviceDpi :: Int32 -> IO ([Char], GValue)
constructViewportAttributesDeviceDpi val = constructObjectPropertyInt32 "device-dpi" val
data ViewportAttributesDeviceDpiPropertyInfo
instance AttrInfo ViewportAttributesDeviceDpiPropertyInfo where
type AttrAllowedOps ViewportAttributesDeviceDpiPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ViewportAttributesDeviceDpiPropertyInfo = (~) Int32
type AttrBaseTypeConstraint ViewportAttributesDeviceDpiPropertyInfo = ViewportAttributesK
type AttrGetType ViewportAttributesDeviceDpiPropertyInfo = Int32
type AttrLabel ViewportAttributesDeviceDpiPropertyInfo = "device-dpi"
attrGet _ = getViewportAttributesDeviceDpi
attrSet _ = setViewportAttributesDeviceDpi
attrConstruct _ = constructViewportAttributesDeviceDpi
attrClear _ = undefined
-- VVV Prop "device-height"
-- Type: TBasicType TInt
-- Flags: [PropertyReadable,PropertyWritable]
-- Nullable: (Nothing,Nothing)
getViewportAttributesDeviceHeight :: (MonadIO m, ViewportAttributesK o) => o -> m Int32
getViewportAttributesDeviceHeight obj = liftIO $ getObjectPropertyInt32 obj "device-height"
setViewportAttributesDeviceHeight :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m ()
setViewportAttributesDeviceHeight obj val = liftIO $ setObjectPropertyInt32 obj "device-height" val
constructViewportAttributesDeviceHeight :: Int32 -> IO ([Char], GValue)
constructViewportAttributesDeviceHeight val = constructObjectPropertyInt32 "device-height" val
data ViewportAttributesDeviceHeightPropertyInfo
instance AttrInfo ViewportAttributesDeviceHeightPropertyInfo where
type AttrAllowedOps ViewportAttributesDeviceHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ViewportAttributesDeviceHeightPropertyInfo = (~) Int32
type AttrBaseTypeConstraint ViewportAttributesDeviceHeightPropertyInfo = ViewportAttributesK
type AttrGetType ViewportAttributesDeviceHeightPropertyInfo = Int32
type AttrLabel ViewportAttributesDeviceHeightPropertyInfo = "device-height"
attrGet _ = getViewportAttributesDeviceHeight
attrSet _ = setViewportAttributesDeviceHeight
attrConstruct _ = constructViewportAttributesDeviceHeight
attrClear _ = undefined
-- VVV Prop "device-pixel-ratio"
-- Type: TBasicType TFloat
-- Flags: [PropertyReadable]
-- Nullable: (Nothing,Nothing)
getViewportAttributesDevicePixelRatio :: (MonadIO m, ViewportAttributesK o) => o -> m Float
getViewportAttributesDevicePixelRatio obj = liftIO $ getObjectPropertyFloat obj "device-pixel-ratio"
data ViewportAttributesDevicePixelRatioPropertyInfo
instance AttrInfo ViewportAttributesDevicePixelRatioPropertyInfo where
type AttrAllowedOps ViewportAttributesDevicePixelRatioPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ViewportAttributesDevicePixelRatioPropertyInfo = (~) ()
type AttrBaseTypeConstraint ViewportAttributesDevicePixelRatioPropertyInfo = ViewportAttributesK
type AttrGetType ViewportAttributesDevicePixelRatioPropertyInfo = Float
type AttrLabel ViewportAttributesDevicePixelRatioPropertyInfo = "device-pixel-ratio"
attrGet _ = getViewportAttributesDevicePixelRatio
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
-- VVV Prop "device-width"
-- Type: TBasicType TInt
-- Flags: [PropertyReadable,PropertyWritable]
-- Nullable: (Nothing,Nothing)
getViewportAttributesDeviceWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32
getViewportAttributesDeviceWidth obj = liftIO $ getObjectPropertyInt32 obj "device-width"
setViewportAttributesDeviceWidth :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m ()
setViewportAttributesDeviceWidth obj val = liftIO $ setObjectPropertyInt32 obj "device-width" val
constructViewportAttributesDeviceWidth :: Int32 -> IO ([Char], GValue)
constructViewportAttributesDeviceWidth val = constructObjectPropertyInt32 "device-width" val
data ViewportAttributesDeviceWidthPropertyInfo
instance AttrInfo ViewportAttributesDeviceWidthPropertyInfo where
type AttrAllowedOps ViewportAttributesDeviceWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ViewportAttributesDeviceWidthPropertyInfo = (~) Int32
type AttrBaseTypeConstraint ViewportAttributesDeviceWidthPropertyInfo = ViewportAttributesK
type AttrGetType ViewportAttributesDeviceWidthPropertyInfo = Int32
type AttrLabel ViewportAttributesDeviceWidthPropertyInfo = "device-width"
attrGet _ = getViewportAttributesDeviceWidth
attrSet _ = setViewportAttributesDeviceWidth
attrConstruct _ = constructViewportAttributesDeviceWidth
attrClear _ = undefined
-- VVV Prop "height"
-- Type: TBasicType TInt
-- Flags: [PropertyReadable]
-- Nullable: (Nothing,Nothing)
getViewportAttributesHeight :: (MonadIO m, ViewportAttributesK o) => o -> m Int32
getViewportAttributesHeight obj = liftIO $ getObjectPropertyInt32 obj "height"
data ViewportAttributesHeightPropertyInfo
instance AttrInfo ViewportAttributesHeightPropertyInfo where
type AttrAllowedOps ViewportAttributesHeightPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ViewportAttributesHeightPropertyInfo = (~) ()
type AttrBaseTypeConstraint ViewportAttributesHeightPropertyInfo = ViewportAttributesK
type AttrGetType ViewportAttributesHeightPropertyInfo = Int32
type AttrLabel ViewportAttributesHeightPropertyInfo = "height"
attrGet _ = getViewportAttributesHeight
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
-- VVV Prop "initial-scale-factor"
-- Type: TBasicType TFloat
-- Flags: [PropertyReadable]
-- Nullable: (Nothing,Nothing)
getViewportAttributesInitialScaleFactor :: (MonadIO m, ViewportAttributesK o) => o -> m Float
getViewportAttributesInitialScaleFactor obj = liftIO $ getObjectPropertyFloat obj "initial-scale-factor"
data ViewportAttributesInitialScaleFactorPropertyInfo
instance AttrInfo ViewportAttributesInitialScaleFactorPropertyInfo where
type AttrAllowedOps ViewportAttributesInitialScaleFactorPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ViewportAttributesInitialScaleFactorPropertyInfo = (~) ()
type AttrBaseTypeConstraint ViewportAttributesInitialScaleFactorPropertyInfo = ViewportAttributesK
type AttrGetType ViewportAttributesInitialScaleFactorPropertyInfo = Float
type AttrLabel ViewportAttributesInitialScaleFactorPropertyInfo = "initial-scale-factor"
attrGet _ = getViewportAttributesInitialScaleFactor
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
-- VVV Prop "maximum-scale-factor"
-- Type: TBasicType TFloat
-- Flags: [PropertyReadable]
-- Nullable: (Nothing,Nothing)
getViewportAttributesMaximumScaleFactor :: (MonadIO m, ViewportAttributesK o) => o -> m Float
getViewportAttributesMaximumScaleFactor obj = liftIO $ getObjectPropertyFloat obj "maximum-scale-factor"
data ViewportAttributesMaximumScaleFactorPropertyInfo
instance AttrInfo ViewportAttributesMaximumScaleFactorPropertyInfo where
type AttrAllowedOps ViewportAttributesMaximumScaleFactorPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ViewportAttributesMaximumScaleFactorPropertyInfo = (~) ()
type AttrBaseTypeConstraint ViewportAttributesMaximumScaleFactorPropertyInfo = ViewportAttributesK
type AttrGetType ViewportAttributesMaximumScaleFactorPropertyInfo = Float
type AttrLabel ViewportAttributesMaximumScaleFactorPropertyInfo = "maximum-scale-factor"
attrGet _ = getViewportAttributesMaximumScaleFactor
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
-- VVV Prop "minimum-scale-factor"
-- Type: TBasicType TFloat
-- Flags: [PropertyReadable]
-- Nullable: (Nothing,Nothing)
getViewportAttributesMinimumScaleFactor :: (MonadIO m, ViewportAttributesK o) => o -> m Float
getViewportAttributesMinimumScaleFactor obj = liftIO $ getObjectPropertyFloat obj "minimum-scale-factor"
data ViewportAttributesMinimumScaleFactorPropertyInfo
instance AttrInfo ViewportAttributesMinimumScaleFactorPropertyInfo where
type AttrAllowedOps ViewportAttributesMinimumScaleFactorPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ViewportAttributesMinimumScaleFactorPropertyInfo = (~) ()
type AttrBaseTypeConstraint ViewportAttributesMinimumScaleFactorPropertyInfo = ViewportAttributesK
type AttrGetType ViewportAttributesMinimumScaleFactorPropertyInfo = Float
type AttrLabel ViewportAttributesMinimumScaleFactorPropertyInfo = "minimum-scale-factor"
attrGet _ = getViewportAttributesMinimumScaleFactor
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
-- VVV Prop "user-scalable"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable]
-- Nullable: (Nothing,Nothing)
getViewportAttributesUserScalable :: (MonadIO m, ViewportAttributesK o) => o -> m Bool
getViewportAttributesUserScalable obj = liftIO $ getObjectPropertyBool obj "user-scalable"
data ViewportAttributesUserScalablePropertyInfo
instance AttrInfo ViewportAttributesUserScalablePropertyInfo where
type AttrAllowedOps ViewportAttributesUserScalablePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ViewportAttributesUserScalablePropertyInfo = (~) ()
type AttrBaseTypeConstraint ViewportAttributesUserScalablePropertyInfo = ViewportAttributesK
type AttrGetType ViewportAttributesUserScalablePropertyInfo = Bool
type AttrLabel ViewportAttributesUserScalablePropertyInfo = "user-scalable"
attrGet _ = getViewportAttributesUserScalable
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
-- VVV Prop "valid"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable]
-- Nullable: (Nothing,Nothing)
getViewportAttributesValid :: (MonadIO m, ViewportAttributesK o) => o -> m Bool
getViewportAttributesValid obj = liftIO $ getObjectPropertyBool obj "valid"
data ViewportAttributesValidPropertyInfo
instance AttrInfo ViewportAttributesValidPropertyInfo where
type AttrAllowedOps ViewportAttributesValidPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ViewportAttributesValidPropertyInfo = (~) ()
type AttrBaseTypeConstraint ViewportAttributesValidPropertyInfo = ViewportAttributesK
type AttrGetType ViewportAttributesValidPropertyInfo = Bool
type AttrLabel ViewportAttributesValidPropertyInfo = "valid"
attrGet _ = getViewportAttributesValid
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
-- VVV Prop "width"
-- Type: TBasicType TInt
-- Flags: [PropertyReadable]
-- Nullable: (Nothing,Nothing)
getViewportAttributesWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32
getViewportAttributesWidth obj = liftIO $ getObjectPropertyInt32 obj "width"
data ViewportAttributesWidthPropertyInfo
instance AttrInfo ViewportAttributesWidthPropertyInfo where
type AttrAllowedOps ViewportAttributesWidthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ViewportAttributesWidthPropertyInfo = (~) ()
type AttrBaseTypeConstraint ViewportAttributesWidthPropertyInfo = ViewportAttributesK
type AttrGetType ViewportAttributesWidthPropertyInfo = Int32
type AttrLabel ViewportAttributesWidthPropertyInfo = "width"
attrGet _ = getViewportAttributesWidth
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
type instance AttributeList ViewportAttributes = ViewportAttributesAttributeList
type ViewportAttributesAttributeList = ('[ '("availableHeight", ViewportAttributesAvailableHeightPropertyInfo), '("availableWidth", ViewportAttributesAvailableWidthPropertyInfo), '("desktopWidth", ViewportAttributesDesktopWidthPropertyInfo), '("deviceDpi", ViewportAttributesDeviceDpiPropertyInfo), '("deviceHeight", ViewportAttributesDeviceHeightPropertyInfo), '("devicePixelRatio", ViewportAttributesDevicePixelRatioPropertyInfo), '("deviceWidth", ViewportAttributesDeviceWidthPropertyInfo), '("height", ViewportAttributesHeightPropertyInfo), '("initialScaleFactor", ViewportAttributesInitialScaleFactorPropertyInfo), '("maximumScaleFactor", ViewportAttributesMaximumScaleFactorPropertyInfo), '("minimumScaleFactor", ViewportAttributesMinimumScaleFactorPropertyInfo), '("userScalable", ViewportAttributesUserScalablePropertyInfo), '("valid", ViewportAttributesValidPropertyInfo), '("width", ViewportAttributesWidthPropertyInfo)] :: [(Symbol, *)])
viewportAttributesAvailableHeight :: AttrLabelProxy "availableHeight"
viewportAttributesAvailableHeight = AttrLabelProxy
viewportAttributesAvailableWidth :: AttrLabelProxy "availableWidth"
viewportAttributesAvailableWidth = AttrLabelProxy
viewportAttributesDesktopWidth :: AttrLabelProxy "desktopWidth"
viewportAttributesDesktopWidth = AttrLabelProxy
viewportAttributesDeviceDpi :: AttrLabelProxy "deviceDpi"
viewportAttributesDeviceDpi = AttrLabelProxy
viewportAttributesDeviceHeight :: AttrLabelProxy "deviceHeight"
viewportAttributesDeviceHeight = AttrLabelProxy
viewportAttributesDevicePixelRatio :: AttrLabelProxy "devicePixelRatio"
viewportAttributesDevicePixelRatio = AttrLabelProxy
viewportAttributesDeviceWidth :: AttrLabelProxy "deviceWidth"
viewportAttributesDeviceWidth = AttrLabelProxy
viewportAttributesHeight :: AttrLabelProxy "height"
viewportAttributesHeight = AttrLabelProxy
viewportAttributesInitialScaleFactor :: AttrLabelProxy "initialScaleFactor"
viewportAttributesInitialScaleFactor = AttrLabelProxy
viewportAttributesMaximumScaleFactor :: AttrLabelProxy "maximumScaleFactor"
viewportAttributesMaximumScaleFactor = AttrLabelProxy
viewportAttributesMinimumScaleFactor :: AttrLabelProxy "minimumScaleFactor"
viewportAttributesMinimumScaleFactor = AttrLabelProxy
viewportAttributesUserScalable :: AttrLabelProxy "userScalable"
viewportAttributesUserScalable = AttrLabelProxy
viewportAttributesValid :: AttrLabelProxy "valid"
viewportAttributesValid = AttrLabelProxy
viewportAttributesWidth :: AttrLabelProxy "width"
viewportAttributesWidth = AttrLabelProxy
type instance SignalList ViewportAttributes = ViewportAttributesSignalList
type ViewportAttributesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method ViewportAttributes::recompute
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "ViewportAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "webkit_viewport_attributes_recompute" webkit_viewport_attributes_recompute ::
Ptr ViewportAttributes -> -- _obj : TInterface "WebKit" "ViewportAttributes"
IO ()
viewportAttributesRecompute ::
(MonadIO m, ViewportAttributesK a) =>
a -- _obj
-> m () -- result
viewportAttributesRecompute _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_viewport_attributes_recompute _obj'
touchManagedPtr _obj
return ()
data ViewportAttributesRecomputeMethodInfo
instance (signature ~ (m ()), MonadIO m, ViewportAttributesK a) => MethodInfo ViewportAttributesRecomputeMethodInfo a signature where
overloadedMethod _ = viewportAttributesRecompute