← Back to branch summary

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

« back to all changes in this revision

Viewing changes to packages/extra/gtk/gtk/gtkscale.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/gtkscale.pp
1
 
{
2
 
   $Id: gtkscale.pp,v 1.4 2004/05/02 19:14:47 jonas Exp $
3
 
}
4
 
 
5
 
{****************************************************************************
6
 
                                 Interface
7
 
****************************************************************************}
8
 
 
9
 
{$ifdef read_interface}
10
 
 
11
 
  type
12
 
     PGtkScale = ^TGtkScale;
13
 
     TGtkScale = record
14
 
          range : TGtkRange;
15
 
          flag0 : longint;
16
 
       end;
17
 
 
18
 
  const
19
 
     bm_TGtkScale_draw_value = $1;
20
 
     bp_TGtkScale_draw_value = 0;
21
 
     bm_TGtkScale_value_pos = $6;
22
 
     bp_TGtkScale_value_pos = 1;
23
 
function  draw_value(var a : TGtkScale) : guint;
24
 
procedure set_draw_value(var a : TGtkScale; __draw_value : guint);
25
 
function  value_pos(var a : TGtkScale) : guint;
26
 
procedure set_value_pos(var a : TGtkScale; __value_pos : guint);
27
 
 
28
 
  type
29
 
     PGtkScaleClass = ^TGtkScaleClass;
30
 
     TGtkScaleClass = record
31
 
          parent_class : TGtkRangeClass;
32
 
          slider_length : gint;
33
 
          value_spacing : gint;
34
 
          draw_value : procedure (scale:PGtkScale); cdecl;
35
 
       end;
36
 
 
37
 
Type
38
 
  GTK_SCALE=PGtkScale;
39
 
  GTK_SCALE_CLASS=PGtkScaleClass;
40
 
 
41
 
function  GTK_SCALE_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_scale_get_type';
42
 
function  GTK_IS_SCALE(obj:pointer):boolean;
43
 
function  GTK_IS_SCALE_CLASS(klass:pointer):boolean;
44
 
 
45
 
function  gtk_scale_get_type:TGtkType;cdecl;external gtkdll name 'gtk_scale_get_type';
46
 
procedure gtk_scale_set_digits(scale:PGtkScale; digits:gint);cdecl;external gtkdll name 'gtk_scale_set_digits';
47
 
procedure gtk_scale_set_draw_value(scale:PGtkScale; draw_value:gboolean);cdecl;external gtkdll name 'gtk_scale_set_draw_value';
48
 
procedure gtk_scale_set_value_pos(scale:PGtkScale; pos:TGtkPositionType);cdecl;external gtkdll name 'gtk_scale_set_value_pos';
49
 
procedure gtk_scale_draw_value(scale:PGtkScale);cdecl;external gtkdll name 'gtk_scale_draw_value';
50
 
{$ifndef gtkwin}
51
 
{$ifndef gtkdarwin}
52
 
function  gtk_scale_value_width(scale:PGtkScale):gint;cdecl;external gtkdll name 'gtk_scale_value_width';
53
 
{$endif not gtkdarwin}
54
 
{$endif}
55
 
 
56
 
{$endif read_interface}
57
 
 
58
 
 
59
 
{****************************************************************************
60
 
                              Implementation
61
 
****************************************************************************}
62
 
 
63
 
{$ifdef read_implementation}
64
 
 
65
 
function  draw_value(var a : TGtkScale) : guint;
66
 
    begin
67
 
       draw_value:=(a.flag0 and bm_TGtkScale_draw_value) shr bp_TGtkScale_draw_value;
68
 
    end;
69
 
 
70
 
procedure set_draw_value(var a : TGtkScale; __draw_value : guint);
71
 
    begin
72
 
       a.flag0:=a.flag0 or ((__draw_value shl bp_TGtkScale_draw_value) and bm_TGtkScale_draw_value);
73
 
    end;
74
 
 
75
 
function  value_pos(var a : TGtkScale) : guint;
76
 
    begin
77
 
       value_pos:=(a.flag0 and bm_TGtkScale_value_pos) shr bp_TGtkScale_value_pos;
78
 
    end;
79
 
 
80
 
procedure set_value_pos(var a : TGtkScale; __value_pos : guint);
81
 
    begin
82
 
       a.flag0:=a.flag0 or ((__value_pos shl bp_TGtkScale_value_pos) and bm_TGtkScale_value_pos);
83
 
    end;
84
 
 
85
 
function  GTK_IS_SCALE(obj:pointer):boolean;
86
 
begin
87
 
  GTK_IS_SCALE:=(obj<>nil) and GTK_IS_SCALE_CLASS(PGtkTypeObject(obj)^.klass);
88
 
end;
89
 
 
90
 
function  GTK_IS_SCALE_CLASS(klass:pointer):boolean;
91
 
begin
92
 
  GTK_IS_SCALE_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_SCALE_TYPE);
93
 
end;
94
 
 
95
 
{$endif read_implementation}
96
 
 
97
 
 
98
 
{
99
 
  $Log: gtkscale.pp,v $
100
 
  Revision 1.4  2004/05/02 19:14:47  jonas
101
 
    * fixed darwin incompatibilities
102
 
 
103
 
  Revision 1.3  2003/08/06 07:28:21  michael
104
 
  + Patch from Marc Weustinck to fix Win32 version
105
 
 
106
 
  Revision 1.2  2002/09/07 15:43:00  peter
107
 
    * old logs removed and tabs fixed
108
 
 
109
 
  Revision 1.1  2002/01/29 17:55:13  peter
110
 
    * splitted to base and extra
111
 
 
112
 
}