blob: e7ba644cf1af2ad5b796a7128599e9ef865cf134 (
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
// included by atk.pp
{
The interface AtkAction should be supported by any anObject that can
perform one or more actions. The interface provides the standard
mechanism for an assistive technology to determine what those actions
are as well as tell the anObject to perform them. Any anObject that can
be manipulated should support this interface.
}
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
PAtkActionIface = ^TAtkActionIface;
TAtkActionIface = record
parent : TGTypeInterface;
do_action : function (action:PAtkAction; i:gint):gboolean; cdecl;
get_n_actions : function (action:PAtkAction):gint; cdecl;
get_description : function (action:PAtkAction; i:gint):Pgchar; cdecl;
get_name : function (action:PAtkAction; i:gint):Pgchar; cdecl;
get_keybinding : function (action:PAtkAction; i:gint):Pgchar; cdecl;
set_description : function (action:PAtkAction; i:gint; desc:Pgchar):gboolean; cdecl;
pad1 : TAtkFunction;
pad2 : TAtkFunction;
end;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
function ATK_TYPE_ACTION : GType;
function ATK_IS_ACTION(obj: pointer) : boolean;
function ATK_ACTION(obj: pointer) : PAtkAction;
function ATK_ACTION_GET_IFACE(obj: pointer) : PAtkActionIface;
{
These are the function which would be called by an application with
the argument being a AtkObject anObject cast to (AtkAction).
The function will just check that the corresponding
function pointer is not NULL and will call it.
The "real" implementation of the function for accessible will be
provided in a support library
}
function atk_action_get_type:GType; cdecl; external atklib;
function atk_action_do_action(action:PAtkAction; i:gint):gboolean; cdecl; external atklib;
function atk_action_get_n_actions(action:PAtkAction):gint; cdecl; external atklib;
function atk_action_get_description(action:PAtkAction; i:gint):Pgchar; cdecl; external atklib;
function atk_action_get_name(action:PAtkAction; i:gint):Pgchar; cdecl; external atklib;
function atk_action_get_keybinding(action:PAtkAction; i:gint):Pgchar; cdecl; external atklib;
function atk_action_set_description(action:PAtkAction; i:gint; desc:Pgchar):gboolean; cdecl; external atklib;
{
Additional GObject properties exported by AtkAction:
"accessible_action"
(an accessible action, or the list of actions, has changed)
}
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function ATK_TYPE_ACTION : GType;
begin
ATK_TYPE_ACTION:=atk_action_get_type;
end;
function ATK_IS_ACTION(obj: pointer) : boolean;
begin
ATK_IS_ACTION:=G_TYPE_CHECK_INSTANCE_TYPE(obj,ATK_TYPE_ACTION);
end;
function ATK_ACTION(obj: pointer) : PAtkAction;
begin
ATK_ACTION:=PAtkAction(G_TYPE_CHECK_INSTANCE_CAST(obj,ATK_TYPE_ACTION));
end;
function ATK_ACTION_GET_IFACE(obj: pointer) : PAtkActionIface;
begin
ATK_ACTION_GET_IFACE:=PAtkActionIface(G_TYPE_INSTANCE_GET_INTERFACE(obj,ATK_TYPE_ACTION));
end;
{$ENDIF read_implementation}
|
