#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Structs.ScriptDialog
(
ScriptDialog(..) ,
noScriptDialog ,
#if ENABLE_OVERLOADING
ScriptDialogConfirmSetConfirmedMethodInfo,
#endif
scriptDialogConfirmSetConfirmed ,
#if ENABLE_OVERLOADING
ScriptDialogGetDialogTypeMethodInfo ,
#endif
scriptDialogGetDialogType ,
#if ENABLE_OVERLOADING
ScriptDialogGetMessageMethodInfo ,
#endif
scriptDialogGetMessage ,
#if ENABLE_OVERLOADING
ScriptDialogPromptGetDefaultTextMethodInfo,
#endif
scriptDialogPromptGetDefaultText ,
#if ENABLE_OVERLOADING
ScriptDialogPromptSetTextMethodInfo ,
#endif
scriptDialogPromptSetText ,
) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums
newtype ScriptDialog = ScriptDialog (ManagedPtr ScriptDialog)
foreign import ccall "webkit_script_dialog_get_type" c_webkit_script_dialog_get_type ::
IO GType
instance BoxedObject ScriptDialog where
boxedType _ = c_webkit_script_dialog_get_type
noScriptDialog :: Maybe ScriptDialog
noScriptDialog = Nothing
#if ENABLE_OVERLOADING
instance O.HasAttributeList ScriptDialog
type instance O.AttributeList ScriptDialog = ScriptDialogAttributeList
type ScriptDialogAttributeList = ('[ ] :: [(Symbol, *)])
#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 dialog confirmed = liftIO $ do
dialog' <- unsafeManagedPtrGetPtr dialog
let confirmed' = (fromIntegral . fromEnum) confirmed
webkit_script_dialog_confirm_set_confirmed dialog' confirmed'
touchManagedPtr dialog
return ()
#if 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 dialog = liftIO $ do
dialog' <- unsafeManagedPtrGetPtr dialog
result <- webkit_script_dialog_get_dialog_type dialog'
let result' = (toEnum . fromIntegral) result
touchManagedPtr dialog
return result'
#if 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 dialog = liftIO $ do
dialog' <- unsafeManagedPtrGetPtr dialog
result <- webkit_script_dialog_get_message dialog'
checkUnexpectedReturnNULL "scriptDialogGetMessage" result
result' <- cstringToText result
touchManagedPtr dialog
return result'
#if 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 dialog = liftIO $ do
dialog' <- unsafeManagedPtrGetPtr dialog
result <- webkit_script_dialog_prompt_get_default_text dialog'
checkUnexpectedReturnNULL "scriptDialogPromptGetDefaultText" result
result' <- cstringToText result
touchManagedPtr dialog
return result'
#if 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 dialog text = liftIO $ do
dialog' <- unsafeManagedPtrGetPtr dialog
text' <- textToCString text
webkit_script_dialog_prompt_set_text dialog' text'
touchManagedPtr dialog
freeMem text'
return ()
#if ENABLE_OVERLOADING
data ScriptDialogPromptSetTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => O.MethodInfo ScriptDialogPromptSetTextMethodInfo ScriptDialog signature where
overloadedMethod _ = scriptDialogPromptSetText
#endif
#if ENABLE_OVERLOADING
type family ResolveScriptDialogMethod (t :: Symbol) (o :: *) :: * where
ResolveScriptDialogMethod "confirmSetConfirmed" o = ScriptDialogConfirmSetConfirmedMethodInfo
ResolveScriptDialogMethod "promptGetDefaultText" o = ScriptDialogPromptGetDefaultTextMethodInfo
ResolveScriptDialogMethod "promptSetText" o = ScriptDialogPromptSetTextMethodInfo
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) => O.IsLabelProxy t (ScriptDialog -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveScriptDialogMethod t ScriptDialog, O.MethodInfo info ScriptDialog p) => O.IsLabel t (ScriptDialog -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif