← 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/gtkdialog.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/gtkdialog.inc
 
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
{ Parameters for dialog construction  }
 
10
{ call gtk_window_set_modal (win, TRUE)  }
 
11
{ call gtk_window_set_destroy_with_parent ()  }
 
12
{ no separator bar above buttons  }
 
13
   PGtkDialogFlags = ^TGtkDialogFlags;
 
14
   TGtkDialogFlags = longint;
 
15
 
 
16
 
 
17
{ Convenience enum to use for response_id's.  Positive values are
 
18
   totally user-interpreted. GTK will sometimes return
 
19
   GTK_RESPONSE_NONE if no response_id is available.
 
20
 
 
21
    Typical usage is:
 
22
       if (gtk_dialog_run(dialog) = GTK_RESPONSE_ACCEPT) then
 
23
         DoSomethingOnSuccess;
 
24
  }
 
25
{ GTK returns this if a response widget has no response_id,
 
26
     or if the dialog gets programmatically hidden or destroyed.
 
27
    }
 
28
{ GTK won't return these unless you pass them in
 
29
     as the response for an action widget. They are
 
30
     for your convenience.
 
31
    }
 
32
{ If the dialog is deleted.  }
 
33
{ These are returned from GTK dialogs, and you can also use them
 
34
     yourself if you like.
 
35
    }
 
36
 
 
37
   PGtkResponseType = ^TGtkResponseType;
 
38
   TGtkResponseType = longint;
 
39
 
 
40
 
 
41
{< private > }
 
42
   PGtkDialog = ^TGtkDialog;
 
43
   TGtkDialog = record
 
44
        window : TGtkWindow;
 
45
        vbox : PGtkWidget;
 
46
        action_area : PGtkWidget;
 
47
        separator : PGtkWidget;
 
48
     end;
 
49
 
 
50
{ Keybinding signals  }
 
51
{ Padding for future expansion  }
 
52
   PGtkDialogClass = ^TGtkDialogClass;
 
53
   TGtkDialogClass = record
 
54
        parent_class : TGtkWindowClass;
 
55
        response : procedure (dialog:PGtkDialog; response_id:gint); cdecl;
 
56
        close : procedure (dialog:PGtkDialog); cdecl;
 
57
        _gtk_reserved1 : procedure ; cdecl;
 
58
        _gtk_reserved2 : procedure ; cdecl;
 
59
        _gtk_reserved3 : procedure ; cdecl;
 
60
        _gtk_reserved4 : procedure ; cdecl;
 
61
     end;
 
62
 
 
63
{$ENDIF read_interface_types}
 
64
 
 
65
//------------------------------------------------------------------------------
 
66
 
 
67
{$IFDEF read_interface_rest}
 
68
const
 
69
   GTK_DIALOG_MODAL = 1 shl 0;
 
70
   GTK_DIALOG_DESTROY_WITH_PARENT = 1 shl 1;
 
71
   GTK_DIALOG_NO_SEPARATOR = 1 shl 2;
 
72
 
 
73
   GTK_RESPONSE_NONE = -(1);
 
74
   GTK_RESPONSE_REJECT = -(2);
 
75
   GTK_RESPONSE_ACCEPT = -(3);
 
76
   GTK_RESPONSE_DELETE_EVENT = -(4);
 
77
   GTK_RESPONSE_OK = -(5);
 
78
   GTK_RESPONSE_CANCEL = -(6);
 
79
   GTK_RESPONSE_CLOSE = -(7);
 
80
   GTK_RESPONSE_YES = -(8);
 
81
   GTK_RESPONSE_NO = -(9);
 
82
   GTK_RESPONSE_APPLY = -(10);
 
83
   GTK_RESPONSE_HELP = -(11);
 
84
 
 
85
 
 
86
function GTK_TYPE_DIALOG : GType;
 
87
function GTK_DIALOG(obj: pointer) : PGtkDialog;
 
88
function GTK_DIALOG_CLASS(klass: pointer) : PGtkDialogClass;
 
89
function GTK_IS_DIALOG(obj: pointer) : boolean;
 
90
function GTK_IS_DIALOG_CLASS(klass: pointer) : boolean;
 
91
function GTK_DIALOG_GET_CLASS(obj: pointer) : PGtkDialogClass;
 
92
 
 
93
 
 
94
function gtk_dialog_get_type:TGtkType; cdecl; external gtklib;
 
