← Back to branch summary

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

« back to all changes in this revision

Viewing changes to packages/extra/gtk/gtk/gtkprogressbar.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:
packages/extra/gtk/gtk/gtkprogressbar.pp
1
 
{
2
 
   $Id: gtkprogressbar.pp,v 1.2 2002/09/07 15:43:00 peter Exp $
3
 
}
4
 
 
5
 
{****************************************************************************
6
 
                                 Interface
7
 
****************************************************************************}
8
 
 
9
 
{$ifdef read_interface}
10
 
 
11
 
  type
12
 
     TGtkProgressBarStyle = (GTK_PROGRESS_CONTINUOUS,GTK_PROGRESS_DISCRETE
13
 
       );
14
 
 
15
 
     TGtkProgressBarOrientation = (GTK_PROGRESS_LEFT_TO_RIGHT,GTK_PROGRESS_RIGHT_TO_LEFT,
16
 
       GTK_PROGRESS_BOTTOM_TO_TOP,GTK_PROGRESS_TOP_TO_BOTTOM
17
 
       );
18
 
 
19
 
     PGtkProgressBar = ^TGtkProgressBar;
20
 
     TGtkProgressBar = record
21
 
          progress : TGtkProgress;
22
 
          bar_style : TGtkProgressBarStyle;
23
 
          orientation : TGtkProgressBarOrientation;
24
 
          blocks : guint;
25
 
          in_block : gint;
26
 
          activity_pos : gint;
27
 
          activity_step : guint;
28
 
          activity_blocks : guint;
29
 
          flag0 : {$ifdef win32}longint{$else}word{$endif};
30
 
       end;
31
 
 
32
 
  const
33
 
     bm_TGtkProgressBar_activity_dir = $1;
34
 
     bp_TGtkProgressBar_activity_dir = 0;
35
 
function  activity_dir(var a : TGtkProgressBar) : guint;
36
 
procedure set_activity_dir(var a : TGtkProgressBar; __activity_dir : guint);
37
 
 
38
 
  type
39
 
     PGtkProgressBarClass = ^TGtkProgressBarClass;
40
 
     TGtkProgressBarClass = record
41
 
          parent_class : TGtkProgressClass;
42
 
       end;
43
 
 
44
 
Type
45
 
  GTK_PROGRESS_BAR=PGtkProgressBar;
46
 
  GTK_PROGRESS_BAR_CLASS=PGtkProgressBarClass;
47
 
 
48
 
function  GTK_PROGRESS_BAR_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_progress_bar_get_type';
49
 
function  GTK_IS_PROGRESS_BAR(obj:pointer):boolean;
50
 
function  GTK_IS_PROGRESS_BAR_CLASS(klass:pointer):boolean;
51
 
 
52
 
function  gtk_progress_bar_get_type:TGtkType;cdecl;external gtkdll name 'gtk_progress_bar_get_type';
53
 
function  gtk_progress_bar_new:PGtkWidget;cdecl;external gtkdll name 'gtk_progress_bar_new';
54
 
function  gtk_progress_bar_new_with_adjustment(adjustment:PGtkAdjustment):PGtkWidget;cdecl;external gtkdll name 'gtk_progress_bar_new_with_adjustment';
55
 
procedure gtk_progress_bar_set_bar_style(pbar:PGtkProgressBar; style:TGtkProgressBarStyle);cdecl;external gtkdll name 'gtk_progress_bar_set_bar_style';
56
 
procedure gtk_progress_bar_set_discrete_blocks(pbar:PGtkProgressBar; blocks:guint);cdecl;external gtkdll name 'gtk_progress_bar_set_discrete_blocks';
57
 
procedure gtk_progress_bar_set_activity_step(pbar:PGtkProgressBar; step:guint);cdecl;external gtkdll name 'gtk_progress_bar_set_activity_step';
58
 
procedure gtk_progress_bar_set_activity_blocks(pbar:PGtkProgressBar; blocks:guint);cdecl;external gtkdll name 'gtk_progress_bar_set_activity_blocks';
59
 
procedure gtk_progress_bar_set_orientation(pbar:PGtkProgressBar; orientation:TGtkProgressBarOrientation);cdecl;external gtkdll name 'gtk_progress_bar_set_orientation';
60
 
procedure gtk_progress_bar_update(pbar:PGtkProgressBar; percentage:gfloat);cdecl;external gtkdll name 'gtk_progress_bar_update';
61
 
 
62
 
{$endif read_interface}
63
 
 
64
 
 
65
 
{****************************************************************************
66
 
                              Implementation
67
 
****************************************************************************}
68
 
 
69
 
{$ifdef read_implementation}
70
 
 
71
 
function  activity_dir(var a : TGtkProgressBar) : guint;
72
 
    begin
73
 
       activity_dir:=(a.flag0 and bm_TGtkProgressBar_activity_dir) shr bp_TGtkProgressBar_activity_dir;
74
 
    end;
75
 
 
76
 
procedure set_activity_dir(var a : TGtkProgressBar; __activity_dir : guint);
77
 
    begin
78
 
       a.flag0:=a.flag0 or ((__activity_dir shl bp_TGtkProgressBar_activity_dir) and bm_TGtkProgressBar_activity_dir);
79
 
    end;
80
 
 
81
 
function  GTK_IS_PROGRESS_BAR(obj:pointer):boolean;
82
 
begin
83
 
  GTK_IS_PROGRESS_BAR:=(obj<>nil) and GTK_IS_PROGRESS_BAR_CLASS(PGtkTypeObject(obj)^.klass);
84
 
end;
85
 
 
86
 
function  GTK_IS_PROGRESS_BAR_CLASS(klass:pointer):boolean;
87
 
begin
88
 
  GTK_IS_PROGRESS_BAR_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_PROGRESS_BAR_TYPE);
89
 
end;
90
 
 
91
 
{$endif read_implementation}
92
 
 
93
 
 
94
 
{
95
 
  $Log: gtkprogressbar.pp,v $
96
 
  Revision 1.2  2002/09/07 15:43:00  peter
97
 
    * old logs removed and tabs fixed
98
 
 
99
 
  Revision 1.1  2002/01/29 17:55:13  peter
100
 
    * splitted to base and extra
101
 
 
102
 
}