module GI.WebKit.Objects.WebPolicyDecision
(
WebPolicyDecision(..) ,
WebPolicyDecisionK ,
toWebPolicyDecision ,
noWebPolicyDecision ,
webPolicyDecisionDownload ,
webPolicyDecisionIgnore ,
webPolicyDecisionUse ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GObject as GObject
newtype WebPolicyDecision = WebPolicyDecision (ForeignPtr WebPolicyDecision)
foreign import ccall "webkit_web_policy_decision_get_type"
c_webkit_web_policy_decision_get_type :: IO GType
type instance ParentTypes WebPolicyDecision = WebPolicyDecisionParentTypes
type WebPolicyDecisionParentTypes = '[GObject.Object]
instance GObject WebPolicyDecision where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_policy_decision_get_type
class GObject o => WebPolicyDecisionK o
instance (GObject o, IsDescendantOf WebPolicyDecision o) => WebPolicyDecisionK o
toWebPolicyDecision :: WebPolicyDecisionK o => o -> IO WebPolicyDecision
toWebPolicyDecision = unsafeCastTo WebPolicyDecision
noWebPolicyDecision :: Maybe WebPolicyDecision
noWebPolicyDecision = Nothing
type instance AttributeList WebPolicyDecision = WebPolicyDecisionAttributeList
type WebPolicyDecisionAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList WebPolicyDecision = WebPolicyDecisionSignalList
type WebPolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_web_policy_decision_download" webkit_web_policy_decision_download ::
Ptr WebPolicyDecision ->
IO ()
webPolicyDecisionDownload ::
(MonadIO m, WebPolicyDecisionK a) =>
a ->
m ()
webPolicyDecisionDownload _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_policy_decision_download _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_web_policy_decision_ignore" webkit_web_policy_decision_ignore ::
Ptr WebPolicyDecision ->
IO ()
webPolicyDecisionIgnore ::
(MonadIO m, WebPolicyDecisionK a) =>
a ->
m ()
webPolicyDecisionIgnore _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_policy_decision_ignore _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_web_policy_decision_use" webkit_web_policy_decision_use ::
Ptr WebPolicyDecision ->
IO ()
webPolicyDecisionUse ::
(MonadIO m, WebPolicyDecisionK a) =>
a ->
m ()
webPolicyDecisionUse _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_policy_decision_use _obj'
touchManagedPtr _obj
return ()