← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/extra/gtk/gtk/gtktipsquery.pp
 
1
{
 
2
}
 
3
 
 
4
{****************************************************************************
 
5
                                 Interface
 
6
****************************************************************************}
 
7
 
 
8
{$ifdef read_interface}
 
9
 
 
10
  type
 
11
     PGtkTipsQuery = ^TGtkTipsQuery;
 
12
     TGtkTipsQuery = record
 
13
          thelabel : TGtkLabel;
 
14
          flag0 : {$ifdef win32}longint{$else}word{$endif};
 
15
          label_inactive : Pgchar;
 
16
          label_no_tip : Pgchar;
 
17
          caller : PGtkWidget;
 
18
          last_crossed : PGtkWidget;
 
19
          query_cursor : PGdkCursor;
 
20
       end;
 
21
 
 
22
  const
 
23
     bm_TGtkTipsQuery_emit_always = $1;
 
24
     bp_TGtkTipsQuery_emit_always = 0;
 
25
     bm_TGtkTipsQuery_in_query = $2;
 
26
     bp_TGtkTipsQuery_in_query = 1;
 
27
function  emit_always(var a : TGtkTipsQuery) : guint;
 
28
procedure set_emit_always(var a : TGtkTipsQuery; __emit_always : guint);
 
29
function  in_query(var a : TGtkTipsQuery) : guint;
 
30
procedure set_in_query(var a : TGtkTipsQuery; __in_query : guint);
 
31
 
 
32
  type
 
33
     PGtkTipsQueryClass = ^TGtkTipsQueryClass;
 
34
     TGtkTipsQueryClass = record
 
35
          parent_class : TGtkLabelClass;
 
36
          start_query : procedure (tips_query:PGtkTipsQuery); cdecl;
 
37
          stop_query : procedure (tips_query:PGtkTipsQuery); cdecl;
 
38
          widget_entered : procedure (tips_query:PGtkTipsQuery; widget:PGtkWidget; tip_text:Pgchar; tip_private:Pgchar); cdecl;
 
39
          widget_selected : function (tips_query:PGtkTipsQuery; widget:PGtkWidget; tip_text:Pgchar; tip_private:Pgchar; event:PGdkEventButton):gint; cdecl;
 
40
       end;
 
41
 
 
42
Type
 
43
  GTK_TIPS_QUERY=PGtkTipsQuery;
 
44
  GTK_TIPS_QUERY_CLASS=PGtkTipsQueryClass;
 
45
 
 
46
function  GTK_TIPS_QUERY_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_tips_query_get_type';
 
47
function  GTK_IS_TIPS_QUERY(obj:pointer):boolean;
 
48
function  GTK_IS_TIPS_QUERY_CLASS(klass:pointer):boolean;
 
49
 
 
50
function  gtk_tips_query_get_type:TGtkType;cdecl;external gtkdll name 'gtk_tips_query_get_type';
 
51
function  gtk_tips_query_new:PGtkWidget;cdecl;external gtkdll name 'gtk_tips_query_new';
 
52
procedure gtk_tips_query_start_query(tips_query:PGtkTipsQuery);cdecl;external gtkdll name 'gtk_tips_query_start_query';
 
53
procedure gtk_tips_query_stop_query(tips_query:PGtkTipsQuery);cdecl;external gtkdll name 'gtk_tips_query_stop_query';
 
54
procedure gtk_tips_query_set_caller(tips_query:PGtkTipsQuery; caller:PGtkWidget);cdecl;external gtkdll name 'gtk_tips_query_set_caller';
 
55
procedure gtk_tips_query_set_labels(tips_query:PGtkTipsQuery; label_inactive:Pgchar; label_no_tip:Pgchar);cdecl;external gtkdll name 'gtk_tips_query_set_labels';
 
56
 
 
57
{$endif read_interface}
 
58
 
 
59
 
 
60
{****************************************************************************
 
61
                              Implementation
 
62
****************************************************************************}
 
63
 
 
64
{$ifdef read_implementation}
 
65
 
 
66
function  emit_always(var a : TGtkTipsQuery) : guint;
 
67
    begin
 
68
       emit_always:=(a.flag0 and bm_TGtkTipsQuery_emit_always) shr bp_TGtkTipsQuery_emit_always;
 
69
    end;
 
70
 
 
71
procedure set_emit_always(var a : TGtkTipsQuery; __emit_always : guint);
 
72
    begin
 
73
       a.flag0:=a.flag0 or ((__emit_always shl bp_TGtkTipsQuery_emit_always) and bm_TGtkTipsQuery_emit_always);
 
74
    end;
 
75
 
 
76
function  in_query(var a : TGtkTipsQuery) : guint;
 
77
    begin
 
78
       in_query:=(a.flag0 and bm_TGtkTipsQuery_in_query) shr bp_TGtkTipsQuery_in_query;
 
79
    end;
 
80
 
 
81
procedure set_in_query(var a : TGtkTipsQuery; __in_query : guint);
 
82
    begin
 
83
       a.flag0:=a.flag0 or ((__in_query shl bp_TGtkTipsQuery_in_query) and bm_TGtkTipsQuery_in_query);
 
84
    end;
 
85
 
 
86
function  GTK_IS_TIPS_QUERY(obj:pointer):boolean;
 
87
begin
 
88
  GTK_IS_TIPS_QUERY:=(obj<>nil) and GTK_IS_TIPS_QUERY_CLASS(PGtkTypeObject(obj)^.klass);
 
89
end;
 
90
 
 
91
function  GTK_IS_TIPS_QUERY_CLASS(klass:pointer):boolean;
 
92
begin
 
93
  GTK_IS_TIPS_QUERY_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_TIPS_QUERY_TYPE);
 
94
end;
 
95
 
 
96
{$endif read_implementation}
 
97
 
 
98