{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.HitTestResult
(
HitTestResult(..) ,
IsHitTestResult ,
toHitTestResult ,
noHitTestResult ,
#if defined(ENABLE_OVERLOADING)
ResolveHitTestResultMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
HitTestResultContextIsEditableMethodInfo,
#endif
hitTestResultContextIsEditable ,
#if defined(ENABLE_OVERLOADING)
HitTestResultContextIsImageMethodInfo ,
#endif
hitTestResultContextIsImage ,
#if defined(ENABLE_OVERLOADING)
HitTestResultContextIsLinkMethodInfo ,
#endif
hitTestResultContextIsLink ,
#if defined(ENABLE_OVERLOADING)
HitTestResultContextIsMediaMethodInfo ,
#endif
hitTestResultContextIsMedia ,
#if defined(ENABLE_OVERLOADING)
HitTestResultContextIsScrollbarMethodInfo,
#endif
hitTestResultContextIsScrollbar ,
#if defined(ENABLE_OVERLOADING)
HitTestResultContextIsSelectionMethodInfo,
#endif
hitTestResultContextIsSelection ,
#if defined(ENABLE_OVERLOADING)
HitTestResultGetContextMethodInfo ,
#endif
hitTestResultGetContext ,
#if defined(ENABLE_OVERLOADING)
HitTestResultGetImageUriMethodInfo ,
#endif
hitTestResultGetImageUri ,
#if defined(ENABLE_OVERLOADING)
HitTestResultGetLinkLabelMethodInfo ,
#endif
hitTestResultGetLinkLabel ,
#if defined(ENABLE_OVERLOADING)
HitTestResultGetLinkTitleMethodInfo ,
#endif
hitTestResultGetLinkTitle ,
#if defined(ENABLE_OVERLOADING)
HitTestResultGetLinkUriMethodInfo ,
#endif
hitTestResultGetLinkUri ,
#if defined(ENABLE_OVERLOADING)
HitTestResultGetMediaUriMethodInfo ,
#endif
hitTestResultGetMediaUri ,
#if defined(ENABLE_OVERLOADING)
HitTestResultContextPropertyInfo ,
#endif
constructHitTestResultContext ,
getHitTestResultContext ,
#if defined(ENABLE_OVERLOADING)
hitTestResultContext ,
#endif
#if defined(ENABLE_OVERLOADING)
HitTestResultImageUriPropertyInfo ,
#endif
constructHitTestResultImageUri ,
getHitTestResultImageUri ,
#if defined(ENABLE_OVERLOADING)
hitTestResultImageUri ,
#endif
#if defined(ENABLE_OVERLOADING)
HitTestResultLinkLabelPropertyInfo ,
#endif
constructHitTestResultLinkLabel ,
getHitTestResultLinkLabel ,
#if defined(ENABLE_OVERLOADING)
hitTestResultLinkLabel ,
#endif
#if defined(ENABLE_OVERLOADING)
HitTestResultLinkTitlePropertyInfo ,
#endif
constructHitTestResultLinkTitle ,
getHitTestResultLinkTitle ,
#if defined(ENABLE_OVERLOADING)
hitTestResultLinkTitle ,
#endif
#if defined(ENABLE_OVERLOADING)
HitTestResultLinkUriPropertyInfo ,
#endif
constructHitTestResultLinkUri ,
getHitTestResultLinkUri ,
#if defined(ENABLE_OVERLOADING)
hitTestResultLinkUri ,
#endif
#if defined(ENABLE_OVERLOADING)
HitTestResultMediaUriPropertyInfo ,
#endif
constructHitTestResultMediaUri ,
getHitTestResultMediaUri ,
#if defined(ENABLE_OVERLOADING)
hitTestResultMediaUri ,
#endif
) 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.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 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
newtype HitTestResult = HitTestResult (ManagedPtr HitTestResult)
deriving (HitTestResult -> HitTestResult -> Bool
(HitTestResult -> HitTestResult -> Bool)
-> (HitTestResult -> HitTestResult -> Bool) -> Eq HitTestResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HitTestResult -> HitTestResult -> Bool
$c/= :: HitTestResult -> HitTestResult -> Bool
== :: HitTestResult -> HitTestResult -> Bool
$c== :: HitTestResult -> HitTestResult -> Bool
Eq)
foreign import ccall "webkit_hit_test_result_get_type"
c_webkit_hit_test_result_get_type :: IO GType
instance GObject HitTestResult where
gobjectType :: IO GType
gobjectType = IO GType
c_webkit_hit_test_result_get_type
instance B.GValue.IsGValue HitTestResult where
toGValue :: HitTestResult -> IO GValue
toGValue o :: HitTestResult
o = do
GType
gtype <- IO GType
c_webkit_hit_test_result_get_type
HitTestResult -> (Ptr HitTestResult -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr HitTestResult
o (GType
-> (GValue -> Ptr HitTestResult -> IO ())
-> Ptr HitTestResult
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr HitTestResult -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO HitTestResult
fromGValue gv :: GValue
gv = do
Ptr HitTestResult
ptr <- GValue -> IO (Ptr HitTestResult)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr HitTestResult)
(ManagedPtr HitTestResult -> HitTestResult)
-> Ptr HitTestResult -> IO HitTestResult
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr HitTestResult -> HitTestResult
HitTestResult Ptr HitTestResult
ptr
class (GObject o, O.IsDescendantOf HitTestResult o) => IsHitTestResult o
instance (GObject o, O.IsDescendantOf HitTestResult o) => IsHitTestResult o
instance O.HasParentTypes HitTestResult
type instance O.ParentTypes HitTestResult = '[GObject.Object.Object]
toHitTestResult :: (MonadIO m, IsHitTestResult o) => o -> m HitTestResult
toHitTestResult :: o -> m HitTestResult
toHitTestResult = IO HitTestResult -> m HitTestResult
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO HitTestResult -> m HitTestResult)
-> (o -> IO HitTestResult) -> o -> m HitTestResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr HitTestResult -> HitTestResult)
-> o -> IO HitTestResult
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr HitTestResult -> HitTestResult
HitTestResult
noHitTestResult :: Maybe HitTestResult
noHitTestResult :: Maybe HitTestResult
noHitTestResult = Maybe HitTestResult
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveHitTestResultMethod (t :: Symbol) (o :: *) :: * where
ResolveHitTestResultMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveHitTestResultMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveHitTestResultMethod "contextIsEditable" o = HitTestResultContextIsEditableMethodInfo
ResolveHitTestResultMethod "contextIsImage" o = HitTestResultContextIsImageMethodInfo
ResolveHitTestResultMethod "contextIsLink" o = HitTestResultContextIsLinkMethodInfo
ResolveHitTestResultMethod "contextIsMedia" o = HitTestResultContextIsMediaMethodInfo
ResolveHitTestResultMethod "contextIsScrollbar" o = HitTestResultContextIsScrollbarMethodInfo
ResolveHitTestResultMethod "contextIsSelection" o = HitTestResultContextIsSelectionMethodInfo
ResolveHitTestResultMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveHitTestResultMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveHitTestResultMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveHitTestResultMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveHitTestResultMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveHitTestResultMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveHitTestResultMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveHitTestResultMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveHitTestResultMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveHitTestResultMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveHitTestResultMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveHitTestResultMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveHitTestResultMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveHitTestResultMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveHitTestResultMethod "getContext" o = HitTestResultGetContextMethodInfo
ResolveHitTestResultMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveHitTestResultMethod "getImageUri" o = HitTestResultGetImageUriMethodInfo
ResolveHitTestResultMethod "getLinkLabel" o = HitTestResultGetLinkLabelMethodInfo
ResolveHitTestResultMethod "getLinkTitle" o = HitTestResultGetLinkTitleMethodInfo
ResolveHitTestResultMethod "getLinkUri" o = HitTestResultGetLinkUriMethodInfo
ResolveHitTestResultMethod "getMediaUri" o = HitTestResultGetMediaUriMethodInfo
ResolveHitTestResultMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveHitTestResultMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveHitTestResultMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveHitTestResultMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveHitTestResultMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveHitTestResultMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveHitTestResultMethod t HitTestResult, O.MethodInfo info HitTestResult p) => OL.IsLabel t (HitTestResult -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getHitTestResultContext :: (MonadIO m, IsHitTestResult o) => o -> m Word32
getHitTestResultContext :: o -> m Word32
getHitTestResultContext obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "context"
constructHitTestResultContext :: (IsHitTestResult o) => Word32 -> IO (GValueConstruct o)
constructHitTestResultContext :: Word32 -> IO (GValueConstruct o)
constructHitTestResultContext val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "context" Word32
val
#if defined(ENABLE_OVERLOADING)
data HitTestResultContextPropertyInfo
instance AttrInfo HitTestResultContextPropertyInfo where
type AttrAllowedOps HitTestResultContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint HitTestResultContextPropertyInfo = IsHitTestResult
type AttrSetTypeConstraint HitTestResultContextPropertyInfo = (~) Word32
type AttrTransferTypeConstraint HitTestResultContextPropertyInfo = (~) Word32
type AttrTransferType HitTestResultContextPropertyInfo = Word32
type AttrGetType HitTestResultContextPropertyInfo = Word32
type AttrLabel HitTestResultContextPropertyInfo = "context"
type AttrOrigin HitTestResultContextPropertyInfo = HitTestResult
attrGet = getHitTestResultContext
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructHitTestResultContext
attrClear = undefined
#endif
getHitTestResultImageUri :: (MonadIO m, IsHitTestResult o) => o -> m (Maybe T.Text)
getHitTestResultImageUri :: o -> m (Maybe Text)
getHitTestResultImageUri obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "image-uri"
constructHitTestResultImageUri :: (IsHitTestResult o) => T.Text -> IO (GValueConstruct o)
constructHitTestResultImageUri :: Text -> IO (GValueConstruct o)
constructHitTestResultImageUri val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "image-uri" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
#if defined(ENABLE_OVERLOADING)
data HitTestResultImageUriPropertyInfo
instance AttrInfo HitTestResultImageUriPropertyInfo where
type AttrAllowedOps HitTestResultImageUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint HitTestResultImageUriPropertyInfo = IsHitTestResult
type AttrSetTypeConstraint HitTestResultImageUriPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint HitTestResultImageUriPropertyInfo = (~) T.Text
type AttrTransferType HitTestResultImageUriPropertyInfo = T.Text
type AttrGetType HitTestResultImageUriPropertyInfo = (Maybe T.Text)
type AttrLabel HitTestResultImageUriPropertyInfo = "image-uri"
type AttrOrigin HitTestResultImageUriPropertyInfo = HitTestResult
attrGet = getHitTestResultImageUri
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructHitTestResultImageUri
attrClear = undefined
#endif
getHitTestResultLinkLabel :: (MonadIO m, IsHitTestResult o) => o -> m (Maybe T.Text)
getHitTestResultLinkLabel :: o -> m (Maybe Text)
getHitTestResultLinkLabel obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "link-label"
constructHitTestResultLinkLabel :: (IsHitTestResult o) => T.Text -> IO (GValueConstruct o)
constructHitTestResultLinkLabel :: Text -> IO (GValueConstruct o)
constructHitTestResultLinkLabel val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "link-label" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
#if defined(ENABLE_OVERLOADING)
data HitTestResultLinkLabelPropertyInfo
instance AttrInfo HitTestResultLinkLabelPropertyInfo where
type AttrAllowedOps HitTestResultLinkLabelPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint HitTestResultLinkLabelPropertyInfo = IsHitTestResult
type AttrSetTypeConstraint HitTestResultLinkLabelPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint HitTestResultLinkLabelPropertyInfo = (~) T.Text
type AttrTransferType HitTestResultLinkLabelPropertyInfo = T.Text
type AttrGetType HitTestResultLinkLabelPropertyInfo = (Maybe T.Text)
type AttrLabel HitTestResultLinkLabelPropertyInfo = "link-label"
type AttrOrigin HitTestResultLinkLabelPropertyInfo = HitTestResult
attrGet = getHitTestResultLinkLabel
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructHitTestResultLinkLabel
attrClear = undefined
#endif
getHitTestResultLinkTitle :: (MonadIO m, IsHitTestResult o) => o -> m (Maybe T.Text)
getHitTestResultLinkTitle :: o -> m (Maybe Text)
getHitTestResultLinkTitle obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "link-title"
constructHitTestResultLinkTitle :: (IsHitTestResult o) => T.Text -> IO (GValueConstruct o)
constructHitTestResultLinkTitle :: Text -> IO (GValueConstruct o)
constructHitTestResultLinkTitle val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "link-title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
#if defined(ENABLE_OVERLOADING)
data HitTestResultLinkTitlePropertyInfo
instance AttrInfo HitTestResultLinkTitlePropertyInfo where
type AttrAllowedOps HitTestResultLinkTitlePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint HitTestResultLinkTitlePropertyInfo = IsHitTestResult
type AttrSetTypeConstraint HitTestResultLinkTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint HitTestResultLinkTitlePropertyInfo = (~) T.Text
type AttrTransferType HitTestResultLinkTitlePropertyInfo = T.Text
type AttrGetType HitTestResultLinkTitlePropertyInfo = (Maybe T.Text)
type AttrLabel HitTestResultLinkTitlePropertyInfo = "link-title"
type AttrOrigin HitTestResultLinkTitlePropertyInfo = HitTestResult
attrGet = getHitTestResultLinkTitle
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructHitTestResultLinkTitle
attrClear = undefined
#endif
getHitTestResultLinkUri :: (MonadIO m, IsHitTestResult o) => o -> m (Maybe T.Text)
getHitTestResultLinkUri :: o -> m (Maybe Text)
getHitTestResultLinkUri obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "link-uri"
constructHitTestResultLinkUri :: (IsHitTestResult o) => T.Text -> IO (GValueConstruct o)
constructHitTestResultLinkUri :: Text -> IO (GValueConstruct o)
constructHitTestResultLinkUri val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "link-uri" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
#if defined(ENABLE_OVERLOADING)
data HitTestResultLinkUriPropertyInfo
instance AttrInfo HitTestResultLinkUriPropertyInfo where
type AttrAllowedOps HitTestResultLinkUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint HitTestResultLinkUriPropertyInfo = IsHitTestResult
type AttrSetTypeConstraint HitTestResultLinkUriPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint HitTestResultLinkUriPropertyInfo = (~) T.Text
type AttrTransferType HitTestResultLinkUriPropertyInfo = T.Text
type AttrGetType HitTestResultLinkUriPropertyInfo = (Maybe T.Text)
type AttrLabel HitTestResultLinkUriPropertyInfo = "link-uri"
type AttrOrigin HitTestResultLinkUriPropertyInfo = HitTestResult
attrGet = getHitTestResultLinkUri
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructHitTestResultLinkUri
attrClear = undefined
#endif
getHitTestResultMediaUri :: (MonadIO m, IsHitTestResult o) => o -> m (Maybe T.Text)
getHitTestResultMediaUri :: o -> m (Maybe Text)
getHitTestResultMediaUri obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "media-uri"
constructHitTestResultMediaUri :: (IsHitTestResult o) => T.Text -> IO (GValueConstruct o)
constructHitTestResultMediaUri :: Text -> IO (GValueConstruct o)
constructHitTestResultMediaUri val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "media-uri" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
#if defined(ENABLE_OVERLOADING)
data HitTestResultMediaUriPropertyInfo
instance AttrInfo HitTestResultMediaUriPropertyInfo where
type AttrAllowedOps HitTestResultMediaUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint HitTestResultMediaUriPropertyInfo = IsHitTestResult
type AttrSetTypeConstraint HitTestResultMediaUriPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint HitTestResultMediaUriPropertyInfo = (~) T.Text
type AttrTransferType HitTestResultMediaUriPropertyInfo = T.Text
type AttrGetType HitTestResultMediaUriPropertyInfo = (Maybe T.Text)
type AttrLabel HitTestResultMediaUriPropertyInfo = "media-uri"
type AttrOrigin HitTestResultMediaUriPropertyInfo = HitTestResult
attrGet = getHitTestResultMediaUri
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructHitTestResultMediaUri
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList HitTestResult
type instance O.AttributeList HitTestResult = HitTestResultAttributeList
type HitTestResultAttributeList = ('[ '("context", HitTestResultContextPropertyInfo), '("imageUri", HitTestResultImageUriPropertyInfo), '("linkLabel", HitTestResultLinkLabelPropertyInfo), '("linkTitle", HitTestResultLinkTitlePropertyInfo), '("linkUri", HitTestResultLinkUriPropertyInfo), '("mediaUri", HitTestResultMediaUriPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
hitTestResultContext :: AttrLabelProxy "context"
hitTestResultContext = AttrLabelProxy
hitTestResultImageUri :: AttrLabelProxy "imageUri"
hitTestResultImageUri = AttrLabelProxy
hitTestResultLinkLabel :: AttrLabelProxy "linkLabel"
hitTestResultLinkLabel = AttrLabelProxy
hitTestResultLinkTitle :: AttrLabelProxy "linkTitle"
hitTestResultLinkTitle = AttrLabelProxy
hitTestResultLinkUri :: AttrLabelProxy "linkUri"
hitTestResultLinkUri = AttrLabelProxy
hitTestResultMediaUri :: AttrLabelProxy "mediaUri"
hitTestResultMediaUri = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList HitTestResult = HitTestResultSignalList
type HitTestResultSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_hit_test_result_context_is_editable" webkit_hit_test_result_context_is_editable ::
Ptr HitTestResult ->
IO CInt
hitTestResultContextIsEditable ::
(B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>
a
-> m Bool
hitTestResultContextIsEditable :: a -> m Bool
hitTestResultContextIsEditable hitTestResult :: a
hitTestResult = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr HitTestResult
hitTestResult' <- a -> IO (Ptr HitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hitTestResult
CInt
result <- Ptr HitTestResult -> IO CInt
webkit_hit_test_result_context_is_editable Ptr HitTestResult
hitTestResult'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hitTestResult
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data HitTestResultContextIsEditableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultContextIsEditableMethodInfo a signature where
overloadedMethod = hitTestResultContextIsEditable
#endif
foreign import ccall "webkit_hit_test_result_context_is_image" webkit_hit_test_result_context_is_image ::
Ptr HitTestResult ->
IO CInt
hitTestResultContextIsImage ::
(B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>
a
-> m Bool
hitTestResultContextIsImage :: a -> m Bool
hitTestResultContextIsImage hitTestResult :: a
hitTestResult = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr HitTestResult
hitTestResult' <- a -> IO (Ptr HitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hitTestResult
CInt
result <- Ptr HitTestResult -> IO CInt
webkit_hit_test_result_context_is_image Ptr HitTestResult
hitTestResult'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hitTestResult
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data HitTestResultContextIsImageMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultContextIsImageMethodInfo a signature where
overloadedMethod = hitTestResultContextIsImage
#endif
foreign import ccall "webkit_hit_test_result_context_is_link" webkit_hit_test_result_context_is_link ::
Ptr HitTestResult ->
IO CInt
hitTestResultContextIsLink ::
(B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>
a
-> m Bool
hitTestResultContextIsLink :: a -> m Bool
hitTestResultContextIsLink hitTestResult :: a
hitTestResult = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr HitTestResult
hitTestResult' <- a -> IO (Ptr HitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hitTestResult
CInt
result <- Ptr HitTestResult -> IO CInt
webkit_hit_test_result_context_is_link Ptr HitTestResult
hitTestResult'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hitTestResult
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data HitTestResultContextIsLinkMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultContextIsLinkMethodInfo a signature where
overloadedMethod = hitTestResultContextIsLink
#endif
foreign import ccall "webkit_hit_test_result_context_is_media" webkit_hit_test_result_context_is_media ::
Ptr HitTestResult ->
IO CInt
hitTestResultContextIsMedia ::
(B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>
a
-> m Bool
hitTestResultContextIsMedia :: a -> m Bool
hitTestResultContextIsMedia hitTestResult :: a
hitTestResult = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr HitTestResult
hitTestResult' <- a -> IO (Ptr HitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hitTestResult
CInt
result <- Ptr HitTestResult -> IO CInt
webkit_hit_test_result_context_is_media Ptr HitTestResult
hitTestResult'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hitTestResult
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data HitTestResultContextIsMediaMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultContextIsMediaMethodInfo a signature where
overloadedMethod = hitTestResultContextIsMedia
#endif
foreign import ccall "webkit_hit_test_result_context_is_scrollbar" webkit_hit_test_result_context_is_scrollbar ::
Ptr HitTestResult ->
IO CInt
hitTestResultContextIsScrollbar ::
(B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>
a
-> m Bool
hitTestResultContextIsScrollbar :: a -> m Bool
hitTestResultContextIsScrollbar hitTestResult :: a
hitTestResult = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr HitTestResult
hitTestResult' <- a -> IO (Ptr HitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hitTestResult
CInt
result <- Ptr HitTestResult -> IO CInt
webkit_hit_test_result_context_is_scrollbar Ptr HitTestResult
hitTestResult'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hitTestResult
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data HitTestResultContextIsScrollbarMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultContextIsScrollbarMethodInfo a signature where
overloadedMethod = hitTestResultContextIsScrollbar
#endif
foreign import ccall "webkit_hit_test_result_context_is_selection" webkit_hit_test_result_context_is_selection ::
Ptr HitTestResult ->
IO CInt
hitTestResultContextIsSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>
a
-> m Bool
hitTestResultContextIsSelection :: a -> m Bool
hitTestResultContextIsSelection hitTestResult :: a
hitTestResult = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr HitTestResult
hitTestResult' <- a -> IO (Ptr HitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hitTestResult
CInt
result <- Ptr HitTestResult -> IO CInt
webkit_hit_test_result_context_is_selection Ptr HitTestResult
hitTestResult'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hitTestResult
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data HitTestResultContextIsSelectionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultContextIsSelectionMethodInfo a signature where
overloadedMethod = hitTestResultContextIsSelection
#endif
foreign import ccall "webkit_hit_test_result_get_context" webkit_hit_test_result_get_context ::
Ptr HitTestResult ->
IO Word32
hitTestResultGetContext ::
(B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>
a
-> m Word32
hitTestResultGetContext :: a -> m Word32
hitTestResultGetContext hitTestResult :: a
hitTestResult = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr HitTestResult
hitTestResult' <- a -> IO (Ptr HitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hitTestResult
Word32
result <- Ptr HitTestResult -> IO Word32
webkit_hit_test_result_get_context Ptr HitTestResult
hitTestResult'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hitTestResult
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data HitTestResultGetContextMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultGetContextMethodInfo a signature where
overloadedMethod = hitTestResultGetContext
#endif
foreign import ccall "webkit_hit_test_result_get_image_uri" webkit_hit_test_result_get_image_uri ::
Ptr HitTestResult ->
IO CString
hitTestResultGetImageUri ::
(B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>
a
-> m (Maybe T.Text)
hitTestResultGetImageUri :: a -> m (Maybe Text)
hitTestResultGetImageUri hitTestResult :: a
hitTestResult = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr HitTestResult
hitTestResult' <- a -> IO (Ptr HitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hitTestResult
CString
result <- Ptr HitTestResult -> IO CString
webkit_hit_test_result_get_image_uri Ptr HitTestResult
hitTestResult'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hitTestResult
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data HitTestResultGetImageUriMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultGetImageUriMethodInfo a signature where
overloadedMethod = hitTestResultGetImageUri
#endif
foreign import ccall "webkit_hit_test_result_get_link_label" webkit_hit_test_result_get_link_label ::
Ptr HitTestResult ->
IO CString
hitTestResultGetLinkLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>
a
-> m (Maybe T.Text)
hitTestResultGetLinkLabel :: a -> m (Maybe Text)
hitTestResultGetLinkLabel hitTestResult :: a
hitTestResult = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr HitTestResult
hitTestResult' <- a -> IO (Ptr HitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hitTestResult
CString
result <- Ptr HitTestResult -> IO CString
webkit_hit_test_result_get_link_label Ptr HitTestResult
hitTestResult'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hitTestResult
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data HitTestResultGetLinkLabelMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultGetLinkLabelMethodInfo a signature where
overloadedMethod = hitTestResultGetLinkLabel
#endif
foreign import ccall "webkit_hit_test_result_get_link_title" webkit_hit_test_result_get_link_title ::
Ptr HitTestResult ->
IO CString
hitTestResultGetLinkTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>
a
-> m (Maybe T.Text)
hitTestResultGetLinkTitle :: a -> m (Maybe Text)
hitTestResultGetLinkTitle hitTestResult :: a
hitTestResult = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr HitTestResult
hitTestResult' <- a -> IO (Ptr HitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hitTestResult
CString
result <- Ptr HitTestResult -> IO CString
webkit_hit_test_result_get_link_title Ptr HitTestResult
hitTestResult'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hitTestResult
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data HitTestResultGetLinkTitleMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultGetLinkTitleMethodInfo a signature where
overloadedMethod = hitTestResultGetLinkTitle
#endif
foreign import ccall "webkit_hit_test_result_get_link_uri" webkit_hit_test_result_get_link_uri ::
Ptr HitTestResult ->
IO CString
hitTestResultGetLinkUri ::
(B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>
a
-> m (Maybe T.Text)
hitTestResultGetLinkUri :: a -> m (Maybe Text)
hitTestResultGetLinkUri hitTestResult :: a
hitTestResult = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr HitTestResult
hitTestResult' <- a -> IO (Ptr HitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hitTestResult
CString
result <- Ptr HitTestResult -> IO CString
webkit_hit_test_result_get_link_uri Ptr HitTestResult
hitTestResult'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hitTestResult
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data HitTestResultGetLinkUriMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultGetLinkUriMethodInfo a signature where
overloadedMethod = hitTestResultGetLinkUri
#endif
foreign import ccall "webkit_hit_test_result_get_media_uri" webkit_hit_test_result_get_media_uri ::
Ptr HitTestResult ->
IO CString
hitTestResultGetMediaUri ::
(B.CallStack.HasCallStack, MonadIO m, IsHitTestResult a) =>
a
-> m (Maybe T.Text)
hitTestResultGetMediaUri :: a -> m (Maybe Text)
hitTestResultGetMediaUri hitTestResult :: a
hitTestResult = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr HitTestResult
hitTestResult' <- a -> IO (Ptr HitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hitTestResult
CString
result <- Ptr HitTestResult -> IO CString
webkit_hit_test_result_get_media_uri Ptr HitTestResult
hitTestResult'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hitTestResult
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data HitTestResultGetMediaUriMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsHitTestResult a) => O.MethodInfo HitTestResultGetMediaUriMethodInfo a signature where
overloadedMethod = hitTestResultGetMediaUri
#endif