← Back to branch summary

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

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/gtk/gtk/gtkstyle.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:
fpcsrc/packages/extra/gtk/gtk/gtkstyle.pp
 
1
{
 
2
}
 
3
 
 
4
{****************************************************************************
 
5
                                 Interface
 
6
****************************************************************************}
 
7
 
 
8
{$ifdef read_interface}
 
9
 
 
10
{********************************
 
11
   Types inserted in gtkwidget
 
12
********************************}
 
13
 
 
14
    const
 
15
       GTK_STYLE_NUM_STYLECOLORS = 35;
 
16
 
 
17
function  GTK_STYLE_ATTACHED(style : PGtkstyle) : boolean;
 
18
 
 
19
function  gtk_style_new : PGtkStyle;cdecl;external gtkdll name 'gtk_style_new';
 
20
function  gtk_style_copy (style:PGtkStyle):PGtkStyle;cdecl;external gtkdll name 'gtk_style_copy';
 
21
function  gtk_style_attach (style:PGtkStyle; window:PGdkWindow):PGtkStyle;cdecl;external gtkdll name 'gtk_style_attach';
 
22
procedure gtk_style_detach(style:PGtkStyle);cdecl;external gtkdll name 'gtk_style_detach';
 
23
function  gtk_style_ref (style:PGtkStyle):PGtkStyle;cdecl;external gtkdll name 'gtk_style_ref';
 
24
procedure gtk_style_unref(style:PGtkStyle);cdecl;external gtkdll name 'gtk_style_unref';
 
25
procedure gtk_style_set_background(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType);cdecl;external gtkdll name 'gtk_style_set_background';
 
26
procedure gtk_style_apply_default_background(style:PGtkStyle; window:PGdkWindow; set_bg:gboolean; state_type:TGtkStateType; area:PGdkRectangle; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_style_apply_default_background';
 
27
 
 
28
procedure gtk_draw_hline(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; x1:gint; x2:gint; y:gint);cdecl;external gtkdll name 'gtk_draw_hline';
 
29
procedure gtk_draw_vline(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; y1:gint; y2:gint; x:gint);cdecl;external gtkdll name 'gtk_draw_vline';
 
30
procedure gtk_draw_shadow(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_draw_shadow';
 
31
procedure gtk_draw_polygon(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; points:PGdkPoint; npoints:gint; fill:gboolean);cdecl;external gtkdll name 'gtk_draw_polygon';
 
32
procedure gtk_draw_arrow(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; arrow_type:TGtkArrowType; fill:gboolean; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_draw_arrow';
 
33
procedure gtk_draw_diamond(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_draw_diamond';
 
34
procedure gtk_draw_oval(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_draw_oval';
 
35
procedure gtk_draw_string(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; x:gint; y:gint; thestring:Pgchar);cdecl;external gtkdll name 'gtk_draw_string';
 
36
procedure gtk_draw_box(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_draw_box';
 
37
{$ifndef gtkwin}
 
38
procedure gtk_draw_flat_box(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_draw_flat_box';
 
39
procedure gtk_draw_check(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_draw_check';
 
40
procedure gtk_draw_option(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_draw_option';
 
41
procedure gtk_draw_cross(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_draw_cross';
 
42
procedure gtk_draw_ramp(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; arrow_type:TGtkArrowType; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_draw_ramp';
 
43
procedure gtk_draw_tab(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_draw_tab';
 
44
procedure gtk_draw_shadow_gap(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; x:gint; y:gint; width:gint; height:gint; gap_side:TGtkPositionType; gap_x:gint; gap_width:gint);cdecl;external gtkdll name 'gtk_draw_shadow_gap';
 
45
procedure gtk_draw_box_gap(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; x:gint; y:gint; width:gint; height:gint; gap_side:TGtkPositionType; gap_x:gint; gap_width:gint);cdecl;external gtkdll name 'gtk_draw_box_gap';
 
46
procedure gtk_draw_extension(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; x:gint; y:gint; width:gint; height:gint; gap_side:TGtkPositionType);cdecl;external gtkdll name 'gtk_draw_extension';
 
47
procedure gtk_draw_focus(style:PGtkStyle; window:PGdkWindow; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_draw_focus';
 
48
procedure gtk_draw_slider(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; x:gint; y:gint; width:gint; height:gint; orientation:TGtkOrientation);cdecl;external gtkdll name 'gtk_draw_slider';
 
49
procedure gtk_draw_handle(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; x:gint; y:gint; width:gint; height:gint; orientation:TGtkOrientation);cdecl;external gtkdll name 'gtk_draw_handle';
 
50
{$endif}
 
51
 
 
52
procedure gtk_paint_hline(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x1:gint; x2:gint; y:gint);cdecl;external gtkdll name 'gtk_paint_hline';
 
53
procedure gtk_paint_vline(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; y1:gint; y2:gint; x:gint);cdecl;external gtkdll name 'gtk_paint_vline';
 
54
procedure gtk_paint_shadow(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_paint_shadow';
 
55
procedure gtk_paint_polygon(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; points:PGdkPoint; npoints:gint; fill:gboolean);cdecl;external gtkdll name 'gtk_paint_polygon';
 
56
procedure gtk_paint_arrow(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; arrow_type:TGtkArrowType; fill:gboolean; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_paint_arrow';
 
57
procedure gtk_paint_diamond(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_paint_diamond';
 
58
procedure gtk_paint_oval(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_paint_oval';
 
59
procedure gtk_paint_string(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x:gint; y:gint; thestring:Pgchar);cdecl;external gtkdll name 'gtk_paint_string';
 
60
procedure gtk_paint_box(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_paint_box';
 
61
procedure gtk_paint_flat_box(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_paint_flat_box';
 
62
procedure gtk_paint_check(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_paint_check';
 
63
procedure gtk_paint_option(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_paint_option';
 
64
procedure gtk_paint_cross(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_paint_cross';
 
65
procedure gtk_paint_ramp(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; arrow_type:TGtkArrowType; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_paint_ramp';
 
66
procedure gtk_paint_tab(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_paint_tab';
 
67
procedure gtk_paint_shadow_gap(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x:gint; y:gint; width:gint; height:gint; gap_side:TGtkPositionType; gap_x:gint; gap_width:gint);cdecl;external gtkdll name 'gtk_paint_shadow_gap';
 
68
procedure gtk_paint_box_gap(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x:gint; y:gint; width:gint; height:gint; gap_side:TGtkPositionType; gap_x:gint; gap_width:gint);cdecl;external gtkdll name 'gtk_paint_box_gap';
 
69
procedure gtk_paint_extension(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x:gint; y:gint; width:gint; height:gint; gap_side:TGtkPositionType);cdecl;external gtkdll name 'gtk_paint_extension';
 
70
procedure gtk_paint_focus(style:PGtkStyle; window:PGdkWindow; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x:gint; y:gint; width:gint; height:gint);cdecl;external gtkdll name 'gtk_paint_focus';
 
71
procedure gtk_paint_slider(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x:gint; y:gint; width:gint; height:gint; orientation:TGtkOrientation);cdecl;external gtkdll name 'gtk_paint_slider';
 
72
procedure gtk_paint_handle(style:PGtkStyle; window:PGdkWindow; state_type:TGtkStateType; shadow_type:TGtkShadowType; area:PGdkRectangle; widget:PGtkWidget; detail:Pgchar; x:gint; y:gint; width:gint; height:gint; orientation:TGtkOrientation);cdecl;external gtkdll name 'gtk_paint_handle';
 
73
 
 
74
{$endif read_interface}
 
75
 
 
76
 
 
77
{****************************************************************************
 
78
                              Implementation
 
79
****************************************************************************}
 
80
 
 
81
{$ifdef read_implementation}
 
82
 
 
83
function  GTK_STYLE_ATTACHED(style : PGtkstyle) : boolean;
 
84
      begin
 
85
         GTK_STYLE_ATTACHED:=(style^.attach_count) > 0;
 
86
      end;
 
87
 
 
88
{$endif read_implementation}
 
89
 
 
90