module GI.WebKit2.Objects.NavigationPolicyDecision
(
NavigationPolicyDecision(..) ,
NavigationPolicyDecisionK ,
toNavigationPolicyDecision ,
noNavigationPolicyDecision ,
navigationPolicyDecisionGetFrameName ,
navigationPolicyDecisionGetModifiers ,
navigationPolicyDecisionGetMouseButton ,
navigationPolicyDecisionGetNavigationAction,
navigationPolicyDecisionGetNavigationType,
navigationPolicyDecisionGetRequest ,
NavigationPolicyDecisionFrameNamePropertyInfo,
getNavigationPolicyDecisionFrameName ,
NavigationPolicyDecisionModifiersPropertyInfo,
getNavigationPolicyDecisionModifiers ,
NavigationPolicyDecisionMouseButtonPropertyInfo,
getNavigationPolicyDecisionMouseButton ,
NavigationPolicyDecisionNavigationActionPropertyInfo,
getNavigationPolicyDecisionNavigationAction,
NavigationPolicyDecisionNavigationTypePropertyInfo,
getNavigationPolicyDecisionNavigationType,
NavigationPolicyDecisionRequestPropertyInfo,
getNavigationPolicyDecisionRequest ,
) 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 NavigationPolicyDecision = NavigationPolicyDecision (ForeignPtr NavigationPolicyDecision)
foreign import ccall "webkit_navigation_policy_decision_get_type"
c_webkit_navigation_policy_decision_get_type :: IO GType
type instance ParentTypes NavigationPolicyDecision = NavigationPolicyDecisionParentTypes
type NavigationPolicyDecisionParentTypes = '[PolicyDecision, GObject.Object]
instance GObject NavigationPolicyDecision where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_navigation_policy_decision_get_type
class GObject o => NavigationPolicyDecisionK o
instance (GObject o, IsDescendantOf NavigationPolicyDecision o) => NavigationPolicyDecisionK o
toNavigationPolicyDecision :: NavigationPolicyDecisionK o => o -> IO NavigationPolicyDecision
toNavigationPolicyDecision = unsafeCastTo NavigationPolicyDecision
noNavigationPolicyDecision :: Maybe NavigationPolicyDecision
noNavigationPolicyDecision = Nothing
getNavigationPolicyDecisionFrameName :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m T.Text
getNavigationPolicyDecisionFrameName obj = liftIO $ getObjectPropertyString obj "frame-name"
data NavigationPolicyDecisionFrameNamePropertyInfo
instance AttrInfo NavigationPolicyDecisionFrameNamePropertyInfo where
type AttrAllowedOps NavigationPolicyDecisionFrameNamePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = (~) ()
type AttrBaseTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = NavigationPolicyDecisionK
type AttrGetType NavigationPolicyDecisionFrameNamePropertyInfo = T.Text
type AttrLabel NavigationPolicyDecisionFrameNamePropertyInfo = "NavigationPolicyDecision::frame-name"
attrGet _ = getNavigationPolicyDecisionFrameName
attrSet _ = undefined
attrConstruct _ = undefined
getNavigationPolicyDecisionModifiers :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m Word32
getNavigationPolicyDecisionModifiers obj = liftIO $ getObjectPropertyCUInt obj "modifiers"
data NavigationPolicyDecisionModifiersPropertyInfo
instance AttrInfo NavigationPolicyDecisionModifiersPropertyInfo where
type AttrAllowedOps NavigationPolicyDecisionModifiersPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint NavigationPolicyDecisionModifiersPropertyInfo = (~) ()
type AttrBaseTypeConstraint NavigationPolicyDecisionModifiersPropertyInfo = NavigationPolicyDecisionK
type AttrGetType NavigationPolicyDecisionModifiersPropertyInfo = Word32
type AttrLabel NavigationPolicyDecisionModifiersPropertyInfo = "NavigationPolicyDecision::modifiers"
attrGet _ = getNavigationPolicyDecisionModifiers
attrSet _ = undefined
attrConstruct _ = undefined
getNavigationPolicyDecisionMouseButton :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m Word32
getNavigationPolicyDecisionMouseButton obj = liftIO $ getObjectPropertyCUInt obj "mouse-button"
data NavigationPolicyDecisionMouseButtonPropertyInfo
instance AttrInfo NavigationPolicyDecisionMouseButtonPropertyInfo where
type AttrAllowedOps NavigationPolicyDecisionMouseButtonPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint NavigationPolicyDecisionMouseButtonPropertyInfo = (~) ()
type AttrBaseTypeConstraint NavigationPolicyDecisionMouseButtonPropertyInfo = NavigationPolicyDecisionK
type AttrGetType NavigationPolicyDecisionMouseButtonPropertyInfo = Word32
type AttrLabel NavigationPolicyDecisionMouseButtonPropertyInfo = "NavigationPolicyDecision::mouse-button"
attrGet _ = getNavigationPolicyDecisionMouseButton
attrSet _ = undefined
attrConstruct _ = undefined
getNavigationPolicyDecisionNavigationAction :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m NavigationAction
getNavigationPolicyDecisionNavigationAction obj = liftIO $ getObjectPropertyBoxed obj "navigation-action" NavigationAction
data NavigationPolicyDecisionNavigationActionPropertyInfo
instance AttrInfo NavigationPolicyDecisionNavigationActionPropertyInfo where
type AttrAllowedOps NavigationPolicyDecisionNavigationActionPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = (~) ()
type AttrBaseTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = NavigationPolicyDecisionK
type AttrGetType NavigationPolicyDecisionNavigationActionPropertyInfo = NavigationAction
type AttrLabel NavigationPolicyDecisionNavigationActionPropertyInfo = "NavigationPolicyDecision::navigation-action"
attrGet _ = getNavigationPolicyDecisionNavigationAction
attrSet _ = undefined
attrConstruct _ = undefined
getNavigationPolicyDecisionNavigationType :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m NavigationType
getNavigationPolicyDecisionNavigationType obj = liftIO $ getObjectPropertyEnum obj "navigation-type"
data NavigationPolicyDecisionNavigationTypePropertyInfo
instance AttrInfo NavigationPolicyDecisionNavigationTypePropertyInfo where
type AttrAllowedOps NavigationPolicyDecisionNavigationTypePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint NavigationPolicyDecisionNavigationTypePropertyInfo = (~) ()
type AttrBaseTypeConstraint NavigationPolicyDecisionNavigationTypePropertyInfo = NavigationPolicyDecisionK
type AttrGetType NavigationPolicyDecisionNavigationTypePropertyInfo = NavigationType
type AttrLabel NavigationPolicyDecisionNavigationTypePropertyInfo = "NavigationPolicyDecision::navigation-type"
attrGet _ = getNavigationPolicyDecisionNavigationType
attrSet _ = undefined
attrConstruct _ = undefined
getNavigationPolicyDecisionRequest :: (MonadIO m, NavigationPolicyDecisionK o) => o -> m URIRequest
getNavigationPolicyDecisionRequest obj = liftIO $ getObjectPropertyObject obj "request" URIRequest
data NavigationPolicyDecisionRequestPropertyInfo
instance AttrInfo NavigationPolicyDecisionRequestPropertyInfo where
type AttrAllowedOps NavigationPolicyDecisionRequestPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = (~) ()
type AttrBaseTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = NavigationPolicyDecisionK
type AttrGetType NavigationPolicyDecisionRequestPropertyInfo = URIRequest
type AttrLabel NavigationPolicyDecisionRequestPropertyInfo = "NavigationPolicyDecision::request"
attrGet _ = getNavigationPolicyDecisionRequest
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList NavigationPolicyDecision = NavigationPolicyDecisionAttributeList
type NavigationPolicyDecisionAttributeList = ('[ '("frame-name", NavigationPolicyDecisionFrameNamePropertyInfo), '("modifiers", NavigationPolicyDecisionModifiersPropertyInfo), '("mouse-button", NavigationPolicyDecisionMouseButtonPropertyInfo), '("navigation-action", NavigationPolicyDecisionNavigationActionPropertyInfo), '("navigation-type", NavigationPolicyDecisionNavigationTypePropertyInfo), '("request", NavigationPolicyDecisionRequestPropertyInfo)] :: [(Symbol, *)])
type instance SignalList NavigationPolicyDecision = NavigationPolicyDecisionSignalList
type NavigationPolicyDecisionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_navigation_policy_decision_get_frame_name" webkit_navigation_policy_decision_get_frame_name ::
Ptr NavigationPolicyDecision ->
IO CString
navigationPolicyDecisionGetFrameName ::
(MonadIO m, NavigationPolicyDecisionK a) =>
a ->
m T.Text
navigationPolicyDecisionGetFrameName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_navigation_policy_decision_get_frame_name _obj'
checkUnexpectedReturnNULL "webkit_navigation_policy_decision_get_frame_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_navigation_policy_decision_get_modifiers" webkit_navigation_policy_decision_get_modifiers ::
Ptr NavigationPolicyDecision ->
IO Word32
navigationPolicyDecisionGetModifiers ::
(MonadIO m, NavigationPolicyDecisionK a) =>
a ->
m Word32
navigationPolicyDecisionGetModifiers _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_navigation_policy_decision_get_modifiers _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_navigation_policy_decision_get_mouse_button" webkit_navigation_policy_decision_get_mouse_button ::
Ptr NavigationPolicyDecision ->
IO Word32
navigationPolicyDecisionGetMouseButton ::
(MonadIO m, NavigationPolicyDecisionK a) =>
a ->
m Word32
navigationPolicyDecisionGetMouseButton _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_navigation_policy_decision_get_mouse_button _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_navigation_policy_decision_get_navigation_action" webkit_navigation_policy_decision_get_navigation_action ::
Ptr NavigationPolicyDecision ->
IO (Ptr NavigationAction)
navigationPolicyDecisionGetNavigationAction ::
(MonadIO m, NavigationPolicyDecisionK a) =>
a ->
m NavigationAction
navigationPolicyDecisionGetNavigationAction _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_navigation_policy_decision_get_navigation_action _obj'
checkUnexpectedReturnNULL "webkit_navigation_policy_decision_get_navigation_action" result
result' <- (newBoxed NavigationAction) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_navigation_policy_decision_get_navigation_type" webkit_navigation_policy_decision_get_navigation_type ::
Ptr NavigationPolicyDecision ->
IO CUInt
navigationPolicyDecisionGetNavigationType ::
(MonadIO m, NavigationPolicyDecisionK a) =>
a ->
m NavigationType
navigationPolicyDecisionGetNavigationType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_navigation_policy_decision_get_navigation_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_navigation_policy_decision_get_request" webkit_navigation_policy_decision_get_request ::
Ptr NavigationPolicyDecision ->
IO (Ptr URIRequest)
navigationPolicyDecisionGetRequest ::
(MonadIO m, NavigationPolicyDecisionK a) =>
a ->
m URIRequest
navigationPolicyDecisionGetRequest _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_navigation_policy_decision_get_request _obj'
checkUnexpectedReturnNULL "webkit_navigation_policy_decision_get_request" result
result' <- (newObject URIRequest) result
touchManagedPtr _obj
return result'