{-# LANGUAGE TypeApplications #-}


-- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria
-- 
-- /No description available in the introspection data./

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.WebKit2WebExtension.Objects.DOMStyleSheetList
    ( 

-- * Exported types
    DOMStyleSheetList(..)                   ,
    IsDOMStyleSheetList                     ,
    toDOMStyleSheetList                     ,


 -- * Methods
-- ** Overloaded methods #method:Overloaded methods#

#if defined(ENABLE_OVERLOADING)
    ResolveDOMStyleSheetListMethod          ,
#endif


-- ** getLength #method:getLength#

#if defined(ENABLE_OVERLOADING)
    DOMStyleSheetListGetLengthMethodInfo    ,
#endif
    dOMStyleSheetListGetLength              ,


-- ** item #method:item#

#if defined(ENABLE_OVERLOADING)
    DOMStyleSheetListItemMethodInfo         ,
#endif
    dOMStyleSheetListItem                   ,




 -- * Properties
-- ** length #attr:length#
-- | /No description available in the introspection data./

#if defined(ENABLE_OVERLOADING)
    DOMStyleSheetListLengthPropertyInfo     ,
#endif
#if defined(ENABLE_OVERLOADING)
    dOMStyleSheetListLength                 ,
#endif
    getDOMStyleSheetListLength              ,




    ) where

import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P

import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL

import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMStyleSheet as WebKit2WebExtension.DOMStyleSheet

-- | Memory-managed wrapper type.
newtype DOMStyleSheetList = DOMStyleSheetList (SP.ManagedPtr DOMStyleSheetList)
    deriving (DOMStyleSheetList -> DOMStyleSheetList -> Bool
(DOMStyleSheetList -> DOMStyleSheetList -> Bool)
-> (DOMStyleSheetList -> DOMStyleSheetList -> Bool)
-> Eq DOMStyleSheetList
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMStyleSheetList -> DOMStyleSheetList -> Bool
$c/= :: DOMStyleSheetList -> DOMStyleSheetList -> Bool
== :: DOMStyleSheetList -> DOMStyleSheetList -> Bool
$c== :: DOMStyleSheetList -> DOMStyleSheetList -> Bool
Eq)

instance SP.ManagedPtrNewtype DOMStyleSheetList where
    toManagedPtr :: DOMStyleSheetList -> ManagedPtr DOMStyleSheetList
toManagedPtr (DOMStyleSheetList ManagedPtr DOMStyleSheetList
p) = ManagedPtr DOMStyleSheetList
p

foreign import ccall "webkit_dom_style_sheet_list_get_type"
    c_webkit_dom_style_sheet_list_get_type :: IO B.Types.GType

instance B.Types.TypedObject DOMStyleSheetList where
    glibType :: IO GType
glibType = IO GType
c_webkit_dom_style_sheet_list_get_type

instance B.Types.GObject DOMStyleSheetList

-- | Convert 'DOMStyleSheetList' to and from 'Data.GI.Base.GValue.GValue' with 'Data.GI.Base.GValue.toGValue' and 'Data.GI.Base.GValue.fromGValue'.
instance B.GValue.IsGValue DOMStyleSheetList where
    toGValue :: DOMStyleSheetList -> IO GValue
toGValue DOMStyleSheetList
o = do
        GType
gtype <- IO GType
c_webkit_dom_style_sheet_list_get_type
        DOMStyleSheetList
-> (Ptr DOMStyleSheetList -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMStyleSheetList
o (GType
-> (GValue -> Ptr DOMStyleSheetList -> IO ())
-> Ptr DOMStyleSheetList
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr DOMStyleSheetList -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
        
    fromGValue :: GValue -> IO DOMStyleSheetList
fromGValue GValue
gv = do
        Ptr DOMStyleSheetList
ptr <- GValue -> IO (Ptr DOMStyleSheetList)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr DOMStyleSheetList)
        (ManagedPtr DOMStyleSheetList -> DOMStyleSheetList)
-> Ptr DOMStyleSheetList -> IO DOMStyleSheetList
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMStyleSheetList -> DOMStyleSheetList
DOMStyleSheetList Ptr DOMStyleSheetList
ptr
        
    

-- | Type class for types which can be safely cast to `DOMStyleSheetList`, for instance with `toDOMStyleSheetList`.
class (SP.GObject o, O.IsDescendantOf DOMStyleSheetList o) => IsDOMStyleSheetList o
instance (SP.GObject o, O.IsDescendantOf DOMStyleSheetList o) => IsDOMStyleSheetList o

instance O.HasParentTypes DOMStyleSheetList
type instance O.ParentTypes DOMStyleSheetList = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]

-- | Cast to `DOMStyleSheetList`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.
toDOMStyleSheetList :: (MonadIO m, IsDOMStyleSheetList o) => o -> m DOMStyleSheetList
toDOMStyleSheetList :: o -> m DOMStyleSheetList
toDOMStyleSheetList = IO DOMStyleSheetList -> m DOMStyleSheetList
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMStyleSheetList -> m DOMStyleSheetList)
-> (o -> IO DOMStyleSheetList) -> o -> m DOMStyleSheetList
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMStyleSheetList -> DOMStyleSheetList)
-> o -> IO DOMStyleSheetList
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
 ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr DOMStyleSheetList -> DOMStyleSheetList
