~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to packages/extra/gtk2/gtk+/gtk/gtkradioaction.inc

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
 
 
2
// included by gtk2.pas
 
3
 
 
4
{$IFDEF read_forward_definitions}
 
5
{$ENDIF read_forward_definitions}
 
6
 
 
7
{$IFDEF read_interface_types}
 
8
type
 
9
   PGtkRadioActionPrivate = pointer;
 
10
 
 
11
   PGtkRadioAction = ^TGtkRadioAction;
 
12
   TGtkRadioAction = record
 
13
        parent : TGtkToggleAction;
 
14
        private_data : PGtkRadioActionPrivate;
 
15
     end;
 
16
 
 
17
{ Padding for future expansion  }
 
18
   PGtkRadioActionClass = ^TGtkRadioActionClass;
 
19
   TGtkRadioActionClass = record
 
20
        parent_class : TGtkToggleActionClass;
 
21
        changed : procedure (action:PGtkRadioAction; current:PGtkRadioAction);cdecl;
 
22
        _gtk_reserved1 : procedure ;
 
23
        _gtk_reserved2 : procedure ;
 
24
        _gtk_reserved3 : procedure ;
 
25
        _gtk_reserved4 : procedure ;
 
26
     end;
 
27
 
 
28
{$ENDIF read_interface_types}
 
29
 
 
30
{$IFDEF read_interface_rest}
 
31
function GTK_TYPE_RADIO_ACTION : GType;
 
32
 
 
33
function GTK_RADIO_ACTION(obj : pointer) : PGtkRadioAction;
 
34
 
 
35
function GTK_RADIO_ACTION_CLASS(klass : pointer) : PGtkRadioActionClass;
 
36
 
 
37
function GTK_IS_RADIO_ACTION(obj : pointer) : gboolean;
 
38
 
 
39
function GTK_IS_RADIO_ACTION_CLASS(klass : pointer) : gboolean;
 
40
 
 
41
function GTK_RADIO_ACTION_GET_CLASS(obj : pointer) : PGtkRadioActionClass;
 
42
 
 
43
function gtk_radio_action_get_type:GType;cdecl;external gtklib name 'gtk_radio_action_get_type';
 
44
 
 
45
function gtk_radio_action_new(name:Pgchar; szLabel:Pgchar; tooltip:Pgchar; stock_id:Pgchar; value:gint):PGtkRadioAction;cdecl;external gtklib name 'gtk_radio_action_new';
 
46
 
 
47
function gtk_radio_action_get_group(action:PGtkRadioAction):PGSList;cdecl;external gtklib name 'gtk_radio_action_get_group';
 
48
 
 
49
procedure gtk_radio_action_set_group(action:PGtkRadioAction; group:PGSList);cdecl;external gtklib name 'gtk_radio_action_set_group';
 
50
 
 
51
function gtk_radio_action_get_current_value(action:PGtkRadioAction):gint;cdecl;external gtklib name 'gtk_radio_action_get_current_value';
 
52
 
 
53
{$ENDIF read_interface_rest}
 
54
 
 
55
{$IFDEF read_implementation}
 
56
function GTK_TYPE_RADIO_ACTION : GType;
 
57
  begin
 
58
     GTK_TYPE_RADIO_ACTION:=gtk_radio_action_get_type;
 
59
  end;
 
60
 
 
61
function GTK_RADIO_ACTION(obj : pointer) : PGtkRadioAction;
 
62
begin
 
63
   GTK_RADIO_ACTION:=PGtkRadioAction(G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_RADIO_ACTION));
 
64
end;
 
65
 
 
66
function GTK_RADIO_ACTION_CLASS(klass : pointer) : PGtkRadioActionClass;
 
67
begin
 
68
   GTK_RADIO_ACTION_CLASS:=PGtkRadioActionClass(G_TYPE_CHECK_CLASS_CAST(klass,GTK_TYPE_RADIO_ACTION));
 
69
end;
 
70
 
 
71
function GTK_IS_RADIO_ACTION(obj : pointer) : gboolean;
 
72
begin
 
73
   GTK_IS_RADIO_ACTION:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_RADIO_ACTION);
 
74
end;
 
75
 
 
76
function GTK_IS_RADIO_ACTION_CLASS(klass : pointer) : gboolean;
 
77
begin
 
78
   GTK_IS_RADIO_ACTION_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GTK_TYPE_RADIO_ACTION);
 
79
end;
 
80
 
 
81
function GTK_RADIO_ACTION_GET_CLASS(obj : pointer) : PGtkRadioActionClass;
 
82
begin
 
83
   GTK_RADIO_ACTION_GET_CLASS:=PGtkRadioActionClass(G_TYPE_INSTANCE_GET_CLASS(obj,GTK_TYPE_RADIO_ACTION));
 
84
end;
 
85
 
 
86
{$ENDIF read_implementation}