{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKitWebProcessExtension.Objects.WebHitTestResult
(
WebHitTestResult(..) ,
IsWebHitTestResult ,
toWebHitTestResult ,
#if defined(ENABLE_OVERLOADING)
ResolveWebHitTestResultMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
WebHitTestResultContextIsEditableMethodInfo,
#endif
webHitTestResultContextIsEditable ,
#if defined(ENABLE_OVERLOADING)
WebHitTestResultContextIsImageMethodInfo,
#endif
webHitTestResultContextIsImage ,
#if defined(ENABLE_OVERLOADING)
WebHitTestResultContextIsLinkMethodInfo ,
#endif
webHitTestResultContextIsLink ,
#if defined(ENABLE_OVERLOADING)
WebHitTestResultContextIsMediaMethodInfo,
#endif
webHitTestResultContextIsMedia ,
#if defined(ENABLE_OVERLOADING)
WebHitTestResultContextIsScrollbarMethodInfo,
#endif
webHitTestResultContextIsScrollbar ,
#if defined(ENABLE_OVERLOADING)
WebHitTestResultContextIsSelectionMethodInfo,
#endif
webHitTestResultContextIsSelection ,
#if defined(ENABLE_OVERLOADING)
WebHitTestResultGetContextMethodInfo ,
#endif
webHitTestResultGetContext ,
#if defined(ENABLE_OVERLOADING)
WebHitTestResultGetImageUriMethodInfo ,
#endif
webHitTestResultGetImageUri ,
#if defined(ENABLE_OVERLOADING)
WebHitTestResultGetJsNodeMethodInfo ,
#endif
webHitTestResultGetJsNode ,
#if defined(ENABLE_OVERLOADING)
WebHitTestResultGetLinkLabelMethodInfo ,
#endif
webHitTestResultGetLinkLabel ,
#if defined(ENABLE_OVERLOADING)
WebHitTestResultGetLinkTitleMethodInfo ,
#endif
webHitTestResultGetLinkTitle ,
#if defined(ENABLE_OVERLOADING)
WebHitTestResultGetLinkUriMethodInfo ,
#endif
webHitTestResultGetLinkUri ,
#if defined(ENABLE_OVERLOADING)
WebHitTestResultGetMediaUriMethodInfo ,
#endif
webHitTestResultGetMediaUri ,
) 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.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.JavaScriptCore.Objects.Value as JavaScriptCore.Value
import {-# SOURCE #-} qualified GI.WebKitWebProcessExtension.Objects.ScriptWorld as WebKitWebProcessExtension.ScriptWorld
newtype WebHitTestResult = WebHitTestResult (SP.ManagedPtr WebHitTestResult)
deriving (WebHitTestResult -> WebHitTestResult -> Bool
(WebHitTestResult -> WebHitTestResult -> Bool)
-> (WebHitTestResult -> WebHitTestResult -> Bool)
-> Eq WebHitTestResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WebHitTestResult -> WebHitTestResult -> Bool
== :: WebHitTestResult -> WebHitTestResult -> Bool
$c/= :: WebHitTestResult -> WebHitTestResult -> Bool
/= :: WebHitTestResult -> WebHitTestResult -> Bool
Eq)
instance SP.ManagedPtrNewtype WebHitTestResult where
toManagedPtr :: WebHitTestResult -> ManagedPtr WebHitTestResult
toManagedPtr (WebHitTestResult ManagedPtr WebHitTestResult
p) = ManagedPtr WebHitTestResult
p
foreign import ccall "webkit_web_hit_test_result_get_type"
c_webkit_web_hit_test_result_get_type :: IO B.Types.GType
instance B.Types.TypedObject WebHitTestResult where
glibType :: IO GType
glibType = IO GType
c_webkit_web_hit_test_result_get_type
instance B.Types.GObject WebHitTestResult
class (SP.GObject o, O.IsDescendantOf WebHitTestResult o) => IsWebHitTestResult o
instance (SP.GObject o, O.IsDescendantOf WebHitTestResult o) => IsWebHitTestResult o
instance O.HasParentTypes WebHitTestResult
type instance O.ParentTypes WebHitTestResult = '[GObject.Object.Object]
toWebHitTestResult :: (MIO.MonadIO m, IsWebHitTestResult o) => o -> m WebHitTestResult
toWebHitTestResult :: forall (m :: * -> *) o.
(MonadIO m, IsWebHitTestResult o) =>
o -> m WebHitTestResult
toWebHitTestResult = IO WebHitTestResult -> m WebHitTestResult
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO WebHitTestResult -> m WebHitTestResult)
-> (o -> IO WebHitTestResult) -> o -> m WebHitTestResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr WebHitTestResult -> WebHitTestResult)
-> o -> IO WebHitTestResult
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr WebHitTestResult -> WebHitTestResult
WebHitTestResult
instance B.GValue.IsGValue (Maybe WebHitTestResult) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_web_hit_test_result_get_type
gvalueSet_ :: Ptr GValue -> Maybe WebHitTestResult -> IO ()
gvalueSet_ Ptr GValue
gv Maybe WebHitTestResult
P.Nothing = Ptr GValue -> Ptr WebHitTestResult -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr WebHitTestResult
forall a. Ptr a
FP.nullPtr :: FP.Ptr WebHitTestResult)
gvalueSet_ Ptr GValue
gv (P.Just WebHitTestResult
obj) = WebHitTestResult -> (Ptr WebHitTestResult -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr WebHitTestResult
obj (Ptr GValue -> Ptr WebHitTestResult -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe WebHitTestResult)
gvalueGet_ Ptr GValue
gv = do
Ptr WebHitTestResult
ptr <- Ptr GValue -> IO (Ptr WebHitTestResult)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr WebHitTestResult)
if Ptr WebHitTestResult
ptr Ptr WebHitTestResult -> Ptr WebHitTestResult -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr WebHitTestResult
forall a. Ptr a
FP.nullPtr
then WebHitTestResult -> Maybe WebHitTestResult
forall a. a -> Maybe a
P.Just (WebHitTestResult -> Maybe WebHitTestResult)
-> IO WebHitTestResult -> IO (Maybe WebHitTestResult)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr WebHitTestResult -> WebHitTestResult)
-> Ptr WebHitTestResult -> IO WebHitTestResult
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr WebHitTestResult -> WebHitTestResult
WebHitTestResult Ptr WebHitTestResult
ptr
else Maybe WebHitTestResult -> IO (Maybe WebHitTestResult)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe WebHitTestResult
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveWebHitTestResultMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveWebHitTestResultMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveWebHitTestResultMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveWebHitTestResultMethod "contextIsEditable" o = WebHitTestResultContextIsEditableMethodInfo
ResolveWebHitTestResultMethod "contextIsImage" o = WebHitTestResultContextIsImageMethodInfo
ResolveWebHitTestResultMethod "contextIsLink" o = WebHitTestResultContextIsLinkMethodInfo
ResolveWebHitTestResultMethod "contextIsMedia" o = WebHitTestResultContextIsMediaMethodInfo
ResolveWebHitTestResultMethod "contextIsScrollbar" o = WebHitTestResultContextIsScrollbarMethodInfo
ResolveWebHitTestResultMethod "contextIsSelection" o = WebHitTestResultContextIsSelectionMethodInfo
ResolveWebHitTestResultMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWebHitTestResultMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWebHitTestResultMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveWebHitTestResultMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveWebHitTestResultMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWebHitTestResultMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWebHitTestResultMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWebHitTestResultMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWebHitTestResultMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWebHitTestResultMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWebHitTestResultMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWebHitTestResultMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveWebHitTestResultMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveWebHitTestResultMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWebHitTestResultMethod "getContext" o = WebHitTestResultGetContextMethodInfo
ResolveWebHitTestResultMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveWebHitTestResultMethod "getImageUri" o = WebHitTestResultGetImageUriMethodInfo
ResolveWebHitTestResultMethod "getJsNode" o = WebHitTestResultGetJsNodeMethodInfo
ResolveWebHitTestResultMethod "getLinkLabel" o = WebHitTestResultGetLinkLabelMethodInfo
ResolveWebHitTestResultMethod "getLinkTitle" o = WebHitTestResultGetLinkTitleMethodInfo
ResolveWebHitTestResultMethod "getLinkUri" o = WebHitTestResultGetLinkUriMethodInfo
ResolveWebHitTestResultMethod "getMediaUri" o = WebHitTestResultGetMediaUriMethodInfo
ResolveWebHitTestResultMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWebHitTestResultMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWebHitTestResultMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWebHitTestResultMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveWebHitTestResultMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWebHitTestResultMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWebHitTestResultMethod t WebHitTestResult, O.OverloadedMethod info WebHitTestResult p) => OL.IsLabel t (WebHitTestResult -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveWebHitTestResultMethod t WebHitTestResult, O.OverloadedMethod info WebHitTestResult p, R.HasField t WebHitTestResult p) => R.HasField t WebHitTestResult p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveWebHitTestResultMethod t WebHitTestResult, O.OverloadedMethodInfo info WebHitTestResult) => OL.IsLabel t (O.MethodProxy info WebHitTestResult) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList WebHitTestResult
type instance O.AttributeList WebHitTestResult = WebHitTestResultAttributeList
type WebHitTestResultAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList WebHitTestResult = WebHitTestResultSignalList
type WebHitTestResultSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "webkit_web_hit_test_result_context_is_editable" webkit_web_hit_test_result_context_is_editable ::
Ptr WebHitTestResult ->
IO CInt
webHitTestResultContextIsEditable ::
(B.CallStack.HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a
-> m Bool
webHitTestResultContextIsEditable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a -> m Bool
webHitTestResultContextIsEditable a
webHitTestResult = IO Bool -> m Bool
forall a. IO a -> m a
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 WebHitTestResult
webHitTestResult' <- a -> IO (Ptr WebHitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webHitTestResult
CInt
result <- Ptr WebHitTestResult -> IO CInt
webkit_web_hit_test_result_context_is_editable Ptr WebHitTestResult
webHitTestResult'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webHitTestResult
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebHitTestResultContextIsEditableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebHitTestResult a) => O.OverloadedMethod WebHitTestResultContextIsEditableMethodInfo a signature where
overloadedMethod = webHitTestResultContextIsEditable
instance O.OverloadedMethodInfo WebHitTestResultContextIsEditableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.WebHitTestResult.webHitTestResultContextIsEditable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-WebHitTestResult.html#v:webHitTestResultContextIsEditable"
})
#endif
foreign import ccall "webkit_web_hit_test_result_context_is_image" webkit_web_hit_test_result_context_is_image ::
Ptr WebHitTestResult ->
IO CInt
webHitTestResultContextIsImage ::
(B.CallStack.HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a
-> m Bool
webHitTestResultContextIsImage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a -> m Bool
webHitTestResultContextIsImage a
webHitTestResult = IO Bool -> m Bool
forall a. IO a -> m a
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 WebHitTestResult
webHitTestResult' <- a -> IO (Ptr WebHitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webHitTestResult
CInt
result <- Ptr WebHitTestResult -> IO CInt
webkit_web_hit_test_result_context_is_image Ptr WebHitTestResult
webHitTestResult'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webHitTestResult
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebHitTestResultContextIsImageMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebHitTestResult a) => O.OverloadedMethod WebHitTestResultContextIsImageMethodInfo a signature where
overloadedMethod = webHitTestResultContextIsImage
instance O.OverloadedMethodInfo WebHitTestResultContextIsImageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.WebHitTestResult.webHitTestResultContextIsImage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-WebHitTestResult.html#v:webHitTestResultContextIsImage"
})
#endif
foreign import ccall "webkit_web_hit_test_result_context_is_link" webkit_web_hit_test_result_context_is_link ::
Ptr WebHitTestResult ->
IO CInt
webHitTestResultContextIsLink ::
(B.CallStack.HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a
-> m Bool
webHitTestResultContextIsLink :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a -> m Bool
webHitTestResultContextIsLink a
webHitTestResult = IO Bool -> m Bool
forall a. IO a -> m a
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 WebHitTestResult
webHitTestResult' <- a -> IO (Ptr WebHitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webHitTestResult
CInt
result <- Ptr WebHitTestResult -> IO CInt
webkit_web_hit_test_result_context_is_link Ptr WebHitTestResult
webHitTestResult'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webHitTestResult
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebHitTestResultContextIsLinkMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebHitTestResult a) => O.OverloadedMethod WebHitTestResultContextIsLinkMethodInfo a signature where
overloadedMethod = webHitTestResultContextIsLink
instance O.OverloadedMethodInfo WebHitTestResultContextIsLinkMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.WebHitTestResult.webHitTestResultContextIsLink",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-WebHitTestResult.html#v:webHitTestResultContextIsLink"
})
#endif
foreign import ccall "webkit_web_hit_test_result_context_is_media" webkit_web_hit_test_result_context_is_media ::
Ptr WebHitTestResult ->
IO CInt
webHitTestResultContextIsMedia ::
(B.CallStack.HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a
-> m Bool
webHitTestResultContextIsMedia :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a -> m Bool
webHitTestResultContextIsMedia a
webHitTestResult = IO Bool -> m Bool
forall a. IO a -> m a
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 WebHitTestResult
webHitTestResult' <- a -> IO (Ptr WebHitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webHitTestResult
CInt
result <- Ptr WebHitTestResult -> IO CInt
webkit_web_hit_test_result_context_is_media Ptr WebHitTestResult
webHitTestResult'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webHitTestResult
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebHitTestResultContextIsMediaMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebHitTestResult a) => O.OverloadedMethod WebHitTestResultContextIsMediaMethodInfo a signature where
overloadedMethod = webHitTestResultContextIsMedia
instance O.OverloadedMethodInfo WebHitTestResultContextIsMediaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.WebHitTestResult.webHitTestResultContextIsMedia",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-WebHitTestResult.html#v:webHitTestResultContextIsMedia"
})
#endif
foreign import ccall "webkit_web_hit_test_result_context_is_scrollbar" webkit_web_hit_test_result_context_is_scrollbar ::
Ptr WebHitTestResult ->
IO CInt
webHitTestResultContextIsScrollbar ::
(B.CallStack.HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a
-> m Bool
webHitTestResultContextIsScrollbar :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a -> m Bool
webHitTestResultContextIsScrollbar a
webHitTestResult = IO Bool -> m Bool
forall a. IO a -> m a
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 WebHitTestResult
webHitTestResult' <- a -> IO (Ptr WebHitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webHitTestResult
CInt
result <- Ptr WebHitTestResult -> IO CInt
webkit_web_hit_test_result_context_is_scrollbar Ptr WebHitTestResult
webHitTestResult'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webHitTestResult
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebHitTestResultContextIsScrollbarMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebHitTestResult a) => O.OverloadedMethod WebHitTestResultContextIsScrollbarMethodInfo a signature where
overloadedMethod = webHitTestResultContextIsScrollbar
instance O.OverloadedMethodInfo WebHitTestResultContextIsScrollbarMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.WebHitTestResult.webHitTestResultContextIsScrollbar",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-WebHitTestResult.html#v:webHitTestResultContextIsScrollbar"
})
#endif
foreign import ccall "webkit_web_hit_test_result_context_is_selection" webkit_web_hit_test_result_context_is_selection ::
Ptr WebHitTestResult ->
IO CInt
webHitTestResultContextIsSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a
-> m Bool
webHitTestResultContextIsSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a -> m Bool
webHitTestResultContextIsSelection a
webHitTestResult = IO Bool -> m Bool
forall a. IO a -> m a
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 WebHitTestResult
webHitTestResult' <- a -> IO (Ptr WebHitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webHitTestResult
CInt
result <- Ptr WebHitTestResult -> IO CInt
webkit_web_hit_test_result_context_is_selection Ptr WebHitTestResult
webHitTestResult'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webHitTestResult
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data WebHitTestResultContextIsSelectionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsWebHitTestResult a) => O.OverloadedMethod WebHitTestResultContextIsSelectionMethodInfo a signature where
overloadedMethod = webHitTestResultContextIsSelection
instance O.OverloadedMethodInfo WebHitTestResultContextIsSelectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.WebHitTestResult.webHitTestResultContextIsSelection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-WebHitTestResult.html#v:webHitTestResultContextIsSelection"
})
#endif
foreign import ccall "webkit_web_hit_test_result_get_context" webkit_web_hit_test_result_get_context ::
Ptr WebHitTestResult ->
IO Word32
webHitTestResultGetContext ::
(B.CallStack.HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a
-> m Word32
webHitTestResultGetContext :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a -> m Word32
webHitTestResultGetContext a
webHitTestResult = IO Word32 -> m Word32
forall a. IO a -> m a
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 WebHitTestResult
webHitTestResult' <- a -> IO (Ptr WebHitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webHitTestResult
Word32
result <- Ptr WebHitTestResult -> IO Word32
webkit_web_hit_test_result_get_context Ptr WebHitTestResult
webHitTestResult'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webHitTestResult
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data WebHitTestResultGetContextMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsWebHitTestResult a) => O.OverloadedMethod WebHitTestResultGetContextMethodInfo a signature where
overloadedMethod = webHitTestResultGetContext
instance O.OverloadedMethodInfo WebHitTestResultGetContextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.WebHitTestResult.webHitTestResultGetContext",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-WebHitTestResult.html#v:webHitTestResultGetContext"
})
#endif
foreign import ccall "webkit_web_hit_test_result_get_image_uri" webkit_web_hit_test_result_get_image_uri ::
Ptr WebHitTestResult ->
IO CString
webHitTestResultGetImageUri ::
(B.CallStack.HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a
-> m T.Text
webHitTestResultGetImageUri :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a -> m Text
webHitTestResultGetImageUri a
webHitTestResult = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr WebHitTestResult
webHitTestResult' <- a -> IO (Ptr WebHitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webHitTestResult
CString
result <- Ptr WebHitTestResult -> IO CString
webkit_web_hit_test_result_get_image_uri Ptr WebHitTestResult
webHitTestResult'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"webHitTestResultGetImageUri" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webHitTestResult
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data WebHitTestResultGetImageUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWebHitTestResult a) => O.OverloadedMethod WebHitTestResultGetImageUriMethodInfo a signature where
overloadedMethod = webHitTestResultGetImageUri
instance O.OverloadedMethodInfo WebHitTestResultGetImageUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.WebHitTestResult.webHitTestResultGetImageUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-WebHitTestResult.html#v:webHitTestResultGetImageUri"
})
#endif
foreign import ccall "webkit_web_hit_test_result_get_js_node" webkit_web_hit_test_result_get_js_node ::
Ptr WebHitTestResult ->
Ptr WebKitWebProcessExtension.ScriptWorld.ScriptWorld ->
IO (Ptr JavaScriptCore.Value.Value)
webHitTestResultGetJsNode ::
(B.CallStack.HasCallStack, MonadIO m, IsWebHitTestResult a, WebKitWebProcessExtension.ScriptWorld.IsScriptWorld b) =>
a
-> Maybe (b)
-> m (Maybe JavaScriptCore.Value.Value)
webHitTestResultGetJsNode :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWebHitTestResult a, IsScriptWorld b) =>
a -> Maybe b -> m (Maybe Value)
webHitTestResultGetJsNode a
webHitTestResult Maybe b
world = IO (Maybe Value) -> m (Maybe Value)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Value) -> m (Maybe Value))
-> IO (Maybe Value) -> m (Maybe Value)
forall a b. (a -> b) -> a -> b
$ do
Ptr WebHitTestResult
webHitTestResult' <- a -> IO (Ptr WebHitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webHitTestResult
Ptr ScriptWorld
maybeWorld <- case Maybe b
world of
Maybe b
Nothing -> Ptr ScriptWorld -> IO (Ptr ScriptWorld)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ScriptWorld
forall a. Ptr a
nullPtr
Just b
jWorld -> do
Ptr ScriptWorld
jWorld' <- b -> IO (Ptr ScriptWorld)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jWorld
Ptr ScriptWorld -> IO (Ptr ScriptWorld)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ScriptWorld
jWorld'
Ptr Value
result <- Ptr WebHitTestResult -> Ptr ScriptWorld -> IO (Ptr Value)
webkit_web_hit_test_result_get_js_node Ptr WebHitTestResult
webHitTestResult' Ptr ScriptWorld
maybeWorld
Maybe Value
maybeResult <- Ptr Value -> (Ptr Value -> IO Value) -> IO (Maybe Value)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Value
result ((Ptr Value -> IO Value) -> IO (Maybe Value))
-> (Ptr Value -> IO Value) -> IO (Maybe Value)
forall a b. (a -> b) -> a -> b
$ \Ptr Value
result' -> do
Value
result'' <- ((ManagedPtr Value -> Value) -> Ptr Value -> IO Value
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Value -> Value
JavaScriptCore.Value.Value) Ptr Value
result'
Value -> IO Value
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Value
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webHitTestResult
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
world b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe Value -> IO (Maybe Value)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Value
maybeResult
#if defined(ENABLE_OVERLOADING)
data WebHitTestResultGetJsNodeMethodInfo
instance (signature ~ (Maybe (b) -> m (Maybe JavaScriptCore.Value.Value)), MonadIO m, IsWebHitTestResult a, WebKitWebProcessExtension.ScriptWorld.IsScriptWorld b) => O.OverloadedMethod WebHitTestResultGetJsNodeMethodInfo a signature where
overloadedMethod = webHitTestResultGetJsNode
instance O.OverloadedMethodInfo WebHitTestResultGetJsNodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.WebHitTestResult.webHitTestResultGetJsNode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-WebHitTestResult.html#v:webHitTestResultGetJsNode"
})
#endif
foreign import ccall "webkit_web_hit_test_result_get_link_label" webkit_web_hit_test_result_get_link_label ::
Ptr WebHitTestResult ->
IO CString
webHitTestResultGetLinkLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a
-> m T.Text
webHitTestResultGetLinkLabel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a -> m Text
webHitTestResultGetLinkLabel a
webHitTestResult = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr WebHitTestResult
webHitTestResult' <- a -> IO (Ptr WebHitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webHitTestResult
CString
result <- Ptr WebHitTestResult -> IO CString
webkit_web_hit_test_result_get_link_label Ptr WebHitTestResult
webHitTestResult'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"webHitTestResultGetLinkLabel" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webHitTestResult
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data WebHitTestResultGetLinkLabelMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWebHitTestResult a) => O.OverloadedMethod WebHitTestResultGetLinkLabelMethodInfo a signature where
overloadedMethod = webHitTestResultGetLinkLabel
instance O.OverloadedMethodInfo WebHitTestResultGetLinkLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.WebHitTestResult.webHitTestResultGetLinkLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-WebHitTestResult.html#v:webHitTestResultGetLinkLabel"
})
#endif
foreign import ccall "webkit_web_hit_test_result_get_link_title" webkit_web_hit_test_result_get_link_title ::
Ptr WebHitTestResult ->
IO CString
webHitTestResultGetLinkTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a
-> m T.Text
webHitTestResultGetLinkTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a -> m Text
webHitTestResultGetLinkTitle a
webHitTestResult = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr WebHitTestResult
webHitTestResult' <- a -> IO (Ptr WebHitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webHitTestResult
CString
result <- Ptr WebHitTestResult -> IO CString
webkit_web_hit_test_result_get_link_title Ptr WebHitTestResult
webHitTestResult'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"webHitTestResultGetLinkTitle" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webHitTestResult
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data WebHitTestResultGetLinkTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWebHitTestResult a) => O.OverloadedMethod WebHitTestResultGetLinkTitleMethodInfo a signature where
overloadedMethod = webHitTestResultGetLinkTitle
instance O.OverloadedMethodInfo WebHitTestResultGetLinkTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.WebHitTestResult.webHitTestResultGetLinkTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-WebHitTestResult.html#v:webHitTestResultGetLinkTitle"
})
#endif
foreign import ccall "webkit_web_hit_test_result_get_link_uri" webkit_web_hit_test_result_get_link_uri ::
Ptr WebHitTestResult ->
IO CString
webHitTestResultGetLinkUri ::
(B.CallStack.HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a
-> m T.Text
webHitTestResultGetLinkUri :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a -> m Text
webHitTestResultGetLinkUri a
webHitTestResult = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr WebHitTestResult
webHitTestResult' <- a -> IO (Ptr WebHitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webHitTestResult
CString
result <- Ptr WebHitTestResult -> IO CString
webkit_web_hit_test_result_get_link_uri Ptr WebHitTestResult
webHitTestResult'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"webHitTestResultGetLinkUri" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webHitTestResult
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data WebHitTestResultGetLinkUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWebHitTestResult a) => O.OverloadedMethod WebHitTestResultGetLinkUriMethodInfo a signature where
overloadedMethod = webHitTestResultGetLinkUri
instance O.OverloadedMethodInfo WebHitTestResultGetLinkUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.WebHitTestResult.webHitTestResultGetLinkUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-WebHitTestResult.html#v:webHitTestResultGetLinkUri"
})
#endif
foreign import ccall "webkit_web_hit_test_result_get_media_uri" webkit_web_hit_test_result_get_media_uri ::
Ptr WebHitTestResult ->
IO CString
webHitTestResultGetMediaUri ::
(B.CallStack.HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a
-> m T.Text
webHitTestResultGetMediaUri :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWebHitTestResult a) =>
a -> m Text
webHitTestResultGetMediaUri a
webHitTestResult = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr WebHitTestResult
webHitTestResult' <- a -> IO (Ptr WebHitTestResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
webHitTestResult
CString
result <- Ptr WebHitTestResult -> IO CString
webkit_web_hit_test_result_get_media_uri Ptr WebHitTestResult
webHitTestResult'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"webHitTestResultGetMediaUri" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
webHitTestResult
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data WebHitTestResultGetMediaUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWebHitTestResult a) => O.OverloadedMethod WebHitTestResultGetMediaUriMethodInfo a signature where
overloadedMethod = webHitTestResultGetMediaUri
instance O.OverloadedMethodInfo WebHitTestResultGetMediaUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKitWebProcessExtension.Objects.WebHitTestResult.webHitTestResultGetMediaUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkitwebprocessextension-6.0.2/docs/GI-WebKitWebProcessExtension-Objects-WebHitTestResult.html#v:webHitTestResultGetMediaUri"
})
#endif