{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMClientRect
(
DOMClientRect(..) ,
IsDOMClientRect ,
toDOMClientRect ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMClientRectMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMClientRectGetBottomMethodInfo ,
#endif
dOMClientRectGetBottom ,
#if defined(ENABLE_OVERLOADING)
DOMClientRectGetHeightMethodInfo ,
#endif
dOMClientRectGetHeight ,
#if defined(ENABLE_OVERLOADING)
DOMClientRectGetLeftMethodInfo ,
#endif
dOMClientRectGetLeft ,
#if defined(ENABLE_OVERLOADING)
DOMClientRectGetRightMethodInfo ,
#endif
dOMClientRectGetRight ,
#if defined(ENABLE_OVERLOADING)
DOMClientRectGetTopMethodInfo ,
#endif
dOMClientRectGetTop ,
#if defined(ENABLE_OVERLOADING)
DOMClientRectGetWidthMethodInfo ,
#endif
dOMClientRectGetWidth ,
#if defined(ENABLE_OVERLOADING)
DOMClientRectBottomPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMClientRectBottom ,
#endif
getDOMClientRectBottom ,
#if defined(ENABLE_OVERLOADING)
DOMClientRectHeightPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMClientRectHeight ,
#endif
getDOMClientRectHeight ,
#if defined(ENABLE_OVERLOADING)
DOMClientRectLeftPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMClientRectLeft ,
#endif
getDOMClientRectLeft ,
#if defined(ENABLE_OVERLOADING)
DOMClientRectRightPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMClientRectRight ,
#endif
getDOMClientRectRight ,
#if defined(ENABLE_OVERLOADING)
DOMClientRectTopPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMClientRectTop ,
#endif
getDOMClientRectTop ,
#if defined(ENABLE_OVERLOADING)
DOMClientRectWidthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMClientRectWidth ,
#endif
getDOMClientRectWidth ,
) 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 {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMClientRect = DOMClientRect (SP.ManagedPtr DOMClientRect)
deriving (DOMClientRect -> DOMClientRect -> Bool
(DOMClientRect -> DOMClientRect -> Bool)
-> (DOMClientRect -> DOMClientRect -> Bool) -> Eq DOMClientRect
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DOMClientRect -> DOMClientRect -> Bool
== :: DOMClientRect -> DOMClientRect -> Bool
$c/= :: DOMClientRect -> DOMClientRect -> Bool
/= :: DOMClientRect -> DOMClientRect -> Bool
Eq)
instance SP.ManagedPtrNewtype DOMClientRect where
toManagedPtr :: DOMClientRect -> ManagedPtr DOMClientRect
toManagedPtr (DOMClientRect ManagedPtr DOMClientRect
p) = ManagedPtr DOMClientRect
p
foreign import ccall "webkit_dom_client_rect_get_type"
c_webkit_dom_client_rect_get_type :: IO B.Types.GType
instance B.Types.TypedObject DOMClientRect where
glibType :: IO GType
glibType = IO GType
c_webkit_dom_client_rect_get_type
instance B.Types.GObject DOMClientRect
class (SP.GObject o, O.IsDescendantOf DOMClientRect o) => IsDOMClientRect o
instance (SP.GObject o, O.IsDescendantOf DOMClientRect o) => IsDOMClientRect o
instance O.HasParentTypes DOMClientRect
type instance O.ParentTypes DOMClientRect = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMClientRect :: (MIO.MonadIO m, IsDOMClientRect o) => o -> m DOMClientRect
toDOMClientRect :: forall (m :: * -> *) o.
(MonadIO m, IsDOMClientRect o) =>
o -> m DOMClientRect
toDOMClientRect = IO DOMClientRect -> m DOMClientRect
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMClientRect -> m DOMClientRect)
-> (o -> IO DOMClientRect) -> o -> m DOMClientRect
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMClientRect -> DOMClientRect)
-> o -> IO DOMClientRect
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DOMClientRect -> DOMClientRect
DOMClientRect
instance B.GValue.IsGValue (Maybe DOMClientRect) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_dom_client_rect_get_type
gvalueSet_ :: Ptr GValue -> Maybe DOMClientRect -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DOMClientRect
P.Nothing = Ptr GValue -> Ptr DOMClientRect -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DOMClientRect
forall a. Ptr a
FP.nullPtr :: FP.Ptr DOMClientRect)
gvalueSet_ Ptr GValue
gv (P.Just DOMClientRect
obj) = DOMClientRect -> (Ptr DOMClientRect -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMClientRect
obj (Ptr GValue -> Ptr DOMClientRect -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DOMClientRect)
gvalueGet_ Ptr GValue
gv = do
Ptr DOMClientRect
ptr <- Ptr GValue -> IO (Ptr DOMClientRect)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DOMClientRect)
if Ptr DOMClientRect
ptr Ptr DOMClientRect -> Ptr DOMClientRect -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DOMClientRect
forall a. Ptr a
FP.nullPtr
then DOMClientRect -> Maybe DOMClientRect
forall a. a -> Maybe a
P.Just (DOMClientRect -> Maybe DOMClientRect)
-> IO DOMClientRect -> IO (Maybe DOMClientRect)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DOMClientRect -> DOMClientRect)
-> Ptr DOMClientRect -> IO DOMClientRect
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMClientRect -> DOMClientRect
DOMClientRect Ptr DOMClientRect
ptr
else Maybe DOMClientRect -> IO (Maybe DOMClientRect)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DOMClientRect
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMClientRectMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMClientRectMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMClientRectMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMClientRectMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMClientRectMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMClientRectMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMClientRectMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMClientRectMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMClientRectMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMClientRectMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMClientRectMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMClientRectMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMClientRectMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMClientRectMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMClientRectMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMClientRectMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMClientRectMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMClientRectMethod "getBottom" o = DOMClientRectGetBottomMethodInfo
ResolveDOMClientRectMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMClientRectMethod "getHeight" o = DOMClientRectGetHeightMethodInfo
ResolveDOMClientRectMethod "getLeft" o = DOMClientRectGetLeftMethodInfo
ResolveDOMClientRectMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMClientRectMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMClientRectMethod "getRight" o = DOMClientRectGetRightMethodInfo
ResolveDOMClientRectMethod "getTop" o = DOMClientRectGetTopMethodInfo
ResolveDOMClientRectMethod "getWidth" o = DOMClientRectGetWidthMethodInfo
ResolveDOMClientRectMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMClientRectMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMClientRectMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMClientRectMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMClientRectMethod t DOMClientRect, O.OverloadedMethod info DOMClientRect p) => OL.IsLabel t (DOMClientRect -> 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 ~ ResolveDOMClientRectMethod t DOMClientRect, O.OverloadedMethod info DOMClientRect p, R.HasField t DOMClientRect p) => R.HasField t DOMClientRect p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDOMClientRectMethod t DOMClientRect, O.OverloadedMethodInfo info DOMClientRect) => OL.IsLabel t (O.MethodProxy info DOMClientRect) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getDOMClientRectBottom :: (MonadIO m, IsDOMClientRect o) => o -> m Float
getDOMClientRectBottom :: forall (m :: * -> *) o.
(MonadIO m, IsDOMClientRect o) =>
o -> m Float
getDOMClientRectBottom o
obj = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj String
"bottom"
#if defined(ENABLE_OVERLOADING)
data DOMClientRectBottomPropertyInfo
instance AttrInfo DOMClientRectBottomPropertyInfo where
type AttrAllowedOps DOMClientRectBottomPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMClientRectBottomPropertyInfo = IsDOMClientRect
type AttrSetTypeConstraint DOMClientRectBottomPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMClientRectBottomPropertyInfo = (~) ()
type AttrTransferType DOMClientRectBottomPropertyInfo = ()
type AttrGetType DOMClientRectBottomPropertyInfo = Float
type AttrLabel DOMClientRectBottomPropertyInfo = "bottom"
type AttrOrigin DOMClientRectBottomPropertyInfo = DOMClientRect
attrGet = getDOMClientRectBottom
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMClientRect.bottom"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMClientRect.html#g:attr:bottom"
})
#endif
getDOMClientRectHeight :: (MonadIO m, IsDOMClientRect o) => o -> m Float
getDOMClientRectHeight :: forall (m :: * -> *) o.
(MonadIO m, IsDOMClientRect o) =>
o -> m Float
getDOMClientRectHeight o
obj = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj String
"height"
#if defined(ENABLE_OVERLOADING)
data DOMClientRectHeightPropertyInfo
instance AttrInfo DOMClientRectHeightPropertyInfo where
type AttrAllowedOps DOMClientRectHeightPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMClientRectHeightPropertyInfo = IsDOMClientRect
type AttrSetTypeConstraint DOMClientRectHeightPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMClientRectHeightPropertyInfo = (~) ()
type AttrTransferType DOMClientRectHeightPropertyInfo = ()
type AttrGetType DOMClientRectHeightPropertyInfo = Float
type AttrLabel DOMClientRectHeightPropertyInfo = "height"
type AttrOrigin DOMClientRectHeightPropertyInfo = DOMClientRect
attrGet = getDOMClientRectHeight
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMClientRect.height"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMClientRect.html#g:attr:height"
})
#endif
getDOMClientRectLeft :: (MonadIO m, IsDOMClientRect o) => o -> m Float
getDOMClientRectLeft :: forall (m :: * -> *) o.
(MonadIO m, IsDOMClientRect o) =>
o -> m Float
getDOMClientRectLeft o
obj = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj String
"left"
#if defined(ENABLE_OVERLOADING)
data DOMClientRectLeftPropertyInfo
instance AttrInfo DOMClientRectLeftPropertyInfo where
type AttrAllowedOps DOMClientRectLeftPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMClientRectLeftPropertyInfo = IsDOMClientRect
type AttrSetTypeConstraint DOMClientRectLeftPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMClientRectLeftPropertyInfo = (~) ()
type AttrTransferType DOMClientRectLeftPropertyInfo = ()
type AttrGetType DOMClientRectLeftPropertyInfo = Float
type AttrLabel DOMClientRectLeftPropertyInfo = "left"
type AttrOrigin DOMClientRectLeftPropertyInfo = DOMClientRect
attrGet = getDOMClientRectLeft
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMClientRect.left"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMClientRect.html#g:attr:left"
})
#endif
getDOMClientRectRight :: (MonadIO m, IsDOMClientRect o) => o -> m Float
getDOMClientRectRight :: forall (m :: * -> *) o.
(MonadIO m, IsDOMClientRect o) =>
o -> m Float
getDOMClientRectRight o
obj = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj String
"right"
#if defined(ENABLE_OVERLOADING)
data DOMClientRectRightPropertyInfo
instance AttrInfo DOMClientRectRightPropertyInfo where
type AttrAllowedOps DOMClientRectRightPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMClientRectRightPropertyInfo = IsDOMClientRect
type AttrSetTypeConstraint DOMClientRectRightPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMClientRectRightPropertyInfo = (~) ()
type AttrTransferType DOMClientRectRightPropertyInfo = ()
type AttrGetType DOMClientRectRightPropertyInfo = Float
type AttrLabel DOMClientRectRightPropertyInfo = "right"
type AttrOrigin DOMClientRectRightPropertyInfo = DOMClientRect
attrGet = getDOMClientRectRight
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMClientRect.right"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMClientRect.html#g:attr:right"
})
#endif
getDOMClientRectTop :: (MonadIO m, IsDOMClientRect o) => o -> m Float
getDOMClientRectTop :: forall (m :: * -> *) o.
(MonadIO m, IsDOMClientRect o) =>
o -> m Float
getDOMClientRectTop o
obj = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj String
"top"
#if defined(ENABLE_OVERLOADING)
data DOMClientRectTopPropertyInfo
instance AttrInfo DOMClientRectTopPropertyInfo where
type AttrAllowedOps DOMClientRectTopPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMClientRectTopPropertyInfo = IsDOMClientRect
type AttrSetTypeConstraint DOMClientRectTopPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMClientRectTopPropertyInfo = (~) ()
type AttrTransferType DOMClientRectTopPropertyInfo = ()
type AttrGetType DOMClientRectTopPropertyInfo = Float
type AttrLabel DOMClientRectTopPropertyInfo = "top"
type AttrOrigin DOMClientRectTopPropertyInfo = DOMClientRect
attrGet = getDOMClientRectTop
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMClientRect.top"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMClientRect.html#g:attr:top"
})
#endif
getDOMClientRectWidth :: (MonadIO m, IsDOMClientRect o) => o -> m Float
getDOMClientRectWidth :: forall (m :: * -> *) o.
(MonadIO m, IsDOMClientRect o) =>
o -> m Float
getDOMClientRectWidth o
obj = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj String
"width"
#if defined(ENABLE_OVERLOADING)
data DOMClientRectWidthPropertyInfo
instance AttrInfo DOMClientRectWidthPropertyInfo where
type AttrAllowedOps DOMClientRectWidthPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMClientRectWidthPropertyInfo = IsDOMClientRect
type AttrSetTypeConstraint DOMClientRectWidthPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMClientRectWidthPropertyInfo = (~) ()
type AttrTransferType DOMClientRectWidthPropertyInfo = ()
type AttrGetType DOMClientRectWidthPropertyInfo = Float
type AttrLabel DOMClientRectWidthPropertyInfo = "width"
type AttrOrigin DOMClientRectWidthPropertyInfo = DOMClientRect
attrGet = getDOMClientRectWidth
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMClientRect.width"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMClientRect.html#g:attr:width"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMClientRect
type instance O.AttributeList DOMClientRect = DOMClientRectAttributeList
type DOMClientRectAttributeList = ('[ '("bottom", DOMClientRectBottomPropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("height", DOMClientRectHeightPropertyInfo), '("left", DOMClientRectLeftPropertyInfo), '("right", DOMClientRectRightPropertyInfo), '("top", DOMClientRectTopPropertyInfo), '("width", DOMClientRectWidthPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMClientRectBottom :: AttrLabelProxy "bottom"
dOMClientRectBottom = AttrLabelProxy
dOMClientRectHeight :: AttrLabelProxy "height"
dOMClientRectHeight = AttrLabelProxy
dOMClientRectLeft :: AttrLabelProxy "left"
dOMClientRectLeft = AttrLabelProxy
dOMClientRectRight :: AttrLabelProxy "right"
dOMClientRectRight = AttrLabelProxy
dOMClientRectTop :: AttrLabelProxy "top"
dOMClientRectTop = AttrLabelProxy
dOMClientRectWidth :: AttrLabelProxy "width"
dOMClientRectWidth = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMClientRect = DOMClientRectSignalList
type DOMClientRectSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_client_rect_get_bottom" webkit_dom_client_rect_get_bottom ::
Ptr DOMClientRect ->
IO CFloat
{-# DEPRECATED dOMClientRectGetBottom ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMClientRectGetBottom ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMClientRect a) =>
a
-> m Float
dOMClientRectGetBottom :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMClientRect a) =>
a -> m Float
dOMClientRectGetBottom a
self = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMClientRect
self' <- a -> IO (Ptr DOMClientRect)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CFloat
result <- Ptr DOMClientRect -> IO CFloat
webkit_dom_client_rect_get_bottom Ptr DOMClientRect
self'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Float -> IO Float
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data DOMClientRectGetBottomMethodInfo
instance (signature ~ (m Float), MonadIO m, IsDOMClientRect a) => O.OverloadedMethod DOMClientRectGetBottomMethodInfo a signature where
overloadedMethod = dOMClientRectGetBottom
instance O.OverloadedMethodInfo DOMClientRectGetBottomMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMClientRect.dOMClientRectGetBottom",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMClientRect.html#v:dOMClientRectGetBottom"
})
#endif
foreign import ccall "webkit_dom_client_rect_get_height" webkit_dom_client_rect_get_height ::
Ptr DOMClientRect ->
IO CFloat
{-# DEPRECATED dOMClientRectGetHeight ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMClientRectGetHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMClientRect a) =>
a
-> m Float
dOMClientRectGetHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMClientRect a) =>
a -> m Float
dOMClientRectGetHeight a
self = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMClientRect
self' <- a -> IO (Ptr DOMClientRect)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CFloat
result <- Ptr DOMClientRect -> IO CFloat
webkit_dom_client_rect_get_height Ptr DOMClientRect
self'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Float -> IO Float
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data DOMClientRectGetHeightMethodInfo
instance (signature ~ (m Float), MonadIO m, IsDOMClientRect a) => O.OverloadedMethod DOMClientRectGetHeightMethodInfo a signature where
overloadedMethod = dOMClientRectGetHeight
instance O.OverloadedMethodInfo DOMClientRectGetHeightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMClientRect.dOMClientRectGetHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMClientRect.html#v:dOMClientRectGetHeight"
})
#endif
foreign import ccall "webkit_dom_client_rect_get_left" webkit_dom_client_rect_get_left ::
Ptr DOMClientRect ->
IO CFloat
{-# DEPRECATED dOMClientRectGetLeft ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMClientRectGetLeft ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMClientRect a) =>
a
-> m Float
dOMClientRectGetLeft :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMClientRect a) =>
a -> m Float
dOMClientRectGetLeft a
self = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMClientRect
self' <- a -> IO (Ptr DOMClientRect)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CFloat
result <- Ptr DOMClientRect -> IO CFloat
webkit_dom_client_rect_get_left Ptr DOMClientRect
self'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Float -> IO Float
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data DOMClientRectGetLeftMethodInfo
instance (signature ~ (m Float), MonadIO m, IsDOMClientRect a) => O.OverloadedMethod DOMClientRectGetLeftMethodInfo a signature where
overloadedMethod = dOMClientRectGetLeft
instance O.OverloadedMethodInfo DOMClientRectGetLeftMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMClientRect.dOMClientRectGetLeft",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMClientRect.html#v:dOMClientRectGetLeft"
})
#endif
foreign import ccall "webkit_dom_client_rect_get_right" webkit_dom_client_rect_get_right ::
Ptr DOMClientRect ->
IO CFloat
{-# DEPRECATED dOMClientRectGetRight ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMClientRectGetRight ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMClientRect a) =>
a
-> m Float
dOMClientRectGetRight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMClientRect a) =>
a -> m Float
dOMClientRectGetRight a
self = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMClientRect
self' <- a -> IO (Ptr DOMClientRect)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CFloat
result <- Ptr DOMClientRect -> IO CFloat
webkit_dom_client_rect_get_right Ptr DOMClientRect
self'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Float -> IO Float
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data DOMClientRectGetRightMethodInfo
instance (signature ~ (m Float), MonadIO m, IsDOMClientRect a) => O.OverloadedMethod DOMClientRectGetRightMethodInfo a signature where
overloadedMethod = dOMClientRectGetRight
instance O.OverloadedMethodInfo DOMClientRectGetRightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMClientRect.dOMClientRectGetRight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMClientRect.html#v:dOMClientRectGetRight"
})
#endif
foreign import ccall "webkit_dom_client_rect_get_top" webkit_dom_client_rect_get_top ::
Ptr DOMClientRect ->
IO CFloat
{-# DEPRECATED dOMClientRectGetTop ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMClientRectGetTop ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMClientRect a) =>
a
-> m Float
dOMClientRectGetTop :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMClientRect a) =>
a -> m Float
dOMClientRectGetTop a
self = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMClientRect
self' <- a -> IO (Ptr DOMClientRect)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CFloat
result <- Ptr DOMClientRect -> IO CFloat
webkit_dom_client_rect_get_top Ptr DOMClientRect
self'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Float -> IO Float
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data DOMClientRectGetTopMethodInfo
instance (signature ~ (m Float), MonadIO m, IsDOMClientRect a) => O.OverloadedMethod DOMClientRectGetTopMethodInfo a signature where
overloadedMethod = dOMClientRectGetTop
instance O.OverloadedMethodInfo DOMClientRectGetTopMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMClientRect.dOMClientRectGetTop",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMClientRect.html#v:dOMClientRectGetTop"
})
#endif
foreign import ccall "webkit_dom_client_rect_get_width" webkit_dom_client_rect_get_width ::
Ptr DOMClientRect ->
IO CFloat
{-# DEPRECATED dOMClientRectGetWidth ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMClientRectGetWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMClientRect a) =>
a
-> m Float
dOMClientRectGetWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMClientRect a) =>
a -> m Float
dOMClientRectGetWidth a
self = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMClientRect
self' <- a -> IO (Ptr DOMClientRect)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CFloat
result <- Ptr DOMClientRect -> IO CFloat
webkit_dom_client_rect_get_width Ptr DOMClientRect
self'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Float -> IO Float
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data DOMClientRectGetWidthMethodInfo
instance (signature ~ (m Float), MonadIO m, IsDOMClientRect a) => O.OverloadedMethod DOMClientRectGetWidthMethodInfo a signature where
overloadedMethod = dOMClientRectGetWidth
instance O.OverloadedMethodInfo DOMClientRectGetWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMClientRect.dOMClientRectGetWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMClientRect.html#v:dOMClientRectGetWidth"
})
#endif