95
function gtk_dialog_new:PGtkWidget; cdecl; external gtklib;
 
96
{$IFNDEF KYLIX}
 
97
function gtk_dialog_new_with_buttons(title:Pgchar; parent:PGtkWindow; flags:TGtkDialogFlags; first_button_text:Pgchar; args:array of const):PGtkWidget; cdecl; overload; external gtklib;
 
98
function gtk_dialog_new_with_buttons(title:Pgchar; parent:PGtkWindow; flags:TGtkDialogFlags; first_button_text:Pgchar):PGtkWidget; cdecl; overload; varargs; external gtklib;
 
99
{$ELSE}
 
100
function gtk_dialog_new_with_buttons(title:Pgchar; parent:PGtkWindow; flags:TGtkDialogFlags; first_button_text:Pgchar):PGtkWidget; varargs; cdecl; external gtklib;
 
101
{$ENDIF}
 
102
procedure gtk_dialog_add_action_widget(dialog:PGtkDialog; child:PGtkWidget; response_id:gint); cdecl; external gtklib;
 
103
function gtk_dialog_add_button(dialog:PGtkDialog; button_text:Pgchar; response_id:gint):PGtkWidget; cdecl; external gtklib;
 
104
{$IFNDEF KYLIX}
 
105
procedure gtk_dialog_add_buttons(dialog:PGtkDialog; first_button_text:Pgchar; args:array of const); overload; cdecl; external gtklib;
 
106
procedure gtk_dialog_add_buttons(dialog:PGtkDialog; first_button_text:Pgchar); cdecl; overload; varargs; external gtklib;
 
107
{$ELSE}
 
108
procedure gtk_dialog_add_buttons(dialog:PGtkDialog; first_button_text:Pgchar); varargs; cdecl; external gtklib;
 
109
{$ENDIF}
 
110
procedure gtk_dialog_set_response_sensitive(dialog:PGtkDialog; response_id:gint; setting:gboolean); cdecl; external gtklib;
 
111
procedure gtk_dialog_set_default_response(dialog:PGtkDialog; response_id:gint); cdecl; external gtklib;
 
112
procedure gtk_dialog_set_has_separator(dialog:PGtkDialog; setting:gboolean); cdecl; external gtklib;
 
113
function gtk_dialog_get_has_separator(dialog:PGtkDialog):gboolean; cdecl; external gtklib;
 
114
{ Emit response signal  }
 
115
procedure gtk_dialog_response(dialog:PGtkDialog; response_id:gint); cdecl; external gtklib;
 
116
{ Returns response_id  }
 
117
function gtk_dialog_run(dialog:PGtkDialog):gint; cdecl; external gtklib;
 
118
{$ENDIF read_interface_rest}
 
119
 
 
120
//------------------------------------------------------------------------------
 
121
 
 
122
{$IFDEF read_implementation}
 
123
function GTK_TYPE_DIALOG : GType;
 
124
begin
 
125
   GTK_TYPE_DIALOG:=gtk_dialog_get_type;
 
126
end;
 
127
 
 
128
function GTK_DIALOG(obj: pointer) : PGtkDialog;
 
129
begin
 
130
   GTK_DIALOG:=PGtkDialog(GTK_CHECK_CAST(obj,GTK_TYPE_DIALOG));
 
131
end;
 
132
 
 
133
function GTK_DIALOG_CLASS(klass: pointer) : PGtkDialogClass;
 
134
begin
 
135
   GTK_DIALOG_CLASS:=PGtkDialogClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_DIALOG));
 
136
end;
 
137
 
 
138
function GTK_IS_DIALOG(obj: pointer) : boolean;
 
139
begin
 
140
   GTK_IS_DIALOG:=GTK_CHECK_TYPE(obj,GTK_TYPE_DIALOG);
 
141
end;
 
142
 
 
143
function GTK_IS_DIALOG_CLASS(klass: pointer) : boolean;
 
144
begin
 
145
   GTK_IS_DIALOG_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_DIALOG);
 
146
end;
 
147
 
 
148
function GTK_DIALOG_GET_CLASS(obj: pointer) : PGtkDialogClass;
 
149
begin
 
150
   GTK_DIALOG_GET_CLASS:=PGtkDialogClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_DIALOG));
 
151
end;
 
152
 
 
153
{$ENDIF read_implementation}
 
154
// included by gtk2.pas
 
155