module GI.WebKit.Objects.DOMDOMStringList
(
DOMDOMStringList(..) ,
DOMDOMStringListK ,
toDOMDOMStringList ,
noDOMDOMStringList ,
dOMDOMStringListContains ,
dOMDOMStringListGetLength ,
dOMDOMStringListItem ,
DOMDOMStringListLengthPropertyInfo ,
getDOMDOMStringListLength ,
) 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 DOMDOMStringList = DOMDOMStringList (ForeignPtr DOMDOMStringList)
foreign import ccall "webkit_dom_dom_string_list_get_type"
c_webkit_dom_dom_string_list_get_type :: IO GType
type instance ParentTypes DOMDOMStringList = DOMDOMStringListParentTypes
type DOMDOMStringListParentTypes = '[DOMObject, GObject.Object]
instance GObject DOMDOMStringList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_string_list_get_type
class GObject o => DOMDOMStringListK o
instance (GObject o, IsDescendantOf DOMDOMStringList o) => DOMDOMStringListK o
toDOMDOMStringList :: DOMDOMStringListK o => o -> IO DOMDOMStringList
toDOMDOMStringList = unsafeCastTo DOMDOMStringList
noDOMDOMStringList :: Maybe DOMDOMStringList
noDOMDOMStringList = Nothing
getDOMDOMStringListLength :: (MonadIO m, DOMDOMStringListK o) => o -> m Word64
getDOMDOMStringListLength obj = liftIO $ getObjectPropertyUInt64 obj "length"
data DOMDOMStringListLengthPropertyInfo
instance AttrInfo DOMDOMStringListLengthPropertyInfo where
type AttrAllowedOps DOMDOMStringListLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDOMStringListLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDOMStringListLengthPropertyInfo = DOMDOMStringListK
type AttrGetType DOMDOMStringListLengthPropertyInfo = Word64
type AttrLabel DOMDOMStringListLengthPropertyInfo = "DOMDOMStringList::length"
attrGet _ = getDOMDOMStringListLength
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMDOMStringList = DOMDOMStringListAttributeList
type DOMDOMStringListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMStringListLengthPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMDOMStringList = DOMDOMStringListSignalList
type DOMDOMStringListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_dom_string_list_contains" webkit_dom_dom_string_list_contains ::
Ptr DOMDOMStringList ->
CString ->
IO CInt
dOMDOMStringListContains ::
(MonadIO m, DOMDOMStringListK a) =>
a ->
T.Text ->
m Bool
dOMDOMStringListContains _obj string = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
string' <- textToCString string
result <- webkit_dom_dom_string_list_contains _obj' string'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem string'
return result'
foreign import ccall "webkit_dom_dom_string_list_get_length" webkit_dom_dom_string_list_get_length ::
Ptr DOMDOMStringList ->
IO Word64
dOMDOMStringListGetLength ::
(MonadIO m, DOMDOMStringListK a) =>
a ->
m Word64
dOMDOMStringListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_string_list_get_length _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_dom_string_list_item" webkit_dom_dom_string_list_item ::
Ptr DOMDOMStringList ->
Word64 ->
IO CString
dOMDOMStringListItem ::
(MonadIO m, DOMDOMStringListK a) =>
a ->
Word64 ->
m T.Text
dOMDOMStringListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_string_list_item _obj' index
checkUnexpectedReturnNULL "webkit_dom_dom_string_list_item" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'