module GI.Atk.Interfaces.HyperlinkImpl
(
HyperlinkImpl(..) ,
noHyperlinkImpl ,
HyperlinkImplK ,
hyperlinkImplGetHyperlink ,
) 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.Atk.Types
import GI.Atk.Callbacks
newtype HyperlinkImpl = HyperlinkImpl (ForeignPtr HyperlinkImpl)
noHyperlinkImpl :: Maybe HyperlinkImpl
noHyperlinkImpl = Nothing
type instance AttributeList HyperlinkImpl = HyperlinkImplAttributeList
type HyperlinkImplAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList HyperlinkImpl = HyperlinkImplSignalList
type HyperlinkImplSignalList = ('[ ] :: [(Symbol, *)])
class ForeignPtrNewtype a => HyperlinkImplK a
instance (ForeignPtrNewtype o, IsDescendantOf HyperlinkImpl o) => HyperlinkImplK o
type instance ParentTypes HyperlinkImpl = HyperlinkImplParentTypes
type HyperlinkImplParentTypes = '[]
foreign import ccall "atk_hyperlink_impl_get_hyperlink" atk_hyperlink_impl_get_hyperlink ::
Ptr HyperlinkImpl ->
IO (Ptr Hyperlink)
hyperlinkImplGetHyperlink ::
(MonadIO m, HyperlinkImplK a) =>
a ->
m Hyperlink
hyperlinkImplGetHyperlink _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- atk_hyperlink_impl_get_hyperlink _obj'
checkUnexpectedReturnNULL "atk_hyperlink_impl_get_hyperlink" result
result' <- (wrapObject Hyperlink) result
touchManagedPtr _obj
return result'