module GI.WebKit.Objects.DOMHTMLLinkElement
(
DOMHTMLLinkElement(..) ,
DOMHTMLLinkElementK ,
toDOMHTMLLinkElement ,
noDOMHTMLLinkElement ,
dOMHTMLLinkElementGetCharset ,
dOMHTMLLinkElementGetDisabled ,
dOMHTMLLinkElementGetHref ,
dOMHTMLLinkElementGetHreflang ,
dOMHTMLLinkElementGetMedia ,
dOMHTMLLinkElementGetRel ,
dOMHTMLLinkElementGetRev ,
dOMHTMLLinkElementGetSheet ,
dOMHTMLLinkElementGetTarget ,
dOMHTMLLinkElementSetCharset ,
dOMHTMLLinkElementSetDisabled ,
dOMHTMLLinkElementSetHref ,
dOMHTMLLinkElementSetHreflang ,
dOMHTMLLinkElementSetMedia ,
dOMHTMLLinkElementSetRel ,
dOMHTMLLinkElementSetRev ,
dOMHTMLLinkElementSetTarget ,
DOMHTMLLinkElementCharsetPropertyInfo ,
constructDOMHTMLLinkElementCharset ,
getDOMHTMLLinkElementCharset ,
setDOMHTMLLinkElementCharset ,
DOMHTMLLinkElementDisabledPropertyInfo ,
constructDOMHTMLLinkElementDisabled ,
getDOMHTMLLinkElementDisabled ,
setDOMHTMLLinkElementDisabled ,
DOMHTMLLinkElementHrefPropertyInfo ,
constructDOMHTMLLinkElementHref ,
getDOMHTMLLinkElementHref ,
setDOMHTMLLinkElementHref ,
DOMHTMLLinkElementHreflangPropertyInfo ,
constructDOMHTMLLinkElementHreflang ,
getDOMHTMLLinkElementHreflang ,
setDOMHTMLLinkElementHreflang ,
DOMHTMLLinkElementMediaPropertyInfo ,
constructDOMHTMLLinkElementMedia ,
getDOMHTMLLinkElementMedia ,
setDOMHTMLLinkElementMedia ,
DOMHTMLLinkElementRelPropertyInfo ,
constructDOMHTMLLinkElementRel ,
getDOMHTMLLinkElementRel ,
setDOMHTMLLinkElementRel ,
DOMHTMLLinkElementRevPropertyInfo ,
constructDOMHTMLLinkElementRev ,
getDOMHTMLLinkElementRev ,
setDOMHTMLLinkElementRev ,
DOMHTMLLinkElementSheetPropertyInfo ,
getDOMHTMLLinkElementSheet ,
DOMHTMLLinkElementTargetPropertyInfo ,
constructDOMHTMLLinkElementTarget ,
getDOMHTMLLinkElementTarget ,
setDOMHTMLLinkElementTarget ,
DOMHTMLLinkElementTypePropertyInfo ,
constructDOMHTMLLinkElementType ,
getDOMHTMLLinkElementType ,
setDOMHTMLLinkElementType ,
) 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 DOMHTMLLinkElement = DOMHTMLLinkElement (ForeignPtr DOMHTMLLinkElement)
foreign import ccall "webkit_dom_html_link_element_get_type"
c_webkit_dom_html_link_element_get_type :: IO GType
type instance ParentTypes DOMHTMLLinkElement = DOMHTMLLinkElementParentTypes
type DOMHTMLLinkElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLLinkElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_link_element_get_type
class GObject o => DOMHTMLLinkElementK o
instance (GObject o, IsDescendantOf DOMHTMLLinkElement o) => DOMHTMLLinkElementK o
toDOMHTMLLinkElement :: DOMHTMLLinkElementK o => o -> IO DOMHTMLLinkElement
toDOMHTMLLinkElement = unsafeCastTo DOMHTMLLinkElement
noDOMHTMLLinkElement :: Maybe DOMHTMLLinkElement
noDOMHTMLLinkElement = Nothing
getDOMHTMLLinkElementCharset :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text
getDOMHTMLLinkElementCharset obj = liftIO $ getObjectPropertyString obj "charset"
setDOMHTMLLinkElementCharset :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m ()
setDOMHTMLLinkElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" val
constructDOMHTMLLinkElementCharset :: T.Text -> IO ([Char], GValue)
constructDOMHTMLLinkElementCharset val = constructObjectPropertyString "charset" val
data DOMHTMLLinkElementCharsetPropertyInfo
instance AttrInfo DOMHTMLLinkElementCharsetPropertyInfo where
type AttrAllowedOps DOMHTMLLinkElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLLinkElementCharsetPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLLinkElementCharsetPropertyInfo = DOMHTMLLinkElementK
type AttrGetType DOMHTMLLinkElementCharsetPropertyInfo = T.Text
type AttrLabel DOMHTMLLinkElementCharsetPropertyInfo = "DOMHTMLLinkElement::charset"
attrGet _ = getDOMHTMLLinkElementCharset
attrSet _ = setDOMHTMLLinkElementCharset
attrConstruct _ = constructDOMHTMLLinkElementCharset
getDOMHTMLLinkElementDisabled :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m Bool
getDOMHTMLLinkElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled"
setDOMHTMLLinkElementDisabled :: (MonadIO m, DOMHTMLLinkElementK o) => o -> Bool -> m ()
setDOMHTMLLinkElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val
constructDOMHTMLLinkElementDisabled :: Bool -> IO ([Char], GValue)
constructDOMHTMLLinkElementDisabled val = constructObjectPropertyBool "disabled" val
data DOMHTMLLinkElementDisabledPropertyInfo
instance AttrInfo DOMHTMLLinkElementDisabledPropertyInfo where
type AttrAllowedOps DOMHTMLLinkElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLLinkElementDisabledPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMHTMLLinkElementDisabledPropertyInfo = DOMHTMLLinkElementK
type AttrGetType DOMHTMLLinkElementDisabledPropertyInfo = Bool
type AttrLabel DOMHTMLLinkElementDisabledPropertyInfo = "DOMHTMLLinkElement::disabled"
attrGet _ = getDOMHTMLLinkElementDisabled
attrSet _ = setDOMHTMLLinkElementDisabled
attrConstruct _ = constructDOMHTMLLinkElementDisabled
getDOMHTMLLinkElementHref :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text
getDOMHTMLLinkElementHref obj = liftIO $ getObjectPropertyString obj "href"
setDOMHTMLLinkElementHref :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m ()
setDOMHTMLLinkElementHref obj val = liftIO $ setObjectPropertyString obj "href" val
constructDOMHTMLLinkElementHref :: T.Text -> IO ([Char], GValue)
constructDOMHTMLLinkElementHref val = constructObjectPropertyString "href" val
data DOMHTMLLinkElementHrefPropertyInfo
instance AttrInfo DOMHTMLLinkElementHrefPropertyInfo where
type AttrAllowedOps DOMHTMLLinkElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLLinkElementHrefPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLLinkElementHrefPropertyInfo = DOMHTMLLinkElementK
type AttrGetType DOMHTMLLinkElementHrefPropertyInfo = T.Text
type AttrLabel DOMHTMLLinkElementHrefPropertyInfo = "DOMHTMLLinkElement::href"
attrGet _ = getDOMHTMLLinkElementHref
attrSet _ = setDOMHTMLLinkElementHref
attrConstruct _ = constructDOMHTMLLinkElementHref
getDOMHTMLLinkElementHreflang :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text
getDOMHTMLLinkElementHreflang obj = liftIO $ getObjectPropertyString obj "hreflang"
setDOMHTMLLinkElementHreflang :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m ()
setDOMHTMLLinkElementHreflang obj val = liftIO $ setObjectPropertyString obj "hreflang" val
constructDOMHTMLLinkElementHreflang :: T.Text -> IO ([Char], GValue)
constructDOMHTMLLinkElementHreflang val = constructObjectPropertyString "hreflang" val
data DOMHTMLLinkElementHreflangPropertyInfo
instance AttrInfo DOMHTMLLinkElementHreflangPropertyInfo where
type AttrAllowedOps DOMHTMLLinkElementHreflangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLLinkElementHreflangPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLLinkElementHreflangPropertyInfo = DOMHTMLLinkElementK
type AttrGetType DOMHTMLLinkElementHreflangPropertyInfo = T.Text
type AttrLabel DOMHTMLLinkElementHreflangPropertyInfo = "DOMHTMLLinkElement::hreflang"
attrGet _ = getDOMHTMLLinkElementHreflang
attrSet _ = setDOMHTMLLinkElementHreflang
attrConstruct _ = constructDOMHTMLLinkElementHreflang
getDOMHTMLLinkElementMedia :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text
getDOMHTMLLinkElementMedia obj = liftIO $ getObjectPropertyString obj "media"
setDOMHTMLLinkElementMedia :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m ()
setDOMHTMLLinkElementMedia obj val = liftIO $ setObjectPropertyString obj "media" val
constructDOMHTMLLinkElementMedia :: T.Text -> IO ([Char], GValue)
constructDOMHTMLLinkElementMedia val = constructObjectPropertyString "media" val
data DOMHTMLLinkElementMediaPropertyInfo
instance AttrInfo DOMHTMLLinkElementMediaPropertyInfo where
type AttrAllowedOps DOMHTMLLinkElementMediaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLLinkElementMediaPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLLinkElementMediaPropertyInfo = DOMHTMLLinkElementK
type AttrGetType DOMHTMLLinkElementMediaPropertyInfo = T.Text
type AttrLabel DOMHTMLLinkElementMediaPropertyInfo = "DOMHTMLLinkElement::media"
attrGet _ = getDOMHTMLLinkElementMedia
attrSet _ = setDOMHTMLLinkElementMedia
attrConstruct _ = constructDOMHTMLLinkElementMedia
getDOMHTMLLinkElementRel :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text
getDOMHTMLLinkElementRel obj = liftIO $ getObjectPropertyString obj "rel"
setDOMHTMLLinkElementRel :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m ()
setDOMHTMLLinkElementRel obj val = liftIO $ setObjectPropertyString obj "rel" val
constructDOMHTMLLinkElementRel :: T.Text -> IO ([Char], GValue)
constructDOMHTMLLinkElementRel val = constructObjectPropertyString "rel" val
data DOMHTMLLinkElementRelPropertyInfo
instance AttrInfo DOMHTMLLinkElementRelPropertyInfo where
type AttrAllowedOps DOMHTMLLinkElementRelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLLinkElementRelPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLLinkElementRelPropertyInfo = DOMHTMLLinkElementK
type AttrGetType DOMHTMLLinkElementRelPropertyInfo = T.Text
type AttrLabel DOMHTMLLinkElementRelPropertyInfo = "DOMHTMLLinkElement::rel"
attrGet _ = getDOMHTMLLinkElementRel
attrSet _ = setDOMHTMLLinkElementRel
attrConstruct _ = constructDOMHTMLLinkElementRel
getDOMHTMLLinkElementRev :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text
getDOMHTMLLinkElementRev obj = liftIO $ getObjectPropertyString obj "rev"
setDOMHTMLLinkElementRev :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m ()
setDOMHTMLLinkElementRev obj val = liftIO $ setObjectPropertyString obj "rev" val
constructDOMHTMLLinkElementRev :: T.Text -> IO ([Char], GValue)
constructDOMHTMLLinkElementRev val = constructObjectPropertyString "rev" val
data DOMHTMLLinkElementRevPropertyInfo
instance AttrInfo DOMHTMLLinkElementRevPropertyInfo where
type AttrAllowedOps DOMHTMLLinkElementRevPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLLinkElementRevPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLLinkElementRevPropertyInfo = DOMHTMLLinkElementK
type AttrGetType DOMHTMLLinkElementRevPropertyInfo = T.Text
type AttrLabel DOMHTMLLinkElementRevPropertyInfo = "DOMHTMLLinkElement::rev"
attrGet _ = getDOMHTMLLinkElementRev
attrSet _ = setDOMHTMLLinkElementRev
attrConstruct _ = constructDOMHTMLLinkElementRev
getDOMHTMLLinkElementSheet :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m DOMStyleSheet
getDOMHTMLLinkElementSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet
data DOMHTMLLinkElementSheetPropertyInfo
instance AttrInfo DOMHTMLLinkElementSheetPropertyInfo where
type AttrAllowedOps DOMHTMLLinkElementSheetPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLLinkElementSheetPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLLinkElementSheetPropertyInfo = DOMHTMLLinkElementK
type AttrGetType DOMHTMLLinkElementSheetPropertyInfo = DOMStyleSheet
type AttrLabel DOMHTMLLinkElementSheetPropertyInfo = "DOMHTMLLinkElement::sheet"
attrGet _ = getDOMHTMLLinkElementSheet
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLLinkElementTarget :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text
getDOMHTMLLinkElementTarget obj = liftIO $ getObjectPropertyString obj "target"
setDOMHTMLLinkElementTarget :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m ()
setDOMHTMLLinkElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val
constructDOMHTMLLinkElementTarget :: T.Text -> IO ([Char], GValue)
constructDOMHTMLLinkElementTarget val = constructObjectPropertyString "target" val
data DOMHTMLLinkElementTargetPropertyInfo
instance AttrInfo DOMHTMLLinkElementTargetPropertyInfo where
type AttrAllowedOps DOMHTMLLinkElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLLinkElementTargetPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLLinkElementTargetPropertyInfo = DOMHTMLLinkElementK
type AttrGetType DOMHTMLLinkElementTargetPropertyInfo = T.Text
type AttrLabel DOMHTMLLinkElementTargetPropertyInfo = "DOMHTMLLinkElement::target"
attrGet _ = getDOMHTMLLinkElementTarget
attrSet _ = setDOMHTMLLinkElementTarget
attrConstruct _ = constructDOMHTMLLinkElementTarget
getDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text
getDOMHTMLLinkElementType obj = liftIO $ getObjectPropertyString obj "type"
setDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m ()
setDOMHTMLLinkElementType obj val = liftIO $ setObjectPropertyString obj "type" val
constructDOMHTMLLinkElementType :: T.Text -> IO ([Char], GValue)
constructDOMHTMLLinkElementType val = constructObjectPropertyString "type" val
data DOMHTMLLinkElementTypePropertyInfo
instance AttrInfo DOMHTMLLinkElementTypePropertyInfo where
type AttrAllowedOps DOMHTMLLinkElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLLinkElementTypePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLLinkElementTypePropertyInfo = DOMHTMLLinkElementK
type AttrGetType DOMHTMLLinkElementTypePropertyInfo = T.Text
type AttrLabel DOMHTMLLinkElementTypePropertyInfo = "DOMHTMLLinkElement::type"
attrGet _ = getDOMHTMLLinkElementType
attrSet _ = setDOMHTMLLinkElementType
attrConstruct _ = constructDOMHTMLLinkElementType
type instance AttributeList DOMHTMLLinkElement = DOMHTMLLinkElementAttributeList
type DOMHTMLLinkElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLLinkElementCharsetPropertyInfo), '("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), '("disabled", DOMHTMLLinkElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("href", DOMHTMLLinkElementHrefPropertyInfo), '("hreflang", DOMHTMLLinkElementHreflangPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("media", DOMHTMLLinkElementMediaPropertyInfo), '("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), '("rel", DOMHTMLLinkElementRelPropertyInfo), '("rev", DOMHTMLLinkElementRevPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("sheet", DOMHTMLLinkElementSheetPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLLinkElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLLinkElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMHTMLLinkElement = DOMHTMLLinkElementSignalList
type DOMHTMLLinkElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_html_link_element_get_charset" webkit_dom_html_link_element_get_charset ::
Ptr DOMHTMLLinkElement ->
IO CString
dOMHTMLLinkElementGetCharset ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
m T.Text
dOMHTMLLinkElementGetCharset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_charset _obj'
checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_charset" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_link_element_get_disabled" webkit_dom_html_link_element_get_disabled ::
Ptr DOMHTMLLinkElement ->
IO CInt
dOMHTMLLinkElementGetDisabled ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
m Bool
dOMHTMLLinkElementGetDisabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_disabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_link_element_get_href" webkit_dom_html_link_element_get_href ::
Ptr DOMHTMLLinkElement ->
IO CString
dOMHTMLLinkElementGetHref ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
m T.Text
dOMHTMLLinkElementGetHref _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_href _obj'
checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_href" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_link_element_get_hreflang" webkit_dom_html_link_element_get_hreflang ::
Ptr DOMHTMLLinkElement ->
IO CString
dOMHTMLLinkElementGetHreflang ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
m T.Text
dOMHTMLLinkElementGetHreflang _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_hreflang _obj'
checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_hreflang" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_link_element_get_media" webkit_dom_html_link_element_get_media ::
Ptr DOMHTMLLinkElement ->
IO CString
dOMHTMLLinkElementGetMedia ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
m T.Text
dOMHTMLLinkElementGetMedia _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_media _obj'
checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_media" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_link_element_get_rel" webkit_dom_html_link_element_get_rel ::
Ptr DOMHTMLLinkElement ->
IO CString
dOMHTMLLinkElementGetRel ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
m T.Text
dOMHTMLLinkElementGetRel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_rel _obj'
checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_rel" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_link_element_get_rev" webkit_dom_html_link_element_get_rev ::
Ptr DOMHTMLLinkElement ->
IO CString
dOMHTMLLinkElementGetRev ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
m T.Text
dOMHTMLLinkElementGetRev _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_rev _obj'
checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_rev" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_link_element_get_sheet" webkit_dom_html_link_element_get_sheet ::
Ptr DOMHTMLLinkElement ->
IO (Ptr DOMStyleSheet)
dOMHTMLLinkElementGetSheet ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
m DOMStyleSheet
dOMHTMLLinkElementGetSheet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_sheet _obj'
checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_sheet" result
result' <- (wrapObject DOMStyleSheet) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_link_element_get_target" webkit_dom_html_link_element_get_target ::
Ptr DOMHTMLLinkElement ->
IO CString
dOMHTMLLinkElementGetTarget ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
m T.Text
dOMHTMLLinkElementGetTarget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_target _obj'
checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_target" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_link_element_set_charset" webkit_dom_html_link_element_set_charset ::
Ptr DOMHTMLLinkElement ->
CString ->
IO ()
dOMHTMLLinkElementSetCharset ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLLinkElementSetCharset _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_link_element_set_charset _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_link_element_set_disabled" webkit_dom_html_link_element_set_disabled ::
Ptr DOMHTMLLinkElement ->
CInt ->
IO ()
dOMHTMLLinkElementSetDisabled ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
Bool ->
m ()
dOMHTMLLinkElementSetDisabled _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_link_element_set_disabled _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_link_element_set_href" webkit_dom_html_link_element_set_href ::
Ptr DOMHTMLLinkElement ->
CString ->
IO ()
dOMHTMLLinkElementSetHref ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLLinkElementSetHref _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_link_element_set_href _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_link_element_set_hreflang" webkit_dom_html_link_element_set_hreflang ::
Ptr DOMHTMLLinkElement ->
CString ->
IO ()
dOMHTMLLinkElementSetHreflang ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLLinkElementSetHreflang _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_link_element_set_hreflang _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_link_element_set_media" webkit_dom_html_link_element_set_media ::
Ptr DOMHTMLLinkElement ->
CString ->
IO ()
dOMHTMLLinkElementSetMedia ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLLinkElementSetMedia _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_link_element_set_media _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_link_element_set_rel" webkit_dom_html_link_element_set_rel ::
Ptr DOMHTMLLinkElement ->
CString ->
IO ()
dOMHTMLLinkElementSetRel ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLLinkElementSetRel _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_link_element_set_rel _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_link_element_set_rev" webkit_dom_html_link_element_set_rev ::
Ptr DOMHTMLLinkElement ->
CString ->
IO ()
dOMHTMLLinkElementSetRev ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLLinkElementSetRev _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_link_element_set_rev _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_link_element_set_target" webkit_dom_html_link_element_set_target ::
Ptr DOMHTMLLinkElement ->
CString ->
IO ()
dOMHTMLLinkElementSetTarget ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLLinkElementSetTarget _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_link_element_set_target _obj' value'
touchManagedPtr _obj
freeMem value'
return ()