module GI.WebKit2.Objects.PolicyDecision
(
PolicyDecision(..) ,
PolicyDecisionK ,
toPolicyDecision ,
noPolicyDecision ,
policyDecisionDownload ,
policyDecisionIgnore ,
policyDecisionUse ,
) 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.WebKit2.Types
import GI.WebKit2.Callbacks
import qualified GI.GObject as GObject
newtype PolicyDecision = PolicyDecision (ForeignPtr PolicyDecision)
foreign import ccall "webkit_policy_decision_get_type"
c_webkit_policy_decision_get_type :: IO GType
type instance ParentTypes PolicyDecision = PolicyDecisionParentTypes
type PolicyDecisionParentTypes = '[GObject.Object]
instance GObject PolicyDecision where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_policy_decision_get_type
class GObject o => PolicyDecisionK o
instance (GObject o, IsDescendantOf PolicyDecision o) => PolicyDecisionK o
toPolicyDecision :: PolicyDecisionK o => o -> IO PolicyDecision
toPolicyDecision = unsafeCastTo PolicyDecision
noPolicyDecision :: Maybe PolicyDecision
noPolicyDecision = Nothing
type instance AttributeList PolicyDecision = PolicyDecisionAttributeList
type PolicyDecisionAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList PolicyDecision = PolicyDecisionSignalList
type PolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_policy_decision_download" webkit_policy_decision_download ::
Ptr PolicyDecision ->
IO ()
policyDecisionDownload ::
(MonadIO m, PolicyDecisionK a) =>
a ->
m ()
policyDecisionDownload _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_policy_decision_download _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_policy_decision_ignore" webkit_policy_decision_ignore ::
Ptr PolicyDecision ->
IO ()
policyDecisionIgnore ::
(MonadIO m, PolicyDecisionK a) =>
a ->
m ()
policyDecisionIgnore _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_policy_decision_ignore _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_policy_decision_use" webkit_policy_decision_use ::
Ptr PolicyDecision ->
IO ()
policyDecisionUse ::
(MonadIO m, PolicyDecisionK a) =>
a ->
m ()
policyDecisionUse _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_policy_decision_use _obj'
touchManagedPtr _obj
return ()