{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Structs.ScriptDialog
(
ScriptDialog(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveScriptDialogMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ScriptDialogCloseMethodInfo ,
#endif
scriptDialogClose ,
#if defined(ENABLE_OVERLOADING)
ScriptDialogConfirmSetConfirmedMethodInfo,
#endif
scriptDialogConfirmSetConfirmed ,
#if defined(ENABLE_OVERLOADING)
ScriptDialogGetDialogTypeMethodInfo ,
#endif
scriptDialogGetDialogType ,
#if defined(ENABLE_OVERLOADING)
ScriptDialogGetMessageMethodInfo ,
#endif
scriptDialogGetMessage ,
#if defined(ENABLE_OVERLOADING)
ScriptDialogPromptGetDefaultTextMethodInfo,
#endif
scriptDialogPromptGetDefaultText ,
#if defined(ENABLE_OVERLOADING)
ScriptDialogPromptSetTextMethodInfo ,
#endif
scriptDialogPromptSetText ,
#if defined(ENABLE_OVERLOADING)
ScriptDialogRefMethodInfo ,
#endif
scriptDialogRef ,
#if defined(ENABLE_OVERLOADING)
ScriptDialogUnrefMethodInfo ,
#endif
scriptDialogUnref ,
) 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.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 GHC.Records as R
import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums
newtype ScriptDialog = ScriptDialog (SP.ManagedPtr ScriptDialog)
deriving (ScriptDialog -> ScriptDialog -> Bool
(ScriptDialog -> ScriptDialog -> Bool)
-> (ScriptDialog -> ScriptDialog -> Bool) -> Eq ScriptDialog
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ScriptDialog -> ScriptDialog -> Bool
$c/= :: ScriptDialog -> ScriptDialog -> Bool
== :: ScriptDialog -> ScriptDialog -> Bool
$c== :: ScriptDialog -> ScriptDialog -> Bool
Eq)
instance SP.ManagedPtrNewtype ScriptDialog where
toManagedPtr :: ScriptDialog -> ManagedPtr ScriptDialog
toManagedPtr (ScriptDialog ManagedPtr ScriptDialog
p) = ManagedPtr ScriptDialog
p
foreign import ccall "webkit_script_dialog_get_type" c_webkit_script_dialog_get_type ::
IO GType
type instance O.ParentTypes ScriptDialog = '[]
instance O.HasParentTypes ScriptDialog
instance B.Types.TypedObject ScriptDialog where
glibType :: IO GType
glibType = IO GType
c_webkit_script_dialog_get_type
instance B.Types.GBoxed ScriptDialog
instance B.GValue.IsGValue (Maybe ScriptDialog) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_script_dialog_get_type
gvalueSet_ :: Ptr GValue -> Maybe ScriptDialog -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ScriptDialog
P.Nothing = Ptr GValue -> Ptr ScriptDialog -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr ScriptDialog
forall a. Ptr a
FP.nullPtr :: FP.Ptr ScriptDialog)
gvalueSet_ Ptr GValue
gv (P.Just ScriptDialog
obj) = ScriptDialog -> (Ptr ScriptDialog -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ScriptDialog
obj (Ptr GValue -> Ptr ScriptDialog -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ScriptDialog)
gvalueGet_ Ptr GValue
gv = do
Ptr ScriptDialog
ptr <- Ptr GValue -> IO (Ptr ScriptDialog)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr ScriptDialog)
if Ptr ScriptDialog
ptr Ptr ScriptDialog -> Ptr ScriptDialog -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ScriptDialog
forall a. Ptr a
FP.nullPtr
then ScriptDialog -> Maybe ScriptDialog
forall a. a -> Maybe a
P.Just (ScriptDialog -> Maybe ScriptDialog)
-> IO ScriptDialog -> IO (Maybe ScriptDialog)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ScriptDialog -> ScriptDialog)
-> Ptr ScriptDialog -> IO ScriptDialog
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr ScriptDialog -> ScriptDialog
ScriptDialog Ptr ScriptDialog
ptr
else Maybe ScriptDialog -> IO (Maybe ScriptDialog)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ScriptDialog
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ScriptDialog
type instance O.AttributeList ScriptDialog = ScriptDialogAttributeList
type ScriptDialogAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_script_dialog_close" webkit_script_dialog_close ::
Ptr ScriptDialog ->
IO ()
scriptDialogClose ::
(B.CallStack.HasCallStack, MonadIO m) =>
ScriptDialog
-> m ()
scriptDialogClose :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ScriptDialog -> m ()
scriptDialogClose ScriptDialog
dialog = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScriptDialog
dialog' <- ScriptDialog -> IO (Ptr ScriptDialog)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ScriptDialog
dialog
Ptr ScriptDialog -> IO ()
webkit_script_dialog_close Ptr ScriptDialog
dialog'
ScriptDialog -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ScriptDialog
dialog
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScriptDialogCloseMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod ScriptDialogCloseMethodInfo ScriptDialog signature where
overloadedMethod = scriptDialogClose
instance O.OverloadedMethodInfo ScriptDialogCloseMethodInfo ScriptDialog where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Structs.ScriptDialog.scriptDialogClose",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Structs-ScriptDialog.html#v:scriptDialogClose"
}
#endif
foreign import ccall "webkit_script_dialog_confirm_set_confirmed" webkit_script_dialog_confirm_set_confirmed ::
Ptr ScriptDialog ->
CInt ->
IO ()
scriptDialogConfirmSetConfirmed ::
(B.CallStack.HasCallStack, MonadIO m) =>
ScriptDialog
-> Bool
-> m ()
scriptDialogConfirmSetConfirmed :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ScriptDialog -> Bool -> m ()
scriptDialogConfirmSetConfirmed ScriptDialog
dialog Bool
confirmed = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScriptDialog
dialog' <- ScriptDialog -> IO (Ptr ScriptDialog)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ScriptDialog
dialog
let confirmed' :: CInt
confirmed' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
confirmed
Ptr ScriptDialog -> CInt -> IO ()
webkit_script_dialog_confirm_set_confirmed Ptr ScriptDialog
dialog' CInt
confirmed'
ScriptDialog -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ScriptDialog
dialog
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScriptDialogConfirmSetConfirmedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m) => O.OverloadedMethod ScriptDialogConfirmSetConfirmedMethodInfo ScriptDialog signature where
overloadedMethod = scriptDialogConfirmSetConfirmed
instance O.OverloadedMethodInfo ScriptDialogConfirmSetConfirmedMethodInfo ScriptDialog where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Structs.ScriptDialog.scriptDialogConfirmSetConfirmed",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Structs-ScriptDialog.html#v:scriptDialogConfirmSetConfirmed"
}
#endif
foreign import ccall "webkit_script_dialog_get_dialog_type" webkit_script_dialog_get_dialog_type ::
Ptr ScriptDialog ->
IO CUInt
scriptDialogGetDialogType ::
(B.CallStack.HasCallStack, MonadIO m) =>
ScriptDialog
-> m WebKit2.Enums.ScriptDialogType
scriptDialogGetDialogType :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ScriptDialog -> m ScriptDialogType
scriptDialogGetDialogType ScriptDialog
dialog = IO ScriptDialogType -> m ScriptDialogType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ScriptDialogType -> m ScriptDialogType)
-> IO ScriptDialogType -> m ScriptDialogType
forall a b. (a -> b) -> a -> b
$ do
Ptr ScriptDialog
dialog' <- ScriptDialog -> IO (Ptr ScriptDialog)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ScriptDialog
dialog
CUInt
result <- Ptr ScriptDialog -> IO CUInt
webkit_script_dialog_get_dialog_type Ptr ScriptDialog
dialog'
let result' :: ScriptDialogType
result' = (Int -> ScriptDialogType
forall a. Enum a => Int -> a
toEnum (Int -> ScriptDialogType)
-> (CUInt -> Int) -> CUInt -> ScriptDialogType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
ScriptDialog -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ScriptDialog
dialog
ScriptDialogType -> IO ScriptDialogType
forall (m :: * -> *) a. Monad m => a -> m a
return ScriptDialogType
result'
#if defined(ENABLE_OVERLOADING)
data ScriptDialogGetDialogTypeMethodInfo
instance (signature ~ (m WebKit2.Enums.ScriptDialogType), MonadIO m) => O.OverloadedMethod ScriptDialogGetDialogTypeMethodInfo ScriptDialog signature where
overloadedMethod = scriptDialogGetDialogType
instance O.OverloadedMethodInfo ScriptDialogGetDialogTypeMethodInfo ScriptDialog where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Structs.ScriptDialog.scriptDialogGetDialogType",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Structs-ScriptDialog.html#v:scriptDialogGetDialogType"
}
#endif
foreign import ccall "webkit_script_dialog_get_message" webkit_script_dialog_get_message ::
Ptr ScriptDialog ->
IO CString
scriptDialogGetMessage ::
(B.CallStack.HasCallStack, MonadIO m) =>
ScriptDialog
-> m T.Text
scriptDialogGetMessage :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ScriptDialog -> m Text
scriptDialogGetMessage ScriptDialog
dialog = IO Text -> m Text
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 ScriptDialog
dialog' <- ScriptDialog -> IO (Ptr ScriptDialog)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ScriptDialog
dialog
CString
result <- Ptr ScriptDialog -> IO CString
webkit_script_dialog_get_message Ptr ScriptDialog
dialog'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scriptDialogGetMessage" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
ScriptDialog -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ScriptDialog
dialog
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data ScriptDialogGetMessageMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod ScriptDialogGetMessageMethodInfo ScriptDialog signature where
overloadedMethod = scriptDialogGetMessage
instance O.OverloadedMethodInfo ScriptDialogGetMessageMethodInfo ScriptDialog where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Structs.ScriptDialog.scriptDialogGetMessage",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Structs-ScriptDialog.html#v:scriptDialogGetMessage"
}
#endif
foreign import ccall "webkit_script_dialog_prompt_get_default_text" webkit_script_dialog_prompt_get_default_text ::
Ptr ScriptDialog ->
IO CString
scriptDialogPromptGetDefaultText ::
(B.CallStack.HasCallStack, MonadIO m) =>
ScriptDialog
-> m T.Text
scriptDialogPromptGetDefaultText :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ScriptDialog -> m Text
scriptDialogPromptGetDefaultText ScriptDialog
dialog = IO Text -> m Text
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 ScriptDialog
dialog' <- ScriptDialog -> IO (Ptr ScriptDialog)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ScriptDialog
dialog
CString
result <- Ptr ScriptDialog -> IO CString
webkit_script_dialog_prompt_get_default_text Ptr ScriptDialog
dialog'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scriptDialogPromptGetDefaultText" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
ScriptDialog -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ScriptDialog
dialog
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data ScriptDialogPromptGetDefaultTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod ScriptDialogPromptGetDefaultTextMethodInfo ScriptDialog signature where
overloadedMethod = scriptDialogPromptGetDefaultText
instance O.OverloadedMethodInfo ScriptDialogPromptGetDefaultTextMethodInfo ScriptDialog where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Structs.ScriptDialog.scriptDialogPromptGetDefaultText",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Structs-ScriptDialog.html#v:scriptDialogPromptGetDefaultText"
}
#endif
foreign import ccall "webkit_script_dialog_prompt_set_text" webkit_script_dialog_prompt_set_text ::
Ptr ScriptDialog ->
CString ->
IO ()
scriptDialogPromptSetText ::
(B.CallStack.HasCallStack, MonadIO m) =>
ScriptDialog
-> T.Text
-> m ()
scriptDialogPromptSetText :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ScriptDialog -> Text -> m ()
scriptDialogPromptSetText ScriptDialog
dialog Text
text = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScriptDialog
dialog' <- ScriptDialog -> IO (Ptr ScriptDialog)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ScriptDialog
dialog
CString
text' <- Text -> IO CString
textToCString Text
text
Ptr ScriptDialog -> CString -> IO ()
webkit_script_dialog_prompt_set_text Ptr ScriptDialog
dialog' CString
text'
ScriptDialog -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ScriptDialog
dialog
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
text'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScriptDialogPromptSetTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => O.OverloadedMethod ScriptDialogPromptSetTextMethodInfo ScriptDialog signature where
overloadedMethod = scriptDialogPromptSetText
instance O.OverloadedMethodInfo ScriptDialogPromptSetTextMethodInfo ScriptDialog where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Structs.ScriptDialog.scriptDialogPromptSetText",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Structs-ScriptDialog.html#v:scriptDialogPromptSetText"
}
#endif
foreign import ccall "webkit_script_dialog_ref" webkit_script_dialog_ref ::
Ptr ScriptDialog ->
IO (Ptr ScriptDialog)
scriptDialogRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
ScriptDialog
-> m ScriptDialog
scriptDialogRef :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ScriptDialog -> m ScriptDialog
scriptDialogRef ScriptDialog
dialog = IO ScriptDialog -> m ScriptDialog
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ScriptDialog -> m ScriptDialog)
-> IO ScriptDialog -> m ScriptDialog
forall a b. (a -> b) -> a -> b
$ do
Ptr ScriptDialog
dialog' <- ScriptDialog -> IO (Ptr ScriptDialog)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ScriptDialog
dialog
Ptr ScriptDialog
result <- Ptr ScriptDialog -> IO (Ptr ScriptDialog)
webkit_script_dialog_ref Ptr ScriptDialog
dialog'
Text -> Ptr ScriptDialog -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scriptDialogRef" Ptr ScriptDialog
result
ScriptDialog
result' <- ((ManagedPtr ScriptDialog -> ScriptDialog)
-> Ptr ScriptDialog -> IO ScriptDialog
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr ScriptDialog -> ScriptDialog
ScriptDialog) Ptr ScriptDialog
result
ScriptDialog -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ScriptDialog
dialog
ScriptDialog -> IO ScriptDialog
forall (m :: * -> *) a. Monad m => a -> m a
return ScriptDialog
result'
#if defined(ENABLE_OVERLOADING)
data ScriptDialogRefMethodInfo
instance (signature ~ (m ScriptDialog), MonadIO m) => O.OverloadedMethod ScriptDialogRefMethodInfo ScriptDialog signature where
overloadedMethod = scriptDialogRef
instance O.OverloadedMethodInfo ScriptDialogRefMethodInfo ScriptDialog where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Structs.ScriptDialog.scriptDialogRef",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Structs-ScriptDialog.html#v:scriptDialogRef"
}
#endif
foreign import ccall "webkit_script_dialog_unref" webkit_script_dialog_unref ::
Ptr ScriptDialog ->
IO ()
scriptDialogUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
ScriptDialog
-> m ()
scriptDialogUnref :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ScriptDialog -> m ()
scriptDialogUnref ScriptDialog
dialog = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScriptDialog
dialog' <- ScriptDialog -> IO (Ptr ScriptDialog)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ScriptDialog
dialog
Ptr ScriptDialog -> IO ()
webkit_script_dialog_unref Ptr ScriptDialog
dialog'
ScriptDialog -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ScriptDialog
dialog
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScriptDialogUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod ScriptDialogUnrefMethodInfo ScriptDialog signature where
overloadedMethod = scriptDialogUnref
instance O.OverloadedMethodInfo ScriptDialogUnrefMethodInfo ScriptDialog where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Structs.ScriptDialog.scriptDialogUnref",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Structs-ScriptDialog.html#v:scriptDialogUnref"
}
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveScriptDialogMethod (t :: Symbol) (o :: *) :: * where
ResolveScriptDialogMethod "close" o = ScriptDialogCloseMethodInfo
ResolveScriptDialogMethod "confirmSetConfirmed" o = ScriptDialogConfirmSetConfirmedMethodInfo
ResolveScriptDialogMethod "promptGetDefaultText" o = ScriptDialogPromptGetDefaultTextMethodInfo
ResolveScriptDialogMethod "promptSetText" o = ScriptDialogPromptSetTextMethodInfo
ResolveScriptDialogMethod "ref" o = ScriptDialogRefMethodInfo
ResolveScriptDialogMethod "unref" o = ScriptDialogUnrefMethodInfo
ResolveScriptDialogMethod "getDialogType" o = ScriptDialogGetDialogTypeMethodInfo
ResolveScriptDialogMethod "getMessage" o = ScriptDialogGetMessageMethodInfo
ResolveScriptDialogMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveScriptDialogMethod t ScriptDialog, O.OverloadedMethod info ScriptDialog p) => OL.IsLabel t (ScriptDialog -> 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 ~ ResolveScriptDialogMethod t ScriptDialog, O.OverloadedMethod info ScriptDialog p, R.HasField t ScriptDialog p) => R.HasField t ScriptDialog p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveScriptDialogMethod t ScriptDialog, O.OverloadedMethodInfo info ScriptDialog) => OL.IsLabel t (O.MethodProxy info ScriptDialog) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif