← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to packages/extra/gtk/gtk/gtkadjustment.pp

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2004-08-12 16:29:37 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20040812162937-moo8ulvysp1ln771
Tags: 1.9.4-5
http://bugs.debian.org/265265
fp-compiler: needs ld, adding dependency on binutils.  (Closes: #265265)

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/extra/gtk/gtk/gtkadjustment.pp
 
1
{
 
2
   $Id: gtkadjustment.pp,v 1.2 2002/09/07 15:42:59 peter Exp $
 
3
}
 
4
 
 
5
{****************************************************************************
 
6
                                 Interface
 
7
****************************************************************************}
 
8
 
 
9
{$ifdef read_interface}
 
10
 
 
11
   type
 
12
     PGtkAdjustment = ^TGtkAdjustment;
 
13
     TGtkAdjustment = record
 
14
          data : TGtkData;
 
15
          lower : gfloat;
 
16
          upper : gfloat;
 
17
          value : gfloat;
 
18
          step_increment : gfloat;
 
19
          page_increment : gfloat;
 
20
          page_size : gfloat;
 
21
       end;
 
22
 
 
23
     AdjustProc = procedure (adjustment:PGtkAdjustment);cdecl;
 
24
 
 
25
     PGtkAdjustmentClass = ^TGtkAdjustmentClass;
 
26
     TGtkAdjustmentClass = record
 
27
          parent_class : TGtkDataClass;
 
28
          changed : AdjustProc;
 
29
          value_changed : AdjustProc;
 
30
       end;
 
31
 
 
32
type
 
33
  GTK_ADJUSTMENT=PGtkAdjustment;
 
34
  GTK_ADJUSTMENT_CLASS=PGtkAdjustmentClass;
 
35
 
 
36
function  GTK_ADJUSTMENT_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_adjustment_get_type';
 
37
function  GTK_IS_ADJUSTMENT(obj:pointer):boolean;
 
38
function  GTK_IS_ADJUSTMENT_CLASS(klass:pointer):boolean;
 
39
 
 
40
function  gtk_adjustment_get_type:TGtkType;cdecl;external gtkdll name 'gtk_adjustment_get_type';
 
41
function  gtk_adjustment_new(value:gfloat; lower:gfloat; upper:gfloat; step_increment:gfloat; page_increment:gfloat;page_size:gfloat):PGtkObject;cdecl;external gtkdll name 'gtk_adjustment_new';
 
42
procedure gtk_adjustment_changed(adjustment:PGtkAdjustment);cdecl;external gtkdll name 'gtk_adjustment_changed';
 
43
procedure gtk_adjustment_value_changed(adjustment:PGtkAdjustment);cdecl;external gtkdll name 'gtk_adjustment_value_changed';
 
44
procedure gtk_adjustment_clamp_page(adjustment:PGtkAdjustment; lower:gfloat; upper:gfloat);cdecl;external gtkdll name 'gtk_adjustment_clamp_page';
 
45
procedure gtk_adjustment_set_value(adjustment:PGtkAdjustment; value:gfloat);cdecl;external gtkdll name 'gtk_adjustment_set_value';
 
46
 
 
47
{$endif read_interface}
 
48
 
 
49
 
 
50
{****************************************************************************
 
51
                              Implementation
 
52
****************************************************************************}
 
53
 
 
54
{$ifdef read_implementation}
 
55
 
 
56
function  GTK_IS_ADJUSTMENT(obj:pointer):boolean;
 
57
begin
 
58
  GTK_IS_ADJUSTMENT:=(obj<>nil) and GTK_IS_ADJUSTMENT_CLASS(PGtkTypeObject(obj)^.klass);
 
59
end;
 
60
 
 
61
function  GTK_IS_ADJUSTMENT_CLASS(klass:pointer):boolean;
 
62
begin
 
63
  GTK_IS_ADJUSTMENT_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_ADJUSTMENT_TYPE);
 
64
end;
 
65
 
 
66
{$endif read_implementation}
 
67
 
 
68
{
 
69
  $Log: gtkadjustment.pp,v $
 
70
  Revision 1.2  2002/09/07 15:42:59  peter
 
71
    * old logs removed and tabs fixed
 
72
 
 
73
  Revision 1.1  2002/01/29 17:55:08  peter
 
74
    * splitted to base and extra
 
75
 
 
76
}