blob: f19e69b020da47ea6ac18adf5fa76ae24a5c0a70 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
// included by atk.pp
{
The AtkDocument interface should be supported by any anObject that has an
associated document anObject model (DOM). This interface provides the
standard mechanism allowing an assistive technology access to the DOM.
}
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
PAtkDocumentIface = ^TAtkDocumentIface;
TAtkDocumentIface = record
parent : TGTypeInterface;
get_document_type : function (document:PAtkDocument):Pgchar; cdecl;
get_document : function (document:PAtkDocument):gpointer; cdecl;
pad1 : TAtkFunction;
pad2 : TAtkFunction;
pad3 : TAtkFunction;
pad4 : TAtkFunction;
pad5 : TAtkFunction;
pad6 : TAtkFunction;
pad7 : TAtkFunction;
pad8 : TAtkFunction;
end;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
function ATK_TYPE_DOCUMENT : GType;
function ATK_IS_DOCUMENT(obj: pointer) : boolean;
function ATK_DOCUMENT(obj: pointer) : PAtkDocument;
function ATK_DOCUMENT_GET_IFACE(obj: pointer) : PAtkDocumentIface;
function atk_document_get_type:GType; cdecl; external atklib;
function atk_document_get_document_type(document:PAtkDocument):Pgchar; cdecl; external atklib;
function atk_document_get_document(document:PAtkDocument):gpointer; cdecl; external atklib;
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function ATK_TYPE_DOCUMENT : GType;
begin
ATK_TYPE_DOCUMENT:=atk_document_get_type;
end;
function ATK_IS_DOCUMENT(obj: pointer) : boolean;
begin
ATK_IS_DOCUMENT:=G_TYPE_CHECK_INSTANCE_TYPE(obj,ATK_TYPE_DOCUMENT);
end;
function ATK_DOCUMENT(obj: pointer) : PAtkDocument;
begin
ATK_DOCUMENT:=PAtkDocument(G_TYPE_CHECK_INSTANCE_CAST(obj,ATK_TYPE_DOCUMENT));
end;
function ATK_DOCUMENT_GET_IFACE(obj: pointer) : PAtkDocumentIface;
begin
ATK_DOCUMENT_GET_IFACE:=PAtkDocumentIface(G_TYPE_INSTANCE_GET_INTERFACE(obj,ATK_TYPE_DOCUMENT));
end;
{$ENDIF read_implementation}
|