module GI.WebKit.Objects.WebNavigationAction
(
WebNavigationAction(..) ,
WebNavigationActionK ,
toWebNavigationAction ,
noWebNavigationAction ,
webNavigationActionGetButton ,
webNavigationActionGetModifierState ,
webNavigationActionGetOriginalUri ,
webNavigationActionGetReason ,
webNavigationActionGetTargetFrame ,
webNavigationActionSetOriginalUri ,
webNavigationActionSetReason ,
WebNavigationActionButtonPropertyInfo ,
constructWebNavigationActionButton ,
getWebNavigationActionButton ,
WebNavigationActionModifierStatePropertyInfo,
constructWebNavigationActionModifierState,
getWebNavigationActionModifierState ,
WebNavigationActionOriginalUriPropertyInfo,
constructWebNavigationActionOriginalUri ,
getWebNavigationActionOriginalUri ,
setWebNavigationActionOriginalUri ,
WebNavigationActionReasonPropertyInfo ,
constructWebNavigationActionReason ,
getWebNavigationActionReason ,
setWebNavigationActionReason ,
WebNavigationActionTargetFramePropertyInfo,
constructWebNavigationActionTargetFrame ,
getWebNavigationActionTargetFrame ,
) 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 WebNavigationAction = WebNavigationAction (ForeignPtr WebNavigationAction)
foreign import ccall "webkit_web_navigation_action_get_type"
c_webkit_web_navigation_action_get_type :: IO GType
type instance ParentTypes WebNavigationAction = WebNavigationActionParentTypes
type WebNavigationActionParentTypes = '[GObject.Object]
instance GObject WebNavigationAction where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_navigation_action_get_type
class GObject o => WebNavigationActionK o
instance (GObject o, IsDescendantOf WebNavigationAction o) => WebNavigationActionK o
toWebNavigationAction :: WebNavigationActionK o => o -> IO WebNavigationAction
toWebNavigationAction = unsafeCastTo WebNavigationAction
noWebNavigationAction :: Maybe WebNavigationAction
noWebNavigationAction = Nothing
getWebNavigationActionButton :: (MonadIO m, WebNavigationActionK o) => o -> m Int32
getWebNavigationActionButton obj = liftIO $ getObjectPropertyCInt obj "button"
constructWebNavigationActionButton :: Int32 -> IO ([Char], GValue)
constructWebNavigationActionButton val = constructObjectPropertyCInt "button" val
data WebNavigationActionButtonPropertyInfo
instance AttrInfo WebNavigationActionButtonPropertyInfo where
type AttrAllowedOps WebNavigationActionButtonPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WebNavigationActionButtonPropertyInfo = (~) Int32
type AttrBaseTypeConstraint WebNavigationActionButtonPropertyInfo = WebNavigationActionK
type AttrGetType WebNavigationActionButtonPropertyInfo = Int32
type AttrLabel WebNavigationActionButtonPropertyInfo = "WebNavigationAction::button"
attrGet _ = getWebNavigationActionButton
attrSet _ = undefined
attrConstruct _ = constructWebNavigationActionButton
getWebNavigationActionModifierState :: (MonadIO m, WebNavigationActionK o) => o -> m Int32
getWebNavigationActionModifierState obj = liftIO $ getObjectPropertyCInt obj "modifier-state"
constructWebNavigationActionModifierState :: Int32 -> IO ([Char], GValue)
constructWebNavigationActionModifierState val = constructObjectPropertyCInt "modifier-state" val
data WebNavigationActionModifierStatePropertyInfo
instance AttrInfo WebNavigationActionModifierStatePropertyInfo where
type AttrAllowedOps WebNavigationActionModifierStatePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WebNavigationActionModifierStatePropertyInfo = (~) Int32
type AttrBaseTypeConstraint WebNavigationActionModifierStatePropertyInfo = WebNavigationActionK
type AttrGetType WebNavigationActionModifierStatePropertyInfo = Int32
type AttrLabel WebNavigationActionModifierStatePropertyInfo = "WebNavigationAction::modifier-state"
attrGet _ = getWebNavigationActionModifierState
attrSet _ = undefined
attrConstruct _ = constructWebNavigationActionModifierState
getWebNavigationActionOriginalUri :: (MonadIO m, WebNavigationActionK o) => o -> m T.Text
getWebNavigationActionOriginalUri obj = liftIO $ getObjectPropertyString obj "original-uri"
setWebNavigationActionOriginalUri :: (MonadIO m, WebNavigationActionK o) => o -> T.Text -> m ()
setWebNavigationActionOriginalUri obj val = liftIO $ setObjectPropertyString obj "original-uri" val
constructWebNavigationActionOriginalUri :: T.Text -> IO ([Char], GValue)
constructWebNavigationActionOriginalUri val = constructObjectPropertyString "original-uri" val
data WebNavigationActionOriginalUriPropertyInfo
instance AttrInfo WebNavigationActionOriginalUriPropertyInfo where
type AttrAllowedOps WebNavigationActionOriginalUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WebNavigationActionOriginalUriPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint WebNavigationActionOriginalUriPropertyInfo = WebNavigationActionK
type AttrGetType WebNavigationActionOriginalUriPropertyInfo = T.Text
type AttrLabel WebNavigationActionOriginalUriPropertyInfo = "WebNavigationAction::original-uri"
attrGet _ = getWebNavigationActionOriginalUri
attrSet _ = setWebNavigationActionOriginalUri
attrConstruct _ = constructWebNavigationActionOriginalUri
getWebNavigationActionReason :: (MonadIO m, WebNavigationActionK o) => o -> m WebNavigationReason
getWebNavigationActionReason obj = liftIO $ getObjectPropertyEnum obj "reason"
setWebNavigationActionReason :: (MonadIO m, WebNavigationActionK o) => o -> WebNavigationReason -> m ()
setWebNavigationActionReason obj val = liftIO $ setObjectPropertyEnum obj "reason" val
constructWebNavigationActionReason :: WebNavigationReason -> IO ([Char], GValue)
constructWebNavigationActionReason val = constructObjectPropertyEnum "reason" val
data WebNavigationActionReasonPropertyInfo
instance AttrInfo WebNavigationActionReasonPropertyInfo where
type AttrAllowedOps WebNavigationActionReasonPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WebNavigationActionReasonPropertyInfo = (~) WebNavigationReason
type AttrBaseTypeConstraint WebNavigationActionReasonPropertyInfo = WebNavigationActionK
type AttrGetType WebNavigationActionReasonPropertyInfo = WebNavigationReason
type AttrLabel WebNavigationActionReasonPropertyInfo = "WebNavigationAction::reason"
attrGet _ = getWebNavigationActionReason
attrSet _ = setWebNavigationActionReason
attrConstruct _ = constructWebNavigationActionReason
getWebNavigationActionTargetFrame :: (MonadIO m, WebNavigationActionK o) => o -> m T.Text
getWebNavigationActionTargetFrame obj = liftIO $ getObjectPropertyString obj "target-frame"
constructWebNavigationActionTargetFrame :: T.Text -> IO ([Char], GValue)
constructWebNavigationActionTargetFrame val = constructObjectPropertyString "target-frame" val
data WebNavigationActionTargetFramePropertyInfo
instance AttrInfo WebNavigationActionTargetFramePropertyInfo where
type AttrAllowedOps WebNavigationActionTargetFramePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WebNavigationActionTargetFramePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint WebNavigationActionTargetFramePropertyInfo = WebNavigationActionK
type AttrGetType WebNavigationActionTargetFramePropertyInfo = T.Text
type AttrLabel WebNavigationActionTargetFramePropertyInfo = "WebNavigationAction::target-frame"
attrGet _ = getWebNavigationActionTargetFrame
attrSet _ = undefined
attrConstruct _ = constructWebNavigationActionTargetFrame
type instance AttributeList WebNavigationAction = WebNavigationActionAttributeList
type WebNavigationActionAttributeList = ('[ '("button", WebNavigationActionButtonPropertyInfo), '("modifier-state", WebNavigationActionModifierStatePropertyInfo), '("original-uri", WebNavigationActionOriginalUriPropertyInfo), '("reason", WebNavigationActionReasonPropertyInfo), '("target-frame", WebNavigationActionTargetFramePropertyInfo)] :: [(Symbol, *)])
type instance SignalList WebNavigationAction = WebNavigationActionSignalList
type WebNavigationActionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_web_navigation_action_get_button" webkit_web_navigation_action_get_button ::
Ptr WebNavigationAction ->
IO Int32
webNavigationActionGetButton ::
(MonadIO m, WebNavigationActionK a) =>
a ->
m Int32
webNavigationActionGetButton _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_navigation_action_get_button _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_web_navigation_action_get_modifier_state" webkit_web_navigation_action_get_modifier_state ::
Ptr WebNavigationAction ->
IO Int32
webNavigationActionGetModifierState ::
(MonadIO m, WebNavigationActionK a) =>
a ->
m Int32
webNavigationActionGetModifierState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_navigation_action_get_modifier_state _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_web_navigation_action_get_original_uri" webkit_web_navigation_action_get_original_uri ::
Ptr WebNavigationAction ->
IO CString
webNavigationActionGetOriginalUri ::
(MonadIO m, WebNavigationActionK a) =>
a ->
m T.Text
webNavigationActionGetOriginalUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_navigation_action_get_original_uri _obj'
checkUnexpectedReturnNULL "webkit_web_navigation_action_get_original_uri" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_navigation_action_get_reason" webkit_web_navigation_action_get_reason ::
Ptr WebNavigationAction ->
IO CUInt
webNavigationActionGetReason ::
(MonadIO m, WebNavigationActionK a) =>
a ->
m WebNavigationReason
webNavigationActionGetReason _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_navigation_action_get_reason _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_navigation_action_get_target_frame" webkit_web_navigation_action_get_target_frame ::
Ptr WebNavigationAction ->
IO CString
webNavigationActionGetTargetFrame ::
(MonadIO m, WebNavigationActionK a) =>
a ->
m T.Text
webNavigationActionGetTargetFrame _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_navigation_action_get_target_frame _obj'
checkUnexpectedReturnNULL "webkit_web_navigation_action_get_target_frame" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_navigation_action_set_original_uri" webkit_web_navigation_action_set_original_uri ::
Ptr WebNavigationAction ->
CString ->
IO ()
webNavigationActionSetOriginalUri ::
(MonadIO m, WebNavigationActionK a) =>
a ->
T.Text ->
m ()
webNavigationActionSetOriginalUri _obj originalUri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
originalUri' <- textToCString originalUri
webkit_web_navigation_action_set_original_uri _obj' originalUri'
touchManagedPtr _obj
freeMem originalUri'
return ()
foreign import ccall "webkit_web_navigation_action_set_reason" webkit_web_navigation_action_set_reason ::
Ptr WebNavigationAction ->
CUInt ->
IO ()
webNavigationActionSetReason ::
(MonadIO m, WebNavigationActionK a) =>
a ->
WebNavigationReason ->
m ()
webNavigationActionSetReason _obj reason = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let reason' = (fromIntegral . fromEnum) reason
webkit_web_navigation_action_set_reason _obj' reason'
touchManagedPtr _obj
return ()