← 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/gtklabel.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/gtklabel.pp
 
1
{
 
2
}
 
3
 
 
4
{****************************************************************************
 
5
                                 Interface
 
6
****************************************************************************}
 
7
 
 
8
{$ifdef read_interface}
 
9
 
 
10
    type
 
11
       PGtkLabelWord = pointer;
 
12
 
 
13
       PGtkLabel = ^TGtkLabel;
 
14
       TGtkLabel = record
 
15
          misc : TGtkMisc;
 
16
          thelabel : Pgchar;
 
17
          label_wc : PGdkWChar;
 
18
          pattern : Pgchar;
 
19
          words : PGtkLabelWord;
 
20
          flag0 : longint;
 
21
          wrap : gboolean;
 
22
        end;
 
23
 
 
24
  const
 
25
     bm_TGtkLabel_max_width = $FFFF;
 
26
     bp_TGtkLabel_max_width = 0;
 
27
     bm_TGtkLabel_jtype = $30000;
 
28
     bp_TGtkLabel_jtype = 16;
 
29
function  max_width(var a : TGtkLabel) : guint;
 
30
procedure set_max_width(var a : TGtkLabel; __max_width : guint);
 
31
function  jtype(var a : TGtkLabel) : guint;
 
32
procedure set_jtype(var a : TGtkLabel; __jtype : guint);
 
33
 
 
34
    type
 
35
       PGtkLabelClass = ^TGtkLabelClass;
 
36
       TGtkLabelClass = record
 
37
            parent_class : TGtkMiscClass;
 
38
         end;
 
39
 
 
40
Type
 
41
  GTK_LABEL=PGtkLabel;
 
42
  GTK_LABEL_CLASS=PGtkLabelClass;
 
43
 
 
44
function  GTK_LABEL_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_label_get_type';
 
45
function  GTK_IS_LABEL(obj:pointer):boolean;
 
46
function  GTK_IS_LABEL_CLASS(klass:pointer):boolean;
 
47
 
 
48
function  gtk_label_get_type:TGtkType;cdecl;external gtkdll name 'gtk_label_get_type';
 
49
function  gtk_label_new (str:pchar):PGtkWidget;cdecl;external gtkdll name 'gtk_label_new';
 
50
procedure gtk_label_set_text(theLabel: PGtkLabel; str:pchar);cdecl;external gtkdll name 'gtk_label_set_text';
 
51
procedure gtk_label_set_justify(thelabel:PGtkLabel; jtype:TGtkJustification);cdecl;external gtkdll name 'gtk_label_set_justify';
 
52
procedure gtk_label_set_pattern(thelabel:PGtkLabel; pattern:Pgchar);cdecl;external gtkdll name 'gtk_label_set_pattern';
 
53
procedure gtk_label_set_line_wrap(thelabel:PGtkLabel; wrap:gboolean);cdecl;external gtkdll name 'gtk_label_set_line_wrap';
 
54
procedure gtk_label_get(thelabel:PGtkLabel; str:ppchar);cdecl;external gtkdll name 'gtk_label_get';
 
55
function  gtk_label_parse_uline(thelabel:PGtkLabel;thestring:Pgchar):guint;cdecl;external gtkdll name 'gtk_label_parse_uline';
 
56
 
 
57
{$endif read_interface}
 
58
 
 
59
 
 
60
{****************************************************************************
 
61
                              Implementation
 
62
****************************************************************************}
 
63
 
 
64
{$ifdef read_implementation}
 
65
 
 
66
function  max_width(var a : TGtkLabel) : guint;
 
67
    begin
 
68
       max_width:=(a.flag0 and bm_TGtkLabel_max_width) shr bp_TGtkLabel_max_width;
 
69
    end;
 
70
 
 
71
procedure set_max_width(var a : TGtkLabel; __max_width : guint);
 
72
    begin
 
73
       a.flag0:=a.flag0 or ((__max_width shl bp_TGtkLabel_max_width) and bm_TGtkLabel_max_width);
 
74
    end;
 
75
 
 
76
function  jtype(var a : TGtkLabel) : guint;
 
77
    begin
 
78
       jtype:=(a.flag0 and bm_TGtkLabel_jtype) shr bp_TGtkLabel_jtype;
 
79
    end;
 
80
 
 
81
procedure set_jtype(var a : TGtkLabel; __jtype : guint);
 
82
    begin
 
83
       a.flag0:=a.flag0 or ((__jtype shl bp_TGtkLabel_jtype) and bm_TGtkLabel_jtype);
 
84
    end;
 
85
 
 
86
function  GTK_IS_LABEL(obj:pointer):boolean;
 
87
begin
 
88
  GTK_IS_LABEL:=(obj<>nil) and GTK_IS_LABEL_CLASS(PGtkTypeObject(obj)^.klass);
 
89
end;
 
90
 
 
91
function  GTK_IS_LABEL_CLASS(klass:pointer):boolean;
 
92
begin
 
93
  GTK_IS_LABEL_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_LABEL_TYPE);
 
94
end;
 
95
 
 
96
{$endif read_implementation}
 
97
 
 
98