1 files changed, 77 insertions, 0 deletions
diff --git a/packages/gtk1/src/gtk/gtkcurve.pp b/packages/gtk1/src/gtk/gtkcurve.pp
new file mode 100644
index 0000000000..d7a052c8fa
--- /dev/null
+++ b/packages/gtk1/src/gtk/gtkcurve.pp
@@ -0,0 +1,77 @@
+{
+}
+
+{****************************************************************************
+                                 Interface
+****************************************************************************}
+
+{$ifdef read_interface}
+
+  type
+     Tgfloatarray = Array[0..1] of gfloat;
+     PgfloatArray = ^TgfloatArray;
+
+     PGtkCurve = ^TGtkCurve;
+     TGtkCurve = record
+          graph : TGtkDrawingArea;
+          cursor_type : gint;
+          min_x : gfloat;
+          max_x : gfloat;
+          min_y : gfloat;
+          max_y : gfloat;
+          pixmap : PGdkPixmap;
+          curve_type : TGtkCurveType;
+          height : gint;
+          grab_point : gint;
+          last : gint;
+          num_points : gint;
+          point : PGdkPoint;
+          num_ctlpoints : gint;
+          ctlpoint : PgfloatArray;
+       end;
+
+     PGtkCurveClass = ^TGtkCurveClass;
+     TGtkCurveClass = record
+          parent_class : TGtkDrawingAreaClass;
+          curve_type_changed : procedure (curve:PGtkCurve); cdecl;
+       end;
+
+Type
+  GTK_CURVE=PGtkCurve;
+  GTK_CURVE_CLASS=PGtkCurveClass;
+
+function  GTK_CURVE_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_curve_get_type';
+function  GTK_IS_CURVE(obj:pointer):boolean;
+function  GTK_IS_CURVE_CLASS(klass:pointer):boolean;
+
+function  gtk_curve_get_type:TGtkType;cdecl;external gtkdll name 'gtk_curve_get_type';
+function  gtk_curve_new : PGtkWidget;cdecl;external gtkdll name 'gtk_curve_new';
+procedure gtk_curve_reset(curve:PGtkCurve);cdecl;external gtkdll name 'gtk_curve_reset';
+procedure gtk_curve_set_gamma(curve:PGtkCurve; gamma:gfloat);cdecl;external gtkdll name 'gtk_curve_set_gamma';
+procedure gtk_curve_set_range(curve:PGtkCurve; min_x:gfloat; max_x:gfloat; min_y:gfloat; max_y:gfloat);cdecl;external gtkdll name 'gtk_curve_set_range';
+procedure gtk_curve_get_vector(curve:PGtkCurve; veclen:longint; vector:Pgfloat);cdecl;external gtkdll name 'gtk_curve_get_vector';
+procedure gtk_curve_set_vector(curve:PGtkCurve; veclen:longint; vector:Pgfloat);cdecl;external gtkdll name 'gtk_curve_set_vector';
+procedure gtk_curve_set_curve_type(curve:PGtkCurve; thetype:TGtkCurveType);cdecl;external gtkdll name 'gtk_curve_set_curve_type';
+
+{$endif read_interface}
+
+
+{****************************************************************************
+                              Implementation
+****************************************************************************}
+
+{$ifdef read_implementation}
+
+function  GTK_IS_CURVE(obj:pointer):boolean;
+begin
+  GTK_IS_CURVE:=(obj<>nil) and GTK_IS_CURVE_CLASS(PGtkTypeObject(obj)^.klass);
+end;
+
+function  GTK_IS_CURVE_CLASS(klass:pointer):boolean;
+begin
+  GTK_IS_CURVE_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_CURVE_TYPE);
+end;
+
+{$endif read_implementation}
+
+