1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
|
unit libgnomeui;
{off $DEFINE GNOME_EXCLUDE_EXPERIMENTAL}
{$PACKRECORDS C}
{$mode objfpc}
interface
Uses glib, gdk, gdk_imlib, gtk, libgnome, libart;
const
libgnomeuidll='gnomeui';
Type
va_list = pchar;
{$define read_interface}
{$undef read_implementation}
(* GNOME initialization *)
{$include gnomeinit.inc}
(* GTK Helper Widgets *)
{$include gtkpixmapmenuitem.inc}(* Menu item diplaying pixmap *)
{$include gtkclock.inc}(* clock widget for counting or realtime *)
{$include gtkdial.inc}(* Analog dial widget for number selection *)
(* GNOME MISC. Types/Routines/Consts *)
type
TGnomeStringCallback = procedure (_string:Pgchar; data:gpointer);cdecl;
TGnomeReplyCallback = procedure (reply:gint; data:gpointer);cdecl;
TGnomePreferencesType = (GNOME_PREFERENCES_NEVER,GNOME_PREFERENCES_USER,
GNOME_PREFERENCES_ALWAYS);
{$include gnomeuidefs.inc} (* GNOME KEY CONST DEFINES *)
{$include gnomegeometry.inc} (* WINDOW Geometry <-> String *)
{$include gnometypebuiltins.inc} (* GTK type macros *)
{$include gnomeicontext.inc}(* object & routines for painting word-wrapped text *)
{$include gnomewinhints.inc} (* Convenience functions for working with XA_WIN_* hints *)
{$include gnomedentryedit.inc} (* object(not widget) for handling the editing of Desktop entries *)
(* GNOME MISC. Required Widgets *)
{$include gnomepixmap.inc} (* widget for diplaying pixmaps *)
{$include gnomedialog.inc} (* base dialog class *)
{$include gnomemessagebox.inc}(* message/error dialog class *)
{$include gnomeclient.inc} (*routines to add session-management to apps *)
(* GNOME APP. Core widgets *)
{$include gnomeabout.inc} (* Dialog for creating app. about box *)
{$include gnomedock.inc} (* Docking Widget/Items & Layout *)
{$include gnomeapp.inc} (* Main App Window, simplifies toolbars, menus etc. *)
{$include gnomeappbar.inc} (* Main App bar, Status, progress, etc *)
(* GNOME STOCK WIDGETS/ROUTINES *)
{$include gnomestock.inc} (* Stock images/icons *)
{$include gnomeapphelper.inc} (* Simplify stock menu/toolbar creation *)
{$include gnomedialogutil.inc}(* Simplify message/error dialog creation *)
{$ifndef GNOME_EXCLUDE_EXPERIMENTAL}
{$include gnomeapputil.inc} (* App. Message Dialogs and Progress modifications *)
{$endif}
{$include gnomepopupmenu.inc} (* routines for handling popup menus and attaching to widgets *)
{$include gnomepopuphelp.inc} (* add help, Cut, Copy & Paste menu to Widgets *)
(* GNOME ENTRY(aka Edit) Widgets *)
{$include gnomedateedit.inc}(* Entry For Date & Time *)
{$include gnomeentry.inc} (* Entry with History *)
{$include gnomefileentry.inc} (* Entry For File Names *)
{$include gnomeiconentry.inc}(* Entry for selecting icons *)
{$include gnomenumberentry.inc}(* Entry for number input *)
{$include gnomepixmapentry.inc} (* Entry For large images *)
(* GNOME "Select" Widgets *)
{$include gnomecolorpicker.inc} (* button tied to color dialog *)
{$include gnomefontpicker.inc} (* button tied to font dialog *)
{$include gnomepaperselector.inc} (* Widget used to select paper type *)
{$include gnomeiconsel.inc}(* Widget used to select an icon *)
(* GNOME Muliple Document Interface *)
{$include gnomemdichild.inc}
{$include gnomemdigenericchild.inc}
{$include gnomemdi.inc}
{$include gnomemdisession.inc}
(* GNOME Canvas & Types *)
{$include gnomecanvas.inc}
{$include gnomecanvasline.inc}
{$include gnomecanvasimage.inc}
{$include gnomecanvasload.inc}
{$include gnomecanvasrectellipse.inc}
{$include gnomecanvaspolygon.inc}
{$include gnomecanvastext.inc}
{$include gnomecanvaswidget.inc}
{$include gnomeiconitem.inc}
{$include gnomecanvasutil.inc}
(* GNOME Misc. Widgets *)
{$include gnomecalculator.inc} (* fully functional embedable dialog widget *)
{$include gnomeiconlist.inc} (* Icon list widget *)
{$include gnomehref.inc} (* icon for displaying clickable url *)
{$include gnomeprocbar.inc} (* Gnome Process Bar *)
{$ifndef GNOME_EXCLUDE_EXPERIMENTAL}
{$include gnomeanimator.inc}
{$endif}
{$include gnomescores.inc} (* Game Dialog for displaying High scores *)
{$include gnomepropertybox.inc} (* Dialog Box for handling property configuration *)
(* GNOME Druid Wizard System *)
{$include gnomedruidpage.inc}
{$include gnomedruidpagestart.inc}
{$include gnomedruidpagestandard.inc}
{$include gnomedruidpagefinish.inc}
{$include gnomedruid.inc}
implementation
{$undef read_interface}
{$define read_implementation}
(* GTK Helper Widgets *)
{$include gtkpixmapmenuitem.inc}(* Menu item diplaying pixmap *)
{$include gtkclock.inc}(* clock widget for counting or realtime *)
{$include gtkdial.inc}(* Analog dial widget for number selection *)
(* GNOME MISC. Types/Routines/Consts *)
{$include gnomeuidefs.inc} (* GNOME KEY CONST DEFINES *)
{$include gnomegeometry.inc} (* WINDOW Geometry <-> String *)
{$include gnomeicontext.inc}(* object & routines for painting word-wrapped text *)
{$include gnometypebuiltins.inc} (* GTK type macros *)
{$include gnomewinhints.inc} (* Convenience functions for working with XA_WIN_* hints *)
{$include gnomedentryedit.inc} (* object(not widget) for handling the editing of Desktop entries *)
(* GNOME MISC. Required Widgets *)
{$include gnomepixmap.inc} (* widget for diplaying pixmaps *)
{$include gnomedialog.inc} (* base dialog class *)
{$include gnomemessagebox.inc}(* message/error dialog class *)
{$include gnomeclient.inc} (*routines to add session-management to apps *)
(* GNOME APP. Core widgets *)
{$include gnomeabout.inc} (* Dialog for creating app. about box *)
{$include gnomedock.inc} (* Docking Widget/Items & Layout *)
{$include gnomeapp.inc} (* Main App Window, simplifies toolbars, menus etc. *)
{$include gnomeappbar.inc} (* Main App bar, Status, progress, etc *)
(* GNOME STOCK WIDGETS/ROUTINES *)
{$include gnomestock.inc} (* Stock images/icons *)
{$include gnomeapphelper.inc} (* Simplify stock menu/toolbar creation *)
{$include gnomedialogutil.inc}(* Simplify message/error dialog creation *)
{$ifndef GNOME_EXCLUDE_EXPERIMENTAL}
{$include gnomeapputil.inc} (* App. Message Dialogs and Progress modifications *)
{$endif}
{$include gnomepopupmenu.inc} (* routines for handling popup menus and attaching to widgets *)
{$include gnomepopuphelp.inc} (* add help, Cut, Copy & Paste menu to Widgets *)
(* GNOME ENTRY(aka Edit) Widgets *)
{$include gnomedateedit.inc}(* Entry For Date & Time *)
{$include gnomeentry.inc} (* Entry with History *)
{$include gnomefileentry.inc} (* Entry For File Names *)
{$include gnomeiconentry.inc}(* Entry for selecting icons *)
{$include gnomenumberentry.inc}(* Entry for number input *)
{$include gnomepixmapentry.inc} (* Entry For large images *)
(* GNOME "Select" Widgets *)
{$include gnomecolorpicker.inc} (* button tied to color dialog *)
{$include gnomefontpicker.inc} (* button tied to font dialog *)
{$include gnomepaperselector.inc} (* Widget used to select paper type *)
{$include gnomeiconsel.inc}(* Widget used to select an icon *)
(* GNOME Muliple Document Interface *)
{$include gnomemdichild.inc}
{$include gnomemdigenericchild.inc}
{$include gnomemdi.inc}
{$include gnomemdisession.inc}
(* GNOME Canvas & Types *)
{$include gnomecanvas.inc}
{$include gnomecanvasline.inc}
{$include gnomecanvasimage.inc}
{$include gnomecanvasload.inc}
{$include gnomecanvasrectellipse.inc}
{$include gnomecanvaspolygon.inc}
{$include gnomecanvastext.inc}
{$include gnomecanvaswidget.inc}
{$include gnomeiconitem.inc}
{$include gnomecanvasutil.inc}
(* GNOME Misc. Widgets *)
{$include gnomecalculator.inc} (* fully functional embedable dialog widget *)
{$include gnomeiconlist.inc} (* Icon list widget *)
{$include gnomehref.inc} (* icon for displaying clickable url *)
{$include gnomeprocbar.inc} (* Gnome Process Bar *)
{$ifndef GNOME_EXCLUDE_EXPERIMENTAL}
{$include gnomeanimator.inc}
{$endif}
{$include gnomescores.inc} (* Game Dialog for displaying High scores *)
{$include gnomepropertybox.inc} (* Dialog Box for handling property configuration *)
(* GNOME Druid Wizard System *)
{$include gnomedruidpage.inc}
{$include gnomedruidpagestart.inc}
{$include gnomedruidpagestandard.inc}
{$include gnomedruidpagefinish.inc}
{$include gnomedruid.inc}
end.
|
