1// included by gtk2.pas 2 3{$IFDEF read_forward_definitions} 4{$ENDIF read_forward_definitions} 5 6//------------------------------------------------------------------------------ 7 8{$IFDEF read_interface_types} 9 PGtkDrawingArea = ^TGtkDrawingArea; 10 TGtkDrawingArea = record 11 widget : TGtkWidget; 12 draw_data : gpointer; 13 end; 14 15{ Padding for future expansion } 16 PGtkDrawingAreaClass = ^TGtkDrawingAreaClass; 17 TGtkDrawingAreaClass = record 18 parent_class : TGtkWidgetClass; 19 _gtk_reserved1 : procedure ; cdecl; 20 _gtk_reserved2 : procedure ; cdecl; 21 _gtk_reserved3 : procedure ; cdecl; 22 _gtk_reserved4 : procedure ; cdecl; 23 end; 24 25{$ENDIF read_interface_types} 26 27//------------------------------------------------------------------------------ 28 29{$IFDEF read_interface_rest} 30function GTK_TYPE_DRAWING_AREA : GType; 31function GTK_DRAWING_AREA(obj: pointer) : PGtkDrawingArea; 32function GTK_DRAWING_AREA_CLASS(klass: pointer) : PGtkDrawingAreaClass; 33function GTK_IS_DRAWING_AREA(obj: pointer) : boolean; 34function GTK_IS_DRAWING_AREA_CLASS(klass: pointer) : boolean; 35function GTK_DRAWING_AREA_GET_CLASS(obj: pointer) : PGtkDrawingAreaClass; 36 37 38function gtk_drawing_area_get_type:TGtkType; cdecl; external gtklib; 39function gtk_drawing_area_new:PGtkWidget; cdecl; external gtklib; 40 41{$ifndef GTK_DISABLE_DEPRECATED} 42procedure gtk_drawing_area_size(darea:PGtkDrawingArea; width:gint; height:gint); cdecl; external gtklib; 43{$endif} 44{ GTK_DISABLE_DEPRECATED } 45 46{$ENDIF read_interface_rest} 47 48//------------------------------------------------------------------------------ 49 50{$IFDEF read_implementation} 51function GTK_TYPE_DRAWING_AREA : GType; 52begin 53 GTK_TYPE_DRAWING_AREA:=gtk_drawing_area_get_type; 54end; 55 56function GTK_DRAWING_AREA(obj: pointer) : PGtkDrawingArea; 57begin 58 GTK_DRAWING_AREA:=PGtkDrawingArea(GTK_CHECK_CAST(obj,GTK_TYPE_DRAWING_AREA)); 59end; 60 61function GTK_DRAWING_AREA_CLASS(klass: pointer) : PGtkDrawingAreaClass; 62begin 63 GTK_DRAWING_AREA_CLASS:=PGtkDrawingAreaClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_DRAWING_AREA)); 64end; 65 66function GTK_IS_DRAWING_AREA(obj: pointer) : boolean; 67begin 68 GTK_IS_DRAWING_AREA:=GTK_CHECK_TYPE(obj,GTK_TYPE_DRAWING_AREA); 69end; 70 71function GTK_IS_DRAWING_AREA_CLASS(klass: pointer) : boolean; 72begin 73 GTK_IS_DRAWING_AREA_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_DRAWING_AREA); 74end; 75 76function GTK_DRAWING_AREA_GET_CLASS(obj: pointer) : PGtkDrawingAreaClass; 77begin 78 GTK_DRAWING_AREA_GET_CLASS:=PGtkDrawingAreaClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_DRAWING_AREA)); 79end; 80 81{$ENDIF read_implementation} 82// included by gtk2.pas 83 84