module GI.WebKit.Objects.DOMMediaQueryList
(
DOMMediaQueryList(..) ,
DOMMediaQueryListK ,
toDOMMediaQueryList ,
noDOMMediaQueryList ,
dOMMediaQueryListGetMatches ,
dOMMediaQueryListGetMedia ,
DOMMediaQueryListMatchesPropertyInfo ,
getDOMMediaQueryListMatches ,
DOMMediaQueryListMediaPropertyInfo ,
getDOMMediaQueryListMedia ,
) 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 DOMMediaQueryList = DOMMediaQueryList (ForeignPtr DOMMediaQueryList)
foreign import ccall "webkit_dom_media_query_list_get_type"
c_webkit_dom_media_query_list_get_type :: IO GType
type instance ParentTypes DOMMediaQueryList = DOMMediaQueryListParentTypes
type DOMMediaQueryListParentTypes = '[DOMObject, GObject.Object]
instance GObject DOMMediaQueryList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_media_query_list_get_type
class GObject o => DOMMediaQueryListK o
instance (GObject o, IsDescendantOf DOMMediaQueryList o) => DOMMediaQueryListK o
toDOMMediaQueryList :: DOMMediaQueryListK o => o -> IO DOMMediaQueryList
toDOMMediaQueryList = unsafeCastTo DOMMediaQueryList
noDOMMediaQueryList :: Maybe DOMMediaQueryList
noDOMMediaQueryList = Nothing
getDOMMediaQueryListMatches :: (MonadIO m, DOMMediaQueryListK o) => o -> m Bool
getDOMMediaQueryListMatches obj = liftIO $ getObjectPropertyBool obj "matches"
data DOMMediaQueryListMatchesPropertyInfo
instance AttrInfo DOMMediaQueryListMatchesPropertyInfo where
type AttrAllowedOps DOMMediaQueryListMatchesPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMediaQueryListMatchesPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMediaQueryListMatchesPropertyInfo = DOMMediaQueryListK
type AttrGetType DOMMediaQueryListMatchesPropertyInfo = Bool
type AttrLabel DOMMediaQueryListMatchesPropertyInfo = "DOMMediaQueryList::matches"
attrGet _ = getDOMMediaQueryListMatches
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMediaQueryListMedia :: (MonadIO m, DOMMediaQueryListK o) => o -> m T.Text
getDOMMediaQueryListMedia obj = liftIO $ getObjectPropertyString obj "media"
data DOMMediaQueryListMediaPropertyInfo
instance AttrInfo DOMMediaQueryListMediaPropertyInfo where
type AttrAllowedOps DOMMediaQueryListMediaPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMediaQueryListMediaPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMediaQueryListMediaPropertyInfo = DOMMediaQueryListK
type AttrGetType DOMMediaQueryListMediaPropertyInfo = T.Text
type AttrLabel DOMMediaQueryListMediaPropertyInfo = "DOMMediaQueryList::media"
attrGet _ = getDOMMediaQueryListMedia
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMMediaQueryList = DOMMediaQueryListAttributeList
type DOMMediaQueryListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("matches", DOMMediaQueryListMatchesPropertyInfo), '("media", DOMMediaQueryListMediaPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMMediaQueryList = DOMMediaQueryListSignalList
type DOMMediaQueryListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_media_query_list_get_matches" webkit_dom_media_query_list_get_matches ::
Ptr DOMMediaQueryList ->
IO CInt
dOMMediaQueryListGetMatches ::
(MonadIO m, DOMMediaQueryListK a) =>
a ->
m Bool
dOMMediaQueryListGetMatches _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_query_list_get_matches _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_media_query_list_get_media" webkit_dom_media_query_list_get_media ::
Ptr DOMMediaQueryList ->
IO CString
dOMMediaQueryListGetMedia ::
(MonadIO m, DOMMediaQueryListK a) =>
a ->
m T.Text
dOMMediaQueryListGetMedia _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_query_list_get_media _obj'
checkUnexpectedReturnNULL "webkit_dom_media_query_list_get_media" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'