DOMStyleSheetList

#if defined(ENABLE_OVERLOADING)
type family ResolveDOMStyleSheetListMethod (t :: Symbol) (o :: *) :: * where
    ResolveDOMStyleSheetListMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
    ResolveDOMStyleSheetListMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
    ResolveDOMStyleSheetListMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
    ResolveDOMStyleSheetListMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
    ResolveDOMStyleSheetListMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
    ResolveDOMStyleSheetListMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
    ResolveDOMStyleSheetListMethod "item" o = DOMStyleSheetListItemMethodInfo
    ResolveDOMStyleSheetListMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
    ResolveDOMStyleSheetListMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
    ResolveDOMStyleSheetListMethod "ref" o = GObject.Object.ObjectRefMethodInfo
    ResolveDOMStyleSheetListMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
    ResolveDOMStyleSheetListMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
    ResolveDOMStyleSheetListMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
    ResolveDOMStyleSheetListMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
    ResolveDOMStyleSheetListMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
    ResolveDOMStyleSheetListMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
    ResolveDOMStyleSheetListMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
    ResolveDOMStyleSheetListMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
    ResolveDOMStyleSheetListMethod "getLength" o = DOMStyleSheetListGetLengthMethodInfo
    ResolveDOMStyleSheetListMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
    ResolveDOMStyleSheetListMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
    ResolveDOMStyleSheetListMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
    ResolveDOMStyleSheetListMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
    ResolveDOMStyleSheetListMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
    ResolveDOMStyleSheetListMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveDOMStyleSheetListMethod t DOMStyleSheetList, O.MethodInfo info DOMStyleSheetList p) => OL.IsLabel t (DOMStyleSheetList -> p) where
#if MIN_VERSION_base(4,10,0)
    fromLabel = O.overloadedMethod @info
#else
    fromLabel _ = O.overloadedMethod @info
#endif

#endif

-- VVV Prop "length"
   -- Type: TBasicType TULong
   -- Flags: [PropertyReadable]
   -- Nullable: (Just False,Nothing)

-- | Get the value of the “@length@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' dOMStyleSheetList #length
-- @
getDOMStyleSheetListLength :: (MonadIO m, IsDOMStyleSheetList o) => o -> m CULong
getDOMStyleSheetListLength :: o -> m CULong
getDOMStyleSheetListLength o
obj = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CULong
forall a. GObject a => a -> String -> IO CULong
B.Properties.getObjectPropertyULong o
obj String
"length"

#if defined(ENABLE_OVERLOADING)
data DOMStyleSheetListLengthPropertyInfo
instance AttrInfo DOMStyleSheetListLengthPropertyInfo where
    type AttrAllowedOps DOMStyleSheetListLengthPropertyInfo = '[ 'AttrGet]
    type AttrBaseTypeConstraint DOMStyleSheetListLengthPropertyInfo = IsDOMStyleSheetList
    type AttrSetTypeConstraint DOMStyleSheetListLengthPropertyInfo = (~) ()
    type AttrTransferTypeConstraint DOMStyleSheetListLengthPropertyInfo = (~) ()
    type AttrTransferType DOMStyleSheetListLengthPropertyInfo = ()
    type AttrGetType DOMStyleSheetListLengthPropertyInfo = CULong
    type AttrLabel DOMStyleSheetListLengthPropertyInfo = "length"
    type AttrOrigin DOMStyleSheetListLengthPropertyInfo = DOMStyleSheetList
    attrGet = getDOMStyleSheetListLength
    attrSet = undefined
    attrTransfer _ = undefined
    attrConstruct = undefined
    attrClear = undefined
#endif

#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMStyleSheetList
type instance O.AttributeList DOMStyleSheetList = DOMStyleSheetListAttributeList
type DOMStyleSheetListAttributeList = ('[ '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("length", DOMStyleSheetListLengthPropertyInfo)] :: [(Symbol, *)])
#endif

#if defined(ENABLE_OVERLOADING)
dOMStyleSheetListLength :: AttrLabelProxy "length"
dOMStyleSheetListLength = AttrLabelProxy

#endif

#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMStyleSheetList = DOMStyleSheetListSignalList
type DOMStyleSheetListSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])

#endif

