← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/packages/gtk2/src/gtk+/gtk/gtkhsv.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/gtk2/src/gtk+/gtk/gtkhsv.inc
 
1
{ Pointers to basic pascal types, inserted by h2pas conversion program.}
 
2
Type
 
3
  PLongint  = ^Longint;
 
4
  PSmallInt = ^SmallInt;
 
5
  PByte     = ^Byte;
 
6
  PWord     = ^Word;
 
7
  PDWord    = ^DWord;
 
8
  PDouble   = ^Double;
 
9
 
 
10
{$PACKRECORDS C}
 
11
 
 
12
{ HSV color selector for GTK+
 
13
 
 
14
   Copyright (C) 1999 The Free Software Foundation
 
15
 
 
16
   Authors: Simon Budig <Simon.Budig@unix-ag.org> (original code)
 
17
            Federico Mena-Quintero <federico@gimp.org> (cleanup for GTK+)
 
18
            Jonathan Blandford <jrb@redhat.com> (cleanup for GTK+)
 
19
 
 
20
   This library is free software; you can redistribute it and/or
 
21
   modify it under the terms of the GNU Lesser General Public
 
22
   License as published by the Free Software Foundation; either
 
23
   version 2 of the License, or (at your option) any later version.
 
24
 
 
25
   This library is distributed in the hope that it will be useful,
 
26
   but WITHOUT ANY WARRANTY; without even the implied warranty of
 
27
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
28
   Lesser General Public License for more details.
 
29
 
 
30
   You should have received a copy of the GNU Lesser General Public
 
31
   License along with this library; if not, write to the
 
32
   Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 
33
   Boston, MA 02111-1307, USA.
 
34
  }
 
35
{$ifndef __GTK_HSV_H__}
 
36
{$define __GTK_HSV_H__}
 
37
{
 
38
   Modified by the GTK+ Team and others 1997-2000.  See the AUTHORS
 
39
   file for a list of people on the GTK+ Team.  See the ChangeLog
 
40
   files for a list of changes.  These files are distributed with
 
41
   GTK+ at ftp://ftp.gtk.org/pub/gtk/.
 
42
  }
 
43
{$include gtkcontainer.inc}
 
44
{ C++ extern C conditionnal removed }
 
45
function GTK_TYPE_HSV : GType;
 
46
function GTK_HSV(obj: pointer) : longint;
 
47
function GTK_HSV_CLASS(klass: pointer) : longint;
 
48
function GTK_IS_HSV(obj: pointer) : boolean;
 
49
function GTK_IS_HSV_CLASS(klass: pointer) : boolean;
 
50
function GTK_HSV_GET_CLASS(obj: pointer) : longint;
 
51
 
 
52
type
 
53
{ Private data  }
 
54
   PGtkHSV = ^TGtkHSV;
 
55
   TGtkHSV = record
 
56
        parent_instance : TGtkWidget;
 
57
        priv : gpointer;
 
58
     end;
 
59
 
 
60
{ Notification signals  }
 
61
{ Keybindings  }
 
62
   PGtkHSVClass = ^TGtkHSVClass;
 
63
   TGtkHSVClass = record
 
64
        parent_class : TGtkWidgetClass;
 
65
        changed : procedure (hsv:PGtkHSV); cdecl;
 
66
        move : procedure (hsv:PGtkHSV; _type:TGtkDirectionType); cdecl;
 
67
     end;
 
68
 
 
69
 
 
70
function gtk_hsv_get_type:TGtkType; cdecl; external gtklib;
 
71
function gtk_hsv_new:PGtkWidget; cdecl; external gtklib;
 
72
procedure gtk_hsv_set_color(hsv:PGtkHSV; h:Tdouble; s:Tdouble; v:Tdouble); cdecl; external gtklib;
 
73
procedure gtk_hsv_get_color(hsv:PGtkHSV; h:Pgdouble; s:Pgdouble; v:Pgdouble); cdecl; external gtklib;
 
74
procedure gtk_hsv_set_metrics(hsv:PGtkHSV; size:gint; ring_width:gint); cdecl; external gtklib;
 
75
procedure gtk_hsv_get_metrics(hsv:PGtkHSV; size:Pgint; ring_width:Pgint); cdecl; external gtklib;
 
76
function gtk_hsv_is_adjusting(hsv:PGtkHSV):gboolean; cdecl; external gtklib;
 
77
procedure gtk_hsv_to_rgb(h:gdouble; s:gdouble; v:gdouble; r:Pgdouble; g:Pgdouble;
 
78
            b:Pgdouble); cdecl; external gtklib;
 
79
procedure gtk_rgb_to_hsv(r:gdouble; g:gdouble; b:gdouble; h:Pgdouble; s:Pgdouble;
 
80
            v:Pgdouble); cdecl; external gtklib;
 
81
{ C++ end of extern C conditionnal removed }
 
82
{$endif}
 
83
{ __GTK_HSV_H__  }
 
84
function GTK_TYPE_HSV : GType;
 
85
begin
 
86
   GTK_TYPE_HSV:=gtk_hsv_get_type;
 
87
end;
 
88
 
 
89
function GTK_HSV(obj: pointer) : PGtkHSV;
 
90
begin
 
91
   GTK_HSV:=PGtkHSV(GTK_CHECK_CAST(obj,GTK_TYPE_HSV));
 
92
end;
 
93
 
 
94
function GTK_HSV_CLASS(klass: pointer) : PGtkHSVClass;
 
95
begin
 
96
   GTK_HSV_CLASS:=PGtkHSVClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_HSV));
 
97
end;
 
98
 
 
99
function GTK_IS_HSV(obj: pointer) : boolean;
 
100
begin
 
101
   GTK_IS_HSV:=GTK_CHECK_TYPE(obj,GTK_TYPE_HSV);
 
102
end;
 
103
 
 
104
function GTK_IS_HSV_CLASS(klass: pointer) : boolean;
 
105
begin
 
106
   GTK_IS_HSV_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_HSV);
 
107
end;
 
108
 
 
109
function GTK_HSV_GET_CLASS(obj: pointer) : PGtkHSVClass;
 
110
begin
 
111
   GTK_HSV_GET_CLASS:=PGtkHSVClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_HSV));
 
112
end;
 
113
 
 
114