← Back to branch summary

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

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/gtk/gtk/gtktooltips.pp

  • 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/extra/gtk/gtk/gtktooltips.pp
1
 
{
2
 
}
3
 
 
4
 
{****************************************************************************
5
 
                                 Interface
6
 
****************************************************************************}
7
 
 
8
 
{$ifdef read_interface}
9
 
 
10
 
  type
11
 
     PGtkTooltipsData = ^TGtkTooltipsData;
12
 
     PGtkTooltips = ^TGtkTooltips;
13
 
     TGtkTooltipsData = record
14
 
          tooltips : PGtkTooltips;
15
 
          widget : PGtkWidget;
16
 
          tip_text : Pgchar;
17
 
          tip_private : Pgchar;
18
 
          font : PGdkFont;
19
 
          width : gint;
20
 
          row : PGList;
21
 
       end;
22
 
 
23
 
     TGtkTooltips = record
24
 
          data : TGtkData;
25
 
          tip_window : PGtkWidget;
26
 
          active_tips_data : PGtkTooltipsData;
27
 
          tips_data_list : PGList;
28
 
          gc : PGdkGC;
29
 
          foreground : PGdkColor;
30
 
          background : PGdkColor;
31
 
          flag0 : longint;
32
 
          timer_tag : gint;
33
 
       end;
34
 
 
35
 
  const
36
 
     bm_TGtkTooltips_delay = $3FFFFFFF;
37
 
     bp_TGtkTooltips_delay = 0;
38
 
     bm_TGtkTooltips_enabled = $40000000;
39
 
     bp_TGtkTooltips_enabled = 30;
40
 
function  delay(var a : TGtkTooltips) : guint;
41
 
procedure set_delay(var a : TGtkTooltips; __delay : guint);
42
 
function  enabled(var a : TGtkTooltips) : guint;
43
 
procedure set_enabled(var a : TGtkTooltips; __enabled : guint);
44
 
 
45
 
  type
46
 
     PGtkTooltipsClass = ^TGtkTooltipsClass;
47
 
     TGtkTooltipsClass = record
48
 
          parent_class : TGtkDataClass;
49
 
       end;
50
 
 
51
 
Type
52
 
  GTK_TOOLTIPS=PGtkTooltips;
53
 
  GTK_TOOLTIPS_CLASS=PGtkTooltipsClass;
54
 
 
55
 
function  GTK_TOOLTIPS_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_tooltips_get_type';
56
 
function  GTK_IS_TOOLTIPS(obj:pointer):boolean;
57
 
function  GTK_IS_TOOLTIPS_CLASS(klass:pointer):boolean;
58
 
 
59
 
function  gtk_tooltips_get_type:TGtkType;cdecl;external gtkdll name 'gtk_tooltips_get_type';
60
 
function  gtk_tooltips_new:PGtkTooltips;cdecl;external gtkdll name 'gtk_tooltips_new';
61
 
procedure gtk_tooltips_enable(tooltips:PGtkTooltips);cdecl;external gtkdll name 'gtk_tooltips_enable';
62
 
procedure gtk_tooltips_disable(tooltips:PGtkTooltips);cdecl;external gtkdll name 'gtk_tooltips_disable';
63
 
procedure gtk_tooltips_set_delay(tooltips:PGtkTooltips; delay:guint);cdecl;external gtkdll name 'gtk_tooltips_set_delay';
64
 
procedure gtk_tooltips_set_tip(tooltips:PGtkTooltips; widget:PGtkWidget; tip_text:Pgchar; tip_private:Pgchar);cdecl;external gtkdll name 'gtk_tooltips_set_tip';
65
 
procedure gtk_tooltips_set_colors(tooltips:PGtkTooltips; background:PGdkColor; foreground:PGdkColor);cdecl;external gtkdll name 'gtk_tooltips_set_colors';
66
 
function  gtk_tooltips_data_get(widget:PGtkWidget):PGtkTooltipsData;cdecl;external gtkdll name 'gtk_tooltips_data_get';
67
 
procedure gtk_tooltips_force_window(tooltips:PGtkTooltips);cdecl;external gtkdll name 'gtk_tooltips_force_window';
68
 
 
69
 
{$endif read_interface}
70
 
 
71
 
 
72
 
{****************************************************************************
73
 
                              Implementation
74
 
****************************************************************************}
75
 
 
76
 
{$ifdef read_implementation}
77
 
 
78
 
function  delay(var a : TGtkTooltips) : guint;
79
 
    begin
80
 
       delay:=(a.flag0 and bm_TGtkTooltips_delay) shr bp_TGtkTooltips_delay;
81
 
    end;
82
 
 
83
 
procedure set_delay(var a : TGtkTooltips; __delay : guint);
84
 
    begin
85
 
       a.flag0:=a.flag0 or ((__delay shl bp_TGtkTooltips_delay) and bm_TGtkTooltips_delay);
86
 
    end;
87
 
 
88
 
function  enabled(var a : TGtkTooltips) : guint;
89
 
    begin
90
 
       enabled:=(a.flag0 and bm_TGtkTooltips_enabled) shr bp_TGtkTooltips_enabled;
91
 
    end;
92
 
 
93
 
procedure set_enabled(var a : TGtkTooltips; __enabled : guint);
94
 
    begin
95
 
       a.flag0:=a.flag0 or ((__enabled shl bp_TGtkTooltips_enabled) and bm_TGtkTooltips_enabled);
96
 
    end;
97
 
 
98
 
function  GTK_IS_TOOLTIPS(obj:pointer):boolean;
99
 
begin
100
 
  GTK_IS_TOOLTIPS:=(obj<>nil) and GTK_IS_TOOLTIPS_CLASS(PGtkTypeObject(obj)^.klass);
101
 
end;
102
 
 
103
 
function  GTK_IS_TOOLTIPS_CLASS(klass:pointer):boolean;
104
 
begin
105
 
  GTK_IS_TOOLTIPS_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_TOOLTIPS_TYPE);
106
 
end;
107
 
 
108
 
{$endif read_implementation}
109
 
 
110