← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/packages/gtk2/src/atk/atkhyperlink.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/gtk2/src/atk/atkhyperlink.inc
 
1
// included by atk.pp
 
2
 
 
3
{
 
4
   AtkHyperlink encapsulates a link or set of links in a hypertext document.
 
5
 
 
6
   It implements the AtkAction interface.
 
7
  }
 
8
 
 
9
{$IFDEF read_forward_definitions}
 
10
{$ENDIF read_forward_definitions}
 
11
 
 
12
//------------------------------------------------------------------------------
 
13
 
 
14
{$IFDEF read_interface_types}
 
15
   PAtkHyperlink = ^TAtkHyperlink;
 
16
   TAtkHyperlink = record
 
17
        parent : TGObject;
 
18
     end;
 
19
 
 
20
{ Returns a string specifying the URI associated with the nth anchor
 
21
  of this link. }
 
22
{ Returns an anObject which represents the link action, as appropriate for
 
23
  that link. }
 
24
{ Gets the index with the hypertext document at which this link ends }
 
25
{ Gets the index with the hypertext document at which this link begins }
 
26
{ Since the document a link is associated with may have changed, this
 
27
  method returns whether or not this link is still valid (with respect
 
28
  to the document is references) }
 
29
{ Returns the number of anchors associated with this link }
 
30
   PAtkHyperlinkClass = ^TAtkHyperlinkClass;
 
31
   TAtkHyperlinkClass = record
 
32
        parent : TGObjectClass;
 
33
        get_uri : function (link:PAtkHyperlink; i:gint):Pgchar; cdecl;
 
34
        get_object : function (link:PAtkHyperlink; i:gint):PAtkObject; cdecl;
 
35
        get_end_index : function (link:PAtkHyperlink):gint; cdecl;
 
36
        get_start_index : function (link:PAtkHyperlink):gint; cdecl;
 
37
        is_valid : function (link:PAtkHyperlink):gboolean; cdecl;
 
38
        get_n_anchors : function (link:PAtkHyperlink):gint; cdecl;
 
39
        pad1 : TAtkFunction;
 
40
        pad2 : TAtkFunction;
 
41
        pad3 : TAtkFunction;
 
42
        pad4 : TAtkFunction;
 
43
     end;
 
44
 
 
45
{$ENDIF read_interface_types}
 
46
 
 
47
//------------------------------------------------------------------------------
 
48
 
 
49
{$IFDEF read_interface_rest}
 
50
function ATK_TYPE_HYPERLINK : GType;
 
51
function ATK_HYPERLINK(obj: pointer) : PAtkHyperlink;
 
52
function ATK_HYPERLINK_CLASS(klass: pointer) : PAtkHyperlinkClass;
 
53
function ATK_IS_HYPERLINK(obj: pointer) : boolean;
 
54
function ATK_IS_HYPERLINK_CLASS(klass: pointer) : boolean;
 
55
function ATK_HYPERLINK_GET_CLASS(obj: pointer) : PAtkHyperlinkClass;
 
56
 
 
57
 
 
58
function atk_hyperlink_get_type:GType; cdecl; external atklib;
 
59
function atk_hyperlink_get_uri(link:PAtkHyperlink; i:gint):Pgchar; cdecl; external atklib;
 
60
function atk_hyperlink_get_object(link:PAtkHyperlink; i:gint):PAtkObject; cdecl; external atklib;
 
61
function atk_hyperlink_get_end_index(link:PAtkHyperlink):gint; cdecl; external atklib;
 
62
function atk_hyperlink_get_start_index(link:PAtkHyperlink):gint; cdecl; external atklib;
 
63
function atk_hyperlink_is_valid(link:PAtkHyperlink):gboolean; cdecl; external atklib;
 
64
function atk_hyperlink_get_n_anchors(link:PAtkHyperlink):gint; cdecl; external atklib;
 
65
{$ENDIF read_interface_rest}
 
66
 
 
67
//------------------------------------------------------------------------------
 
68
 
 
69
{$IFDEF read_implementation}
 
70
function ATK_TYPE_HYPERLINK : GType;
 
71
begin
 
72
   ATK_TYPE_HYPERLINK:=atk_hyperlink_get_type;
 
73
end;
 
74
 
 
75
function ATK_HYPERLINK(obj: pointer) : PAtkHyperlink;
 
76
begin
 
77
   ATK_HYPERLINK:=PAtkHyperlink(G_TYPE_CHECK_INSTANCE_CAST(obj,ATK_TYPE_HYPERLINK));
 
78
end;
 
79
 
 
80
function ATK_HYPERLINK_CLASS(klass: pointer) : PAtkHyperlinkClass;
 
81
begin
 
82
   ATK_HYPERLINK_CLASS:=PAtkHyperlinkClass(G_TYPE_CHECK_CLASS_CAST(klass,ATK_TYPE_HYPERLINK));
 
83
end;
 
84
 
 
85
function ATK_IS_HYPERLINK(obj: pointer) : boolean;
 
86
begin
 
87
   ATK_IS_HYPERLINK:=G_TYPE_CHECK_INSTANCE_TYPE(obj,ATK_TYPE_HYPERLINK);
 
88
end;
 
89
 
 
90
function ATK_IS_HYPERLINK_CLASS(klass: pointer) : boolean;
 
91
begin
 
92
   ATK_IS_HYPERLINK_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,ATK_TYPE_HYPERLINK);
 
93
end;
 
94
 
 
95
function ATK_HYPERLINK_GET_CLASS(obj: pointer) : PAtkHyperlinkClass;
 
96
begin
 
97
   ATK_HYPERLINK_GET_CLASS:=PAtkHyperlinkClass(G_TYPE_INSTANCE_GET_CLASS(obj,ATK_TYPE_HYPERLINK));
 
98
end;
 
99
 
 
100
{$ENDIF read_implementation}
 
101