4
The AtkDocument interface should be supported by any anObject that has an
5
associated document anObject model (DOM). This interface provides the
6
standard mechanism allowing an assistive technology access to the DOM.
10
{$IFDEF read_forward_definitions}
11
{$ENDIF read_forward_definitions}
13
//------------------------------------------------------------------------------
15
{$IFDEF read_interface_types}
16
PAtkDocumentIface = ^TAtkDocumentIface;
17
TAtkDocumentIface = record
18
parent : TGTypeInterface;
19
get_document_type : function (document:PAtkDocument):Pgchar; cdecl;
20
get_document : function (document:PAtkDocument):gpointer; cdecl;
31
{$ENDIF read_interface_types}
33
//------------------------------------------------------------------------------
35
{$IFDEF read_interface_rest}
36
function ATK_TYPE_DOCUMENT : GType;
37
function ATK_IS_DOCUMENT(obj: pointer) : boolean;
38
function ATK_DOCUMENT(obj: pointer) : PAtkDocument;
39
function ATK_DOCUMENT_GET_IFACE(obj: pointer) : PAtkDocumentIface;
42
function atk_document_get_type:GType; cdecl; external atklib;
43
function atk_document_get_document_type(document:PAtkDocument):Pgchar; cdecl; external atklib;
44
function atk_document_get_document(document:PAtkDocument):gpointer; cdecl; external atklib;
45
{$ENDIF read_interface_rest}
47
//------------------------------------------------------------------------------
49
{$IFDEF read_implementation}
50
function ATK_TYPE_DOCUMENT : GType;
52
ATK_TYPE_DOCUMENT:=atk_document_get_type;
55
function ATK_IS_DOCUMENT(obj: pointer) : boolean;
57
ATK_IS_DOCUMENT:=G_TYPE_CHECK_INSTANCE_TYPE(obj,ATK_TYPE_DOCUMENT);
60
function ATK_DOCUMENT(obj: pointer) : PAtkDocument;
62
ATK_DOCUMENT:=PAtkDocument(G_TYPE_CHECK_INSTANCE_CAST(obj,ATK_TYPE_DOCUMENT));
65
function ATK_DOCUMENT_GET_IFACE(obj: pointer) : PAtkDocumentIface;
67
ATK_DOCUMENT_GET_IFACE:=PAtkDocumentIface(G_TYPE_INSTANCE_GET_INTERFACE(obj,ATK_TYPE_DOCUMENT));
70
{$ENDIF read_implementation}