module GI.WebKit2WebExtension.Objects.DOMStyleSheetList
(
DOMStyleSheetList(..) ,
DOMStyleSheetListK ,
toDOMStyleSheetList ,
noDOMStyleSheetList ,
dOMStyleSheetListGetLength ,
dOMStyleSheetListItem ,
DOMStyleSheetListLengthPropertyInfo ,
getDOMStyleSheetListLength ,
) 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.WebKit2WebExtension.Types
import GI.WebKit2WebExtension.Callbacks
import qualified GI.GObject as GObject
newtype DOMStyleSheetList = DOMStyleSheetList (ForeignPtr DOMStyleSheetList)
foreign import ccall "webkit_dom_style_sheet_list_get_type"
c_webkit_dom_style_sheet_list_get_type :: IO GType
type instance ParentTypes DOMStyleSheetList = DOMStyleSheetListParentTypes
type DOMStyleSheetListParentTypes = '[DOMObject, GObject.Object]
instance GObject DOMStyleSheetList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_style_sheet_list_get_type
class GObject o => DOMStyleSheetListK o
instance (GObject o, IsDescendantOf DOMStyleSheetList o) => DOMStyleSheetListK o
toDOMStyleSheetList :: DOMStyleSheetListK o => o -> IO DOMStyleSheetList
toDOMStyleSheetList = unsafeCastTo DOMStyleSheetList
noDOMStyleSheetList :: Maybe DOMStyleSheetList
noDOMStyleSheetList = Nothing
getDOMStyleSheetListLength :: (MonadIO m, DOMStyleSheetListK o) => o -> m Word64
getDOMStyleSheetListLength obj = liftIO $ getObjectPropertyUInt64 obj "length"
data DOMStyleSheetListLengthPropertyInfo
instance AttrInfo DOMStyleSheetListLengthPropertyInfo where
type AttrAllowedOps DOMStyleSheetListLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMStyleSheetListLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMStyleSheetListLengthPropertyInfo = DOMStyleSheetListK
type AttrGetType DOMStyleSheetListLengthPropertyInfo = Word64
type AttrLabel DOMStyleSheetListLengthPropertyInfo = "DOMStyleSheetList::length"
attrGet _ = getDOMStyleSheetListLength
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMStyleSheetList = DOMStyleSheetListAttributeList
type DOMStyleSheetListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMStyleSheetListLengthPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMStyleSheetList = DOMStyleSheetListSignalList
type DOMStyleSheetListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_style_sheet_list_get_length" webkit_dom_style_sheet_list_get_length ::
Ptr DOMStyleSheetList ->
IO Word64
dOMStyleSheetListGetLength ::
(MonadIO m, DOMStyleSheetListK a) =>
a ->
m Word64
dOMStyleSheetListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_style_sheet_list_get_length _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_style_sheet_list_item" webkit_dom_style_sheet_list_item ::
Ptr DOMStyleSheetList ->
Word64 ->
IO (Ptr DOMStyleSheet)
dOMStyleSheetListItem ::
(MonadIO m, DOMStyleSheetListK a) =>
a ->
Word64 ->
m DOMStyleSheet
dOMStyleSheetListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_style_sheet_list_item _obj' index
checkUnexpectedReturnNULL "webkit_dom_style_sheet_list_item" result
result' <- (wrapObject DOMStyleSheet) result
touchManagedPtr _obj
return result'