module GI.WebKit.Objects.DOMWebKitNamedFlow
(
DOMWebKitNamedFlow(..) ,
DOMWebKitNamedFlowK ,
toDOMWebKitNamedFlow ,
noDOMWebKitNamedFlow ,
dOMWebKitNamedFlowDispatchEvent ,
dOMWebKitNamedFlowGetContent ,
dOMWebKitNamedFlowGetContentNodes ,
dOMWebKitNamedFlowGetFirstEmptyRegionIndex,
dOMWebKitNamedFlowGetName ,
dOMWebKitNamedFlowGetOverflow ,
dOMWebKitNamedFlowGetOverset ,
dOMWebKitNamedFlowGetRegions ,
dOMWebKitNamedFlowGetRegionsByContent ,
dOMWebKitNamedFlowGetRegionsByContentNode,
DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo,
getDOMWebKitNamedFlowFirstEmptyRegionIndex,
DOMWebKitNamedFlowNamePropertyInfo ,
getDOMWebKitNamedFlowName ,
DOMWebKitNamedFlowOversetPropertyInfo ,
getDOMWebKitNamedFlowOverset ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
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 DOMWebKitNamedFlow = DOMWebKitNamedFlow (ForeignPtr DOMWebKitNamedFlow)
foreign import ccall "webkit_dom_webkit_named_flow_get_type"
c_webkit_dom_webkit_named_flow_get_type :: IO GType
type instance ParentTypes DOMWebKitNamedFlow = DOMWebKitNamedFlowParentTypes
type DOMWebKitNamedFlowParentTypes = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMWebKitNamedFlow where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_webkit_named_flow_get_type
class GObject o => DOMWebKitNamedFlowK o
instance (GObject o, IsDescendantOf DOMWebKitNamedFlow o) => DOMWebKitNamedFlowK o
toDOMWebKitNamedFlow :: DOMWebKitNamedFlowK o => o -> IO DOMWebKitNamedFlow
toDOMWebKitNamedFlow = unsafeCastTo DOMWebKitNamedFlow
noDOMWebKitNamedFlow :: Maybe DOMWebKitNamedFlow
noDOMWebKitNamedFlow = Nothing
getDOMWebKitNamedFlowFirstEmptyRegionIndex :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m Int64
getDOMWebKitNamedFlowFirstEmptyRegionIndex obj = liftIO $ getObjectPropertyInt64 obj "first-empty-region-index"
data DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo
instance AttrInfo DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo where
type AttrAllowedOps DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = DOMWebKitNamedFlowK
type AttrGetType DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = Int64
type AttrLabel DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = "DOMWebKitNamedFlow::first-empty-region-index"
attrGet _ = getDOMWebKitNamedFlowFirstEmptyRegionIndex
attrSet _ = undefined
attrConstruct _ = undefined
getDOMWebKitNamedFlowName :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m T.Text
getDOMWebKitNamedFlowName obj = liftIO $ getObjectPropertyString obj "name"
data DOMWebKitNamedFlowNamePropertyInfo
instance AttrInfo DOMWebKitNamedFlowNamePropertyInfo where
type AttrAllowedOps DOMWebKitNamedFlowNamePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMWebKitNamedFlowNamePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMWebKitNamedFlowNamePropertyInfo = DOMWebKitNamedFlowK
type AttrGetType DOMWebKitNamedFlowNamePropertyInfo = T.Text
type AttrLabel DOMWebKitNamedFlowNamePropertyInfo = "DOMWebKitNamedFlow::name"
attrGet _ = getDOMWebKitNamedFlowName
attrSet _ = undefined
attrConstruct _ = undefined
getDOMWebKitNamedFlowOverset :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m Bool
getDOMWebKitNamedFlowOverset obj = liftIO $ getObjectPropertyBool obj "overset"
data DOMWebKitNamedFlowOversetPropertyInfo
instance AttrInfo DOMWebKitNamedFlowOversetPropertyInfo where
type AttrAllowedOps DOMWebKitNamedFlowOversetPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMWebKitNamedFlowOversetPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMWebKitNamedFlowOversetPropertyInfo = DOMWebKitNamedFlowK
type AttrGetType DOMWebKitNamedFlowOversetPropertyInfo = Bool
type AttrLabel DOMWebKitNamedFlowOversetPropertyInfo = "DOMWebKitNamedFlow::overset"
attrGet _ = getDOMWebKitNamedFlowOverset
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMWebKitNamedFlow = DOMWebKitNamedFlowAttributeList
type DOMWebKitNamedFlowAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-empty-region-index", DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo), '("name", DOMWebKitNamedFlowNamePropertyInfo), '("overset", DOMWebKitNamedFlowOversetPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMWebKitNamedFlow = DOMWebKitNamedFlowSignalList
type DOMWebKitNamedFlowSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_webkit_named_flow_dispatch_event" webkit_dom_webkit_named_flow_dispatch_event ::
Ptr DOMWebKitNamedFlow ->
Ptr DOMEvent ->
Ptr (Ptr GError) ->
IO CInt
dOMWebKitNamedFlowDispatchEvent ::
(MonadIO m, DOMWebKitNamedFlowK a, DOMEventK b) =>
a ->
b ->
m ()
dOMWebKitNamedFlowDispatchEvent _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrCastPtr event
onException (do
_ <- propagateGError $ webkit_dom_webkit_named_flow_dispatch_event _obj' event'
touchManagedPtr _obj
touchManagedPtr event
return ()
) (do
return ()
)
foreign import ccall "webkit_dom_webkit_named_flow_get_content" webkit_dom_webkit_named_flow_get_content ::
Ptr DOMWebKitNamedFlow ->
IO (Ptr DOMNodeList)
dOMWebKitNamedFlowGetContent ::
(MonadIO m, DOMWebKitNamedFlowK a) =>
a ->
m DOMNodeList
dOMWebKitNamedFlowGetContent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_webkit_named_flow_get_content _obj'
checkUnexpectedReturnNULL "webkit_dom_webkit_named_flow_get_content" result
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_webkit_named_flow_get_content_nodes" webkit_dom_webkit_named_flow_get_content_nodes ::
Ptr DOMWebKitNamedFlow ->
IO (Ptr DOMNodeList)
dOMWebKitNamedFlowGetContentNodes ::
(MonadIO m, DOMWebKitNamedFlowK a) =>
a ->
m DOMNodeList
dOMWebKitNamedFlowGetContentNodes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_webkit_named_flow_get_content_nodes _obj'
checkUnexpectedReturnNULL "webkit_dom_webkit_named_flow_get_content_nodes" result
result' <- (newObject DOMNodeList) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_webkit_named_flow_get_first_empty_region_index" webkit_dom_webkit_named_flow_get_first_empty_region_index ::
Ptr DOMWebKitNamedFlow ->
IO Int64
dOMWebKitNamedFlowGetFirstEmptyRegionIndex ::
(MonadIO m, DOMWebKitNamedFlowK a) =>
a ->
m Int64
dOMWebKitNamedFlowGetFirstEmptyRegionIndex _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_webkit_named_flow_get_first_empty_region_index _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_webkit_named_flow_get_name" webkit_dom_webkit_named_flow_get_name ::
Ptr DOMWebKitNamedFlow ->
IO CString
dOMWebKitNamedFlowGetName ::
(MonadIO m, DOMWebKitNamedFlowK a) =>
a ->
m T.Text
dOMWebKitNamedFlowGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_webkit_named_flow_get_name _obj'
checkUnexpectedReturnNULL "webkit_dom_webkit_named_flow_get_name" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_webkit_named_flow_get_overflow" webkit_dom_webkit_named_flow_get_overflow ::
Ptr DOMWebKitNamedFlow ->
IO CInt
dOMWebKitNamedFlowGetOverflow ::
(MonadIO m, DOMWebKitNamedFlowK a) =>
a ->
m Bool
dOMWebKitNamedFlowGetOverflow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_webkit_named_flow_get_overflow _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_webkit_named_flow_get_overset" webkit_dom_webkit_named_flow_get_overset ::
Ptr DOMWebKitNamedFlow ->
IO CInt
dOMWebKitNamedFlowGetOverset ::
(MonadIO m, DOMWebKitNamedFlowK a) =>
a ->
m Bool
dOMWebKitNamedFlowGetOverset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_webkit_named_flow_get_overset _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_webkit_named_flow_get_regions" webkit_dom_webkit_named_flow_get_regions ::
Ptr DOMWebKitNamedFlow ->
IO (Ptr DOMNodeList)
dOMWebKitNamedFlowGetRegions ::
(MonadIO m, DOMWebKitNamedFlowK a) =>
a ->
m DOMNodeList
dOMWebKitNamedFlowGetRegions _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_webkit_named_flow_get_regions _obj'
checkUnexpectedReturnNULL "webkit_dom_webkit_named_flow_get_regions" result
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_webkit_named_flow_get_regions_by_content" webkit_dom_webkit_named_flow_get_regions_by_content ::
Ptr DOMWebKitNamedFlow ->
Ptr DOMNode ->
IO (Ptr DOMNodeList)
dOMWebKitNamedFlowGetRegionsByContent ::
(MonadIO m, DOMWebKitNamedFlowK a, DOMNodeK b) =>
a ->
b ->
m DOMNodeList
dOMWebKitNamedFlowGetRegionsByContent _obj contentNode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let contentNode' = unsafeManagedPtrCastPtr contentNode
result <- webkit_dom_webkit_named_flow_get_regions_by_content _obj' contentNode'
checkUnexpectedReturnNULL "webkit_dom_webkit_named_flow_get_regions_by_content" result
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
touchManagedPtr contentNode
return result'
foreign import ccall "webkit_dom_webkit_named_flow_get_regions_by_content_node" webkit_dom_webkit_named_flow_get_regions_by_content_node ::
Ptr DOMWebKitNamedFlow ->
Ptr DOMNode ->
IO (Ptr DOMNodeList)
dOMWebKitNamedFlowGetRegionsByContentNode ::
(MonadIO m, DOMWebKitNamedFlowK a, DOMNodeK b) =>
a ->
b ->
m DOMNodeList
dOMWebKitNamedFlowGetRegionsByContentNode _obj content_node = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let content_node' = unsafeManagedPtrCastPtr content_node
result <- webkit_dom_webkit_named_flow_get_regions_by_content_node _obj' content_node'
checkUnexpectedReturnNULL "webkit_dom_webkit_named_flow_get_regions_by_content_node" result
result' <- (newObject DOMNodeList) result
touchManagedPtr _obj
touchManagedPtr content_node
return result'