-- method DOMStyleSheetList::get_length
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "self"
--           , argType =
--               TInterface
--                 Name
--                   { namespace = "WebKit2WebExtension" , name = "DOMStyleSheetList" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #WebKitDOMStyleSheetList"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TULong)
-- throws : False
-- Skip return : False

foreign import ccall "webkit_dom_style_sheet_list_get_length" webkit_dom_style_sheet_list_get_length :: 
    Ptr DOMStyleSheetList ->                -- self : TInterface (Name {namespace = "WebKit2WebExtension", name = "DOMStyleSheetList"})
    IO CULong

{-# DEPRECATED dOMStyleSheetListGetLength ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
-- | /No description available in the introspection data./
dOMStyleSheetListGetLength ::
    (B.CallStack.HasCallStack, MonadIO m, IsDOMStyleSheetList a) =>
    a
    -- ^ /@self@/: A t'GI.WebKit2WebExtension.Objects.DOMStyleSheetList.DOMStyleSheetList'
    -> m CULong
    -- ^ __Returns:__ A @/gulong/@
dOMStyleSheetListGetLength :: a -> m CULong
dOMStyleSheetListGetLength a
self = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ do
    Ptr DOMStyleSheetList
self' <- a -> IO (Ptr DOMStyleSheetList)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
    CULong
result <- Ptr DOMStyleSheetList -> IO CULong
webkit_dom_style_sheet_list_get_length Ptr DOMStyleSheetList
self'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
    CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
result

#if defined(ENABLE_OVERLOADING)
data DOMStyleSheetListGetLengthMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMStyleSheetList a) => O.MethodInfo DOMStyleSheetListGetLengthMethodInfo a signature where
    overloadedMethod = dOMStyleSheetListGetLength

#endif

-- method DOMStyleSheetList::item
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "self"
--           , argType =
--               TInterface
--                 Name
--                   { namespace = "WebKit2WebExtension" , name = "DOMStyleSheetList" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #WebKitDOMStyleSheetList"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "index"
--           , argType = TBasicType TULong
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #gulong" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TInterface
--                  Name
--                    { namespace = "WebKit2WebExtension" , name = "DOMStyleSheet" })
-- throws : False
-- Skip return : False

foreign import ccall "webkit_dom_style_sheet_list_item" webkit_dom_style_sheet_list_item :: 
    Ptr DOMStyleSheetList ->                -- self : TInterface (Name {namespace = "WebKit2WebExtension", name = "DOMStyleSheetList"})
    CULong ->                               -- index : TBasicType TULong
    IO (Ptr WebKit2WebExtension.DOMStyleSheet.DOMStyleSheet)

{-# DEPRECATED dOMStyleSheetListItem ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
-- | /No description available in the introspection data./
dOMStyleSheetListItem ::
    (B.CallStack.HasCallStack, MonadIO m, IsDOMStyleSheetList a) =>
    a
    -- ^ /@self@/: A t'GI.WebKit2WebExtension.Objects.DOMStyleSheetList.DOMStyleSheetList'
    -> CULong
    -- ^ /@index@/: A @/gulong/@
    -> m WebKit2WebExtension.DOMStyleSheet.DOMStyleSheet
    -- ^ __Returns:__ A t'GI.WebKit2WebExtension.Objects.DOMStyleSheet.DOMStyleSheet'
dOMStyleSheetListItem :: a -> CULong -> m DOMStyleSheet
dOMStyleSheetListItem a
self CULong
index = IO DOMStyleSheet -> m DOMStyleSheet
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMStyleSheet -> m DOMStyleSheet)
-> IO DOMStyleSheet -> m DOMStyleSheet
forall a b. (a -> b) -> a -> b
$ do
    Ptr DOMStyleSheetList
self' <- a -> IO (Ptr DOMStyleSheetList)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
    Ptr DOMStyleSheet
result <- Ptr DOMStyleSheetList -> CULong -> IO (Ptr DOMStyleSheet)
webkit_dom_style_sheet_list_item Ptr DOMStyleSheetList
self' CULong
index
    Text -> Ptr DOMStyleSheet -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMStyleSheetListItem" Ptr DOMStyleSheet
result
    DOMStyleSheet
result' <- ((ManagedPtr DOMStyleSheet -> DOMStyleSheet)
-> Ptr DOMStyleSheet -> IO DOMStyleSheet
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMStyleSheet -> DOMStyleSheet
WebKit2WebExtension.DOMStyleSheet.DOMStyleSheet) Ptr DOMStyleSheet
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
    DOMStyleSheet -> IO DOMStyleSheet
forall (m :: * -> *) a. Monad m => a -> m a
return DOMStyleSheet
result'

#if defined(ENABLE_OVERLOADING)
data DOMStyleSheetListItemMethodInfo
instance (signature ~ (CULong -> m WebKit2WebExtension.DOMStyleSheet.DOMStyleSheet), MonadIO m, IsDOMStyleSheetList a) => O.MethodInfo DOMStyleSheetListItemMethodInfo a signature where
    overloadedMethod = dOMStyleSheetListItem

#endif