module GI.WebKit.Objects.DOMHTMLTableSectionElement
(
DOMHTMLTableSectionElement(..) ,
DOMHTMLTableSectionElementK ,
toDOMHTMLTableSectionElement ,
noDOMHTMLTableSectionElement ,
dOMHTMLTableSectionElementDeleteRow ,
dOMHTMLTableSectionElementGetAlign ,
dOMHTMLTableSectionElementGetCh ,
dOMHTMLTableSectionElementGetChOff ,
dOMHTMLTableSectionElementGetRows ,
dOMHTMLTableSectionElementGetVAlign ,
dOMHTMLTableSectionElementInsertRow ,
dOMHTMLTableSectionElementSetAlign ,
dOMHTMLTableSectionElementSetCh ,
dOMHTMLTableSectionElementSetChOff ,
dOMHTMLTableSectionElementSetVAlign ,
DOMHTMLTableSectionElementAlignPropertyInfo,
constructDOMHTMLTableSectionElementAlign,
getDOMHTMLTableSectionElementAlign ,
setDOMHTMLTableSectionElementAlign ,
DOMHTMLTableSectionElementChPropertyInfo,
constructDOMHTMLTableSectionElementCh ,
getDOMHTMLTableSectionElementCh ,
setDOMHTMLTableSectionElementCh ,
DOMHTMLTableSectionElementChOffPropertyInfo,
constructDOMHTMLTableSectionElementChOff,
getDOMHTMLTableSectionElementChOff ,
setDOMHTMLTableSectionElementChOff ,
DOMHTMLTableSectionElementRowsPropertyInfo,
getDOMHTMLTableSectionElementRows ,
DOMHTMLTableSectionElementVAlignPropertyInfo,
constructDOMHTMLTableSectionElementVAlign,
getDOMHTMLTableSectionElementVAlign ,
setDOMHTMLTableSectionElementVAlign ,
) 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 DOMHTMLTableSectionElement = DOMHTMLTableSectionElement (ForeignPtr DOMHTMLTableSectionElement)
foreign import ccall "webkit_dom_html_table_section_element_get_type"
c_webkit_dom_html_table_section_element_get_type :: IO GType
type instance ParentTypes DOMHTMLTableSectionElement = DOMHTMLTableSectionElementParentTypes
type DOMHTMLTableSectionElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLTableSectionElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_table_section_element_get_type
class GObject o => DOMHTMLTableSectionElementK o
instance (GObject o, IsDescendantOf DOMHTMLTableSectionElement o) => DOMHTMLTableSectionElementK o
toDOMHTMLTableSectionElement :: DOMHTMLTableSectionElementK o => o -> IO DOMHTMLTableSectionElement
toDOMHTMLTableSectionElement = unsafeCastTo DOMHTMLTableSectionElement
noDOMHTMLTableSectionElement :: Maybe DOMHTMLTableSectionElement
noDOMHTMLTableSectionElement = Nothing
getDOMHTMLTableSectionElementAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text
getDOMHTMLTableSectionElementAlign obj = liftIO $ getObjectPropertyString obj "align"
setDOMHTMLTableSectionElementAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m ()
setDOMHTMLTableSectionElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val
constructDOMHTMLTableSectionElementAlign :: T.Text -> IO ([Char], GValue)
constructDOMHTMLTableSectionElementAlign val = constructObjectPropertyString "align" val
data DOMHTMLTableSectionElementAlignPropertyInfo
instance AttrInfo DOMHTMLTableSectionElementAlignPropertyInfo where
type AttrAllowedOps DOMHTMLTableSectionElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLTableSectionElementAlignPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLTableSectionElementAlignPropertyInfo = DOMHTMLTableSectionElementK
type AttrGetType DOMHTMLTableSectionElementAlignPropertyInfo = T.Text
type AttrLabel DOMHTMLTableSectionElementAlignPropertyInfo = "DOMHTMLTableSectionElement::align"
attrGet _ = getDOMHTMLTableSectionElementAlign
attrSet _ = setDOMHTMLTableSectionElementAlign
attrConstruct _ = constructDOMHTMLTableSectionElementAlign
getDOMHTMLTableSectionElementCh :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text
getDOMHTMLTableSectionElementCh obj = liftIO $ getObjectPropertyString obj "ch"
setDOMHTMLTableSectionElementCh :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m ()
setDOMHTMLTableSectionElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val
constructDOMHTMLTableSectionElementCh :: T.Text -> IO ([Char], GValue)
constructDOMHTMLTableSectionElementCh val = constructObjectPropertyString "ch" val
data DOMHTMLTableSectionElementChPropertyInfo
instance AttrInfo DOMHTMLTableSectionElementChPropertyInfo where
type AttrAllowedOps DOMHTMLTableSectionElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLTableSectionElementChPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLTableSectionElementChPropertyInfo = DOMHTMLTableSectionElementK
type AttrGetType DOMHTMLTableSectionElementChPropertyInfo = T.Text
type AttrLabel DOMHTMLTableSectionElementChPropertyInfo = "DOMHTMLTableSectionElement::ch"
attrGet _ = getDOMHTMLTableSectionElementCh
attrSet _ = setDOMHTMLTableSectionElementCh
attrConstruct _ = constructDOMHTMLTableSectionElementCh
getDOMHTMLTableSectionElementChOff :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text
getDOMHTMLTableSectionElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off"
setDOMHTMLTableSectionElementChOff :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m ()
setDOMHTMLTableSectionElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val
constructDOMHTMLTableSectionElementChOff :: T.Text -> IO ([Char], GValue)
constructDOMHTMLTableSectionElementChOff val = constructObjectPropertyString "ch-off" val
data DOMHTMLTableSectionElementChOffPropertyInfo
instance AttrInfo DOMHTMLTableSectionElementChOffPropertyInfo where
type AttrAllowedOps DOMHTMLTableSectionElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLTableSectionElementChOffPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLTableSectionElementChOffPropertyInfo = DOMHTMLTableSectionElementK
type AttrGetType DOMHTMLTableSectionElementChOffPropertyInfo = T.Text
type AttrLabel DOMHTMLTableSectionElementChOffPropertyInfo = "DOMHTMLTableSectionElement::ch-off"
attrGet _ = getDOMHTMLTableSectionElementChOff
attrSet _ = setDOMHTMLTableSectionElementChOff
attrConstruct _ = constructDOMHTMLTableSectionElementChOff
getDOMHTMLTableSectionElementRows :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m DOMHTMLCollection
getDOMHTMLTableSectionElementRows obj = liftIO $ getObjectPropertyObject obj "rows" DOMHTMLCollection
data DOMHTMLTableSectionElementRowsPropertyInfo
instance AttrInfo DOMHTMLTableSectionElementRowsPropertyInfo where
type AttrAllowedOps DOMHTMLTableSectionElementRowsPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLTableSectionElementRowsPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLTableSectionElementRowsPropertyInfo = DOMHTMLTableSectionElementK
type AttrGetType DOMHTMLTableSectionElementRowsPropertyInfo = DOMHTMLCollection
type AttrLabel DOMHTMLTableSectionElementRowsPropertyInfo = "DOMHTMLTableSectionElement::rows"
attrGet _ = getDOMHTMLTableSectionElementRows
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLTableSectionElementVAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text
getDOMHTMLTableSectionElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align"
setDOMHTMLTableSectionElementVAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m ()
setDOMHTMLTableSectionElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val
constructDOMHTMLTableSectionElementVAlign :: T.Text -> IO ([Char], GValue)
constructDOMHTMLTableSectionElementVAlign val = constructObjectPropertyString "v-align" val
data DOMHTMLTableSectionElementVAlignPropertyInfo
instance AttrInfo DOMHTMLTableSectionElementVAlignPropertyInfo where
type AttrAllowedOps DOMHTMLTableSectionElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLTableSectionElementVAlignPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLTableSectionElementVAlignPropertyInfo = DOMHTMLTableSectionElementK
type AttrGetType DOMHTMLTableSectionElementVAlignPropertyInfo = T.Text
type AttrLabel DOMHTMLTableSectionElementVAlignPropertyInfo = "DOMHTMLTableSectionElement::v-align"
attrGet _ = getDOMHTMLTableSectionElementVAlign
attrSet _ = setDOMHTMLTableSectionElementVAlign
attrConstruct _ = constructDOMHTMLTableSectionElementVAlign
type instance AttributeList DOMHTMLTableSectionElement = DOMHTMLTableSectionElementAttributeList
type DOMHTMLTableSectionElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableSectionElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("ch", DOMHTMLTableSectionElementChPropertyInfo), '("ch-off", DOMHTMLTableSectionElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLTableSectionElementRowsPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableSectionElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMHTMLTableSectionElement = DOMHTMLTableSectionElementSignalList
type DOMHTMLTableSectionElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_html_table_section_element_delete_row" webkit_dom_html_table_section_element_delete_row ::
Ptr DOMHTMLTableSectionElement ->
Int64 ->
Ptr (Ptr GError) ->
IO ()
dOMHTMLTableSectionElementDeleteRow ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a ->
Int64 ->
m ()
dOMHTMLTableSectionElementDeleteRow _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_html_table_section_element_delete_row _obj' index
touchManagedPtr _obj
return ()
) (do
return ()
)
foreign import ccall "webkit_dom_html_table_section_element_get_align" webkit_dom_html_table_section_element_get_align ::
Ptr DOMHTMLTableSectionElement ->
IO CString
dOMHTMLTableSectionElementGetAlign ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a ->
m T.Text
dOMHTMLTableSectionElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_section_element_get_align _obj'
checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_get_align" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_table_section_element_get_ch" webkit_dom_html_table_section_element_get_ch ::
Ptr DOMHTMLTableSectionElement ->
IO CString
dOMHTMLTableSectionElementGetCh ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a ->
m T.Text
dOMHTMLTableSectionElementGetCh _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_section_element_get_ch _obj'
checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_get_ch" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_table_section_element_get_ch_off" webkit_dom_html_table_section_element_get_ch_off ::
Ptr DOMHTMLTableSectionElement ->
IO CString
dOMHTMLTableSectionElementGetChOff ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a ->
m T.Text
dOMHTMLTableSectionElementGetChOff _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_section_element_get_ch_off _obj'
checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_get_ch_off" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_table_section_element_get_rows" webkit_dom_html_table_section_element_get_rows ::
Ptr DOMHTMLTableSectionElement ->
IO (Ptr DOMHTMLCollection)
dOMHTMLTableSectionElementGetRows ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a ->
m DOMHTMLCollection
dOMHTMLTableSectionElementGetRows _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_section_element_get_rows _obj'
checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_get_rows" result
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_table_section_element_get_v_align" webkit_dom_html_table_section_element_get_v_align ::
Ptr DOMHTMLTableSectionElement ->
IO CString
dOMHTMLTableSectionElementGetVAlign ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a ->
m T.Text
dOMHTMLTableSectionElementGetVAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_section_element_get_v_align _obj'
checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_get_v_align" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_table_section_element_insert_row" webkit_dom_html_table_section_element_insert_row ::
Ptr DOMHTMLTableSectionElement ->
Int64 ->
Ptr (Ptr GError) ->
IO (Ptr DOMHTMLElement)
dOMHTMLTableSectionElementInsertRow ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a ->
Int64 ->
m DOMHTMLElement
dOMHTMLTableSectionElementInsertRow _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_html_table_section_element_insert_row _obj' index
checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_insert_row" result
result' <- (newObject DOMHTMLElement) result
touchManagedPtr _obj
return result'
) (do
return ()
)
foreign import ccall "webkit_dom_html_table_section_element_set_align" webkit_dom_html_table_section_element_set_align ::
Ptr DOMHTMLTableSectionElement ->
CString ->
IO ()
dOMHTMLTableSectionElementSetAlign ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLTableSectionElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_section_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_table_section_element_set_ch" webkit_dom_html_table_section_element_set_ch ::
Ptr DOMHTMLTableSectionElement ->
CString ->
IO ()
dOMHTMLTableSectionElementSetCh ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLTableSectionElementSetCh _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_section_element_set_ch _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_table_section_element_set_ch_off" webkit_dom_html_table_section_element_set_ch_off ::
Ptr DOMHTMLTableSectionElement ->
CString ->
IO ()
dOMHTMLTableSectionElementSetChOff ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLTableSectionElementSetChOff _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_section_element_set_ch_off _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_table_section_element_set_v_align" webkit_dom_html_table_section_element_set_v_align ::
Ptr DOMHTMLTableSectionElement ->
CString ->
IO ()
dOMHTMLTableSectionElementSetVAlign ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLTableSectionElementSetVAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_section_element_set_v_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()