← Back to branch summary

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

« back to all changes in this revision

Viewing changes to packages/extra/gtk/gtk/gtkgamma.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/gtkgamma.pp
1
 
{
2
 
   $Id: gtkgamma.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
 
     PGtkGammaCurve = ^TGtkGammaCurve;
13
 
     TGtkGammaCurve = record
14
 
          vbox : TGtkVBox;
15
 
          table : PGtkWidget;
16
 
          curve : PGtkWidget;
17
 
          button : array[0..4] of PGtkWidget;
18
 
          gamma : gfloat;
19
 
          gamma_dialog : PGtkWidget;
20
 
          gamma_text : PGtkWidget;
21
 
       end;
22
 
 
23
 
     PGtkGammaCurveClass = ^TGtkGammaCurveClass;
24
 
     TGtkGammaCurveClass = record
25
 
          parent_class : TGtkVBoxClass;
26
 
       end;
27
 
 
28
 
type
29
 
  GTK_GAMMA_CURVE=PGtkGammaCurve;
30
 
  GTK_GAMMA_CURVE_CLASS=PGtkGammaCurveClass;
31
 
 
32
 
function  GTK_GAMMA_CURVE_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_gamma_curve_get_type';
33
 
function  GTK_IS_GAMMA_CURVE(obj:pointer):boolean;
34
 
function  GTK_IS_GAMMA_CURVE_CLASS(klass:pointer):boolean;
35
 
 
36
 
function  gtk_gamma_curve_get_type:TGtkType;cdecl;external gtkdll name 'gtk_gamma_curve_get_type';
37
 
function  gtk_gamma_curve_new :PGtkWidget;cdecl;external gtkdll name 'gtk_gamma_curve_new';
38
 
 
39
 
{$endif read_interface}
40
 
 
41
 
 
42
 
{****************************************************************************
43
 
                              Implementation
44
 
****************************************************************************}
45
 
 
46
 
{$ifdef read_implementation}
47
 
 
48
 
function  GTK_IS_GAMMA_CURVE(obj:pointer):boolean;
49
 
begin
50
 
  GTK_IS_GAMMA_CURVE:=(obj<>nil) and GTK_IS_GAMMA_CURVE_CLASS(PGtkTypeObject(obj)^.klass);
51
 
end;
52
 
 
53
 
function  GTK_IS_GAMMA_CURVE_CLASS(klass:pointer):boolean;
54
 
begin
55
 
  GTK_IS_GAMMA_CURVE_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_GAMMA_CURVE_TYPE);
56
 
end;
57
 
 
58
 
{$endif read_implementation}
59
 
 
60
 
 
61
 
{
62
 
  $Log: gtkgamma.pp,v $
63
 
  Revision 1.2  2002/09/07 15:42:59  peter
64
 
    * old logs removed and tabs fixed
65
 
 
66
 
  Revision 1.1  2002/01/29 17:55:11  peter
67
 
    * splitted to base and extra
68
 
 
69
 
}