#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Atk.Interfaces.Document
(
Document(..) ,
noDocument ,
IsDocument ,
toDocument ,
#if ENABLE_OVERLOADING
DocumentGetAttributeValueMethodInfo ,
#endif
documentGetAttributeValue ,
#if ENABLE_OVERLOADING
DocumentGetAttributesMethodInfo ,
#endif
documentGetAttributes ,
#if ENABLE_OVERLOADING
DocumentGetCurrentPageNumberMethodInfo ,
#endif
documentGetCurrentPageNumber ,
#if ENABLE_OVERLOADING
DocumentGetDocumentMethodInfo ,
#endif
documentGetDocument ,
#if ENABLE_OVERLOADING
DocumentGetDocumentTypeMethodInfo ,
#endif
documentGetDocumentType ,
#if ENABLE_OVERLOADING
DocumentGetLocaleMethodInfo ,
#endif
documentGetLocale ,
#if ENABLE_OVERLOADING
DocumentGetPageCountMethodInfo ,
#endif
documentGetPageCount ,
#if ENABLE_OVERLOADING
DocumentSetAttributeValueMethodInfo ,
#endif
documentSetAttributeValue ,
C_DocumentLoadCompleteCallback ,
DocumentLoadCompleteCallback ,
#if ENABLE_OVERLOADING
DocumentLoadCompleteSignalInfo ,
#endif
afterDocumentLoadComplete ,
genClosure_DocumentLoadComplete ,
mk_DocumentLoadCompleteCallback ,
noDocumentLoadCompleteCallback ,
onDocumentLoadComplete ,
wrap_DocumentLoadCompleteCallback ,
C_DocumentLoadStoppedCallback ,
DocumentLoadStoppedCallback ,
#if ENABLE_OVERLOADING
DocumentLoadStoppedSignalInfo ,
#endif
afterDocumentLoadStopped ,
genClosure_DocumentLoadStopped ,
mk_DocumentLoadStoppedCallback ,
noDocumentLoadStoppedCallback ,
onDocumentLoadStopped ,
wrap_DocumentLoadStoppedCallback ,
C_DocumentPageChangedCallback ,
DocumentPageChangedCallback ,
#if ENABLE_OVERLOADING
DocumentPageChangedSignalInfo ,
#endif
afterDocumentPageChanged ,
genClosure_DocumentPageChanged ,
mk_DocumentPageChangedCallback ,
noDocumentPageChangedCallback ,
onDocumentPageChanged ,
wrap_DocumentPageChangedCallback ,
C_DocumentReloadCallback ,
DocumentReloadCallback ,
#if ENABLE_OVERLOADING
DocumentReloadSignalInfo ,
#endif
afterDocumentReload ,
genClosure_DocumentReload ,
mk_DocumentReloadCallback ,
noDocumentReloadCallback ,
onDocumentReload ,
wrap_DocumentReloadCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
newtype Document = Document (ManagedPtr Document)
noDocument :: Maybe Document
noDocument :: Maybe Document
noDocument = Maybe Document
forall a. Maybe a
Nothing
type DocumentLoadCompleteCallback =
IO ()
noDocumentLoadCompleteCallback :: Maybe DocumentLoadCompleteCallback
noDocumentLoadCompleteCallback :: Maybe DocumentLoadCompleteCallback
noDocumentLoadCompleteCallback = Maybe DocumentLoadCompleteCallback
forall a. Maybe a
Nothing
type C_DocumentLoadCompleteCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_DocumentLoadCompleteCallback :: C_DocumentLoadCompleteCallback -> IO (FunPtr C_DocumentLoadCompleteCallback)
genClosure_DocumentLoadComplete :: DocumentLoadCompleteCallback -> IO Closure
genClosure_DocumentLoadComplete :: DocumentLoadCompleteCallback -> IO Closure
genClosure_DocumentLoadComplete cb :: DocumentLoadCompleteCallback
cb = do
let cb' :: C_DocumentLoadCompleteCallback
cb' = DocumentLoadCompleteCallback -> C_DocumentLoadCompleteCallback
wrap_DocumentLoadCompleteCallback DocumentLoadCompleteCallback
cb
C_DocumentLoadCompleteCallback
-> IO (FunPtr C_DocumentLoadCompleteCallback)
mk_DocumentLoadCompleteCallback C_DocumentLoadCompleteCallback
cb' IO (FunPtr C_DocumentLoadCompleteCallback)
-> (FunPtr C_DocumentLoadCompleteCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_DocumentLoadCompleteCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_DocumentLoadCompleteCallback ::
DocumentLoadCompleteCallback ->
C_DocumentLoadCompleteCallback
wrap_DocumentLoadCompleteCallback :: DocumentLoadCompleteCallback -> C_DocumentLoadCompleteCallback
wrap_DocumentLoadCompleteCallback _cb :: DocumentLoadCompleteCallback
_cb _ _ = do
DocumentLoadCompleteCallback
_cb
onDocumentLoadComplete :: (IsDocument a, MonadIO m) => a -> DocumentLoadCompleteCallback -> m SignalHandlerId
onDocumentLoadComplete :: a -> DocumentLoadCompleteCallback -> m SignalHandlerId
onDocumentLoadComplete obj :: a
obj cb :: DocumentLoadCompleteCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_DocumentLoadCompleteCallback
cb' = DocumentLoadCompleteCallback -> C_DocumentLoadCompleteCallback
wrap_DocumentLoadCompleteCallback DocumentLoadCompleteCallback
cb
FunPtr C_DocumentLoadCompleteCallback
cb'' <- C_DocumentLoadCompleteCallback
-> IO (FunPtr C_DocumentLoadCompleteCallback)
mk_DocumentLoadCompleteCallback C_DocumentLoadCompleteCallback
cb'
a
-> String
-> FunPtr C_DocumentLoadCompleteCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "load-complete" FunPtr C_DocumentLoadCompleteCallback
cb'' SignalConnectMode
SignalConnectBefore
afterDocumentLoadComplete :: (IsDocument a, MonadIO m) => a -> DocumentLoadCompleteCallback -> m SignalHandlerId
afterDocumentLoadComplete :: a -> DocumentLoadCompleteCallback -> m SignalHandlerId
afterDocumentLoadComplete obj :: a
obj cb :: DocumentLoadCompleteCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_DocumentLoadCompleteCallback
cb' = DocumentLoadCompleteCallback -> C_DocumentLoadCompleteCallback
wrap_DocumentLoadCompleteCallback DocumentLoadCompleteCallback
cb
FunPtr C_DocumentLoadCompleteCallback
cb'' <- C_DocumentLoadCompleteCallback
-> IO (FunPtr C_DocumentLoadCompleteCallback)
mk_DocumentLoadCompleteCallback C_DocumentLoadCompleteCallback
cb'
a
-> String
-> FunPtr C_DocumentLoadCompleteCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "load-complete" FunPtr C_DocumentLoadCompleteCallback
cb'' SignalConnectMode
SignalConnectAfter
type DocumentLoadStoppedCallback =
IO ()
noDocumentLoadStoppedCallback :: Maybe DocumentLoadStoppedCallback
noDocumentLoadStoppedCallback :: Maybe DocumentLoadCompleteCallback
noDocumentLoadStoppedCallback = Maybe DocumentLoadCompleteCallback
forall a. Maybe a
Nothing
type C_DocumentLoadStoppedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_DocumentLoadStoppedCallback :: C_DocumentLoadStoppedCallback -> IO (FunPtr C_DocumentLoadStoppedCallback)
genClosure_DocumentLoadStopped :: DocumentLoadStoppedCallback -> IO Closure
genClosure_DocumentLoadStopped :: DocumentLoadCompleteCallback -> IO Closure
genClosure_DocumentLoadStopped cb :: DocumentLoadCompleteCallback
cb = do
let cb' :: C_DocumentLoadCompleteCallback
cb' = DocumentLoadCompleteCallback -> C_DocumentLoadCompleteCallback
wrap_DocumentLoadStoppedCallback DocumentLoadCompleteCallback
cb
C_DocumentLoadCompleteCallback
-> IO (FunPtr C_DocumentLoadCompleteCallback)
mk_DocumentLoadStoppedCallback C_DocumentLoadCompleteCallback
cb' IO (FunPtr C_DocumentLoadCompleteCallback)
-> (FunPtr C_DocumentLoadCompleteCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_DocumentLoadCompleteCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_DocumentLoadStoppedCallback ::
DocumentLoadStoppedCallback ->
C_DocumentLoadStoppedCallback
wrap_DocumentLoadStoppedCallback :: DocumentLoadCompleteCallback -> C_DocumentLoadCompleteCallback
wrap_DocumentLoadStoppedCallback _cb :: DocumentLoadCompleteCallback
_cb _ _ = do
DocumentLoadCompleteCallback
_cb
onDocumentLoadStopped :: (IsDocument a, MonadIO m) => a -> DocumentLoadStoppedCallback -> m SignalHandlerId
onDocumentLoadStopped :: a -> DocumentLoadCompleteCallback -> m SignalHandlerId
onDocumentLoadStopped obj :: a
obj cb :: DocumentLoadCompleteCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_DocumentLoadCompleteCallback
cb' = DocumentLoadCompleteCallback -> C_DocumentLoadCompleteCallback
wrap_DocumentLoadStoppedCallback DocumentLoadCompleteCallback
cb
FunPtr C_DocumentLoadCompleteCallback
cb'' <- C_DocumentLoadCompleteCallback
-> IO (FunPtr C_DocumentLoadCompleteCallback)
mk_DocumentLoadStoppedCallback C_DocumentLoadCompleteCallback
cb'
a
-> String
-> FunPtr C_DocumentLoadCompleteCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "load-stopped" FunPtr C_DocumentLoadCompleteCallback
cb'' SignalConnectMode
SignalConnectBefore
afterDocumentLoadStopped :: (IsDocument a, MonadIO m) => a -> DocumentLoadStoppedCallback -> m SignalHandlerId
afterDocumentLoadStopped :: a -> DocumentLoadCompleteCallback -> m SignalHandlerId
afterDocumentLoadStopped obj :: a
obj cb :: DocumentLoadCompleteCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_DocumentLoadCompleteCallback
cb' = DocumentLoadCompleteCallback -> C_DocumentLoadCompleteCallback
wrap_DocumentLoadStoppedCallback DocumentLoadCompleteCallback
cb
FunPtr C_DocumentLoadCompleteCallback
cb'' <- C_DocumentLoadCompleteCallback
-> IO (FunPtr C_DocumentLoadCompleteCallback)
mk_DocumentLoadStoppedCallback C_DocumentLoadCompleteCallback
cb'
a
-> String
-> FunPtr C_DocumentLoadCompleteCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "load-stopped" FunPtr C_DocumentLoadCompleteCallback
cb'' SignalConnectMode
SignalConnectAfter
type DocumentPageChangedCallback =
Int32
-> IO ()
noDocumentPageChangedCallback :: Maybe DocumentPageChangedCallback
noDocumentPageChangedCallback :: Maybe DocumentPageChangedCallback
noDocumentPageChangedCallback = Maybe DocumentPageChangedCallback
forall a. Maybe a
Nothing
type C_DocumentPageChangedCallback =
Ptr () ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_DocumentPageChangedCallback :: C_DocumentPageChangedCallback -> IO (FunPtr C_DocumentPageChangedCallback)
genClosure_DocumentPageChanged :: DocumentPageChangedCallback -> IO Closure
genClosure_DocumentPageChanged :: DocumentPageChangedCallback -> IO Closure
genClosure_DocumentPageChanged cb :: DocumentPageChangedCallback
cb = do
let cb' :: C_DocumentPageChangedCallback
cb' = DocumentPageChangedCallback -> C_DocumentPageChangedCallback
wrap_DocumentPageChangedCallback DocumentPageChangedCallback
cb
C_DocumentPageChangedCallback
-> IO (FunPtr C_DocumentPageChangedCallback)
mk_DocumentPageChangedCallback C_DocumentPageChangedCallback
cb' IO (FunPtr C_DocumentPageChangedCallback)
-> (FunPtr C_DocumentPageChangedCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_DocumentPageChangedCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_DocumentPageChangedCallback ::
DocumentPageChangedCallback ->
C_DocumentPageChangedCallback
wrap_DocumentPageChangedCallback :: DocumentPageChangedCallback -> C_DocumentPageChangedCallback
wrap_DocumentPageChangedCallback _cb :: DocumentPageChangedCallback
_cb _ pageNumber :: Int32
pageNumber _ = do
DocumentPageChangedCallback
_cb Int32
pageNumber
onDocumentPageChanged :: (IsDocument a, MonadIO m) => a -> DocumentPageChangedCallback -> m SignalHandlerId
onDocumentPageChanged :: a -> DocumentPageChangedCallback -> m SignalHandlerId
onDocumentPageChanged obj :: a
obj cb :: DocumentPageChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_DocumentPageChangedCallback
cb' = DocumentPageChangedCallback -> C_DocumentPageChangedCallback
wrap_DocumentPageChangedCallback DocumentPageChangedCallback
cb
FunPtr C_DocumentPageChangedCallback
cb'' <- C_DocumentPageChangedCallback
-> IO (FunPtr C_DocumentPageChangedCallback)
mk_DocumentPageChangedCallback C_DocumentPageChangedCallback
cb'
a
-> String
-> FunPtr C_DocumentPageChangedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "page-changed" FunPtr C_DocumentPageChangedCallback
cb'' SignalConnectMode
SignalConnectBefore
afterDocumentPageChanged :: (IsDocument a, MonadIO m) => a -> DocumentPageChangedCallback -> m SignalHandlerId
afterDocumentPageChanged :: a -> DocumentPageChangedCallback -> m SignalHandlerId
afterDocumentPageChanged obj :: a
obj cb :: DocumentPageChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_DocumentPageChangedCallback
cb' = DocumentPageChangedCallback -> C_DocumentPageChangedCallback
wrap_DocumentPageChangedCallback DocumentPageChangedCallback
cb
FunPtr C_DocumentPageChangedCallback
cb'' <- C_DocumentPageChangedCallback
-> IO (FunPtr C_DocumentPageChangedCallback)
mk_DocumentPageChangedCallback C_DocumentPageChangedCallback
cb'
a
-> String
-> FunPtr C_DocumentPageChangedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "page-changed" FunPtr C_DocumentPageChangedCallback
cb'' SignalConnectMode
SignalConnectAfter
type DocumentReloadCallback =
IO ()
noDocumentReloadCallback :: Maybe DocumentReloadCallback
noDocumentReloadCallback :: Maybe DocumentLoadCompleteCallback
noDocumentReloadCallback = Maybe DocumentLoadCompleteCallback
forall a. Maybe a
Nothing
type C_DocumentReloadCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_DocumentReloadCallback :: C_DocumentReloadCallback -> IO (FunPtr C_DocumentReloadCallback)
genClosure_DocumentReload :: DocumentReloadCallback -> IO Closure
genClosure_DocumentReload :: DocumentLoadCompleteCallback -> IO Closure
genClosure_DocumentReload cb :: DocumentLoadCompleteCallback
cb = do
let cb' :: C_DocumentLoadCompleteCallback
cb' = DocumentLoadCompleteCallback -> C_DocumentLoadCompleteCallback
wrap_DocumentReloadCallback DocumentLoadCompleteCallback
cb
C_DocumentLoadCompleteCallback
-> IO (FunPtr C_DocumentLoadCompleteCallback)
mk_DocumentReloadCallback C_DocumentLoadCompleteCallback
cb' IO (FunPtr C_DocumentLoadCompleteCallback)
-> (FunPtr C_DocumentLoadCompleteCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_DocumentLoadCompleteCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_DocumentReloadCallback ::
DocumentReloadCallback ->
C_DocumentReloadCallback
wrap_DocumentReloadCallback :: DocumentLoadCompleteCallback -> C_DocumentLoadCompleteCallback
wrap_DocumentReloadCallback _cb :: DocumentLoadCompleteCallback
_cb _ _ = do
DocumentLoadCompleteCallback
_cb
onDocumentReload :: (IsDocument a, MonadIO m) => a -> DocumentReloadCallback -> m SignalHandlerId
onDocumentReload :: a -> DocumentLoadCompleteCallback -> m SignalHandlerId
onDocumentReload obj :: a
obj cb :: DocumentLoadCompleteCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_DocumentLoadCompleteCallback
cb' = DocumentLoadCompleteCallback -> C_DocumentLoadCompleteCallback
wrap_DocumentReloadCallback DocumentLoadCompleteCallback
cb
FunPtr C_DocumentLoadCompleteCallback
cb'' <- C_DocumentLoadCompleteCallback
-> IO (FunPtr C_DocumentLoadCompleteCallback)
mk_DocumentReloadCallback C_DocumentLoadCompleteCallback
cb'
a
-> String
-> FunPtr C_DocumentLoadCompleteCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "reload" FunPtr C_DocumentLoadCompleteCallback
cb'' SignalConnectMode
SignalConnectBefore
afterDocumentReload :: (IsDocument a, MonadIO m) => a -> DocumentReloadCallback -> m SignalHandlerId
afterDocumentReload :: a -> DocumentLoadCompleteCallback -> m SignalHandlerId
afterDocumentReload obj :: a
obj cb :: DocumentLoadCompleteCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_DocumentLoadCompleteCallback
cb' = DocumentLoadCompleteCallback -> C_DocumentLoadCompleteCallback
wrap_DocumentReloadCallback DocumentLoadCompleteCallback
cb
FunPtr C_DocumentLoadCompleteCallback
cb'' <- C_DocumentLoadCompleteCallback
-> IO (FunPtr C_DocumentLoadCompleteCallback)
mk_DocumentReloadCallback C_DocumentLoadCompleteCallback
cb'
a
-> String
-> FunPtr C_DocumentLoadCompleteCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "reload" FunPtr C_DocumentLoadCompleteCallback
cb'' SignalConnectMode
SignalConnectAfter
#if ENABLE_OVERLOADING
data DocumentLoadCompleteSignalInfo
instance SignalInfo DocumentLoadCompleteSignalInfo where
type HaskellCallbackType DocumentLoadCompleteSignalInfo = DocumentLoadCompleteCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_DocumentLoadCompleteCallback cb
cb'' <- mk_DocumentLoadCompleteCallback cb'
connectSignalFunPtr obj "load-complete" cb'' connectMode
data DocumentLoadStoppedSignalInfo
instance SignalInfo DocumentLoadStoppedSignalInfo where
type HaskellCallbackType DocumentLoadStoppedSignalInfo = DocumentLoadStoppedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_DocumentLoadStoppedCallback cb
cb'' <- mk_DocumentLoadStoppedCallback cb'
connectSignalFunPtr obj "load-stopped" cb'' connectMode
data DocumentPageChangedSignalInfo
instance SignalInfo DocumentPageChangedSignalInfo where
type HaskellCallbackType DocumentPageChangedSignalInfo = DocumentPageChangedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_DocumentPageChangedCallback cb
cb'' <- mk_DocumentPageChangedCallback cb'
connectSignalFunPtr obj "page-changed" cb'' connectMode
data DocumentReloadSignalInfo
instance SignalInfo DocumentReloadSignalInfo where
type HaskellCallbackType DocumentReloadSignalInfo = DocumentReloadCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_DocumentReloadCallback cb
cb'' <- mk_DocumentReloadCallback cb'
connectSignalFunPtr obj "reload" cb'' connectMode
type instance O.SignalList Document = DocumentSignalList
type DocumentSignalList = ('[ '("loadComplete", DocumentLoadCompleteSignalInfo), '("loadStopped", DocumentLoadStoppedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("pageChanged", DocumentPageChangedSignalInfo), '("reload", DocumentReloadSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "atk_document_get_type"
c_atk_document_get_type :: IO GType
instance GObject Document where
gobjectType :: Document -> IO GType
gobjectType _ = IO GType
c_atk_document_get_type
class GObject o => IsDocument o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError Document a) =>
IsDocument a
#endif
instance IsDocument Document
instance GObject.Object.IsObject Document
toDocument :: (MonadIO m, IsDocument o) => o -> m Document
toDocument :: o -> m Document
toDocument = IO Document -> m Document
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Document -> m Document)
-> (o -> IO Document) -> o -> m Document
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Document -> Document) -> o -> IO Document
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Document -> Document
Document
#if ENABLE_OVERLOADING
instance O.HasAttributeList Document
type instance O.AttributeList Document = DocumentAttributeList
type DocumentAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type family ResolveDocumentMethod (t :: Symbol) (o :: *) :: * where
ResolveDocumentMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDocumentMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDocumentMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDocumentMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDocumentMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDocumentMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDocumentMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDocumentMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDocumentMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDocumentMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDocumentMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDocumentMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDocumentMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDocumentMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDocumentMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDocumentMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDocumentMethod "getAttributeValue" o = DocumentGetAttributeValueMethodInfo
ResolveDocumentMethod "getAttributes" o = DocumentGetAttributesMethodInfo
ResolveDocumentMethod "getCurrentPageNumber" o = DocumentGetCurrentPageNumberMethodInfo
ResolveDocumentMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDocumentMethod "getDocument" o = DocumentGetDocumentMethodInfo
ResolveDocumentMethod "getDocumentType" o = DocumentGetDocumentTypeMethodInfo
ResolveDocumentMethod "getLocale" o = DocumentGetLocaleMethodInfo
ResolveDocumentMethod "getPageCount" o = DocumentGetPageCountMethodInfo
ResolveDocumentMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDocumentMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDocumentMethod "setAttributeValue" o = DocumentSetAttributeValueMethodInfo
ResolveDocumentMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDocumentMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDocumentMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDocumentMethod t Document, O.MethodInfo info Document p) => O.IsLabelProxy t (Document -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDocumentMethod t Document, O.MethodInfo info Document p) => O.IsLabel t (Document -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
foreign import ccall "atk_document_get_attribute_value" atk_document_get_attribute_value ::
Ptr Document ->
CString ->
IO CString
documentGetAttributeValue ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> T.Text
-> m (Maybe T.Text)
documentGetAttributeValue :: a -> Text -> m (Maybe Text)
documentGetAttributeValue document :: a
document attributeName :: Text
attributeName = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CString
attributeName' <- Text -> IO CString
textToCString Text
attributeName
CString
result <- Ptr Document -> CString -> IO CString
atk_document_get_attribute_value Ptr Document
document' CString
attributeName'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> DocumentLoadCompleteCallback
forall a. ManagedPtrNewtype a => a -> DocumentLoadCompleteCallback
touchManagedPtr a
document
CString -> DocumentLoadCompleteCallback
forall a. Ptr a -> DocumentLoadCompleteCallback
freeMem CString
attributeName'
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if ENABLE_OVERLOADING
data DocumentGetAttributeValueMethodInfo
instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m, IsDocument a) => O.MethodInfo DocumentGetAttributeValueMethodInfo a signature where
overloadedMethod _ = documentGetAttributeValue
#endif
foreign import ccall "atk_document_get_attributes" atk_document_get_attributes ::
Ptr Document ->
IO (Ptr (GSList (Ptr ())))
documentGetAttributes ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m ([Ptr ()])
documentGetAttributes :: a -> m [Ptr ()]
documentGetAttributes document :: a
document = IO [Ptr ()] -> m [Ptr ()]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Ptr ()] -> m [Ptr ()]) -> IO [Ptr ()] -> m [Ptr ()]
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr (GSList (Ptr ()))
result <- Ptr Document -> IO (Ptr (GSList (Ptr ())))
atk_document_get_attributes Ptr Document
document'
[Ptr ()]
result' <- Ptr (GSList (Ptr ())) -> IO [Ptr ()]
forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr ()))
result
a -> DocumentLoadCompleteCallback
forall a. ManagedPtrNewtype a => a -> DocumentLoadCompleteCallback
touchManagedPtr a
document
[Ptr ()] -> IO [Ptr ()]
forall (m :: * -> *) a. Monad m => a -> m a
return [Ptr ()]
result'
#if ENABLE_OVERLOADING
data DocumentGetAttributesMethodInfo
instance (signature ~ (m ([Ptr ()])), MonadIO m, IsDocument a) => O.MethodInfo DocumentGetAttributesMethodInfo a signature where
overloadedMethod _ = documentGetAttributes
#endif
foreign import ccall "atk_document_get_current_page_number" atk_document_get_current_page_number ::
Ptr Document ->
IO Int32
documentGetCurrentPageNumber ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m Int32
documentGetCurrentPageNumber :: a -> m Int32
documentGetCurrentPageNumber document :: a
document = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Int32
result <- Ptr Document -> IO Int32
atk_document_get_current_page_number Ptr Document
document'
a -> DocumentLoadCompleteCallback
forall a. ManagedPtrNewtype a => a -> DocumentLoadCompleteCallback
touchManagedPtr a
document
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data DocumentGetCurrentPageNumberMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsDocument a) => O.MethodInfo DocumentGetCurrentPageNumberMethodInfo a signature where
overloadedMethod _ = documentGetCurrentPageNumber
#endif
foreign import ccall "atk_document_get_document" atk_document_get_document ::
Ptr Document ->
IO (Ptr ())
{-# DEPRECATED documentGetDocument ["Since 2.12. /@document@/ is already a representation of","the document. Use it directly, or one of its children, as an","instance of the DOM."] #-}
documentGetDocument ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m (Ptr ())
documentGetDocument :: a -> m (Ptr ())
documentGetDocument document :: a
document = IO (Ptr ()) -> m (Ptr ())
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr ()
result <- Ptr Document -> IO (Ptr ())
atk_document_get_document Ptr Document
document'
a -> DocumentLoadCompleteCallback
forall a. ManagedPtrNewtype a => a -> DocumentLoadCompleteCallback
touchManagedPtr a
document
Ptr () -> IO (Ptr ())
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ()
result
#if ENABLE_OVERLOADING
data DocumentGetDocumentMethodInfo
instance (signature ~ (m (Ptr ())), MonadIO m, IsDocument a) => O.MethodInfo DocumentGetDocumentMethodInfo a signature where
overloadedMethod _ = documentGetDocument
#endif
foreign import ccall "atk_document_get_document_type" atk_document_get_document_type ::
Ptr Document ->
IO CString
{-# DEPRECATED documentGetDocumentType ["Since 2.12. Please use 'GI.Atk.Interfaces.Document.documentGetAttributes' to","ask for the document type if it applies."] #-}
documentGetDocumentType ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m T.Text
documentGetDocumentType :: a -> m Text
documentGetDocumentType document :: a
document = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CString
result <- Ptr Document -> IO CString
atk_document_get_document_type Ptr Document
document'
Text -> CString -> DocumentLoadCompleteCallback
forall a.
HasCallStack =>
Text -> Ptr a -> DocumentLoadCompleteCallback
checkUnexpectedReturnNULL "documentGetDocumentType" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> DocumentLoadCompleteCallback
forall a. ManagedPtrNewtype a => a -> DocumentLoadCompleteCallback
touchManagedPtr a
document
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data DocumentGetDocumentTypeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDocument a) => O.MethodInfo DocumentGetDocumentTypeMethodInfo a signature where
overloadedMethod _ = documentGetDocumentType
#endif
foreign import ccall "atk_document_get_locale" atk_document_get_locale ::
Ptr Document ->
IO CString
{-# DEPRECATED documentGetLocale ["(Since version 2.7.90)","Please use 'GI.Atk.Objects.Object.objectGetObjectLocale' instead."] #-}
documentGetLocale ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m T.Text
documentGetLocale :: a -> m Text
documentGetLocale document :: a
document = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CString
result <- Ptr Document -> IO CString
atk_document_get_locale Ptr Document
document'
Text -> CString -> DocumentLoadCompleteCallback
forall a.
HasCallStack =>
Text -> Ptr a -> DocumentLoadCompleteCallback
checkUnexpectedReturnNULL "documentGetLocale" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> DocumentLoadCompleteCallback
forall a. ManagedPtrNewtype a => a -> DocumentLoadCompleteCallback
touchManagedPtr a
document
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data DocumentGetLocaleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDocument a) => O.MethodInfo DocumentGetLocaleMethodInfo a signature where
overloadedMethod _ = documentGetLocale
#endif
foreign import ccall "atk_document_get_page_count" atk_document_get_page_count ::
Ptr Document ->
IO Int32
documentGetPageCount ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m Int32
documentGetPageCount :: a -> m Int32
documentGetPageCount document :: a
document = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Int32
result <- Ptr Document -> IO Int32
atk_document_get_page_count Ptr Document
document'
a -> DocumentLoadCompleteCallback
forall a. ManagedPtrNewtype a => a -> DocumentLoadCompleteCallback
touchManagedPtr a
document
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data DocumentGetPageCountMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsDocument a) => O.MethodInfo DocumentGetPageCountMethodInfo a signature where
overloadedMethod _ = documentGetPageCount
#endif
foreign import ccall "atk_document_set_attribute_value" atk_document_set_attribute_value ::
Ptr Document ->
CString ->
CString ->
IO CInt
documentSetAttributeValue ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> T.Text
-> T.Text
-> m Bool
documentSetAttributeValue :: a -> Text -> Text -> m Bool
documentSetAttributeValue document :: a
document attributeName :: Text
attributeName attributeValue :: Text
attributeValue = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CString
attributeName' <- Text -> IO CString
textToCString Text
attributeName
CString
attributeValue' <- Text -> IO CString
textToCString Text
attributeValue
CInt
result <- Ptr Document -> CString -> CString -> IO CInt
atk_document_set_attribute_value Ptr Document
document' CString
attributeName' CString
attributeValue'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> DocumentLoadCompleteCallback
forall a. ManagedPtrNewtype a => a -> DocumentLoadCompleteCallback
touchManagedPtr a
document
CString -> DocumentLoadCompleteCallback
forall a. Ptr a -> DocumentLoadCompleteCallback
freeMem CString
attributeName'
CString -> DocumentLoadCompleteCallback
forall a. Ptr a -> DocumentLoadCompleteCallback
freeMem CString
attributeValue'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if ENABLE_OVERLOADING
data DocumentSetAttributeValueMethodInfo
instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, IsDocument a) => O.MethodInfo DocumentSetAttributeValueMethodInfo a signature where
overloadedMethod _ = documentSetAttributeValue
#endif