{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Structs.ScriptDialog
(
ScriptDialog(..) ,
noScriptDialog ,
#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.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 {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums
newtype ScriptDialog = ScriptDialog (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)
foreign import ccall "webkit_script_dialog_get_type" c_webkit_script_dialog_get_type ::
IO GType
instance BoxedObject ScriptDialog where
boxedType :: ScriptDialog -> IO GType
boxedType _ = IO GType
c_webkit_script_dialog_get_type
instance B.GValue.IsGValue ScriptDialog where
toGValue :: ScriptDialog -> IO GValue
toGValue o :: ScriptDialog
o = do
GType
gtype <- IO GType
c_webkit_script_dialog_get_type
ScriptDialog -> (Ptr ScriptDialog -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ScriptDialog
o (GType
-> (GValue -> Ptr ScriptDialog -> IO ())
-> Ptr ScriptDialog
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr ScriptDialog -> IO ()
forall a. GValue -> Ptr a -> IO ()
B.GValue.set_boxed)
fromGValue :: GValue -> IO ScriptDialog
fromGValue gv :: GValue
gv = do
Ptr ScriptDialog
ptr <- GValue -> IO (Ptr ScriptDialog)
forall b. GValue -> IO (Ptr b)
B.GValue.get_boxed GValue
gv :: IO (Ptr ScriptDialog)
(ManagedPtr ScriptDialog -> ScriptDialog)
-> Ptr ScriptDialog -> IO ScriptDialog
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr ScriptDialog -> ScriptDialog
ScriptDialog Ptr ScriptDialog
ptr
noScriptDialog :: Maybe ScriptDialog
noScriptDialog :: Maybe ScriptDialog
noScriptDialog = Maybe ScriptDialog
forall a. Maybe a
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 :: ScriptDialog -> m ()
scriptDialogClose dialog :: 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.MethodInfo ScriptDialogCloseMethodInfo ScriptDialog signature where
overloadedMethod = 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 :: ScriptDialog -> Bool -> m ()
scriptDialogConfirmSetConfirmed dialog :: ScriptDialog
dialog confirmed :: 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.MethodInfo ScriptDialogConfirmSetConfirmedMethodInfo ScriptDialog signature where
overloadedMethod = 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 :: ScriptDialog -> m ScriptDialogType
scriptDialogGetDialogType dialog :: 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.MethodInfo ScriptDialogGetDialogTypeMethodInfo ScriptDialog signature where
overloadedMethod = 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 :: ScriptDialog -> m Text
scriptDialogGetMessage dialog :: 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 "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.MethodInfo ScriptDialogGetMessageMethodInfo ScriptDialog signature where
overloadedMethod = 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 :: ScriptDialog -> m Text
scriptDialogPromptGetDefaultText dialog :: 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 "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.MethodInfo ScriptDialogPromptGetDefaultTextMethodInfo ScriptDialog signature where
overloadedMethod = 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 :: ScriptDialog -> Text -> m ()
scriptDialogPromptSetText dialog :: ScriptDialog
dialog text :: 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.MethodInfo ScriptDialogPromptSetTextMethodInfo ScriptDialog signature where
overloadedMethod = 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 :: ScriptDialog -> m ScriptDialog
scriptDialogRef dialog :: 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 "scriptDialogRef" Ptr ScriptDialog
result
ScriptDialog
result' <- ((ManagedPtr ScriptDialog -> ScriptDialog)
-> Ptr ScriptDialog -> IO ScriptDialog
forall a.
(HasCallStack, BoxedObject 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.MethodInfo ScriptDialogRefMethodInfo ScriptDialog signature where
overloadedMethod = 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 :: ScriptDialog -> m ()
scriptDialogUnref dialog :: 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.MethodInfo ScriptDialogUnrefMethodInfo ScriptDialog signature where
overloadedMethod = 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.MethodInfo 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
#endif