← 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/gnomeprocbar.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/gnomeprocbar.inc
1
 
{$IfDef read_interface}
2
 
 
3
 
type
4
 
   TGnomeProcbarCallback = function (_para1:gpointer):gint; cdecl;
5
 
   
6
 
   PGnomeProcBar = ^TGnomeProcBar;
7
 
   TGnomeProcBar = record
8
 
        hbox : TGtkHBox;
9
 
        bar : PGtkWidget;
10
 
        thelabel : PGtkWidget;
11
 
        frame : PGtkWidget;
12
 
        flag0 : word;
13
 
        bs : PGdkPixmap;
14
 
        colors : PGdkColor;
15
 
        colors_allocated : gint;
16
 
        first_request : gint;
17
 
        n : gint;
18
 
        tag : gint;
19
 
        last : Pdword;
20
 
        cb : TGnomeProcbarCallback;
21
 
        cb_data : gpointer;
22
 
     end;
23
 
   GNOME_PROC_BAR = PGnomeProcBar;
24
 
 
25
 
const
26
 
   bm__GnomeProcBar_vertical = $1;
27
 
   bp__GnomeProcBar_vertical = 0;
28
 
function vertical(var a : TGnomeProcBar) : gboolean;
29
 
procedure set_vertical(var a : TGnomeProcBar; __vertical : gboolean);
30
 
type
31
 
   PGnomeProcBarClass = ^TGnomeProcBarClass;
32
 
   TGnomeProcBarClass = record
33
 
        parent_class : TGtkHBoxClass;
34
 
     end;
35
 
   GNOME_PROC_BAR_CLASS = PGnomeProcBarClass;
36
 
 
37
 
function GNOME_TYPE_PROC_BAR : TGTKType;
38
 
function GNOME_IS_PROC_BAR(obj : Pointer) : Boolean;
39
 
function GNOME_IS_PROC_BAR_CLASS(klass : Pointer) : Boolean;
40
 
 
41
 
function gnome_proc_bar_get_type:TGTKTYPE;cdecl;external libgnomeuidll name 'gnome_proc_bar_get_type';
42
 
function gnome_proc_bar_new(thelabel:PGtkWidget; n:gint; colors:PGdkColor; cb : TGnomeProcbarCallback):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_proc_bar_new';
43
 
procedure gnome_proc_bar_construct(pb:PGnomeProcBar; thelabel:PGtkWidget; n:gint; colors:PGdkColor; cb:TGnomeProcbarCallback);cdecl;external libgnomeuidll name 'gnome_proc_bar_construct';
44
 
procedure gnome_proc_bar_set_values(pb:PGnomeProcBar; val:Pguint);cdecl;external libgnomeuidll name 'gnome_proc_bar_set_values';
45
 
procedure gnome_proc_bar_set_orient(pb:PGnomeProcBar; vertical:gboolean);cdecl;external libgnomeuidll name 'gnome_proc_bar_set_orient';
46
 
procedure gnome_proc_bar_start(pb:PGnomeProcBar; gtime:gint; data:gpointer);cdecl;external libgnomeuidll name 'gnome_proc_bar_start';
47
 
procedure gnome_proc_bar_stop(pb:PGnomeProcBar);cdecl;external libgnomeuidll name 'gnome_proc_bar_stop';
48
 
procedure gnome_proc_bar_update(pb:PGnomeProcBar; colors:PGdkColor);cdecl;external libgnomeuidll name 'gnome_proc_bar_update';
49
 
 
50
 
{$EndIf read_interface}
51
 
 
52
 
{$Ifdef read_implementation}
53
 
 
54
 
function GNOME_TYPE_PROC_BAR : TGTKType;
55
 
begin
56
 
  GNOME_TYPE_PROC_BAR:=gnome_proc_bar_get_type;
57
 
end;
58
 
 
59
 
function GNOME_IS_PROC_BAR(obj : Pointer) : Boolean;
60
 
begin
61
 
   GNOME_IS_PROC_BAR:=(obj<>nil) and GNOME_IS_PROC_BAR_CLASS(PGtkTypeObject(obj)^.klass);
62
 
end;
63
 
 
64
 
function GNOME_IS_PROC_BAR_CLASS(klass : Pointer) : Boolean;
65
 
begin
66
 
   GNOME_IS_PROC_BAR_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_PROC_BAR);
67
 
end;
68
 
 
69
 
function vertical(var a : TGnomeProcBar) : gboolean;
70
 
begin
71
 
   vertical:=gboolean((a.flag0 and bm__GnomeProcBar_vertical) shr bp__GnomeProcBar_vertical);
72
 
end;
73
 
 
74
 
procedure set_vertical(var a : TGnomeProcBar; __vertical : gboolean);
75
 
begin
76
 
   a.flag0:=a.flag0 or ((gint(__vertical) shl bp__GnomeProcBar_vertical) and bm__GnomeProcBar_vertical);
77
 
end;
78
 
 
79
 
{$Endif read_implementation}