#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Objects.AutomationSession
(
AutomationSession(..) ,
IsAutomationSession ,
toAutomationSession ,
noAutomationSession ,
#if ENABLE_OVERLOADING
AutomationSessionGetApplicationInfoMethodInfo,
#endif
automationSessionGetApplicationInfo ,
#if ENABLE_OVERLOADING
AutomationSessionGetIdMethodInfo ,
#endif
automationSessionGetId ,
#if ENABLE_OVERLOADING
AutomationSessionSetApplicationInfoMethodInfo,
#endif
automationSessionSetApplicationInfo ,
#if ENABLE_OVERLOADING
AutomationSessionIdPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
automationSessionId ,
#endif
constructAutomationSessionId ,
getAutomationSessionId ,
AutomationSessionCreateWebViewCallback ,
#if ENABLE_OVERLOADING
AutomationSessionCreateWebViewSignalInfo,
#endif
C_AutomationSessionCreateWebViewCallback,
afterAutomationSessionCreateWebView ,
genClosure_AutomationSessionCreateWebView,
mk_AutomationSessionCreateWebViewCallback,
noAutomationSessionCreateWebViewCallback,
onAutomationSessionCreateWebView ,
wrap_AutomationSessionCreateWebViewCallback,
) 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.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
import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebView as WebKit2.WebView
import {-# SOURCE #-} qualified GI.WebKit2.Structs.ApplicationInfo as WebKit2.ApplicationInfo
newtype AutomationSession = AutomationSession (ManagedPtr AutomationSession)
foreign import ccall "webkit_automation_session_get_type"
c_webkit_automation_session_get_type :: IO GType
instance GObject AutomationSession where
gobjectType = c_webkit_automation_session_get_type
class (GObject o, O.IsDescendantOf AutomationSession o) => IsAutomationSession o
instance (GObject o, O.IsDescendantOf AutomationSession o) => IsAutomationSession o
instance O.HasParentTypes AutomationSession
type instance O.ParentTypes AutomationSession = '[GObject.Object.Object]
toAutomationSession :: (MonadIO m, IsAutomationSession o) => o -> m AutomationSession
toAutomationSession = liftIO . unsafeCastTo AutomationSession
noAutomationSession :: Maybe AutomationSession
noAutomationSession = Nothing
#if ENABLE_OVERLOADING
type family ResolveAutomationSessionMethod (t :: Symbol) (o :: *) :: * where
ResolveAutomationSessionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAutomationSessionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAutomationSessionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAutomationSessionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAutomationSessionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveAutomationSessionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAutomationSessionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAutomationSessionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAutomationSessionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAutomationSessionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAutomationSessionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAutomationSessionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAutomationSessionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAutomationSessionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAutomationSessionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAutomationSessionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAutomationSessionMethod "getApplicationInfo" o = AutomationSessionGetApplicationInfoMethodInfo
ResolveAutomationSessionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAutomationSessionMethod "getId" o = AutomationSessionGetIdMethodInfo
ResolveAutomationSessionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAutomationSessionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAutomationSessionMethod "setApplicationInfo" o = AutomationSessionSetApplicationInfoMethodInfo
ResolveAutomationSessionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAutomationSessionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAutomationSessionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAutomationSessionMethod t AutomationSession, O.MethodInfo info AutomationSession p) => OL.IsLabel t (AutomationSession -> 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
type AutomationSessionCreateWebViewCallback =
IO WebKit2.WebView.WebView
noAutomationSessionCreateWebViewCallback :: Maybe AutomationSessionCreateWebViewCallback
noAutomationSessionCreateWebViewCallback = Nothing
type C_AutomationSessionCreateWebViewCallback =
Ptr () ->
Ptr () ->
IO (Ptr WebKit2.WebView.WebView)
foreign import ccall "wrapper"
mk_AutomationSessionCreateWebViewCallback :: C_AutomationSessionCreateWebViewCallback -> IO (FunPtr C_AutomationSessionCreateWebViewCallback)
genClosure_AutomationSessionCreateWebView :: MonadIO m => AutomationSessionCreateWebViewCallback -> m (GClosure C_AutomationSessionCreateWebViewCallback)
genClosure_AutomationSessionCreateWebView cb = liftIO $ do
let cb' = wrap_AutomationSessionCreateWebViewCallback cb
mk_AutomationSessionCreateWebViewCallback cb' >>= B.GClosure.newGClosure
wrap_AutomationSessionCreateWebViewCallback ::
AutomationSessionCreateWebViewCallback ->
C_AutomationSessionCreateWebViewCallback
wrap_AutomationSessionCreateWebViewCallback _cb _ _ = do
result <- _cb
result' <- unsafeManagedPtrCastPtr result
return result'
onAutomationSessionCreateWebView :: (IsAutomationSession a, MonadIO m) => a -> AutomationSessionCreateWebViewCallback -> m SignalHandlerId
onAutomationSessionCreateWebView obj cb = liftIO $ do
let cb' = wrap_AutomationSessionCreateWebViewCallback cb
cb'' <- mk_AutomationSessionCreateWebViewCallback cb'
connectSignalFunPtr obj "create-web-view" cb'' SignalConnectBefore
afterAutomationSessionCreateWebView :: (IsAutomationSession a, MonadIO m) => a -> AutomationSessionCreateWebViewCallback -> m SignalHandlerId
afterAutomationSessionCreateWebView obj cb = liftIO $ do
let cb' = wrap_AutomationSessionCreateWebViewCallback cb
cb'' <- mk_AutomationSessionCreateWebViewCallback cb'
connectSignalFunPtr obj "create-web-view" cb'' SignalConnectAfter
getAutomationSessionId :: (MonadIO m, IsAutomationSession o) => o -> m T.Text
getAutomationSessionId obj = liftIO $ checkUnexpectedNothing "getAutomationSessionId" $ B.Properties.getObjectPropertyString obj "id"
constructAutomationSessionId :: (IsAutomationSession o) => T.Text -> IO (GValueConstruct o)
constructAutomationSessionId val = B.Properties.constructObjectPropertyString "id" (Just val)
#if ENABLE_OVERLOADING
data AutomationSessionIdPropertyInfo
instance AttrInfo AutomationSessionIdPropertyInfo where
type AttrAllowedOps AutomationSessionIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint AutomationSessionIdPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint AutomationSessionIdPropertyInfo = IsAutomationSession
type AttrGetType AutomationSessionIdPropertyInfo = T.Text
type AttrLabel AutomationSessionIdPropertyInfo = "id"
type AttrOrigin AutomationSessionIdPropertyInfo = AutomationSession
attrGet _ = getAutomationSessionId
attrSet _ = undefined
attrConstruct _ = constructAutomationSessionId
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList AutomationSession
type instance O.AttributeList AutomationSession = AutomationSessionAttributeList
type AutomationSessionAttributeList = ('[ '("id", AutomationSessionIdPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
automationSessionId :: AttrLabelProxy "id"
automationSessionId = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
data AutomationSessionCreateWebViewSignalInfo
instance SignalInfo AutomationSessionCreateWebViewSignalInfo where
type HaskellCallbackType AutomationSessionCreateWebViewSignalInfo = AutomationSessionCreateWebViewCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_AutomationSessionCreateWebViewCallback cb
cb'' <- mk_AutomationSessionCreateWebViewCallback cb'
connectSignalFunPtr obj "create-web-view" cb'' connectMode
type instance O.SignalList AutomationSession = AutomationSessionSignalList
type AutomationSessionSignalList = ('[ '("createWebView", AutomationSessionCreateWebViewSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_automation_session_get_application_info" webkit_automation_session_get_application_info ::
Ptr AutomationSession ->
IO (Ptr WebKit2.ApplicationInfo.ApplicationInfo)
automationSessionGetApplicationInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsAutomationSession a) =>
a
-> m (Maybe WebKit2.ApplicationInfo.ApplicationInfo)
automationSessionGetApplicationInfo session = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
result <- webkit_automation_session_get_application_info session'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newBoxed WebKit2.ApplicationInfo.ApplicationInfo) result'
return result''
touchManagedPtr session
return maybeResult
#if ENABLE_OVERLOADING
data AutomationSessionGetApplicationInfoMethodInfo
instance (signature ~ (m (Maybe WebKit2.ApplicationInfo.ApplicationInfo)), MonadIO m, IsAutomationSession a) => O.MethodInfo AutomationSessionGetApplicationInfoMethodInfo a signature where
overloadedMethod _ = automationSessionGetApplicationInfo
#endif
foreign import ccall "webkit_automation_session_get_id" webkit_automation_session_get_id ::
Ptr AutomationSession ->
IO CString
automationSessionGetId ::
(B.CallStack.HasCallStack, MonadIO m, IsAutomationSession a) =>
a
-> m T.Text
automationSessionGetId session = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
result <- webkit_automation_session_get_id session'
checkUnexpectedReturnNULL "automationSessionGetId" result
result' <- cstringToText result
touchManagedPtr session
return result'
#if ENABLE_OVERLOADING
data AutomationSessionGetIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAutomationSession a) => O.MethodInfo AutomationSessionGetIdMethodInfo a signature where
overloadedMethod _ = automationSessionGetId
#endif
foreign import ccall "webkit_automation_session_set_application_info" webkit_automation_session_set_application_info ::
Ptr AutomationSession ->
Ptr WebKit2.ApplicationInfo.ApplicationInfo ->
IO ()
automationSessionSetApplicationInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsAutomationSession a) =>
a
-> WebKit2.ApplicationInfo.ApplicationInfo
-> m ()
automationSessionSetApplicationInfo session info = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
info' <- unsafeManagedPtrGetPtr info
webkit_automation_session_set_application_info session' info'
touchManagedPtr session
touchManagedPtr info
return ()
#if ENABLE_OVERLOADING
data AutomationSessionSetApplicationInfoMethodInfo
instance (signature ~ (WebKit2.ApplicationInfo.ApplicationInfo -> m ()), MonadIO m, IsAutomationSession a) => O.MethodInfo AutomationSessionSetApplicationInfoMethodInfo a signature where
overloadedMethod _ = automationSessionSetApplicationInfo
#endif