← Back to branch summary

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

« back to all changes in this revision

Viewing changes to packages/extra/gnome1/gnome/libgnomeui/gtkdial.inc

  • 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:
packages/extra/gnome1/gnome/libgnomeui/gtkdial.inc
1
 
{$IfDef read_interface}
2
 
 
3
 
type
4
 
   PGtkDial = ^TGtkDial;
5
 
   TGtkDial = record
6
 
        widget : TGtkWidget;
7
 
        offscreen_pixmap : PGdkPixmap;
8
 
        adjustment : PGtkAdjustment;
9
 
        flag0 : word;
10
 
        button : guint8;
11
 
        radius : gint;
12
 
        pointer_width : gint;
13
 
        timer : guint32;
14
 
        angle : gfloat;
15
 
        percentage : gfloat;
16
 
        old_value : gfloat;
17
 
        old_lower : gfloat;
18
 
        old_upper : gfloat;
19
 
     end;
20
 
   GTK_DIAL = PGtkDial;
21
 
 
22
 
const
23
 
   bm__GtkDial_policy = $3;
24
 
   bp__GtkDial_policy = 0;
25
 
   bm__GtkDial_view_only = $4;
26
 
   bp__GtkDial_view_only = 2;
27
 
function policy(var a : TGtkDial) : guint;
28
 
procedure set_policy(var a : TGtkDial; __policy : guint);
29
 
function view_only(var a : TGtkDial) : guint;
30
 
procedure set_view_only(var a : TGtkDial; __view_only : guint);
31
 
 
32
 
type
33
 
   PGtkDialClass = ^TGtkDialClass;
34
 
   TGtkDialClass = record
35
 
        parent_class : TGtkWidgetClass;
36
 
     end;
37
 
   GTK_DIAL_CLASS = PGtkDialClass;
38
 
 
39
 
function GTK_TYPE_DIAL : TGTKType;
40
 
function GTK_IS_DIAL(obj : Pointer) : gboolean;
41
 
function GTK_IS_DIAL_CLASS(klass : Pointer) : gboolean;
42
 
 
43
 
function gtk_dial_new(adjustment:PGtkAdjustment):PGtkWidget;cdecl;external libgnomeuidll name 'gtk_dial_new';
44
 
function gtk_dial_get_type:TGTKType;cdecl;external libgnomeuidll name 'gtk_dial_get_type';
45
 
function gtk_dial_get_adjustment(dial:PGtkDial):PGtkAdjustment;cdecl;external libgnomeuidll name 'gtk_dial_get_adjustment';
46
 
procedure gtk_dial_set_update_policy(dial:PGtkDial; policy:TGtkUpdateType);cdecl;external libgnomeuidll name 'gtk_dial_set_update_policy';
47
 
procedure gtk_dial_set_adjustment(dial:PGtkDial; adjustment:PGtkAdjustment);cdecl;external libgnomeuidll name 'gtk_dial_set_adjustment';
48
 
function gtk_dial_set_percentage(dial:PGtkDial; percent:gfloat):gfloat;cdecl;external libgnomeuidll name 'gtk_dial_set_percentage';
49
 
function gtk_dial_get_percentage(dial:PGtkDial):gfloat;cdecl;external libgnomeuidll name 'gtk_dial_get_percentage';
50
 
function gtk_dial_set_value(dial:PGtkDial; value:gfloat):gfloat;cdecl;external libgnomeuidll name 'gtk_dial_set_value';
51
 
function gtk_dial_get_value(dial:PGtkDial):gfloat;cdecl;external libgnomeuidll name 'gtk_dial_get_value';
52
 
procedure gtk_dial_set_view_only(dial:PGtkDial; view_only:gboolean);cdecl;external libgnomeuidll name 'gtk_dial_set_view_only';
53
 
 
54
 
{$EndIf read_interface}
55
 
 
56
 
{$Ifdef read_implementation}
57
 
 
58
 
function GTK_TYPE_DIAL : TGTKType;
59
 
begin
60
 
  GTK_TYPE_DIAL:=gtk_dial_get_type;
61
 
end;
62
 
 
63
 
function GTK_IS_DIAL(obj : Pointer) : gboolean;
64
 
begin
65
 
   GTK_IS_DIAL:=(obj<>nil) and GTK_IS_DIAL_CLASS(PGtkTypeObject(obj)^.klass);
66
 
end;
67
 
 
68
 
function GTK_IS_DIAL_CLASS(klass : Pointer) : gboolean;
69
 
begin
70
 
   GTK_IS_DIAL_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_TYPE_DIAL);
71
 
end;
72
 
 
73
 
function policy(var a : TGtkDial) : guint;
74
 
begin
75
 
   policy:=(a.flag0 and bm__GtkDial_policy) shr bp__GtkDial_policy;
76
 
end;
77
 
 
78
 
procedure set_policy(var a : TGtkDial; __policy : guint);
79
 
begin
80
 
   a.flag0:=a.flag0 or ((__policy shl bp__GtkDial_policy) and bm__GtkDial_policy);
81
 
end;
82
 
 
83
 
function view_only(var a : TGtkDial) : guint;
84
 
begin
85
 
   view_only:=(a.flag0 and bm__GtkDial_view_only) shr bp__GtkDial_view_only;
86
 
end;
87
 
 
88
 
procedure set_view_only(var a : TGtkDial; __view_only : guint);
89
 
begin
90
 
   a.flag0:=a.flag0 or ((__view_only shl bp__GtkDial_view_only) and bm__GtkDial_view_only);
91
 
end;
92
 
 
93
 
{$Endif read_implementation}