1 /* This file was automatically generated by make-gtk-proto */
2 /* Fri Apr 28 19:04:56 CEST 2000 */
3 /* enums=GtkTroughType,GtkFontMetricType,GdkByteOrder,GtkUpdateType,GtkCTreePos,GdkFontType,GtkSortType,GtkSelectionMode,GtkCTreeLineStyle,GtkPathType,GtkToolbarSpaceStyle,GdkInputSource,GdkJoinStyle,GtkScrollType,GtkPathPriorityType,GdkCapStyle,GdkPropertyState,GtkRcTokenType,GdkVisibilityState,GtkToolbarChildType,GtkProgressBarStyle,GtkSpinType,GtkJustification,GdkWindowClass,GtkFontFilterType,GtkSubmenuDirection,GtkCellType,GdkInputMode,GtkSideType,GtkCurveType,GtkVisibility,GdkWindowType,GtkCTreeExpansionType,GdkOverlapType,GtkOrientation,GtkArrowType,GtkMatchType,GdkStatus,GdkEventType,GdkSelectionType,GtkWindowType,GtkAnchorType,GtkDirectionType,GtkStateType,GtkPreviewType,GtkReliefStyle,GtkShadowType,GdkRgbDither,GtkMenuFactoryType,GtkFundamentalType,GdkExtensionMode,GdkAxisUse,GtkPolicyType,GdkImageType,GdkSelection,GtkProgressBarOrientation,GdkFilterReturn,GdkTarget,GdkSubwindowMode,GtkPositionType,GtkResizeMode,GdkFill,GtkMenuDirectionType,GdkColorContextMode,GtkCTreeExpanderStyle,GdkCrossingMode,GdkDragProtocol,GtkPackType,GtkToolbarStyle,GtkMetricType,GdkVisualType,GtkSpinButtonUpdatePolicy,GdkLineStyle,GdkNotifyType,GtkCornerType,GtkWindowPosition,GtkCListDragPos,GdkFillRule,GtkTreeViewMode,GdkCursorType,GdkPropMode,GtkButtonBoxStyle,GdkFunction,GtkSubmenuPlacement*/
4 /* flags=GdkWMFunction,GtkButtonAction,GdkWMDecoration,GtkCalendarDisplayOptions,GdkEventMask,GdkModifierType,GtkAttachOptions,GtkDebugFlag,GtkRcFlags,GtkPackerOptions,GtkObjectFlags,GdkICAttributesType,GtkAccelFlags,GdkInputCondition,GtkArgFlags,GtkPrivateFlags,GtkDestDefaults,GdkDragAction,GdkWindowHints,GtkWidgetFlags,GdkWindowAttributesType,GtkTargetFlags,GtkSignalRunType,GdkGCValuesMask,GdkIMStyle,GtkFontType*/
5 #include "s.h"
6 #include "sgtk.h"
sgtk_accel_group_new()7 SOBJ sgtk_accel_group_new ()
8 {
9 GtkAccelGroup* __retval__;
10
11 __retval__ = gtk_accel_group_new();
12 return(sgtk_object_new((void*)__retval__));
13 }
14
sgtk_accel_group_get_default()15 SOBJ sgtk_accel_group_get_default ()
16 {
17 GtkAccelGroup* __retval__;
18
19 __retval__ = gtk_accel_group_get_default();
20 return(sgtk_object_new((void*)__retval__));
21 }
22
sgtk_accel_group_ref(SOBJ o_accel_group)23 SOBJ sgtk_accel_group_ref (SOBJ o_accel_group)
24 {
25 GtkAccelGroup* accel_group;
26 GtkAccelGroup* __retval__;
27
28 accel_group = sgtk_get_AccelGroup(o_accel_group);
29 __retval__ = gtk_accel_group_ref(accel_group);
30 return(sgtk_object_new((void*)__retval__));
31 }
32
sgtk_accel_group_unref(SOBJ o_accel_group)33 SOBJ sgtk_accel_group_unref (SOBJ o_accel_group)
34 {
35 GtkAccelGroup* accel_group;
36
37 accel_group = sgtk_get_AccelGroup(o_accel_group);
38 gtk_accel_group_unref(accel_group);
39 return(scm_undefined);
40 }
41
sgtk_accel_group_attach(SOBJ o_accel_group,SOBJ o_object)42 SOBJ sgtk_accel_group_attach (SOBJ o_accel_group, SOBJ o_object)
43 {
44 GtkAccelGroup* accel_group;
45 GtkObject* object;
46
47 accel_group = sgtk_get_AccelGroup(o_accel_group);
48 object = sgtk_get_Object(o_object);
49 gtk_accel_group_attach(accel_group, object);
50 return(scm_undefined);
51 }
52
sgtk_accel_group_detach(SOBJ o_accel_group,SOBJ o_object)53 SOBJ sgtk_accel_group_detach (SOBJ o_accel_group, SOBJ o_object)
54 {
55 GtkAccelGroup* accel_group;
56 GtkObject* object;
57
58 accel_group = sgtk_get_AccelGroup(o_accel_group);
59 object = sgtk_get_Object(o_object);
60 gtk_accel_group_detach(accel_group, object);
61 return(scm_undefined);
62 }
63
sgtk_accel_group_lock(SOBJ o_accel_group)64 SOBJ sgtk_accel_group_lock (SOBJ o_accel_group)
65 {
66 GtkAccelGroup* accel_group;
67
68 accel_group = sgtk_get_AccelGroup(o_accel_group);
69 gtk_accel_group_lock(accel_group);
70 return(scm_undefined);
71 }
72
sgtk_accel_group_unlock(SOBJ o_accel_group)73 SOBJ sgtk_accel_group_unlock (SOBJ o_accel_group)
74 {
75 GtkAccelGroup* accel_group;
76
77 accel_group = sgtk_get_AccelGroup(o_accel_group);
78 gtk_accel_group_unlock(accel_group);
79 return(scm_undefined);
80 }
81
sgtk_accel_group_activate(SOBJ o_accel_group,SOBJ o_accel_key,SOBJ o_accel_mods)82 SOBJ sgtk_accel_group_activate (SOBJ o_accel_group, SOBJ o_accel_key, SOBJ o_accel_mods)
83 {
84 GtkAccelGroup* accel_group;
85 guint accel_key;
86 GdkModifierType accel_mods;
87 gboolean __retval__;
88
89 accel_group = sgtk_get_AccelGroup(o_accel_group);
90 accel_key = scm_number2long(o_accel_key);
91 accel_mods = sgtk_flagsget("GdkModifierType", o_accel_mods);
92 __retval__ = gtk_accel_group_activate(accel_group, accel_key, accel_mods);
93 return(SCM_MKBOOL(__retval__));
94 }
95
sgtk_accel_groups_activate(SOBJ o_object,SOBJ o_accel_key,SOBJ o_accel_mods)96 SOBJ sgtk_accel_groups_activate (SOBJ o_object, SOBJ o_accel_key, SOBJ o_accel_mods)
97 {
98 GtkObject* object;
99 guint accel_key;
100 GdkModifierType accel_mods;
101 gboolean __retval__;
102
103 object = sgtk_get_Object(o_object);
104 accel_key = scm_number2long(o_accel_key);
105 accel_mods = sgtk_flagsget("GdkModifierType", o_accel_mods);
106 __retval__ = gtk_accel_groups_activate(object, accel_key, accel_mods);
107 return(SCM_MKBOOL(__retval__));
108 }
109
sgtk_accel_group_lock_entry(SOBJ o_accel_group,SOBJ o_accel_key,SOBJ o_accel_mods)110 SOBJ sgtk_accel_group_lock_entry (SOBJ o_accel_group, SOBJ o_accel_key, SOBJ o_accel_mods)
111 {
112 GtkAccelGroup* accel_group;
113 guint accel_key;
114 GdkModifierType accel_mods;
115
116 accel_group = sgtk_get_AccelGroup(o_accel_group);
117 accel_key = scm_number2long(o_accel_key);
118 accel_mods = sgtk_flagsget("GdkModifierType", o_accel_mods);
119 gtk_accel_group_lock_entry(accel_group, accel_key, accel_mods);
120 return(scm_undefined);
121 }
122
sgtk_accel_group_unlock_entry(SOBJ o_accel_group,SOBJ o_accel_key,SOBJ o_accel_mods)123 SOBJ sgtk_accel_group_unlock_entry (SOBJ o_accel_group, SOBJ o_accel_key, SOBJ o_accel_mods)
124 {
125 GtkAccelGroup* accel_group;
126 guint accel_key;
127 GdkModifierType accel_mods;
128
129 accel_group = sgtk_get_AccelGroup(o_accel_group);
130 accel_key = scm_number2long(o_accel_key);
131 accel_mods = sgtk_flagsget("GdkModifierType", o_accel_mods);
132 gtk_accel_group_unlock_entry(accel_group, accel_key, accel_mods);
133 return(scm_undefined);
134 }
135
136 #ifdef INCOMPLETE
137 /* +++ return type GtkAccelEntry* not defined */
sgtk_accel_group_get_entry(SOBJ o_accel_group,SOBJ o_accel_key,SOBJ o_accel_mods)138 SOBJ sgtk_accel_group_get_entry (SOBJ o_accel_group, SOBJ o_accel_key, SOBJ o_accel_mods)
139 {
140 GtkAccelGroup* accel_group;
141 guint accel_key;
142 GdkModifierType accel_mods;
143 GtkAccelEntry* __retval__;
144
145 accel_group = sgtk_get_AccelGroup(o_accel_group);
146 accel_key = scm_number2long(o_accel_key);
147 accel_mods = sgtk_flagsget("GdkModifierType", o_accel_mods);
148 __retval__ = gtk_accel_group_get_entry(accel_group, accel_key, accel_mods);
149 /* +++ don't know how to generate GtkAccelEntry* */
150 return(scm_undefined);
151 }
152 #endif /* INCOMPLETE */
153
sgtk_accel_group_add(SOBJ o_accel_group,SOBJ o_accel_key,SOBJ o_accel_mods,SOBJ o_accel_flags,SOBJ o_object,SOBJ o_accel_signal)154 SOBJ sgtk_accel_group_add (SOBJ o_accel_group, SOBJ o_accel_key, SOBJ o_accel_mods, SOBJ o_accel_flags, SOBJ o_object, SOBJ o_accel_signal)
155 {
156 GtkAccelGroup* accel_group;
157 guint accel_key;
158 GdkModifierType accel_mods;
159 GtkAccelFlags accel_flags;
160 GtkObject* object;
161 gchar* accel_signal;
162
163 accel_group = sgtk_get_AccelGroup(o_accel_group);
164 accel_key = scm_number2long(o_accel_key);
165 accel_mods = sgtk_flagsget("GdkModifierType", o_accel_mods);
166 accel_flags = sgtk_flagsget("GtkAccelFlags", o_accel_flags);
167 object = sgtk_get_Object(o_object);
168 accel_signal = scm_getstr(o_accel_signal);
169 gtk_accel_group_add(accel_group, accel_key, accel_mods, accel_flags, object, accel_signal);
170 return(scm_undefined);
171 }
172
sgtk_accel_group_handle_add(SOBJ o_object,SOBJ o_accel_signal_id,SOBJ o_accel_group,SOBJ o_accel_key,SOBJ o_accel_mods,SOBJ o_accel_flags)173 SOBJ sgtk_accel_group_handle_add (SOBJ o_object, SOBJ o_accel_signal_id, SOBJ o_accel_group, SOBJ o_accel_key, SOBJ o_accel_mods, SOBJ o_accel_flags)
174 {
175 GtkObject* object;
176 guint accel_signal_id;
177 GtkAccelGroup* accel_group;
178 guint accel_key;
179 GdkModifierType accel_mods;
180 GtkAccelFlags accel_flags;
181
182 object = sgtk_get_Object(o_object);
183 accel_signal_id = scm_number2long(o_accel_signal_id);
184 accel_group = sgtk_get_AccelGroup(o_accel_group);
185 accel_key = scm_number2long(o_accel_key);
186 accel_mods = sgtk_flagsget("GdkModifierType", o_accel_mods);
187 accel_flags = sgtk_flagsget("GtkAccelFlags", o_accel_flags);
188 gtk_accel_group_handle_add(object, accel_signal_id, accel_group, accel_key, accel_mods, accel_flags);
189 return(scm_undefined);
190 }
191
sgtk_accel_group_remove(SOBJ o_accel_group,SOBJ o_accel_key,SOBJ o_accel_mods,SOBJ o_object)192 SOBJ sgtk_accel_group_remove (SOBJ o_accel_group, SOBJ o_accel_key, SOBJ o_accel_mods, SOBJ o_object)
193 {
194 GtkAccelGroup* accel_group;
195 guint accel_key;
196 GdkModifierType accel_mods;
197 GtkObject* object;
198
199 accel_group = sgtk_get_AccelGroup(o_accel_group);
200 accel_key = scm_number2long(o_accel_key);
201 accel_mods = sgtk_flagsget("GdkModifierType", o_accel_mods);
202 object = sgtk_get_Object(o_object);
203 gtk_accel_group_remove(accel_group, accel_key, accel_mods, object);
204 return(scm_undefined);
205 }
206
sgtk_accel_group_handle_remove(SOBJ o_object,SOBJ o_accel_group,SOBJ o_accel_key,SOBJ o_accel_mods)207 SOBJ sgtk_accel_group_handle_remove (SOBJ o_object, SOBJ o_accel_group, SOBJ o_accel_key, SOBJ o_accel_mods)
208 {
209 GtkObject* object;
210 GtkAccelGroup* accel_group;
211 guint accel_key;
212 GdkModifierType accel_mods;
213
214 object = sgtk_get_Object(o_object);
215 accel_group = sgtk_get_AccelGroup(o_accel_group);
216 accel_key = scm_number2long(o_accel_key);
217 accel_mods = sgtk_flagsget("GdkModifierType", o_accel_mods);
218 gtk_accel_group_handle_remove(object, accel_group, accel_key, accel_mods);
219 return(scm_undefined);
220 }
221
sgtk_accel_group_create_add(SOBJ o_class_type,SOBJ o_signal_flags,SOBJ o_handler_offset)222 SOBJ sgtk_accel_group_create_add (SOBJ o_class_type, SOBJ o_signal_flags, SOBJ o_handler_offset)
223 {
224 GtkType class_type;
225 GtkSignalRunType signal_flags;
226 guint handler_offset;
227 guint __retval__;
228
229 class_type = scm_number2long(o_class_type);
230 signal_flags = sgtk_flagsget("GtkSignalRunType", o_signal_flags);
231 handler_offset = scm_number2long(o_handler_offset);
232 __retval__ = gtk_accel_group_create_add(class_type, signal_flags, handler_offset);
233 return(SCM_MKINUM(__retval__));
234 }
235
sgtk_accel_group_create_remove(SOBJ o_class_type,SOBJ o_signal_flags,SOBJ o_handler_offset)236 SOBJ sgtk_accel_group_create_remove (SOBJ o_class_type, SOBJ o_signal_flags, SOBJ o_handler_offset)
237 {
238 GtkType class_type;
239 GtkSignalRunType signal_flags;
240 guint handler_offset;
241 guint __retval__;
242
243 class_type = scm_number2long(o_class_type);
244 signal_flags = sgtk_flagsget("GtkSignalRunType", o_signal_flags);
245 handler_offset = scm_number2long(o_handler_offset);
246 __retval__ = gtk_accel_group_create_remove(class_type, signal_flags, handler_offset);
247 return(SCM_MKINUM(__retval__));
248 }
249
250 #ifdef INCOMPLETE
251 /* +++ return type GSList* not defined */
sgtk_accel_groups_from_object(SOBJ o_object)252 SOBJ sgtk_accel_groups_from_object (SOBJ o_object)
253 {
254 GtkObject* object;
255 GSList* __retval__;
256
257 object = sgtk_get_Object(o_object);
258 __retval__ = gtk_accel_groups_from_object(object);
259 /* +++ don't know how to generate GSList* */
260 return(scm_undefined);
261 }
262 #endif /* INCOMPLETE */
263
264 #ifdef INCOMPLETE
265 /* +++ return type GSList* not defined */
sgtk_accel_group_entries_from_object(SOBJ o_object)266 SOBJ sgtk_accel_group_entries_from_object (SOBJ o_object)
267 {
268 GtkObject* object;
269 GSList* __retval__;
270
271 object = sgtk_get_Object(o_object);
272 __retval__ = gtk_accel_group_entries_from_object(object);
273 /* +++ don't know how to generate GSList* */
274 return(scm_undefined);
275 }
276 #endif /* INCOMPLETE */
277
sgtk_accelerator_valid(SOBJ o_keyval,SOBJ o_modifiers)278 SOBJ sgtk_accelerator_valid (SOBJ o_keyval, SOBJ o_modifiers)
279 {
280 guint keyval;
281 GdkModifierType modifiers;
282 gboolean __retval__;
283
284 keyval = scm_number2long(o_keyval);
285 modifiers = sgtk_flagsget("GdkModifierType", o_modifiers);
286 __retval__ = gtk_accelerator_valid(keyval, modifiers);
287 return(SCM_MKBOOL(__retval__));
288 }
289
290 #ifdef INCOMPLETE
sgtk_accelerator_parse(SOBJ o_accelerator,SOBJ o_accelerator_key,SOBJ o_accelerator_mods)291 SOBJ sgtk_accelerator_parse (SOBJ o_accelerator, SOBJ o_accelerator_key, SOBJ o_accelerator_mods)
292 {
293 gchar* accelerator;
294 guint* accelerator_key;
295 GdkModifierType* accelerator_mods;
296
297 accelerator = scm_getstr(o_accelerator);
298 /* +++ undefined guint* */
299 /* +++ undefined GdkModifierType* */
300 gtk_accelerator_parse(accelerator, accelerator_key, accelerator_mods);
301 return(scm_undefined);
302 }
303 #endif /* INCOMPLETE */
304
sgtk_accelerator_name(SOBJ o_accelerator_key,SOBJ o_accelerator_mods)305 SOBJ sgtk_accelerator_name (SOBJ o_accelerator_key, SOBJ o_accelerator_mods)
306 {
307 guint accelerator_key;
308 GdkModifierType accelerator_mods;
309 gchar* __retval__;
310
311 accelerator_key = scm_number2long(o_accelerator_key);
312 accelerator_mods = sgtk_flagsget("GdkModifierType", o_accelerator_mods);
313 __retval__ = gtk_accelerator_name(accelerator_key, accelerator_mods);
314 return(scm_mkstring(__retval__));
315 }
316
sgtk_accelerator_set_default_mod_mask(SOBJ o_default_mod_mask)317 SOBJ sgtk_accelerator_set_default_mod_mask (SOBJ o_default_mod_mask)
318 {
319 GdkModifierType default_mod_mask;
320
321 default_mod_mask = sgtk_flagsget("GdkModifierType", o_default_mod_mask);
322 gtk_accelerator_set_default_mod_mask(default_mod_mask);
323 return(scm_undefined);
324 }
325
sgtk_accelerator_get_default_mod_mask()326 SOBJ sgtk_accelerator_get_default_mod_mask ()
327 {
328 guint __retval__;
329
330 __retval__ = gtk_accelerator_get_default_mod_mask();
331 return(SCM_MKINUM(__retval__));
332 }
333
sgtk_accel_label_get_type()334 SOBJ sgtk_accel_label_get_type ()
335 {
336 GtkType __retval__;
337
338 __retval__ = gtk_accel_label_get_type();
339 return(SCM_MKINUM(__retval__));
340 }
341
sgtk_accel_label_new(SOBJ o_string)342 SOBJ sgtk_accel_label_new (SOBJ o_string)
343 {
344 gchar* string;
345 GtkWidget* __retval__;
346
347 string = scm_getstr(o_string);
348 __retval__ = gtk_accel_label_new(string);
349 return(sgtk_object_new((void*)__retval__));
350 }
351
sgtk_accel_label_get_accel_width(SOBJ o_accel_label)352 SOBJ sgtk_accel_label_get_accel_width (SOBJ o_accel_label)
353 {
354 GtkAccelLabel* accel_label;
355 guint __retval__;
356
357 accel_label = sgtk_get_Object(o_accel_label);
358 __retval__ = gtk_accel_label_get_accel_width(accel_label);
359 return(SCM_MKINUM(__retval__));
360 }
361
sgtk_accel_label_set_accel_widget(SOBJ o_accel_label,SOBJ o_accel_widget)362 SOBJ sgtk_accel_label_set_accel_widget (SOBJ o_accel_label, SOBJ o_accel_widget)
363 {
364 GtkAccelLabel* accel_label;
365 GtkWidget* accel_widget;
366
367 accel_label = sgtk_get_Object(o_accel_label);
368 accel_widget = sgtk_get_Object(o_accel_widget);
369 gtk_accel_label_set_accel_widget(accel_label, accel_widget);
370 return(scm_undefined);
371 }
372
sgtk_accel_label_refetch(SOBJ o_accel_label)373 SOBJ sgtk_accel_label_refetch (SOBJ o_accel_label)
374 {
375 GtkAccelLabel* accel_label;
376 gboolean __retval__;
377
378 accel_label = sgtk_get_Object(o_accel_label);
379 __retval__ = gtk_accel_label_refetch(accel_label);
380 return(SCM_MKBOOL(__retval__));
381 }
382
sgtk_adjustment_get_type()383 SOBJ sgtk_adjustment_get_type ()
384 {
385 GtkType __retval__;
386
387 __retval__ = gtk_adjustment_get_type();
388 return(SCM_MKINUM(__retval__));
389 }
390
sgtk_adjustment_new(SOBJ o_value,SOBJ o_lower,SOBJ o_upper,SOBJ o_step_increment,SOBJ o_page_increment,SOBJ o_page_size)391 SOBJ sgtk_adjustment_new (SOBJ o_value, SOBJ o_lower, SOBJ o_upper, SOBJ o_step_increment, SOBJ o_page_increment, SOBJ o_page_size)
392 {
393 gfloat value;
394 gfloat lower;
395 gfloat upper;
396 gfloat step_increment;
397 gfloat page_increment;
398 gfloat page_size;
399 GtkObject* __retval__;
400
401 value = scm_number2double(o_value);
402 lower = scm_number2double(o_lower);
403 upper = scm_number2double(o_upper);
404 step_increment = scm_number2double(o_step_increment);
405 page_increment = scm_number2double(o_page_increment);
406 page_size = scm_number2double(o_page_size);
407 __retval__ = gtk_adjustment_new(value, lower, upper, step_increment, page_increment, page_size);
408 return(sgtk_object_new((void*)__retval__));
409 }
410
sgtk_adjustment_set_value(SOBJ o_adjustment,SOBJ o_value)411 SOBJ sgtk_adjustment_set_value (SOBJ o_adjustment, SOBJ o_value)
412 {
413 GtkAdjustment* adjustment;
414 gfloat value;
415
416 adjustment = sgtk_get_Object(o_adjustment);
417 value = scm_number2double(o_value);
418 gtk_adjustment_set_value(adjustment, value);
419 return(scm_undefined);
420 }
421
sgtk_adjustment_changed(SOBJ o_adjustment)422 SOBJ sgtk_adjustment_changed (SOBJ o_adjustment)
423 {
424 GtkAdjustment* adjustment;
425
426 adjustment = sgtk_get_Object(o_adjustment);
427 gtk_adjustment_changed(adjustment);
428 return(scm_undefined);
429 }
430
sgtk_adjustment_value_changed(SOBJ o_adjustment)431 SOBJ sgtk_adjustment_value_changed (SOBJ o_adjustment)
432 {
433 GtkAdjustment* adjustment;
434
435 adjustment = sgtk_get_Object(o_adjustment);
436 gtk_adjustment_value_changed(adjustment);
437 return(scm_undefined);
438 }
439
sgtk_adjustment_clamp_page(SOBJ o_adjustment,SOBJ o_lower,SOBJ o_upper)440 SOBJ sgtk_adjustment_clamp_page (SOBJ o_adjustment, SOBJ o_lower, SOBJ o_upper)
441 {
442 GtkAdjustment* adjustment;
443 gfloat lower;
444 gfloat upper;
445
446 adjustment = sgtk_get_Object(o_adjustment);
447 lower = scm_number2double(o_lower);
448 upper = scm_number2double(o_upper);
449 gtk_adjustment_clamp_page(adjustment, lower, upper);
450 return(scm_undefined);
451 }
452
sgtk_alignment_get_type()453 SOBJ sgtk_alignment_get_type ()
454 {
455 GtkType __retval__;
456
457 __retval__ = gtk_alignment_get_type();
458 return(SCM_MKINUM(__retval__));
459 }
460
sgtk_alignment_new(SOBJ o_xalign,SOBJ o_yalign,SOBJ o_xscale,SOBJ o_yscale)461 SOBJ sgtk_alignment_new (SOBJ o_xalign, SOBJ o_yalign, SOBJ o_xscale, SOBJ o_yscale)
462 {
463 gfloat xalign;
464 gfloat yalign;
465 gfloat xscale;
466 gfloat yscale;
467 GtkWidget* __retval__;
468
469 xalign = scm_number2double(o_xalign);
470 yalign = scm_number2double(o_yalign);
471 xscale = scm_number2double(o_xscale);
472 yscale = scm_number2double(o_yscale);
473 __retval__ = gtk_alignment_new(xalign, yalign, xscale, yscale);
474 return(sgtk_object_new((void*)__retval__));
475 }
476
sgtk_alignment_set(SOBJ o_alignment,SOBJ o_xalign,SOBJ o_yalign,SOBJ o_xscale,SOBJ o_yscale)477 SOBJ sgtk_alignment_set (SOBJ o_alignment, SOBJ o_xalign, SOBJ o_yalign, SOBJ o_xscale, SOBJ o_yscale)
478 {
479 GtkAlignment* alignment;
480 gfloat xalign;
481 gfloat yalign;
482 gfloat xscale;
483 gfloat yscale;
484
485 alignment = sgtk_get_Object(o_alignment);
486 xalign = scm_number2double(o_xalign);
487 yalign = scm_number2double(o_yalign);
488 xscale = scm_number2double(o_xscale);
489 yscale = scm_number2double(o_yscale);
490 gtk_alignment_set(alignment, xalign, yalign, xscale, yscale);
491 return(scm_undefined);
492 }
493
494 #ifdef INCOMPLETE
495 /* +++ return type GtkArgInfo* not defined */
sgtk_arg_type_new_static(SOBJ o_base_class_type,SOBJ o_arg_name,SOBJ o_class_n_args_offset,SOBJ o_arg_info_hash_table,SOBJ o_arg_type,SOBJ o_arg_flags,SOBJ o_arg_id)496 SOBJ sgtk_arg_type_new_static (SOBJ o_base_class_type, SOBJ o_arg_name, SOBJ o_class_n_args_offset, SOBJ o_arg_info_hash_table, SOBJ o_arg_type, SOBJ o_arg_flags, SOBJ o_arg_id)
497 {
498 GtkType base_class_type;
499 gchar* arg_name;
500 guint class_n_args_offset;
501 GHashTable* arg_info_hash_table;
502 GtkType arg_type;
503 guint arg_flags;
504 guint arg_id;
505 GtkArgInfo* __retval__;
506
507 base_class_type = scm_number2long(o_base_class_type);
508 arg_name = scm_getstr(o_arg_name);
509 class_n_args_offset = scm_number2long(o_class_n_args_offset);
510 /* +++ undefined GHashTable* */
511 arg_type = scm_number2long(o_arg_type);
512 arg_flags = scm_number2long(o_arg_flags);
513 arg_id = scm_number2long(o_arg_id);
514 __retval__ = gtk_arg_type_new_static(base_class_type, arg_name, class_n_args_offset, arg_info_hash_table, arg_type, arg_flags, arg_id);
515 /* +++ don't know how to generate GtkArgInfo* */
516 return(scm_undefined);
517 }
518 #endif /* INCOMPLETE */
519
sgtk_arg_name_strip_type(SOBJ o_arg_name)520 SOBJ sgtk_arg_name_strip_type (SOBJ o_arg_name)
521 {
522 gchar* arg_name;
523 gchar* __retval__;
524
525 arg_name = scm_getstr(o_arg_name);
526 __retval__ = gtk_arg_name_strip_type(arg_name);
527 return(scm_mkstring(__retval__));
528 }
529
530 #ifdef INCOMPLETE
sgtk_arg_get_info(SOBJ o_object_type,SOBJ o_arg_info_hash_table,SOBJ o_arg_name,SOBJ o_info_p)531 SOBJ sgtk_arg_get_info (SOBJ o_object_type, SOBJ o_arg_info_hash_table, SOBJ o_arg_name, SOBJ o_info_p)
532 {
533 GtkType object_type;
534 GHashTable* arg_info_hash_table;
535 gchar* arg_name;
536 GtkArgInfo** info_p;
537 gchar* __retval__;
538
539 object_type = scm_number2long(o_object_type);
540 /* +++ undefined GHashTable* */
541 arg_name = scm_getstr(o_arg_name);
542 /* +++ undefined GtkArgInfo** */
543 __retval__ = gtk_arg_get_info(object_type, arg_info_hash_table, arg_name, info_p);
544 return(scm_mkstring(__retval__));
545 }
546 #endif /* INCOMPLETE */
547
548 #ifdef INCOMPLETE
sgtk_args_collect(SOBJ o_object_type,SOBJ o_arg_info_hash_table,SOBJ o_arg_list_p,SOBJ o_info_list_p,SOBJ o_first_arg_name,SOBJ o_var_args)549 SOBJ sgtk_args_collect (SOBJ o_object_type, SOBJ o_arg_info_hash_table, SOBJ o_arg_list_p, SOBJ o_info_list_p, SOBJ o_first_arg_name, SOBJ o_var_args)
550 {
551 GtkType object_type;
552 GHashTable* arg_info_hash_table;
553 GSList** arg_list_p;
554 GSList** info_list_p;
555 gchar* first_arg_name;
556 va_list var_args;
557 gchar* __retval__;
558
559 object_type = scm_number2long(o_object_type);
560 /* +++ undefined GHashTable* */
561 /* +++ undefined GSList** */
562 /* +++ undefined GSList** */
563 first_arg_name = scm_getstr(o_first_arg_name);
564 /* +++ undefined va_list */
565 __retval__ = gtk_args_collect(object_type, arg_info_hash_table, arg_list_p, info_list_p, first_arg_name, var_args);
566 return(scm_mkstring(__retval__));
567 }
568 #endif /* INCOMPLETE */
569
570 #ifdef INCOMPLETE
sgtk_args_collect_cleanup(SOBJ o_arg_list,SOBJ o_info_list)571 SOBJ sgtk_args_collect_cleanup (SOBJ o_arg_list, SOBJ o_info_list)
572 {
573 GSList* arg_list;
574 GSList* info_list;
575
576 /* +++ undefined GSList* */
577 /* +++ undefined GSList* */
578 gtk_args_collect_cleanup(arg_list, info_list);
579 return(scm_undefined);
580 }
581 #endif /* INCOMPLETE */
582
583 #ifdef INCOMPLETE
584 /* +++ return type GtkArg* not defined */
sgtk_args_query(SOBJ o_class_type,SOBJ o_arg_info_hash_table,SOBJ o_arg_flags,SOBJ o_n_args_p)585 SOBJ sgtk_args_query (SOBJ o_class_type, SOBJ o_arg_info_hash_table, SOBJ o_arg_flags, SOBJ o_n_args_p)
586 {
587 GtkType class_type;
588 GHashTable* arg_info_hash_table;
589 guint32** arg_flags;
590 guint* n_args_p;
591 GtkArg* __retval__;
592
593 class_type = scm_number2long(o_class_type);
594 /* +++ undefined GHashTable* */
595 /* +++ undefined guint32** */
596 /* +++ undefined guint* */
597 __retval__ = gtk_args_query(class_type, arg_info_hash_table, arg_flags, n_args_p);
598 /* +++ don't know how to generate GtkArg* */
599 return(scm_undefined);
600 }
601 #endif /* INCOMPLETE */
602
603 #ifdef INCOMPLETE
604 /* +++ return type GtkArg* not defined */
sgtk_arg_new(SOBJ o_arg_type)605 SOBJ sgtk_arg_new (SOBJ o_arg_type)
606 {
607 GtkType arg_type;
608 GtkArg* __retval__;
609
610 arg_type = scm_number2long(o_arg_type);
611 __retval__ = gtk_arg_new(arg_type);
612 /* +++ don't know how to generate GtkArg* */
613 return(scm_undefined);
614 }
615 #endif /* INCOMPLETE */
616
617 #ifdef INCOMPLETE
618 /* +++ return type GtkArg* not defined */
sgtk_arg_copy(SOBJ o_src_arg,SOBJ o_dest_arg)619 SOBJ sgtk_arg_copy (SOBJ o_src_arg, SOBJ o_dest_arg)
620 {
621 GtkArg* src_arg;
622 GtkArg* dest_arg;
623 GtkArg* __retval__;
624
625 /* +++ undefined GtkArg* */
626 /* +++ undefined GtkArg* */
627 __retval__ = gtk_arg_copy(src_arg, dest_arg);
628 /* +++ don't know how to generate GtkArg* */
629 return(scm_undefined);
630 }
631 #endif /* INCOMPLETE */
632
633 #ifdef INCOMPLETE
sgtk_arg_free(SOBJ o_arg,SOBJ o_free_contents)634 SOBJ sgtk_arg_free (SOBJ o_arg, SOBJ o_free_contents)
635 {
636 GtkArg* arg;
637 gboolean free_contents;
638
639 /* +++ undefined GtkArg* */
640 free_contents = (o_free_contents != scm_false);
641 gtk_arg_free(arg, free_contents);
642 return(scm_undefined);
643 }
644 #endif /* INCOMPLETE */
645
646 #ifdef INCOMPLETE
sgtk_arg_reset(SOBJ o_arg)647 SOBJ sgtk_arg_reset (SOBJ o_arg)
648 {
649 GtkArg* arg;
650
651 /* +++ undefined GtkArg* */
652 gtk_arg_reset(arg);
653 return(scm_undefined);
654 }
655 #endif /* INCOMPLETE */
656
657 #ifdef INCOMPLETE
sgtk_arg_info_equal(SOBJ o_arg_info_1,SOBJ o_arg_info_2)658 SOBJ sgtk_arg_info_equal (SOBJ o_arg_info_1, SOBJ o_arg_info_2)
659 {
660 gconstpointer arg_info_1;
661 gconstpointer arg_info_2;
662 gint __retval__;
663
664 /* +++ get gconstpointer -> pointer failed */
665 /* +++ get gconstpointer -> pointer failed */
666 __retval__ = gtk_arg_info_equal(arg_info_1, arg_info_2);
667 return(SCM_MKINUM(__retval__));
668 }
669 #endif /* INCOMPLETE */
670
671 #ifdef INCOMPLETE
sgtk_arg_info_hash(SOBJ o_arg_info)672 SOBJ sgtk_arg_info_hash (SOBJ o_arg_info)
673 {
674 gconstpointer arg_info;
675 guint __retval__;
676
677 /* +++ get gconstpointer -> pointer failed */
678 __retval__ = gtk_arg_info_hash(arg_info);
679 return(SCM_MKINUM(__retval__));
680 }
681 #endif /* INCOMPLETE */
682
683 #ifdef INCOMPLETE
sgtk_arg_values_equal(SOBJ o_arg1,SOBJ o_arg2)684 SOBJ sgtk_arg_values_equal (SOBJ o_arg1, SOBJ o_arg2)
685 {
686 GtkArg* arg1;
687 GtkArg* arg2;
688 gboolean __retval__;
689
690 /* +++ undefined GtkArg* */
691 /* +++ undefined GtkArg* */
692 __retval__ = gtk_arg_values_equal(arg1, arg2);
693 return(SCM_MKBOOL(__retval__));
694 }
695 #endif /* INCOMPLETE */
696
697 #ifdef INCOMPLETE
sgtk_arg_to_valueloc(SOBJ o_arg,SOBJ o_value_pointer)698 SOBJ sgtk_arg_to_valueloc (SOBJ o_arg, SOBJ o_value_pointer)
699 {
700 GtkArg* arg;
701 gpointer value_pointer;
702
703 /* +++ undefined GtkArg* */
704 /* +++ get gpointer -> pointer failed */
705 gtk_arg_to_valueloc(arg, value_pointer);
706 return(scm_undefined);
707 }
708 #endif /* INCOMPLETE */
709
sgtk_arrow_get_type()710 SOBJ sgtk_arrow_get_type ()
711 {
712 GtkType __retval__;
713
714 __retval__ = gtk_arrow_get_type();
715 return(SCM_MKINUM(__retval__));
716 }
717
sgtk_arrow_new(SOBJ o_arrow_type,SOBJ o_shadow_type)718 SOBJ sgtk_arrow_new (SOBJ o_arrow_type, SOBJ o_shadow_type)
719 {
720 GtkArrowType arrow_type;
721 GtkShadowType shadow_type;
722 GtkWidget* __retval__;
723
724 arrow_type = sgtk_enumget("GtkArrowType", o_arrow_type);
725 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
726 __retval__ = gtk_arrow_new(arrow_type, shadow_type);
727 return(sgtk_object_new((void*)__retval__));
728 }
729
sgtk_arrow_set(SOBJ o_arrow,SOBJ o_arrow_type,SOBJ o_shadow_type)730 SOBJ sgtk_arrow_set (SOBJ o_arrow, SOBJ o_arrow_type, SOBJ o_shadow_type)
731 {
732 GtkArrow* arrow;
733 GtkArrowType arrow_type;
734 GtkShadowType shadow_type;
735
736 arrow = sgtk_get_Object(o_arrow);
737 arrow_type = sgtk_enumget("GtkArrowType", o_arrow_type);
738 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
739 gtk_arrow_set(arrow, arrow_type, shadow_type);
740 return(scm_undefined);
741 }
742
sgtk_aspect_frame_get_type()743 SOBJ sgtk_aspect_frame_get_type ()
744 {
745 GtkType __retval__;
746
747 __retval__ = gtk_aspect_frame_get_type();
748 return(SCM_MKINUM(__retval__));
749 }
750
sgtk_aspect_frame_new(SOBJ o_label,SOBJ o_xalign,SOBJ o_yalign,SOBJ o_ratio,SOBJ o_obey_child)751 SOBJ sgtk_aspect_frame_new (SOBJ o_label, SOBJ o_xalign, SOBJ o_yalign, SOBJ o_ratio, SOBJ o_obey_child)
752 {
753 gchar* label;
754 gfloat xalign;
755 gfloat yalign;
756 gfloat ratio;
757 gboolean obey_child;
758 GtkWidget* __retval__;
759
760 label = scm_getstr(o_label);
761 xalign = scm_number2double(o_xalign);
762 yalign = scm_number2double(o_yalign);
763 ratio = scm_number2double(o_ratio);
764 obey_child = (o_obey_child != scm_false);
765 __retval__ = gtk_aspect_frame_new(label, xalign, yalign, ratio, obey_child);
766 return(sgtk_object_new((void*)__retval__));
767 }
768
sgtk_aspect_frame_set(SOBJ o_aspect_frame,SOBJ o_xalign,SOBJ o_yalign,SOBJ o_ratio,SOBJ o_obey_child)769 SOBJ sgtk_aspect_frame_set (SOBJ o_aspect_frame, SOBJ o_xalign, SOBJ o_yalign, SOBJ o_ratio, SOBJ o_obey_child)
770 {
771 GtkAspectFrame* aspect_frame;
772 gfloat xalign;
773 gfloat yalign;
774 gfloat ratio;
775 gboolean obey_child;
776
777 aspect_frame = sgtk_get_Object(o_aspect_frame);
778 xalign = scm_number2double(o_xalign);
779 yalign = scm_number2double(o_yalign);
780 ratio = scm_number2double(o_ratio);
781 obey_child = (o_obey_child != scm_false);
782 gtk_aspect_frame_set(aspect_frame, xalign, yalign, ratio, obey_child);
783 return(scm_undefined);
784 }
785
sgtk_button_box_get_type()786 SOBJ sgtk_button_box_get_type ()
787 {
788 GtkType __retval__;
789
790 __retval__ = gtk_button_box_get_type();
791 return(SCM_MKINUM(__retval__));
792 }
793
sgtk_button_box_set_child_size_default(SOBJ o_width,SOBJ o_height)794 SOBJ sgtk_button_box_set_child_size_default (SOBJ o_width, SOBJ o_height)
795 {
796 gint width;
797 gint height;
798
799 width = scm_number2long(o_width);
800 height = scm_number2long(o_height);
801 gtk_button_box_set_child_size_default(width, height);
802 return(scm_undefined);
803 }
804
sgtk_button_box_set_child_ipadding_default(SOBJ o_ipad_x,SOBJ o_ipad_y)805 SOBJ sgtk_button_box_set_child_ipadding_default (SOBJ o_ipad_x, SOBJ o_ipad_y)
806 {
807 gint ipad_x;
808 gint ipad_y;
809
810 ipad_x = scm_number2long(o_ipad_x);
811 ipad_y = scm_number2long(o_ipad_y);
812 gtk_button_box_set_child_ipadding_default(ipad_x, ipad_y);
813 return(scm_undefined);
814 }
815
816 #ifdef INCOMPLETE
sgtk_button_box_get_child_size_default(SOBJ o_width,SOBJ o_height)817 SOBJ sgtk_button_box_get_child_size_default (SOBJ o_width, SOBJ o_height)
818 {
819 gint* width;
820 gint* height;
821
822 /* +++ undefined gint* */
823 /* +++ undefined gint* */
824 gtk_button_box_get_child_size_default(width, height);
825 return(scm_undefined);
826 }
827 #endif /* INCOMPLETE */
828
829 #ifdef INCOMPLETE
sgtk_button_box_get_child_ipadding_default(SOBJ o_ipad_x,SOBJ o_ipad_y)830 SOBJ sgtk_button_box_get_child_ipadding_default (SOBJ o_ipad_x, SOBJ o_ipad_y)
831 {
832 gint* ipad_x;
833 gint* ipad_y;
834
835 /* +++ undefined gint* */
836 /* +++ undefined gint* */
837 gtk_button_box_get_child_ipadding_default(ipad_x, ipad_y);
838 return(scm_undefined);
839 }
840 #endif /* INCOMPLETE */
841
sgtk_button_box_set_spacing(SOBJ o_widget,SOBJ o_spacing)842 SOBJ sgtk_button_box_set_spacing (SOBJ o_widget, SOBJ o_spacing)
843 {
844 GtkButtonBox* widget;
845 gint spacing;
846
847 widget = sgtk_get_Object(o_widget);
848 spacing = scm_number2long(o_spacing);
849 gtk_button_box_set_spacing(widget, spacing);
850 return(scm_undefined);
851 }
852
sgtk_button_box_set_child_size(SOBJ o_widget,SOBJ o_width,SOBJ o_height)853 SOBJ sgtk_button_box_set_child_size (SOBJ o_widget, SOBJ o_width, SOBJ o_height)
854 {
855 GtkButtonBox* widget;
856 gint width;
857 gint height;
858
859 widget = sgtk_get_Object(o_widget);
860 width = scm_number2long(o_width);
861 height = scm_number2long(o_height);
862 gtk_button_box_set_child_size(widget, width, height);
863 return(scm_undefined);
864 }
865
sgtk_button_box_set_child_ipadding(SOBJ o_widget,SOBJ o_ipad_x,SOBJ o_ipad_y)866 SOBJ sgtk_button_box_set_child_ipadding (SOBJ o_widget, SOBJ o_ipad_x, SOBJ o_ipad_y)
867 {
868 GtkButtonBox* widget;
869 gint ipad_x;
870 gint ipad_y;
871
872 widget = sgtk_get_Object(o_widget);
873 ipad_x = scm_number2long(o_ipad_x);
874 ipad_y = scm_number2long(o_ipad_y);
875 gtk_button_box_set_child_ipadding(widget, ipad_x, ipad_y);
876 return(scm_undefined);
877 }
878
sgtk_button_box_set_layout(SOBJ o_widget,SOBJ o_layout_style)879 SOBJ sgtk_button_box_set_layout (SOBJ o_widget, SOBJ o_layout_style)
880 {
881 GtkButtonBox* widget;
882 GtkButtonBoxStyle layout_style;
883
884 widget = sgtk_get_Object(o_widget);
885 layout_style = sgtk_enumget("GtkButtonBoxStyle", o_layout_style);
886 gtk_button_box_set_layout(widget, layout_style);
887 return(scm_undefined);
888 }
889
sgtk_button_box_get_spacing(SOBJ o_widget)890 SOBJ sgtk_button_box_get_spacing (SOBJ o_widget)
891 {
892 GtkButtonBox* widget;
893 gint __retval__;
894
895 widget = sgtk_get_Object(o_widget);
896 __retval__ = gtk_button_box_get_spacing(widget);
897 return(SCM_MKINUM(__retval__));
898 }
899
900 #ifdef INCOMPLETE
sgtk_button_box_get_child_size(SOBJ o_widget,SOBJ o_width,SOBJ o_height)901 SOBJ sgtk_button_box_get_child_size (SOBJ o_widget, SOBJ o_width, SOBJ o_height)
902 {
903 GtkButtonBox* widget;
904 gint* width;
905 gint* height;
906
907 widget = sgtk_get_Object(o_widget);
908 /* +++ undefined gint* */
909 /* +++ undefined gint* */
910 gtk_button_box_get_child_size(widget, width, height);
911 return(scm_undefined);
912 }
913 #endif /* INCOMPLETE */
914
915 #ifdef INCOMPLETE
sgtk_button_box_get_child_ipadding(SOBJ o_widget,SOBJ o_ipad_x,SOBJ o_ipad_y)916 SOBJ sgtk_button_box_get_child_ipadding (SOBJ o_widget, SOBJ o_ipad_x, SOBJ o_ipad_y)
917 {
918 GtkButtonBox* widget;
919 gint* ipad_x;
920 gint* ipad_y;
921
922 widget = sgtk_get_Object(o_widget);
923 /* +++ undefined gint* */
924 /* +++ undefined gint* */
925 gtk_button_box_get_child_ipadding(widget, ipad_x, ipad_y);
926 return(scm_undefined);
927 }
928 #endif /* INCOMPLETE */
929
sgtk_button_box_get_layout(SOBJ o_widget)930 SOBJ sgtk_button_box_get_layout (SOBJ o_widget)
931 {
932 GtkButtonBox* widget;
933 GtkButtonBoxStyle __retval__;
934
935 widget = sgtk_get_Object(o_widget);
936 __retval__ = gtk_button_box_get_layout(widget);
937 return(SCM_MKINUM(__retval__));
938 }
939
940 #ifdef INCOMPLETE
sgtk_button_box_child_requisition(SOBJ o_widget,SOBJ o_nvis_children,SOBJ o_width,SOBJ o_height)941 SOBJ sgtk_button_box_child_requisition (SOBJ o_widget, SOBJ o_nvis_children, SOBJ o_width, SOBJ o_height)
942 {
943 GtkWidget* widget;
944 int* nvis_children;
945 int* width;
946 int* height;
947
948 widget = sgtk_get_Object(o_widget);
949 /* +++ undefined int* */
950 /* +++ undefined int* */
951 /* +++ undefined int* */
952 gtk_button_box_child_requisition(widget, nvis_children, width, height);
953 return(scm_undefined);
954 }
955 #endif /* INCOMPLETE */
956
sgtk_bin_get_type()957 SOBJ sgtk_bin_get_type ()
958 {
959 GtkType __retval__;
960
961 __retval__ = gtk_bin_get_type();
962 return(SCM_MKINUM(__retval__));
963 }
964
965 #ifdef INCOMPLETE
966 /* +++ return type GtkBindingSet* not defined */
sgtk_binding_set_new(SOBJ o_set_name)967 SOBJ sgtk_binding_set_new (SOBJ o_set_name)
968 {
969 gchar* set_name;
970 GtkBindingSet* __retval__;
971
972 set_name = scm_getstr(o_set_name);
973 __retval__ = gtk_binding_set_new(set_name);
974 /* +++ don't know how to generate GtkBindingSet* */
975 return(scm_undefined);
976 }
977 #endif /* INCOMPLETE */
978
979 #ifdef INCOMPLETE
980 /* +++ return type GtkBindingSet* not defined */
sgtk_binding_set_by_class(SOBJ o_object_class)981 SOBJ sgtk_binding_set_by_class (SOBJ o_object_class)
982 {
983 gpointer object_class;
984 GtkBindingSet* __retval__;
985
986 /* +++ get gpointer -> pointer failed */
987 __retval__ = gtk_binding_set_by_class(object_class);
988 /* +++ don't know how to generate GtkBindingSet* */
989 return(scm_undefined);
990 }
991 #endif /* INCOMPLETE */
992
993 #ifdef INCOMPLETE
994 /* +++ return type GtkBindingSet* not defined */
sgtk_binding_set_find(SOBJ o_set_name)995 SOBJ sgtk_binding_set_find (SOBJ o_set_name)
996 {
997 gchar* set_name;
998 GtkBindingSet* __retval__;
999
1000 set_name = scm_getstr(o_set_name);
1001 __retval__ = gtk_binding_set_find(set_name);
1002 /* +++ don't know how to generate GtkBindingSet* */
1003 return(scm_undefined);
1004 }
1005 #endif /* INCOMPLETE */
1006
1007 #ifdef INCOMPLETE
sgtk_binding_set_activate(SOBJ o_binding_set,SOBJ o_keyval,SOBJ o_modifiers,SOBJ o_object)1008 SOBJ sgtk_binding_set_activate (SOBJ o_binding_set, SOBJ o_keyval, SOBJ o_modifiers, SOBJ o_object)
1009 {
1010 GtkBindingSet* binding_set;
1011 guint keyval;
1012 guint modifiers;
1013 GtkObject* object;
1014 gboolean __retval__;
1015
1016 /* +++ undefined GtkBindingSet* */
1017 keyval = scm_number2long(o_keyval);
1018 modifiers = scm_number2long(o_modifiers);
1019 object = sgtk_get_Object(o_object);
1020 __retval__ = gtk_binding_set_activate(binding_set, keyval, modifiers, object);
1021 return(SCM_MKBOOL(__retval__));
1022 }
1023 #endif /* INCOMPLETE */
1024
1025 #ifdef INCOMPLETE
sgtk_binding_entry_clear(SOBJ o_binding_set,SOBJ o_keyval,SOBJ o_modifiers)1026 SOBJ sgtk_binding_entry_clear (SOBJ o_binding_set, SOBJ o_keyval, SOBJ o_modifiers)
1027 {
1028 GtkBindingSet* binding_set;
1029 guint keyval;
1030 guint modifiers;
1031
1032 /* +++ undefined GtkBindingSet* */
1033 keyval = scm_number2long(o_keyval);
1034 modifiers = scm_number2long(o_modifiers);
1035 gtk_binding_entry_clear(binding_set, keyval, modifiers);
1036 return(scm_undefined);
1037 }
1038 #endif /* INCOMPLETE */
1039
1040 #ifdef INCOMPLETE
sgtk_binding_entry_remove(SOBJ o_binding_set,SOBJ o_keyval,SOBJ o_modifiers)1041 SOBJ sgtk_binding_entry_remove (SOBJ o_binding_set, SOBJ o_keyval, SOBJ o_modifiers)
1042 {
1043 GtkBindingSet* binding_set;
1044 guint keyval;
1045 guint modifiers;
1046
1047 /* +++ undefined GtkBindingSet* */
1048 keyval = scm_number2long(o_keyval);
1049 modifiers = scm_number2long(o_modifiers);
1050 gtk_binding_entry_remove(binding_set, keyval, modifiers);
1051 return(scm_undefined);
1052 }
1053 #endif /* INCOMPLETE */
1054
1055 #ifdef INCOMPLETE
sgtk_binding_entry_add_signall(SOBJ o_binding_set,SOBJ o_keyval,SOBJ o_modifiers,SOBJ o_signal_name,SOBJ o_binding_args)1056 SOBJ sgtk_binding_entry_add_signall (SOBJ o_binding_set, SOBJ o_keyval, SOBJ o_modifiers, SOBJ o_signal_name, SOBJ o_binding_args)
1057 {
1058 GtkBindingSet* binding_set;
1059 guint keyval;
1060 guint modifiers;
1061 gchar* signal_name;
1062 GSList* binding_args;
1063
1064 /* +++ undefined GtkBindingSet* */
1065 keyval = scm_number2long(o_keyval);
1066 modifiers = scm_number2long(o_modifiers);
1067 signal_name = scm_getstr(o_signal_name);
1068 /* +++ undefined GSList* */
1069 gtk_binding_entry_add_signall(binding_set, keyval, modifiers, signal_name, binding_args);
1070 return(scm_undefined);
1071 }
1072 #endif /* INCOMPLETE */
1073
1074 #ifdef INCOMPLETE
sgtk_binding_set_add_path(SOBJ o_binding_set,SOBJ o_path_type,SOBJ o_path_pattern,SOBJ o_priority)1075 SOBJ sgtk_binding_set_add_path (SOBJ o_binding_set, SOBJ o_path_type, SOBJ o_path_pattern, SOBJ o_priority)
1076 {
1077 GtkBindingSet* binding_set;
1078 GtkPathType path_type;
1079 gchar* path_pattern;
1080 GtkPathPriorityType priority;
1081
1082 /* +++ undefined GtkBindingSet* */
1083 path_type = sgtk_enumget("GtkPathType", o_path_type);
1084 path_pattern = scm_getstr(o_path_pattern);
1085 priority = sgtk_enumget("GtkPathPriorityType", o_priority);
1086 gtk_binding_set_add_path(binding_set, path_type, path_pattern, priority);
1087 return(scm_undefined);
1088 }
1089 #endif /* INCOMPLETE */
1090
sgtk_bindings_activate(SOBJ o_object,SOBJ o_keyval,SOBJ o_modifiers)1091 SOBJ sgtk_bindings_activate (SOBJ o_object, SOBJ o_keyval, SOBJ o_modifiers)
1092 {
1093 GtkObject* object;
1094 guint keyval;
1095 guint modifiers;
1096 gboolean __retval__;
1097
1098 object = sgtk_get_Object(o_object);
1099 keyval = scm_number2long(o_keyval);
1100 modifiers = scm_number2long(o_modifiers);
1101 __retval__ = gtk_bindings_activate(object, keyval, modifiers);
1102 return(SCM_MKBOOL(__retval__));
1103 }
1104
1105 #ifdef INCOMPLETE
sgtk_pattern_match(SOBJ o_pspec,SOBJ o_string_length,SOBJ o_string,SOBJ o_string_reversed)1106 SOBJ sgtk_pattern_match (SOBJ o_pspec, SOBJ o_string_length, SOBJ o_string, SOBJ o_string_reversed)
1107 {
1108 GtkPatternSpec* pspec;
1109 guint string_length;
1110 gchar* string;
1111 gchar* string_reversed;
1112 gboolean __retval__;
1113
1114 /* +++ undefined GtkPatternSpec* */
1115 string_length = scm_number2long(o_string_length);
1116 string = scm_getstr(o_string);
1117 string_reversed = scm_getstr(o_string_reversed);
1118 __retval__ = gtk_pattern_match(pspec, string_length, string, string_reversed);
1119 return(SCM_MKBOOL(__retval__));
1120 }
1121 #endif /* INCOMPLETE */
1122
1123 #ifdef INCOMPLETE
sgtk_pattern_spec_init(SOBJ o_pspec,SOBJ o_pattern)1124 SOBJ sgtk_pattern_spec_init (SOBJ o_pspec, SOBJ o_pattern)
1125 {
1126 GtkPatternSpec* pspec;
1127 gchar* pattern;
1128
1129 /* +++ undefined GtkPatternSpec* */
1130 pattern = scm_getstr(o_pattern);
1131 gtk_pattern_spec_init(pspec, pattern);
1132 return(scm_undefined);
1133 }
1134 #endif /* INCOMPLETE */
1135
1136 #ifdef INCOMPLETE
sgtk_pattern_match_string(SOBJ o_pspec,SOBJ o_string)1137 SOBJ sgtk_pattern_match_string (SOBJ o_pspec, SOBJ o_string)
1138 {
1139 GtkPatternSpec* pspec;
1140 gchar* string;
1141 gboolean __retval__;
1142
1143 /* +++ undefined GtkPatternSpec* */
1144 string = scm_getstr(o_string);
1145 __retval__ = gtk_pattern_match_string(pspec, string);
1146 return(SCM_MKBOOL(__retval__));
1147 }
1148 #endif /* INCOMPLETE */
1149
sgtk_pattern_match_simple(SOBJ o_pattern,SOBJ o_string)1150 SOBJ sgtk_pattern_match_simple (SOBJ o_pattern, SOBJ o_string)
1151 {
1152 gchar* pattern;
1153 gchar* string;
1154 gboolean __retval__;
1155
1156 pattern = scm_getstr(o_pattern);
1157 string = scm_getstr(o_string);
1158 __retval__ = gtk_pattern_match_simple(pattern, string);
1159 return(SCM_MKBOOL(__retval__));
1160 }
1161
1162 #ifdef INCOMPLETE
sgtk_pattern_spec_free_segs(SOBJ o_pspec)1163 SOBJ sgtk_pattern_spec_free_segs (SOBJ o_pspec)
1164 {
1165 GtkPatternSpec* pspec;
1166
1167 /* +++ undefined GtkPatternSpec* */
1168 gtk_pattern_spec_free_segs(pspec);
1169 return(scm_undefined);
1170 }
1171 #endif /* INCOMPLETE */
1172
1173 #ifdef INCOMPLETE
sgtk_binding_parse_binding(SOBJ o_scanner)1174 SOBJ sgtk_binding_parse_binding (SOBJ o_scanner)
1175 {
1176 GScanner* scanner;
1177 guint __retval__;
1178
1179 /* +++ undefined GScanner* */
1180 __retval__ = gtk_binding_parse_binding(scanner);
1181 return(SCM_MKINUM(__retval__));
1182 }
1183 #endif /* INCOMPLETE */
1184
sgtk_box_get_type()1185 SOBJ sgtk_box_get_type ()
1186 {
1187 GtkType __retval__;
1188
1189 __retval__ = gtk_box_get_type();
1190 return(SCM_MKINUM(__retval__));
1191 }
1192
sgtk_box_pack_start(SOBJ o_box,SOBJ o_child,SOBJ o_expand,SOBJ o_fill,SOBJ o_padding)1193 SOBJ sgtk_box_pack_start (SOBJ o_box, SOBJ o_child, SOBJ o_expand, SOBJ o_fill, SOBJ o_padding)
1194 {
1195 GtkBox* box;
1196 GtkWidget* child;
1197 gboolean expand;
1198 gboolean fill;
1199 guint padding;
1200
1201 box = sgtk_get_Object(o_box);
1202 child = sgtk_get_Object(o_child);
1203 expand = (o_expand != scm_false);
1204 fill = (o_fill != scm_false);
1205 padding = scm_number2long(o_padding);
1206 gtk_box_pack_start(box, child, expand, fill, padding);
1207 return(scm_undefined);
1208 }
1209
sgtk_box_pack_end(SOBJ o_box,SOBJ o_child,SOBJ o_expand,SOBJ o_fill,SOBJ o_padding)1210 SOBJ sgtk_box_pack_end (SOBJ o_box, SOBJ o_child, SOBJ o_expand, SOBJ o_fill, SOBJ o_padding)
1211 {
1212 GtkBox* box;
1213 GtkWidget* child;
1214 gboolean expand;
1215 gboolean fill;
1216 guint padding;
1217
1218 box = sgtk_get_Object(o_box);
1219 child = sgtk_get_Object(o_child);
1220 expand = (o_expand != scm_false);
1221 fill = (o_fill != scm_false);
1222 padding = scm_number2long(o_padding);
1223 gtk_box_pack_end(box, child, expand, fill, padding);
1224 return(scm_undefined);
1225 }
1226
sgtk_box_pack_start_defaults(SOBJ o_box,SOBJ o_child)1227 SOBJ sgtk_box_pack_start_defaults (SOBJ o_box, SOBJ o_child)
1228 {
1229 GtkBox* box;
1230 GtkWidget* child;
1231
1232 box = sgtk_get_Object(o_box);
1233 child = sgtk_get_Object(o_child);
1234 gtk_box_pack_start_defaults(box, child);
1235 return(scm_undefined);
1236 }
1237
sgtk_box_pack_end_defaults(SOBJ o_box,SOBJ o_child)1238 SOBJ sgtk_box_pack_end_defaults (SOBJ o_box, SOBJ o_child)
1239 {
1240 GtkBox* box;
1241 GtkWidget* child;
1242
1243 box = sgtk_get_Object(o_box);
1244 child = sgtk_get_Object(o_child);
1245 gtk_box_pack_end_defaults(box, child);
1246 return(scm_undefined);
1247 }
1248
sgtk_box_set_homogeneous(SOBJ o_box,SOBJ o_homogeneous)1249 SOBJ sgtk_box_set_homogeneous (SOBJ o_box, SOBJ o_homogeneous)
1250 {
1251 GtkBox* box;
1252 gboolean homogeneous;
1253
1254 box = sgtk_get_Object(o_box);
1255 homogeneous = (o_homogeneous != scm_false);
1256 gtk_box_set_homogeneous(box, homogeneous);
1257 return(scm_undefined);
1258 }
1259
sgtk_box_set_spacing(SOBJ o_box,SOBJ o_spacing)1260 SOBJ sgtk_box_set_spacing (SOBJ o_box, SOBJ o_spacing)
1261 {
1262 GtkBox* box;
1263 gint spacing;
1264
1265 box = sgtk_get_Object(o_box);
1266 spacing = scm_number2long(o_spacing);
1267 gtk_box_set_spacing(box, spacing);
1268 return(scm_undefined);
1269 }
1270
sgtk_box_reorder_child(SOBJ o_box,SOBJ o_child,SOBJ o_position)1271 SOBJ sgtk_box_reorder_child (SOBJ o_box, SOBJ o_child, SOBJ o_position)
1272 {
1273 GtkBox* box;
1274 GtkWidget* child;
1275 gint position;
1276
1277 box = sgtk_get_Object(o_box);
1278 child = sgtk_get_Object(o_child);
1279 position = scm_number2long(o_position);
1280 gtk_box_reorder_child(box, child, position);
1281 return(scm_undefined);
1282 }
1283
1284 #ifdef INCOMPLETE
sgtk_box_query_child_packing(SOBJ o_box,SOBJ o_child,SOBJ o_expand,SOBJ o_fill,SOBJ o_padding,SOBJ o_pack_type)1285 SOBJ sgtk_box_query_child_packing (SOBJ o_box, SOBJ o_child, SOBJ o_expand, SOBJ o_fill, SOBJ o_padding, SOBJ o_pack_type)
1286 {
1287 GtkBox* box;
1288 GtkWidget* child;
1289 gboolean* expand;
1290 gboolean* fill;
1291 guint* padding;
1292 GtkPackType* pack_type;
1293
1294 box = sgtk_get_Object(o_box);
1295 child = sgtk_get_Object(o_child);
1296 /* +++ undefined gboolean* */
1297 /* +++ undefined gboolean* */
1298 /* +++ undefined guint* */
1299 /* +++ undefined GtkPackType* */
1300 gtk_box_query_child_packing(box, child, expand, fill, padding, pack_type);
1301 return(scm_undefined);
1302 }
1303 #endif /* INCOMPLETE */
1304
sgtk_box_set_child_packing(SOBJ o_box,SOBJ o_child,SOBJ o_expand,SOBJ o_fill,SOBJ o_padding,SOBJ o_pack_type)1305 SOBJ sgtk_box_set_child_packing (SOBJ o_box, SOBJ o_child, SOBJ o_expand, SOBJ o_fill, SOBJ o_padding, SOBJ o_pack_type)
1306 {
1307 GtkBox* box;
1308 GtkWidget* child;
1309 gboolean expand;
1310 gboolean fill;
1311 guint padding;
1312 GtkPackType pack_type;
1313
1314 box = sgtk_get_Object(o_box);
1315 child = sgtk_get_Object(o_child);
1316 expand = (o_expand != scm_false);
1317 fill = (o_fill != scm_false);
1318 padding = scm_number2long(o_padding);
1319 pack_type = sgtk_enumget("GtkPackType", o_pack_type);
1320 gtk_box_set_child_packing(box, child, expand, fill, padding, pack_type);
1321 return(scm_undefined);
1322 }
1323
sgtk_button_get_type()1324 SOBJ sgtk_button_get_type ()
1325 {
1326 GtkType __retval__;
1327
1328 __retval__ = gtk_button_get_type();
1329 return(SCM_MKINUM(__retval__));
1330 }
1331
sgtk_button_new()1332 SOBJ sgtk_button_new ()
1333 {
1334 GtkWidget* __retval__;
1335
1336 __retval__ = gtk_button_new();
1337 return(sgtk_object_new((void*)__retval__));
1338 }
1339
sgtk_button_new_with_label(SOBJ o_label)1340 SOBJ sgtk_button_new_with_label (SOBJ o_label)
1341 {
1342 gchar* label;
1343 GtkWidget* __retval__;
1344
1345 label = scm_getstr(o_label);
1346 __retval__ = gtk_button_new_with_label(label);
1347 return(sgtk_object_new((void*)__retval__));
1348 }
1349
sgtk_button_pressed(SOBJ o_button)1350 SOBJ sgtk_button_pressed (SOBJ o_button)
1351 {
1352 GtkButton* button;
1353
1354 button = sgtk_get_Object(o_button);
1355 gtk_button_pressed(button);
1356 return(scm_undefined);
1357 }
1358
sgtk_button_released(SOBJ o_button)1359 SOBJ sgtk_button_released (SOBJ o_button)
1360 {
1361 GtkButton* button;
1362
1363 button = sgtk_get_Object(o_button);
1364 gtk_button_released(button);
1365 return(scm_undefined);
1366 }
1367
sgtk_button_clicked(SOBJ o_button)1368 SOBJ sgtk_button_clicked (SOBJ o_button)
1369 {
1370 GtkButton* button;
1371
1372 button = sgtk_get_Object(o_button);
1373 gtk_button_clicked(button);
1374 return(scm_undefined);
1375 }
1376
sgtk_button_enter(SOBJ o_button)1377 SOBJ sgtk_button_enter (SOBJ o_button)
1378 {
1379 GtkButton* button;
1380
1381 button = sgtk_get_Object(o_button);
1382 gtk_button_enter(button);
1383 return(scm_undefined);
1384 }
1385
sgtk_button_leave(SOBJ o_button)1386 SOBJ sgtk_button_leave (SOBJ o_button)
1387 {
1388 GtkButton* button;
1389
1390 button = sgtk_get_Object(o_button);
1391 gtk_button_leave(button);
1392 return(scm_undefined);
1393 }
1394
sgtk_button_set_relief(SOBJ o_button,SOBJ o_newrelief)1395 SOBJ sgtk_button_set_relief (SOBJ o_button, SOBJ o_newrelief)
1396 {
1397 GtkButton* button;
1398 GtkReliefStyle newrelief;
1399
1400 button = sgtk_get_Object(o_button);
1401 newrelief = sgtk_enumget("GtkReliefStyle", o_newrelief);
1402 gtk_button_set_relief(button, newrelief);
1403 return(scm_undefined);
1404 }
1405
sgtk_button_get_relief(SOBJ o_button)1406 SOBJ sgtk_button_get_relief (SOBJ o_button)
1407 {
1408 GtkButton* button;
1409 GtkReliefStyle __retval__;
1410
1411 button = sgtk_get_Object(o_button);
1412 __retval__ = gtk_button_get_relief(button);
1413 return(SCM_MKINUM(__retval__));
1414 }
1415
sgtk_calendar_get_type()1416 SOBJ sgtk_calendar_get_type ()
1417 {
1418 GtkType __retval__;
1419
1420 __retval__ = gtk_calendar_get_type();
1421 return(SCM_MKINUM(__retval__));
1422 }
1423
sgtk_calendar_new()1424 SOBJ sgtk_calendar_new ()
1425 {
1426 GtkWidget* __retval__;
1427
1428 __retval__ = gtk_calendar_new();
1429 return(sgtk_object_new((void*)__retval__));
1430 }
1431
sgtk_calendar_display_options(SOBJ o_calendar,SOBJ o_flags)1432 SOBJ sgtk_calendar_display_options (SOBJ o_calendar, SOBJ o_flags)
1433 {
1434 GtkCalendar* calendar;
1435 GtkCalendarDisplayOptions flags;
1436
1437 calendar = sgtk_get_Object(o_calendar);
1438 flags = sgtk_flagsget("GtkCalendarDisplayOptions", o_flags);
1439 gtk_calendar_display_options(calendar, flags);
1440 return(scm_undefined);
1441 }
1442
sgtk_calendar_select_month(SOBJ o_calendar,SOBJ o_month,SOBJ o_year)1443 SOBJ sgtk_calendar_select_month (SOBJ o_calendar, SOBJ o_month, SOBJ o_year)
1444 {
1445 GtkCalendar* calendar;
1446 guint month;
1447 guint year;
1448 gint __retval__;
1449
1450 calendar = sgtk_get_Object(o_calendar);
1451 month = scm_number2long(o_month);
1452 year = scm_number2long(o_year);
1453 __retval__ = gtk_calendar_select_month(calendar, month, year);
1454 return(SCM_MKINUM(__retval__));
1455 }
1456
sgtk_calendar_select_day(SOBJ o_calendar,SOBJ o_day)1457 SOBJ sgtk_calendar_select_day (SOBJ o_calendar, SOBJ o_day)
1458 {
1459 GtkCalendar* calendar;
1460 guint day;
1461
1462 calendar = sgtk_get_Object(o_calendar);
1463 day = scm_number2long(o_day);
1464 gtk_calendar_select_day(calendar, day);
1465 return(scm_undefined);
1466 }
1467
sgtk_calendar_clear_marks(SOBJ o_calendar)1468 SOBJ sgtk_calendar_clear_marks (SOBJ o_calendar)
1469 {
1470 GtkCalendar* calendar;
1471
1472 calendar = sgtk_get_Object(o_calendar);
1473 gtk_calendar_clear_marks(calendar);
1474 return(scm_undefined);
1475 }
1476
sgtk_calendar_mark_day(SOBJ o_calendar,SOBJ o_day)1477 SOBJ sgtk_calendar_mark_day (SOBJ o_calendar, SOBJ o_day)
1478 {
1479 GtkCalendar* calendar;
1480 guint day;
1481 gint __retval__;
1482
1483 calendar = sgtk_get_Object(o_calendar);
1484 day = scm_number2long(o_day);
1485 __retval__ = gtk_calendar_mark_day(calendar, day);
1486 return(SCM_MKINUM(__retval__));
1487 }
1488
sgtk_calendar_unmark_day(SOBJ o_calendar,SOBJ o_day)1489 SOBJ sgtk_calendar_unmark_day (SOBJ o_calendar, SOBJ o_day)
1490 {
1491 GtkCalendar* calendar;
1492 guint day;
1493 gint __retval__;
1494
1495 calendar = sgtk_get_Object(o_calendar);
1496 day = scm_number2long(o_day);
1497 __retval__ = gtk_calendar_unmark_day(calendar, day);
1498 return(SCM_MKINUM(__retval__));
1499 }
1500
1501 #ifdef INCOMPLETE
sgtk_calendar_get_date(SOBJ o_calendar,SOBJ o_year,SOBJ o_month,SOBJ o_day)1502 SOBJ sgtk_calendar_get_date (SOBJ o_calendar, SOBJ o_year, SOBJ o_month, SOBJ o_day)
1503 {
1504 GtkCalendar* calendar;
1505 guint* year;
1506 guint* month;
1507 guint* day;
1508
1509 calendar = sgtk_get_Object(o_calendar);
1510 /* +++ undefined guint* */
1511 /* +++ undefined guint* */
1512 /* +++ undefined guint* */
1513 gtk_calendar_get_date(calendar, year, month, day);
1514 return(scm_undefined);
1515 }
1516 #endif /* INCOMPLETE */
1517
sgtk_calendar_freeze(SOBJ o_calendar)1518 SOBJ sgtk_calendar_freeze (SOBJ o_calendar)
1519 {
1520 GtkCalendar* calendar;
1521
1522 calendar = sgtk_get_Object(o_calendar);
1523 gtk_calendar_freeze(calendar);
1524 return(scm_undefined);
1525 }
1526
sgtk_calendar_thaw(SOBJ o_calendar)1527 SOBJ sgtk_calendar_thaw (SOBJ o_calendar)
1528 {
1529 GtkCalendar* calendar;
1530
1531 calendar = sgtk_get_Object(o_calendar);
1532 gtk_calendar_thaw(calendar);
1533 return(scm_undefined);
1534 }
1535
sgtk_check_button_get_type()1536 SOBJ sgtk_check_button_get_type ()
1537 {
1538 GtkType __retval__;
1539
1540 __retval__ = gtk_check_button_get_type();
1541 return(SCM_MKINUM(__retval__));
1542 }
1543
sgtk_check_button_new()1544 SOBJ sgtk_check_button_new ()
1545 {
1546 GtkWidget* __retval__;
1547
1548 __retval__ = gtk_check_button_new();
1549 return(sgtk_object_new((void*)__retval__));
1550 }
1551
sgtk_check_button_new_with_label(SOBJ o_label)1552 SOBJ sgtk_check_button_new_with_label (SOBJ o_label)
1553 {
1554 gchar* label;
1555 GtkWidget* __retval__;
1556
1557 label = scm_getstr(o_label);
1558 __retval__ = gtk_check_button_new_with_label(label);
1559 return(sgtk_object_new((void*)__retval__));
1560 }
1561
sgtk_check_menu_item_get_type()1562 SOBJ sgtk_check_menu_item_get_type ()
1563 {
1564 GtkType __retval__;
1565
1566 __retval__ = gtk_check_menu_item_get_type();
1567 return(SCM_MKINUM(__retval__));
1568 }
1569
sgtk_check_menu_item_new()1570 SOBJ sgtk_check_menu_item_new ()
1571 {
1572 GtkWidget* __retval__;
1573
1574 __retval__ = gtk_check_menu_item_new();
1575 return(sgtk_object_new((void*)__retval__));
1576 }
1577
sgtk_check_menu_item_new_with_label(SOBJ o_label)1578 SOBJ sgtk_check_menu_item_new_with_label (SOBJ o_label)
1579 {
1580 gchar* label;
1581 GtkWidget* __retval__;
1582
1583 label = scm_getstr(o_label);
1584 __retval__ = gtk_check_menu_item_new_with_label(label);
1585 return(sgtk_object_new((void*)__retval__));
1586 }
1587
sgtk_check_menu_item_set_active(SOBJ o_check_menu_item,SOBJ o_is_active)1588 SOBJ sgtk_check_menu_item_set_active (SOBJ o_check_menu_item, SOBJ o_is_active)
1589 {
1590 GtkCheckMenuItem* check_menu_item;
1591 gboolean is_active;
1592
1593 check_menu_item = sgtk_get_Object(o_check_menu_item);
1594 is_active = (o_is_active != scm_false);
1595 gtk_check_menu_item_set_active(check_menu_item, is_active);
1596 return(scm_undefined);
1597 }
1598
sgtk_check_menu_item_set_show_toggle(SOBJ o_menu_item,SOBJ o_always)1599 SOBJ sgtk_check_menu_item_set_show_toggle (SOBJ o_menu_item, SOBJ o_always)
1600 {
1601 GtkCheckMenuItem* menu_item;
1602 gboolean always;
1603
1604 menu_item = sgtk_get_Object(o_menu_item);
1605 always = (o_always != scm_false);
1606 gtk_check_menu_item_set_show_toggle(menu_item, always);
1607 return(scm_undefined);
1608 }
1609
sgtk_check_menu_item_toggled(SOBJ o_check_menu_item)1610 SOBJ sgtk_check_menu_item_toggled (SOBJ o_check_menu_item)
1611 {
1612 GtkCheckMenuItem* check_menu_item;
1613
1614 check_menu_item = sgtk_get_Object(o_check_menu_item);
1615 gtk_check_menu_item_toggled(check_menu_item);
1616 return(scm_undefined);
1617 }
1618
sgtk_clist_get_type()1619 SOBJ sgtk_clist_get_type ()
1620 {
1621 GtkType __retval__;
1622
1623 __retval__ = gtk_clist_get_type();
1624 return(SCM_MKINUM(__retval__));
1625 }
1626
sgtk_clist_new(SOBJ o_columns)1627 SOBJ sgtk_clist_new (SOBJ o_columns)
1628 {
1629 gint columns;
1630 GtkWidget* __retval__;
1631
1632 columns = scm_number2long(o_columns);
1633 __retval__ = gtk_clist_new(columns);
1634 return(sgtk_object_new((void*)__retval__));
1635 }
1636
sgtk_clist_set_hadjustment(SOBJ o_clist,SOBJ o_adjustment)1637 SOBJ sgtk_clist_set_hadjustment (SOBJ o_clist, SOBJ o_adjustment)
1638 {
1639 GtkCList* clist;
1640 GtkAdjustment* adjustment;
1641
1642 clist = sgtk_get_Object(o_clist);
1643 adjustment = sgtk_get_Object(o_adjustment);
1644 gtk_clist_set_hadjustment(clist, adjustment);
1645 return(scm_undefined);
1646 }
1647
sgtk_clist_get_hadjustment(SOBJ o_clist)1648 SOBJ sgtk_clist_get_hadjustment (SOBJ o_clist)
1649 {
1650 GtkCList* clist;
1651 GtkAdjustment* __retval__;
1652
1653 clist = sgtk_get_Object(o_clist);
1654 __retval__ = gtk_clist_get_hadjustment(clist);
1655 return(sgtk_object_new((void*)__retval__));
1656 }
1657
sgtk_clist_set_vadjustment(SOBJ o_clist,SOBJ o_adjustment)1658 SOBJ sgtk_clist_set_vadjustment (SOBJ o_clist, SOBJ o_adjustment)
1659 {
1660 GtkCList* clist;
1661 GtkAdjustment* adjustment;
1662
1663 clist = sgtk_get_Object(o_clist);
1664 adjustment = sgtk_get_Object(o_adjustment);
1665 gtk_clist_set_vadjustment(clist, adjustment);
1666 return(scm_undefined);
1667 }
1668
sgtk_clist_get_vadjustment(SOBJ o_clist)1669 SOBJ sgtk_clist_get_vadjustment (SOBJ o_clist)
1670 {
1671 GtkCList* clist;
1672 GtkAdjustment* __retval__;
1673
1674 clist = sgtk_get_Object(o_clist);
1675 __retval__ = gtk_clist_get_vadjustment(clist);
1676 return(sgtk_object_new((void*)__retval__));
1677 }
1678
sgtk_clist_set_shadow_type(SOBJ o_clist,SOBJ o_type)1679 SOBJ sgtk_clist_set_shadow_type (SOBJ o_clist, SOBJ o_type)
1680 {
1681 GtkCList* clist;
1682 GtkShadowType type;
1683
1684 clist = sgtk_get_Object(o_clist);
1685 type = sgtk_enumget("GtkShadowType", o_type);
1686 gtk_clist_set_shadow_type(clist, type);
1687 return(scm_undefined);
1688 }
1689
sgtk_clist_set_selection_mode(SOBJ o_clist,SOBJ o_mode)1690 SOBJ sgtk_clist_set_selection_mode (SOBJ o_clist, SOBJ o_mode)
1691 {
1692 GtkCList* clist;
1693 GtkSelectionMode mode;
1694
1695 clist = sgtk_get_Object(o_clist);
1696 mode = sgtk_enumget("GtkSelectionMode", o_mode);
1697 gtk_clist_set_selection_mode(clist, mode);
1698 return(scm_undefined);
1699 }
1700
sgtk_clist_freeze(SOBJ o_clist)1701 SOBJ sgtk_clist_freeze (SOBJ o_clist)
1702 {
1703 GtkCList* clist;
1704
1705 clist = sgtk_get_Object(o_clist);
1706 gtk_clist_freeze(clist);
1707 return(scm_undefined);
1708 }
1709
sgtk_clist_thaw(SOBJ o_clist)1710 SOBJ sgtk_clist_thaw (SOBJ o_clist)
1711 {
1712 GtkCList* clist;
1713
1714 clist = sgtk_get_Object(o_clist);
1715 gtk_clist_thaw(clist);
1716 return(scm_undefined);
1717 }
1718
sgtk_clist_column_titles_show(SOBJ o_clist)1719 SOBJ sgtk_clist_column_titles_show (SOBJ o_clist)
1720 {
1721 GtkCList* clist;
1722
1723 clist = sgtk_get_Object(o_clist);
1724 gtk_clist_column_titles_show(clist);
1725 return(scm_undefined);
1726 }
1727
sgtk_clist_column_titles_hide(SOBJ o_clist)1728 SOBJ sgtk_clist_column_titles_hide (SOBJ o_clist)
1729 {
1730 GtkCList* clist;
1731
1732 clist = sgtk_get_Object(o_clist);
1733 gtk_clist_column_titles_hide(clist);
1734 return(scm_undefined);
1735 }
1736
sgtk_clist_column_title_active(SOBJ o_clist,SOBJ o_column)1737 SOBJ sgtk_clist_column_title_active (SOBJ o_clist, SOBJ o_column)
1738 {
1739 GtkCList* clist;
1740 gint column;
1741
1742 clist = sgtk_get_Object(o_clist);
1743 column = scm_number2long(o_column);
1744 gtk_clist_column_title_active(clist, column);
1745 return(scm_undefined);
1746 }
1747
sgtk_clist_column_title_passive(SOBJ o_clist,SOBJ o_column)1748 SOBJ sgtk_clist_column_title_passive (SOBJ o_clist, SOBJ o_column)
1749 {
1750 GtkCList* clist;
1751 gint column;
1752
1753 clist = sgtk_get_Object(o_clist);
1754 column = scm_number2long(o_column);
1755 gtk_clist_column_title_passive(clist, column);
1756 return(scm_undefined);
1757 }
1758
sgtk_clist_column_titles_active(SOBJ o_clist)1759 SOBJ sgtk_clist_column_titles_active (SOBJ o_clist)
1760 {
1761 GtkCList* clist;
1762
1763 clist = sgtk_get_Object(o_clist);
1764 gtk_clist_column_titles_active(clist);
1765 return(scm_undefined);
1766 }
1767
sgtk_clist_column_titles_passive(SOBJ o_clist)1768 SOBJ sgtk_clist_column_titles_passive (SOBJ o_clist)
1769 {
1770 GtkCList* clist;
1771
1772 clist = sgtk_get_Object(o_clist);
1773 gtk_clist_column_titles_passive(clist);
1774 return(scm_undefined);
1775 }
1776
sgtk_clist_set_column_title(SOBJ o_clist,SOBJ o_column,SOBJ o_title)1777 SOBJ sgtk_clist_set_column_title (SOBJ o_clist, SOBJ o_column, SOBJ o_title)
1778 {
1779 GtkCList* clist;
1780 gint column;
1781 gchar* title;
1782
1783 clist = sgtk_get_Object(o_clist);
1784 column = scm_number2long(o_column);
1785 title = scm_getstr(o_title);
1786 gtk_clist_set_column_title(clist, column, title);
1787 return(scm_undefined);
1788 }
1789
sgtk_clist_get_column_title(SOBJ o_clist,SOBJ o_column)1790 SOBJ sgtk_clist_get_column_title (SOBJ o_clist, SOBJ o_column)
1791 {
1792 GtkCList* clist;
1793 gint column;
1794 gchar* __retval__;
1795
1796 clist = sgtk_get_Object(o_clist);
1797 column = scm_number2long(o_column);
1798 __retval__ = gtk_clist_get_column_title(clist, column);
1799 return(scm_mkstring(__retval__));
1800 }
1801
sgtk_clist_set_column_widget(SOBJ o_clist,SOBJ o_column,SOBJ o_widget)1802 SOBJ sgtk_clist_set_column_widget (SOBJ o_clist, SOBJ o_column, SOBJ o_widget)
1803 {
1804 GtkCList* clist;
1805 gint column;
1806 GtkWidget* widget;
1807
1808 clist = sgtk_get_Object(o_clist);
1809 column = scm_number2long(o_column);
1810 widget = sgtk_get_Object(o_widget);
1811 gtk_clist_set_column_widget(clist, column, widget);
1812 return(scm_undefined);
1813 }
1814
sgtk_clist_get_column_widget(SOBJ o_clist,SOBJ o_column)1815 SOBJ sgtk_clist_get_column_widget (SOBJ o_clist, SOBJ o_column)
1816 {
1817 GtkCList* clist;
1818 gint column;
1819 GtkWidget* __retval__;
1820
1821 clist = sgtk_get_Object(o_clist);
1822 column = scm_number2long(o_column);
1823 __retval__ = gtk_clist_get_column_widget(clist, column);
1824 return(sgtk_object_new((void*)__retval__));
1825 }
1826
sgtk_clist_set_column_justification(SOBJ o_clist,SOBJ o_column,SOBJ o_justification)1827 SOBJ sgtk_clist_set_column_justification (SOBJ o_clist, SOBJ o_column, SOBJ o_justification)
1828 {
1829 GtkCList* clist;
1830 gint column;
1831 GtkJustification justification;
1832
1833 clist = sgtk_get_Object(o_clist);
1834 column = scm_number2long(o_column);
1835 justification = sgtk_enumget("GtkJustification", o_justification);
1836 gtk_clist_set_column_justification(clist, column, justification);
1837 return(scm_undefined);
1838 }
1839
sgtk_clist_set_column_visibility(SOBJ o_clist,SOBJ o_column,SOBJ o_visible)1840 SOBJ sgtk_clist_set_column_visibility (SOBJ o_clist, SOBJ o_column, SOBJ o_visible)
1841 {
1842 GtkCList* clist;
1843 gint column;
1844 gboolean visible;
1845
1846 clist = sgtk_get_Object(o_clist);
1847 column = scm_number2long(o_column);
1848 visible = (o_visible != scm_false);
1849 gtk_clist_set_column_visibility(clist, column, visible);
1850 return(scm_undefined);
1851 }
1852
sgtk_clist_set_column_resizeable(SOBJ o_clist,SOBJ o_column,SOBJ o_resizeable)1853 SOBJ sgtk_clist_set_column_resizeable (SOBJ o_clist, SOBJ o_column, SOBJ o_resizeable)
1854 {
1855 GtkCList* clist;
1856 gint column;
1857 gboolean resizeable;
1858
1859 clist = sgtk_get_Object(o_clist);
1860 column = scm_number2long(o_column);
1861 resizeable = (o_resizeable != scm_false);
1862 gtk_clist_set_column_resizeable(clist, column, resizeable);
1863 return(scm_undefined);
1864 }
1865
sgtk_clist_set_column_auto_resize(SOBJ o_clist,SOBJ o_column,SOBJ o_auto_resize)1866 SOBJ sgtk_clist_set_column_auto_resize (SOBJ o_clist, SOBJ o_column, SOBJ o_auto_resize)
1867 {
1868 GtkCList* clist;
1869 gint column;
1870 gboolean auto_resize;
1871
1872 clist = sgtk_get_Object(o_clist);
1873 column = scm_number2long(o_column);
1874 auto_resize = (o_auto_resize != scm_false);
1875 gtk_clist_set_column_auto_resize(clist, column, auto_resize);
1876 return(scm_undefined);
1877 }
1878
sgtk_clist_columns_autosize(SOBJ o_clist)1879 SOBJ sgtk_clist_columns_autosize (SOBJ o_clist)
1880 {
1881 GtkCList* clist;
1882 gint __retval__;
1883
1884 clist = sgtk_get_Object(o_clist);
1885 __retval__ = gtk_clist_columns_autosize(clist);
1886 return(SCM_MKINUM(__retval__));
1887 }
1888
sgtk_clist_optimal_column_width(SOBJ o_clist,SOBJ o_column)1889 SOBJ sgtk_clist_optimal_column_width (SOBJ o_clist, SOBJ o_column)
1890 {
1891 GtkCList* clist;
1892 gint column;
1893 gint __retval__;
1894
1895 clist = sgtk_get_Object(o_clist);
1896 column = scm_number2long(o_column);
1897 __retval__ = gtk_clist_optimal_column_width(clist, column);
1898 return(SCM_MKINUM(__retval__));
1899 }
1900
sgtk_clist_set_column_width(SOBJ o_clist,SOBJ o_column,SOBJ o_width)1901 SOBJ sgtk_clist_set_column_width (SOBJ o_clist, SOBJ o_column, SOBJ o_width)
1902 {
1903 GtkCList* clist;
1904 gint column;
1905 gint width;
1906
1907 clist = sgtk_get_Object(o_clist);
1908 column = scm_number2long(o_column);
1909 width = scm_number2long(o_width);
1910 gtk_clist_set_column_width(clist, column, width);
1911 return(scm_undefined);
1912 }
1913
sgtk_clist_set_column_min_width(SOBJ o_clist,SOBJ o_column,SOBJ o_min_width)1914 SOBJ sgtk_clist_set_column_min_width (SOBJ o_clist, SOBJ o_column, SOBJ o_min_width)
1915 {
1916 GtkCList* clist;
1917 gint column;
1918 gint min_width;
1919
1920 clist = sgtk_get_Object(o_clist);
1921 column = scm_number2long(o_column);
1922 min_width = scm_number2long(o_min_width);
1923 gtk_clist_set_column_min_width(clist, column, min_width);
1924 return(scm_undefined);
1925 }
1926
sgtk_clist_set_column_max_width(SOBJ o_clist,SOBJ o_column,SOBJ o_max_width)1927 SOBJ sgtk_clist_set_column_max_width (SOBJ o_clist, SOBJ o_column, SOBJ o_max_width)
1928 {
1929 GtkCList* clist;
1930 gint column;
1931 gint max_width;
1932
1933 clist = sgtk_get_Object(o_clist);
1934 column = scm_number2long(o_column);
1935 max_width = scm_number2long(o_max_width);
1936 gtk_clist_set_column_max_width(clist, column, max_width);
1937 return(scm_undefined);
1938 }
1939
sgtk_clist_get_cell_type(SOBJ o_clist,SOBJ o_row,SOBJ o_column)1940 SOBJ sgtk_clist_get_cell_type (SOBJ o_clist, SOBJ o_row, SOBJ o_column)
1941 {
1942 GtkCList* clist;
1943 gint row;
1944 gint column;
1945 GtkCellType __retval__;
1946
1947 clist = sgtk_get_Object(o_clist);
1948 row = scm_number2long(o_row);
1949 column = scm_number2long(o_column);
1950 __retval__ = gtk_clist_get_cell_type(clist, row, column);
1951 return(SCM_MKINUM(__retval__));
1952 }
1953
sgtk_clist_set_text(SOBJ o_clist,SOBJ o_row,SOBJ o_column,SOBJ o_text)1954 SOBJ sgtk_clist_set_text (SOBJ o_clist, SOBJ o_row, SOBJ o_column, SOBJ o_text)
1955 {
1956 GtkCList* clist;
1957 gint row;
1958 gint column;
1959 gchar* text;
1960
1961 clist = sgtk_get_Object(o_clist);
1962 row = scm_number2long(o_row);
1963 column = scm_number2long(o_column);
1964 text = scm_getstr(o_text);
1965 gtk_clist_set_text(clist, row, column, text);
1966 return(scm_undefined);
1967 }
1968
1969 #ifdef INCOMPLETE
sgtk_clist_get_text(SOBJ o_clist,SOBJ o_row,SOBJ o_column,SOBJ o_text)1970 SOBJ sgtk_clist_get_text (SOBJ o_clist, SOBJ o_row, SOBJ o_column, SOBJ o_text)
1971 {
1972 GtkCList* clist;
1973 gint row;
1974 gint column;
1975 gchar** text;
1976 gint __retval__;
1977
1978 clist = sgtk_get_Object(o_clist);
1979 row = scm_number2long(o_row);
1980 column = scm_number2long(o_column);
1981 /* +++ undefined gchar** */
1982 __retval__ = gtk_clist_get_text(clist, row, column, text);
1983 return(SCM_MKINUM(__retval__));
1984 }
1985 #endif /* INCOMPLETE */
1986
sgtk_clist_set_pixmap(SOBJ o_clist,SOBJ o_row,SOBJ o_column,SOBJ o_pixmap,SOBJ o_mask)1987 SOBJ sgtk_clist_set_pixmap (SOBJ o_clist, SOBJ o_row, SOBJ o_column, SOBJ o_pixmap, SOBJ o_mask)
1988 {
1989 GtkCList* clist;
1990 gint row;
1991 gint column;
1992 GdkPixmap* pixmap;
1993 GdkBitmap* mask;
1994
1995 clist = sgtk_get_Object(o_clist);
1996 row = scm_number2long(o_row);
1997 column = scm_number2long(o_column);
1998 pixmap = sgdk_get_Window(o_pixmap);
1999 mask = sgdk_get_Window(o_mask);
2000 gtk_clist_set_pixmap(clist, row, column, pixmap, mask);
2001 return(scm_undefined);
2002 }
2003
2004 #ifdef INCOMPLETE
sgtk_clist_get_pixmap(SOBJ o_clist,SOBJ o_row,SOBJ o_column,SOBJ o_pixmap,SOBJ o_mask)2005 SOBJ sgtk_clist_get_pixmap (SOBJ o_clist, SOBJ o_row, SOBJ o_column, SOBJ o_pixmap, SOBJ o_mask)
2006 {
2007 GtkCList* clist;
2008 gint row;
2009 gint column;
2010 GdkPixmap** pixmap;
2011 GdkBitmap** mask;
2012 gint __retval__;
2013
2014 clist = sgtk_get_Object(o_clist);
2015 row = scm_number2long(o_row);
2016 column = scm_number2long(o_column);
2017 /* +++ undefined GdkPixmap** */
2018 /* +++ undefined GdkBitmap** */
2019 __retval__ = gtk_clist_get_pixmap(clist, row, column, pixmap, mask);
2020 return(SCM_MKINUM(__retval__));
2021 }
2022 #endif /* INCOMPLETE */
2023
sgtk_clist_set_pixtext(SOBJ o_clist,SOBJ o_row,SOBJ o_column,SOBJ o_text,SOBJ o_spacing,SOBJ o_pixmap,SOBJ o_mask)2024 SOBJ sgtk_clist_set_pixtext (SOBJ o_clist, SOBJ o_row, SOBJ o_column, SOBJ o_text, SOBJ o_spacing, SOBJ o_pixmap, SOBJ o_mask)
2025 {
2026 GtkCList* clist;
2027 gint row;
2028 gint column;
2029 gchar* text;
2030 guint8 spacing;
2031 GdkPixmap* pixmap;
2032 GdkBitmap* mask;
2033
2034 clist = sgtk_get_Object(o_clist);
2035 row = scm_number2long(o_row);
2036 column = scm_number2long(o_column);
2037 text = scm_getstr(o_text);
2038 spacing = scm_number2long(o_spacing);
2039 pixmap = sgdk_get_Window(o_pixmap);
2040 mask = sgdk_get_Window(o_mask);
2041 gtk_clist_set_pixtext(clist, row, column, text, spacing, pixmap, mask);
2042 return(scm_undefined);
2043 }
2044
2045 #ifdef INCOMPLETE
sgtk_clist_get_pixtext(SOBJ o_clist,SOBJ o_row,SOBJ o_column,SOBJ o_text,SOBJ o_spacing,SOBJ o_pixmap,SOBJ o_mask)2046 SOBJ sgtk_clist_get_pixtext (SOBJ o_clist, SOBJ o_row, SOBJ o_column, SOBJ o_text, SOBJ o_spacing, SOBJ o_pixmap, SOBJ o_mask)
2047 {
2048 GtkCList* clist;
2049 gint row;
2050 gint column;
2051 gchar** text;
2052 guint8* spacing;
2053 GdkPixmap** pixmap;
2054 GdkBitmap** mask;
2055 gint __retval__;
2056
2057 clist = sgtk_get_Object(o_clist);
2058 row = scm_number2long(o_row);
2059 column = scm_number2long(o_column);
2060 /* +++ undefined gchar** */
2061 /* +++ undefined guint8* */
2062 /* +++ undefined GdkPixmap** */
2063 /* +++ undefined GdkBitmap** */
2064 __retval__ = gtk_clist_get_pixtext(clist, row, column, text, spacing, pixmap, mask);
2065 return(SCM_MKINUM(__retval__));
2066 }
2067 #endif /* INCOMPLETE */
2068
sgtk_clist_set_shift(SOBJ o_clist,SOBJ o_row,SOBJ o_column,SOBJ o_vertical,SOBJ o_horizontal)2069 SOBJ sgtk_clist_set_shift (SOBJ o_clist, SOBJ o_row, SOBJ o_column, SOBJ o_vertical, SOBJ o_horizontal)
2070 {
2071 GtkCList* clist;
2072 gint row;
2073 gint column;
2074 gint vertical;
2075 gint horizontal;
2076
2077 clist = sgtk_get_Object(o_clist);
2078 row = scm_number2long(o_row);
2079 column = scm_number2long(o_column);
2080 vertical = scm_number2long(o_vertical);
2081 horizontal = scm_number2long(o_horizontal);
2082 gtk_clist_set_shift(clist, row, column, vertical, horizontal);
2083 return(scm_undefined);
2084 }
2085
sgtk_clist_remove(SOBJ o_clist,SOBJ o_row)2086 SOBJ sgtk_clist_remove (SOBJ o_clist, SOBJ o_row)
2087 {
2088 GtkCList* clist;
2089 gint row;
2090
2091 clist = sgtk_get_Object(o_clist);
2092 row = scm_number2long(o_row);
2093 gtk_clist_remove(clist, row);
2094 return(scm_undefined);
2095 }
2096
sgtk_clist_clear(SOBJ o_clist)2097 SOBJ sgtk_clist_clear (SOBJ o_clist)
2098 {
2099 GtkCList* clist;
2100
2101 clist = sgtk_get_Object(o_clist);
2102 gtk_clist_clear(clist);
2103 return(scm_undefined);
2104 }
2105
sgtk_clist_moveto(SOBJ o_clist,SOBJ o_row,SOBJ o_column,SOBJ o_row_align,SOBJ o_col_align)2106 SOBJ sgtk_clist_moveto (SOBJ o_clist, SOBJ o_row, SOBJ o_column, SOBJ o_row_align, SOBJ o_col_align)
2107 {
2108 GtkCList* clist;
2109 gint row;
2110 gint column;
2111 gfloat row_align;
2112 gfloat col_align;
2113
2114 clist = sgtk_get_Object(o_clist);
2115 row = scm_number2long(o_row);
2116 column = scm_number2long(o_column);
2117 row_align = scm_number2double(o_row_align);
2118 col_align = scm_number2double(o_col_align);
2119 gtk_clist_moveto(clist, row, column, row_align, col_align);
2120 return(scm_undefined);
2121 }
2122
sgtk_clist_set_row_height(SOBJ o_clist,SOBJ o_height)2123 SOBJ sgtk_clist_set_row_height (SOBJ o_clist, SOBJ o_height)
2124 {
2125 GtkCList* clist;
2126 guint height;
2127
2128 clist = sgtk_get_Object(o_clist);
2129 height = scm_number2long(o_height);
2130 gtk_clist_set_row_height(clist, height);
2131 return(scm_undefined);
2132 }
2133
2134 #ifdef INCOMPLETE
sgtk_clist_set_row_data(SOBJ o_clist,SOBJ o_row,SOBJ o_data)2135 SOBJ sgtk_clist_set_row_data (SOBJ o_clist, SOBJ o_row, SOBJ o_data)
2136 {
2137 GtkCList* clist;
2138 gint row;
2139 gpointer data;
2140
2141 clist = sgtk_get_Object(o_clist);
2142 row = scm_number2long(o_row);
2143 /* +++ get gpointer -> pointer failed */
2144 gtk_clist_set_row_data(clist, row, data);
2145 return(scm_undefined);
2146 }
2147 #endif /* INCOMPLETE */
2148
2149 #ifdef INCOMPLETE
sgtk_clist_set_row_data_full(SOBJ o_clist,SOBJ o_row,SOBJ o_data,SOBJ o_destroy)2150 SOBJ sgtk_clist_set_row_data_full (SOBJ o_clist, SOBJ o_row, SOBJ o_data, SOBJ o_destroy)
2151 {
2152 GtkCList* clist;
2153 gint row;
2154 gpointer data;
2155 GtkDestroyNotify destroy;
2156
2157 clist = sgtk_get_Object(o_clist);
2158 row = scm_number2long(o_row);
2159 /* +++ get gpointer -> pointer failed */
2160 /* +++ undefined GtkDestroyNotify */
2161 gtk_clist_set_row_data_full(clist, row, data, destroy);
2162 return(scm_undefined);
2163 }
2164 #endif /* INCOMPLETE */
2165
sgtk_clist_get_row_data(SOBJ o_clist,SOBJ o_row)2166 SOBJ sgtk_clist_get_row_data (SOBJ o_clist, SOBJ o_row)
2167 {
2168 GtkCList* clist;
2169 gint row;
2170 gpointer __retval__;
2171
2172 clist = sgtk_get_Object(o_clist);
2173 row = scm_number2long(o_row);
2174 __retval__ = gtk_clist_get_row_data(clist, row);
2175 return(scm_mkpointer(__retval__));
2176 }
2177
2178 #ifdef INCOMPLETE
sgtk_clist_find_row_from_data(SOBJ o_clist,SOBJ o_data)2179 SOBJ sgtk_clist_find_row_from_data (SOBJ o_clist, SOBJ o_data)
2180 {
2181 GtkCList* clist;
2182 gpointer data;
2183 gint __retval__;
2184
2185 clist = sgtk_get_Object(o_clist);
2186 /* +++ get gpointer -> pointer failed */
2187 __retval__ = gtk_clist_find_row_from_data(clist, data);
2188 return(SCM_MKINUM(__retval__));
2189 }
2190 #endif /* INCOMPLETE */
2191
sgtk_clist_swap_rows(SOBJ o_clist,SOBJ o_row1,SOBJ o_row2)2192 SOBJ sgtk_clist_swap_rows (SOBJ o_clist, SOBJ o_row1, SOBJ o_row2)
2193 {
2194 GtkCList* clist;
2195 gint row1;
2196 gint row2;
2197
2198 clist = sgtk_get_Object(o_clist);
2199 row1 = scm_number2long(o_row1);
2200 row2 = scm_number2long(o_row2);
2201 gtk_clist_swap_rows(clist, row1, row2);
2202 return(scm_undefined);
2203 }
2204
sgtk_clist_row_move(SOBJ o_clist,SOBJ o_source_row,SOBJ o_dest_row)2205 SOBJ sgtk_clist_row_move (SOBJ o_clist, SOBJ o_source_row, SOBJ o_dest_row)
2206 {
2207 GtkCList* clist;
2208 gint source_row;
2209 gint dest_row;
2210
2211 clist = sgtk_get_Object(o_clist);
2212 source_row = scm_number2long(o_source_row);
2213 dest_row = scm_number2long(o_dest_row);
2214 gtk_clist_row_move(clist, source_row, dest_row);
2215 return(scm_undefined);
2216 }
2217
sgtk_clist_row_is_visible(SOBJ o_clist,SOBJ o_row)2218 SOBJ sgtk_clist_row_is_visible (SOBJ o_clist, SOBJ o_row)
2219 {
2220 GtkCList* clist;
2221 gint row;
2222 GtkVisibility __retval__;
2223
2224 clist = sgtk_get_Object(o_clist);
2225 row = scm_number2long(o_row);
2226 __retval__ = gtk_clist_row_is_visible(clist, row);
2227 return(SCM_MKINUM(__retval__));
2228 }
2229
sgtk_clist_set_foreground(SOBJ o_clist,SOBJ o_row,SOBJ o_color)2230 SOBJ sgtk_clist_set_foreground (SOBJ o_clist, SOBJ o_row, SOBJ o_color)
2231 {
2232 GtkCList* clist;
2233 gint row;
2234 GdkColor* color;
2235
2236 clist = sgtk_get_Object(o_clist);
2237 row = scm_number2long(o_row);
2238 color = sgdk_get_Color(o_color);
2239 gtk_clist_set_foreground(clist, row, color);
2240 return(scm_undefined);
2241 }
2242
sgtk_clist_set_background(SOBJ o_clist,SOBJ o_row,SOBJ o_color)2243 SOBJ sgtk_clist_set_background (SOBJ o_clist, SOBJ o_row, SOBJ o_color)
2244 {
2245 GtkCList* clist;
2246 gint row;
2247 GdkColor* color;
2248
2249 clist = sgtk_get_Object(o_clist);
2250 row = scm_number2long(o_row);
2251 color = sgdk_get_Color(o_color);
2252 gtk_clist_set_background(clist, row, color);
2253 return(scm_undefined);
2254 }
2255
sgtk_clist_set_cell_style(SOBJ o_clist,SOBJ o_row,SOBJ o_column,SOBJ o_style)2256 SOBJ sgtk_clist_set_cell_style (SOBJ o_clist, SOBJ o_row, SOBJ o_column, SOBJ o_style)
2257 {
2258 GtkCList* clist;
2259 gint row;
2260 gint column;
2261 GtkStyle* style;
2262
2263 clist = sgtk_get_Object(o_clist);
2264 row = scm_number2long(o_row);
2265 column = scm_number2long(o_column);
2266 style = sgtk_get_Style(o_style);
2267 gtk_clist_set_cell_style(clist, row, column, style);
2268 return(scm_undefined);
2269 }
2270
sgtk_clist_get_cell_style(SOBJ o_clist,SOBJ o_row,SOBJ o_column)2271 SOBJ sgtk_clist_get_cell_style (SOBJ o_clist, SOBJ o_row, SOBJ o_column)
2272 {
2273 GtkCList* clist;
2274 gint row;
2275 gint column;
2276 GtkStyle* __retval__;
2277
2278 clist = sgtk_get_Object(o_clist);
2279 row = scm_number2long(o_row);
2280 column = scm_number2long(o_column);
2281 __retval__ = gtk_clist_get_cell_style(clist, row, column);
2282 return(sgtk_Style_new(__retval__));
2283 }
2284
sgtk_clist_set_row_style(SOBJ o_clist,SOBJ o_row,SOBJ o_style)2285 SOBJ sgtk_clist_set_row_style (SOBJ o_clist, SOBJ o_row, SOBJ o_style)
2286 {
2287 GtkCList* clist;
2288 gint row;
2289 GtkStyle* style;
2290
2291 clist = sgtk_get_Object(o_clist);
2292 row = scm_number2long(o_row);
2293 style = sgtk_get_Style(o_style);
2294 gtk_clist_set_row_style(clist, row, style);
2295 return(scm_undefined);
2296 }
2297
sgtk_clist_get_row_style(SOBJ o_clist,SOBJ o_row)2298 SOBJ sgtk_clist_get_row_style (SOBJ o_clist, SOBJ o_row)
2299 {
2300 GtkCList* clist;
2301 gint row;
2302 GtkStyle* __retval__;
2303
2304 clist = sgtk_get_Object(o_clist);
2305 row = scm_number2long(o_row);
2306 __retval__ = gtk_clist_get_row_style(clist, row);
2307 return(sgtk_Style_new(__retval__));
2308 }
2309
sgtk_clist_set_selectable(SOBJ o_clist,SOBJ o_row,SOBJ o_selectable)2310 SOBJ sgtk_clist_set_selectable (SOBJ o_clist, SOBJ o_row, SOBJ o_selectable)
2311 {
2312 GtkCList* clist;
2313 gint row;
2314 gboolean selectable;
2315
2316 clist = sgtk_get_Object(o_clist);
2317 row = scm_number2long(o_row);
2318 selectable = (o_selectable != scm_false);
2319 gtk_clist_set_selectable(clist, row, selectable);
2320 return(scm_undefined);
2321 }
2322
sgtk_clist_get_selectable(SOBJ o_clist,SOBJ o_row)2323 SOBJ sgtk_clist_get_selectable (SOBJ o_clist, SOBJ o_row)
2324 {
2325 GtkCList* clist;
2326 gint row;
2327 gboolean __retval__;
2328
2329 clist = sgtk_get_Object(o_clist);
2330 row = scm_number2long(o_row);
2331 __retval__ = gtk_clist_get_selectable(clist, row);
2332 return(SCM_MKBOOL(__retval__));
2333 }
2334
sgtk_clist_select_row(SOBJ o_clist,SOBJ o_row,SOBJ o_column)2335 SOBJ sgtk_clist_select_row (SOBJ o_clist, SOBJ o_row, SOBJ o_column)
2336 {
2337 GtkCList* clist;
2338 gint row;
2339 gint column;
2340
2341 clist = sgtk_get_Object(o_clist);
2342 row = scm_number2long(o_row);
2343 column = scm_number2long(o_column);
2344 gtk_clist_select_row(clist, row, column);
2345 return(scm_undefined);
2346 }
2347
sgtk_clist_unselect_row(SOBJ o_clist,SOBJ o_row,SOBJ o_column)2348 SOBJ sgtk_clist_unselect_row (SOBJ o_clist, SOBJ o_row, SOBJ o_column)
2349 {
2350 GtkCList* clist;
2351 gint row;
2352 gint column;
2353
2354 clist = sgtk_get_Object(o_clist);
2355 row = scm_number2long(o_row);
2356 column = scm_number2long(o_column);
2357 gtk_clist_unselect_row(clist, row, column);
2358 return(scm_undefined);
2359 }
2360
sgtk_clist_select_all(SOBJ o_clist)2361 SOBJ sgtk_clist_select_all (SOBJ o_clist)
2362 {
2363 GtkCList* clist;
2364
2365 clist = sgtk_get_Object(o_clist);
2366 gtk_clist_select_all(clist);
2367 return(scm_undefined);
2368 }
2369
sgtk_clist_unselect_all(SOBJ o_clist)2370 SOBJ sgtk_clist_unselect_all (SOBJ o_clist)
2371 {
2372 GtkCList* clist;
2373
2374 clist = sgtk_get_Object(o_clist);
2375 gtk_clist_unselect_all(clist);
2376 return(scm_undefined);
2377 }
2378
sgtk_clist_undo_selection(SOBJ o_clist)2379 SOBJ sgtk_clist_undo_selection (SOBJ o_clist)
2380 {
2381 GtkCList* clist;
2382
2383 clist = sgtk_get_Object(o_clist);
2384 gtk_clist_undo_selection(clist);
2385 return(scm_undefined);
2386 }
2387
2388 #ifdef INCOMPLETE
sgtk_clist_get_selection_info(SOBJ o_clist,SOBJ o_x,SOBJ o_y,SOBJ o_row,SOBJ o_column)2389 SOBJ sgtk_clist_get_selection_info (SOBJ o_clist, SOBJ o_x, SOBJ o_y, SOBJ o_row, SOBJ o_column)
2390 {
2391 GtkCList* clist;
2392 gint x;
2393 gint y;
2394 gint* row;
2395 gint* column;
2396 gint __retval__;
2397
2398 clist = sgtk_get_Object(o_clist);
2399 x = scm_number2long(o_x);
2400 y = scm_number2long(o_y);
2401 /* +++ undefined gint* */
2402 /* +++ undefined gint* */
2403 __retval__ = gtk_clist_get_selection_info(clist, x, y, row, column);
2404 return(SCM_MKINUM(__retval__));
2405 }
2406 #endif /* INCOMPLETE */
2407
sgtk_clist_sort(SOBJ o_clist)2408 SOBJ sgtk_clist_sort (SOBJ o_clist)
2409 {
2410 GtkCList* clist;
2411
2412 clist = sgtk_get_Object(o_clist);
2413 gtk_clist_sort(clist);
2414 return(scm_undefined);
2415 }
2416
2417 #ifdef INCOMPLETE
sgtk_clist_set_compare_func(SOBJ o_clist,SOBJ o_cmp_func)2418 SOBJ sgtk_clist_set_compare_func (SOBJ o_clist, SOBJ o_cmp_func)
2419 {
2420 GtkCList* clist;
2421 GtkCListCompareFunc cmp_func;
2422
2423 clist = sgtk_get_Object(o_clist);
2424 /* +++ undefined GtkCListCompareFunc */
2425 gtk_clist_set_compare_func(clist, cmp_func);
2426 return(scm_undefined);
2427 }
2428 #endif /* INCOMPLETE */
2429
sgtk_clist_set_auto_sort(SOBJ o_clist,SOBJ o_auto_sort)2430 SOBJ sgtk_clist_set_auto_sort (SOBJ o_clist, SOBJ o_auto_sort)
2431 {
2432 GtkCList* clist;
2433 gboolean auto_sort;
2434
2435 clist = sgtk_get_Object(o_clist);
2436 auto_sort = (o_auto_sort != scm_false);
2437 gtk_clist_set_auto_sort(clist, auto_sort);
2438 return(scm_undefined);
2439 }
2440
sgtk_clist_set_sort_type(SOBJ o_clist,SOBJ o_sort_type)2441 SOBJ sgtk_clist_set_sort_type (SOBJ o_clist, SOBJ o_sort_type)
2442 {
2443 GtkCList* clist;
2444 GtkSortType sort_type;
2445
2446 clist = sgtk_get_Object(o_clist);
2447 sort_type = sgtk_enumget("GtkSortType", o_sort_type);
2448 gtk_clist_set_sort_type(clist, sort_type);
2449 return(scm_undefined);
2450 }
2451
sgtk_clist_set_sort_column(SOBJ o_clist,SOBJ o_column)2452 SOBJ sgtk_clist_set_sort_column (SOBJ o_clist, SOBJ o_column)
2453 {
2454 GtkCList* clist;
2455 gint column;
2456
2457 clist = sgtk_get_Object(o_clist);
2458 column = scm_number2long(o_column);
2459 gtk_clist_set_sort_column(clist, column);
2460 return(scm_undefined);
2461 }
2462
sgtk_clist_set_reorderable(SOBJ o_clist,SOBJ o_reorderable)2463 SOBJ sgtk_clist_set_reorderable (SOBJ o_clist, SOBJ o_reorderable)
2464 {
2465 GtkCList* clist;
2466 gboolean reorderable;
2467
2468 clist = sgtk_get_Object(o_clist);
2469 reorderable = (o_reorderable != scm_false);
2470 gtk_clist_set_reorderable(clist, reorderable);
2471 return(scm_undefined);
2472 }
2473
sgtk_clist_set_use_drag_icons(SOBJ o_clist,SOBJ o_use_icons)2474 SOBJ sgtk_clist_set_use_drag_icons (SOBJ o_clist, SOBJ o_use_icons)
2475 {
2476 GtkCList* clist;
2477 gboolean use_icons;
2478
2479 clist = sgtk_get_Object(o_clist);
2480 use_icons = (o_use_icons != scm_false);
2481 gtk_clist_set_use_drag_icons(clist, use_icons);
2482 return(scm_undefined);
2483 }
2484
sgtk_clist_set_button_actions(SOBJ o_clist,SOBJ o_button,SOBJ o_button_actions)2485 SOBJ sgtk_clist_set_button_actions (SOBJ o_clist, SOBJ o_button, SOBJ o_button_actions)
2486 {
2487 GtkCList* clist;
2488 guint button;
2489 guint8 button_actions;
2490
2491 clist = sgtk_get_Object(o_clist);
2492 button = scm_number2long(o_button);
2493 button_actions = scm_number2long(o_button_actions);
2494 gtk_clist_set_button_actions(clist, button, button_actions);
2495 return(scm_undefined);
2496 }
2497
sgtk_color_selection_get_type()2498 SOBJ sgtk_color_selection_get_type ()
2499 {
2500 GtkType __retval__;
2501
2502 __retval__ = gtk_color_selection_get_type();
2503 return(SCM_MKINUM(__retval__));
2504 }
2505
sgtk_color_selection_new()2506 SOBJ sgtk_color_selection_new ()
2507 {
2508 GtkWidget* __retval__;
2509
2510 __retval__ = gtk_color_selection_new();
2511 return(sgtk_object_new((void*)__retval__));
2512 }
2513
sgtk_color_selection_set_update_policy(SOBJ o_colorsel,SOBJ o_policy)2514 SOBJ sgtk_color_selection_set_update_policy (SOBJ o_colorsel, SOBJ o_policy)
2515 {
2516 GtkColorSelection* colorsel;
2517 GtkUpdateType policy;
2518
2519 colorsel = sgtk_get_Object(o_colorsel);
2520 policy = sgtk_enumget("GtkUpdateType", o_policy);
2521 gtk_color_selection_set_update_policy(colorsel, policy);
2522 return(scm_undefined);
2523 }
2524
2525 #ifdef INCOMPLETE
sgtk_color_selection_set_color(SOBJ o_colorsel,SOBJ o_color)2526 SOBJ sgtk_color_selection_set_color (SOBJ o_colorsel, SOBJ o_color)
2527 {
2528 GtkColorSelection* colorsel;
2529 gdouble* color;
2530
2531 colorsel = sgtk_get_Object(o_colorsel);
2532 /* +++ undefined gdouble* */
2533 gtk_color_selection_set_color(colorsel, color);
2534 return(scm_undefined);
2535 }
2536 #endif /* INCOMPLETE */
2537
2538 #ifdef INCOMPLETE
sgtk_color_selection_get_color(SOBJ o_colorsel,SOBJ o_color)2539 SOBJ sgtk_color_selection_get_color (SOBJ o_colorsel, SOBJ o_color)
2540 {
2541 GtkColorSelection* colorsel;
2542 gdouble* color;
2543
2544 colorsel = sgtk_get_Object(o_colorsel);
2545 /* +++ undefined gdouble* */
2546 gtk_color_selection_get_color(colorsel, color);
2547 return(scm_undefined);
2548 }
2549 #endif /* INCOMPLETE */
2550
sgtk_color_selection_set_opacity(SOBJ o_colorsel,SOBJ o_use_opacity)2551 SOBJ sgtk_color_selection_set_opacity (SOBJ o_colorsel, SOBJ o_use_opacity)
2552 {
2553 GtkColorSelection* colorsel;
2554 gint use_opacity;
2555
2556 colorsel = sgtk_get_Object(o_colorsel);
2557 use_opacity = scm_number2long(o_use_opacity);
2558 gtk_color_selection_set_opacity(colorsel, use_opacity);
2559 return(scm_undefined);
2560 }
2561
sgtk_color_selection_dialog_get_type()2562 SOBJ sgtk_color_selection_dialog_get_type ()
2563 {
2564 GtkType __retval__;
2565
2566 __retval__ = gtk_color_selection_dialog_get_type();
2567 return(SCM_MKINUM(__retval__));
2568 }
2569
sgtk_color_selection_dialog_new(SOBJ o_title)2570 SOBJ sgtk_color_selection_dialog_new (SOBJ o_title)
2571 {
2572 gchar* title;
2573 GtkWidget* __retval__;
2574
2575 title = scm_getstr(o_title);
2576 __retval__ = gtk_color_selection_dialog_new(title);
2577 return(sgtk_object_new((void*)__retval__));
2578 }
2579
sgtk_combo_get_type()2580 SOBJ sgtk_combo_get_type ()
2581 {
2582 guint __retval__;
2583
2584 __retval__ = gtk_combo_get_type();
2585 return(SCM_MKINUM(__retval__));
2586 }
2587
sgtk_combo_new()2588 SOBJ sgtk_combo_new ()
2589 {
2590 GtkWidget* __retval__;
2591
2592 __retval__ = gtk_combo_new();
2593 return(sgtk_object_new((void*)__retval__));
2594 }
2595
sgtk_combo_set_value_in_list(SOBJ o_combo,SOBJ o_val,SOBJ o_ok_if_empty)2596 SOBJ sgtk_combo_set_value_in_list (SOBJ o_combo, SOBJ o_val, SOBJ o_ok_if_empty)
2597 {
2598 GtkCombo* combo;
2599 gint val;
2600 gint ok_if_empty;
2601
2602 combo = sgtk_get_Object(o_combo);
2603 val = scm_number2long(o_val);
2604 ok_if_empty = scm_number2long(o_ok_if_empty);
2605 gtk_combo_set_value_in_list(combo, val, ok_if_empty);
2606 return(scm_undefined);
2607 }
2608
sgtk_combo_set_case_sensitive(SOBJ o_combo,SOBJ o_val)2609 SOBJ sgtk_combo_set_case_sensitive (SOBJ o_combo, SOBJ o_val)
2610 {
2611 GtkCombo* combo;
2612 gint val;
2613
2614 combo = sgtk_get_Object(o_combo);
2615 val = scm_number2long(o_val);
2616 gtk_combo_set_case_sensitive(combo, val);
2617 return(scm_undefined);
2618 }
2619
sgtk_combo_set_use_arrows(SOBJ o_combo,SOBJ o_val)2620 SOBJ sgtk_combo_set_use_arrows (SOBJ o_combo, SOBJ o_val)
2621 {
2622 GtkCombo* combo;
2623 gint val;
2624
2625 combo = sgtk_get_Object(o_combo);
2626 val = scm_number2long(o_val);
2627 gtk_combo_set_use_arrows(combo, val);
2628 return(scm_undefined);
2629 }
2630
sgtk_combo_set_use_arrows_always(SOBJ o_combo,SOBJ o_val)2631 SOBJ sgtk_combo_set_use_arrows_always (SOBJ o_combo, SOBJ o_val)
2632 {
2633 GtkCombo* combo;
2634 gint val;
2635
2636 combo = sgtk_get_Object(o_combo);
2637 val = scm_number2long(o_val);
2638 gtk_combo_set_use_arrows_always(combo, val);
2639 return(scm_undefined);
2640 }
2641
2642 #ifdef INCOMPLETE
sgtk_combo_set_popdown_strings(SOBJ o_combo,SOBJ o_strings)2643 SOBJ sgtk_combo_set_popdown_strings (SOBJ o_combo, SOBJ o_strings)
2644 {
2645 GtkCombo* combo;
2646 GList* strings;
2647
2648 combo = sgtk_get_Object(o_combo);
2649 /* +++ undefined GList* */
2650 gtk_combo_set_popdown_strings(combo, strings);
2651 return(scm_undefined);
2652 }
2653 #endif /* INCOMPLETE */
2654
sgtk_combo_set_item_string(SOBJ o_combo,SOBJ o_item,SOBJ o_item_value)2655 SOBJ sgtk_combo_set_item_string (SOBJ o_combo, SOBJ o_item, SOBJ o_item_value)
2656 {
2657 GtkCombo* combo;
2658 GtkItem* item;
2659 gchar* item_value;
2660
2661 combo = sgtk_get_Object(o_combo);
2662 item = sgtk_get_Object(o_item);
2663 item_value = scm_getstr(o_item_value);
2664 gtk_combo_set_item_string(combo, item, item_value);
2665 return(scm_undefined);
2666 }
2667
sgtk_combo_disable_activate(SOBJ o_combo)2668 SOBJ sgtk_combo_disable_activate (SOBJ o_combo)
2669 {
2670 GtkCombo* combo;
2671
2672 combo = sgtk_get_Object(o_combo);
2673 gtk_combo_disable_activate(combo);
2674 return(scm_undefined);
2675 }
2676
sgtk_container_get_type()2677 SOBJ sgtk_container_get_type ()
2678 {
2679 GtkType __retval__;
2680
2681 __retval__ = gtk_container_get_type();
2682 return(SCM_MKINUM(__retval__));
2683 }
2684
sgtk_container_child_type(SOBJ o_container)2685 SOBJ sgtk_container_child_type (SOBJ o_container)
2686 {
2687 GtkContainer* container;
2688 GtkType __retval__;
2689
2690 container = sgtk_get_Object(o_container);
2691 __retval__ = gtk_container_child_type(container);
2692 return(SCM_MKINUM(__retval__));
2693 }
2694
2695 #ifdef INCOMPLETE
sgtk_container_addv(SOBJ o_container,SOBJ o_widget,SOBJ o_n_args,SOBJ o_args)2696 SOBJ sgtk_container_addv (SOBJ o_container, SOBJ o_widget, SOBJ o_n_args, SOBJ o_args)
2697 {
2698 GtkContainer* container;
2699 GtkWidget* widget;
2700 guint n_args;
2701 GtkArg* args;
2702
2703 container = sgtk_get_Object(o_container);
2704 widget = sgtk_get_Object(o_widget);
2705 n_args = scm_number2long(o_n_args);
2706 /* +++ undefined GtkArg* */
2707 gtk_container_addv(container, widget, n_args, args);
2708 return(scm_undefined);
2709 }
2710 #endif /* INCOMPLETE */
2711
2712 #ifdef INCOMPLETE
sgtk_container_child_setv(SOBJ o_container,SOBJ o_child,SOBJ o_n_args,SOBJ o_args)2713 SOBJ sgtk_container_child_setv (SOBJ o_container, SOBJ o_child, SOBJ o_n_args, SOBJ o_args)
2714 {
2715 GtkContainer* container;
2716 GtkWidget* child;
2717 guint n_args;
2718 GtkArg* args;
2719
2720 container = sgtk_get_Object(o_container);
2721 child = sgtk_get_Object(o_child);
2722 n_args = scm_number2long(o_n_args);
2723 /* +++ undefined GtkArg* */
2724 gtk_container_child_setv(container, child, n_args, args);
2725 return(scm_undefined);
2726 }
2727 #endif /* INCOMPLETE */
2728
2729 #ifdef INCOMPLETE
sgtk_container_child_getv(SOBJ o_container,SOBJ o_child,SOBJ o_n_args,SOBJ o_args)2730 SOBJ sgtk_container_child_getv (SOBJ o_container, SOBJ o_child, SOBJ o_n_args, SOBJ o_args)
2731 {
2732 GtkContainer* container;
2733 GtkWidget* child;
2734 guint n_args;
2735 GtkArg* args;
2736
2737 container = sgtk_get_Object(o_container);
2738 child = sgtk_get_Object(o_child);
2739 n_args = scm_number2long(o_n_args);
2740 /* +++ undefined GtkArg* */
2741 gtk_container_child_getv(container, child, n_args, args);
2742 return(scm_undefined);
2743 }
2744 #endif /* INCOMPLETE */
2745
2746 #ifdef INCOMPLETE
sgtk_container_arg_set(SOBJ o_container,SOBJ o_child,SOBJ o_arg,SOBJ o_info)2747 SOBJ sgtk_container_arg_set (SOBJ o_container, SOBJ o_child, SOBJ o_arg, SOBJ o_info)
2748 {
2749 GtkContainer* container;
2750 GtkWidget* child;
2751 GtkArg* arg;
2752 GtkArgInfo* info;
2753
2754 container = sgtk_get_Object(o_container);
2755 child = sgtk_get_Object(o_child);
2756 /* +++ undefined GtkArg* */
2757 /* +++ undefined GtkArgInfo* */
2758 gtk_container_arg_set(container, child, arg, info);
2759 return(scm_undefined);
2760 }
2761 #endif /* INCOMPLETE */
2762
2763 #ifdef INCOMPLETE
sgtk_container_arg_get(SOBJ o_container,SOBJ o_child,SOBJ o_arg,SOBJ o_info)2764 SOBJ sgtk_container_arg_get (SOBJ o_container, SOBJ o_child, SOBJ o_arg, SOBJ o_info)
2765 {
2766 GtkContainer* container;
2767 GtkWidget* child;
2768 GtkArg* arg;
2769 GtkArgInfo* info;
2770
2771 container = sgtk_get_Object(o_container);
2772 child = sgtk_get_Object(o_child);
2773 /* +++ undefined GtkArg* */
2774 /* +++ undefined GtkArgInfo* */
2775 gtk_container_arg_get(container, child, arg, info);
2776 return(scm_undefined);
2777 }
2778 #endif /* INCOMPLETE */
2779
sgtk_container_add_child_arg_type(SOBJ o_arg_name,SOBJ o_arg_type,SOBJ o_arg_flags,SOBJ o_arg_id)2780 SOBJ sgtk_container_add_child_arg_type (SOBJ o_arg_name, SOBJ o_arg_type, SOBJ o_arg_flags, SOBJ o_arg_id)
2781 {
2782 gchar* arg_name;
2783 GtkType arg_type;
2784 guint arg_flags;
2785 guint arg_id;
2786
2787 arg_name = scm_getstr(o_arg_name);
2788 arg_type = scm_number2long(o_arg_type);
2789 arg_flags = scm_number2long(o_arg_flags);
2790 arg_id = scm_number2long(o_arg_id);
2791 gtk_container_add_child_arg_type(arg_name, arg_type, arg_flags, arg_id);
2792 return(scm_undefined);
2793 }
2794
2795 #ifdef INCOMPLETE
sgtk_container_child_args_collect(SOBJ o_object_type,SOBJ o_arg_list_p,SOBJ o_info_list_p,SOBJ o_first_arg_name,SOBJ o_var_args)2796 SOBJ sgtk_container_child_args_collect (SOBJ o_object_type, SOBJ o_arg_list_p, SOBJ o_info_list_p, SOBJ o_first_arg_name, SOBJ o_var_args)
2797 {
2798 GtkType object_type;
2799 GSList** arg_list_p;
2800 GSList** info_list_p;
2801 gchar* first_arg_name;
2802 va_list var_args;
2803 gchar* __retval__;
2804
2805 object_type = scm_number2long(o_object_type);
2806 /* +++ undefined GSList** */
2807 /* +++ undefined GSList** */
2808 first_arg_name = scm_getstr(o_first_arg_name);
2809 /* +++ undefined va_list */
2810 __retval__ = gtk_container_child_args_collect(object_type, arg_list_p, info_list_p, first_arg_name, var_args);
2811 return(scm_mkstring(__retval__));
2812 }
2813 #endif /* INCOMPLETE */
2814
2815 #ifdef INCOMPLETE
sgtk_container_child_arg_get_info(SOBJ o_object_type,SOBJ o_arg_name,SOBJ o_info_p)2816 SOBJ sgtk_container_child_arg_get_info (SOBJ o_object_type, SOBJ o_arg_name, SOBJ o_info_p)
2817 {
2818 GtkType object_type;
2819 gchar* arg_name;
2820 GtkArgInfo** info_p;
2821 gchar* __retval__;
2822
2823 object_type = scm_number2long(o_object_type);
2824 arg_name = scm_getstr(o_arg_name);
2825 /* +++ undefined GtkArgInfo** */
2826 __retval__ = gtk_container_child_arg_get_info(object_type, arg_name, info_p);
2827 return(scm_mkstring(__retval__));
2828 }
2829 #endif /* INCOMPLETE */
2830
2831 #ifdef INCOMPLETE
2832 /* +++ return type GtkArg* not defined */
sgtk_container_query_child_args(SOBJ o_class_type,SOBJ o_arg_flags,SOBJ o_n_args)2833 SOBJ sgtk_container_query_child_args (SOBJ o_class_type, SOBJ o_arg_flags, SOBJ o_n_args)
2834 {
2835 GtkType class_type;
2836 guint32** arg_flags;
2837 guint* n_args;
2838 GtkArg* __retval__;
2839
2840 class_type = scm_number2long(o_class_type);
2841 /* +++ undefined guint32** */
2842 /* +++ undefined guint* */
2843 __retval__ = gtk_container_query_child_args(class_type, arg_flags, n_args);
2844 /* +++ don't know how to generate GtkArg* */
2845 return(scm_undefined);
2846 }
2847 #endif /* INCOMPLETE */
2848
sgtk_container_set_border_width(SOBJ o_container,SOBJ o_border_width)2849 SOBJ sgtk_container_set_border_width (SOBJ o_container, SOBJ o_border_width)
2850 {
2851 GtkContainer* container;
2852 guint border_width;
2853
2854 container = sgtk_get_Object(o_container);
2855 border_width = scm_number2long(o_border_width);
2856 gtk_container_set_border_width(container, border_width);
2857 return(scm_undefined);
2858 }
2859
sgtk_container_add(SOBJ o_container,SOBJ o_widget)2860 SOBJ sgtk_container_add (SOBJ o_container, SOBJ o_widget)
2861 {
2862 GtkContainer* container;
2863 GtkWidget* widget;
2864
2865 container = sgtk_get_Object(o_container);
2866 widget = sgtk_get_Object(o_widget);
2867 gtk_container_add(container, widget);
2868 return(scm_undefined);
2869 }
2870
sgtk_container_remove(SOBJ o_container,SOBJ o_widget)2871 SOBJ sgtk_container_remove (SOBJ o_container, SOBJ o_widget)
2872 {
2873 GtkContainer* container;
2874 GtkWidget* widget;
2875
2876 container = sgtk_get_Object(o_container);
2877 widget = sgtk_get_Object(o_widget);
2878 gtk_container_remove(container, widget);
2879 return(scm_undefined);
2880 }
2881
sgtk_container_dequeue_resize_handler(SOBJ o_container)2882 SOBJ sgtk_container_dequeue_resize_handler (SOBJ o_container)
2883 {
2884 GtkContainer* container;
2885
2886 container = sgtk_get_Object(o_container);
2887 gtk_container_dequeue_resize_handler(container);
2888 return(scm_undefined);
2889 }
2890
sgtk_container_clear_resize_widgets(SOBJ o_container)2891 SOBJ sgtk_container_clear_resize_widgets (SOBJ o_container)
2892 {
2893 GtkContainer* container;
2894
2895 container = sgtk_get_Object(o_container);
2896 gtk_container_clear_resize_widgets(container);
2897 return(scm_undefined);
2898 }
2899
sgtk_container_set_resize_mode(SOBJ o_container,SOBJ o_resize_mode)2900 SOBJ sgtk_container_set_resize_mode (SOBJ o_container, SOBJ o_resize_mode)
2901 {
2902 GtkContainer* container;
2903 GtkResizeMode resize_mode;
2904
2905 container = sgtk_get_Object(o_container);
2906 resize_mode = sgtk_enumget("GtkResizeMode", o_resize_mode);
2907 gtk_container_set_resize_mode(container, resize_mode);
2908 return(scm_undefined);
2909 }
2910
sgtk_container_set_reallocate_redraws(SOBJ o_container,SOBJ o_needs_redraws)2911 SOBJ sgtk_container_set_reallocate_redraws (SOBJ o_container, SOBJ o_needs_redraws)
2912 {
2913 GtkContainer* container;
2914 gboolean needs_redraws;
2915
2916 container = sgtk_get_Object(o_container);
2917 needs_redraws = (o_needs_redraws != scm_false);
2918 gtk_container_set_reallocate_redraws(container, needs_redraws);
2919 return(scm_undefined);
2920 }
2921
sgtk_container_queue_resize(SOBJ o_container)2922 SOBJ sgtk_container_queue_resize (SOBJ o_container)
2923 {
2924 GtkContainer* container;
2925
2926 container = sgtk_get_Object(o_container);
2927 gtk_container_queue_resize(container);
2928 return(scm_undefined);
2929 }
2930
sgtk_container_check_resize(SOBJ o_container)2931 SOBJ sgtk_container_check_resize (SOBJ o_container)
2932 {
2933 GtkContainer* container;
2934
2935 container = sgtk_get_Object(o_container);
2936 gtk_container_check_resize(container);
2937 return(scm_undefined);
2938 }
2939
sgtk_container_resize_children(SOBJ o_container)2940 SOBJ sgtk_container_resize_children (SOBJ o_container)
2941 {
2942 GtkContainer* container;
2943
2944 container = sgtk_get_Object(o_container);
2945 gtk_container_resize_children(container);
2946 return(scm_undefined);
2947 }
2948
2949 #ifdef INCOMPLETE
sgtk_container_forall(SOBJ o_container,SOBJ o_callback,SOBJ o_callback_data)2950 SOBJ sgtk_container_forall (SOBJ o_container, SOBJ o_callback, SOBJ o_callback_data)
2951 {
2952 GtkContainer* container;
2953 GtkCallback callback;
2954 gpointer callback_data;
2955
2956 container = sgtk_get_Object(o_container);
2957 /* +++ undefined GtkCallback */
2958 /* +++ get gpointer -> pointer failed */
2959 gtk_container_forall(container, callback, callback_data);
2960 return(scm_undefined);
2961 }
2962 #endif /* INCOMPLETE */
2963
2964 #ifdef INCOMPLETE
sgtk_container_foreach(SOBJ o_container,SOBJ o_callback,SOBJ o_callback_data)2965 SOBJ sgtk_container_foreach (SOBJ o_container, SOBJ o_callback, SOBJ o_callback_data)
2966 {
2967 GtkContainer* container;
2968 GtkCallback callback;
2969 gpointer callback_data;
2970
2971 container = sgtk_get_Object(o_container);
2972 /* +++ undefined GtkCallback */
2973 /* +++ get gpointer -> pointer failed */
2974 gtk_container_foreach(container, callback, callback_data);
2975 return(scm_undefined);
2976 }
2977 #endif /* INCOMPLETE */
2978
2979 #ifdef INCOMPLETE
sgtk_container_foreach_full(SOBJ o_container,SOBJ o_callback,SOBJ o_marshal,SOBJ o_callback_data,SOBJ o_notify)2980 SOBJ sgtk_container_foreach_full (SOBJ o_container, SOBJ o_callback, SOBJ o_marshal, SOBJ o_callback_data, SOBJ o_notify)
2981 {
2982 GtkContainer* container;
2983 GtkCallback callback;
2984 GtkCallbackMarshal marshal;
2985 gpointer callback_data;
2986 GtkDestroyNotify notify;
2987
2988 container = sgtk_get_Object(o_container);
2989 /* +++ undefined GtkCallback */
2990 /* +++ undefined GtkCallbackMarshal */
2991 /* +++ get gpointer -> pointer failed */
2992 /* +++ undefined GtkDestroyNotify */
2993 gtk_container_foreach_full(container, callback, marshal, callback_data, notify);
2994 return(scm_undefined);
2995 }
2996 #endif /* INCOMPLETE */
2997
sgtk_container_focus(SOBJ o_container,SOBJ o_direction)2998 SOBJ sgtk_container_focus (SOBJ o_container, SOBJ o_direction)
2999 {
3000 GtkContainer* container;
3001 GtkDirectionType direction;
3002 gint __retval__;
3003
3004 container = sgtk_get_Object(o_container);
3005 direction = sgtk_enumget("GtkDirectionType", o_direction);
3006 __retval__ = gtk_container_focus(container, direction);
3007 return(SCM_MKINUM(__retval__));
3008 }
3009
sgtk_container_set_focus_child(SOBJ o_container,SOBJ o_widget)3010 SOBJ sgtk_container_set_focus_child (SOBJ o_container, SOBJ o_widget)
3011 {
3012 GtkContainer* container;
3013 GtkWidget* widget;
3014
3015 container = sgtk_get_Object(o_container);
3016 widget = sgtk_get_Object(o_widget);
3017 gtk_container_set_focus_child(container, widget);
3018 return(scm_undefined);
3019 }
3020
3021 #ifdef INCOMPLETE
3022 /* +++ return type GList* not defined */
sgtk_container_children(SOBJ o_container)3023 SOBJ sgtk_container_children (SOBJ o_container)
3024 {
3025 GtkContainer* container;
3026 GList* __retval__;
3027
3028 container = sgtk_get_Object(o_container);
3029 __retval__ = gtk_container_children(container);
3030 /* +++ don't know how to generate GList* */
3031 return(scm_undefined);
3032 }
3033 #endif /* INCOMPLETE */
3034
sgtk_container_register_toplevel(SOBJ o_container)3035 SOBJ sgtk_container_register_toplevel (SOBJ o_container)
3036 {
3037 GtkContainer* container;
3038
3039 container = sgtk_get_Object(o_container);
3040 gtk_container_register_toplevel(container);
3041 return(scm_undefined);
3042 }
3043
sgtk_container_unregister_toplevel(SOBJ o_container)3044 SOBJ sgtk_container_unregister_toplevel (SOBJ o_container)
3045 {
3046 GtkContainer* container;
3047
3048 container = sgtk_get_Object(o_container);
3049 gtk_container_unregister_toplevel(container);
3050 return(scm_undefined);
3051 }
3052
3053 #ifdef INCOMPLETE
3054 /* +++ return type GList* not defined */
sgtk_container_get_toplevels()3055 SOBJ sgtk_container_get_toplevels ()
3056 {
3057 GList* __retval__;
3058
3059 __retval__ = gtk_container_get_toplevels();
3060 /* +++ don't know how to generate GList* */
3061 return(scm_undefined);
3062 }
3063 #endif /* INCOMPLETE */
3064
sgtk_container_child_composite_name(SOBJ o_container,SOBJ o_child)3065 SOBJ sgtk_container_child_composite_name (SOBJ o_container, SOBJ o_child)
3066 {
3067 GtkContainer* container;
3068 GtkWidget* child;
3069 gchar* __retval__;
3070
3071 container = sgtk_get_Object(o_container);
3072 child = sgtk_get_Object(o_child);
3073 __retval__ = gtk_container_child_composite_name(container, child);
3074 return(scm_mkstring(__retval__));
3075 }
3076
3077 /* +++ ignoring gtk_container_real_set_focus_child */
3078
sgtk_container_set_focus_vadjustment(SOBJ o_container,SOBJ o_adjustment)3079 SOBJ sgtk_container_set_focus_vadjustment (SOBJ o_container, SOBJ o_adjustment)
3080 {
3081 GtkContainer* container;
3082 GtkAdjustment* adjustment;
3083
3084 container = sgtk_get_Object(o_container);
3085 adjustment = sgtk_get_Object(o_adjustment);
3086 gtk_container_set_focus_vadjustment(container, adjustment);
3087 return(scm_undefined);
3088 }
3089
sgtk_container_set_focus_hadjustment(SOBJ o_container,SOBJ o_adjustment)3090 SOBJ sgtk_container_set_focus_hadjustment (SOBJ o_container, SOBJ o_adjustment)
3091 {
3092 GtkContainer* container;
3093 GtkAdjustment* adjustment;
3094
3095 container = sgtk_get_Object(o_container);
3096 adjustment = sgtk_get_Object(o_adjustment);
3097 gtk_container_set_focus_hadjustment(container, adjustment);
3098 return(scm_undefined);
3099 }
3100
sgtk_ctree_get_type()3101 SOBJ sgtk_ctree_get_type ()
3102 {
3103 GtkType __retval__;
3104
3105 __retval__ = gtk_ctree_get_type();
3106 return(SCM_MKINUM(__retval__));
3107 }
3108
sgtk_ctree_new(SOBJ o_columns,SOBJ o_tree_column)3109 SOBJ sgtk_ctree_new (SOBJ o_columns, SOBJ o_tree_column)
3110 {
3111 gint columns;
3112 gint tree_column;
3113 GtkWidget* __retval__;
3114
3115 columns = scm_number2long(o_columns);
3116 tree_column = scm_number2long(o_tree_column);
3117 __retval__ = gtk_ctree_new(columns, tree_column);
3118 return(sgtk_object_new((void*)__retval__));
3119 }
3120
3121 #ifdef INCOMPLETE
sgtk_ctree_insert_gnode(SOBJ o_ctree,SOBJ o_parent,SOBJ o_sibling,SOBJ o_gnode,SOBJ o_func,SOBJ o_data)3122 SOBJ sgtk_ctree_insert_gnode (SOBJ o_ctree, SOBJ o_parent, SOBJ o_sibling, SOBJ o_gnode, SOBJ o_func, SOBJ o_data)
3123 {
3124 GtkCTree* ctree;
3125 GtkCTreeNode* parent;
3126 GtkCTreeNode* sibling;
3127 GNode* gnode;
3128 GtkCTreeGNodeFunc func;
3129 gpointer data;
3130 GtkCTreeNode* __retval__;
3131
3132 ctree = sgtk_get_Object(o_ctree);
3133 parent = sgtk_get_CTreeNode(o_parent);
3134 sibling = sgtk_get_CTreeNode(o_sibling);
3135 /* +++ undefined GNode* */
3136 /* +++ undefined GtkCTreeGNodeFunc */
3137 /* +++ get gpointer -> pointer failed */
3138 __retval__ = gtk_ctree_insert_gnode(ctree, parent, sibling, gnode, func, data);
3139 return(sgtk_CTreeNode_new(__retval__));
3140 }
3141 #endif /* INCOMPLETE */
3142
3143 #ifdef INCOMPLETE
3144 /* +++ return type GNode* not defined */
sgtk_ctree_export_to_gnode(SOBJ o_ctree,SOBJ o_parent,SOBJ o_sibling,SOBJ o_node,SOBJ o_func,SOBJ o_data)3145 SOBJ sgtk_ctree_export_to_gnode (SOBJ o_ctree, SOBJ o_parent, SOBJ o_sibling, SOBJ o_node, SOBJ o_func, SOBJ o_data)
3146 {
3147 GtkCTree* ctree;
3148 GNode* parent;
3149 GNode* sibling;
3150 GtkCTreeNode* node;
3151 GtkCTreeGNodeFunc func;
3152 gpointer data;
3153 GNode* __retval__;
3154
3155 ctree = sgtk_get_Object(o_ctree);
3156 /* +++ undefined GNode* */
3157 /* +++ undefined GNode* */
3158 node = sgtk_get_CTreeNode(o_node);
3159 /* +++ undefined GtkCTreeGNodeFunc */
3160 /* +++ get gpointer -> pointer failed */
3161 __retval__ = gtk_ctree_export_to_gnode(ctree, parent, sibling, node, func, data);
3162 /* +++ don't know how to generate GNode* */
3163 return(scm_undefined);
3164 }
3165 #endif /* INCOMPLETE */
3166
sgtk_ctree_remove_node(SOBJ o_ctree,SOBJ o_node)3167 SOBJ sgtk_ctree_remove_node (SOBJ o_ctree, SOBJ o_node)
3168 {
3169 GtkCTree* ctree;
3170 GtkCTreeNode* node;
3171
3172 ctree = sgtk_get_Object(o_ctree);
3173 node = sgtk_get_CTreeNode(o_node);
3174 gtk_ctree_remove_node(ctree, node);
3175 return(scm_undefined);
3176 }
3177
3178 #ifdef INCOMPLETE
sgtk_ctree_post_recursive(SOBJ o_ctree,SOBJ o_node,SOBJ o_func,SOBJ o_data)3179 SOBJ sgtk_ctree_post_recursive (SOBJ o_ctree, SOBJ o_node, SOBJ o_func, SOBJ o_data)
3180 {
3181 GtkCTree* ctree;
3182 GtkCTreeNode* node;
3183 GtkCTreeFunc func;
3184 gpointer data;
3185
3186 ctree = sgtk_get_Object(o_ctree);
3187 node = sgtk_get_CTreeNode(o_node);
3188 /* +++ undefined GtkCTreeFunc */
3189 /* +++ get gpointer -> pointer failed */
3190 gtk_ctree_post_recursive(ctree, node, func, data);
3191 return(scm_undefined);
3192 }
3193 #endif /* INCOMPLETE */
3194
3195 #ifdef INCOMPLETE
sgtk_ctree_post_recursive_to_depth(SOBJ o_ctree,SOBJ o_node,SOBJ o_depth,SOBJ o_func,SOBJ o_data)3196 SOBJ sgtk_ctree_post_recursive_to_depth (SOBJ o_ctree, SOBJ o_node, SOBJ o_depth, SOBJ o_func, SOBJ o_data)
3197 {
3198 GtkCTree* ctree;
3199 GtkCTreeNode* node;
3200 gint depth;
3201 GtkCTreeFunc func;
3202 gpointer data;
3203
3204 ctree = sgtk_get_Object(o_ctree);
3205 node = sgtk_get_CTreeNode(o_node);
3206 depth = scm_number2long(o_depth);
3207 /* +++ undefined GtkCTreeFunc */
3208 /* +++ get gpointer -> pointer failed */
3209 gtk_ctree_post_recursive_to_depth(ctree, node, depth, func, data);
3210 return(scm_undefined);
3211 }
3212 #endif /* INCOMPLETE */
3213
3214 #ifdef INCOMPLETE
sgtk_ctree_pre_recursive(SOBJ o_ctree,SOBJ o_node,SOBJ o_func,SOBJ o_data)3215 SOBJ sgtk_ctree_pre_recursive (SOBJ o_ctree, SOBJ o_node, SOBJ o_func, SOBJ o_data)
3216 {
3217 GtkCTree* ctree;
3218 GtkCTreeNode* node;
3219 GtkCTreeFunc func;
3220 gpointer data;
3221
3222 ctree = sgtk_get_Object(o_ctree);
3223 node = sgtk_get_CTreeNode(o_node);
3224 /* +++ undefined GtkCTreeFunc */
3225 /* +++ get gpointer -> pointer failed */
3226 gtk_ctree_pre_recursive(ctree, node, func, data);
3227 return(scm_undefined);
3228 }
3229 #endif /* INCOMPLETE */
3230
3231 #ifdef INCOMPLETE
sgtk_ctree_pre_recursive_to_depth(SOBJ o_ctree,SOBJ o_node,SOBJ o_depth,SOBJ o_func,SOBJ o_data)3232 SOBJ sgtk_ctree_pre_recursive_to_depth (SOBJ o_ctree, SOBJ o_node, SOBJ o_depth, SOBJ o_func, SOBJ o_data)
3233 {
3234 GtkCTree* ctree;
3235 GtkCTreeNode* node;
3236 gint depth;
3237 GtkCTreeFunc func;
3238 gpointer data;
3239
3240 ctree = sgtk_get_Object(o_ctree);
3241 node = sgtk_get_CTreeNode(o_node);
3242 depth = scm_number2long(o_depth);
3243 /* +++ undefined GtkCTreeFunc */
3244 /* +++ get gpointer -> pointer failed */
3245 gtk_ctree_pre_recursive_to_depth(ctree, node, depth, func, data);
3246 return(scm_undefined);
3247 }
3248 #endif /* INCOMPLETE */
3249
sgtk_ctree_is_viewable(SOBJ o_ctree,SOBJ o_node)3250 SOBJ sgtk_ctree_is_viewable (SOBJ o_ctree, SOBJ o_node)
3251 {
3252 GtkCTree* ctree;
3253 GtkCTreeNode* node;
3254 gboolean __retval__;
3255
3256 ctree = sgtk_get_Object(o_ctree);
3257 node = sgtk_get_CTreeNode(o_node);
3258 __retval__ = gtk_ctree_is_viewable(ctree, node);
3259 return(SCM_MKBOOL(__retval__));
3260 }
3261
sgtk_ctree_last(SOBJ o_ctree,SOBJ o_node)3262 SOBJ sgtk_ctree_last (SOBJ o_ctree, SOBJ o_node)
3263 {
3264 GtkCTree* ctree;
3265 GtkCTreeNode* node;
3266 GtkCTreeNode* __retval__;
3267
3268 ctree = sgtk_get_Object(o_ctree);
3269 node = sgtk_get_CTreeNode(o_node);
3270 __retval__ = gtk_ctree_last(ctree, node);
3271 return(sgtk_CTreeNode_new(__retval__));
3272 }
3273
sgtk_ctree_find_node_ptr(SOBJ o_ctree,SOBJ o_ctree_row)3274 SOBJ sgtk_ctree_find_node_ptr (SOBJ o_ctree, SOBJ o_ctree_row)
3275 {
3276 GtkCTree* ctree;
3277 GtkCTreeRow* ctree_row;
3278 GtkCTreeNode* __retval__;
3279
3280 ctree = sgtk_get_Object(o_ctree);
3281 ctree_row = sgtk_get_Object(o_ctree_row);
3282 __retval__ = gtk_ctree_find_node_ptr(ctree, ctree_row);
3283 return(sgtk_CTreeNode_new(__retval__));
3284 }
3285
sgtk_ctree_node_nth(SOBJ o_ctree,SOBJ o_row)3286 SOBJ sgtk_ctree_node_nth (SOBJ o_ctree, SOBJ o_row)
3287 {
3288 GtkCTree* ctree;
3289 guint row;
3290 GtkCTreeNode* __retval__;
3291
3292 ctree = sgtk_get_Object(o_ctree);
3293 row = scm_number2long(o_row);
3294 __retval__ = gtk_ctree_node_nth(ctree, row);
3295 return(sgtk_CTreeNode_new(__retval__));
3296 }
3297
sgtk_ctree_find(SOBJ o_ctree,SOBJ o_node,SOBJ o_child)3298 SOBJ sgtk_ctree_find (SOBJ o_ctree, SOBJ o_node, SOBJ o_child)
3299 {
3300 GtkCTree* ctree;
3301 GtkCTreeNode* node;
3302 GtkCTreeNode* child;
3303 gboolean __retval__;
3304
3305 ctree = sgtk_get_Object(o_ctree);
3306 node = sgtk_get_CTreeNode(o_node);
3307 child = sgtk_get_CTreeNode(o_child);
3308 __retval__ = gtk_ctree_find(ctree, node, child);
3309 return(SCM_MKBOOL(__retval__));
3310 }
3311
sgtk_ctree_is_ancestor(SOBJ o_ctree,SOBJ o_node,SOBJ o_child)3312 SOBJ sgtk_ctree_is_ancestor (SOBJ o_ctree, SOBJ o_node, SOBJ o_child)
3313 {
3314 GtkCTree* ctree;
3315 GtkCTreeNode* node;
3316 GtkCTreeNode* child;
3317 gboolean __retval__;
3318
3319 ctree = sgtk_get_Object(o_ctree);
3320 node = sgtk_get_CTreeNode(o_node);
3321 child = sgtk_get_CTreeNode(o_child);
3322 __retval__ = gtk_ctree_is_ancestor(ctree, node, child);
3323 return(SCM_MKBOOL(__retval__));
3324 }
3325
3326 #ifdef INCOMPLETE
sgtk_ctree_find_by_row_data(SOBJ o_ctree,SOBJ o_node,SOBJ o_data)3327 SOBJ sgtk_ctree_find_by_row_data (SOBJ o_ctree, SOBJ o_node, SOBJ o_data)
3328 {
3329 GtkCTree* ctree;
3330 GtkCTreeNode* node;
3331 gpointer data;
3332 GtkCTreeNode* __retval__;
3333
3334 ctree = sgtk_get_Object(o_ctree);
3335 node = sgtk_get_CTreeNode(o_node);
3336 /* +++ get gpointer -> pointer failed */
3337 __retval__ = gtk_ctree_find_by_row_data(ctree, node, data);
3338 return(sgtk_CTreeNode_new(__retval__));
3339 }
3340 #endif /* INCOMPLETE */
3341
3342 #ifdef INCOMPLETE
3343 /* +++ return type GList* not defined */
sgtk_ctree_find_all_by_row_data(SOBJ o_ctree,SOBJ o_node,SOBJ o_data)3344 SOBJ sgtk_ctree_find_all_by_row_data (SOBJ o_ctree, SOBJ o_node, SOBJ o_data)
3345 {
3346 GtkCTree* ctree;
3347 GtkCTreeNode* node;
3348 gpointer data;
3349 GList* __retval__;
3350
3351 ctree = sgtk_get_Object(o_ctree);
3352 node = sgtk_get_CTreeNode(o_node);
3353 /* +++ get gpointer -> pointer failed */
3354 __retval__ = gtk_ctree_find_all_by_row_data(ctree, node, data);
3355 /* +++ don't know how to generate GList* */
3356 return(scm_undefined);
3357 }
3358 #endif /* INCOMPLETE */
3359
3360 #ifdef INCOMPLETE
sgtk_ctree_find_by_row_data_custom(SOBJ o_ctree,SOBJ o_node,SOBJ o_data,SOBJ o_func)3361 SOBJ sgtk_ctree_find_by_row_data_custom (SOBJ o_ctree, SOBJ o_node, SOBJ o_data, SOBJ o_func)
3362 {
3363 GtkCTree* ctree;
3364 GtkCTreeNode* node;
3365 gpointer data;
3366 GCompareFunc func;
3367 GtkCTreeNode* __retval__;
3368
3369 ctree = sgtk_get_Object(o_ctree);
3370 node = sgtk_get_CTreeNode(o_node);
3371 /* +++ get gpointer -> pointer failed */
3372 /* +++ undefined GCompareFunc */
3373 __retval__ = gtk_ctree_find_by_row_data_custom(ctree, node, data, func);
3374 return(sgtk_CTreeNode_new(__retval__));
3375 }
3376 #endif /* INCOMPLETE */
3377
3378 #ifdef INCOMPLETE
3379 /* +++ return type GList* not defined */
sgtk_ctree_find_all_by_row_data_custom(SOBJ o_ctree,SOBJ o_node,SOBJ o_data,SOBJ o_func)3380 SOBJ sgtk_ctree_find_all_by_row_data_custom (SOBJ o_ctree, SOBJ o_node, SOBJ o_data, SOBJ o_func)
3381 {
3382 GtkCTree* ctree;
3383 GtkCTreeNode* node;
3384 gpointer data;
3385 GCompareFunc func;
3386 GList* __retval__;
3387
3388 ctree = sgtk_get_Object(o_ctree);
3389 node = sgtk_get_CTreeNode(o_node);
3390 /* +++ get gpointer -> pointer failed */
3391 /* +++ undefined GCompareFunc */
3392 __retval__ = gtk_ctree_find_all_by_row_data_custom(ctree, node, data, func);
3393 /* +++ don't know how to generate GList* */
3394 return(scm_undefined);
3395 }
3396 #endif /* INCOMPLETE */
3397
sgtk_ctree_is_hot_spot(SOBJ o_ctree,SOBJ o_x,SOBJ o_y)3398 SOBJ sgtk_ctree_is_hot_spot (SOBJ o_ctree, SOBJ o_x, SOBJ o_y)
3399 {
3400 GtkCTree* ctree;
3401 gint x;
3402 gint y;
3403 gboolean __retval__;
3404
3405 ctree = sgtk_get_Object(o_ctree);
3406 x = scm_number2long(o_x);
3407 y = scm_number2long(o_y);
3408 __retval__ = gtk_ctree_is_hot_spot(ctree, x, y);
3409 return(SCM_MKBOOL(__retval__));
3410 }
3411
sgtk_ctree_move(SOBJ o_ctree,SOBJ o_node,SOBJ o_new_parent,SOBJ o_new_sibling)3412 SOBJ sgtk_ctree_move (SOBJ o_ctree, SOBJ o_node, SOBJ o_new_parent, SOBJ o_new_sibling)
3413 {
3414 GtkCTree* ctree;
3415 GtkCTreeNode* node;
3416 GtkCTreeNode* new_parent;
3417 GtkCTreeNode* new_sibling;
3418
3419 ctree = sgtk_get_Object(o_ctree);
3420 node = sgtk_get_CTreeNode(o_node);
3421 new_parent = sgtk_get_CTreeNode(o_new_parent);
3422 new_sibling = sgtk_get_CTreeNode(o_new_sibling);
3423 gtk_ctree_move(ctree, node, new_parent, new_sibling);
3424 return(scm_undefined);
3425 }
3426
sgtk_ctree_expand(SOBJ o_ctree,SOBJ o_node)3427 SOBJ sgtk_ctree_expand (SOBJ o_ctree, SOBJ o_node)
3428 {
3429 GtkCTree* ctree;
3430 GtkCTreeNode* node;
3431
3432 ctree = sgtk_get_Object(o_ctree);
3433 node = sgtk_get_CTreeNode(o_node);
3434 gtk_ctree_expand(ctree, node);
3435 return(scm_undefined);
3436 }
3437
sgtk_ctree_expand_recursive(SOBJ o_ctree,SOBJ o_node)3438 SOBJ sgtk_ctree_expand_recursive (SOBJ o_ctree, SOBJ o_node)
3439 {
3440 GtkCTree* ctree;
3441 GtkCTreeNode* node;
3442
3443 ctree = sgtk_get_Object(o_ctree);
3444 node = sgtk_get_CTreeNode(o_node);
3445 gtk_ctree_expand_recursive(ctree, node);
3446 return(scm_undefined);
3447 }
3448
sgtk_ctree_expand_to_depth(SOBJ o_ctree,SOBJ o_node,SOBJ o_depth)3449 SOBJ sgtk_ctree_expand_to_depth (SOBJ o_ctree, SOBJ o_node, SOBJ o_depth)
3450 {
3451 GtkCTree* ctree;
3452 GtkCTreeNode* node;
3453 gint depth;
3454
3455 ctree = sgtk_get_Object(o_ctree);
3456 node = sgtk_get_CTreeNode(o_node);
3457 depth = scm_number2long(o_depth);
3458 gtk_ctree_expand_to_depth(ctree, node, depth);
3459 return(scm_undefined);
3460 }
3461
sgtk_ctree_collapse(SOBJ o_ctree,SOBJ o_node)3462 SOBJ sgtk_ctree_collapse (SOBJ o_ctree, SOBJ o_node)
3463 {
3464 GtkCTree* ctree;
3465 GtkCTreeNode* node;
3466
3467 ctree = sgtk_get_Object(o_ctree);
3468 node = sgtk_get_CTreeNode(o_node);
3469 gtk_ctree_collapse(ctree, node);
3470 return(scm_undefined);
3471 }
3472
sgtk_ctree_collapse_recursive(SOBJ o_ctree,SOBJ o_node)3473 SOBJ sgtk_ctree_collapse_recursive (SOBJ o_ctree, SOBJ o_node)
3474 {
3475 GtkCTree* ctree;
3476 GtkCTreeNode* node;
3477
3478 ctree = sgtk_get_Object(o_ctree);
3479 node = sgtk_get_CTreeNode(o_node);
3480 gtk_ctree_collapse_recursive(ctree, node);
3481 return(scm_undefined);
3482 }
3483
sgtk_ctree_collapse_to_depth(SOBJ o_ctree,SOBJ o_node,SOBJ o_depth)3484 SOBJ sgtk_ctree_collapse_to_depth (SOBJ o_ctree, SOBJ o_node, SOBJ o_depth)
3485 {
3486 GtkCTree* ctree;
3487 GtkCTreeNode* node;
3488 gint depth;
3489
3490 ctree = sgtk_get_Object(o_ctree);
3491 node = sgtk_get_CTreeNode(o_node);
3492 depth = scm_number2long(o_depth);
3493 gtk_ctree_collapse_to_depth(ctree, node, depth);
3494 return(scm_undefined);
3495 }
3496
sgtk_ctree_toggle_expansion(SOBJ o_ctree,SOBJ o_node)3497 SOBJ sgtk_ctree_toggle_expansion (SOBJ o_ctree, SOBJ o_node)
3498 {
3499 GtkCTree* ctree;
3500 GtkCTreeNode* node;
3501
3502 ctree = sgtk_get_Object(o_ctree);
3503 node = sgtk_get_CTreeNode(o_node);
3504 gtk_ctree_toggle_expansion(ctree, node);
3505 return(scm_undefined);
3506 }
3507
sgtk_ctree_toggle_expansion_recursive(SOBJ o_ctree,SOBJ o_node)3508 SOBJ sgtk_ctree_toggle_expansion_recursive (SOBJ o_ctree, SOBJ o_node)
3509 {
3510 GtkCTree* ctree;
3511 GtkCTreeNode* node;
3512
3513 ctree = sgtk_get_Object(o_ctree);
3514 node = sgtk_get_CTreeNode(o_node);
3515 gtk_ctree_toggle_expansion_recursive(ctree, node);
3516 return(scm_undefined);
3517 }
3518
sgtk_ctree_select(SOBJ o_ctree,SOBJ o_node)3519 SOBJ sgtk_ctree_select (SOBJ o_ctree, SOBJ o_node)
3520 {
3521 GtkCTree* ctree;
3522 GtkCTreeNode* node;
3523
3524 ctree = sgtk_get_Object(o_ctree);
3525 node = sgtk_get_CTreeNode(o_node);
3526 gtk_ctree_select(ctree, node);
3527 return(scm_undefined);
3528 }
3529
sgtk_ctree_unselect(SOBJ o_ctree,SOBJ o_node)3530 SOBJ sgtk_ctree_unselect (SOBJ o_ctree, SOBJ o_node)
3531 {
3532 GtkCTree* ctree;
3533 GtkCTreeNode* node;
3534
3535 ctree = sgtk_get_Object(o_ctree);
3536 node = sgtk_get_CTreeNode(o_node);
3537 gtk_ctree_unselect(ctree, node);
3538 return(scm_undefined);
3539 }
3540
sgtk_ctree_select_recursive(SOBJ o_ctree,SOBJ o_node)3541 SOBJ sgtk_ctree_select_recursive (SOBJ o_ctree, SOBJ o_node)
3542 {
3543 GtkCTree* ctree;
3544 GtkCTreeNode* node;
3545
3546 ctree = sgtk_get_Object(o_ctree);
3547 node = sgtk_get_CTreeNode(o_node);
3548 gtk_ctree_select_recursive(ctree, node);
3549 return(scm_undefined);
3550 }
3551
sgtk_ctree_unselect_recursive(SOBJ o_ctree,SOBJ o_node)3552 SOBJ sgtk_ctree_unselect_recursive (SOBJ o_ctree, SOBJ o_node)
3553 {
3554 GtkCTree* ctree;
3555 GtkCTreeNode* node;
3556
3557 ctree = sgtk_get_Object(o_ctree);
3558 node = sgtk_get_CTreeNode(o_node);
3559 gtk_ctree_unselect_recursive(ctree, node);
3560 return(scm_undefined);
3561 }
3562
3563 /* +++ ignoring gtk_ctree_real_select_recursive */
3564
sgtk_ctree_node_set_text(SOBJ o_ctree,SOBJ o_node,SOBJ o_column,SOBJ o_text)3565 SOBJ sgtk_ctree_node_set_text (SOBJ o_ctree, SOBJ o_node, SOBJ o_column, SOBJ o_text)
3566 {
3567 GtkCTree* ctree;
3568 GtkCTreeNode* node;
3569 gint column;
3570 gchar* text;
3571
3572 ctree = sgtk_get_Object(o_ctree);
3573 node = sgtk_get_CTreeNode(o_node);
3574 column = scm_number2long(o_column);
3575 text = scm_getstr(o_text);
3576 gtk_ctree_node_set_text(ctree, node, column, text);
3577 return(scm_undefined);
3578 }
3579
sgtk_ctree_node_set_pixmap(SOBJ o_ctree,SOBJ o_node,SOBJ o_column,SOBJ o_pixmap,SOBJ o_mask)3580 SOBJ sgtk_ctree_node_set_pixmap (SOBJ o_ctree, SOBJ o_node, SOBJ o_column, SOBJ o_pixmap, SOBJ o_mask)
3581 {
3582 GtkCTree* ctree;
3583 GtkCTreeNode* node;
3584 gint column;
3585 GdkPixmap* pixmap;
3586 GdkBitmap* mask;
3587
3588 ctree = sgtk_get_Object(o_ctree);
3589 node = sgtk_get_CTreeNode(o_node);
3590 column = scm_number2long(o_column);
3591 pixmap = sgdk_get_Window(o_pixmap);
3592 mask = sgdk_get_Window(o_mask);
3593 gtk_ctree_node_set_pixmap(ctree, node, column, pixmap, mask);
3594 return(scm_undefined);
3595 }
3596
sgtk_ctree_node_set_pixtext(SOBJ o_ctree,SOBJ o_node,SOBJ o_column,SOBJ o_text,SOBJ o_spacing,SOBJ o_pixmap,SOBJ o_mask)3597 SOBJ sgtk_ctree_node_set_pixtext (SOBJ o_ctree, SOBJ o_node, SOBJ o_column, SOBJ o_text, SOBJ o_spacing, SOBJ o_pixmap, SOBJ o_mask)
3598 {
3599 GtkCTree* ctree;
3600 GtkCTreeNode* node;
3601 gint column;
3602 gchar* text;
3603 guint8 spacing;
3604 GdkPixmap* pixmap;
3605 GdkBitmap* mask;
3606
3607 ctree = sgtk_get_Object(o_ctree);
3608 node = sgtk_get_CTreeNode(o_node);
3609 column = scm_number2long(o_column);
3610 text = scm_getstr(o_text);
3611 spacing = scm_number2long(o_spacing);
3612 pixmap = sgdk_get_Window(o_pixmap);
3613 mask = sgdk_get_Window(o_mask);
3614 gtk_ctree_node_set_pixtext(ctree, node, column, text, spacing, pixmap, mask);
3615 return(scm_undefined);
3616 }
3617
sgtk_ctree_set_node_info(SOBJ o_ctree,SOBJ o_node,SOBJ o_text,SOBJ o_spacing,SOBJ o_pixmap_closed,SOBJ o_mask_closed,SOBJ o_pixmap_opened,SOBJ o_mask_opened,SOBJ o_is_leaf,SOBJ o_expanded)3618 SOBJ sgtk_ctree_set_node_info (SOBJ o_ctree, SOBJ o_node, SOBJ o_text, SOBJ o_spacing, SOBJ o_pixmap_closed, SOBJ o_mask_closed, SOBJ o_pixmap_opened, SOBJ o_mask_opened, SOBJ o_is_leaf, SOBJ o_expanded)
3619 {
3620 GtkCTree* ctree;
3621 GtkCTreeNode* node;
3622 gchar* text;
3623 guint8 spacing;
3624 GdkPixmap* pixmap_closed;
3625 GdkBitmap* mask_closed;
3626 GdkPixmap* pixmap_opened;
3627 GdkBitmap* mask_opened;
3628 gboolean is_leaf;
3629 gboolean expanded;
3630
3631 ctree = sgtk_get_Object(o_ctree);
3632 node = sgtk_get_CTreeNode(o_node);
3633 text = scm_getstr(o_text);
3634 spacing = scm_number2long(o_spacing);
3635 pixmap_closed = sgdk_get_Window(o_pixmap_closed);
3636 mask_closed = sgdk_get_Window(o_mask_closed);
3637 pixmap_opened = sgdk_get_Window(o_pixmap_opened);
3638 mask_opened = sgdk_get_Window(o_mask_opened);
3639 is_leaf = (o_is_leaf != scm_false);
3640 expanded = (o_expanded != scm_false);
3641 gtk_ctree_set_node_info(ctree, node, text, spacing, pixmap_closed, mask_closed, pixmap_opened, mask_opened, is_leaf, expanded);
3642 return(scm_undefined);
3643 }
3644
sgtk_ctree_node_set_shift(SOBJ o_ctree,SOBJ o_node,SOBJ o_column,SOBJ o_vertical,SOBJ o_horizontal)3645 SOBJ sgtk_ctree_node_set_shift (SOBJ o_ctree, SOBJ o_node, SOBJ o_column, SOBJ o_vertical, SOBJ o_horizontal)
3646 {
3647 GtkCTree* ctree;
3648 GtkCTreeNode* node;
3649 gint column;
3650 gint vertical;
3651 gint horizontal;
3652
3653 ctree = sgtk_get_Object(o_ctree);
3654 node = sgtk_get_CTreeNode(o_node);
3655 column = scm_number2long(o_column);
3656 vertical = scm_number2long(o_vertical);
3657 horizontal = scm_number2long(o_horizontal);
3658 gtk_ctree_node_set_shift(ctree, node, column, vertical, horizontal);
3659 return(scm_undefined);
3660 }
3661
sgtk_ctree_node_set_selectable(SOBJ o_ctree,SOBJ o_node,SOBJ o_selectable)3662 SOBJ sgtk_ctree_node_set_selectable (SOBJ o_ctree, SOBJ o_node, SOBJ o_selectable)
3663 {
3664 GtkCTree* ctree;
3665 GtkCTreeNode* node;
3666 gboolean selectable;
3667
3668 ctree = sgtk_get_Object(o_ctree);
3669 node = sgtk_get_CTreeNode(o_node);
3670 selectable = (o_selectable != scm_false);
3671 gtk_ctree_node_set_selectable(ctree, node, selectable);
3672 return(scm_undefined);
3673 }
3674
sgtk_ctree_node_get_selectable(SOBJ o_ctree,SOBJ o_node)3675 SOBJ sgtk_ctree_node_get_selectable (SOBJ o_ctree, SOBJ o_node)
3676 {
3677 GtkCTree* ctree;
3678 GtkCTreeNode* node;
3679 gboolean __retval__;
3680
3681 ctree = sgtk_get_Object(o_ctree);
3682 node = sgtk_get_CTreeNode(o_node);
3683 __retval__ = gtk_ctree_node_get_selectable(ctree, node);
3684 return(SCM_MKBOOL(__retval__));
3685 }
3686
sgtk_ctree_node_get_cell_type(SOBJ o_ctree,SOBJ o_node,SOBJ o_column)3687 SOBJ sgtk_ctree_node_get_cell_type (SOBJ o_ctree, SOBJ o_node, SOBJ o_column)
3688 {
3689 GtkCTree* ctree;
3690 GtkCTreeNode* node;
3691 gint column;
3692 GtkCellType __retval__;
3693
3694 ctree = sgtk_get_Object(o_ctree);
3695 node = sgtk_get_CTreeNode(o_node);
3696 column = scm_number2long(o_column);
3697 __retval__ = gtk_ctree_node_get_cell_type(ctree, node, column);
3698 return(SCM_MKINUM(__retval__));
3699 }
3700
3701 #ifdef INCOMPLETE
sgtk_ctree_node_get_text(SOBJ o_ctree,SOBJ o_node,SOBJ o_column,SOBJ o_text)3702 SOBJ sgtk_ctree_node_get_text (SOBJ o_ctree, SOBJ o_node, SOBJ o_column, SOBJ o_text)
3703 {
3704 GtkCTree* ctree;
3705 GtkCTreeNode* node;
3706 gint column;
3707 gchar** text;
3708 gint __retval__;
3709
3710 ctree = sgtk_get_Object(o_ctree);
3711 node = sgtk_get_CTreeNode(o_node);
3712 column = scm_number2long(o_column);
3713 /* +++ undefined gchar** */
3714 __retval__ = gtk_ctree_node_get_text(ctree, node, column, text);
3715 return(SCM_MKINUM(__retval__));
3716 }
3717 #endif /* INCOMPLETE */
3718
3719 #ifdef INCOMPLETE
sgtk_ctree_node_get_pixmap(SOBJ o_ctree,SOBJ o_node,SOBJ o_column,SOBJ o_pixmap,SOBJ o_mask)3720 SOBJ sgtk_ctree_node_get_pixmap (SOBJ o_ctree, SOBJ o_node, SOBJ o_column, SOBJ o_pixmap, SOBJ o_mask)
3721 {
3722 GtkCTree* ctree;
3723 GtkCTreeNode* node;
3724 gint column;
3725 GdkPixmap** pixmap;
3726 GdkBitmap** mask;
3727 gint __retval__;
3728
3729 ctree = sgtk_get_Object(o_ctree);
3730 node = sgtk_get_CTreeNode(o_node);
3731 column = scm_number2long(o_column);
3732 /* +++ undefined GdkPixmap** */
3733 /* +++ undefined GdkBitmap** */
3734 __retval__ = gtk_ctree_node_get_pixmap(ctree, node, column, pixmap, mask);
3735 return(SCM_MKINUM(__retval__));
3736 }
3737 #endif /* INCOMPLETE */
3738
3739 #ifdef INCOMPLETE
sgtk_ctree_node_get_pixtext(SOBJ o_ctree,SOBJ o_node,SOBJ o_column,SOBJ o_text,SOBJ o_spacing,SOBJ o_pixmap,SOBJ o_mask)3740 SOBJ sgtk_ctree_node_get_pixtext (SOBJ o_ctree, SOBJ o_node, SOBJ o_column, SOBJ o_text, SOBJ o_spacing, SOBJ o_pixmap, SOBJ o_mask)
3741 {
3742 GtkCTree* ctree;
3743 GtkCTreeNode* node;
3744 gint column;
3745 gchar** text;
3746 guint8* spacing;
3747 GdkPixmap** pixmap;
3748 GdkBitmap** mask;
3749 gint __retval__;
3750
3751 ctree = sgtk_get_Object(o_ctree);
3752 node = sgtk_get_CTreeNode(o_node);
3753 column = scm_number2long(o_column);
3754 /* +++ undefined gchar** */
3755 /* +++ undefined guint8* */
3756 /* +++ undefined GdkPixmap** */
3757 /* +++ undefined GdkBitmap** */
3758 __retval__ = gtk_ctree_node_get_pixtext(ctree, node, column, text, spacing, pixmap, mask);
3759 return(SCM_MKINUM(__retval__));
3760 }
3761 #endif /* INCOMPLETE */
3762
3763 #ifdef INCOMPLETE
sgtk_ctree_get_node_info(SOBJ o_ctree,SOBJ o_node,SOBJ o_text,SOBJ o_spacing,SOBJ o_pixmap_closed,SOBJ o_mask_closed,SOBJ o_pixmap_opened,SOBJ o_mask_opened,SOBJ o_is_leaf,SOBJ o_expanded)3764 SOBJ sgtk_ctree_get_node_info (SOBJ o_ctree, SOBJ o_node, SOBJ o_text, SOBJ o_spacing, SOBJ o_pixmap_closed, SOBJ o_mask_closed, SOBJ o_pixmap_opened, SOBJ o_mask_opened, SOBJ o_is_leaf, SOBJ o_expanded)
3765 {
3766 GtkCTree* ctree;
3767 GtkCTreeNode* node;
3768 gchar** text;
3769 guint8* spacing;
3770 GdkPixmap** pixmap_closed;
3771 GdkBitmap** mask_closed;
3772 GdkPixmap** pixmap_opened;
3773 GdkBitmap** mask_opened;
3774 gboolean* is_leaf;
3775 gboolean* expanded;
3776 gint __retval__;
3777
3778 ctree = sgtk_get_Object(o_ctree);
3779 node = sgtk_get_CTreeNode(o_node);
3780 /* +++ undefined gchar** */
3781 /* +++ undefined guint8* */
3782 /* +++ undefined GdkPixmap** */
3783 /* +++ undefined GdkBitmap** */
3784 /* +++ undefined GdkPixmap** */
3785 /* +++ undefined GdkBitmap** */
3786 /* +++ undefined gboolean* */
3787 /* +++ undefined gboolean* */
3788 __retval__ = gtk_ctree_get_node_info(ctree, node, text, spacing, pixmap_closed, mask_closed, pixmap_opened, mask_opened, is_leaf, expanded);
3789 return(SCM_MKINUM(__retval__));
3790 }
3791 #endif /* INCOMPLETE */
3792
sgtk_ctree_node_set_cell_style(SOBJ o_ctree,SOBJ o_node,SOBJ o_column,SOBJ o_style)3793 SOBJ sgtk_ctree_node_set_cell_style (SOBJ o_ctree, SOBJ o_node, SOBJ o_column, SOBJ o_style)
3794 {
3795 GtkCTree* ctree;
3796 GtkCTreeNode* node;
3797 gint column;
3798 GtkStyle* style;
3799
3800 ctree = sgtk_get_Object(o_ctree);
3801 node = sgtk_get_CTreeNode(o_node);
3802 column = scm_number2long(o_column);
3803 style = sgtk_get_Style(o_style);
3804 gtk_ctree_node_set_cell_style(ctree, node, column, style);
3805 return(scm_undefined);
3806 }
3807
sgtk_ctree_node_get_cell_style(SOBJ o_ctree,SOBJ o_node,SOBJ o_column)3808 SOBJ sgtk_ctree_node_get_cell_style (SOBJ o_ctree, SOBJ o_node, SOBJ o_column)
3809 {
3810 GtkCTree* ctree;
3811 GtkCTreeNode* node;
3812 gint column;
3813 GtkStyle* __retval__;
3814
3815 ctree = sgtk_get_Object(o_ctree);
3816 node = sgtk_get_CTreeNode(o_node);
3817 column = scm_number2long(o_column);
3818 __retval__ = gtk_ctree_node_get_cell_style(ctree, node, column);
3819 return(sgtk_Style_new(__retval__));
3820 }
3821
sgtk_ctree_node_set_row_style(SOBJ o_ctree,SOBJ o_node,SOBJ o_style)3822 SOBJ sgtk_ctree_node_set_row_style (SOBJ o_ctree, SOBJ o_node, SOBJ o_style)
3823 {
3824 GtkCTree* ctree;
3825 GtkCTreeNode* node;
3826 GtkStyle* style;
3827
3828 ctree = sgtk_get_Object(o_ctree);
3829 node = sgtk_get_CTreeNode(o_node);
3830 style = sgtk_get_Style(o_style);
3831 gtk_ctree_node_set_row_style(ctree, node, style);
3832 return(scm_undefined);
3833 }
3834
sgtk_ctree_node_get_row_style(SOBJ o_ctree,SOBJ o_node)3835 SOBJ sgtk_ctree_node_get_row_style (SOBJ o_ctree, SOBJ o_node)
3836 {
3837 GtkCTree* ctree;
3838 GtkCTreeNode* node;
3839 GtkStyle* __retval__;
3840
3841 ctree = sgtk_get_Object(o_ctree);
3842 node = sgtk_get_CTreeNode(o_node);
3843 __retval__ = gtk_ctree_node_get_row_style(ctree, node);
3844 return(sgtk_Style_new(__retval__));
3845 }
3846
sgtk_ctree_node_set_foreground(SOBJ o_ctree,SOBJ o_node,SOBJ o_color)3847 SOBJ sgtk_ctree_node_set_foreground (SOBJ o_ctree, SOBJ o_node, SOBJ o_color)
3848 {
3849 GtkCTree* ctree;
3850 GtkCTreeNode* node;
3851 GdkColor* color;
3852
3853 ctree = sgtk_get_Object(o_ctree);
3854 node = sgtk_get_CTreeNode(o_node);
3855 color = sgdk_get_Color(o_color);
3856 gtk_ctree_node_set_foreground(ctree, node, color);
3857 return(scm_undefined);
3858 }
3859
sgtk_ctree_node_set_background(SOBJ o_ctree,SOBJ o_node,SOBJ o_color)3860 SOBJ sgtk_ctree_node_set_background (SOBJ o_ctree, SOBJ o_node, SOBJ o_color)
3861 {
3862 GtkCTree* ctree;
3863 GtkCTreeNode* node;
3864 GdkColor* color;
3865
3866 ctree = sgtk_get_Object(o_ctree);
3867 node = sgtk_get_CTreeNode(o_node);
3868 color = sgdk_get_Color(o_color);
3869 gtk_ctree_node_set_background(ctree, node, color);
3870 return(scm_undefined);
3871 }
3872
3873 #ifdef INCOMPLETE
sgtk_ctree_node_set_row_data(SOBJ o_ctree,SOBJ o_node,SOBJ o_data)3874 SOBJ sgtk_ctree_node_set_row_data (SOBJ o_ctree, SOBJ o_node, SOBJ o_data)
3875 {
3876 GtkCTree* ctree;
3877 GtkCTreeNode* node;
3878 gpointer data;
3879
3880 ctree = sgtk_get_Object(o_ctree);
3881 node = sgtk_get_CTreeNode(o_node);
3882 /* +++ get gpointer -> pointer failed */
3883 gtk_ctree_node_set_row_data(ctree, node, data);
3884 return(scm_undefined);
3885 }
3886 #endif /* INCOMPLETE */
3887
3888 #ifdef INCOMPLETE
sgtk_ctree_node_set_row_data_full(SOBJ o_ctree,SOBJ o_node,SOBJ o_data,SOBJ o_destroy)3889 SOBJ sgtk_ctree_node_set_row_data_full (SOBJ o_ctree, SOBJ o_node, SOBJ o_data, SOBJ o_destroy)
3890 {
3891 GtkCTree* ctree;
3892 GtkCTreeNode* node;
3893 gpointer data;
3894 GtkDestroyNotify destroy;
3895
3896 ctree = sgtk_get_Object(o_ctree);
3897 node = sgtk_get_CTreeNode(o_node);
3898 /* +++ get gpointer -> pointer failed */
3899 /* +++ undefined GtkDestroyNotify */
3900 gtk_ctree_node_set_row_data_full(ctree, node, data, destroy);
3901 return(scm_undefined);
3902 }
3903 #endif /* INCOMPLETE */
3904
sgtk_ctree_node_get_row_data(SOBJ o_ctree,SOBJ o_node)3905 SOBJ sgtk_ctree_node_get_row_data (SOBJ o_ctree, SOBJ o_node)
3906 {
3907 GtkCTree* ctree;
3908 GtkCTreeNode* node;
3909 gpointer __retval__;
3910
3911 ctree = sgtk_get_Object(o_ctree);
3912 node = sgtk_get_CTreeNode(o_node);
3913 __retval__ = gtk_ctree_node_get_row_data(ctree, node);
3914 return(scm_mkpointer(__retval__));
3915 }
3916
sgtk_ctree_node_moveto(SOBJ o_ctree,SOBJ o_node,SOBJ o_column,SOBJ o_row_align,SOBJ o_col_align)3917 SOBJ sgtk_ctree_node_moveto (SOBJ o_ctree, SOBJ o_node, SOBJ o_column, SOBJ o_row_align, SOBJ o_col_align)
3918 {
3919 GtkCTree* ctree;
3920 GtkCTreeNode* node;
3921 gint column;
3922 gfloat row_align;
3923 gfloat col_align;
3924
3925 ctree = sgtk_get_Object(o_ctree);
3926 node = sgtk_get_CTreeNode(o_node);
3927 column = scm_number2long(o_column);
3928 row_align = scm_number2double(o_row_align);
3929 col_align = scm_number2double(o_col_align);
3930 gtk_ctree_node_moveto(ctree, node, column, row_align, col_align);
3931 return(scm_undefined);
3932 }
3933
sgtk_ctree_node_is_visible(SOBJ o_ctree,SOBJ o_node)3934 SOBJ sgtk_ctree_node_is_visible (SOBJ o_ctree, SOBJ o_node)
3935 {
3936 GtkCTree* ctree;
3937 GtkCTreeNode* node;
3938 GtkVisibility __retval__;
3939
3940 ctree = sgtk_get_Object(o_ctree);
3941 node = sgtk_get_CTreeNode(o_node);
3942 __retval__ = gtk_ctree_node_is_visible(ctree, node);
3943 return(SCM_MKINUM(__retval__));
3944 }
3945
sgtk_ctree_set_indent(SOBJ o_ctree,SOBJ o_indent)3946 SOBJ sgtk_ctree_set_indent (SOBJ o_ctree, SOBJ o_indent)
3947 {
3948 GtkCTree* ctree;
3949 gint indent;
3950
3951 ctree = sgtk_get_Object(o_ctree);
3952 indent = scm_number2long(o_indent);
3953 gtk_ctree_set_indent(ctree, indent);
3954 return(scm_undefined);
3955 }
3956
sgtk_ctree_set_spacing(SOBJ o_ctree,SOBJ o_spacing)3957 SOBJ sgtk_ctree_set_spacing (SOBJ o_ctree, SOBJ o_spacing)
3958 {
3959 GtkCTree* ctree;
3960 gint spacing;
3961
3962 ctree = sgtk_get_Object(o_ctree);
3963 spacing = scm_number2long(o_spacing);
3964 gtk_ctree_set_spacing(ctree, spacing);
3965 return(scm_undefined);
3966 }
3967
sgtk_ctree_set_show_stub(SOBJ o_ctree,SOBJ o_show_stub)3968 SOBJ sgtk_ctree_set_show_stub (SOBJ o_ctree, SOBJ o_show_stub)
3969 {
3970 GtkCTree* ctree;
3971 gboolean show_stub;
3972
3973 ctree = sgtk_get_Object(o_ctree);
3974 show_stub = (o_show_stub != scm_false);
3975 gtk_ctree_set_show_stub(ctree, show_stub);
3976 return(scm_undefined);
3977 }
3978
sgtk_ctree_set_line_style(SOBJ o_ctree,SOBJ o_line_style)3979 SOBJ sgtk_ctree_set_line_style (SOBJ o_ctree, SOBJ o_line_style)
3980 {
3981 GtkCTree* ctree;
3982 GtkCTreeLineStyle line_style;
3983
3984 ctree = sgtk_get_Object(o_ctree);
3985 line_style = sgtk_enumget("GtkCTreeLineStyle", o_line_style);
3986 gtk_ctree_set_line_style(ctree, line_style);
3987 return(scm_undefined);
3988 }
3989
sgtk_ctree_set_expander_style(SOBJ o_ctree,SOBJ o_expander_style)3990 SOBJ sgtk_ctree_set_expander_style (SOBJ o_ctree, SOBJ o_expander_style)
3991 {
3992 GtkCTree* ctree;
3993 GtkCTreeExpanderStyle expander_style;
3994
3995 ctree = sgtk_get_Object(o_ctree);
3996 expander_style = sgtk_enumget("GtkCTreeExpanderStyle", o_expander_style);
3997 gtk_ctree_set_expander_style(ctree, expander_style);
3998 return(scm_undefined);
3999 }
4000
sgtk_ctree_sort_recursive(SOBJ o_ctree,SOBJ o_node)4001 SOBJ sgtk_ctree_sort_recursive (SOBJ o_ctree, SOBJ o_node)
4002 {
4003 GtkCTree* ctree;
4004 GtkCTreeNode* node;
4005
4006 ctree = sgtk_get_Object(o_ctree);
4007 node = sgtk_get_CTreeNode(o_node);
4008 gtk_ctree_sort_recursive(ctree, node);
4009 return(scm_undefined);
4010 }
4011
sgtk_ctree_sort_node(SOBJ o_ctree,SOBJ o_node)4012 SOBJ sgtk_ctree_sort_node (SOBJ o_ctree, SOBJ o_node)
4013 {
4014 GtkCTree* ctree;
4015 GtkCTreeNode* node;
4016
4017 ctree = sgtk_get_Object(o_ctree);
4018 node = sgtk_get_CTreeNode(o_node);
4019 gtk_ctree_sort_node(ctree, node);
4020 return(scm_undefined);
4021 }
4022
4023 #ifdef INCOMPLETE
sgtk_ctree_set_drag_compare_func(SOBJ o_ctree,SOBJ o_cmp_func)4024 SOBJ sgtk_ctree_set_drag_compare_func (SOBJ o_ctree, SOBJ o_cmp_func)
4025 {
4026 GtkCTree* ctree;
4027 GtkCTreeCompareDragFunc cmp_func;
4028
4029 ctree = sgtk_get_Object(o_ctree);
4030 /* +++ undefined GtkCTreeCompareDragFunc */
4031 gtk_ctree_set_drag_compare_func(ctree, cmp_func);
4032 return(scm_undefined);
4033 }
4034 #endif /* INCOMPLETE */
4035
sgtk_curve_get_type()4036 SOBJ sgtk_curve_get_type ()
4037 {
4038 GtkType __retval__;
4039
4040 __retval__ = gtk_curve_get_type();
4041 return(SCM_MKINUM(__retval__));
4042 }
4043
sgtk_curve_set_curve_type(SOBJ o_c,SOBJ o_new_type)4044 SOBJ sgtk_curve_set_curve_type (SOBJ o_c, SOBJ o_new_type)
4045 {
4046 GtkCurve* c;
4047 GtkCurveType new_type;
4048
4049 c = sgtk_get_Object(o_c);
4050 new_type = sgtk_enumget("GtkCurveType", o_new_type);
4051 gtk_curve_set_curve_type(c, new_type);
4052 return(scm_undefined);
4053 }
4054
sgtk_curve_reset(SOBJ o_c)4055 SOBJ sgtk_curve_reset (SOBJ o_c)
4056 {
4057 GtkCurve* c;
4058
4059 c = sgtk_get_Object(o_c);
4060 gtk_curve_reset(c);
4061 return(scm_undefined);
4062 }
4063
sgtk_curve_set_gamma(SOBJ o_c,SOBJ o_gamma)4064 SOBJ sgtk_curve_set_gamma (SOBJ o_c, SOBJ o_gamma)
4065 {
4066 GtkCurve* c;
4067 gfloat gamma;
4068
4069 c = sgtk_get_Object(o_c);
4070 gamma = scm_number2double(o_gamma);
4071 gtk_curve_set_gamma(c, gamma);
4072 return(scm_undefined);
4073 }
4074
sgtk_curve_set_range(SOBJ o_curve,SOBJ o_min_x,SOBJ o_max_x,SOBJ o_min_y,SOBJ o_max_y)4075 SOBJ sgtk_curve_set_range (SOBJ o_curve, SOBJ o_min_x, SOBJ o_max_x, SOBJ o_min_y, SOBJ o_max_y)
4076 {
4077 GtkCurve* curve;
4078 gfloat min_x;
4079 gfloat max_x;
4080 gfloat min_y;
4081 gfloat max_y;
4082
4083 curve = sgtk_get_Object(o_curve);
4084 min_x = scm_number2double(o_min_x);
4085 max_x = scm_number2double(o_max_x);
4086 min_y = scm_number2double(o_min_y);
4087 max_y = scm_number2double(o_max_y);
4088 gtk_curve_set_range(curve, min_x, max_x, min_y, max_y);
4089 return(scm_undefined);
4090 }
4091
sgtk_curve_new()4092 SOBJ sgtk_curve_new ()
4093 {
4094 GtkWidget* __retval__;
4095
4096 __retval__ = gtk_curve_new();
4097 return(sgtk_object_new((void*)__retval__));
4098 }
4099
sgtk_data_get_type()4100 SOBJ sgtk_data_get_type ()
4101 {
4102 GtkType __retval__;
4103
4104 __retval__ = gtk_data_get_type();
4105 return(SCM_MKINUM(__retval__));
4106 }
4107
sgtk_dialog_get_type()4108 SOBJ sgtk_dialog_get_type ()
4109 {
4110 GtkType __retval__;
4111
4112 __retval__ = gtk_dialog_get_type();
4113 return(SCM_MKINUM(__retval__));
4114 }
4115
sgtk_dialog_new()4116 SOBJ sgtk_dialog_new ()
4117 {
4118 GtkWidget* __retval__;
4119
4120 __retval__ = gtk_dialog_new();
4121 return(sgtk_object_new((void*)__retval__));
4122 }
4123
sgtk_drag_get_data(SOBJ o_widget,SOBJ o_context,SOBJ o_target,SOBJ o_time)4124 SOBJ sgtk_drag_get_data (SOBJ o_widget, SOBJ o_context, SOBJ o_target, SOBJ o_time)
4125 {
4126 GtkWidget* widget;
4127 GdkDragContext* context;
4128 GdkAtom target;
4129 guint32 time;
4130
4131 widget = sgtk_get_Object(o_widget);
4132 context = sgdk_get_DragContext(o_context);
4133 target = sgdk_get_Atom(o_target);
4134 time = scm_number2long(o_time);
4135 gtk_drag_get_data(widget, context, target, time);
4136 return(scm_undefined);
4137 }
4138
sgtk_drag_get_source_widget(SOBJ o_context)4139 SOBJ sgtk_drag_get_source_widget (SOBJ o_context)
4140 {
4141 GdkDragContext* context;
4142 GtkWidget* __retval__;
4143
4144 context = sgdk_get_DragContext(o_context);
4145 __retval__ = gtk_drag_get_source_widget(context);
4146 return(sgtk_object_new((void*)__retval__));
4147 }
4148
sgtk_drag_finish(SOBJ o_context,SOBJ o_success,SOBJ o_del,SOBJ o_time)4149 SOBJ sgtk_drag_finish (SOBJ o_context, SOBJ o_success, SOBJ o_del, SOBJ o_time)
4150 {
4151 GdkDragContext* context;
4152 gboolean success;
4153 gboolean del;
4154 guint32 time;
4155
4156 context = sgdk_get_DragContext(o_context);
4157 success = (o_success != scm_false);
4158 del = (o_del != scm_false);
4159 time = scm_number2long(o_time);
4160 gtk_drag_finish(context, success, del, time);
4161 return(scm_undefined);
4162 }
4163
sgtk_drag_highlight(SOBJ o_widget)4164 SOBJ sgtk_drag_highlight (SOBJ o_widget)
4165 {
4166 GtkWidget* widget;
4167
4168 widget = sgtk_get_Object(o_widget);
4169 gtk_drag_highlight(widget);
4170 return(scm_undefined);
4171 }
4172
sgtk_drag_unhighlight(SOBJ o_widget)4173 SOBJ sgtk_drag_unhighlight (SOBJ o_widget)
4174 {
4175 GtkWidget* widget;
4176
4177 widget = sgtk_get_Object(o_widget);
4178 gtk_drag_unhighlight(widget);
4179 return(scm_undefined);
4180 }
4181
4182 #ifdef INCOMPLETE
sgtk_drag_dest_set(SOBJ o_widget,SOBJ o_flags,SOBJ o_targets,SOBJ o_n_targets,SOBJ o_actions)4183 SOBJ sgtk_drag_dest_set (SOBJ o_widget, SOBJ o_flags, SOBJ o_targets, SOBJ o_n_targets, SOBJ o_actions)
4184 {
4185 GtkWidget* widget;
4186 GtkDestDefaults flags;
4187 GtkTargetEntry* targets;
4188 gint n_targets;
4189 GdkDragAction actions;
4190
4191 widget = sgtk_get_Object(o_widget);
4192 flags = sgtk_flagsget("GtkDestDefaults", o_flags);
4193 /* +++ undefined GtkTargetEntry* */
4194 n_targets = scm_number2long(o_n_targets);
4195 actions = sgtk_flagsget("GdkDragAction", o_actions);
4196 gtk_drag_dest_set(widget, flags, targets, n_targets, actions);
4197 return(scm_undefined);
4198 }
4199 #endif /* INCOMPLETE */
4200
sgtk_drag_dest_set_proxy(SOBJ o_widget,SOBJ o_proxy_window,SOBJ o_protocol,SOBJ o_use_coordinates)4201 SOBJ sgtk_drag_dest_set_proxy (SOBJ o_widget, SOBJ o_proxy_window, SOBJ o_protocol, SOBJ o_use_coordinates)
4202 {
4203 GtkWidget* widget;
4204 GdkWindow* proxy_window;
4205 GdkDragProtocol protocol;
4206 gboolean use_coordinates;
4207
4208 widget = sgtk_get_Object(o_widget);
4209 proxy_window = sgdk_get_Window(o_proxy_window);
4210 protocol = sgtk_enumget("GdkDragProtocol", o_protocol);
4211 use_coordinates = (o_use_coordinates != scm_false);
4212 gtk_drag_dest_set_proxy(widget, proxy_window, protocol, use_coordinates);
4213 return(scm_undefined);
4214 }
4215
sgtk_drag_dest_unset(SOBJ o_widget)4216 SOBJ sgtk_drag_dest_unset (SOBJ o_widget)
4217 {
4218 GtkWidget* widget;
4219
4220 widget = sgtk_get_Object(o_widget);
4221 gtk_drag_dest_unset(widget);
4222 return(scm_undefined);
4223 }
4224
sgtk_drag_dest_handle_event(SOBJ o_toplevel,SOBJ o_event)4225 SOBJ sgtk_drag_dest_handle_event (SOBJ o_toplevel, SOBJ o_event)
4226 {
4227 GtkWidget* toplevel;
4228 GdkEvent* event;
4229
4230 toplevel = sgtk_get_Object(o_toplevel);
4231 event = sgdk_get_Event(o_event);
4232 gtk_drag_dest_handle_event(toplevel, event);
4233 return(scm_undefined);
4234 }
4235
4236 #ifdef INCOMPLETE
sgtk_drag_begin(SOBJ o_widget,SOBJ o_target_list,SOBJ o_actions,SOBJ o_button,SOBJ o_event)4237 SOBJ sgtk_drag_begin (SOBJ o_widget, SOBJ o_target_list, SOBJ o_actions, SOBJ o_button, SOBJ o_event)
4238 {
4239 GtkWidget* widget;
4240 GtkTargetList* target_list;
4241 GdkDragAction actions;
4242 gint button;
4243 GdkEvent* event;
4244 GdkDragContext* __retval__;
4245
4246 widget = sgtk_get_Object(o_widget);
4247 /* +++ undefined GtkTargetList* */
4248 actions = sgtk_flagsget("GdkDragAction", o_actions);
4249 button = scm_number2long(o_button);
4250 event = sgdk_get_Event(o_event);
4251 __retval__ = gtk_drag_begin(widget, target_list, actions, button, event);
4252 return(sgdk_DragContext_new(__retval__));
4253 }
4254 #endif /* INCOMPLETE */
4255
4256 #ifdef INCOMPLETE
sgtk_drag_source_set(SOBJ o_widget,SOBJ o_start_button_mask,SOBJ o_targets,SOBJ o_n_targets,SOBJ o_actions)4257 SOBJ sgtk_drag_source_set (SOBJ o_widget, SOBJ o_start_button_mask, SOBJ o_targets, SOBJ o_n_targets, SOBJ o_actions)
4258 {
4259 GtkWidget* widget;
4260 GdkModifierType start_button_mask;
4261 GtkTargetEntry* targets;
4262 gint n_targets;
4263 GdkDragAction actions;
4264
4265 widget = sgtk_get_Object(o_widget);
4266 start_button_mask = sgtk_flagsget("GdkModifierType", o_start_button_mask);
4267 /* +++ undefined GtkTargetEntry* */
4268 n_targets = scm_number2long(o_n_targets);
4269 actions = sgtk_flagsget("GdkDragAction", o_actions);
4270 gtk_drag_source_set(widget, start_button_mask, targets, n_targets, actions);
4271 return(scm_undefined);
4272 }
4273 #endif /* INCOMPLETE */
4274
sgtk_drag_source_unset(SOBJ o_widget)4275 SOBJ sgtk_drag_source_unset (SOBJ o_widget)
4276 {
4277 GtkWidget* widget;
4278
4279 widget = sgtk_get_Object(o_widget);
4280 gtk_drag_source_unset(widget);
4281 return(scm_undefined);
4282 }
4283
sgtk_drag_source_set_icon(SOBJ o_widget,SOBJ o_colormap,SOBJ o_pixmap,SOBJ o_mask)4284 SOBJ sgtk_drag_source_set_icon (SOBJ o_widget, SOBJ o_colormap, SOBJ o_pixmap, SOBJ o_mask)
4285 {
4286 GtkWidget* widget;
4287 GdkColormap* colormap;
4288 GdkPixmap* pixmap;
4289 GdkBitmap* mask;
4290
4291 widget = sgtk_get_Object(o_widget);
4292 colormap = sgdk_get_Colormap(o_colormap);
4293 pixmap = sgdk_get_Window(o_pixmap);
4294 mask = sgdk_get_Window(o_mask);
4295 gtk_drag_source_set_icon(widget, colormap, pixmap, mask);
4296 return(scm_undefined);
4297 }
4298
sgtk_drag_set_icon_widget(SOBJ o_context,SOBJ o_widget,SOBJ o_hot_x,SOBJ o_hot_y)4299 SOBJ sgtk_drag_set_icon_widget (SOBJ o_context, SOBJ o_widget, SOBJ o_hot_x, SOBJ o_hot_y)
4300 {
4301 GdkDragContext* context;
4302 GtkWidget* widget;
4303 gint hot_x;
4304 gint hot_y;
4305
4306 context = sgdk_get_DragContext(o_context);
4307 widget = sgtk_get_Object(o_widget);
4308 hot_x = scm_number2long(o_hot_x);
4309 hot_y = scm_number2long(o_hot_y);
4310 gtk_drag_set_icon_widget(context, widget, hot_x, hot_y);
4311 return(scm_undefined);
4312 }
4313
sgtk_drag_set_icon_pixmap(SOBJ o_context,SOBJ o_colormap,SOBJ o_pixmap,SOBJ o_mask,SOBJ o_hot_x,SOBJ o_hot_y)4314 SOBJ sgtk_drag_set_icon_pixmap (SOBJ o_context, SOBJ o_colormap, SOBJ o_pixmap, SOBJ o_mask, SOBJ o_hot_x, SOBJ o_hot_y)
4315 {
4316 GdkDragContext* context;
4317 GdkColormap* colormap;
4318 GdkPixmap* pixmap;
4319 GdkBitmap* mask;
4320 gint hot_x;
4321 gint hot_y;
4322
4323 context = sgdk_get_DragContext(o_context);
4324 colormap = sgdk_get_Colormap(o_colormap);
4325 pixmap = sgdk_get_Window(o_pixmap);
4326 mask = sgdk_get_Window(o_mask);
4327 hot_x = scm_number2long(o_hot_x);
4328 hot_y = scm_number2long(o_hot_y);
4329 gtk_drag_set_icon_pixmap(context, colormap, pixmap, mask, hot_x, hot_y);
4330 return(scm_undefined);
4331 }
4332
sgtk_drag_set_icon_default(SOBJ o_context)4333 SOBJ sgtk_drag_set_icon_default (SOBJ o_context)
4334 {
4335 GdkDragContext* context;
4336
4337 context = sgdk_get_DragContext(o_context);
4338 gtk_drag_set_icon_default(context);
4339 return(scm_undefined);
4340 }
4341
sgtk_drag_set_default_icon(SOBJ o_colormap,SOBJ o_pixmap,SOBJ o_mask,SOBJ o_hot_x,SOBJ o_hot_y)4342 SOBJ sgtk_drag_set_default_icon (SOBJ o_colormap, SOBJ o_pixmap, SOBJ o_mask, SOBJ o_hot_x, SOBJ o_hot_y)
4343 {
4344 GdkColormap* colormap;
4345 GdkPixmap* pixmap;
4346 GdkBitmap* mask;
4347 gint hot_x;
4348 gint hot_y;
4349
4350 colormap = sgdk_get_Colormap(o_colormap);
4351 pixmap = sgdk_get_Window(o_pixmap);
4352 mask = sgdk_get_Window(o_mask);
4353 hot_x = scm_number2long(o_hot_x);
4354 hot_y = scm_number2long(o_hot_y);
4355 gtk_drag_set_default_icon(colormap, pixmap, mask, hot_x, hot_y);
4356 return(scm_undefined);
4357 }
4358
sgtk_drag_source_handle_event(SOBJ o_widget,SOBJ o_event)4359 SOBJ sgtk_drag_source_handle_event (SOBJ o_widget, SOBJ o_event)
4360 {
4361 GtkWidget* widget;
4362 GdkEvent* event;
4363
4364 widget = sgtk_get_Object(o_widget);
4365 event = sgdk_get_Event(o_event);
4366 gtk_drag_source_handle_event(widget, event);
4367 return(scm_undefined);
4368 }
4369
sgtk_drawing_area_get_type()4370 SOBJ sgtk_drawing_area_get_type ()
4371 {
4372 GtkType __retval__;
4373
4374 __retval__ = gtk_drawing_area_get_type();
4375 return(SCM_MKINUM(__retval__));
4376 }
4377
sgtk_drawing_area_new()4378 SOBJ sgtk_drawing_area_new ()
4379 {
4380 GtkWidget* __retval__;
4381
4382 __retval__ = gtk_drawing_area_new();
4383 return(sgtk_object_new((void*)__retval__));
4384 }
4385
sgtk_drawing_area_size(SOBJ o_darea,SOBJ o_width,SOBJ o_height)4386 SOBJ sgtk_drawing_area_size (SOBJ o_darea, SOBJ o_width, SOBJ o_height)
4387 {
4388 GtkDrawingArea* darea;
4389 gint width;
4390 gint height;
4391
4392 darea = sgtk_get_Object(o_darea);
4393 width = scm_number2long(o_width);
4394 height = scm_number2long(o_height);
4395 gtk_drawing_area_size(darea, width, height);
4396 return(scm_undefined);
4397 }
4398
sgtk_editable_get_type()4399 SOBJ sgtk_editable_get_type ()
4400 {
4401 GtkType __retval__;
4402
4403 __retval__ = gtk_editable_get_type();
4404 return(SCM_MKINUM(__retval__));
4405 }
4406
4407 #ifdef INCOMPLETE
sgtk_editable_insert_text(SOBJ o_editable,SOBJ o_new_text,SOBJ o_new_text_length,SOBJ o_position)4408 SOBJ sgtk_editable_insert_text (SOBJ o_editable, SOBJ o_new_text, SOBJ o_new_text_length, SOBJ o_position)
4409 {
4410 GtkEditable* editable;
4411 gchar* new_text;
4412 gint new_text_length;
4413 gint* position;
4414
4415 editable = sgtk_get_Object(o_editable);
4416 new_text = scm_getstr(o_new_text);
4417 new_text_length = scm_number2long(o_new_text_length);
4418 /* +++ undefined gint* */
4419 gtk_editable_insert_text(editable, new_text, new_text_length, position);
4420 return(scm_undefined);
4421 }
4422 #endif /* INCOMPLETE */
4423
sgtk_editable_delete_text(SOBJ o_editable,SOBJ o_start_pos,SOBJ o_end_pos)4424 SOBJ sgtk_editable_delete_text (SOBJ o_editable, SOBJ o_start_pos, SOBJ o_end_pos)
4425 {
4426 GtkEditable* editable;
4427 gint start_pos;
4428 gint end_pos;
4429
4430 editable = sgtk_get_Object(o_editable);
4431 start_pos = scm_number2long(o_start_pos);
4432 end_pos = scm_number2long(o_end_pos);
4433 gtk_editable_delete_text(editable, start_pos, end_pos);
4434 return(scm_undefined);
4435 }
4436
sgtk_editable_get_chars(SOBJ o_editable,SOBJ o_start,SOBJ o_end)4437 SOBJ sgtk_editable_get_chars (SOBJ o_editable, SOBJ o_start, SOBJ o_end)
4438 {
4439 GtkEditable* editable;
4440 gint start;
4441 gint end;
4442 gchar* __retval__;
4443
4444 editable = sgtk_get_Object(o_editable);
4445 start = scm_number2long(o_start);
4446 end = scm_number2long(o_end);
4447 __retval__ = gtk_editable_get_chars(editable, start, end);
4448 return(scm_mkstring(__retval__));
4449 }
4450
sgtk_editable_set_position(SOBJ o_editable,SOBJ o_position)4451 SOBJ sgtk_editable_set_position (SOBJ o_editable, SOBJ o_position)
4452 {
4453 GtkEditable* editable;
4454 gint position;
4455
4456 editable = sgtk_get_Object(o_editable);
4457 position = scm_number2long(o_position);
4458 gtk_editable_set_position(editable, position);
4459 return(scm_undefined);
4460 }
4461
sgtk_editable_get_position(SOBJ o_editable)4462 SOBJ sgtk_editable_get_position (SOBJ o_editable)
4463 {
4464 GtkEditable* editable;
4465 gint __retval__;
4466
4467 editable = sgtk_get_Object(o_editable);
4468 __retval__ = gtk_editable_get_position(editable);
4469 return(SCM_MKINUM(__retval__));
4470 }
4471
sgtk_editable_delete_selection(SOBJ o_editable)4472 SOBJ sgtk_editable_delete_selection (SOBJ o_editable)
4473 {
4474 GtkEditable* editable;
4475
4476 editable = sgtk_get_Object(o_editable);
4477 gtk_editable_delete_selection(editable);
4478 return(scm_undefined);
4479 }
4480
sgtk_editable_claim_selection(SOBJ o_editable,SOBJ o_claim,SOBJ o_time)4481 SOBJ sgtk_editable_claim_selection (SOBJ o_editable, SOBJ o_claim, SOBJ o_time)
4482 {
4483 GtkEditable* editable;
4484 gboolean claim;
4485 guint32 time;
4486
4487 editable = sgtk_get_Object(o_editable);
4488 claim = (o_claim != scm_false);
4489 time = scm_number2long(o_time);
4490 gtk_editable_claim_selection(editable, claim, time);
4491 return(scm_undefined);
4492 }
4493
sgtk_editable_select_region(SOBJ o_editable,SOBJ o_start,SOBJ o_end)4494 SOBJ sgtk_editable_select_region (SOBJ o_editable, SOBJ o_start, SOBJ o_end)
4495 {
4496 GtkEditable* editable;
4497 gint start;
4498 gint end;
4499
4500 editable = sgtk_get_Object(o_editable);
4501 start = scm_number2long(o_start);
4502 end = scm_number2long(o_end);
4503 gtk_editable_select_region(editable, start, end);
4504 return(scm_undefined);
4505 }
4506
sgtk_editable_cut_clipboard(SOBJ o_editable)4507 SOBJ sgtk_editable_cut_clipboard (SOBJ o_editable)
4508 {
4509 GtkEditable* editable;
4510
4511 editable = sgtk_get_Object(o_editable);
4512 gtk_editable_cut_clipboard(editable);
4513 return(scm_undefined);
4514 }
4515
sgtk_editable_copy_clipboard(SOBJ o_editable)4516 SOBJ sgtk_editable_copy_clipboard (SOBJ o_editable)
4517 {
4518 GtkEditable* editable;
4519
4520 editable = sgtk_get_Object(o_editable);
4521 gtk_editable_copy_clipboard(editable);
4522 return(scm_undefined);
4523 }
4524
sgtk_editable_paste_clipboard(SOBJ o_editable)4525 SOBJ sgtk_editable_paste_clipboard (SOBJ o_editable)
4526 {
4527 GtkEditable* editable;
4528
4529 editable = sgtk_get_Object(o_editable);
4530 gtk_editable_paste_clipboard(editable);
4531 return(scm_undefined);
4532 }
4533
sgtk_editable_set_editable(SOBJ o_editable,SOBJ o_is_editable)4534 SOBJ sgtk_editable_set_editable (SOBJ o_editable, SOBJ o_is_editable)
4535 {
4536 GtkEditable* editable;
4537 gboolean is_editable;
4538
4539 editable = sgtk_get_Object(o_editable);
4540 is_editable = (o_is_editable != scm_false);
4541 gtk_editable_set_editable(editable, is_editable);
4542 return(scm_undefined);
4543 }
4544
sgtk_editable_changed(SOBJ o_editable)4545 SOBJ sgtk_editable_changed (SOBJ o_editable)
4546 {
4547 GtkEditable* editable;
4548
4549 editable = sgtk_get_Object(o_editable);
4550 gtk_editable_changed(editable);
4551 return(scm_undefined);
4552 }
4553
sgtk_entry_get_type()4554 SOBJ sgtk_entry_get_type ()
4555 {
4556 GtkType __retval__;
4557
4558 __retval__ = gtk_entry_get_type();
4559 return(SCM_MKINUM(__retval__));
4560 }
4561
sgtk_entry_new()4562 SOBJ sgtk_entry_new ()
4563 {
4564 GtkWidget* __retval__;
4565
4566 __retval__ = gtk_entry_new();
4567 return(sgtk_object_new((void*)__retval__));
4568 }
4569
sgtk_entry_new_with_max_length(SOBJ o_max)4570 SOBJ sgtk_entry_new_with_max_length (SOBJ o_max)
4571 {
4572 guint16 max;
4573 GtkWidget* __retval__;
4574
4575 max = scm_number2long(o_max);
4576 __retval__ = gtk_entry_new_with_max_length(max);
4577 return(sgtk_object_new((void*)__retval__));
4578 }
4579
sgtk_entry_set_text(SOBJ o_entry,SOBJ o_text)4580 SOBJ sgtk_entry_set_text (SOBJ o_entry, SOBJ o_text)
4581 {
4582 GtkEntry* entry;
4583 gchar* text;
4584
4585 entry = sgtk_get_Object(o_entry);
4586 text = scm_getstr(o_text);
4587 gtk_entry_set_text(entry, text);
4588 return(scm_undefined);
4589 }
4590
sgtk_entry_append_text(SOBJ o_entry,SOBJ o_text)4591 SOBJ sgtk_entry_append_text (SOBJ o_entry, SOBJ o_text)
4592 {
4593 GtkEntry* entry;
4594 gchar* text;
4595
4596 entry = sgtk_get_Object(o_entry);
4597 text = scm_getstr(o_text);
4598 gtk_entry_append_text(entry, text);
4599 return(scm_undefined);
4600 }
4601
sgtk_entry_prepend_text(SOBJ o_entry,SOBJ o_text)4602 SOBJ sgtk_entry_prepend_text (SOBJ o_entry, SOBJ o_text)
4603 {
4604 GtkEntry* entry;
4605 gchar* text;
4606
4607 entry = sgtk_get_Object(o_entry);
4608 text = scm_getstr(o_text);
4609 gtk_entry_prepend_text(entry, text);
4610 return(scm_undefined);
4611 }
4612
sgtk_entry_set_position(SOBJ o_entry,SOBJ o_position)4613 SOBJ sgtk_entry_set_position (SOBJ o_entry, SOBJ o_position)
4614 {
4615 GtkEntry* entry;
4616 gint position;
4617
4618 entry = sgtk_get_Object(o_entry);
4619 position = scm_number2long(o_position);
4620 gtk_entry_set_position(entry, position);
4621 return(scm_undefined);
4622 }
4623
sgtk_entry_set_visibility(SOBJ o_entry,SOBJ o_visible)4624 SOBJ sgtk_entry_set_visibility (SOBJ o_entry, SOBJ o_visible)
4625 {
4626 GtkEntry* entry;
4627 gboolean visible;
4628
4629 entry = sgtk_get_Object(o_entry);
4630 visible = (o_visible != scm_false);
4631 gtk_entry_set_visibility(entry, visible);
4632 return(scm_undefined);
4633 }
4634
sgtk_entry_set_editable(SOBJ o_entry,SOBJ o_editable)4635 SOBJ sgtk_entry_set_editable (SOBJ o_entry, SOBJ o_editable)
4636 {
4637 GtkEntry* entry;
4638 gboolean editable;
4639
4640 entry = sgtk_get_Object(o_entry);
4641 editable = (o_editable != scm_false);
4642 gtk_entry_set_editable(entry, editable);
4643 return(scm_undefined);
4644 }
4645
sgtk_entry_get_text(SOBJ o_entry)4646 SOBJ sgtk_entry_get_text (SOBJ o_entry)
4647 {
4648 GtkEntry* entry;
4649 gchar* __retval__;
4650
4651 entry = sgtk_get_Object(o_entry);
4652 __retval__ = gtk_entry_get_text(entry);
4653 return(scm_mkstring(__retval__));
4654 }
4655
sgtk_entry_select_region(SOBJ o_entry,SOBJ o_start,SOBJ o_end)4656 SOBJ sgtk_entry_select_region (SOBJ o_entry, SOBJ o_start, SOBJ o_end)
4657 {
4658 GtkEntry* entry;
4659 gint start;
4660 gint end;
4661
4662 entry = sgtk_get_Object(o_entry);
4663 start = scm_number2long(o_start);
4664 end = scm_number2long(o_end);
4665 gtk_entry_select_region(entry, start, end);
4666 return(scm_undefined);
4667 }
4668
sgtk_entry_set_max_length(SOBJ o_entry,SOBJ o_max)4669 SOBJ sgtk_entry_set_max_length (SOBJ o_entry, SOBJ o_max)
4670 {
4671 GtkEntry* entry;
4672 guint16 max;
4673
4674 entry = sgtk_get_Object(o_entry);
4675 max = scm_number2long(o_max);
4676 gtk_entry_set_max_length(entry, max);
4677 return(scm_undefined);
4678 }
4679
sgtk_event_box_get_type()4680 SOBJ sgtk_event_box_get_type ()
4681 {
4682 GtkType __retval__;
4683
4684 __retval__ = gtk_event_box_get_type();
4685 return(SCM_MKINUM(__retval__));
4686 }
4687
sgtk_event_box_new()4688 SOBJ sgtk_event_box_new ()
4689 {
4690 GtkWidget* __retval__;
4691
4692 __retval__ = gtk_event_box_new();
4693 return(sgtk_object_new((void*)__retval__));
4694 }
4695
sgtk_file_selection_get_type()4696 SOBJ sgtk_file_selection_get_type ()
4697 {
4698 GtkType __retval__;
4699
4700 __retval__ = gtk_file_selection_get_type();
4701 return(SCM_MKINUM(__retval__));
4702 }
4703
sgtk_file_selection_new(SOBJ o_title)4704 SOBJ sgtk_file_selection_new (SOBJ o_title)
4705 {
4706 gchar* title;
4707 GtkWidget* __retval__;
4708
4709 title = scm_getstr(o_title);
4710 __retval__ = gtk_file_selection_new(title);
4711 return(sgtk_object_new((void*)__retval__));
4712 }
4713
sgtk_file_selection_show_fileop_buttons(SOBJ o_filesel)4714 SOBJ sgtk_file_selection_show_fileop_buttons (SOBJ o_filesel)
4715 {
4716 GtkFileSelection* filesel;
4717
4718 filesel = sgtk_get_Object(o_filesel);
4719 gtk_file_selection_show_fileop_buttons(filesel);
4720 return(scm_undefined);
4721 }
4722
sgtk_file_selection_hide_fileop_buttons(SOBJ o_filesel)4723 SOBJ sgtk_file_selection_hide_fileop_buttons (SOBJ o_filesel)
4724 {
4725 GtkFileSelection* filesel;
4726
4727 filesel = sgtk_get_Object(o_filesel);
4728 gtk_file_selection_hide_fileop_buttons(filesel);
4729 return(scm_undefined);
4730 }
4731
sgtk_file_selection_set_filename(SOBJ o_filesel,SOBJ o_filename)4732 SOBJ sgtk_file_selection_set_filename (SOBJ o_filesel, SOBJ o_filename)
4733 {
4734 GtkFileSelection* filesel;
4735 gchar* filename;
4736
4737 filesel = sgtk_get_Object(o_filesel);
4738 filename = scm_getstr(o_filename);
4739 gtk_file_selection_set_filename(filesel, filename);
4740 return(scm_undefined);
4741 }
4742
sgtk_file_selection_get_filename(SOBJ o_filesel)4743 SOBJ sgtk_file_selection_get_filename (SOBJ o_filesel)
4744 {
4745 GtkFileSelection* filesel;
4746 gchar* __retval__;
4747
4748 filesel = sgtk_get_Object(o_filesel);
4749 __retval__ = gtk_file_selection_get_filename(filesel);
4750 return(scm_mkstring(__retval__));
4751 }
4752
sgtk_file_selection_complete(SOBJ o_filesel,SOBJ o_pattern)4753 SOBJ sgtk_file_selection_complete (SOBJ o_filesel, SOBJ o_pattern)
4754 {
4755 GtkFileSelection* filesel;
4756 gchar* pattern;
4757
4758 filesel = sgtk_get_Object(o_filesel);
4759 pattern = scm_getstr(o_pattern);
4760 gtk_file_selection_complete(filesel, pattern);
4761 return(scm_undefined);
4762 }
4763
sgtk_fixed_get_type()4764 SOBJ sgtk_fixed_get_type ()
4765 {
4766 GtkType __retval__;
4767
4768 __retval__ = gtk_fixed_get_type();
4769 return(SCM_MKINUM(__retval__));
4770 }
4771
sgtk_fixed_new()4772 SOBJ sgtk_fixed_new ()
4773 {
4774 GtkWidget* __retval__;
4775
4776 __retval__ = gtk_fixed_new();
4777 return(sgtk_object_new((void*)__retval__));
4778 }
4779
sgtk_fixed_put(SOBJ o_fixed,SOBJ o_widget,SOBJ o_x,SOBJ o_y)4780 SOBJ sgtk_fixed_put (SOBJ o_fixed, SOBJ o_widget, SOBJ o_x, SOBJ o_y)
4781 {
4782 GtkFixed* fixed;
4783 GtkWidget* widget;
4784 gint16 x;
4785 gint16 y;
4786
4787 fixed = sgtk_get_Object(o_fixed);
4788 widget = sgtk_get_Object(o_widget);
4789 x = scm_number2long(o_x);
4790 y = scm_number2long(o_y);
4791 gtk_fixed_put(fixed, widget, x, y);
4792 return(scm_undefined);
4793 }
4794
sgtk_fixed_move(SOBJ o_fixed,SOBJ o_widget,SOBJ o_x,SOBJ o_y)4795 SOBJ sgtk_fixed_move (SOBJ o_fixed, SOBJ o_widget, SOBJ o_x, SOBJ o_y)
4796 {
4797 GtkFixed* fixed;
4798 GtkWidget* widget;
4799 gint16 x;
4800 gint16 y;
4801
4802 fixed = sgtk_get_Object(o_fixed);
4803 widget = sgtk_get_Object(o_widget);
4804 x = scm_number2long(o_x);
4805 y = scm_number2long(o_y);
4806 gtk_fixed_move(fixed, widget, x, y);
4807 return(scm_undefined);
4808 }
4809
sgtk_font_selection_get_type()4810 SOBJ sgtk_font_selection_get_type ()
4811 {
4812 GtkType __retval__;
4813
4814 __retval__ = gtk_font_selection_get_type();
4815 return(SCM_MKINUM(__retval__));
4816 }
4817
sgtk_font_selection_new()4818 SOBJ sgtk_font_selection_new ()
4819 {
4820 GtkWidget* __retval__;
4821
4822 __retval__ = gtk_font_selection_new();
4823 return(sgtk_object_new((void*)__retval__));
4824 }
4825
4826 #ifdef INCOMPLETE
sgtk_font_selection_set_filter(SOBJ o_fontsel,SOBJ o_filter_type,SOBJ o_font_type,SOBJ o_foundries,SOBJ o_weights,SOBJ o_slants,SOBJ o_setwidths,SOBJ o_spacings,SOBJ o_charsets)4827 SOBJ sgtk_font_selection_set_filter (SOBJ o_fontsel, SOBJ o_filter_type, SOBJ o_font_type, SOBJ o_foundries, SOBJ o_weights, SOBJ o_slants, SOBJ o_setwidths, SOBJ o_spacings, SOBJ o_charsets)
4828 {
4829 GtkFontSelection* fontsel;
4830 GtkFontFilterType filter_type;
4831 GtkFontType font_type;
4832 gchar** foundries;
4833 gchar** weights;
4834 gchar** slants;
4835 gchar** setwidths;
4836 gchar** spacings;
4837 gchar** charsets;
4838
4839 fontsel = sgtk_get_Object(o_fontsel);
4840 filter_type = sgtk_enumget("GtkFontFilterType", o_filter_type);
4841 font_type = sgtk_flagsget("GtkFontType", o_font_type);
4842 /* +++ undefined gchar** */
4843 /* +++ undefined gchar** */
4844 /* +++ undefined gchar** */
4845 /* +++ undefined gchar** */
4846 /* +++ undefined gchar** */
4847 /* +++ undefined gchar** */
4848 gtk_font_selection_set_filter(fontsel, filter_type, font_type, foundries, weights, slants, setwidths, spacings, charsets);
4849 return(scm_undefined);
4850 }
4851 #endif /* INCOMPLETE */
4852
sgtk_font_selection_get_font(SOBJ o_fontsel)4853 SOBJ sgtk_font_selection_get_font (SOBJ o_fontsel)
4854 {
4855 GtkFontSelection* fontsel;
4856 GdkFont* __retval__;
4857
4858 fontsel = sgtk_get_Object(o_fontsel);
4859 __retval__ = gtk_font_selection_get_font(fontsel);
4860 return(sgdk_Font_new(__retval__));
4861 }
4862
sgtk_font_selection_get_font_name(SOBJ o_fontsel)4863 SOBJ sgtk_font_selection_get_font_name (SOBJ o_fontsel)
4864 {
4865 GtkFontSelection* fontsel;
4866 gchar* __retval__;
4867
4868 fontsel = sgtk_get_Object(o_fontsel);
4869 __retval__ = gtk_font_selection_get_font_name(fontsel);
4870 return(scm_mkstring(__retval__));
4871 }
4872
sgtk_font_selection_set_font_name(SOBJ o_fontsel,SOBJ o_fontname)4873 SOBJ sgtk_font_selection_set_font_name (SOBJ o_fontsel, SOBJ o_fontname)
4874 {
4875 GtkFontSelection* fontsel;
4876 gchar* fontname;
4877 gboolean __retval__;
4878
4879 fontsel = sgtk_get_Object(o_fontsel);
4880 fontname = scm_getstr(o_fontname);
4881 __retval__ = gtk_font_selection_set_font_name(fontsel, fontname);
4882 return(SCM_MKBOOL(__retval__));
4883 }
4884
sgtk_font_selection_get_preview_text(SOBJ o_fontsel)4885 SOBJ sgtk_font_selection_get_preview_text (SOBJ o_fontsel)
4886 {
4887 GtkFontSelection* fontsel;
4888 gchar* __retval__;
4889
4890 fontsel = sgtk_get_Object(o_fontsel);
4891 __retval__ = gtk_font_selection_get_preview_text(fontsel);
4892 return(scm_mkstring(__retval__));
4893 }
4894
sgtk_font_selection_set_preview_text(SOBJ o_fontsel,SOBJ o_text)4895 SOBJ sgtk_font_selection_set_preview_text (SOBJ o_fontsel, SOBJ o_text)
4896 {
4897 GtkFontSelection* fontsel;
4898 gchar* text;
4899
4900 fontsel = sgtk_get_Object(o_fontsel);
4901 text = scm_getstr(o_text);
4902 gtk_font_selection_set_preview_text(fontsel, text);
4903 return(scm_undefined);
4904 }
4905
sgtk_font_selection_dialog_get_type()4906 SOBJ sgtk_font_selection_dialog_get_type ()
4907 {
4908 guint __retval__;
4909
4910 __retval__ = gtk_font_selection_dialog_get_type();
4911 return(SCM_MKINUM(__retval__));
4912 }
4913
sgtk_font_selection_dialog_new(SOBJ o_title)4914 SOBJ sgtk_font_selection_dialog_new (SOBJ o_title)
4915 {
4916 gchar* title;
4917 GtkWidget* __retval__;
4918
4919 title = scm_getstr(o_title);
4920 __retval__ = gtk_font_selection_dialog_new(title);
4921 return(sgtk_object_new((void*)__retval__));
4922 }
4923
sgtk_font_selection_dialog_get_font_name(SOBJ o_fsd)4924 SOBJ sgtk_font_selection_dialog_get_font_name (SOBJ o_fsd)
4925 {
4926 GtkFontSelectionDialog* fsd;
4927 gchar* __retval__;
4928
4929 fsd = sgtk_get_Object(o_fsd);
4930 __retval__ = gtk_font_selection_dialog_get_font_name(fsd);
4931 return(scm_mkstring(__retval__));
4932 }
4933
sgtk_font_selection_dialog_get_font(SOBJ o_fsd)4934 SOBJ sgtk_font_selection_dialog_get_font (SOBJ o_fsd)
4935 {
4936 GtkFontSelectionDialog* fsd;
4937 GdkFont* __retval__;
4938
4939 fsd = sgtk_get_Object(o_fsd);
4940 __retval__ = gtk_font_selection_dialog_get_font(fsd);
4941 return(sgdk_Font_new(__retval__));
4942 }
4943
sgtk_font_selection_dialog_set_font_name(SOBJ o_fsd,SOBJ o_fontname)4944 SOBJ sgtk_font_selection_dialog_set_font_name (SOBJ o_fsd, SOBJ o_fontname)
4945 {
4946 GtkFontSelectionDialog* fsd;
4947 gchar* fontname;
4948 gboolean __retval__;
4949
4950 fsd = sgtk_get_Object(o_fsd);
4951 fontname = scm_getstr(o_fontname);
4952 __retval__ = gtk_font_selection_dialog_set_font_name(fsd, fontname);
4953 return(SCM_MKBOOL(__retval__));
4954 }
4955
4956 #ifdef INCOMPLETE
sgtk_font_selection_dialog_set_filter(SOBJ o_fsd,SOBJ o_filter_type,SOBJ o_font_type,SOBJ o_foundries,SOBJ o_weights,SOBJ o_slants,SOBJ o_setwidths,SOBJ o_spacings,SOBJ o_charsets)4957 SOBJ sgtk_font_selection_dialog_set_filter (SOBJ o_fsd, SOBJ o_filter_type, SOBJ o_font_type, SOBJ o_foundries, SOBJ o_weights, SOBJ o_slants, SOBJ o_setwidths, SOBJ o_spacings, SOBJ o_charsets)
4958 {
4959 GtkFontSelectionDialog* fsd;
4960 GtkFontFilterType filter_type;
4961 GtkFontType font_type;
4962 gchar** foundries;
4963 gchar** weights;
4964 gchar** slants;
4965 gchar** setwidths;
4966 gchar** spacings;
4967 gchar** charsets;
4968
4969 fsd = sgtk_get_Object(o_fsd);
4970 filter_type = sgtk_enumget("GtkFontFilterType", o_filter_type);
4971 font_type = sgtk_flagsget("GtkFontType", o_font_type);
4972 /* +++ undefined gchar** */
4973 /* +++ undefined gchar** */
4974 /* +++ undefined gchar** */
4975 /* +++ undefined gchar** */
4976 /* +++ undefined gchar** */
4977 /* +++ undefined gchar** */
4978 gtk_font_selection_dialog_set_filter(fsd, filter_type, font_type, foundries, weights, slants, setwidths, spacings, charsets);
4979 return(scm_undefined);
4980 }
4981 #endif /* INCOMPLETE */
4982
sgtk_font_selection_dialog_get_preview_text(SOBJ o_fsd)4983 SOBJ sgtk_font_selection_dialog_get_preview_text (SOBJ o_fsd)
4984 {
4985 GtkFontSelectionDialog* fsd;
4986 gchar* __retval__;
4987
4988 fsd = sgtk_get_Object(o_fsd);
4989 __retval__ = gtk_font_selection_dialog_get_preview_text(fsd);
4990 return(scm_mkstring(__retval__));
4991 }
4992
sgtk_font_selection_dialog_set_preview_text(SOBJ o_fsd,SOBJ o_text)4993 SOBJ sgtk_font_selection_dialog_set_preview_text (SOBJ o_fsd, SOBJ o_text)
4994 {
4995 GtkFontSelectionDialog* fsd;
4996 gchar* text;
4997
4998 fsd = sgtk_get_Object(o_fsd);
4999 text = scm_getstr(o_text);
5000 gtk_font_selection_dialog_set_preview_text(fsd, text);
5001 return(scm_undefined);
5002 }
5003
sgtk_frame_get_type()5004 SOBJ sgtk_frame_get_type ()
5005 {
5006 GtkType __retval__;
5007
5008 __retval__ = gtk_frame_get_type();
5009 return(SCM_MKINUM(__retval__));
5010 }
5011
sgtk_frame_new(SOBJ o_label)5012 SOBJ sgtk_frame_new (SOBJ o_label)
5013 {
5014 gchar* label;
5015 GtkWidget* __retval__;
5016
5017 label = scm_getstr(o_label);
5018 __retval__ = gtk_frame_new(label);
5019 return(sgtk_object_new((void*)__retval__));
5020 }
5021
sgtk_frame_set_label(SOBJ o_frame,SOBJ o_label)5022 SOBJ sgtk_frame_set_label (SOBJ o_frame, SOBJ o_label)
5023 {
5024 GtkFrame* frame;
5025 gchar* label;
5026
5027 frame = sgtk_get_Object(o_frame);
5028 label = scm_getstr(o_label);
5029 gtk_frame_set_label(frame, label);
5030 return(scm_undefined);
5031 }
5032
sgtk_frame_set_label_align(SOBJ o_frame,SOBJ o_xalign,SOBJ o_yalign)5033 SOBJ sgtk_frame_set_label_align (SOBJ o_frame, SOBJ o_xalign, SOBJ o_yalign)
5034 {
5035 GtkFrame* frame;
5036 gfloat xalign;
5037 gfloat yalign;
5038
5039 frame = sgtk_get_Object(o_frame);
5040 xalign = scm_number2double(o_xalign);
5041 yalign = scm_number2double(o_yalign);
5042 gtk_frame_set_label_align(frame, xalign, yalign);
5043 return(scm_undefined);
5044 }
5045
sgtk_frame_set_shadow_type(SOBJ o_frame,SOBJ o_type)5046 SOBJ sgtk_frame_set_shadow_type (SOBJ o_frame, SOBJ o_type)
5047 {
5048 GtkFrame* frame;
5049 GtkShadowType type;
5050
5051 frame = sgtk_get_Object(o_frame);
5052 type = sgtk_enumget("GtkShadowType", o_type);
5053 gtk_frame_set_shadow_type(frame, type);
5054 return(scm_undefined);
5055 }
5056
sgtk_gamma_curve_get_type()5057 SOBJ sgtk_gamma_curve_get_type ()
5058 {
5059 guint __retval__;
5060
5061 __retval__ = gtk_gamma_curve_get_type();
5062 return(SCM_MKINUM(__retval__));
5063 }
5064
sgtk_gamma_curve_new()5065 SOBJ sgtk_gamma_curve_new ()
5066 {
5067 GtkWidget* __retval__;
5068
5069 __retval__ = gtk_gamma_curve_new();
5070 return(sgtk_object_new((void*)__retval__));
5071 }
5072
5073 #ifdef INCOMPLETE
sgtk_gc_get(SOBJ o_depth,SOBJ o_colormap,SOBJ o_values,SOBJ o_values_mask)5074 SOBJ sgtk_gc_get (SOBJ o_depth, SOBJ o_colormap, SOBJ o_values, SOBJ o_values_mask)
5075 {
5076 gint depth;
5077 GdkColormap* colormap;
5078 GdkGCValues* values;
5079 GdkGCValuesMask values_mask;
5080 GdkGC* __retval__;
5081
5082 depth = scm_number2long(o_depth);
5083 colormap = sgdk_get_Colormap(o_colormap);
5084 /* +++ undefined GdkGCValues* */
5085 values_mask = sgtk_flagsget("GdkGCValuesMask", o_values_mask);
5086 __retval__ = gtk_gc_get(depth, colormap, values, values_mask);
5087 return(sgdk_GC_new(__retval__));
5088 }
5089 #endif /* INCOMPLETE */
5090
sgtk_gc_release(SOBJ o_gc)5091 SOBJ sgtk_gc_release (SOBJ o_gc)
5092 {
5093 GdkGC* gc;
5094
5095 gc = sgdk_get_GC(o_gc);
5096 gtk_gc_release(gc);
5097 return(scm_undefined);
5098 }
5099
sgtk_handle_box_get_type()5100 SOBJ sgtk_handle_box_get_type ()
5101 {
5102 GtkType __retval__;
5103
5104 __retval__ = gtk_handle_box_get_type();
5105 return(SCM_MKINUM(__retval__));
5106 }
5107
sgtk_handle_box_new()5108 SOBJ sgtk_handle_box_new ()
5109 {
5110 GtkWidget* __retval__;
5111
5112 __retval__ = gtk_handle_box_new();
5113 return(sgtk_object_new((void*)__retval__));
5114 }
5115
sgtk_handle_box_set_shadow_type(SOBJ o_handle_box,SOBJ o_type)5116 SOBJ sgtk_handle_box_set_shadow_type (SOBJ o_handle_box, SOBJ o_type)
5117 {
5118 GtkHandleBox* handle_box;
5119 GtkShadowType type;
5120
5121 handle_box = sgtk_get_Object(o_handle_box);
5122 type = sgtk_enumget("GtkShadowType", o_type);
5123 gtk_handle_box_set_shadow_type(handle_box, type);
5124 return(scm_undefined);
5125 }
5126
sgtk_handle_box_set_handle_position(SOBJ o_handle_box,SOBJ o_position)5127 SOBJ sgtk_handle_box_set_handle_position (SOBJ o_handle_box, SOBJ o_position)
5128 {
5129 GtkHandleBox* handle_box;
5130 GtkPositionType position;
5131
5132 handle_box = sgtk_get_Object(o_handle_box);
5133 position = sgtk_enumget("GtkPositionType", o_position);
5134 gtk_handle_box_set_handle_position(handle_box, position);
5135 return(scm_undefined);
5136 }
5137
sgtk_handle_box_set_snap_edge(SOBJ o_handle_box,SOBJ o_edge)5138 SOBJ sgtk_handle_box_set_snap_edge (SOBJ o_handle_box, SOBJ o_edge)
5139 {
5140 GtkHandleBox* handle_box;
5141 GtkPositionType edge;
5142
5143 handle_box = sgtk_get_Object(o_handle_box);
5144 edge = sgtk_enumget("GtkPositionType", o_edge);
5145 gtk_handle_box_set_snap_edge(handle_box, edge);
5146 return(scm_undefined);
5147 }
5148
sgtk_hbutton_box_get_type()5149 SOBJ sgtk_hbutton_box_get_type ()
5150 {
5151 guint __retval__;
5152
5153 __retval__ = gtk_hbutton_box_get_type();
5154 return(SCM_MKINUM(__retval__));
5155 }
5156
sgtk_hbutton_box_new()5157 SOBJ sgtk_hbutton_box_new ()
5158 {
5159 GtkWidget* __retval__;
5160
5161 __retval__ = gtk_hbutton_box_new();
5162 return(sgtk_object_new((void*)__retval__));
5163 }
5164
sgtk_hbutton_box_set_spacing_default(SOBJ o_spacing)5165 SOBJ sgtk_hbutton_box_set_spacing_default (SOBJ o_spacing)
5166 {
5167 gint spacing;
5168
5169 spacing = scm_number2long(o_spacing);
5170 gtk_hbutton_box_set_spacing_default(spacing);
5171 return(scm_undefined);
5172 }
5173
sgtk_hbutton_box_set_layout_default(SOBJ o_layout)5174 SOBJ sgtk_hbutton_box_set_layout_default (SOBJ o_layout)
5175 {
5176 GtkButtonBoxStyle layout;
5177
5178 layout = sgtk_enumget("GtkButtonBoxStyle", o_layout);
5179 gtk_hbutton_box_set_layout_default(layout);
5180 return(scm_undefined);
5181 }
5182
sgtk_hbutton_box_get_spacing_default()5183 SOBJ sgtk_hbutton_box_get_spacing_default ()
5184 {
5185 gint __retval__;
5186
5187 __retval__ = gtk_hbutton_box_get_spacing_default();
5188 return(SCM_MKINUM(__retval__));
5189 }
5190
sgtk_hbutton_box_get_layout_default()5191 SOBJ sgtk_hbutton_box_get_layout_default ()
5192 {
5193 GtkButtonBoxStyle __retval__;
5194
5195 __retval__ = gtk_hbutton_box_get_layout_default();
5196 return(SCM_MKINUM(__retval__));
5197 }
5198
sgtk_hbox_get_type()5199 SOBJ sgtk_hbox_get_type ()
5200 {
5201 GtkType __retval__;
5202
5203 __retval__ = gtk_hbox_get_type();
5204 return(SCM_MKINUM(__retval__));
5205 }
5206
sgtk_hbox_new(SOBJ o_homogeneous,SOBJ o_spacing)5207 SOBJ sgtk_hbox_new (SOBJ o_homogeneous, SOBJ o_spacing)
5208 {
5209 gboolean homogeneous;
5210 gint spacing;
5211 GtkWidget* __retval__;
5212
5213 homogeneous = (o_homogeneous != scm_false);
5214 spacing = scm_number2long(o_spacing);
5215 __retval__ = gtk_hbox_new(homogeneous, spacing);
5216 return(sgtk_object_new((void*)__retval__));
5217 }
5218
sgtk_hpaned_get_type()5219 SOBJ sgtk_hpaned_get_type ()
5220 {
5221 guint __retval__;
5222
5223 __retval__ = gtk_hpaned_get_type();
5224 return(SCM_MKINUM(__retval__));
5225 }
5226
sgtk_hpaned_new()5227 SOBJ sgtk_hpaned_new ()
5228 {
5229 GtkWidget* __retval__;
5230
5231 __retval__ = gtk_hpaned_new();
5232 return(sgtk_object_new((void*)__retval__));
5233 }
5234
sgtk_hruler_get_type()5235 SOBJ sgtk_hruler_get_type ()
5236 {
5237 guint __retval__;
5238
5239 __retval__ = gtk_hruler_get_type();
5240 return(SCM_MKINUM(__retval__));
5241 }
5242
sgtk_hruler_new()5243 SOBJ sgtk_hruler_new ()
5244 {
5245 GtkWidget* __retval__;
5246
5247 __retval__ = gtk_hruler_new();
5248 return(sgtk_object_new((void*)__retval__));
5249 }
5250
sgtk_hscale_get_type()5251 SOBJ sgtk_hscale_get_type ()
5252 {
5253 GtkType __retval__;
5254
5255 __retval__ = gtk_hscale_get_type();
5256 return(SCM_MKINUM(__retval__));
5257 }
5258
sgtk_hscale_new(SOBJ o_adjustment)5259 SOBJ sgtk_hscale_new (SOBJ o_adjustment)
5260 {
5261 GtkAdjustment* adjustment;
5262 GtkWidget* __retval__;
5263
5264 adjustment = sgtk_get_Object(o_adjustment);
5265 __retval__ = gtk_hscale_new(adjustment);
5266 return(sgtk_object_new((void*)__retval__));
5267 }
5268
sgtk_hscrollbar_get_type()5269 SOBJ sgtk_hscrollbar_get_type ()
5270 {
5271 GtkType __retval__;
5272
5273 __retval__ = gtk_hscrollbar_get_type();
5274 return(SCM_MKINUM(__retval__));
5275 }
5276
sgtk_hscrollbar_new(SOBJ o_adjustment)5277 SOBJ sgtk_hscrollbar_new (SOBJ o_adjustment)
5278 {
5279 GtkAdjustment* adjustment;
5280 GtkWidget* __retval__;
5281
5282 adjustment = sgtk_get_Object(o_adjustment);
5283 __retval__ = gtk_hscrollbar_new(adjustment);
5284 return(sgtk_object_new((void*)__retval__));
5285 }
5286
sgtk_hseparator_get_type()5287 SOBJ sgtk_hseparator_get_type ()
5288 {
5289 GtkType __retval__;
5290
5291 __retval__ = gtk_hseparator_get_type();
5292 return(SCM_MKINUM(__retval__));
5293 }
5294
sgtk_hseparator_new()5295 SOBJ sgtk_hseparator_new ()
5296 {
5297 GtkWidget* __retval__;
5298
5299 __retval__ = gtk_hseparator_new();
5300 return(sgtk_object_new((void*)__retval__));
5301 }
5302
sgtk_image_get_type()5303 SOBJ sgtk_image_get_type ()
5304 {
5305 GtkType __retval__;
5306
5307 __retval__ = gtk_image_get_type();
5308 return(SCM_MKINUM(__retval__));
5309 }
5310
5311 #ifdef INCOMPLETE
sgtk_image_new(SOBJ o_val,SOBJ o_mask)5312 SOBJ sgtk_image_new (SOBJ o_val, SOBJ o_mask)
5313 {
5314 GdkImage* val;
5315 GdkBitmap* mask;
5316 GtkWidget* __retval__;
5317
5318 /* +++ undefined GdkImage* */
5319 mask = sgdk_get_Window(o_mask);
5320 __retval__ = gtk_image_new(val, mask);
5321 return(sgtk_object_new((void*)__retval__));
5322 }
5323 #endif /* INCOMPLETE */
5324
5325 #ifdef INCOMPLETE
sgtk_image_set(SOBJ o_image,SOBJ o_val,SOBJ o_mask)5326 SOBJ sgtk_image_set (SOBJ o_image, SOBJ o_val, SOBJ o_mask)
5327 {
5328 GtkImage* image;
5329 GdkImage* val;
5330 GdkBitmap* mask;
5331
5332 image = sgtk_get_Object(o_image);
5333 /* +++ undefined GdkImage* */
5334 mask = sgdk_get_Window(o_mask);
5335 gtk_image_set(image, val, mask);
5336 return(scm_undefined);
5337 }
5338 #endif /* INCOMPLETE */
5339
5340 #ifdef INCOMPLETE
sgtk_image_get(SOBJ o_image,SOBJ o_val,SOBJ o_mask)5341 SOBJ sgtk_image_get (SOBJ o_image, SOBJ o_val, SOBJ o_mask)
5342 {
5343 GtkImage* image;
5344 GdkImage** val;
5345 GdkBitmap** mask;
5346
5347 image = sgtk_get_Object(o_image);
5348 /* +++ undefined GdkImage** */
5349 /* +++ undefined GdkBitmap** */
5350 gtk_image_get(image, val, mask);
5351 return(scm_undefined);
5352 }
5353 #endif /* INCOMPLETE */
5354
sgtk_input_dialog_get_type()5355 SOBJ sgtk_input_dialog_get_type ()
5356 {
5357 GtkType __retval__;
5358
5359 __retval__ = gtk_input_dialog_get_type();
5360 return(SCM_MKINUM(__retval__));
5361 }
5362
sgtk_input_dialog_new()5363 SOBJ sgtk_input_dialog_new ()
5364 {
5365 GtkWidget* __retval__;
5366
5367 __retval__ = gtk_input_dialog_new();
5368 return(sgtk_object_new((void*)__retval__));
5369 }
5370
sgtk_invisible_get_type()5371 SOBJ sgtk_invisible_get_type ()
5372 {
5373 GtkType __retval__;
5374
5375 __retval__ = gtk_invisible_get_type();
5376 return(SCM_MKINUM(__retval__));
5377 }
5378
sgtk_invisible_new()5379 SOBJ sgtk_invisible_new ()
5380 {
5381 GtkWidget* __retval__;
5382
5383 __retval__ = gtk_invisible_new();
5384 return(sgtk_object_new((void*)__retval__));
5385 }
5386
sgtk_item_get_type()5387 SOBJ sgtk_item_get_type ()
5388 {
5389 GtkType __retval__;
5390
5391 __retval__ = gtk_item_get_type();
5392 return(SCM_MKINUM(__retval__));
5393 }
5394
sgtk_item_select(SOBJ o_item)5395 SOBJ sgtk_item_select (SOBJ o_item)
5396 {
5397 GtkItem* item;
5398
5399 item = sgtk_get_Object(o_item);
5400 gtk_item_select(item);
5401 return(scm_undefined);
5402 }
5403
sgtk_item_deselect(SOBJ o_item)5404 SOBJ sgtk_item_deselect (SOBJ o_item)
5405 {
5406 GtkItem* item;
5407
5408 item = sgtk_get_Object(o_item);
5409 gtk_item_deselect(item);
5410 return(scm_undefined);
5411 }
5412
sgtk_item_toggle(SOBJ o_item)5413 SOBJ sgtk_item_toggle (SOBJ o_item)
5414 {
5415 GtkItem* item;
5416
5417 item = sgtk_get_Object(o_item);
5418 gtk_item_toggle(item);
5419 return(scm_undefined);
5420 }
5421
sgtk_item_factory_get_type()5422 SOBJ sgtk_item_factory_get_type ()
5423 {
5424 GtkType __retval__;
5425
5426 __retval__ = gtk_item_factory_get_type();
5427 return(SCM_MKINUM(__retval__));
5428 }
5429
sgtk_item_factory_new(SOBJ o_container_type,SOBJ o_path,SOBJ o_accel_group)5430 SOBJ sgtk_item_factory_new (SOBJ o_container_type, SOBJ o_path, SOBJ o_accel_group)
5431 {
5432 GtkType container_type;
5433 gchar* path;
5434 GtkAccelGroup* accel_group;
5435 GtkItemFactory* __retval__;
5436
5437 container_type = scm_number2long(o_container_type);
5438 path = scm_getstr(o_path);
5439 accel_group = sgtk_get_AccelGroup(o_accel_group);
5440 __retval__ = gtk_item_factory_new(container_type, path, accel_group);
5441 return(sgtk_object_new((void*)__retval__));
5442 }
5443
sgtk_item_factory_add_foreign(SOBJ o_accel_widget,SOBJ o_full_path,SOBJ o_accel_group,SOBJ o_keyval,SOBJ o_modifiers)5444 SOBJ sgtk_item_factory_add_foreign (SOBJ o_accel_widget, SOBJ o_full_path, SOBJ o_accel_group, SOBJ o_keyval, SOBJ o_modifiers)
5445 {
5446 GtkWidget* accel_widget;
5447 gchar* full_path;
5448 GtkAccelGroup* accel_group;
5449 guint keyval;
5450 GdkModifierType modifiers;
5451
5452 accel_widget = sgtk_get_Object(o_accel_widget);
5453 full_path = scm_getstr(o_full_path);
5454 accel_group = sgtk_get_AccelGroup(o_accel_group);
5455 keyval = scm_number2long(o_keyval);
5456 modifiers = sgtk_flagsget("GdkModifierType", o_modifiers);
5457 gtk_item_factory_add_foreign(accel_widget, full_path, accel_group, keyval, modifiers);
5458 return(scm_undefined);
5459 }
5460
sgtk_item_factory_construct(SOBJ o_ifactory,SOBJ o_container_type,SOBJ o_path,SOBJ o_accel_group)5461 SOBJ sgtk_item_factory_construct (SOBJ o_ifactory, SOBJ o_container_type, SOBJ o_path, SOBJ o_accel_group)
5462 {
5463 GtkItemFactory* ifactory;
5464 GtkType container_type;
5465 gchar* path;
5466 GtkAccelGroup* accel_group;
5467
5468 ifactory = sgtk_get_Object(o_ifactory);
5469 container_type = scm_number2long(o_container_type);
5470 path = scm_getstr(o_path);
5471 accel_group = sgtk_get_AccelGroup(o_accel_group);
5472 gtk_item_factory_construct(ifactory, container_type, path, accel_group);
5473 return(scm_undefined);
5474 }
5475
sgtk_item_factory_from_path(SOBJ o_path)5476 SOBJ sgtk_item_factory_from_path (SOBJ o_path)
5477 {
5478 gchar* path;
5479 GtkItemFactory* __retval__;
5480
5481 path = scm_getstr(o_path);
5482 __retval__ = gtk_item_factory_from_path(path);
5483 return(sgtk_object_new((void*)__retval__));
5484 }
5485
sgtk_item_factory_from_widget(SOBJ o_widget)5486 SOBJ sgtk_item_factory_from_widget (SOBJ o_widget)
5487 {
5488 GtkWidget* widget;
5489 GtkItemFactory* __retval__;
5490
5491 widget = sgtk_get_Object(o_widget);
5492 __retval__ = gtk_item_factory_from_widget(widget);
5493 return(sgtk_object_new((void*)__retval__));
5494 }
5495
sgtk_item_factory_path_from_widget(SOBJ o_widget)5496 SOBJ sgtk_item_factory_path_from_widget (SOBJ o_widget)
5497 {
5498 GtkWidget* widget;
5499 gchar* __retval__;
5500
5501 widget = sgtk_get_Object(o_widget);
5502 __retval__ = gtk_item_factory_path_from_widget(widget);
5503 return(scm_mkstring(__retval__));
5504 }
5505
5506 #ifdef INCOMPLETE
sgtk_item_factory_dump_items(SOBJ o_path_pspec,SOBJ o_modified_only,SOBJ o_print_func,SOBJ o_func_data)5507 SOBJ sgtk_item_factory_dump_items (SOBJ o_path_pspec, SOBJ o_modified_only, SOBJ o_print_func, SOBJ o_func_data)
5508 {
5509 GtkPatternSpec* path_pspec;
5510 gboolean modified_only;
5511 GtkPrintFunc print_func;
5512 gpointer func_data;
5513
5514 /* +++ undefined GtkPatternSpec* */
5515 modified_only = (o_modified_only != scm_false);
5516 /* +++ undefined GtkPrintFunc */
5517 /* +++ get gpointer -> pointer failed */
5518 gtk_item_factory_dump_items(path_pspec, modified_only, print_func, func_data);
5519 return(scm_undefined);
5520 }
5521 #endif /* INCOMPLETE */
5522
5523 #ifdef INCOMPLETE
sgtk_item_factory_print_func(SOBJ o_FILE_pointer,SOBJ o_string)5524 SOBJ sgtk_item_factory_print_func (SOBJ o_FILE_pointer, SOBJ o_string)
5525 {
5526 gpointer FILE_pointer;
5527 gchar* string;
5528
5529 /* +++ get gpointer -> pointer failed */
5530 string = scm_getstr(o_string);
5531 gtk_item_factory_print_func(FILE_pointer, string);
5532 return(scm_undefined);
5533 }
5534 #endif /* INCOMPLETE */
5535
5536 #ifdef INCOMPLETE
sgtk_item_factory_dump_rc(SOBJ o_file_name,SOBJ o_path_pspec,SOBJ o_modified_only)5537 SOBJ sgtk_item_factory_dump_rc (SOBJ o_file_name, SOBJ o_path_pspec, SOBJ o_modified_only)
5538 {
5539 gchar* file_name;
5540 GtkPatternSpec* path_pspec;
5541 gboolean modified_only;
5542
5543 file_name = scm_getstr(o_file_name);
5544 /* +++ undefined GtkPatternSpec* */
5545 modified_only = (o_modified_only != scm_false);
5546 gtk_item_factory_dump_rc(file_name, path_pspec, modified_only);
5547 return(scm_undefined);
5548 }
5549 #endif /* INCOMPLETE */
5550
5551 #ifdef INCOMPLETE
sgtk_item_factory_create_items(SOBJ o_ifactory,SOBJ o_n_entries,SOBJ o_entries,SOBJ o_callback_data)5552 SOBJ sgtk_item_factory_create_items (SOBJ o_ifactory, SOBJ o_n_entries, SOBJ o_entries, SOBJ o_callback_data)
5553 {
5554 GtkItemFactory* ifactory;
5555 guint n_entries;
5556 GtkItemFactoryEntry* entries;
5557 gpointer callback_data;
5558
5559 ifactory = sgtk_get_Object(o_ifactory);
5560 n_entries = scm_number2long(o_n_entries);
5561 /* +++ undefined GtkItemFactoryEntry* */
5562 /* +++ get gpointer -> pointer failed */
5563 gtk_item_factory_create_items(ifactory, n_entries, entries, callback_data);
5564 return(scm_undefined);
5565 }
5566 #endif /* INCOMPLETE */
5567
5568 #ifdef INCOMPLETE
sgtk_item_factory_create_items_ac(SOBJ o_ifactory,SOBJ o_n_entries,SOBJ o_entries,SOBJ o_callback_data,SOBJ o_callback_type)5569 SOBJ sgtk_item_factory_create_items_ac (SOBJ o_ifactory, SOBJ o_n_entries, SOBJ o_entries, SOBJ o_callback_data, SOBJ o_callback_type)
5570 {
5571 GtkItemFactory* ifactory;
5572 guint n_entries;
5573 GtkItemFactoryEntry* entries;
5574 gpointer callback_data;
5575 guint callback_type;
5576
5577 ifactory = sgtk_get_Object(o_ifactory);
5578 n_entries = scm_number2long(o_n_entries);
5579 /* +++ undefined GtkItemFactoryEntry* */
5580 /* +++ get gpointer -> pointer failed */
5581 callback_type = scm_number2long(o_callback_type);
5582 gtk_item_factory_create_items_ac(ifactory, n_entries, entries, callback_data, callback_type);
5583 return(scm_undefined);
5584 }
5585 #endif /* INCOMPLETE */
5586
sgtk_item_factory_get_widget(SOBJ o_ifactory,SOBJ o_path)5587 SOBJ sgtk_item_factory_get_widget (SOBJ o_ifactory, SOBJ o_path)
5588 {
5589 GtkItemFactory* ifactory;
5590 gchar* path;
5591 GtkWidget* __retval__;
5592
5593 ifactory = sgtk_get_Object(o_ifactory);
5594 path = scm_getstr(o_path);
5595 __retval__ = gtk_item_factory_get_widget(ifactory, path);
5596 return(sgtk_object_new((void*)__retval__));
5597 }
5598
sgtk_item_factory_get_widget_by_action(SOBJ o_ifactory,SOBJ o_action)5599 SOBJ sgtk_item_factory_get_widget_by_action (SOBJ o_ifactory, SOBJ o_action)
5600 {
5601 GtkItemFactory* ifactory;
5602 guint action;
5603 GtkWidget* __retval__;
5604
5605 ifactory = sgtk_get_Object(o_ifactory);
5606 action = scm_number2long(o_action);
5607 __retval__ = gtk_item_factory_get_widget_by_action(ifactory, action);
5608 return(sgtk_object_new((void*)__retval__));
5609 }
5610
sgtk_item_factory_get_item(SOBJ o_ifactory,SOBJ o_path)5611 SOBJ sgtk_item_factory_get_item (SOBJ o_ifactory, SOBJ o_path)
5612 {
5613 GtkItemFactory* ifactory;
5614 gchar* path;
5615 GtkWidget* __retval__;
5616
5617 ifactory = sgtk_get_Object(o_ifactory);
5618 path = scm_getstr(o_path);
5619 __retval__ = gtk_item_factory_get_item(ifactory, path);
5620 return(sgtk_object_new((void*)__retval__));
5621 }
5622
sgtk_item_factory_get_item_by_action(SOBJ o_ifactory,SOBJ o_action)5623 SOBJ sgtk_item_factory_get_item_by_action (SOBJ o_ifactory, SOBJ o_action)
5624 {
5625 GtkItemFactory* ifactory;
5626 guint action;
5627 GtkWidget* __retval__;
5628
5629 ifactory = sgtk_get_Object(o_ifactory);
5630 action = scm_number2long(o_action);
5631 __retval__ = gtk_item_factory_get_item_by_action(ifactory, action);
5632 return(sgtk_object_new((void*)__retval__));
5633 }
5634
5635 #ifdef INCOMPLETE
sgtk_item_factory_create_item(SOBJ o_ifactory,SOBJ o_entry,SOBJ o_callback_data,SOBJ o_callback_type)5636 SOBJ sgtk_item_factory_create_item (SOBJ o_ifactory, SOBJ o_entry, SOBJ o_callback_data, SOBJ o_callback_type)
5637 {
5638 GtkItemFactory* ifactory;
5639 GtkItemFactoryEntry* entry;
5640 gpointer callback_data;
5641 guint callback_type;
5642
5643 ifactory = sgtk_get_Object(o_ifactory);
5644 /* +++ undefined GtkItemFactoryEntry* */
5645 /* +++ get gpointer -> pointer failed */
5646 callback_type = scm_number2long(o_callback_type);
5647 gtk_item_factory_create_item(ifactory, entry, callback_data, callback_type);
5648 return(scm_undefined);
5649 }
5650 #endif /* INCOMPLETE */
5651
5652 #ifdef INCOMPLETE
sgtk_item_factory_create_menu_entries(SOBJ o_n_entries,SOBJ o_entries)5653 SOBJ sgtk_item_factory_create_menu_entries (SOBJ o_n_entries, SOBJ o_entries)
5654 {
5655 guint n_entries;
5656 GtkMenuEntry* entries;
5657
5658 n_entries = scm_number2long(o_n_entries);
5659 /* +++ undefined GtkMenuEntry* */
5660 gtk_item_factory_create_menu_entries(n_entries, entries);
5661 return(scm_undefined);
5662 }
5663 #endif /* INCOMPLETE */
5664
sgtk_item_factories_path_delete(SOBJ o_ifactory_path,SOBJ o_path)5665 SOBJ sgtk_item_factories_path_delete (SOBJ o_ifactory_path, SOBJ o_path)
5666 {
5667 gchar* ifactory_path;
5668 gchar* path;
5669
5670 ifactory_path = scm_getstr(o_ifactory_path);
5671 path = scm_getstr(o_path);
5672 gtk_item_factories_path_delete(ifactory_path, path);
5673 return(scm_undefined);
5674 }
5675
sgtk_item_factory_delete_item(SOBJ o_ifactory,SOBJ o_path)5676 SOBJ sgtk_item_factory_delete_item (SOBJ o_ifactory, SOBJ o_path)
5677 {
5678 GtkItemFactory* ifactory;
5679 gchar* path;
5680
5681 ifactory = sgtk_get_Object(o_ifactory);
5682 path = scm_getstr(o_path);
5683 gtk_item_factory_delete_item(ifactory, path);
5684 return(scm_undefined);
5685 }
5686
5687 #ifdef INCOMPLETE
sgtk_item_factory_delete_entry(SOBJ o_ifactory,SOBJ o_entry)5688 SOBJ sgtk_item_factory_delete_entry (SOBJ o_ifactory, SOBJ o_entry)
5689 {
5690 GtkItemFactory* ifactory;
5691 GtkItemFactoryEntry* entry;
5692
5693 ifactory = sgtk_get_Object(o_ifactory);
5694 /* +++ undefined GtkItemFactoryEntry* */
5695 gtk_item_factory_delete_entry(ifactory, entry);
5696 return(scm_undefined);
5697 }
5698 #endif /* INCOMPLETE */
5699
5700 #ifdef INCOMPLETE
sgtk_item_factory_delete_entries(SOBJ o_ifactory,SOBJ o_n_entries,SOBJ o_entries)5701 SOBJ sgtk_item_factory_delete_entries (SOBJ o_ifactory, SOBJ o_n_entries, SOBJ o_entries)
5702 {
5703 GtkItemFactory* ifactory;
5704 guint n_entries;
5705 GtkItemFactoryEntry* entries;
5706
5707 ifactory = sgtk_get_Object(o_ifactory);
5708 n_entries = scm_number2long(o_n_entries);
5709 /* +++ undefined GtkItemFactoryEntry* */
5710 gtk_item_factory_delete_entries(ifactory, n_entries, entries);
5711 return(scm_undefined);
5712 }
5713 #endif /* INCOMPLETE */
5714
sgtk_item_factory_popup_data_from_widget(SOBJ o_widget)5715 SOBJ sgtk_item_factory_popup_data_from_widget (SOBJ o_widget)
5716 {
5717 GtkWidget* widget;
5718 gpointer __retval__;
5719
5720 widget = sgtk_get_Object(o_widget);
5721 __retval__ = gtk_item_factory_popup_data_from_widget(widget);
5722 return(scm_mkpointer(__retval__));
5723 }
5724
sgtk_item_factory_popup_data(SOBJ o_ifactory)5725 SOBJ sgtk_item_factory_popup_data (SOBJ o_ifactory)
5726 {
5727 GtkItemFactory* ifactory;
5728 gpointer __retval__;
5729
5730 ifactory = sgtk_get_Object(o_ifactory);
5731 __retval__ = gtk_item_factory_popup_data(ifactory);
5732 return(scm_mkpointer(__retval__));
5733 }
5734
sgtk_item_factory_popup(SOBJ o_ifactory,SOBJ o_x,SOBJ o_y,SOBJ o_mouse_button,SOBJ o_time)5735 SOBJ sgtk_item_factory_popup (SOBJ o_ifactory, SOBJ o_x, SOBJ o_y, SOBJ o_mouse_button, SOBJ o_time)
5736 {
5737 GtkItemFactory* ifactory;
5738 guint x;
5739 guint y;
5740 guint mouse_button;
5741 guint32 time;
5742
5743 ifactory = sgtk_get_Object(o_ifactory);
5744 x = scm_number2long(o_x);
5745 y = scm_number2long(o_y);
5746 mouse_button = scm_number2long(o_mouse_button);
5747 time = scm_number2long(o_time);
5748 gtk_item_factory_popup(ifactory, x, y, mouse_button, time);
5749 return(scm_undefined);
5750 }
5751
5752 #ifdef INCOMPLETE
sgtk_item_factory_popup_with_data(SOBJ o_ifactory,SOBJ o_popup_data,SOBJ o_destroy,SOBJ o_x,SOBJ o_y,SOBJ o_mouse_button,SOBJ o_time)5753 SOBJ sgtk_item_factory_popup_with_data (SOBJ o_ifactory, SOBJ o_popup_data, SOBJ o_destroy, SOBJ o_x, SOBJ o_y, SOBJ o_mouse_button, SOBJ o_time)
5754 {
5755 GtkItemFactory* ifactory;
5756 gpointer popup_data;
5757 GtkDestroyNotify destroy;
5758 guint x;
5759 guint y;
5760 guint mouse_button;
5761 guint32 time;
5762
5763 ifactory = sgtk_get_Object(o_ifactory);
5764 /* +++ get gpointer -> pointer failed */
5765 /* +++ undefined GtkDestroyNotify */
5766 x = scm_number2long(o_x);
5767 y = scm_number2long(o_y);
5768 mouse_button = scm_number2long(o_mouse_button);
5769 time = scm_number2long(o_time);
5770 gtk_item_factory_popup_with_data(ifactory, popup_data, destroy, x, y, mouse_button, time);
5771 return(scm_undefined);
5772 }
5773 #endif /* INCOMPLETE */
5774
sgtk_item_factory_parse_rc_string(SOBJ o_rc_string)5775 SOBJ sgtk_item_factory_parse_rc_string (SOBJ o_rc_string)
5776 {
5777 gchar* rc_string;
5778
5779 rc_string = scm_getstr(o_rc_string);
5780 gtk_item_factory_parse_rc_string(rc_string);
5781 return(scm_undefined);
5782 }
5783
5784 #ifdef INCOMPLETE
sgtk_item_factory_parse_rc_scanner(SOBJ o_scanner)5785 SOBJ sgtk_item_factory_parse_rc_scanner (SOBJ o_scanner)
5786 {
5787 GScanner* scanner;
5788
5789 /* +++ undefined GScanner* */
5790 gtk_item_factory_parse_rc_scanner(scanner);
5791 return(scm_undefined);
5792 }
5793 #endif /* INCOMPLETE */
5794
sgtk_item_factory_parse_rc(SOBJ o_file_name)5795 SOBJ sgtk_item_factory_parse_rc (SOBJ o_file_name)
5796 {
5797 gchar* file_name;
5798
5799 file_name = scm_getstr(o_file_name);
5800 gtk_item_factory_parse_rc(file_name);
5801 return(scm_undefined);
5802 }
5803
5804 #ifdef INCOMPLETE
sgtk_item_factory_set_translate_func(SOBJ o_ifactory,SOBJ o_func,SOBJ o_data,SOBJ o_notify)5805 SOBJ sgtk_item_factory_set_translate_func (SOBJ o_ifactory, SOBJ o_func, SOBJ o_data, SOBJ o_notify)
5806 {
5807 GtkItemFactory* ifactory;
5808 GtkTranslateFunc func;
5809 gpointer data;
5810 GtkDestroyNotify notify;
5811
5812 ifactory = sgtk_get_Object(o_ifactory);
5813 /* +++ undefined GtkTranslateFunc */
5814 /* +++ get gpointer -> pointer failed */
5815 /* +++ undefined GtkDestroyNotify */
5816 gtk_item_factory_set_translate_func(ifactory, func, data, notify);
5817 return(scm_undefined);
5818 }
5819 #endif /* INCOMPLETE */
5820
sgtk_label_get_type()5821 SOBJ sgtk_label_get_type ()
5822 {
5823 GtkType __retval__;
5824
5825 __retval__ = gtk_label_get_type();
5826 return(SCM_MKINUM(__retval__));
5827 }
5828
sgtk_label_new(SOBJ o_str)5829 SOBJ sgtk_label_new (SOBJ o_str)
5830 {
5831 gchar* str;
5832 GtkWidget* __retval__;
5833
5834 str = scm_getstr(o_str);
5835 __retval__ = gtk_label_new(str);
5836 return(sgtk_object_new((void*)__retval__));
5837 }
5838
sgtk_label_set_text(SOBJ o_label,SOBJ o_str)5839 SOBJ sgtk_label_set_text (SOBJ o_label, SOBJ o_str)
5840 {
5841 GtkLabel* label;
5842 gchar* str;
5843
5844 label = sgtk_get_Object(o_label);
5845 str = scm_getstr(o_str);
5846 gtk_label_set_text(label, str);
5847 return(scm_undefined);
5848 }
5849
sgtk_label_set_pattern(SOBJ o_label,SOBJ o_pattern)5850 SOBJ sgtk_label_set_pattern (SOBJ o_label, SOBJ o_pattern)
5851 {
5852 GtkLabel* label;
5853 gchar* pattern;
5854
5855 label = sgtk_get_Object(o_label);
5856 pattern = scm_getstr(o_pattern);
5857 gtk_label_set_pattern(label, pattern);
5858 return(scm_undefined);
5859 }
5860
sgtk_label_set_justify(SOBJ o_label,SOBJ o_jtype)5861 SOBJ sgtk_label_set_justify (SOBJ o_label, SOBJ o_jtype)
5862 {
5863 GtkLabel* label;
5864 GtkJustification jtype;
5865
5866 label = sgtk_get_Object(o_label);
5867 jtype = sgtk_enumget("GtkJustification", o_jtype);
5868 gtk_label_set_justify(label, jtype);
5869 return(scm_undefined);
5870 }
5871
sgtk_label_set_line_wrap(SOBJ o_label,SOBJ o_wrap)5872 SOBJ sgtk_label_set_line_wrap (SOBJ o_label, SOBJ o_wrap)
5873 {
5874 GtkLabel* label;
5875 gboolean wrap;
5876
5877 label = sgtk_get_Object(o_label);
5878 wrap = (o_wrap != scm_false);
5879 gtk_label_set_line_wrap(label, wrap);
5880 return(scm_undefined);
5881 }
5882
5883 #ifdef INCOMPLETE
sgtk_label_get(SOBJ o_label,SOBJ o_str)5884 SOBJ sgtk_label_get (SOBJ o_label, SOBJ o_str)
5885 {
5886 GtkLabel* label;
5887 gchar** str;
5888
5889 label = sgtk_get_Object(o_label);
5890 /* +++ undefined gchar** */
5891 gtk_label_get(label, str);
5892 return(scm_undefined);
5893 }
5894 #endif /* INCOMPLETE */
5895
sgtk_label_parse_uline(SOBJ o_label,SOBJ o_string)5896 SOBJ sgtk_label_parse_uline (SOBJ o_label, SOBJ o_string)
5897 {
5898 GtkLabel* label;
5899 gchar* string;
5900 guint __retval__;
5901
5902 label = sgtk_get_Object(o_label);
5903 string = scm_getstr(o_string);
5904 __retval__ = gtk_label_parse_uline(label, string);
5905 return(SCM_MKINUM(__retval__));
5906 }
5907
sgtk_layout_new(SOBJ o_hadjustment,SOBJ o_vadjustment)5908 SOBJ sgtk_layout_new (SOBJ o_hadjustment, SOBJ o_vadjustment)
5909 {
5910 GtkAdjustment* hadjustment;
5911 GtkAdjustment* vadjustment;
5912 GtkWidget* __retval__;
5913
5914 hadjustment = sgtk_get_Object(o_hadjustment);
5915 vadjustment = sgtk_get_Object(o_vadjustment);
5916 __retval__ = gtk_layout_new(hadjustment, vadjustment);
5917 return(sgtk_object_new((void*)__retval__));
5918 }
5919
sgtk_layout_get_hadjustment(SOBJ o_layout)5920 SOBJ sgtk_layout_get_hadjustment (SOBJ o_layout)
5921 {
5922 GtkLayout* layout;
5923 GtkAdjustment* __retval__;
5924
5925 layout = sgtk_get_Object(o_layout);
5926 __retval__ = gtk_layout_get_hadjustment(layout);
5927 return(sgtk_object_new((void*)__retval__));
5928 }
5929
sgtk_layout_get_vadjustment(SOBJ o_layout)5930 SOBJ sgtk_layout_get_vadjustment (SOBJ o_layout)
5931 {
5932 GtkLayout* layout;
5933 GtkAdjustment* __retval__;
5934
5935 layout = sgtk_get_Object(o_layout);
5936 __retval__ = gtk_layout_get_vadjustment(layout);
5937 return(sgtk_object_new((void*)__retval__));
5938 }
5939
sgtk_layout_set_hadjustment(SOBJ o_layout,SOBJ o_adjustment)5940 SOBJ sgtk_layout_set_hadjustment (SOBJ o_layout, SOBJ o_adjustment)
5941 {
5942 GtkLayout* layout;
5943 GtkAdjustment* adjustment;
5944
5945 layout = sgtk_get_Object(o_layout);
5946 adjustment = sgtk_get_Object(o_adjustment);
5947 gtk_layout_set_hadjustment(layout, adjustment);
5948 return(scm_undefined);
5949 }
5950
sgtk_layout_set_vadjustment(SOBJ o_layout,SOBJ o_adjustment)5951 SOBJ sgtk_layout_set_vadjustment (SOBJ o_layout, SOBJ o_adjustment)
5952 {
5953 GtkLayout* layout;
5954 GtkAdjustment* adjustment;
5955
5956 layout = sgtk_get_Object(o_layout);
5957 adjustment = sgtk_get_Object(o_adjustment);
5958 gtk_layout_set_vadjustment(layout, adjustment);
5959 return(scm_undefined);
5960 }
5961
sgtk_layout_put(SOBJ o_layout,SOBJ o_child_widget,SOBJ o_x,SOBJ o_y)5962 SOBJ sgtk_layout_put (SOBJ o_layout, SOBJ o_child_widget, SOBJ o_x, SOBJ o_y)
5963 {
5964 GtkLayout* layout;
5965 GtkWidget* child_widget;
5966 gint x;
5967 gint y;
5968
5969 layout = sgtk_get_Object(o_layout);
5970 child_widget = sgtk_get_Object(o_child_widget);
5971 x = scm_number2long(o_x);
5972 y = scm_number2long(o_y);
5973 gtk_layout_put(layout, child_widget, x, y);
5974 return(scm_undefined);
5975 }
5976
sgtk_layout_move(SOBJ o_layout,SOBJ o_child_widget,SOBJ o_x,SOBJ o_y)5977 SOBJ sgtk_layout_move (SOBJ o_layout, SOBJ o_child_widget, SOBJ o_x, SOBJ o_y)
5978 {
5979 GtkLayout* layout;
5980 GtkWidget* child_widget;
5981 gint x;
5982 gint y;
5983
5984 layout = sgtk_get_Object(o_layout);
5985 child_widget = sgtk_get_Object(o_child_widget);
5986 x = scm_number2long(o_x);
5987 y = scm_number2long(o_y);
5988 gtk_layout_move(layout, child_widget, x, y);
5989 return(scm_undefined);
5990 }
5991
sgtk_layout_set_size(SOBJ o_layout,SOBJ o_width,SOBJ o_height)5992 SOBJ sgtk_layout_set_size (SOBJ o_layout, SOBJ o_width, SOBJ o_height)
5993 {
5994 GtkLayout* layout;
5995 guint width;
5996 guint height;
5997
5998 layout = sgtk_get_Object(o_layout);
5999 width = scm_number2long(o_width);
6000 height = scm_number2long(o_height);
6001 gtk_layout_set_size(layout, width, height);
6002 return(scm_undefined);
6003 }
6004
sgtk_layout_freeze(SOBJ o_layout)6005 SOBJ sgtk_layout_freeze (SOBJ o_layout)
6006 {
6007 GtkLayout* layout;
6008
6009 layout = sgtk_get_Object(o_layout);
6010 gtk_layout_freeze(layout);
6011 return(scm_undefined);
6012 }
6013
sgtk_layout_thaw(SOBJ o_layout)6014 SOBJ sgtk_layout_thaw (SOBJ o_layout)
6015 {
6016 GtkLayout* layout;
6017
6018 layout = sgtk_get_Object(o_layout);
6019 gtk_layout_thaw(layout);
6020 return(scm_undefined);
6021 }
6022
sgtk_layout_get_type()6023 SOBJ sgtk_layout_get_type ()
6024 {
6025 GtkType __retval__;
6026
6027 __retval__ = gtk_layout_get_type();
6028 return(SCM_MKINUM(__retval__));
6029 }
6030
sgtk_list_get_type()6031 SOBJ sgtk_list_get_type ()
6032 {
6033 GtkType __retval__;
6034
6035 __retval__ = gtk_list_get_type();
6036 return(SCM_MKINUM(__retval__));
6037 }
6038
sgtk_list_new()6039 SOBJ sgtk_list_new ()
6040 {
6041 GtkWidget* __retval__;
6042
6043 __retval__ = gtk_list_new();
6044 return(sgtk_object_new((void*)__retval__));
6045 }
6046
6047 #ifdef INCOMPLETE
sgtk_list_insert_items(SOBJ o_list,SOBJ o_items,SOBJ o_position)6048 SOBJ sgtk_list_insert_items (SOBJ o_list, SOBJ o_items, SOBJ o_position)
6049 {
6050 GtkList* list;
6051 GList* items;
6052 gint position;
6053
6054 list = sgtk_get_Object(o_list);
6055 /* +++ undefined GList* */
6056 position = scm_number2long(o_position);
6057 gtk_list_insert_items(list, items, position);
6058 return(scm_undefined);
6059 }
6060 #endif /* INCOMPLETE */
6061
6062 #ifdef INCOMPLETE
sgtk_list_append_items(SOBJ o_list,SOBJ o_items)6063 SOBJ sgtk_list_append_items (SOBJ o_list, SOBJ o_items)
6064 {
6065 GtkList* list;
6066 GList* items;
6067
6068 list = sgtk_get_Object(o_list);
6069 /* +++ undefined GList* */
6070 gtk_list_append_items(list, items);
6071 return(scm_undefined);
6072 }
6073 #endif /* INCOMPLETE */
6074
6075 #ifdef INCOMPLETE
sgtk_list_prepend_items(SOBJ o_list,SOBJ o_items)6076 SOBJ sgtk_list_prepend_items (SOBJ o_list, SOBJ o_items)
6077 {
6078 GtkList* list;
6079 GList* items;
6080
6081 list = sgtk_get_Object(o_list);
6082 /* +++ undefined GList* */
6083 gtk_list_prepend_items(list, items);
6084 return(scm_undefined);
6085 }
6086 #endif /* INCOMPLETE */
6087
6088 #ifdef INCOMPLETE
sgtk_list_remove_items(SOBJ o_list,SOBJ o_items)6089 SOBJ sgtk_list_remove_items (SOBJ o_list, SOBJ o_items)
6090 {
6091 GtkList* list;
6092 GList* items;
6093
6094 list = sgtk_get_Object(o_list);
6095 /* +++ undefined GList* */
6096 gtk_list_remove_items(list, items);
6097 return(scm_undefined);
6098 }
6099 #endif /* INCOMPLETE */
6100
6101 #ifdef INCOMPLETE
sgtk_list_remove_items_no_unref(SOBJ o_list,SOBJ o_items)6102 SOBJ sgtk_list_remove_items_no_unref (SOBJ o_list, SOBJ o_items)
6103 {
6104 GtkList* list;
6105 GList* items;
6106
6107 list = sgtk_get_Object(o_list);
6108 /* +++ undefined GList* */
6109 gtk_list_remove_items_no_unref(list, items);
6110 return(scm_undefined);
6111 }
6112 #endif /* INCOMPLETE */
6113
sgtk_list_clear_items(SOBJ o_list,SOBJ o_start,SOBJ o_end)6114 SOBJ sgtk_list_clear_items (SOBJ o_list, SOBJ o_start, SOBJ o_end)
6115 {
6116 GtkList* list;
6117 gint start;
6118 gint end;
6119
6120 list = sgtk_get_Object(o_list);
6121 start = scm_number2long(o_start);
6122 end = scm_number2long(o_end);
6123 gtk_list_clear_items(list, start, end);
6124 return(scm_undefined);
6125 }
6126
sgtk_list_child_position(SOBJ o_list,SOBJ o_child)6127 SOBJ sgtk_list_child_position (SOBJ o_list, SOBJ o_child)
6128 {
6129 GtkList* list;
6130 GtkWidget* child;
6131 gint __retval__;
6132
6133 list = sgtk_get_Object(o_list);
6134 child = sgtk_get_Object(o_child);
6135 __retval__ = gtk_list_child_position(list, child);
6136 return(SCM_MKINUM(__retval__));
6137 }
6138
sgtk_list_set_selection_mode(SOBJ o_list,SOBJ o_mode)6139 SOBJ sgtk_list_set_selection_mode (SOBJ o_list, SOBJ o_mode)
6140 {
6141 GtkList* list;
6142 GtkSelectionMode mode;
6143
6144 list = sgtk_get_Object(o_list);
6145 mode = sgtk_enumget("GtkSelectionMode", o_mode);
6146 gtk_list_set_selection_mode(list, mode);
6147 return(scm_undefined);
6148 }
6149
sgtk_list_select_item(SOBJ o_list,SOBJ o_item)6150 SOBJ sgtk_list_select_item (SOBJ o_list, SOBJ o_item)
6151 {
6152 GtkList* list;
6153 gint item;
6154
6155 list = sgtk_get_Object(o_list);
6156 item = scm_number2long(o_item);
6157 gtk_list_select_item(list, item);
6158 return(scm_undefined);
6159 }
6160
sgtk_list_unselect_item(SOBJ o_list,SOBJ o_item)6161 SOBJ sgtk_list_unselect_item (SOBJ o_list, SOBJ o_item)
6162 {
6163 GtkList* list;
6164 gint item;
6165
6166 list = sgtk_get_Object(o_list);
6167 item = scm_number2long(o_item);
6168 gtk_list_unselect_item(list, item);
6169 return(scm_undefined);
6170 }
6171
sgtk_list_select_child(SOBJ o_list,SOBJ o_child)6172 SOBJ sgtk_list_select_child (SOBJ o_list, SOBJ o_child)
6173 {
6174 GtkList* list;
6175 GtkWidget* child;
6176
6177 list = sgtk_get_Object(o_list);
6178 child = sgtk_get_Object(o_child);
6179 gtk_list_select_child(list, child);
6180 return(scm_undefined);
6181 }
6182
sgtk_list_unselect_child(SOBJ o_list,SOBJ o_child)6183 SOBJ sgtk_list_unselect_child (SOBJ o_list, SOBJ o_child)
6184 {
6185 GtkList* list;
6186 GtkWidget* child;
6187
6188 list = sgtk_get_Object(o_list);
6189 child = sgtk_get_Object(o_child);
6190 gtk_list_unselect_child(list, child);
6191 return(scm_undefined);
6192 }
6193
sgtk_list_select_all(SOBJ o_list)6194 SOBJ sgtk_list_select_all (SOBJ o_list)
6195 {
6196 GtkList* list;
6197
6198 list = sgtk_get_Object(o_list);
6199 gtk_list_select_all(list);
6200 return(scm_undefined);
6201 }
6202
sgtk_list_unselect_all(SOBJ o_list)6203 SOBJ sgtk_list_unselect_all (SOBJ o_list)
6204 {
6205 GtkList* list;
6206
6207 list = sgtk_get_Object(o_list);
6208 gtk_list_unselect_all(list);
6209 return(scm_undefined);
6210 }
6211
sgtk_list_extend_selection(SOBJ o_list,SOBJ o_scroll_type,SOBJ o_position,SOBJ o_auto_start_selection)6212 SOBJ sgtk_list_extend_selection (SOBJ o_list, SOBJ o_scroll_type, SOBJ o_position, SOBJ o_auto_start_selection)
6213 {
6214 GtkList* list;
6215 GtkScrollType scroll_type;
6216 gfloat position;
6217 gboolean auto_start_selection;
6218
6219 list = sgtk_get_Object(o_list);
6220 scroll_type = sgtk_enumget("GtkScrollType", o_scroll_type);
6221 position = scm_number2double(o_position);
6222 auto_start_selection = (o_auto_start_selection != scm_false);
6223 gtk_list_extend_selection(list, scroll_type, position, auto_start_selection);
6224 return(scm_undefined);
6225 }
6226
sgtk_list_end_drag_selection(SOBJ o_list)6227 SOBJ sgtk_list_end_drag_selection (SOBJ o_list)
6228 {
6229 GtkList* list;
6230
6231 list = sgtk_get_Object(o_list);
6232 gtk_list_end_drag_selection(list);
6233 return(scm_undefined);
6234 }
6235
sgtk_list_start_selection(SOBJ o_list)6236 SOBJ sgtk_list_start_selection (SOBJ o_list)
6237 {
6238 GtkList* list;
6239
6240 list = sgtk_get_Object(o_list);
6241 gtk_list_start_selection(list);
6242 return(scm_undefined);
6243 }
6244
sgtk_list_end_selection(SOBJ o_list)6245 SOBJ sgtk_list_end_selection (SOBJ o_list)
6246 {
6247 GtkList* list;
6248
6249 list = sgtk_get_Object(o_list);
6250 gtk_list_end_selection(list);
6251 return(scm_undefined);
6252 }
6253
sgtk_list_toggle_row(SOBJ o_list,SOBJ o_item)6254 SOBJ sgtk_list_toggle_row (SOBJ o_list, SOBJ o_item)
6255 {
6256 GtkList* list;
6257 GtkWidget* item;
6258
6259 list = sgtk_get_Object(o_list);
6260 item = sgtk_get_Object(o_item);
6261 gtk_list_toggle_row(list, item);
6262 return(scm_undefined);
6263 }
6264
sgtk_list_toggle_focus_row(SOBJ o_list)6265 SOBJ sgtk_list_toggle_focus_row (SOBJ o_list)
6266 {
6267 GtkList* list;
6268
6269 list = sgtk_get_Object(o_list);
6270 gtk_list_toggle_focus_row(list);
6271 return(scm_undefined);
6272 }
6273
sgtk_list_toggle_add_mode(SOBJ o_list)6274 SOBJ sgtk_list_toggle_add_mode (SOBJ o_list)
6275 {
6276 GtkList* list;
6277
6278 list = sgtk_get_Object(o_list);
6279 gtk_list_toggle_add_mode(list);
6280 return(scm_undefined);
6281 }
6282
sgtk_list_undo_selection(SOBJ o_list)6283 SOBJ sgtk_list_undo_selection (SOBJ o_list)
6284 {
6285 GtkList* list;
6286
6287 list = sgtk_get_Object(o_list);
6288 gtk_list_undo_selection(list);
6289 return(scm_undefined);
6290 }
6291
sgtk_list_scroll_horizontal(SOBJ o_list,SOBJ o_scroll_type,SOBJ o_position)6292 SOBJ sgtk_list_scroll_horizontal (SOBJ o_list, SOBJ o_scroll_type, SOBJ o_position)
6293 {
6294 GtkList* list;
6295 GtkScrollType scroll_type;
6296 gfloat position;
6297
6298 list = sgtk_get_Object(o_list);
6299 scroll_type = sgtk_enumget("GtkScrollType", o_scroll_type);
6300 position = scm_number2double(o_position);
6301 gtk_list_scroll_horizontal(list, scroll_type, position);
6302 return(scm_undefined);
6303 }
6304
sgtk_list_scroll_vertical(SOBJ o_list,SOBJ o_scroll_type,SOBJ o_position)6305 SOBJ sgtk_list_scroll_vertical (SOBJ o_list, SOBJ o_scroll_type, SOBJ o_position)
6306 {
6307 GtkList* list;
6308 GtkScrollType scroll_type;
6309 gfloat position;
6310
6311 list = sgtk_get_Object(o_list);
6312 scroll_type = sgtk_enumget("GtkScrollType", o_scroll_type);
6313 position = scm_number2double(o_position);
6314 gtk_list_scroll_vertical(list, scroll_type, position);
6315 return(scm_undefined);
6316 }
6317
sgtk_list_item_get_type()6318 SOBJ sgtk_list_item_get_type ()
6319 {
6320 GtkType __retval__;
6321
6322 __retval__ = gtk_list_item_get_type();
6323 return(SCM_MKINUM(__retval__));
6324 }
6325
sgtk_list_item_new()6326 SOBJ sgtk_list_item_new ()
6327 {
6328 GtkWidget* __retval__;
6329
6330 __retval__ = gtk_list_item_new();
6331 return(sgtk_object_new((void*)__retval__));
6332 }
6333
sgtk_list_item_new_with_label(SOBJ o_label)6334 SOBJ sgtk_list_item_new_with_label (SOBJ o_label)
6335 {
6336 gchar* label;
6337 GtkWidget* __retval__;
6338
6339 label = scm_getstr(o_label);
6340 __retval__ = gtk_list_item_new_with_label(label);
6341 return(sgtk_object_new((void*)__retval__));
6342 }
6343
sgtk_list_item_select(SOBJ o_list_item)6344 SOBJ sgtk_list_item_select (SOBJ o_list_item)
6345 {
6346 GtkListItem* list_item;
6347
6348 list_item = sgtk_get_Object(o_list_item);
6349 gtk_list_item_select(list_item);
6350 return(scm_undefined);
6351 }
6352
sgtk_list_item_deselect(SOBJ o_list_item)6353 SOBJ sgtk_list_item_deselect (SOBJ o_list_item)
6354 {
6355 GtkListItem* list_item;
6356
6357 list_item = sgtk_get_Object(o_list_item);
6358 gtk_list_item_deselect(list_item);
6359 return(scm_undefined);
6360 }
6361
sgtk_check_version(SOBJ o_required_major,SOBJ o_required_minor,SOBJ o_required_micro)6362 SOBJ sgtk_check_version (SOBJ o_required_major, SOBJ o_required_minor, SOBJ o_required_micro)
6363 {
6364 guint required_major;
6365 guint required_minor;
6366 guint required_micro;
6367 gchar* __retval__;
6368
6369 required_major = scm_number2long(o_required_major);
6370 required_minor = scm_number2long(o_required_minor);
6371 required_micro = scm_number2long(o_required_micro);
6372 __retval__ = gtk_check_version(required_major, required_minor, required_micro);
6373 return(scm_mkstring(__retval__));
6374 }
6375
6376 #ifdef INCOMPLETE
sgtk_init_check(SOBJ o_argc,SOBJ o_argv)6377 SOBJ sgtk_init_check (SOBJ o_argc, SOBJ o_argv)
6378 {
6379 int* argc;
6380 char*** argv;
6381 gboolean __retval__;
6382
6383 /* +++ undefined int* */
6384 /* +++ undefined char*** */
6385 __retval__ = gtk_init_check(argc, argv);
6386 return(SCM_MKBOOL(__retval__));
6387 }
6388 #endif /* INCOMPLETE */
6389
6390 #ifdef INCOMPLETE
sgtk_init(SOBJ o_argc,SOBJ o_argv)6391 SOBJ sgtk_init (SOBJ o_argc, SOBJ o_argv)
6392 {
6393 int* argc;
6394 char*** argv;
6395
6396 /* +++ undefined int* */
6397 /* +++ undefined char*** */
6398 gtk_init(argc, argv);
6399 return(scm_undefined);
6400 }
6401 #endif /* INCOMPLETE */
6402
sgtk_exit(SOBJ o_errorcode)6403 SOBJ sgtk_exit (SOBJ o_errorcode)
6404 {
6405 int errorcode;
6406
6407 errorcode = scm_number2long(o_errorcode);
6408 gtk_exit(errorcode);
6409 return(scm_undefined);
6410 }
6411
sgtk_set_locale()6412 SOBJ sgtk_set_locale ()
6413 {
6414 gchar* __retval__;
6415
6416 __retval__ = gtk_set_locale();
6417 return(scm_mkstring(__retval__));
6418 }
6419
sgtk_main()6420 SOBJ sgtk_main ()
6421 {
6422
6423 gtk_main();
6424 return(scm_undefined);
6425 }
6426
sgtk_main_level()6427 SOBJ sgtk_main_level ()
6428 {
6429 guint __retval__;
6430
6431 __retval__ = gtk_main_level();
6432 return(SCM_MKINUM(__retval__));
6433 }
6434
sgtk_main_quit()6435 SOBJ sgtk_main_quit ()
6436 {
6437
6438 gtk_main_quit();
6439 return(scm_undefined);
6440 }
6441
sgtk_events_pending()6442 SOBJ sgtk_events_pending ()
6443 {
6444 gint __retval__;
6445
6446 __retval__ = gtk_events_pending();
6447 return(SCM_MKINUM(__retval__));
6448 }
6449
sgtk_main_iteration()6450 SOBJ sgtk_main_iteration ()
6451 {
6452 gint __retval__;
6453
6454 __retval__ = gtk_main_iteration();
6455 return(SCM_MKINUM(__retval__));
6456 }
6457
sgtk_main_iteration_do(SOBJ o_blocking)6458 SOBJ sgtk_main_iteration_do (SOBJ o_blocking)
6459 {
6460 gboolean blocking;
6461 gint __retval__;
6462
6463 blocking = (o_blocking != scm_false);
6464 __retval__ = gtk_main_iteration_do(blocking);
6465 return(SCM_MKINUM(__retval__));
6466 }
6467
sgtk_main_do_event(SOBJ o_event)6468 SOBJ sgtk_main_do_event (SOBJ o_event)
6469 {
6470 GdkEvent* event;
6471
6472 event = sgdk_get_Event(o_event);
6473 gtk_main_do_event(event);
6474 return(scm_undefined);
6475 }
6476
sgtk_true()6477 SOBJ sgtk_true ()
6478 {
6479 gint __retval__;
6480
6481 __retval__ = gtk_true();
6482 return(SCM_MKINUM(__retval__));
6483 }
6484
sgtk_false()6485 SOBJ sgtk_false ()
6486 {
6487 gint __retval__;
6488
6489 __retval__ = gtk_false();
6490 return(SCM_MKINUM(__retval__));
6491 }
6492
sgtk_grab_add(SOBJ o_widget)6493 SOBJ sgtk_grab_add (SOBJ o_widget)
6494 {
6495 GtkWidget* widget;
6496
6497 widget = sgtk_get_Object(o_widget);
6498 gtk_grab_add(widget);
6499 return(scm_undefined);
6500 }
6501
sgtk_grab_get_current()6502 SOBJ sgtk_grab_get_current ()
6503 {
6504 GtkWidget* __retval__;
6505
6506 __retval__ = gtk_grab_get_current();
6507 return(sgtk_object_new((void*)__retval__));
6508 }
6509
sgtk_grab_remove(SOBJ o_widget)6510 SOBJ sgtk_grab_remove (SOBJ o_widget)
6511 {
6512 GtkWidget* widget;
6513
6514 widget = sgtk_get_Object(o_widget);
6515 gtk_grab_remove(widget);
6516 return(scm_undefined);
6517 }
6518
6519 #ifdef INCOMPLETE
sgtk_init_add(SOBJ o_function,SOBJ o_data)6520 SOBJ sgtk_init_add (SOBJ o_function, SOBJ o_data)
6521 {
6522 GtkFunction function;
6523 gpointer data;
6524
6525 /* +++ undefined GtkFunction */
6526 /* +++ get gpointer -> pointer failed */
6527 gtk_init_add(function, data);
6528 return(scm_undefined);
6529 }
6530 #endif /* INCOMPLETE */
6531
6532 #ifdef INCOMPLETE
sgtk_key_snooper_install(SOBJ o_snooper,SOBJ o_func_data)6533 SOBJ sgtk_key_snooper_install (SOBJ o_snooper, SOBJ o_func_data)
6534 {
6535 GtkKeySnoopFunc snooper;
6536 gpointer func_data;
6537 guint __retval__;
6538
6539 /* +++ undefined GtkKeySnoopFunc */
6540 /* +++ get gpointer -> pointer failed */
6541 __retval__ = gtk_key_snooper_install(snooper, func_data);
6542 return(SCM_MKINUM(__retval__));
6543 }
6544 #endif /* INCOMPLETE */
6545
sgtk_key_snooper_remove(SOBJ o_snooper_id)6546 SOBJ sgtk_key_snooper_remove (SOBJ o_snooper_id)
6547 {
6548 guint snooper_id;
6549
6550 snooper_id = scm_number2long(o_snooper_id);
6551 gtk_key_snooper_remove(snooper_id);
6552 return(scm_undefined);
6553 }
6554
6555 #ifdef INCOMPLETE
sgtk_quit_add_full(SOBJ o_main_level,SOBJ o_function,SOBJ o_marshal,SOBJ o_data,SOBJ o_destroy)6556 SOBJ sgtk_quit_add_full (SOBJ o_main_level, SOBJ o_function, SOBJ o_marshal, SOBJ o_data, SOBJ o_destroy)
6557 {
6558 guint main_level;
6559 GtkFunction function;
6560 GtkCallbackMarshal marshal;
6561 gpointer data;
6562 GtkDestroyNotify destroy;
6563 guint __retval__;
6564
6565 main_level = scm_number2long(o_main_level);
6566 /* +++ undefined GtkFunction */
6567 /* +++ undefined GtkCallbackMarshal */
6568 /* +++ get gpointer -> pointer failed */
6569 /* +++ undefined GtkDestroyNotify */
6570 __retval__ = gtk_quit_add_full(main_level, function, marshal, data, destroy);
6571 return(SCM_MKINUM(__retval__));
6572 }
6573 #endif /* INCOMPLETE */
6574
sgtk_quit_add_destroy(SOBJ o_main_level,SOBJ o_object)6575 SOBJ sgtk_quit_add_destroy (SOBJ o_main_level, SOBJ o_object)
6576 {
6577 guint main_level;
6578 GtkObject* object;
6579
6580 main_level = scm_number2long(o_main_level);
6581 object = sgtk_get_Object(o_object);
6582 gtk_quit_add_destroy(main_level, object);
6583 return(scm_undefined);
6584 }
6585
6586 #ifdef INCOMPLETE
sgtk_quit_add(SOBJ o_main_level,SOBJ o_function,SOBJ o_data)6587 SOBJ sgtk_quit_add (SOBJ o_main_level, SOBJ o_function, SOBJ o_data)
6588 {
6589 guint main_level;
6590 GtkFunction function;
6591 gpointer data;
6592 guint __retval__;
6593
6594 main_level = scm_number2long(o_main_level);
6595 /* +++ undefined GtkFunction */
6596 /* +++ get gpointer -> pointer failed */
6597 __retval__ = gtk_quit_add(main_level, function, data);
6598 return(SCM_MKINUM(__retval__));
6599 }
6600 #endif /* INCOMPLETE */
6601
sgtk_quit_remove(SOBJ o_id)6602 SOBJ sgtk_quit_remove (SOBJ o_id)
6603 {
6604 guint id;
6605
6606 id = scm_number2long(o_id);
6607 gtk_quit_remove(id);
6608 return(scm_undefined);
6609 }
6610
6611 #ifdef INCOMPLETE
sgtk_quit_remove_by_data(SOBJ o_data)6612 SOBJ sgtk_quit_remove_by_data (SOBJ o_data)
6613 {
6614 gpointer data;
6615
6616 /* +++ get gpointer -> pointer failed */
6617 gtk_quit_remove_by_data(data);
6618 return(scm_undefined);
6619 }
6620 #endif /* INCOMPLETE */
6621
6622 #ifdef INCOMPLETE
sgtk_timeout_add_full(SOBJ o_interval,SOBJ o_function,SOBJ o_marshal,SOBJ o_data,SOBJ o_destroy)6623 SOBJ sgtk_timeout_add_full (SOBJ o_interval, SOBJ o_function, SOBJ o_marshal, SOBJ o_data, SOBJ o_destroy)
6624 {
6625 guint32 interval;
6626 GtkFunction function;
6627 GtkCallbackMarshal marshal;
6628 gpointer data;
6629 GtkDestroyNotify destroy;
6630 guint __retval__;
6631
6632 interval = scm_number2long(o_interval);
6633 /* +++ undefined GtkFunction */
6634 /* +++ undefined GtkCallbackMarshal */
6635 /* +++ get gpointer -> pointer failed */
6636 /* +++ undefined GtkDestroyNotify */
6637 __retval__ = gtk_timeout_add_full(interval, function, marshal, data, destroy);
6638 return(SCM_MKINUM(__retval__));
6639 }
6640 #endif /* INCOMPLETE */
6641
6642 #ifdef INCOMPLETE
sgtk_timeout_add(SOBJ o_interval,SOBJ o_function,SOBJ o_data)6643 SOBJ sgtk_timeout_add (SOBJ o_interval, SOBJ o_function, SOBJ o_data)
6644 {
6645 guint32 interval;
6646 GtkFunction function;
6647 gpointer data;
6648 guint __retval__;
6649
6650 interval = scm_number2long(o_interval);
6651 /* +++ undefined GtkFunction */
6652 /* +++ get gpointer -> pointer failed */
6653 __retval__ = gtk_timeout_add(interval, function, data);
6654 return(SCM_MKINUM(__retval__));
6655 }
6656 #endif /* INCOMPLETE */
6657
sgtk_timeout_remove(SOBJ o_tag)6658 SOBJ sgtk_timeout_remove (SOBJ o_tag)
6659 {
6660 guint tag;
6661
6662 tag = scm_number2long(o_tag);
6663 gtk_timeout_remove(tag);
6664 return(scm_undefined);
6665 }
6666
6667 #ifdef INCOMPLETE
sgtk_idle_add_full(SOBJ o_priority,SOBJ o_function,SOBJ o_marshal,SOBJ o_data,SOBJ o_destroy)6668 SOBJ sgtk_idle_add_full (SOBJ o_priority, SOBJ o_function, SOBJ o_marshal, SOBJ o_data, SOBJ o_destroy)
6669 {
6670 gint priority;
6671 GtkFunction function;
6672 GtkCallbackMarshal marshal;
6673 gpointer data;
6674 GtkDestroyNotify destroy;
6675 guint __retval__;
6676
6677 priority = scm_number2long(o_priority);
6678 /* +++ undefined GtkFunction */
6679 /* +++ undefined GtkCallbackMarshal */
6680 /* +++ get gpointer -> pointer failed */
6681 /* +++ undefined GtkDestroyNotify */
6682 __retval__ = gtk_idle_add_full(priority, function, marshal, data, destroy);
6683 return(SCM_MKINUM(__retval__));
6684 }
6685 #endif /* INCOMPLETE */
6686
6687 #ifdef INCOMPLETE
sgtk_idle_add(SOBJ o_function,SOBJ o_data)6688 SOBJ sgtk_idle_add (SOBJ o_function, SOBJ o_data)
6689 {
6690 GtkFunction function;
6691 gpointer data;
6692 guint __retval__;
6693
6694 /* +++ undefined GtkFunction */
6695 /* +++ get gpointer -> pointer failed */
6696 __retval__ = gtk_idle_add(function, data);
6697 return(SCM_MKINUM(__retval__));
6698 }
6699 #endif /* INCOMPLETE */
6700
6701 #ifdef INCOMPLETE
sgtk_idle_add_priority(SOBJ o_priority,SOBJ o_function,SOBJ o_data)6702 SOBJ sgtk_idle_add_priority (SOBJ o_priority, SOBJ o_function, SOBJ o_data)
6703 {
6704 gint priority;
6705 GtkFunction function;
6706 gpointer data;
6707 guint __retval__;
6708
6709 priority = scm_number2long(o_priority);
6710 /* +++ undefined GtkFunction */
6711 /* +++ get gpointer -> pointer failed */
6712 __retval__ = gtk_idle_add_priority(priority, function, data);
6713 return(SCM_MKINUM(__retval__));
6714 }
6715 #endif /* INCOMPLETE */
6716
sgtk_idle_remove(SOBJ o_tag)6717 SOBJ sgtk_idle_remove (SOBJ o_tag)
6718 {
6719 guint tag;
6720
6721 tag = scm_number2long(o_tag);
6722 gtk_idle_remove(tag);
6723 return(scm_undefined);
6724 }
6725
6726 #ifdef INCOMPLETE
sgtk_idle_remove_by_data(SOBJ o_data)6727 SOBJ sgtk_idle_remove_by_data (SOBJ o_data)
6728 {
6729 gpointer data;
6730
6731 /* +++ get gpointer -> pointer failed */
6732 gtk_idle_remove_by_data(data);
6733 return(scm_undefined);
6734 }
6735 #endif /* INCOMPLETE */
6736
6737 #ifdef INCOMPLETE
sgtk_input_add_full(SOBJ o_source,SOBJ o_condition,SOBJ o_function,SOBJ o_marshal,SOBJ o_data,SOBJ o_destroy)6738 SOBJ sgtk_input_add_full (SOBJ o_source, SOBJ o_condition, SOBJ o_function, SOBJ o_marshal, SOBJ o_data, SOBJ o_destroy)
6739 {
6740 gint source;
6741 GdkInputCondition condition;
6742 GdkInputFunction function;
6743 GtkCallbackMarshal marshal;
6744 gpointer data;
6745 GtkDestroyNotify destroy;
6746 guint __retval__;
6747
6748 source = scm_number2long(o_source);
6749 condition = sgtk_flagsget("GdkInputCondition", o_condition);
6750 /* +++ undefined GdkInputFunction */
6751 /* +++ undefined GtkCallbackMarshal */
6752 /* +++ get gpointer -> pointer failed */
6753 /* +++ undefined GtkDestroyNotify */
6754 __retval__ = gtk_input_add_full(source, condition, function, marshal, data, destroy);
6755 return(SCM_MKINUM(__retval__));
6756 }
6757 #endif /* INCOMPLETE */
6758
sgtk_input_remove(SOBJ o_tag)6759 SOBJ sgtk_input_remove (SOBJ o_tag)
6760 {
6761 guint tag;
6762
6763 tag = scm_number2long(o_tag);
6764 gtk_input_remove(tag);
6765 return(scm_undefined);
6766 }
6767
sgtk_get_current_event()6768 SOBJ sgtk_get_current_event ()
6769 {
6770 GdkEvent* __retval__;
6771
6772 __retval__ = gtk_get_current_event();
6773 return(sgdk_Event_new(__retval__));
6774 }
6775
sgtk_get_event_widget(SOBJ o_event)6776 SOBJ sgtk_get_event_widget (SOBJ o_event)
6777 {
6778 GdkEvent* event;
6779 GtkWidget* __retval__;
6780
6781 event = sgdk_get_Event(o_event);
6782 __retval__ = gtk_get_event_widget(event);
6783 return(sgtk_object_new((void*)__retval__));
6784 }
6785
sgtk_propagate_event(SOBJ o_widget,SOBJ o_event)6786 SOBJ sgtk_propagate_event (SOBJ o_widget, SOBJ o_event)
6787 {
6788 GtkWidget* widget;
6789 GdkEvent* event;
6790
6791 widget = sgtk_get_Object(o_widget);
6792 event = sgdk_get_Event(o_event);
6793 gtk_propagate_event(widget, event);
6794 return(scm_undefined);
6795 }
6796
6797 #ifdef INCOMPLETE
sgtk_marshal_BOOL__NONE(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)6798 SOBJ sgtk_marshal_BOOL__NONE (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
6799 {
6800 GtkObject* object;
6801 GtkSignalFunc func;
6802 gpointer func_data;
6803 GtkArg* args;
6804
6805 object = sgtk_get_Object(o_object);
6806 /* +++ undefined GtkSignalFunc */
6807 /* +++ get gpointer -> pointer failed */
6808 /* +++ undefined GtkArg* */
6809 gtk_marshal_BOOL__NONE(object, func, func_data, args);
6810 return(scm_undefined);
6811 }
6812 #endif /* INCOMPLETE */
6813
6814 #ifdef INCOMPLETE
sgtk_marshal_BOOL__POINTER(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)6815 SOBJ sgtk_marshal_BOOL__POINTER (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
6816 {
6817 GtkObject* object;
6818 GtkSignalFunc func;
6819 gpointer func_data;
6820 GtkArg* args;
6821
6822 object = sgtk_get_Object(o_object);
6823 /* +++ undefined GtkSignalFunc */
6824 /* +++ get gpointer -> pointer failed */
6825 /* +++ undefined GtkArg* */
6826 gtk_marshal_BOOL__POINTER(object, func, func_data, args);
6827 return(scm_undefined);
6828 }
6829 #endif /* INCOMPLETE */
6830
6831 #ifdef INCOMPLETE
sgtk_marshal_BOOL__POINTER_POINTER_INT_INT(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)6832 SOBJ sgtk_marshal_BOOL__POINTER_POINTER_INT_INT (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
6833 {
6834 GtkObject* object;
6835 GtkSignalFunc func;
6836 gpointer func_data;
6837 GtkArg* args;
6838
6839 object = sgtk_get_Object(o_object);
6840 /* +++ undefined GtkSignalFunc */
6841 /* +++ get gpointer -> pointer failed */
6842 /* +++ undefined GtkArg* */
6843 gtk_marshal_BOOL__POINTER_POINTER_INT_INT(object, func, func_data, args);
6844 return(scm_undefined);
6845 }
6846 #endif /* INCOMPLETE */
6847
6848 #ifdef INCOMPLETE
sgtk_marshal_BOOL__POINTER_INT_INT(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)6849 SOBJ sgtk_marshal_BOOL__POINTER_INT_INT (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
6850 {
6851 GtkObject* object;
6852 GtkSignalFunc func;
6853 gpointer func_data;
6854 GtkArg* args;
6855
6856 object = sgtk_get_Object(o_object);
6857 /* +++ undefined GtkSignalFunc */
6858 /* +++ get gpointer -> pointer failed */
6859 /* +++ undefined GtkArg* */
6860 gtk_marshal_BOOL__POINTER_INT_INT(object, func, func_data, args);
6861 return(scm_undefined);
6862 }
6863 #endif /* INCOMPLETE */
6864
6865 #ifdef INCOMPLETE
sgtk_marshal_BOOL__POINTER_INT_INT_INT(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)6866 SOBJ sgtk_marshal_BOOL__POINTER_INT_INT_INT (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
6867 {
6868 GtkObject* object;
6869 GtkSignalFunc func;
6870 gpointer func_data;
6871 GtkArg* args;
6872
6873 object = sgtk_get_Object(o_object);
6874 /* +++ undefined GtkSignalFunc */
6875 /* +++ get gpointer -> pointer failed */
6876 /* +++ undefined GtkArg* */
6877 gtk_marshal_BOOL__POINTER_INT_INT_INT(object, func, func_data, args);
6878 return(scm_undefined);
6879 }
6880 #endif /* INCOMPLETE */
6881
6882 #ifdef INCOMPLETE
sgtk_marshal_BOOL__POINTER_POINTER_POINTER_POINTER(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)6883 SOBJ sgtk_marshal_BOOL__POINTER_POINTER_POINTER_POINTER (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
6884 {
6885 GtkObject* object;
6886 GtkSignalFunc func;
6887 gpointer func_data;
6888 GtkArg* args;
6889
6890 object = sgtk_get_Object(o_object);
6891 /* +++ undefined GtkSignalFunc */
6892 /* +++ get gpointer -> pointer failed */
6893 /* +++ undefined GtkArg* */
6894 gtk_marshal_BOOL__POINTER_POINTER_POINTER_POINTER(object, func, func_data, args);
6895 return(scm_undefined);
6896 }
6897 #endif /* INCOMPLETE */
6898
6899 #ifdef INCOMPLETE
sgtk_marshal_INT__INT(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)6900 SOBJ sgtk_marshal_INT__INT (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
6901 {
6902 GtkObject* object;
6903 GtkSignalFunc func;
6904 gpointer func_data;
6905 GtkArg* args;
6906
6907 object = sgtk_get_Object(o_object);
6908 /* +++ undefined GtkSignalFunc */
6909 /* +++ get gpointer -> pointer failed */
6910 /* +++ undefined GtkArg* */
6911 gtk_marshal_INT__INT(object, func, func_data, args);
6912 return(scm_undefined);
6913 }
6914 #endif /* INCOMPLETE */
6915
6916 #ifdef INCOMPLETE
sgtk_marshal_INT__POINTER(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)6917 SOBJ sgtk_marshal_INT__POINTER (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
6918 {
6919 GtkObject* object;
6920 GtkSignalFunc func;
6921 gpointer func_data;
6922 GtkArg* args;
6923
6924 object = sgtk_get_Object(o_object);
6925 /* +++ undefined GtkSignalFunc */
6926 /* +++ get gpointer -> pointer failed */
6927 /* +++ undefined GtkArg* */
6928 gtk_marshal_INT__POINTER(object, func, func_data, args);
6929 return(scm_undefined);
6930 }
6931 #endif /* INCOMPLETE */
6932
6933 #ifdef INCOMPLETE
sgtk_marshal_INT__POINTER_CHAR_CHAR(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)6934 SOBJ sgtk_marshal_INT__POINTER_CHAR_CHAR (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
6935 {
6936 GtkObject* object;
6937 GtkSignalFunc func;
6938 gpointer func_data;
6939 GtkArg* args;
6940
6941 object = sgtk_get_Object(o_object);
6942 /* +++ undefined GtkSignalFunc */
6943 /* +++ get gpointer -> pointer failed */
6944 /* +++ undefined GtkArg* */
6945 gtk_marshal_INT__POINTER_CHAR_CHAR(object, func, func_data, args);
6946 return(scm_undefined);
6947 }
6948 #endif /* INCOMPLETE */
6949
6950 #ifdef INCOMPLETE
sgtk_marshal_NONE__BOOL(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)6951 SOBJ sgtk_marshal_NONE__BOOL (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
6952 {
6953 GtkObject* object;
6954 GtkSignalFunc func;
6955 gpointer func_data;
6956 GtkArg* args;
6957
6958 object = sgtk_get_Object(o_object);
6959 /* +++ undefined GtkSignalFunc */
6960 /* +++ get gpointer -> pointer failed */
6961 /* +++ undefined GtkArg* */
6962 gtk_marshal_NONE__BOOL(object, func, func_data, args);
6963 return(scm_undefined);
6964 }
6965 #endif /* INCOMPLETE */
6966
6967 #ifdef INCOMPLETE
sgtk_marshal_NONE__POINTER(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)6968 SOBJ sgtk_marshal_NONE__POINTER (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
6969 {
6970 GtkObject* object;
6971 GtkSignalFunc func;
6972 gpointer func_data;
6973 GtkArg* args;
6974
6975 object = sgtk_get_Object(o_object);
6976 /* +++ undefined GtkSignalFunc */
6977 /* +++ get gpointer -> pointer failed */
6978 /* +++ undefined GtkArg* */
6979 gtk_marshal_NONE__POINTER(object, func, func_data, args);
6980 return(scm_undefined);
6981 }
6982 #endif /* INCOMPLETE */
6983
6984 #ifdef INCOMPLETE
sgtk_marshal_NONE__C_CALLBACK(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)6985 SOBJ sgtk_marshal_NONE__C_CALLBACK (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
6986 {
6987 GtkObject* object;
6988 GtkSignalFunc func;
6989 gpointer func_data;
6990 GtkArg* args;
6991
6992 object = sgtk_get_Object(o_object);
6993 /* +++ undefined GtkSignalFunc */
6994 /* +++ get gpointer -> pointer failed */
6995 /* +++ undefined GtkArg* */
6996 gtk_marshal_NONE__C_CALLBACK(object, func, func_data, args);
6997 return(scm_undefined);
6998 }
6999 #endif /* INCOMPLETE */
7000
7001 #ifdef INCOMPLETE
sgtk_marshal_NONE__C_CALLBACK_C_CALLBACK(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7002 SOBJ sgtk_marshal_NONE__C_CALLBACK_C_CALLBACK (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7003 {
7004 GtkObject* object;
7005 GtkSignalFunc func;
7006 gpointer func_data;
7007 GtkArg* args;
7008
7009 object = sgtk_get_Object(o_object);
7010 /* +++ undefined GtkSignalFunc */
7011 /* +++ get gpointer -> pointer failed */
7012 /* +++ undefined GtkArg* */
7013 gtk_marshal_NONE__C_CALLBACK_C_CALLBACK(object, func, func_data, args);
7014 return(scm_undefined);
7015 }
7016 #endif /* INCOMPLETE */
7017
7018 #ifdef INCOMPLETE
sgtk_marshal_NONE__INT(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7019 SOBJ sgtk_marshal_NONE__INT (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7020 {
7021 GtkObject* object;
7022 GtkSignalFunc func;
7023 gpointer func_data;
7024 GtkArg* args;
7025
7026 object = sgtk_get_Object(o_object);
7027 /* +++ undefined GtkSignalFunc */
7028 /* +++ get gpointer -> pointer failed */
7029 /* +++ undefined GtkArg* */
7030 gtk_marshal_NONE__INT(object, func, func_data, args);
7031 return(scm_undefined);
7032 }
7033 #endif /* INCOMPLETE */
7034
7035 #ifdef INCOMPLETE
sgtk_marshal_NONE__INT_FLOAT(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7036 SOBJ sgtk_marshal_NONE__INT_FLOAT (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7037 {
7038 GtkObject* object;
7039 GtkSignalFunc func;
7040 gpointer func_data;
7041 GtkArg* args;
7042
7043 object = sgtk_get_Object(o_object);
7044 /* +++ undefined GtkSignalFunc */
7045 /* +++ get gpointer -> pointer failed */
7046 /* +++ undefined GtkArg* */
7047 gtk_marshal_NONE__INT_FLOAT(object, func, func_data, args);
7048 return(scm_undefined);
7049 }
7050 #endif /* INCOMPLETE */
7051
7052 #ifdef INCOMPLETE
sgtk_marshal_NONE__INT_FLOAT_BOOL(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7053 SOBJ sgtk_marshal_NONE__INT_FLOAT_BOOL (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7054 {
7055 GtkObject* object;
7056 GtkSignalFunc func;
7057 gpointer func_data;
7058 GtkArg* args;
7059
7060 object = sgtk_get_Object(o_object);
7061 /* +++ undefined GtkSignalFunc */
7062 /* +++ get gpointer -> pointer failed */
7063 /* +++ undefined GtkArg* */
7064 gtk_marshal_NONE__INT_FLOAT_BOOL(object, func, func_data, args);
7065 return(scm_undefined);
7066 }
7067 #endif /* INCOMPLETE */
7068
7069 #ifdef INCOMPLETE
sgtk_marshal_NONE__INT_INT(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7070 SOBJ sgtk_marshal_NONE__INT_INT (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7071 {
7072 GtkObject* object;
7073 GtkSignalFunc func;
7074 gpointer func_data;
7075 GtkArg* args;
7076
7077 object = sgtk_get_Object(o_object);
7078 /* +++ undefined GtkSignalFunc */
7079 /* +++ get gpointer -> pointer failed */
7080 /* +++ undefined GtkArg* */
7081 gtk_marshal_NONE__INT_INT(object, func, func_data, args);
7082 return(scm_undefined);
7083 }
7084 #endif /* INCOMPLETE */
7085
7086 #ifdef INCOMPLETE
sgtk_marshal_NONE__INT_INT_POINTER(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7087 SOBJ sgtk_marshal_NONE__INT_INT_POINTER (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7088 {
7089 GtkObject* object;
7090 GtkSignalFunc func;
7091 gpointer func_data;
7092 GtkArg* args;
7093
7094 object = sgtk_get_Object(o_object);
7095 /* +++ undefined GtkSignalFunc */
7096 /* +++ get gpointer -> pointer failed */
7097 /* +++ undefined GtkArg* */
7098 gtk_marshal_NONE__INT_INT_POINTER(object, func, func_data, args);
7099 return(scm_undefined);
7100 }
7101 #endif /* INCOMPLETE */
7102
7103 #ifdef INCOMPLETE
sgtk_marshal_NONE__NONE(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7104 SOBJ sgtk_marshal_NONE__NONE (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7105 {
7106 GtkObject* object;
7107 GtkSignalFunc func;
7108 gpointer func_data;
7109 GtkArg* args;
7110
7111 object = sgtk_get_Object(o_object);
7112 /* +++ undefined GtkSignalFunc */
7113 /* +++ get gpointer -> pointer failed */
7114 /* +++ undefined GtkArg* */
7115 gtk_marshal_NONE__NONE(object, func, func_data, args);
7116 return(scm_undefined);
7117 }
7118 #endif /* INCOMPLETE */
7119
7120 #ifdef INCOMPLETE
sgtk_marshal_NONE__POINTER_INT(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7121 SOBJ sgtk_marshal_NONE__POINTER_INT (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7122 {
7123 GtkObject* object;
7124 GtkSignalFunc func;
7125 gpointer func_data;
7126 GtkArg* args;
7127
7128 object = sgtk_get_Object(o_object);
7129 /* +++ undefined GtkSignalFunc */
7130 /* +++ get gpointer -> pointer failed */
7131 /* +++ undefined GtkArg* */
7132 gtk_marshal_NONE__POINTER_INT(object, func, func_data, args);
7133 return(scm_undefined);
7134 }
7135 #endif /* INCOMPLETE */
7136
7137 #ifdef INCOMPLETE
sgtk_marshal_NONE__POINTER_POINTER(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7138 SOBJ sgtk_marshal_NONE__POINTER_POINTER (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7139 {
7140 GtkObject* object;
7141 GtkSignalFunc func;
7142 gpointer func_data;
7143 GtkArg* args;
7144
7145 object = sgtk_get_Object(o_object);
7146 /* +++ undefined GtkSignalFunc */
7147 /* +++ get gpointer -> pointer failed */
7148 /* +++ undefined GtkArg* */
7149 gtk_marshal_NONE__POINTER_POINTER(object, func, func_data, args);
7150 return(scm_undefined);
7151 }
7152 #endif /* INCOMPLETE */
7153
7154 #ifdef INCOMPLETE
sgtk_marshal_NONE__POINTER_POINTER_POINTER(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7155 SOBJ sgtk_marshal_NONE__POINTER_POINTER_POINTER (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7156 {
7157 GtkObject* object;
7158 GtkSignalFunc func;
7159 gpointer func_data;
7160 GtkArg* args;
7161
7162 object = sgtk_get_Object(o_object);
7163 /* +++ undefined GtkSignalFunc */
7164 /* +++ get gpointer -> pointer failed */
7165 /* +++ undefined GtkArg* */
7166 gtk_marshal_NONE__POINTER_POINTER_POINTER(object, func, func_data, args);
7167 return(scm_undefined);
7168 }
7169 #endif /* INCOMPLETE */
7170
7171 #ifdef INCOMPLETE
sgtk_marshal_NONE__POINTER_INT_INT(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7172 SOBJ sgtk_marshal_NONE__POINTER_INT_INT (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7173 {
7174 GtkObject* object;
7175 GtkSignalFunc func;
7176 gpointer func_data;
7177 GtkArg* args;
7178
7179 object = sgtk_get_Object(o_object);
7180 /* +++ undefined GtkSignalFunc */
7181 /* +++ get gpointer -> pointer failed */
7182 /* +++ undefined GtkArg* */
7183 gtk_marshal_NONE__POINTER_INT_INT(object, func, func_data, args);
7184 return(scm_undefined);
7185 }
7186 #endif /* INCOMPLETE */
7187
7188 #ifdef INCOMPLETE
sgtk_marshal_NONE__POINTER_POINTER_INT_INT(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7189 SOBJ sgtk_marshal_NONE__POINTER_POINTER_INT_INT (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7190 {
7191 GtkObject* object;
7192 GtkSignalFunc func;
7193 gpointer func_data;
7194 GtkArg* args;
7195
7196 object = sgtk_get_Object(o_object);
7197 /* +++ undefined GtkSignalFunc */
7198 /* +++ get gpointer -> pointer failed */
7199 /* +++ undefined GtkArg* */
7200 gtk_marshal_NONE__POINTER_POINTER_INT_INT(object, func, func_data, args);
7201 return(scm_undefined);
7202 }
7203 #endif /* INCOMPLETE */
7204
7205 #ifdef INCOMPLETE
sgtk_marshal_NONE__POINTER_INT_INT_POINTER_INT_INT(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7206 SOBJ sgtk_marshal_NONE__POINTER_INT_INT_POINTER_INT_INT (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7207 {
7208 GtkObject* object;
7209 GtkSignalFunc func;
7210 gpointer func_data;
7211 GtkArg* args;
7212
7213 object = sgtk_get_Object(o_object);
7214 /* +++ undefined GtkSignalFunc */
7215 /* +++ get gpointer -> pointer failed */
7216 /* +++ undefined GtkArg* */
7217 gtk_marshal_NONE__POINTER_INT_INT_POINTER_INT_INT(object, func, func_data, args);
7218 return(scm_undefined);
7219 }
7220 #endif /* INCOMPLETE */
7221
7222 #ifdef INCOMPLETE
sgtk_marshal_NONE__POINTER_INT_POINTER(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7223 SOBJ sgtk_marshal_NONE__POINTER_INT_POINTER (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7224 {
7225 GtkObject* object;
7226 GtkSignalFunc func;
7227 gpointer func_data;
7228 GtkArg* args;
7229
7230 object = sgtk_get_Object(o_object);
7231 /* +++ undefined GtkSignalFunc */
7232 /* +++ get gpointer -> pointer failed */
7233 /* +++ undefined GtkArg* */
7234 gtk_marshal_NONE__POINTER_INT_POINTER(object, func, func_data, args);
7235 return(scm_undefined);
7236 }
7237 #endif /* INCOMPLETE */
7238
7239 #ifdef INCOMPLETE
sgtk_marshal_NONE__INT_POINTER_INT_INT_INT_POINTER(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7240 SOBJ sgtk_marshal_NONE__INT_POINTER_INT_INT_INT_POINTER (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7241 {
7242 GtkObject* object;
7243 GtkSignalFunc func;
7244 gpointer func_data;
7245 GtkArg* args;
7246
7247 object = sgtk_get_Object(o_object);
7248 /* +++ undefined GtkSignalFunc */
7249 /* +++ get gpointer -> pointer failed */
7250 /* +++ undefined GtkArg* */
7251 gtk_marshal_NONE__INT_POINTER_INT_INT_INT_POINTER(object, func, func_data, args);
7252 return(scm_undefined);
7253 }
7254 #endif /* INCOMPLETE */
7255
7256 #ifdef INCOMPLETE
sgtk_marshal_NONE__INT_POINTER_INT_INT_INT(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7257 SOBJ sgtk_marshal_NONE__INT_POINTER_INT_INT_INT (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7258 {
7259 GtkObject* object;
7260 GtkSignalFunc func;
7261 gpointer func_data;
7262 GtkArg* args;
7263
7264 object = sgtk_get_Object(o_object);
7265 /* +++ undefined GtkSignalFunc */
7266 /* +++ get gpointer -> pointer failed */
7267 /* +++ undefined GtkArg* */
7268 gtk_marshal_NONE__INT_POINTER_INT_INT_INT(object, func, func_data, args);
7269 return(scm_undefined);
7270 }
7271 #endif /* INCOMPLETE */
7272
7273 #ifdef INCOMPLETE
sgtk_marshal_NONE__INT_POINTER(SOBJ o_object,SOBJ o_func,SOBJ o_func_data,SOBJ o_args)7274 SOBJ sgtk_marshal_NONE__INT_POINTER (SOBJ o_object, SOBJ o_func, SOBJ o_func_data, SOBJ o_args)
7275 {
7276 GtkObject* object;
7277 GtkSignalFunc func;
7278 gpointer func_data;
7279 GtkArg* args;
7280
7281 object = sgtk_get_Object(o_object);
7282 /* +++ undefined GtkSignalFunc */
7283 /* +++ get gpointer -> pointer failed */
7284 /* +++ undefined GtkArg* */
7285 gtk_marshal_NONE__INT_POINTER(object, func, func_data, args);
7286 return(scm_undefined);
7287 }
7288 #endif /* INCOMPLETE */
7289
sgtk_menu_get_type()7290 SOBJ sgtk_menu_get_type ()
7291 {
7292 GtkType __retval__;
7293
7294 __retval__ = gtk_menu_get_type();
7295 return(SCM_MKINUM(__retval__));
7296 }
7297
7298 #ifdef INCOMPLETE
sgtk_menu_attach_to_widget(SOBJ o_menu,SOBJ o_attach_widget,SOBJ o_detacher)7299 SOBJ sgtk_menu_attach_to_widget (SOBJ o_menu, SOBJ o_attach_widget, SOBJ o_detacher)
7300 {
7301 GtkMenu* menu;
7302 GtkWidget* attach_widget;
7303 GtkMenuDetachFunc detacher;
7304
7305 menu = sgtk_get_Object(o_menu);
7306 attach_widget = sgtk_get_Object(o_attach_widget);
7307 /* +++ undefined GtkMenuDetachFunc */
7308 gtk_menu_attach_to_widget(menu, attach_widget, detacher);
7309 return(scm_undefined);
7310 }
7311 #endif /* INCOMPLETE */
7312
sgtk_menu_get_attach_widget(SOBJ o_menu)7313 SOBJ sgtk_menu_get_attach_widget (SOBJ o_menu)
7314 {
7315 GtkMenu* menu;
7316 GtkWidget* __retval__;
7317
7318 menu = sgtk_get_Object(o_menu);
7319 __retval__ = gtk_menu_get_attach_widget(menu);
7320 return(sgtk_object_new((void*)__retval__));
7321 }
7322
sgtk_menu_detach(SOBJ o_menu)7323 SOBJ sgtk_menu_detach (SOBJ o_menu)
7324 {
7325 GtkMenu* menu;
7326
7327 menu = sgtk_get_Object(o_menu);
7328 gtk_menu_detach(menu);
7329 return(scm_undefined);
7330 }
7331
sgtk_menu_new()7332 SOBJ sgtk_menu_new ()
7333 {
7334 GtkWidget* __retval__;
7335
7336 __retval__ = gtk_menu_new();
7337 return(sgtk_object_new((void*)__retval__));
7338 }
7339
sgtk_menu_append(SOBJ o_menu,SOBJ o_child)7340 SOBJ sgtk_menu_append (SOBJ o_menu, SOBJ o_child)
7341 {
7342 GtkMenu* menu;
7343 GtkWidget* child;
7344
7345 menu = sgtk_get_Object(o_menu);
7346 child = sgtk_get_Object(o_child);
7347 gtk_menu_append(menu, child);
7348 return(scm_undefined);
7349 }
7350
sgtk_menu_prepend(SOBJ o_menu,SOBJ o_child)7351 SOBJ sgtk_menu_prepend (SOBJ o_menu, SOBJ o_child)
7352 {
7353 GtkMenu* menu;
7354 GtkWidget* child;
7355
7356 menu = sgtk_get_Object(o_menu);
7357 child = sgtk_get_Object(o_child);
7358 gtk_menu_prepend(menu, child);
7359 return(scm_undefined);
7360 }
7361
sgtk_menu_insert(SOBJ o_menu,SOBJ o_child,SOBJ o_position)7362 SOBJ sgtk_menu_insert (SOBJ o_menu, SOBJ o_child, SOBJ o_position)
7363 {
7364 GtkMenu* menu;
7365 GtkWidget* child;
7366 gint position;
7367
7368 menu = sgtk_get_Object(o_menu);
7369 child = sgtk_get_Object(o_child);
7370 position = scm_number2long(o_position);
7371 gtk_menu_insert(menu, child, position);
7372 return(scm_undefined);
7373 }
7374
7375 #ifdef INCOMPLETE
sgtk_menu_popup(SOBJ o_menu,SOBJ o_parent_menu_shell,SOBJ o_parent_menu_item,SOBJ o_func,SOBJ o_data,SOBJ o_button,SOBJ o_activate_time)7376 SOBJ sgtk_menu_popup (SOBJ o_menu, SOBJ o_parent_menu_shell, SOBJ o_parent_menu_item, SOBJ o_func, SOBJ o_data, SOBJ o_button, SOBJ o_activate_time)
7377 {
7378 GtkMenu* menu;
7379 GtkWidget* parent_menu_shell;
7380 GtkWidget* parent_menu_item;
7381 GtkMenuPositionFunc func;
7382 gpointer data;
7383 guint button;
7384 guint32 activate_time;
7385
7386 menu = sgtk_get_Object(o_menu);
7387 parent_menu_shell = sgtk_get_Object(o_parent_menu_shell);
7388 parent_menu_item = sgtk_get_Object(o_parent_menu_item);
7389 /* +++ undefined GtkMenuPositionFunc */
7390 /* +++ get gpointer -> pointer failed */
7391 button = scm_number2long(o_button);
7392 activate_time = scm_number2long(o_activate_time);
7393 gtk_menu_popup(menu, parent_menu_shell, parent_menu_item, func, data, button, activate_time);
7394 return(scm_undefined);
7395 }
7396 #endif /* INCOMPLETE */
7397
sgtk_menu_popdown(SOBJ o_menu)7398 SOBJ sgtk_menu_popdown (SOBJ o_menu)
7399 {
7400 GtkMenu* menu;
7401
7402 menu = sgtk_get_Object(o_menu);
7403 gtk_menu_popdown(menu);
7404 return(scm_undefined);
7405 }
7406
sgtk_menu_get_active(SOBJ o_menu)7407 SOBJ sgtk_menu_get_active (SOBJ o_menu)
7408 {
7409 GtkMenu* menu;
7410 GtkWidget* __retval__;
7411
7412 menu = sgtk_get_Object(o_menu);
7413 __retval__ = gtk_menu_get_active(menu);
7414 return(sgtk_object_new((void*)__retval__));
7415 }
7416
sgtk_menu_set_active(SOBJ o_menu,SOBJ o_index)7417 SOBJ sgtk_menu_set_active (SOBJ o_menu, SOBJ o_index)
7418 {
7419 GtkMenu* menu;
7420 guint index;
7421
7422 menu = sgtk_get_Object(o_menu);
7423 index = scm_number2long(o_index);
7424 gtk_menu_set_active(menu, index);
7425 return(scm_undefined);
7426 }
7427
sgtk_menu_set_accel_group(SOBJ o_menu,SOBJ o_accel_group)7428 SOBJ sgtk_menu_set_accel_group (SOBJ o_menu, SOBJ o_accel_group)
7429 {
7430 GtkMenu* menu;
7431 GtkAccelGroup* accel_group;
7432
7433 menu = sgtk_get_Object(o_menu);
7434 accel_group = sgtk_get_AccelGroup(o_accel_group);
7435 gtk_menu_set_accel_group(menu, accel_group);
7436 return(scm_undefined);
7437 }
7438
sgtk_menu_get_accel_group(SOBJ o_menu)7439 SOBJ sgtk_menu_get_accel_group (SOBJ o_menu)
7440 {
7441 GtkMenu* menu;
7442 GtkAccelGroup* __retval__;
7443
7444 menu = sgtk_get_Object(o_menu);
7445 __retval__ = gtk_menu_get_accel_group(menu);
7446 return(sgtk_object_new((void*)__retval__));
7447 }
7448
sgtk_menu_ensure_uline_accel_group(SOBJ o_menu)7449 SOBJ sgtk_menu_ensure_uline_accel_group (SOBJ o_menu)
7450 {
7451 GtkMenu* menu;
7452 GtkAccelGroup* __retval__;
7453
7454 menu = sgtk_get_Object(o_menu);
7455 __retval__ = gtk_menu_ensure_uline_accel_group(menu);
7456 return(sgtk_object_new((void*)__retval__));
7457 }
7458
sgtk_menu_get_uline_accel_group(SOBJ o_menu)7459 SOBJ sgtk_menu_get_uline_accel_group (SOBJ o_menu)
7460 {
7461 GtkMenu* menu;
7462 GtkAccelGroup* __retval__;
7463
7464 menu = sgtk_get_Object(o_menu);
7465 __retval__ = gtk_menu_get_uline_accel_group(menu);
7466 return(sgtk_object_new((void*)__retval__));
7467 }
7468
sgtk_menu_reposition(SOBJ o_menu)7469 SOBJ sgtk_menu_reposition (SOBJ o_menu)
7470 {
7471 GtkMenu* menu;
7472
7473 menu = sgtk_get_Object(o_menu);
7474 gtk_menu_reposition(menu);
7475 return(scm_undefined);
7476 }
7477
sgtk_menu_set_tearoff_state(SOBJ o_menu,SOBJ o_torn_off)7478 SOBJ sgtk_menu_set_tearoff_state (SOBJ o_menu, SOBJ o_torn_off)
7479 {
7480 GtkMenu* menu;
7481 gboolean torn_off;
7482
7483 menu = sgtk_get_Object(o_menu);
7484 torn_off = (o_torn_off != scm_false);
7485 gtk_menu_set_tearoff_state(menu, torn_off);
7486 return(scm_undefined);
7487 }
7488
sgtk_menu_set_title(SOBJ o_menu,SOBJ o_title)7489 SOBJ sgtk_menu_set_title (SOBJ o_menu, SOBJ o_title)
7490 {
7491 GtkMenu* menu;
7492 gchar* title;
7493
7494 menu = sgtk_get_Object(o_menu);
7495 title = scm_getstr(o_title);
7496 gtk_menu_set_title(menu, title);
7497 return(scm_undefined);
7498 }
7499
sgtk_menu_reorder_child(SOBJ o_menu,SOBJ o_child,SOBJ o_position)7500 SOBJ sgtk_menu_reorder_child (SOBJ o_menu, SOBJ o_child, SOBJ o_position)
7501 {
7502 GtkMenu* menu;
7503 GtkWidget* child;
7504 gint position;
7505
7506 menu = sgtk_get_Object(o_menu);
7507 child = sgtk_get_Object(o_child);
7508 position = scm_number2long(o_position);
7509 gtk_menu_reorder_child(menu, child, position);
7510 return(scm_undefined);
7511 }
7512
sgtk_menu_bar_get_type()7513 SOBJ sgtk_menu_bar_get_type ()
7514 {
7515 GtkType __retval__;
7516
7517 __retval__ = gtk_menu_bar_get_type();
7518 return(SCM_MKINUM(__retval__));
7519 }
7520
sgtk_menu_bar_new()7521 SOBJ sgtk_menu_bar_new ()
7522 {
7523 GtkWidget* __retval__;
7524
7525 __retval__ = gtk_menu_bar_new();
7526 return(sgtk_object_new((void*)__retval__));
7527 }
7528
sgtk_menu_bar_append(SOBJ o_menu_bar,SOBJ o_child)7529 SOBJ sgtk_menu_bar_append (SOBJ o_menu_bar, SOBJ o_child)
7530 {
7531 GtkMenuBar* menu_bar;
7532 GtkWidget* child;
7533
7534 menu_bar = sgtk_get_Object(o_menu_bar);
7535 child = sgtk_get_Object(o_child);
7536 gtk_menu_bar_append(menu_bar, child);
7537 return(scm_undefined);
7538 }
7539
sgtk_menu_bar_prepend(SOBJ o_menu_bar,SOBJ o_child)7540 SOBJ sgtk_menu_bar_prepend (SOBJ o_menu_bar, SOBJ o_child)
7541 {
7542 GtkMenuBar* menu_bar;
7543 GtkWidget* child;
7544
7545 menu_bar = sgtk_get_Object(o_menu_bar);
7546 child = sgtk_get_Object(o_child);
7547 gtk_menu_bar_prepend(menu_bar, child);
7548 return(scm_undefined);
7549 }
7550
sgtk_menu_bar_insert(SOBJ o_menu_bar,SOBJ o_child,SOBJ o_position)7551 SOBJ sgtk_menu_bar_insert (SOBJ o_menu_bar, SOBJ o_child, SOBJ o_position)
7552 {
7553 GtkMenuBar* menu_bar;
7554 GtkWidget* child;
7555 gint position;
7556
7557 menu_bar = sgtk_get_Object(o_menu_bar);
7558 child = sgtk_get_Object(o_child);
7559 position = scm_number2long(o_position);
7560 gtk_menu_bar_insert(menu_bar, child, position);
7561 return(scm_undefined);
7562 }
7563
sgtk_menu_bar_set_shadow_type(SOBJ o_menu_bar,SOBJ o_type)7564 SOBJ sgtk_menu_bar_set_shadow_type (SOBJ o_menu_bar, SOBJ o_type)
7565 {
7566 GtkMenuBar* menu_bar;
7567 GtkShadowType type;
7568
7569 menu_bar = sgtk_get_Object(o_menu_bar);
7570 type = sgtk_enumget("GtkShadowType", o_type);
7571 gtk_menu_bar_set_shadow_type(menu_bar, type);
7572 return(scm_undefined);
7573 }
7574
7575 #ifdef INCOMPLETE
7576 /* +++ return type GtkMenuFactory* not defined */
sgtk_menu_factory_new(SOBJ o_type)7577 SOBJ sgtk_menu_factory_new (SOBJ o_type)
7578 {
7579 GtkMenuFactoryType type;
7580 GtkMenuFactory* __retval__;
7581
7582 type = sgtk_enumget("GtkMenuFactoryType", o_type);
7583 __retval__ = gtk_menu_factory_new(type);
7584 /* +++ don't know how to generate GtkMenuFactory* */
7585 return(scm_undefined);
7586 }
7587 #endif /* INCOMPLETE */
7588
7589 #ifdef INCOMPLETE
sgtk_menu_factory_destroy(SOBJ o_factory)7590 SOBJ sgtk_menu_factory_destroy (SOBJ o_factory)
7591 {
7592 GtkMenuFactory* factory;
7593
7594 /* +++ undefined GtkMenuFactory* */
7595 gtk_menu_factory_destroy(factory);
7596 return(scm_undefined);
7597 }
7598 #endif /* INCOMPLETE */
7599
7600 #ifdef INCOMPLETE
sgtk_menu_factory_add_entries(SOBJ o_factory,SOBJ o_entries,SOBJ o_nentries)7601 SOBJ sgtk_menu_factory_add_entries (SOBJ o_factory, SOBJ o_entries, SOBJ o_nentries)
7602 {
7603 GtkMenuFactory* factory;
7604 GtkMenuEntry* entries;
7605 int nentries;
7606
7607 /* +++ undefined GtkMenuFactory* */
7608 /* +++ undefined GtkMenuEntry* */
7609 nentries = scm_number2long(o_nentries);
7610 gtk_menu_factory_add_entries(factory, entries, nentries);
7611 return(scm_undefined);
7612 }
7613 #endif /* INCOMPLETE */
7614
7615 #ifdef INCOMPLETE
sgtk_menu_factory_add_subfactory(SOBJ o_factory,SOBJ o_subfactory,SOBJ o_path)7616 SOBJ sgtk_menu_factory_add_subfactory (SOBJ o_factory, SOBJ o_subfactory, SOBJ o_path)
7617 {
7618 GtkMenuFactory* factory;
7619 GtkMenuFactory* subfactory;
7620 char* path;
7621
7622 /* +++ undefined GtkMenuFactory* */
7623 /* +++ undefined GtkMenuFactory* */
7624 path = scm_getstr(o_path);
7625 gtk_menu_factory_add_subfactory(factory, subfactory, path);
7626 return(scm_undefined);
7627 }
7628 #endif /* INCOMPLETE */
7629
7630 #ifdef INCOMPLETE
sgtk_menu_factory_remove_paths(SOBJ o_factory,SOBJ o_paths,SOBJ o_npaths)7631 SOBJ sgtk_menu_factory_remove_paths (SOBJ o_factory, SOBJ o_paths, SOBJ o_npaths)
7632 {
7633 GtkMenuFactory* factory;
7634 char** paths;
7635 int npaths;
7636
7637 /* +++ undefined GtkMenuFactory* */
7638 /* +++ undefined char** */
7639 npaths = scm_number2long(o_npaths);
7640 gtk_menu_factory_remove_paths(factory, paths, npaths);
7641 return(scm_undefined);
7642 }
7643 #endif /* INCOMPLETE */
7644
7645 #ifdef INCOMPLETE
sgtk_menu_factory_remove_entries(SOBJ o_factory,SOBJ o_entries,SOBJ o_nentries)7646 SOBJ sgtk_menu_factory_remove_entries (SOBJ o_factory, SOBJ o_entries, SOBJ o_nentries)
7647 {
7648 GtkMenuFactory* factory;
7649 GtkMenuEntry* entries;
7650 int nentries;
7651
7652 /* +++ undefined GtkMenuFactory* */
7653 /* +++ undefined GtkMenuEntry* */
7654 nentries = scm_number2long(o_nentries);
7655 gtk_menu_factory_remove_entries(factory, entries, nentries);
7656 return(scm_undefined);
7657 }
7658 #endif /* INCOMPLETE */
7659
7660 #ifdef INCOMPLETE
sgtk_menu_factory_remove_subfactory(SOBJ o_factory,SOBJ o_subfactory,SOBJ o_path)7661 SOBJ sgtk_menu_factory_remove_subfactory (SOBJ o_factory, SOBJ o_subfactory, SOBJ o_path)
7662 {
7663 GtkMenuFactory* factory;
7664 GtkMenuFactory* subfactory;
7665 char* path;
7666
7667 /* +++ undefined GtkMenuFactory* */
7668 /* +++ undefined GtkMenuFactory* */
7669 path = scm_getstr(o_path);
7670 gtk_menu_factory_remove_subfactory(factory, subfactory, path);
7671 return(scm_undefined);
7672 }
7673 #endif /* INCOMPLETE */
7674
7675 #ifdef INCOMPLETE
7676 /* +++ return type GtkMenuPath* not defined */
sgtk_menu_factory_find(SOBJ o_factory,SOBJ o_path)7677 SOBJ sgtk_menu_factory_find (SOBJ o_factory, SOBJ o_path)
7678 {
7679 GtkMenuFactory* factory;
7680 char* path;
7681 GtkMenuPath* __retval__;
7682
7683 /* +++ undefined GtkMenuFactory* */
7684 path = scm_getstr(o_path);
7685 __retval__ = gtk_menu_factory_find(factory, path);
7686 /* +++ don't know how to generate GtkMenuPath* */
7687 return(scm_undefined);
7688 }
7689 #endif /* INCOMPLETE */
7690
sgtk_menu_item_get_type()7691 SOBJ sgtk_menu_item_get_type ()
7692 {
7693 GtkType __retval__;
7694
7695 __retval__ = gtk_menu_item_get_type();
7696 return(SCM_MKINUM(__retval__));
7697 }
7698
sgtk_menu_item_new()7699 SOBJ sgtk_menu_item_new ()
7700 {
7701 GtkWidget* __retval__;
7702
7703 __retval__ = gtk_menu_item_new();
7704 return(sgtk_object_new((void*)__retval__));
7705 }
7706
sgtk_menu_item_new_with_label(SOBJ o_label)7707 SOBJ sgtk_menu_item_new_with_label (SOBJ o_label)
7708 {
7709 gchar* label;
7710 GtkWidget* __retval__;
7711
7712 label = scm_getstr(o_label);
7713 __retval__ = gtk_menu_item_new_with_label(label);
7714 return(sgtk_object_new((void*)__retval__));
7715 }
7716
sgtk_menu_item_set_submenu(SOBJ o_menu_item,SOBJ o_submenu)7717 SOBJ sgtk_menu_item_set_submenu (SOBJ o_menu_item, SOBJ o_submenu)
7718 {
7719 GtkMenuItem* menu_item;
7720 GtkWidget* submenu;
7721
7722 menu_item = sgtk_get_Object(o_menu_item);
7723 submenu = sgtk_get_Object(o_submenu);
7724 gtk_menu_item_set_submenu(menu_item, submenu);
7725 return(scm_undefined);
7726 }
7727
sgtk_menu_item_remove_submenu(SOBJ o_menu_item)7728 SOBJ sgtk_menu_item_remove_submenu (SOBJ o_menu_item)
7729 {
7730 GtkMenuItem* menu_item;
7731
7732 menu_item = sgtk_get_Object(o_menu_item);
7733 gtk_menu_item_remove_submenu(menu_item);
7734 return(scm_undefined);
7735 }
7736
sgtk_menu_item_set_placement(SOBJ o_menu_item,SOBJ o_placement)7737 SOBJ sgtk_menu_item_set_placement (SOBJ o_menu_item, SOBJ o_placement)
7738 {
7739 GtkMenuItem* menu_item;
7740 GtkSubmenuPlacement placement;
7741
7742 menu_item = sgtk_get_Object(o_menu_item);
7743 placement = sgtk_enumget("GtkSubmenuPlacement", o_placement);
7744 gtk_menu_item_set_placement(menu_item, placement);
7745 return(scm_undefined);
7746 }
7747
sgtk_menu_item_configure(SOBJ o_menu_item,SOBJ o_show_toggle_indicator,SOBJ o_show_submenu_indicator)7748 SOBJ sgtk_menu_item_configure (SOBJ o_menu_item, SOBJ o_show_toggle_indicator, SOBJ o_show_submenu_indicator)
7749 {
7750 GtkMenuItem* menu_item;
7751 gint show_toggle_indicator;
7752 gint show_submenu_indicator;
7753
7754 menu_item = sgtk_get_Object(o_menu_item);
7755 show_toggle_indicator = scm_number2long(o_show_toggle_indicator);
7756 show_submenu_indicator = scm_number2long(o_show_submenu_indicator);
7757 gtk_menu_item_configure(menu_item, show_toggle_indicator, show_submenu_indicator);
7758 return(scm_undefined);
7759 }
7760
sgtk_menu_item_select(SOBJ o_menu_item)7761 SOBJ sgtk_menu_item_select (SOBJ o_menu_item)
7762 {
7763 GtkMenuItem* menu_item;
7764
7765 menu_item = sgtk_get_Object(o_menu_item);
7766 gtk_menu_item_select(menu_item);
7767 return(scm_undefined);
7768 }
7769
sgtk_menu_item_deselect(SOBJ o_menu_item)7770 SOBJ sgtk_menu_item_deselect (SOBJ o_menu_item)
7771 {
7772 GtkMenuItem* menu_item;
7773
7774 menu_item = sgtk_get_Object(o_menu_item);
7775 gtk_menu_item_deselect(menu_item);
7776 return(scm_undefined);
7777 }
7778
sgtk_menu_item_activate(SOBJ o_menu_item)7779 SOBJ sgtk_menu_item_activate (SOBJ o_menu_item)
7780 {
7781 GtkMenuItem* menu_item;
7782
7783 menu_item = sgtk_get_Object(o_menu_item);
7784 gtk_menu_item_activate(menu_item);
7785 return(scm_undefined);
7786 }
7787
sgtk_menu_item_right_justify(SOBJ o_menuitem)7788 SOBJ sgtk_menu_item_right_justify (SOBJ o_menuitem)
7789 {
7790 GtkMenuItem* menuitem;
7791
7792 menuitem = sgtk_get_Object(o_menuitem);
7793 gtk_menu_item_right_justify(menuitem);
7794 return(scm_undefined);
7795 }
7796
sgtk_menu_shell_get_type()7797 SOBJ sgtk_menu_shell_get_type ()
7798 {
7799 GtkType __retval__;
7800
7801 __retval__ = gtk_menu_shell_get_type();
7802 return(SCM_MKINUM(__retval__));
7803 }
7804
sgtk_menu_shell_append(SOBJ o_menu_shell,SOBJ o_child)7805 SOBJ sgtk_menu_shell_append (SOBJ o_menu_shell, SOBJ o_child)
7806 {
7807 GtkMenuShell* menu_shell;
7808 GtkWidget* child;
7809
7810 menu_shell = sgtk_get_Object(o_menu_shell);
7811 child = sgtk_get_Object(o_child);
7812 gtk_menu_shell_append(menu_shell, child);
7813 return(scm_undefined);
7814 }
7815
sgtk_menu_shell_prepend(SOBJ o_menu_shell,SOBJ o_child)7816 SOBJ sgtk_menu_shell_prepend (SOBJ o_menu_shell, SOBJ o_child)
7817 {
7818 GtkMenuShell* menu_shell;
7819 GtkWidget* child;
7820
7821 menu_shell = sgtk_get_Object(o_menu_shell);
7822 child = sgtk_get_Object(o_child);
7823 gtk_menu_shell_prepend(menu_shell, child);
7824 return(scm_undefined);
7825 }
7826
sgtk_menu_shell_insert(SOBJ o_menu_shell,SOBJ o_child,SOBJ o_position)7827 SOBJ sgtk_menu_shell_insert (SOBJ o_menu_shell, SOBJ o_child, SOBJ o_position)
7828 {
7829 GtkMenuShell* menu_shell;
7830 GtkWidget* child;
7831 gint position;
7832
7833 menu_shell = sgtk_get_Object(o_menu_shell);
7834 child = sgtk_get_Object(o_child);
7835 position = scm_number2long(o_position);
7836 gtk_menu_shell_insert(menu_shell, child, position);
7837 return(scm_undefined);
7838 }
7839
sgtk_menu_shell_deactivate(SOBJ o_menu_shell)7840 SOBJ sgtk_menu_shell_deactivate (SOBJ o_menu_shell)
7841 {
7842 GtkMenuShell* menu_shell;
7843
7844 menu_shell = sgtk_get_Object(o_menu_shell);
7845 gtk_menu_shell_deactivate(menu_shell);
7846 return(scm_undefined);
7847 }
7848
sgtk_menu_shell_select_item(SOBJ o_menu_shell,SOBJ o_menu_item)7849 SOBJ sgtk_menu_shell_select_item (SOBJ o_menu_shell, SOBJ o_menu_item)
7850 {
7851 GtkMenuShell* menu_shell;
7852 GtkWidget* menu_item;
7853
7854 menu_shell = sgtk_get_Object(o_menu_shell);
7855 menu_item = sgtk_get_Object(o_menu_item);
7856 gtk_menu_shell_select_item(menu_shell, menu_item);
7857 return(scm_undefined);
7858 }
7859
sgtk_menu_shell_deselect(SOBJ o_menu_shell)7860 SOBJ sgtk_menu_shell_deselect (SOBJ o_menu_shell)
7861 {
7862 GtkMenuShell* menu_shell;
7863
7864 menu_shell = sgtk_get_Object(o_menu_shell);
7865 gtk_menu_shell_deselect(menu_shell);
7866 return(scm_undefined);
7867 }
7868
sgtk_menu_shell_activate_item(SOBJ o_menu_shell,SOBJ o_menu_item,SOBJ o_force_deactivate)7869 SOBJ sgtk_menu_shell_activate_item (SOBJ o_menu_shell, SOBJ o_menu_item, SOBJ o_force_deactivate)
7870 {
7871 GtkMenuShell* menu_shell;
7872 GtkWidget* menu_item;
7873 gboolean force_deactivate;
7874
7875 menu_shell = sgtk_get_Object(o_menu_shell);
7876 menu_item = sgtk_get_Object(o_menu_item);
7877 force_deactivate = (o_force_deactivate != scm_false);
7878 gtk_menu_shell_activate_item(menu_shell, menu_item, force_deactivate);
7879 return(scm_undefined);
7880 }
7881
sgtk_misc_get_type()7882 SOBJ sgtk_misc_get_type ()
7883 {
7884 GtkType __retval__;
7885
7886 __retval__ = gtk_misc_get_type();
7887 return(SCM_MKINUM(__retval__));
7888 }
7889
sgtk_misc_set_alignment(SOBJ o_misc,SOBJ o_xalign,SOBJ o_yalign)7890 SOBJ sgtk_misc_set_alignment (SOBJ o_misc, SOBJ o_xalign, SOBJ o_yalign)
7891 {
7892 GtkMisc* misc;
7893 gfloat xalign;
7894 gfloat yalign;
7895
7896 misc = sgtk_get_Object(o_misc);
7897 xalign = scm_number2double(o_xalign);
7898 yalign = scm_number2double(o_yalign);
7899 gtk_misc_set_alignment(misc, xalign, yalign);
7900 return(scm_undefined);
7901 }
7902
sgtk_misc_set_padding(SOBJ o_misc,SOBJ o_xpad,SOBJ o_ypad)7903 SOBJ sgtk_misc_set_padding (SOBJ o_misc, SOBJ o_xpad, SOBJ o_ypad)
7904 {
7905 GtkMisc* misc;
7906 gint xpad;
7907 gint ypad;
7908
7909 misc = sgtk_get_Object(o_misc);
7910 xpad = scm_number2long(o_xpad);
7911 ypad = scm_number2long(o_ypad);
7912 gtk_misc_set_padding(misc, xpad, ypad);
7913 return(scm_undefined);
7914 }
7915
sgtk_notebook_get_type()7916 SOBJ sgtk_notebook_get_type ()
7917 {
7918 GtkType __retval__;
7919
7920 __retval__ = gtk_notebook_get_type();
7921 return(SCM_MKINUM(__retval__));
7922 }
7923
sgtk_notebook_new()7924 SOBJ sgtk_notebook_new ()
7925 {
7926 GtkWidget* __retval__;
7927
7928 __retval__ = gtk_notebook_new();
7929 return(sgtk_object_new((void*)__retval__));
7930 }
7931
sgtk_notebook_append_page(SOBJ o_notebook,SOBJ o_child,SOBJ o_tab_label)7932 SOBJ sgtk_notebook_append_page (SOBJ o_notebook, SOBJ o_child, SOBJ o_tab_label)
7933 {
7934 GtkNotebook* notebook;
7935 GtkWidget* child;
7936 GtkWidget* tab_label;
7937
7938 notebook = sgtk_get_Object(o_notebook);
7939 child = sgtk_get_Object(o_child);
7940 tab_label = sgtk_get_Object(o_tab_label);
7941 gtk_notebook_append_page(notebook, child, tab_label);
7942 return(scm_undefined);
7943 }
7944
sgtk_notebook_append_page_menu(SOBJ o_notebook,SOBJ o_child,SOBJ o_tab_label,SOBJ o_menu_label)7945 SOBJ sgtk_notebook_append_page_menu (SOBJ o_notebook, SOBJ o_child, SOBJ o_tab_label, SOBJ o_menu_label)
7946 {
7947 GtkNotebook* notebook;
7948 GtkWidget* child;
7949 GtkWidget* tab_label;
7950 GtkWidget* menu_label;
7951
7952 notebook = sgtk_get_Object(o_notebook);
7953 child = sgtk_get_Object(o_child);
7954 tab_label = sgtk_get_Object(o_tab_label);
7955 menu_label = sgtk_get_Object(o_menu_label);
7956 gtk_notebook_append_page_menu(notebook, child, tab_label, menu_label);
7957 return(scm_undefined);
7958 }
7959
sgtk_notebook_prepend_page(SOBJ o_notebook,SOBJ o_child,SOBJ o_tab_label)7960 SOBJ sgtk_notebook_prepend_page (SOBJ o_notebook, SOBJ o_child, SOBJ o_tab_label)
7961 {
7962 GtkNotebook* notebook;
7963 GtkWidget* child;
7964 GtkWidget* tab_label;
7965
7966 notebook = sgtk_get_Object(o_notebook);
7967 child = sgtk_get_Object(o_child);
7968 tab_label = sgtk_get_Object(o_tab_label);
7969 gtk_notebook_prepend_page(notebook, child, tab_label);
7970 return(scm_undefined);
7971 }
7972
sgtk_notebook_prepend_page_menu(SOBJ o_notebook,SOBJ o_child,SOBJ o_tab_label,SOBJ o_menu_label)7973 SOBJ sgtk_notebook_prepend_page_menu (SOBJ o_notebook, SOBJ o_child, SOBJ o_tab_label, SOBJ o_menu_label)
7974 {
7975 GtkNotebook* notebook;
7976 GtkWidget* child;
7977 GtkWidget* tab_label;
7978 GtkWidget* menu_label;
7979
7980 notebook = sgtk_get_Object(o_notebook);
7981 child = sgtk_get_Object(o_child);
7982 tab_label = sgtk_get_Object(o_tab_label);
7983 menu_label = sgtk_get_Object(o_menu_label);
7984 gtk_notebook_prepend_page_menu(notebook, child, tab_label, menu_label);
7985 return(scm_undefined);
7986 }
7987
sgtk_notebook_insert_page(SOBJ o_notebook,SOBJ o_child,SOBJ o_tab_label,SOBJ o_position)7988 SOBJ sgtk_notebook_insert_page (SOBJ o_notebook, SOBJ o_child, SOBJ o_tab_label, SOBJ o_position)
7989 {
7990 GtkNotebook* notebook;
7991 GtkWidget* child;
7992 GtkWidget* tab_label;
7993 gint position;
7994
7995 notebook = sgtk_get_Object(o_notebook);
7996 child = sgtk_get_Object(o_child);
7997 tab_label = sgtk_get_Object(o_tab_label);
7998 position = scm_number2long(o_position);
7999 gtk_notebook_insert_page(notebook, child, tab_label, position);
8000 return(scm_undefined);
8001 }
8002
sgtk_notebook_insert_page_menu(SOBJ o_notebook,SOBJ o_child,SOBJ o_tab_label,SOBJ o_menu_label,SOBJ o_position)8003 SOBJ sgtk_notebook_insert_page_menu (SOBJ o_notebook, SOBJ o_child, SOBJ o_tab_label, SOBJ o_menu_label, SOBJ o_position)
8004 {
8005 GtkNotebook* notebook;
8006 GtkWidget* child;
8007 GtkWidget* tab_label;
8008 GtkWidget* menu_label;
8009 gint position;
8010
8011 notebook = sgtk_get_Object(o_notebook);
8012 child = sgtk_get_Object(o_child);
8013 tab_label = sgtk_get_Object(o_tab_label);
8014 menu_label = sgtk_get_Object(o_menu_label);
8015 position = scm_number2long(o_position);
8016 gtk_notebook_insert_page_menu(notebook, child, tab_label, menu_label, position);
8017 return(scm_undefined);
8018 }
8019
sgtk_notebook_remove_page(SOBJ o_notebook,SOBJ o_page_num)8020 SOBJ sgtk_notebook_remove_page (SOBJ o_notebook, SOBJ o_page_num)
8021 {
8022 GtkNotebook* notebook;
8023 gint page_num;
8024
8025 notebook = sgtk_get_Object(o_notebook);
8026 page_num = scm_number2long(o_page_num);
8027 gtk_notebook_remove_page(notebook, page_num);
8028 return(scm_undefined);
8029 }
8030
sgtk_notebook_get_current_page(SOBJ o_notebook)8031 SOBJ sgtk_notebook_get_current_page (SOBJ o_notebook)
8032 {
8033 GtkNotebook* notebook;
8034 gint __retval__;
8035
8036 notebook = sgtk_get_Object(o_notebook);
8037 __retval__ = gtk_notebook_get_current_page(notebook);
8038 return(SCM_MKINUM(__retval__));
8039 }
8040
sgtk_notebook_get_nth_page(SOBJ o_notebook,SOBJ o_page_num)8041 SOBJ sgtk_notebook_get_nth_page (SOBJ o_notebook, SOBJ o_page_num)
8042 {
8043 GtkNotebook* notebook;
8044 gint page_num;
8045 GtkWidget* __retval__;
8046
8047 notebook = sgtk_get_Object(o_notebook);
8048 page_num = scm_number2long(o_page_num);
8049 __retval__ = gtk_notebook_get_nth_page(notebook, page_num);
8050 return(sgtk_object_new((void*)__retval__));
8051 }
8052
sgtk_notebook_page_num(SOBJ o_notebook,SOBJ o_child)8053 SOBJ sgtk_notebook_page_num (SOBJ o_notebook, SOBJ o_child)
8054 {
8055 GtkNotebook* notebook;
8056 GtkWidget* child;
8057 gint __retval__;
8058
8059 notebook = sgtk_get_Object(o_notebook);
8060 child = sgtk_get_Object(o_child);
8061 __retval__ = gtk_notebook_page_num(notebook, child);
8062 return(SCM_MKINUM(__retval__));
8063 }
8064
sgtk_notebook_set_page(SOBJ o_notebook,SOBJ o_page_num)8065 SOBJ sgtk_notebook_set_page (SOBJ o_notebook, SOBJ o_page_num)
8066 {
8067 GtkNotebook* notebook;
8068 gint page_num;
8069
8070 notebook = sgtk_get_Object(o_notebook);
8071 page_num = scm_number2long(o_page_num);
8072 gtk_notebook_set_page(notebook, page_num);
8073 return(scm_undefined);
8074 }
8075
sgtk_notebook_next_page(SOBJ o_notebook)8076 SOBJ sgtk_notebook_next_page (SOBJ o_notebook)
8077 {
8078 GtkNotebook* notebook;
8079
8080 notebook = sgtk_get_Object(o_notebook);
8081 gtk_notebook_next_page(notebook);
8082 return(scm_undefined);
8083 }
8084
sgtk_notebook_prev_page(SOBJ o_notebook)8085 SOBJ sgtk_notebook_prev_page (SOBJ o_notebook)
8086 {
8087 GtkNotebook* notebook;
8088
8089 notebook = sgtk_get_Object(o_notebook);
8090 gtk_notebook_prev_page(notebook);
8091 return(scm_undefined);
8092 }
8093
sgtk_notebook_set_show_border(SOBJ o_notebook,SOBJ o_show_border)8094 SOBJ sgtk_notebook_set_show_border (SOBJ o_notebook, SOBJ o_show_border)
8095 {
8096 GtkNotebook* notebook;
8097 gboolean show_border;
8098
8099 notebook = sgtk_get_Object(o_notebook);
8100 show_border = (o_show_border != scm_false);
8101 gtk_notebook_set_show_border(notebook, show_border);
8102 return(scm_undefined);
8103 }
8104
sgtk_notebook_set_show_tabs(SOBJ o_notebook,SOBJ o_show_tabs)8105 SOBJ sgtk_notebook_set_show_tabs (SOBJ o_notebook, SOBJ o_show_tabs)
8106 {
8107 GtkNotebook* notebook;
8108 gboolean show_tabs;
8109
8110 notebook = sgtk_get_Object(o_notebook);
8111 show_tabs = (o_show_tabs != scm_false);
8112 gtk_notebook_set_show_tabs(notebook, show_tabs);
8113 return(scm_undefined);
8114 }
8115
sgtk_notebook_set_tab_pos(SOBJ o_notebook,SOBJ o_pos)8116 SOBJ sgtk_notebook_set_tab_pos (SOBJ o_notebook, SOBJ o_pos)
8117 {
8118 GtkNotebook* notebook;
8119 GtkPositionType pos;
8120
8121 notebook = sgtk_get_Object(o_notebook);
8122 pos = sgtk_enumget("GtkPositionType", o_pos);
8123 gtk_notebook_set_tab_pos(notebook, pos);
8124 return(scm_undefined);
8125 }
8126
sgtk_notebook_set_homogeneous_tabs(SOBJ o_notebook,SOBJ o_homogeneous)8127 SOBJ sgtk_notebook_set_homogeneous_tabs (SOBJ o_notebook, SOBJ o_homogeneous)
8128 {
8129 GtkNotebook* notebook;
8130 gboolean homogeneous;
8131
8132 notebook = sgtk_get_Object(o_notebook);
8133 homogeneous = (o_homogeneous != scm_false);
8134 gtk_notebook_set_homogeneous_tabs(notebook, homogeneous);
8135 return(scm_undefined);
8136 }
8137
sgtk_notebook_set_tab_border(SOBJ o_notebook,SOBJ o_tab_border)8138 SOBJ sgtk_notebook_set_tab_border (SOBJ o_notebook, SOBJ o_tab_border)
8139 {
8140 GtkNotebook* notebook;
8141 guint tab_border;
8142
8143 notebook = sgtk_get_Object(o_notebook);
8144 tab_border = scm_number2long(o_tab_border);
8145 gtk_notebook_set_tab_border(notebook, tab_border);
8146 return(scm_undefined);
8147 }
8148
sgtk_notebook_set_tab_hborder(SOBJ o_notebook,SOBJ o_tab_hborder)8149 SOBJ sgtk_notebook_set_tab_hborder (SOBJ o_notebook, SOBJ o_tab_hborder)
8150 {
8151 GtkNotebook* notebook;
8152 guint tab_hborder;
8153
8154 notebook = sgtk_get_Object(o_notebook);
8155 tab_hborder = scm_number2long(o_tab_hborder);
8156 gtk_notebook_set_tab_hborder(notebook, tab_hborder);
8157 return(scm_undefined);
8158 }
8159
sgtk_notebook_set_tab_vborder(SOBJ o_notebook,SOBJ o_tab_vborder)8160 SOBJ sgtk_notebook_set_tab_vborder (SOBJ o_notebook, SOBJ o_tab_vborder)
8161 {
8162 GtkNotebook* notebook;
8163 guint tab_vborder;
8164
8165 notebook = sgtk_get_Object(o_notebook);
8166 tab_vborder = scm_number2long(o_tab_vborder);
8167 gtk_notebook_set_tab_vborder(notebook, tab_vborder);
8168 return(scm_undefined);
8169 }
8170
sgtk_notebook_set_scrollable(SOBJ o_notebook,SOBJ o_scrollable)8171 SOBJ sgtk_notebook_set_scrollable (SOBJ o_notebook, SOBJ o_scrollable)
8172 {
8173 GtkNotebook* notebook;
8174 gboolean scrollable;
8175
8176 notebook = sgtk_get_Object(o_notebook);
8177 scrollable = (o_scrollable != scm_false);
8178 gtk_notebook_set_scrollable(notebook, scrollable);
8179 return(scm_undefined);
8180 }
8181
sgtk_notebook_popup_enable(SOBJ o_notebook)8182 SOBJ sgtk_notebook_popup_enable (SOBJ o_notebook)
8183 {
8184 GtkNotebook* notebook;
8185
8186 notebook = sgtk_get_Object(o_notebook);
8187 gtk_notebook_popup_enable(notebook);
8188 return(scm_undefined);
8189 }
8190
sgtk_notebook_popup_disable(SOBJ o_notebook)8191 SOBJ sgtk_notebook_popup_disable (SOBJ o_notebook)
8192 {
8193 GtkNotebook* notebook;
8194
8195 notebook = sgtk_get_Object(o_notebook);
8196 gtk_notebook_popup_disable(notebook);
8197 return(scm_undefined);
8198 }
8199
sgtk_notebook_get_tab_label(SOBJ o_notebook,SOBJ o_child)8200 SOBJ sgtk_notebook_get_tab_label (SOBJ o_notebook, SOBJ o_child)
8201 {
8202 GtkNotebook* notebook;
8203 GtkWidget* child;
8204 GtkWidget* __retval__;
8205
8206 notebook = sgtk_get_Object(o_notebook);
8207 child = sgtk_get_Object(o_child);
8208 __retval__ = gtk_notebook_get_tab_label(notebook, child);
8209 return(sgtk_object_new((void*)__retval__));
8210 }
8211
sgtk_notebook_set_tab_label(SOBJ o_notebook,SOBJ o_child,SOBJ o_tab_label)8212 SOBJ sgtk_notebook_set_tab_label (SOBJ o_notebook, SOBJ o_child, SOBJ o_tab_label)
8213 {
8214 GtkNotebook* notebook;
8215 GtkWidget* child;
8216 GtkWidget* tab_label;
8217
8218 notebook = sgtk_get_Object(o_notebook);
8219 child = sgtk_get_Object(o_child);
8220 tab_label = sgtk_get_Object(o_tab_label);
8221 gtk_notebook_set_tab_label(notebook, child, tab_label);
8222 return(scm_undefined);
8223 }
8224
sgtk_notebook_set_tab_label_text(SOBJ o_notebook,SOBJ o_child,SOBJ o_tab_text)8225 SOBJ sgtk_notebook_set_tab_label_text (SOBJ o_notebook, SOBJ o_child, SOBJ o_tab_text)
8226 {
8227 GtkNotebook* notebook;
8228 GtkWidget* child;
8229 gchar* tab_text;
8230
8231 notebook = sgtk_get_Object(o_notebook);
8232 child = sgtk_get_Object(o_child);
8233 tab_text = scm_getstr(o_tab_text);
8234 gtk_notebook_set_tab_label_text(notebook, child, tab_text);
8235 return(scm_undefined);
8236 }
8237
sgtk_notebook_get_menu_label(SOBJ o_notebook,SOBJ o_child)8238 SOBJ sgtk_notebook_get_menu_label (SOBJ o_notebook, SOBJ o_child)
8239 {
8240 GtkNotebook* notebook;
8241 GtkWidget* child;
8242 GtkWidget* __retval__;
8243
8244 notebook = sgtk_get_Object(o_notebook);
8245 child = sgtk_get_Object(o_child);
8246 __retval__ = gtk_notebook_get_menu_label(notebook, child);
8247 return(sgtk_object_new((void*)__retval__));
8248 }
8249
sgtk_notebook_set_menu_label(SOBJ o_notebook,SOBJ o_child,SOBJ o_menu_label)8250 SOBJ sgtk_notebook_set_menu_label (SOBJ o_notebook, SOBJ o_child, SOBJ o_menu_label)
8251 {
8252 GtkNotebook* notebook;
8253 GtkWidget* child;
8254 GtkWidget* menu_label;
8255
8256 notebook = sgtk_get_Object(o_notebook);
8257 child = sgtk_get_Object(o_child);
8258 menu_label = sgtk_get_Object(o_menu_label);
8259 gtk_notebook_set_menu_label(notebook, child, menu_label);
8260 return(scm_undefined);
8261 }
8262
sgtk_notebook_set_menu_label_text(SOBJ o_notebook,SOBJ o_child,SOBJ o_menu_text)8263 SOBJ sgtk_notebook_set_menu_label_text (SOBJ o_notebook, SOBJ o_child, SOBJ o_menu_text)
8264 {
8265 GtkNotebook* notebook;
8266 GtkWidget* child;
8267 gchar* menu_text;
8268
8269 notebook = sgtk_get_Object(o_notebook);
8270 child = sgtk_get_Object(o_child);
8271 menu_text = scm_getstr(o_menu_text);
8272 gtk_notebook_set_menu_label_text(notebook, child, menu_text);
8273 return(scm_undefined);
8274 }
8275
sgtk_notebook_set_tab_label_packing(SOBJ o_notebook,SOBJ o_child,SOBJ o_expand,SOBJ o_fill,SOBJ o_pack_type)8276 SOBJ sgtk_notebook_set_tab_label_packing (SOBJ o_notebook, SOBJ o_child, SOBJ o_expand, SOBJ o_fill, SOBJ o_pack_type)
8277 {
8278 GtkNotebook* notebook;
8279 GtkWidget* child;
8280 gboolean expand;
8281 gboolean fill;
8282 GtkPackType pack_type;
8283
8284 notebook = sgtk_get_Object(o_notebook);
8285 child = sgtk_get_Object(o_child);
8286 expand = (o_expand != scm_false);
8287 fill = (o_fill != scm_false);
8288 pack_type = sgtk_enumget("GtkPackType", o_pack_type);
8289 gtk_notebook_set_tab_label_packing(notebook, child, expand, fill, pack_type);
8290 return(scm_undefined);
8291 }
8292
8293 #ifdef INCOMPLETE
sgtk_notebook_query_tab_label_packing(SOBJ o_notebook,SOBJ o_child,SOBJ o_expand,SOBJ o_fill,SOBJ o_pack_type)8294 SOBJ sgtk_notebook_query_tab_label_packing (SOBJ o_notebook, SOBJ o_child, SOBJ o_expand, SOBJ o_fill, SOBJ o_pack_type)
8295 {
8296 GtkNotebook* notebook;
8297 GtkWidget* child;
8298 gboolean* expand;
8299 gboolean* fill;
8300 GtkPackType* pack_type;
8301
8302 notebook = sgtk_get_Object(o_notebook);
8303 child = sgtk_get_Object(o_child);
8304 /* +++ undefined gboolean* */
8305 /* +++ undefined gboolean* */
8306 /* +++ undefined GtkPackType* */
8307 gtk_notebook_query_tab_label_packing(notebook, child, expand, fill, pack_type);
8308 return(scm_undefined);
8309 }
8310 #endif /* INCOMPLETE */
8311
sgtk_notebook_reorder_child(SOBJ o_notebook,SOBJ o_child,SOBJ o_position)8312 SOBJ sgtk_notebook_reorder_child (SOBJ o_notebook, SOBJ o_child, SOBJ o_position)
8313 {
8314 GtkNotebook* notebook;
8315 GtkWidget* child;
8316 gint position;
8317
8318 notebook = sgtk_get_Object(o_notebook);
8319 child = sgtk_get_Object(o_child);
8320 position = scm_number2long(o_position);
8321 gtk_notebook_reorder_child(notebook, child, position);
8322 return(scm_undefined);
8323 }
8324
sgtk_object_post_arg_parsing_init()8325 SOBJ sgtk_object_post_arg_parsing_init ()
8326 {
8327
8328 gtk_object_post_arg_parsing_init();
8329 return(scm_undefined);
8330 }
8331
sgtk_object_init_type()8332 SOBJ sgtk_object_init_type ()
8333 {
8334
8335 gtk_object_init_type();
8336 return(scm_undefined);
8337 }
8338
sgtk_object_get_type()8339 SOBJ sgtk_object_get_type ()
8340 {
8341 GtkType __retval__;
8342
8343 __retval__ = gtk_object_get_type();
8344 return(SCM_MKINUM(__retval__));
8345 }
8346
sgtk_object_destroy(SOBJ o_object)8347 SOBJ sgtk_object_destroy (SOBJ o_object)
8348 {
8349 GtkObject* object;
8350
8351 object = sgtk_get_Object(o_object);
8352 gtk_object_destroy(object);
8353 return(scm_undefined);
8354 }
8355
8356 #ifdef INCOMPLETE
sgtk_object_class_add_signals(SOBJ o_class,SOBJ o_signals,SOBJ o_nsignals)8357 SOBJ sgtk_object_class_add_signals (SOBJ o_class, SOBJ o_signals, SOBJ o_nsignals)
8358 {
8359 GtkObjectClass* class;
8360 guint* signals;
8361 guint nsignals;
8362
8363 /* +++ undefined GtkObjectClass* */
8364 /* +++ undefined guint* */
8365 nsignals = scm_number2long(o_nsignals);
8366 gtk_object_class_add_signals(class, signals, nsignals);
8367 return(scm_undefined);
8368 }
8369 #endif /* INCOMPLETE */
8370
8371 #ifdef INCOMPLETE
sgtk_object_class_user_signal_newv(SOBJ o_class,SOBJ o_name,SOBJ o_signal_flags,SOBJ o_marshaller,SOBJ o_return_val,SOBJ o_nparams,SOBJ o_params)8372 SOBJ sgtk_object_class_user_signal_newv (SOBJ o_class, SOBJ o_name, SOBJ o_signal_flags, SOBJ o_marshaller, SOBJ o_return_val, SOBJ o_nparams, SOBJ o_params)
8373 {
8374 GtkObjectClass* class;
8375 gchar* name;
8376 GtkSignalRunType signal_flags;
8377 GtkSignalMarshaller marshaller;
8378 GtkType return_val;
8379 guint nparams;
8380 GtkType* params;
8381 guint __retval__;
8382
8383 /* +++ undefined GtkObjectClass* */
8384 name = scm_getstr(o_name);
8385 signal_flags = sgtk_flagsget("GtkSignalRunType", o_signal_flags);
8386 /* +++ undefined GtkSignalMarshaller */
8387 return_val = scm_number2long(o_return_val);
8388 nparams = scm_number2long(o_nparams);
8389 /* +++ undefined GtkType* */
8390 __retval__ = gtk_object_class_user_signal_newv(class, name, signal_flags, marshaller, return_val, nparams, params);
8391 return(SCM_MKINUM(__retval__));
8392 }
8393 #endif /* INCOMPLETE */
8394
sgtk_object_sink(SOBJ o_object)8395 SOBJ sgtk_object_sink (SOBJ o_object)
8396 {
8397 GtkObject* object;
8398
8399 object = sgtk_get_Object(o_object);
8400 gtk_object_sink(object);
8401 return(scm_undefined);
8402 }
8403
8404 #ifdef INCOMPLETE
sgtk_object_weakref(SOBJ o_object,SOBJ o_notify,SOBJ o_data)8405 SOBJ sgtk_object_weakref (SOBJ o_object, SOBJ o_notify, SOBJ o_data)
8406 {
8407 GtkObject* object;
8408 GtkDestroyNotify notify;
8409 gpointer data;
8410
8411 object = sgtk_get_Object(o_object);
8412 /* +++ undefined GtkDestroyNotify */
8413 /* +++ get gpointer -> pointer failed */
8414 gtk_object_weakref(object, notify, data);
8415 return(scm_undefined);
8416 }
8417 #endif /* INCOMPLETE */
8418
8419 #ifdef INCOMPLETE
sgtk_object_weakunref(SOBJ o_object,SOBJ o_notify,SOBJ o_data)8420 SOBJ sgtk_object_weakunref (SOBJ o_object, SOBJ o_notify, SOBJ o_data)
8421 {
8422 GtkObject* object;
8423 GtkDestroyNotify notify;
8424 gpointer data;
8425
8426 object = sgtk_get_Object(o_object);
8427 /* +++ undefined GtkDestroyNotify */
8428 /* +++ get gpointer -> pointer failed */
8429 gtk_object_weakunref(object, notify, data);
8430 return(scm_undefined);
8431 }
8432 #endif /* INCOMPLETE */
8433
8434 #ifdef INCOMPLETE
sgtk_object_newv(SOBJ o_object_type,SOBJ o_n_args,SOBJ o_args)8435 SOBJ sgtk_object_newv (SOBJ o_object_type, SOBJ o_n_args, SOBJ o_args)
8436 {
8437 GtkType object_type;
8438 guint n_args;
8439 GtkArg* args;
8440 GtkObject* __retval__;
8441
8442 object_type = scm_number2long(o_object_type);
8443 n_args = scm_number2long(o_n_args);
8444 /* +++ undefined GtkArg* */
8445 __retval__ = gtk_object_newv(object_type, n_args, args);
8446 return(sgtk_object_new((void*)__retval__));
8447 }
8448 #endif /* INCOMPLETE */
8449
8450 #ifdef INCOMPLETE
sgtk_object_setv(SOBJ o_object,SOBJ o_n_args,SOBJ o_args)8451 SOBJ sgtk_object_setv (SOBJ o_object, SOBJ o_n_args, SOBJ o_args)
8452 {
8453 GtkObject* object;
8454 guint n_args;
8455 GtkArg* args;
8456
8457 object = sgtk_get_Object(o_object);
8458 n_args = scm_number2long(o_n_args);
8459 /* +++ undefined GtkArg* */
8460 gtk_object_setv(object, n_args, args);
8461 return(scm_undefined);
8462 }
8463 #endif /* INCOMPLETE */
8464
8465 #ifdef INCOMPLETE
sgtk_object_getv(SOBJ o_object,SOBJ o_n_args,SOBJ o_args)8466 SOBJ sgtk_object_getv (SOBJ o_object, SOBJ o_n_args, SOBJ o_args)
8467 {
8468 GtkObject* object;
8469 guint n_args;
8470 GtkArg* args;
8471
8472 object = sgtk_get_Object(o_object);
8473 n_args = scm_number2long(o_n_args);
8474 /* +++ undefined GtkArg* */
8475 gtk_object_getv(object, n_args, args);
8476 return(scm_undefined);
8477 }
8478 #endif /* INCOMPLETE */
8479
8480 #ifdef INCOMPLETE
sgtk_object_arg_set(SOBJ o_object,SOBJ o_arg,SOBJ o_info)8481 SOBJ sgtk_object_arg_set (SOBJ o_object, SOBJ o_arg, SOBJ o_info)
8482 {
8483 GtkObject* object;
8484 GtkArg* arg;
8485 GtkArgInfo* info;
8486
8487 object = sgtk_get_Object(o_object);
8488 /* +++ undefined GtkArg* */
8489 /* +++ undefined GtkArgInfo* */
8490 gtk_object_arg_set(object, arg, info);
8491 return(scm_undefined);
8492 }
8493 #endif /* INCOMPLETE */
8494
8495 #ifdef INCOMPLETE
sgtk_object_arg_get(SOBJ o_object,SOBJ o_arg,SOBJ o_info)8496 SOBJ sgtk_object_arg_get (SOBJ o_object, SOBJ o_arg, SOBJ o_info)
8497 {
8498 GtkObject* object;
8499 GtkArg* arg;
8500 GtkArgInfo* info;
8501
8502 object = sgtk_get_Object(o_object);
8503 /* +++ undefined GtkArg* */
8504 /* +++ undefined GtkArgInfo* */
8505 gtk_object_arg_get(object, arg, info);
8506 return(scm_undefined);
8507 }
8508 #endif /* INCOMPLETE */
8509
sgtk_object_default_construct(SOBJ o_object)8510 SOBJ sgtk_object_default_construct (SOBJ o_object)
8511 {
8512 GtkObject* object;
8513
8514 object = sgtk_get_Object(o_object);
8515 gtk_object_default_construct(object);
8516 return(scm_undefined);
8517 }
8518
sgtk_object_constructed(SOBJ o_object)8519 SOBJ sgtk_object_constructed (SOBJ o_object)
8520 {
8521 GtkObject* object;
8522
8523 object = sgtk_get_Object(o_object);
8524 gtk_object_constructed(object);
8525 return(scm_undefined);
8526 }
8527
sgtk_object_add_arg_type(SOBJ o_arg_name,SOBJ o_arg_type,SOBJ o_arg_flags,SOBJ o_arg_id)8528 SOBJ sgtk_object_add_arg_type (SOBJ o_arg_name, SOBJ o_arg_type, SOBJ o_arg_flags, SOBJ o_arg_id)
8529 {
8530 char* arg_name;
8531 GtkType arg_type;
8532 guint arg_flags;
8533 guint arg_id;
8534
8535 arg_name = scm_getstr(o_arg_name);
8536 arg_type = scm_number2long(o_arg_type);
8537 arg_flags = scm_number2long(o_arg_flags);
8538 arg_id = scm_number2long(o_arg_id);
8539 gtk_object_add_arg_type(arg_name, arg_type, arg_flags, arg_id);
8540 return(scm_undefined);
8541 }
8542
8543 #ifdef INCOMPLETE
sgtk_object_args_collect(SOBJ o_object_type,SOBJ o_arg_list_p,SOBJ o_info_list_p,SOBJ o_first_arg_name,SOBJ o_var_args)8544 SOBJ sgtk_object_args_collect (SOBJ o_object_type, SOBJ o_arg_list_p, SOBJ o_info_list_p, SOBJ o_first_arg_name, SOBJ o_var_args)
8545 {
8546 GtkType object_type;
8547 GSList** arg_list_p;
8548 GSList** info_list_p;
8549 gchar* first_arg_name;
8550 va_list var_args;
8551 gchar* __retval__;
8552
8553 object_type = scm_number2long(o_object_type);
8554 /* +++ undefined GSList** */
8555 /* +++ undefined GSList** */
8556 first_arg_name = scm_getstr(o_first_arg_name);
8557 /* +++ undefined va_list */
8558 __retval__ = gtk_object_args_collect(object_type, arg_list_p, info_list_p, first_arg_name, var_args);
8559 return(scm_mkstring(__retval__));
8560 }
8561 #endif /* INCOMPLETE */
8562
8563 #ifdef INCOMPLETE
sgtk_object_arg_get_info(SOBJ o_object_type,SOBJ o_arg_name,SOBJ o_info_p)8564 SOBJ sgtk_object_arg_get_info (SOBJ o_object_type, SOBJ o_arg_name, SOBJ o_info_p)
8565 {
8566 GtkType object_type;
8567 gchar* arg_name;
8568 GtkArgInfo** info_p;
8569 gchar* __retval__;
8570
8571 object_type = scm_number2long(o_object_type);
8572 arg_name = scm_getstr(o_arg_name);
8573 /* +++ undefined GtkArgInfo** */
8574 __retval__ = gtk_object_arg_get_info(object_type, arg_name, info_p);
8575 return(scm_mkstring(__retval__));
8576 }
8577 #endif /* INCOMPLETE */
8578
8579 #ifdef INCOMPLETE
8580 /* +++ return type GtkArg* not defined */
sgtk_object_query_args(SOBJ o_class_type,SOBJ o_arg_flags,SOBJ o_n_args)8581 SOBJ sgtk_object_query_args (SOBJ o_class_type, SOBJ o_arg_flags, SOBJ o_n_args)
8582 {
8583 GtkType class_type;
8584 guint32** arg_flags;
8585 guint* n_args;
8586 GtkArg* __retval__;
8587
8588 class_type = scm_number2long(o_class_type);
8589 /* +++ undefined guint32** */
8590 /* +++ undefined guint* */
8591 __retval__ = gtk_object_query_args(class_type, arg_flags, n_args);
8592 /* +++ don't know how to generate GtkArg* */
8593 return(scm_undefined);
8594 }
8595 #endif /* INCOMPLETE */
8596
8597 #ifdef INCOMPLETE
sgtk_object_set_data_by_id(SOBJ o_object,SOBJ o_data_id,SOBJ o_data)8598 SOBJ sgtk_object_set_data_by_id (SOBJ o_object, SOBJ o_data_id, SOBJ o_data)
8599 {
8600 GtkObject* object;
8601 GQuark data_id;
8602 gpointer data;
8603
8604 object = sgtk_get_Object(o_object);
8605 /* +++ undefined GQuark */
8606 /* +++ get gpointer -> pointer failed */
8607 gtk_object_set_data_by_id(object, data_id, data);
8608 return(scm_undefined);
8609 }
8610 #endif /* INCOMPLETE */
8611
8612 #ifdef INCOMPLETE
sgtk_object_set_data(SOBJ o_object,SOBJ o_key,SOBJ o_data)8613 SOBJ sgtk_object_set_data (SOBJ o_object, SOBJ o_key, SOBJ o_data)
8614 {
8615 GtkObject* object;
8616 gchar* key;
8617 gpointer data;
8618
8619 object = sgtk_get_Object(o_object);
8620 key = scm_getstr(o_key);
8621 /* +++ get gpointer -> pointer failed */
8622 gtk_object_set_data(object, key, data);
8623 return(scm_undefined);
8624 }
8625 #endif /* INCOMPLETE */
8626
8627 #ifdef INCOMPLETE
sgtk_object_set_data_by_id_full(SOBJ o_object,SOBJ o_data_id,SOBJ o_data,SOBJ o_destroy)8628 SOBJ sgtk_object_set_data_by_id_full (SOBJ o_object, SOBJ o_data_id, SOBJ o_data, SOBJ o_destroy)
8629 {
8630 GtkObject* object;
8631 GQuark data_id;
8632 gpointer data;
8633 GtkDestroyNotify destroy;
8634
8635 object = sgtk_get_Object(o_object);
8636 /* +++ undefined GQuark */
8637 /* +++ get gpointer -> pointer failed */
8638 /* +++ undefined GtkDestroyNotify */
8639 gtk_object_set_data_by_id_full(object, data_id, data, destroy);
8640 return(scm_undefined);
8641 }
8642 #endif /* INCOMPLETE */
8643
8644 #ifdef INCOMPLETE
sgtk_object_set_data_full(SOBJ o_object,SOBJ o_key,SOBJ o_data,SOBJ o_destroy)8645 SOBJ sgtk_object_set_data_full (SOBJ o_object, SOBJ o_key, SOBJ o_data, SOBJ o_destroy)
8646 {
8647 GtkObject* object;
8648 gchar* key;
8649 gpointer data;
8650 GtkDestroyNotify destroy;
8651
8652 object = sgtk_get_Object(o_object);
8653 key = scm_getstr(o_key);
8654 /* +++ get gpointer -> pointer failed */
8655 /* +++ undefined GtkDestroyNotify */
8656 gtk_object_set_data_full(object, key, data, destroy);
8657 return(scm_undefined);
8658 }
8659 #endif /* INCOMPLETE */
8660
8661 #ifdef INCOMPLETE
sgtk_object_get_data_by_id(SOBJ o_object,SOBJ o_data_id)8662 SOBJ sgtk_object_get_data_by_id (SOBJ o_object, SOBJ o_data_id)
8663 {
8664 GtkObject* object;
8665 GQuark data_id;
8666 gpointer __retval__;
8667
8668 object = sgtk_get_Object(o_object);
8669 /* +++ undefined GQuark */
8670 __retval__ = gtk_object_get_data_by_id(object, data_id);
8671 return(scm_mkpointer(__retval__));
8672 }
8673 #endif /* INCOMPLETE */
8674
sgtk_object_get_data(SOBJ o_object,SOBJ o_key)8675 SOBJ sgtk_object_get_data (SOBJ o_object, SOBJ o_key)
8676 {
8677 GtkObject* object;
8678 gchar* key;
8679 gpointer __retval__;
8680
8681 object = sgtk_get_Object(o_object);
8682 key = scm_getstr(o_key);
8683 __retval__ = gtk_object_get_data(object, key);
8684 return(scm_mkpointer(__retval__));
8685 }
8686
8687 #ifdef INCOMPLETE
sgtk_object_remove_data_by_id(SOBJ o_object,SOBJ o_data_id)8688 SOBJ sgtk_object_remove_data_by_id (SOBJ o_object, SOBJ o_data_id)
8689 {
8690 GtkObject* object;
8691 GQuark data_id;
8692
8693 object = sgtk_get_Object(o_object);
8694 /* +++ undefined GQuark */
8695 gtk_object_remove_data_by_id(object, data_id);
8696 return(scm_undefined);
8697 }
8698 #endif /* INCOMPLETE */
8699
sgtk_object_remove_data(SOBJ o_object,SOBJ o_key)8700 SOBJ sgtk_object_remove_data (SOBJ o_object, SOBJ o_key)
8701 {
8702 GtkObject* object;
8703 gchar* key;
8704
8705 object = sgtk_get_Object(o_object);
8706 key = scm_getstr(o_key);
8707 gtk_object_remove_data(object, key);
8708 return(scm_undefined);
8709 }
8710
8711 #ifdef INCOMPLETE
sgtk_object_remove_no_notify_by_id(SOBJ o_object,SOBJ o_key_id)8712 SOBJ sgtk_object_remove_no_notify_by_id (SOBJ o_object, SOBJ o_key_id)
8713 {
8714 GtkObject* object;
8715 GQuark key_id;
8716
8717 object = sgtk_get_Object(o_object);
8718 /* +++ undefined GQuark */
8719 gtk_object_remove_no_notify_by_id(object, key_id);
8720 return(scm_undefined);
8721 }
8722 #endif /* INCOMPLETE */
8723
sgtk_object_remove_no_notify(SOBJ o_object,SOBJ o_key)8724 SOBJ sgtk_object_remove_no_notify (SOBJ o_object, SOBJ o_key)
8725 {
8726 GtkObject* object;
8727 gchar* key;
8728
8729 object = sgtk_get_Object(o_object);
8730 key = scm_getstr(o_key);
8731 gtk_object_remove_no_notify(object, key);
8732 return(scm_undefined);
8733 }
8734
8735 #ifdef INCOMPLETE
sgtk_object_set_user_data(SOBJ o_object,SOBJ o_data)8736 SOBJ sgtk_object_set_user_data (SOBJ o_object, SOBJ o_data)
8737 {
8738 GtkObject* object;
8739 gpointer data;
8740
8741 object = sgtk_get_Object(o_object);
8742 /* +++ get gpointer -> pointer failed */
8743 gtk_object_set_user_data(object, data);
8744 return(scm_undefined);
8745 }
8746 #endif /* INCOMPLETE */
8747
sgtk_object_get_user_data(SOBJ o_object)8748 SOBJ sgtk_object_get_user_data (SOBJ o_object)
8749 {
8750 GtkObject* object;
8751 gpointer __retval__;
8752
8753 object = sgtk_get_Object(o_object);
8754 __retval__ = gtk_object_get_user_data(object);
8755 return(scm_mkpointer(__retval__));
8756 }
8757
sgtk_object_ref(SOBJ o_object)8758 SOBJ sgtk_object_ref (SOBJ o_object)
8759 {
8760 GtkObject* object;
8761
8762 object = sgtk_get_Object(o_object);
8763 gtk_object_ref(object);
8764 return(scm_undefined);
8765 }
8766
sgtk_object_unref(SOBJ o_object)8767 SOBJ sgtk_object_unref (SOBJ o_object)
8768 {
8769 GtkObject* object;
8770
8771 object = sgtk_get_Object(o_object);
8772 gtk_object_unref(object);
8773 return(scm_undefined);
8774 }
8775
sgtk_trace_referencing(SOBJ o_object,SOBJ o_func,SOBJ o_dummy,SOBJ o_line,SOBJ o_do_ref)8776 SOBJ sgtk_trace_referencing (SOBJ o_object, SOBJ o_func, SOBJ o_dummy, SOBJ o_line, SOBJ o_do_ref)
8777 {
8778 GtkObject* object;
8779 gchar* func;
8780 guint dummy;
8781 guint line;
8782 gboolean do_ref;
8783
8784 object = sgtk_get_Object(o_object);
8785 func = scm_getstr(o_func);
8786 dummy = scm_number2long(o_dummy);
8787 line = scm_number2long(o_line);
8788 do_ref = (o_do_ref != scm_false);
8789 gtk_trace_referencing(object, func, dummy, line, do_ref);
8790 return(scm_undefined);
8791 }
8792
sgtk_option_menu_get_type()8793 SOBJ sgtk_option_menu_get_type ()
8794 {
8795 GtkType __retval__;
8796
8797 __retval__ = gtk_option_menu_get_type();
8798 return(SCM_MKINUM(__retval__));
8799 }
8800
sgtk_option_menu_new()8801 SOBJ sgtk_option_menu_new ()
8802 {
8803 GtkWidget* __retval__;
8804
8805 __retval__ = gtk_option_menu_new();
8806 return(sgtk_object_new((void*)__retval__));
8807 }
8808
sgtk_option_menu_get_menu(SOBJ o_option_menu)8809 SOBJ sgtk_option_menu_get_menu (SOBJ o_option_menu)
8810 {
8811 GtkOptionMenu* option_menu;
8812 GtkWidget* __retval__;
8813
8814 option_menu = sgtk_get_Object(o_option_menu);
8815 __retval__ = gtk_option_menu_get_menu(option_menu);
8816 return(sgtk_object_new((void*)__retval__));
8817 }
8818
sgtk_option_menu_set_menu(SOBJ o_option_menu,SOBJ o_menu)8819 SOBJ sgtk_option_menu_set_menu (SOBJ o_option_menu, SOBJ o_menu)
8820 {
8821 GtkOptionMenu* option_menu;
8822 GtkWidget* menu;
8823
8824 option_menu = sgtk_get_Object(o_option_menu);
8825 menu = sgtk_get_Object(o_menu);
8826 gtk_option_menu_set_menu(option_menu, menu);
8827 return(scm_undefined);
8828 }
8829
sgtk_option_menu_remove_menu(SOBJ o_option_menu)8830 SOBJ sgtk_option_menu_remove_menu (SOBJ o_option_menu)
8831 {
8832 GtkOptionMenu* option_menu;
8833
8834 option_menu = sgtk_get_Object(o_option_menu);
8835 gtk_option_menu_remove_menu(option_menu);
8836 return(scm_undefined);
8837 }
8838
sgtk_option_menu_set_history(SOBJ o_option_menu,SOBJ o_index)8839 SOBJ sgtk_option_menu_set_history (SOBJ o_option_menu, SOBJ o_index)
8840 {
8841 GtkOptionMenu* option_menu;
8842 guint index;
8843
8844 option_menu = sgtk_get_Object(o_option_menu);
8845 index = scm_number2long(o_index);
8846 gtk_option_menu_set_history(option_menu, index);
8847 return(scm_undefined);
8848 }
8849
sgtk_packer_get_type()8850 SOBJ sgtk_packer_get_type ()
8851 {
8852 GtkType __retval__;
8853
8854 __retval__ = gtk_packer_get_type();
8855 return(SCM_MKINUM(__retval__));
8856 }
8857
sgtk_packer_set_spacing(SOBJ o_packer,SOBJ o_spacing)8858 SOBJ sgtk_packer_set_spacing (SOBJ o_packer, SOBJ o_spacing)
8859 {
8860 GtkPacker* packer;
8861 guint spacing;
8862
8863 packer = sgtk_get_Object(o_packer);
8864 spacing = scm_number2long(o_spacing);
8865 gtk_packer_set_spacing(packer, spacing);
8866 return(scm_undefined);
8867 }
8868
sgtk_packer_new()8869 SOBJ sgtk_packer_new ()
8870 {
8871 GtkWidget* __retval__;
8872
8873 __retval__ = gtk_packer_new();
8874 return(sgtk_object_new((void*)__retval__));
8875 }
8876
sgtk_packer_set_default_border_width(SOBJ o_packer,SOBJ o_border)8877 SOBJ sgtk_packer_set_default_border_width (SOBJ o_packer, SOBJ o_border)
8878 {
8879 GtkPacker* packer;
8880 guint border;
8881
8882 packer = sgtk_get_Object(o_packer);
8883 border = scm_number2long(o_border);
8884 gtk_packer_set_default_border_width(packer, border);
8885 return(scm_undefined);
8886 }
8887
sgtk_packer_set_default_pad(SOBJ o_packer,SOBJ o_pad_x,SOBJ o_pad_y)8888 SOBJ sgtk_packer_set_default_pad (SOBJ o_packer, SOBJ o_pad_x, SOBJ o_pad_y)
8889 {
8890 GtkPacker* packer;
8891 guint pad_x;
8892 guint pad_y;
8893
8894 packer = sgtk_get_Object(o_packer);
8895 pad_x = scm_number2long(o_pad_x);
8896 pad_y = scm_number2long(o_pad_y);
8897 gtk_packer_set_default_pad(packer, pad_x, pad_y);
8898 return(scm_undefined);
8899 }
8900
sgtk_packer_set_default_ipad(SOBJ o_packer,SOBJ o_i_pad_x,SOBJ o_i_pad_y)8901 SOBJ sgtk_packer_set_default_ipad (SOBJ o_packer, SOBJ o_i_pad_x, SOBJ o_i_pad_y)
8902 {
8903 GtkPacker* packer;
8904 guint i_pad_x;
8905 guint i_pad_y;
8906
8907 packer = sgtk_get_Object(o_packer);
8908 i_pad_x = scm_number2long(o_i_pad_x);
8909 i_pad_y = scm_number2long(o_i_pad_y);
8910 gtk_packer_set_default_ipad(packer, i_pad_x, i_pad_y);
8911 return(scm_undefined);
8912 }
8913
sgtk_packer_add_defaults(SOBJ o_packer,SOBJ o_child,SOBJ o_side,SOBJ o_anchor,SOBJ o_options)8914 SOBJ sgtk_packer_add_defaults (SOBJ o_packer, SOBJ o_child, SOBJ o_side, SOBJ o_anchor, SOBJ o_options)
8915 {
8916 GtkPacker* packer;
8917 GtkWidget* child;
8918 GtkSideType side;
8919 GtkAnchorType anchor;
8920 GtkPackerOptions options;
8921
8922 packer = sgtk_get_Object(o_packer);
8923 child = sgtk_get_Object(o_child);
8924 side = sgtk_enumget("GtkSideType", o_side);
8925 anchor = sgtk_enumget("GtkAnchorType", o_anchor);
8926 options = sgtk_flagsget("GtkPackerOptions", o_options);
8927 gtk_packer_add_defaults(packer, child, side, anchor, options);
8928 return(scm_undefined);
8929 }
8930
sgtk_packer_add(SOBJ o_packer,SOBJ o_child,SOBJ o_side,SOBJ o_anchor,SOBJ o_options,SOBJ o_border_width,SOBJ o_pad_x,SOBJ o_pad_y,SOBJ o_i_pad_x,SOBJ o_i_pad_y)8931 SOBJ sgtk_packer_add (SOBJ o_packer, SOBJ o_child, SOBJ o_side, SOBJ o_anchor, SOBJ o_options, SOBJ o_border_width, SOBJ o_pad_x, SOBJ o_pad_y, SOBJ o_i_pad_x, SOBJ o_i_pad_y)
8932 {
8933 GtkPacker* packer;
8934 GtkWidget* child;
8935 GtkSideType side;
8936 GtkAnchorType anchor;
8937 GtkPackerOptions options;
8938 guint border_width;
8939 guint pad_x;
8940 guint pad_y;
8941 guint i_pad_x;
8942 guint i_pad_y;
8943
8944 packer = sgtk_get_Object(o_packer);
8945 child = sgtk_get_Object(o_child);
8946 side = sgtk_enumget("GtkSideType", o_side);
8947 anchor = sgtk_enumget("GtkAnchorType", o_anchor);
8948 options = sgtk_flagsget("GtkPackerOptions", o_options);
8949 border_width = scm_number2long(o_border_width);
8950 pad_x = scm_number2long(o_pad_x);
8951 pad_y = scm_number2long(o_pad_y);
8952 i_pad_x = scm_number2long(o_i_pad_x);
8953 i_pad_y = scm_number2long(o_i_pad_y);
8954 gtk_packer_add(packer, child, side, anchor, options, border_width, pad_x, pad_y, i_pad_x, i_pad_y);
8955 return(scm_undefined);
8956 }
8957
sgtk_packer_set_child_packing(SOBJ o_packer,SOBJ o_child,SOBJ o_side,SOBJ o_anchor,SOBJ o_options,SOBJ o_border_width,SOBJ o_pad_x,SOBJ o_pad_y,SOBJ o_i_pad_x,SOBJ o_i_pad_y)8958 SOBJ sgtk_packer_set_child_packing (SOBJ o_packer, SOBJ o_child, SOBJ o_side, SOBJ o_anchor, SOBJ o_options, SOBJ o_border_width, SOBJ o_pad_x, SOBJ o_pad_y, SOBJ o_i_pad_x, SOBJ o_i_pad_y)
8959 {
8960 GtkPacker* packer;
8961 GtkWidget* child;
8962 GtkSideType side;
8963 GtkAnchorType anchor;
8964 GtkPackerOptions options;
8965 guint border_width;
8966 guint pad_x;
8967 guint pad_y;
8968 guint i_pad_x;
8969 guint i_pad_y;
8970
8971 packer = sgtk_get_Object(o_packer);
8972 child = sgtk_get_Object(o_child);
8973 side = sgtk_enumget("GtkSideType", o_side);
8974 anchor = sgtk_enumget("GtkAnchorType", o_anchor);
8975 options = sgtk_flagsget("GtkPackerOptions", o_options);
8976 border_width = scm_number2long(o_border_width);
8977 pad_x = scm_number2long(o_pad_x);
8978 pad_y = scm_number2long(o_pad_y);
8979 i_pad_x = scm_number2long(o_i_pad_x);
8980 i_pad_y = scm_number2long(o_i_pad_y);
8981 gtk_packer_set_child_packing(packer, child, side, anchor, options, border_width, pad_x, pad_y, i_pad_x, i_pad_y);
8982 return(scm_undefined);
8983 }
8984
sgtk_packer_reorder_child(SOBJ o_packer,SOBJ o_child,SOBJ o_position)8985 SOBJ sgtk_packer_reorder_child (SOBJ o_packer, SOBJ o_child, SOBJ o_position)
8986 {
8987 GtkPacker* packer;
8988 GtkWidget* child;
8989 gint position;
8990
8991 packer = sgtk_get_Object(o_packer);
8992 child = sgtk_get_Object(o_child);
8993 position = scm_number2long(o_position);
8994 gtk_packer_reorder_child(packer, child, position);
8995 return(scm_undefined);
8996 }
8997
sgtk_paned_get_type()8998 SOBJ sgtk_paned_get_type ()
8999 {
9000 GtkType __retval__;
9001
9002 __retval__ = gtk_paned_get_type();
9003 return(SCM_MKINUM(__retval__));
9004 }
9005
sgtk_paned_add1(SOBJ o_paned,SOBJ o_widget)9006 SOBJ sgtk_paned_add1 (SOBJ o_paned, SOBJ o_widget)
9007 {
9008 GtkPaned* paned;
9009 GtkWidget* widget;
9010
9011 paned = sgtk_get_Object(o_paned);
9012 widget = sgtk_get_Object(o_widget);
9013 gtk_paned_add1(paned, widget);
9014 return(scm_undefined);
9015 }
9016
sgtk_paned_add2(SOBJ o_paned,SOBJ o_widget)9017 SOBJ sgtk_paned_add2 (SOBJ o_paned, SOBJ o_widget)
9018 {
9019 GtkPaned* paned;
9020 GtkWidget* widget;
9021
9022 paned = sgtk_get_Object(o_paned);
9023 widget = sgtk_get_Object(o_widget);
9024 gtk_paned_add2(paned, widget);
9025 return(scm_undefined);
9026 }
9027
sgtk_paned_pack1(SOBJ o_paned,SOBJ o_child,SOBJ o_resize,SOBJ o_shrink)9028 SOBJ sgtk_paned_pack1 (SOBJ o_paned, SOBJ o_child, SOBJ o_resize, SOBJ o_shrink)
9029 {
9030 GtkPaned* paned;
9031 GtkWidget* child;
9032 gboolean resize;
9033 gboolean shrink;
9034
9035 paned = sgtk_get_Object(o_paned);
9036 child = sgtk_get_Object(o_child);
9037 resize = (o_resize != scm_false);
9038 shrink = (o_shrink != scm_false);
9039 gtk_paned_pack1(paned, child, resize, shrink);
9040 return(scm_undefined);
9041 }
9042
sgtk_paned_pack2(SOBJ o_paned,SOBJ o_child,SOBJ o_resize,SOBJ o_shrink)9043 SOBJ sgtk_paned_pack2 (SOBJ o_paned, SOBJ o_child, SOBJ o_resize, SOBJ o_shrink)
9044 {
9045 GtkPaned* paned;
9046 GtkWidget* child;
9047 gboolean resize;
9048 gboolean shrink;
9049
9050 paned = sgtk_get_Object(o_paned);
9051 child = sgtk_get_Object(o_child);
9052 resize = (o_resize != scm_false);
9053 shrink = (o_shrink != scm_false);
9054 gtk_paned_pack2(paned, child, resize, shrink);
9055 return(scm_undefined);
9056 }
9057
sgtk_paned_set_position(SOBJ o_paned,SOBJ o_position)9058 SOBJ sgtk_paned_set_position (SOBJ o_paned, SOBJ o_position)
9059 {
9060 GtkPaned* paned;
9061 gint position;
9062
9063 paned = sgtk_get_Object(o_paned);
9064 position = scm_number2long(o_position);
9065 gtk_paned_set_position(paned, position);
9066 return(scm_undefined);
9067 }
9068
sgtk_paned_set_handle_size(SOBJ o_paned,SOBJ o_size)9069 SOBJ sgtk_paned_set_handle_size (SOBJ o_paned, SOBJ o_size)
9070 {
9071 GtkPaned* paned;
9072 guint16 size;
9073
9074 paned = sgtk_get_Object(o_paned);
9075 size = scm_number2long(o_size);
9076 gtk_paned_set_handle_size(paned, size);
9077 return(scm_undefined);
9078 }
9079
sgtk_paned_set_gutter_size(SOBJ o_paned,SOBJ o_size)9080 SOBJ sgtk_paned_set_gutter_size (SOBJ o_paned, SOBJ o_size)
9081 {
9082 GtkPaned* paned;
9083 guint16 size;
9084
9085 paned = sgtk_get_Object(o_paned);
9086 size = scm_number2long(o_size);
9087 gtk_paned_set_gutter_size(paned, size);
9088 return(scm_undefined);
9089 }
9090
sgtk_paned_compute_position(SOBJ o_paned,SOBJ o_allocation,SOBJ o_child1_req,SOBJ o_child2_req)9091 SOBJ sgtk_paned_compute_position (SOBJ o_paned, SOBJ o_allocation, SOBJ o_child1_req, SOBJ o_child2_req)
9092 {
9093 GtkPaned* paned;
9094 gint allocation;
9095 gint child1_req;
9096 gint child2_req;
9097
9098 paned = sgtk_get_Object(o_paned);
9099 allocation = scm_number2long(o_allocation);
9100 child1_req = scm_number2long(o_child1_req);
9101 child2_req = scm_number2long(o_child2_req);
9102 gtk_paned_compute_position(paned, allocation, child1_req, child2_req);
9103 return(scm_undefined);
9104 }
9105
sgtk_pixmap_get_type()9106 SOBJ sgtk_pixmap_get_type ()
9107 {
9108 GtkType __retval__;
9109
9110 __retval__ = gtk_pixmap_get_type();
9111 return(SCM_MKINUM(__retval__));
9112 }
9113
sgtk_pixmap_new(SOBJ o_val,SOBJ o_mask)9114 SOBJ sgtk_pixmap_new (SOBJ o_val, SOBJ o_mask)
9115 {
9116 GdkPixmap* val;
9117 GdkBitmap* mask;
9118 GtkWidget* __retval__;
9119
9120 val = sgdk_get_Window(o_val);
9121 mask = sgdk_get_Window(o_mask);
9122 __retval__ = gtk_pixmap_new(val, mask);
9123 return(sgtk_object_new((void*)__retval__));
9124 }
9125
sgtk_pixmap_set(SOBJ o_pixmap,SOBJ o_val,SOBJ o_mask)9126 SOBJ sgtk_pixmap_set (SOBJ o_pixmap, SOBJ o_val, SOBJ o_mask)
9127 {
9128 GtkPixmap* pixmap;
9129 GdkPixmap* val;
9130 GdkBitmap* mask;
9131
9132 pixmap = sgtk_get_Object(o_pixmap);
9133 val = sgdk_get_Window(o_val);
9134 mask = sgdk_get_Window(o_mask);
9135 gtk_pixmap_set(pixmap, val, mask);
9136 return(scm_undefined);
9137 }
9138
9139 #ifdef INCOMPLETE
sgtk_pixmap_get(SOBJ o_pixmap,SOBJ o_val,SOBJ o_mask)9140 SOBJ sgtk_pixmap_get (SOBJ o_pixmap, SOBJ o_val, SOBJ o_mask)
9141 {
9142 GtkPixmap* pixmap;
9143 GdkPixmap** val;
9144 GdkBitmap** mask;
9145
9146 pixmap = sgtk_get_Object(o_pixmap);
9147 /* +++ undefined GdkPixmap** */
9148 /* +++ undefined GdkBitmap** */
9149 gtk_pixmap_get(pixmap, val, mask);
9150 return(scm_undefined);
9151 }
9152 #endif /* INCOMPLETE */
9153
sgtk_pixmap_set_build_insensitive(SOBJ o_pixmap,SOBJ o_build)9154 SOBJ sgtk_pixmap_set_build_insensitive (SOBJ o_pixmap, SOBJ o_build)
9155 {
9156 GtkPixmap* pixmap;
9157 guint build;
9158
9159 pixmap = sgtk_get_Object(o_pixmap);
9160 build = scm_number2long(o_build);
9161 gtk_pixmap_set_build_insensitive(pixmap, build);
9162 return(scm_undefined);
9163 }
9164
sgtk_plug_get_type()9165 SOBJ sgtk_plug_get_type ()
9166 {
9167 guint __retval__;
9168
9169 __retval__ = gtk_plug_get_type();
9170 return(SCM_MKINUM(__retval__));
9171 }
9172
sgtk_plug_construct(SOBJ o_plug,SOBJ o_socket_id)9173 SOBJ sgtk_plug_construct (SOBJ o_plug, SOBJ o_socket_id)
9174 {
9175 GtkPlug* plug;
9176 guint32 socket_id;
9177
9178 plug = sgtk_get_Object(o_plug);
9179 socket_id = scm_number2long(o_socket_id);
9180 gtk_plug_construct(plug, socket_id);
9181 return(scm_undefined);
9182 }
9183
sgtk_plug_new(SOBJ o_socket_id)9184 SOBJ sgtk_plug_new (SOBJ o_socket_id)
9185 {
9186 guint32 socket_id;
9187 GtkWidget* __retval__;
9188
9189 socket_id = scm_number2long(o_socket_id);
9190 __retval__ = gtk_plug_new(socket_id);
9191 return(sgtk_object_new((void*)__retval__));
9192 }
9193
sgtk_preview_get_type()9194 SOBJ sgtk_preview_get_type ()
9195 {
9196 GtkType __retval__;
9197
9198 __retval__ = gtk_preview_get_type();
9199 return(SCM_MKINUM(__retval__));
9200 }
9201
sgtk_preview_reset()9202 SOBJ sgtk_preview_reset ()
9203 {
9204
9205 gtk_preview_reset();
9206 return(scm_undefined);
9207 }
9208
sgtk_preview_uninit()9209 SOBJ sgtk_preview_uninit ()
9210 {
9211
9212 gtk_preview_uninit();
9213 return(scm_undefined);
9214 }
9215
sgtk_preview_new(SOBJ o_type)9216 SOBJ sgtk_preview_new (SOBJ o_type)
9217 {
9218 GtkPreviewType type;
9219 GtkWidget* __retval__;
9220
9221 type = sgtk_enumget("GtkPreviewType", o_type);
9222 __retval__ = gtk_preview_new(type);
9223 return(sgtk_object_new((void*)__retval__));
9224 }
9225
sgtk_preview_size(SOBJ o_preview,SOBJ o_width,SOBJ o_height)9226 SOBJ sgtk_preview_size (SOBJ o_preview, SOBJ o_width, SOBJ o_height)
9227 {
9228 GtkPreview* preview;
9229 gint width;
9230 gint height;
9231
9232 preview = sgtk_get_Object(o_preview);
9233 width = scm_number2long(o_width);
9234 height = scm_number2long(o_height);
9235 gtk_preview_size(preview, width, height);
9236 return(scm_undefined);
9237 }
9238
sgtk_preview_put(SOBJ o_preview,SOBJ o_window,SOBJ o_gc,SOBJ o_srcx,SOBJ o_srcy,SOBJ o_destx,SOBJ o_desty,SOBJ o_width,SOBJ o_height)9239 SOBJ sgtk_preview_put (SOBJ o_preview, SOBJ o_window, SOBJ o_gc, SOBJ o_srcx, SOBJ o_srcy, SOBJ o_destx, SOBJ o_desty, SOBJ o_width, SOBJ o_height)
9240 {
9241 GtkPreview* preview;
9242 GdkWindow* window;
9243 GdkGC* gc;
9244 gint srcx;
9245 gint srcy;
9246 gint destx;
9247 gint desty;
9248 gint width;
9249 gint height;
9250
9251 preview = sgtk_get_Object(o_preview);
9252 window = sgdk_get_Window(o_window);
9253 gc = sgdk_get_GC(o_gc);
9254 srcx = scm_number2long(o_srcx);
9255 srcy = scm_number2long(o_srcy);
9256 destx = scm_number2long(o_destx);
9257 desty = scm_number2long(o_desty);
9258 width = scm_number2long(o_width);
9259 height = scm_number2long(o_height);
9260 gtk_preview_put(preview, window, gc, srcx, srcy, destx, desty, width, height);
9261 return(scm_undefined);
9262 }
9263
sgtk_preview_draw_row(SOBJ o_preview,SOBJ o_data,SOBJ o_x,SOBJ o_y,SOBJ o_w)9264 SOBJ sgtk_preview_draw_row (SOBJ o_preview, SOBJ o_data, SOBJ o_x, SOBJ o_y, SOBJ o_w)
9265 {
9266 GtkPreview* preview;
9267 guchar* data;
9268 gint x;
9269 gint y;
9270 gint w;
9271
9272 preview = sgtk_get_Object(o_preview);
9273 data = scm_getstr(o_data);
9274 x = scm_number2long(o_x);
9275 y = scm_number2long(o_y);
9276 w = scm_number2long(o_w);
9277 gtk_preview_draw_row(preview, data, x, y, w);
9278 return(scm_undefined);
9279 }
9280
sgtk_preview_set_expand(SOBJ o_preview,SOBJ o_expand)9281 SOBJ sgtk_preview_set_expand (SOBJ o_preview, SOBJ o_expand)
9282 {
9283 GtkPreview* preview;
9284 gboolean expand;
9285
9286 preview = sgtk_get_Object(o_preview);
9287 expand = (o_expand != scm_false);
9288 gtk_preview_set_expand(preview, expand);
9289 return(scm_undefined);
9290 }
9291
sgtk_preview_set_gamma(SOBJ o__gamma)9292 SOBJ sgtk_preview_set_gamma (SOBJ o__gamma)
9293 {
9294 double _gamma;
9295
9296 _gamma = scm_number2double(o__gamma);
9297 gtk_preview_set_gamma(_gamma);
9298 return(scm_undefined);
9299 }
9300
sgtk_preview_set_color_cube(SOBJ o_nred_shades,SOBJ o_ngreen_shades,SOBJ o_nblue_shades,SOBJ o_ngray_shades)9301 SOBJ sgtk_preview_set_color_cube (SOBJ o_nred_shades, SOBJ o_ngreen_shades, SOBJ o_nblue_shades, SOBJ o_ngray_shades)
9302 {
9303 guint nred_shades;
9304 guint ngreen_shades;
9305 guint nblue_shades;
9306 guint ngray_shades;
9307
9308 nred_shades = scm_number2long(o_nred_shades);
9309 ngreen_shades = scm_number2long(o_ngreen_shades);
9310 nblue_shades = scm_number2long(o_nblue_shades);
9311 ngray_shades = scm_number2long(o_ngray_shades);
9312 gtk_preview_set_color_cube(nred_shades, ngreen_shades, nblue_shades, ngray_shades);
9313 return(scm_undefined);
9314 }
9315
sgtk_preview_set_install_cmap(SOBJ o__install_cmap)9316 SOBJ sgtk_preview_set_install_cmap (SOBJ o__install_cmap)
9317 {
9318 gint _install_cmap;
9319
9320 _install_cmap = scm_number2long(o__install_cmap);
9321 gtk_preview_set_install_cmap(_install_cmap);
9322 return(scm_undefined);
9323 }
9324
sgtk_preview_set_reserved(SOBJ o_nreserved)9325 SOBJ sgtk_preview_set_reserved (SOBJ o_nreserved)
9326 {
9327 gint nreserved;
9328
9329 nreserved = scm_number2long(o_nreserved);
9330 gtk_preview_set_reserved(nreserved);
9331 return(scm_undefined);
9332 }
9333
sgtk_preview_set_dither(SOBJ o_preview,SOBJ o_dither)9334 SOBJ sgtk_preview_set_dither (SOBJ o_preview, SOBJ o_dither)
9335 {
9336 GtkPreview* preview;
9337 GdkRgbDither dither;
9338
9339 preview = sgtk_get_Object(o_preview);
9340 dither = sgtk_enumget("GdkRgbDither", o_dither);
9341 gtk_preview_set_dither(preview, dither);
9342 return(scm_undefined);
9343 }
9344
sgtk_preview_get_visual()9345 SOBJ sgtk_preview_get_visual ()
9346 {
9347 GdkVisual* __retval__;
9348
9349 __retval__ = gtk_preview_get_visual();
9350 return(sgdk_Visual_new(__retval__));
9351 }
9352
sgtk_preview_get_cmap()9353 SOBJ sgtk_preview_get_cmap ()
9354 {
9355 GdkColormap* __retval__;
9356
9357 __retval__ = gtk_preview_get_cmap();
9358 return(sgdk_Colormap_new(__retval__));
9359 }
9360
9361 #ifdef INCOMPLETE
9362 /* +++ return type GtkPreviewInfo* not defined */
sgtk_preview_get_info()9363 SOBJ sgtk_preview_get_info ()
9364 {
9365 GtkPreviewInfo* __retval__;
9366
9367 __retval__ = gtk_preview_get_info();
9368 /* +++ don't know how to generate GtkPreviewInfo* */
9369 return(scm_undefined);
9370 }
9371 #endif /* INCOMPLETE */
9372
sgtk_progress_get_type()9373 SOBJ sgtk_progress_get_type ()
9374 {
9375 GtkType __retval__;
9376
9377 __retval__ = gtk_progress_get_type();
9378 return(SCM_MKINUM(__retval__));
9379 }
9380
sgtk_progress_set_adjustment(SOBJ o_progress,SOBJ o_adjustment)9381 SOBJ sgtk_progress_set_adjustment (SOBJ o_progress, SOBJ o_adjustment)
9382 {
9383 GtkProgress* progress;
9384 GtkAdjustment* adjustment;
9385
9386 progress = sgtk_get_Object(o_progress);
9387 adjustment = sgtk_get_Object(o_adjustment);
9388 gtk_progress_set_adjustment(progress, adjustment);
9389 return(scm_undefined);
9390 }
9391
sgtk_progress_configure(SOBJ o_progress,SOBJ o_value,SOBJ o_min,SOBJ o_max)9392 SOBJ sgtk_progress_configure (SOBJ o_progress, SOBJ o_value, SOBJ o_min, SOBJ o_max)
9393 {
9394 GtkProgress* progress;
9395 gfloat value;
9396 gfloat min;
9397 gfloat max;
9398
9399 progress = sgtk_get_Object(o_progress);
9400 value = scm_number2double(o_value);
9401 min = scm_number2double(o_min);
9402 max = scm_number2double(o_max);
9403 gtk_progress_configure(progress, value, min, max);
9404 return(scm_undefined);
9405 }
9406
sgtk_progress_set_percentage(SOBJ o_progress,SOBJ o_percentage)9407 SOBJ sgtk_progress_set_percentage (SOBJ o_progress, SOBJ o_percentage)
9408 {
9409 GtkProgress* progress;
9410 gfloat percentage;
9411
9412 progress = sgtk_get_Object(o_progress);
9413 percentage = scm_number2double(o_percentage);
9414 gtk_progress_set_percentage(progress, percentage);
9415 return(scm_undefined);
9416 }
9417
sgtk_progress_get_current_percentage(SOBJ o_progress)9418 SOBJ sgtk_progress_get_current_percentage (SOBJ o_progress)
9419 {
9420 GtkProgress* progress;
9421 gfloat __retval__;
9422
9423 progress = sgtk_get_Object(o_progress);
9424 __retval__ = gtk_progress_get_current_percentage(progress);
9425 return(scm_mkfnum(__retval__));
9426 }
9427
sgtk_progress_get_percentage_from_value(SOBJ o_progress,SOBJ o_value)9428 SOBJ sgtk_progress_get_percentage_from_value (SOBJ o_progress, SOBJ o_value)
9429 {
9430 GtkProgress* progress;
9431 gfloat value;
9432 gfloat __retval__;
9433
9434 progress = sgtk_get_Object(o_progress);
9435 value = scm_number2double(o_value);
9436 __retval__ = gtk_progress_get_percentage_from_value(progress, value);
9437 return(scm_mkfnum(__retval__));
9438 }
9439
sgtk_progress_set_value(SOBJ o_progress,SOBJ o_value)9440 SOBJ sgtk_progress_set_value (SOBJ o_progress, SOBJ o_value)
9441 {
9442 GtkProgress* progress;
9443 gfloat value;
9444
9445 progress = sgtk_get_Object(o_progress);
9446 value = scm_number2double(o_value);
9447 gtk_progress_set_value(progress, value);
9448 return(scm_undefined);
9449 }
9450
sgtk_progress_get_value(SOBJ o_progress)9451 SOBJ sgtk_progress_get_value (SOBJ o_progress)
9452 {
9453 GtkProgress* progress;
9454 gfloat __retval__;
9455
9456 progress = sgtk_get_Object(o_progress);
9457 __retval__ = gtk_progress_get_value(progress);
9458 return(scm_mkfnum(__retval__));
9459 }
9460
sgtk_progress_set_show_text(SOBJ o_progress,SOBJ o_show_text)9461 SOBJ sgtk_progress_set_show_text (SOBJ o_progress, SOBJ o_show_text)
9462 {
9463 GtkProgress* progress;
9464 gint show_text;
9465
9466 progress = sgtk_get_Object(o_progress);
9467 show_text = scm_number2long(o_show_text);
9468 gtk_progress_set_show_text(progress, show_text);
9469 return(scm_undefined);
9470 }
9471
sgtk_progress_set_text_alignment(SOBJ o_progress,SOBJ o_x_align,SOBJ o_y_align)9472 SOBJ sgtk_progress_set_text_alignment (SOBJ o_progress, SOBJ o_x_align, SOBJ o_y_align)
9473 {
9474 GtkProgress* progress;
9475 gfloat x_align;
9476 gfloat y_align;
9477
9478 progress = sgtk_get_Object(o_progress);
9479 x_align = scm_number2double(o_x_align);
9480 y_align = scm_number2double(o_y_align);
9481 gtk_progress_set_text_alignment(progress, x_align, y_align);
9482 return(scm_undefined);
9483 }
9484
sgtk_progress_set_format_string(SOBJ o_progress,SOBJ o_format)9485 SOBJ sgtk_progress_set_format_string (SOBJ o_progress, SOBJ o_format)
9486 {
9487 GtkProgress* progress;
9488 gchar* format;
9489
9490 progress = sgtk_get_Object(o_progress);
9491 format = scm_getstr(o_format);
9492 gtk_progress_set_format_string(progress, format);
9493 return(scm_undefined);
9494 }
9495
sgtk_progress_get_current_text(SOBJ o_progress)9496 SOBJ sgtk_progress_get_current_text (SOBJ o_progress)
9497 {
9498 GtkProgress* progress;
9499 gchar* __retval__;
9500
9501 progress = sgtk_get_Object(o_progress);
9502 __retval__ = gtk_progress_get_current_text(progress);
9503 return(scm_mkstring(__retval__));
9504 }
9505
sgtk_progress_get_text_from_value(SOBJ o_progress,SOBJ o_value)9506 SOBJ sgtk_progress_get_text_from_value (SOBJ o_progress, SOBJ o_value)
9507 {
9508 GtkProgress* progress;
9509 gfloat value;
9510 gchar* __retval__;
9511
9512 progress = sgtk_get_Object(o_progress);
9513 value = scm_number2double(o_value);
9514 __retval__ = gtk_progress_get_text_from_value(progress, value);
9515 return(scm_mkstring(__retval__));
9516 }
9517
sgtk_progress_set_activity_mode(SOBJ o_progress,SOBJ o_activity_mode)9518 SOBJ sgtk_progress_set_activity_mode (SOBJ o_progress, SOBJ o_activity_mode)
9519 {
9520 GtkProgress* progress;
9521 guint activity_mode;
9522
9523 progress = sgtk_get_Object(o_progress);
9524 activity_mode = scm_number2long(o_activity_mode);
9525 gtk_progress_set_activity_mode(progress, activity_mode);
9526 return(scm_undefined);
9527 }
9528
sgtk_progress_bar_get_type()9529 SOBJ sgtk_progress_bar_get_type ()
9530 {
9531 GtkType __retval__;
9532
9533 __retval__ = gtk_progress_bar_get_type();
9534 return(SCM_MKINUM(__retval__));
9535 }
9536
sgtk_progress_bar_new()9537 SOBJ sgtk_progress_bar_new ()
9538 {
9539 GtkWidget* __retval__;
9540
9541 __retval__ = gtk_progress_bar_new();
9542 return(sgtk_object_new((void*)__retval__));
9543 }
9544
sgtk_progress_bar_new_with_adjustment(SOBJ o_adjustment)9545 SOBJ sgtk_progress_bar_new_with_adjustment (SOBJ o_adjustment)
9546 {
9547 GtkAdjustment* adjustment;
9548 GtkWidget* __retval__;
9549
9550 adjustment = sgtk_get_Object(o_adjustment);
9551 __retval__ = gtk_progress_bar_new_with_adjustment(adjustment);
9552 return(sgtk_object_new((void*)__retval__));
9553 }
9554
sgtk_progress_bar_update(SOBJ o_pbar,SOBJ o_percentage)9555 SOBJ sgtk_progress_bar_update (SOBJ o_pbar, SOBJ o_percentage)
9556 {
9557 GtkProgressBar* pbar;
9558 gfloat percentage;
9559
9560 pbar = sgtk_get_Object(o_pbar);
9561 percentage = scm_number2double(o_percentage);
9562 gtk_progress_bar_update(pbar, percentage);
9563 return(scm_undefined);
9564 }
9565
sgtk_progress_bar_set_orientation(SOBJ o_pbar,SOBJ o_orientation)9566 SOBJ sgtk_progress_bar_set_orientation (SOBJ o_pbar, SOBJ o_orientation)
9567 {
9568 GtkProgressBar* pbar;
9569 GtkProgressBarOrientation orientation;
9570
9571 pbar = sgtk_get_Object(o_pbar);
9572 orientation = sgtk_enumget("GtkProgressBarOrientation", o_orientation);
9573 gtk_progress_bar_set_orientation(pbar, orientation);
9574 return(scm_undefined);
9575 }
9576
sgtk_progress_bar_set_bar_style(SOBJ o_pbar,SOBJ o_bar_style)9577 SOBJ sgtk_progress_bar_set_bar_style (SOBJ o_pbar, SOBJ o_bar_style)
9578 {
9579 GtkProgressBar* pbar;
9580 GtkProgressBarStyle bar_style;
9581
9582 pbar = sgtk_get_Object(o_pbar);
9583 bar_style = sgtk_enumget("GtkProgressBarStyle", o_bar_style);
9584 gtk_progress_bar_set_bar_style(pbar, bar_style);
9585 return(scm_undefined);
9586 }
9587
sgtk_progress_bar_set_discrete_blocks(SOBJ o_pbar,SOBJ o_blocks)9588 SOBJ sgtk_progress_bar_set_discrete_blocks (SOBJ o_pbar, SOBJ o_blocks)
9589 {
9590 GtkProgressBar* pbar;
9591 guint blocks;
9592
9593 pbar = sgtk_get_Object(o_pbar);
9594 blocks = scm_number2long(o_blocks);
9595 gtk_progress_bar_set_discrete_blocks(pbar, blocks);
9596 return(scm_undefined);
9597 }
9598
sgtk_progress_bar_set_activity_step(SOBJ o_pbar,SOBJ o_step)9599 SOBJ sgtk_progress_bar_set_activity_step (SOBJ o_pbar, SOBJ o_step)
9600 {
9601 GtkProgressBar* pbar;
9602 guint step;
9603
9604 pbar = sgtk_get_Object(o_pbar);
9605 step = scm_number2long(o_step);
9606 gtk_progress_bar_set_activity_step(pbar, step);
9607 return(scm_undefined);
9608 }
9609
sgtk_progress_bar_set_activity_blocks(SOBJ o_pbar,SOBJ o_blocks)9610 SOBJ sgtk_progress_bar_set_activity_blocks (SOBJ o_pbar, SOBJ o_blocks)
9611 {
9612 GtkProgressBar* pbar;
9613 guint blocks;
9614
9615 pbar = sgtk_get_Object(o_pbar);
9616 blocks = scm_number2long(o_blocks);
9617 gtk_progress_bar_set_activity_blocks(pbar, blocks);
9618 return(scm_undefined);
9619 }
9620
sgtk_radio_button_get_type()9621 SOBJ sgtk_radio_button_get_type ()
9622 {
9623 GtkType __retval__;
9624
9625 __retval__ = gtk_radio_button_get_type();
9626 return(SCM_MKINUM(__retval__));
9627 }
9628
9629 #ifdef INCOMPLETE
sgtk_radio_button_set_group(SOBJ o_radio_button,SOBJ o_group)9630 SOBJ sgtk_radio_button_set_group (SOBJ o_radio_button, SOBJ o_group)
9631 {
9632 GtkRadioButton* radio_button;
9633 GSList* group;
9634
9635 radio_button = sgtk_get_Object(o_radio_button);
9636 /* +++ undefined GSList* */
9637 gtk_radio_button_set_group(radio_button, group);
9638 return(scm_undefined);
9639 }
9640 #endif /* INCOMPLETE */
9641
9642 #ifdef INCOMPLETE
sgtk_radio_button_new(SOBJ o_group)9643 SOBJ sgtk_radio_button_new (SOBJ o_group)
9644 {
9645 GSList* group;
9646 GtkWidget* __retval__;
9647
9648 /* +++ undefined GSList* */
9649 __retval__ = gtk_radio_button_new(group);
9650 return(sgtk_object_new((void*)__retval__));
9651 }
9652 #endif /* INCOMPLETE */
9653
9654 #ifdef INCOMPLETE
sgtk_radio_button_new_with_label(SOBJ o_group,SOBJ o_label)9655 SOBJ sgtk_radio_button_new_with_label (SOBJ o_group, SOBJ o_label)
9656 {
9657 GSList* group;
9658 gchar* label;
9659 GtkWidget* __retval__;
9660
9661 /* +++ undefined GSList* */
9662 label = scm_getstr(o_label);
9663 __retval__ = gtk_radio_button_new_with_label(group, label);
9664 return(sgtk_object_new((void*)__retval__));
9665 }
9666 #endif /* INCOMPLETE */
9667
sgtk_radio_button_new_from_widget(SOBJ o_group)9668 SOBJ sgtk_radio_button_new_from_widget (SOBJ o_group)
9669 {
9670 GtkRadioButton* group;
9671 GtkWidget* __retval__;
9672
9673 group = sgtk_get_Object(o_group);
9674 __retval__ = gtk_radio_button_new_from_widget(group);
9675 return(sgtk_object_new((void*)__retval__));
9676 }
9677
sgtk_radio_button_new_with_label_from_widget(SOBJ o_group,SOBJ o_label)9678 SOBJ sgtk_radio_button_new_with_label_from_widget (SOBJ o_group, SOBJ o_label)
9679 {
9680 GtkRadioButton* group;
9681 gchar* label;
9682 GtkWidget* __retval__;
9683
9684 group = sgtk_get_Object(o_group);
9685 label = scm_getstr(o_label);
9686 __retval__ = gtk_radio_button_new_with_label_from_widget(group, label);
9687 return(sgtk_object_new((void*)__retval__));
9688 }
9689
9690 #ifdef INCOMPLETE
9691 /* +++ return type GSList* not defined */
sgtk_radio_button_group(SOBJ o_radio_button)9692 SOBJ sgtk_radio_button_group (SOBJ o_radio_button)
9693 {
9694 GtkRadioButton* radio_button;
9695 GSList* __retval__;
9696
9697 radio_button = sgtk_get_Object(o_radio_button);
9698 __retval__ = gtk_radio_button_group(radio_button);
9699 /* +++ don't know how to generate GSList* */
9700 return(scm_undefined);
9701 }
9702 #endif /* INCOMPLETE */
9703
sgtk_radio_menu_item_get_type()9704 SOBJ sgtk_radio_menu_item_get_type ()
9705 {
9706 GtkType __retval__;
9707
9708 __retval__ = gtk_radio_menu_item_get_type();
9709 return(SCM_MKINUM(__retval__));
9710 }
9711
9712 #ifdef INCOMPLETE
sgtk_radio_menu_item_new(SOBJ o_group)9713 SOBJ sgtk_radio_menu_item_new (SOBJ o_group)
9714 {
9715 GSList* group;
9716 GtkWidget* __retval__;
9717
9718 /* +++ undefined GSList* */
9719 __retval__ = gtk_radio_menu_item_new(group);
9720 return(sgtk_object_new((void*)__retval__));
9721 }
9722 #endif /* INCOMPLETE */
9723
9724 #ifdef INCOMPLETE
sgtk_radio_menu_item_set_group(SOBJ o_radio_menu_item,SOBJ o_group)9725 SOBJ sgtk_radio_menu_item_set_group (SOBJ o_radio_menu_item, SOBJ o_group)
9726 {
9727 GtkRadioMenuItem* radio_menu_item;
9728 GSList* group;
9729
9730 radio_menu_item = sgtk_get_Object(o_radio_menu_item);
9731 /* +++ undefined GSList* */
9732 gtk_radio_menu_item_set_group(radio_menu_item, group);
9733 return(scm_undefined);
9734 }
9735 #endif /* INCOMPLETE */
9736
9737 #ifdef INCOMPLETE
sgtk_radio_menu_item_new_with_label(SOBJ o_group,SOBJ o_label)9738 SOBJ sgtk_radio_menu_item_new_with_label (SOBJ o_group, SOBJ o_label)
9739 {
9740 GSList* group;
9741 gchar* label;
9742 GtkWidget* __retval__;
9743
9744 /* +++ undefined GSList* */
9745 label = scm_getstr(o_label);
9746 __retval__ = gtk_radio_menu_item_new_with_label(group, label);
9747 return(sgtk_object_new((void*)__retval__));
9748 }
9749 #endif /* INCOMPLETE */
9750
9751 #ifdef INCOMPLETE
9752 /* +++ return type GSList* not defined */
sgtk_radio_menu_item_group(SOBJ o_radio_menu_item)9753 SOBJ sgtk_radio_menu_item_group (SOBJ o_radio_menu_item)
9754 {
9755 GtkRadioMenuItem* radio_menu_item;
9756 GSList* __retval__;
9757
9758 radio_menu_item = sgtk_get_Object(o_radio_menu_item);
9759 __retval__ = gtk_radio_menu_item_group(radio_menu_item);
9760 /* +++ don't know how to generate GSList* */
9761 return(scm_undefined);
9762 }
9763 #endif /* INCOMPLETE */
9764
sgtk_range_get_type()9765 SOBJ sgtk_range_get_type ()
9766 {
9767 GtkType __retval__;
9768
9769 __retval__ = gtk_range_get_type();
9770 return(SCM_MKINUM(__retval__));
9771 }
9772
sgtk_range_get_adjustment(SOBJ o_range)9773 SOBJ sgtk_range_get_adjustment (SOBJ o_range)
9774 {
9775 GtkRange* range;
9776 GtkAdjustment* __retval__;
9777
9778 range = sgtk_get_Object(o_range);
9779 __retval__ = gtk_range_get_adjustment(range);
9780 return(sgtk_object_new((void*)__retval__));
9781 }
9782
sgtk_range_set_update_policy(SOBJ o_range,SOBJ o_policy)9783 SOBJ sgtk_range_set_update_policy (SOBJ o_range, SOBJ o_policy)
9784 {
9785 GtkRange* range;
9786 GtkUpdateType policy;
9787
9788 range = sgtk_get_Object(o_range);
9789 policy = sgtk_enumget("GtkUpdateType", o_policy);
9790 gtk_range_set_update_policy(range, policy);
9791 return(scm_undefined);
9792 }
9793
sgtk_range_set_adjustment(SOBJ o_range,SOBJ o_adjustment)9794 SOBJ sgtk_range_set_adjustment (SOBJ o_range, SOBJ o_adjustment)
9795 {
9796 GtkRange* range;
9797 GtkAdjustment* adjustment;
9798
9799 range = sgtk_get_Object(o_range);
9800 adjustment = sgtk_get_Object(o_adjustment);
9801 gtk_range_set_adjustment(range, adjustment);
9802 return(scm_undefined);
9803 }
9804
sgtk_range_draw_background(SOBJ o_range)9805 SOBJ sgtk_range_draw_background (SOBJ o_range)
9806 {
9807 GtkRange* range;
9808
9809 range = sgtk_get_Object(o_range);
9810 gtk_range_draw_background(range);
9811 return(scm_undefined);
9812 }
9813
sgtk_range_clear_background(SOBJ o_range)9814 SOBJ sgtk_range_clear_background (SOBJ o_range)
9815 {
9816 GtkRange* range;
9817
9818 range = sgtk_get_Object(o_range);
9819 gtk_range_clear_background(range);
9820 return(scm_undefined);
9821 }
9822
sgtk_range_draw_trough(SOBJ o_range)9823 SOBJ sgtk_range_draw_trough (SOBJ o_range)
9824 {
9825 GtkRange* range;
9826
9827 range = sgtk_get_Object(o_range);
9828 gtk_range_draw_trough(range);
9829 return(scm_undefined);
9830 }
9831
sgtk_range_draw_slider(SOBJ o_range)9832 SOBJ sgtk_range_draw_slider (SOBJ o_range)
9833 {
9834 GtkRange* range;
9835
9836 range = sgtk_get_Object(o_range);
9837 gtk_range_draw_slider(range);
9838 return(scm_undefined);
9839 }
9840
sgtk_range_draw_step_forw(SOBJ o_range)9841 SOBJ sgtk_range_draw_step_forw (SOBJ o_range)
9842 {
9843 GtkRange* range;
9844
9845 range = sgtk_get_Object(o_range);
9846 gtk_range_draw_step_forw(range);
9847 return(scm_undefined);
9848 }
9849
sgtk_range_draw_step_back(SOBJ o_range)9850 SOBJ sgtk_range_draw_step_back (SOBJ o_range)
9851 {
9852 GtkRange* range;
9853
9854 range = sgtk_get_Object(o_range);
9855 gtk_range_draw_step_back(range);
9856 return(scm_undefined);
9857 }
9858
sgtk_range_slider_update(SOBJ o_range)9859 SOBJ sgtk_range_slider_update (SOBJ o_range)
9860 {
9861 GtkRange* range;
9862
9863 range = sgtk_get_Object(o_range);
9864 gtk_range_slider_update(range);
9865 return(scm_undefined);
9866 }
9867
9868 #ifdef INCOMPLETE
sgtk_range_trough_click(SOBJ o_range,SOBJ o_x,SOBJ o_y,SOBJ o_jump_perc)9869 SOBJ sgtk_range_trough_click (SOBJ o_range, SOBJ o_x, SOBJ o_y, SOBJ o_jump_perc)
9870 {
9871 GtkRange* range;
9872 gint x;
9873 gint y;
9874 gfloat* jump_perc;
9875 gint __retval__;
9876
9877 range = sgtk_get_Object(o_range);
9878 x = scm_number2long(o_x);
9879 y = scm_number2long(o_y);
9880 /* +++ undefined gfloat* */
9881 __retval__ = gtk_range_trough_click(range, x, y, jump_perc);
9882 return(SCM_MKINUM(__retval__));
9883 }
9884 #endif /* INCOMPLETE */
9885
sgtk_range_default_hslider_update(SOBJ o_range)9886 SOBJ sgtk_range_default_hslider_update (SOBJ o_range)
9887 {
9888 GtkRange* range;
9889
9890 range = sgtk_get_Object(o_range);
9891 gtk_range_default_hslider_update(range);
9892 return(scm_undefined);
9893 }
9894
sgtk_range_default_vslider_update(SOBJ o_range)9895 SOBJ sgtk_range_default_vslider_update (SOBJ o_range)
9896 {
9897 GtkRange* range;
9898
9899 range = sgtk_get_Object(o_range);
9900 gtk_range_default_vslider_update(range);
9901 return(scm_undefined);
9902 }
9903
9904 #ifdef INCOMPLETE
sgtk_range_default_htrough_click(SOBJ o_range,SOBJ o_x,SOBJ o_y,SOBJ o_jump_perc)9905 SOBJ sgtk_range_default_htrough_click (SOBJ o_range, SOBJ o_x, SOBJ o_y, SOBJ o_jump_perc)
9906 {
9907 GtkRange* range;
9908 gint x;
9909 gint y;
9910 gfloat* jump_perc;
9911 gint __retval__;
9912
9913 range = sgtk_get_Object(o_range);
9914 x = scm_number2long(o_x);
9915 y = scm_number2long(o_y);
9916 /* +++ undefined gfloat* */
9917 __retval__ = gtk_range_default_htrough_click(range, x, y, jump_perc);
9918 return(SCM_MKINUM(__retval__));
9919 }
9920 #endif /* INCOMPLETE */
9921
9922 #ifdef INCOMPLETE
sgtk_range_default_vtrough_click(SOBJ o_range,SOBJ o_x,SOBJ o_y,SOBJ o_jump_perc)9923 SOBJ sgtk_range_default_vtrough_click (SOBJ o_range, SOBJ o_x, SOBJ o_y, SOBJ o_jump_perc)
9924 {
9925 GtkRange* range;
9926 gint x;
9927 gint y;
9928 gfloat* jump_perc;
9929 gint __retval__;
9930
9931 range = sgtk_get_Object(o_range);
9932 x = scm_number2long(o_x);
9933 y = scm_number2long(o_y);
9934 /* +++ undefined gfloat* */
9935 __retval__ = gtk_range_default_vtrough_click(range, x, y, jump_perc);
9936 return(SCM_MKINUM(__retval__));
9937 }
9938 #endif /* INCOMPLETE */
9939
sgtk_range_default_hmotion(SOBJ o_range,SOBJ o_xdelta,SOBJ o_ydelta)9940 SOBJ sgtk_range_default_hmotion (SOBJ o_range, SOBJ o_xdelta, SOBJ o_ydelta)
9941 {
9942 GtkRange* range;
9943 gint xdelta;
9944 gint ydelta;
9945
9946 range = sgtk_get_Object(o_range);
9947 xdelta = scm_number2long(o_xdelta);
9948 ydelta = scm_number2long(o_ydelta);
9949 gtk_range_default_hmotion(range, xdelta, ydelta);
9950 return(scm_undefined);
9951 }
9952
sgtk_range_default_vmotion(SOBJ o_range,SOBJ o_xdelta,SOBJ o_ydelta)9953 SOBJ sgtk_range_default_vmotion (SOBJ o_range, SOBJ o_xdelta, SOBJ o_ydelta)
9954 {
9955 GtkRange* range;
9956 gint xdelta;
9957 gint ydelta;
9958
9959 range = sgtk_get_Object(o_range);
9960 xdelta = scm_number2long(o_xdelta);
9961 ydelta = scm_number2long(o_ydelta);
9962 gtk_range_default_vmotion(range, xdelta, ydelta);
9963 return(scm_undefined);
9964 }
9965
sgtk_rc_get_theme_dir()9966 SOBJ sgtk_rc_get_theme_dir ()
9967 {
9968 gchar* __retval__;
9969
9970 __retval__ = gtk_rc_get_theme_dir();
9971 return(scm_mkstring(__retval__));
9972 }
9973
sgtk_rc_get_module_dir()9974 SOBJ sgtk_rc_get_module_dir ()
9975 {
9976 gchar* __retval__;
9977
9978 __retval__ = gtk_rc_get_module_dir();
9979 return(scm_mkstring(__retval__));
9980 }
9981
sgtk_rc_add_default_file(SOBJ o_file)9982 SOBJ sgtk_rc_add_default_file (SOBJ o_file)
9983 {
9984 gchar* file;
9985
9986 file = scm_getstr(o_file);
9987 gtk_rc_add_default_file(file);
9988 return(scm_undefined);
9989 }
9990
9991 #ifdef INCOMPLETE
sgtk_rc_set_default_files(SOBJ o_files)9992 SOBJ sgtk_rc_set_default_files (SOBJ o_files)
9993 {
9994 gchar** files;
9995
9996 /* +++ undefined gchar** */
9997 gtk_rc_set_default_files(files);
9998 return(scm_undefined);
9999 }
10000 #endif /* INCOMPLETE */
10001
10002 #ifdef INCOMPLETE
10003 /* +++ return type gchar** not defined */
sgtk_rc_get_default_files()10004 SOBJ sgtk_rc_get_default_files ()
10005 {
10006 gchar** __retval__;
10007
10008 __retval__ = gtk_rc_get_default_files();
10009 /* +++ don't know how to generate gchar** */
10010 return(scm_undefined);
10011 }
10012 #endif /* INCOMPLETE */
10013
sgtk_rc_init()10014 SOBJ sgtk_rc_init ()
10015 {
10016
10017 gtk_rc_init();
10018 return(scm_undefined);
10019 }
10020
sgtk_rc_parse_string(SOBJ o_rc_string)10021 SOBJ sgtk_rc_parse_string (SOBJ o_rc_string)
10022 {
10023 gchar* rc_string;
10024
10025 rc_string = scm_getstr(o_rc_string);
10026 gtk_rc_parse_string(rc_string);
10027 return(scm_undefined);
10028 }
10029
sgtk_rc_parse(SOBJ o_filename)10030 SOBJ sgtk_rc_parse (SOBJ o_filename)
10031 {
10032 gchar* filename;
10033
10034 filename = scm_getstr(o_filename);
10035 gtk_rc_parse(filename);
10036 return(scm_undefined);
10037 }
10038
10039 #ifdef INCOMPLETE
10040 /* +++ return type GtkRcStyle* not defined */
sgtk_rc_style_new()10041 SOBJ sgtk_rc_style_new ()
10042 {
10043 GtkRcStyle* __retval__;
10044
10045 __retval__ = gtk_rc_style_new();
10046 /* +++ don't know how to generate GtkRcStyle* */
10047 return(scm_undefined);
10048 }
10049 #endif /* INCOMPLETE */
10050
10051 #ifdef INCOMPLETE
sgtk_rc_style_ref(SOBJ o_rc_style)10052 SOBJ sgtk_rc_style_ref (SOBJ o_rc_style)
10053 {
10054 GtkRcStyle* rc_style;
10055
10056 /* +++ undefined GtkRcStyle* */
10057 gtk_rc_style_ref(rc_style);
10058 return(scm_undefined);
10059 }
10060 #endif /* INCOMPLETE */
10061
10062 #ifdef INCOMPLETE
sgtk_rc_style_unref(SOBJ o_rc_style)10063 SOBJ sgtk_rc_style_unref (SOBJ o_rc_style)
10064 {
10065 GtkRcStyle* rc_style;
10066
10067 /* +++ undefined GtkRcStyle* */
10068 gtk_rc_style_unref(rc_style);
10069 return(scm_undefined);
10070 }
10071 #endif /* INCOMPLETE */
10072
sgtk_rc_reparse_all()10073 SOBJ sgtk_rc_reparse_all ()
10074 {
10075 gboolean __retval__;
10076
10077 __retval__ = gtk_rc_reparse_all();
10078 return(SCM_MKBOOL(__retval__));
10079 }
10080
sgtk_rc_get_style(SOBJ o_widget)10081 SOBJ sgtk_rc_get_style (SOBJ o_widget)
10082 {
10083 GtkWidget* widget;
10084 GtkStyle* __retval__;
10085
10086 widget = sgtk_get_Object(o_widget);
10087 __retval__ = gtk_rc_get_style(widget);
10088 return(sgtk_Style_new(__retval__));
10089 }
10090
10091 #ifdef INCOMPLETE
sgtk_rc_add_widget_name_style(SOBJ o_rc_style,SOBJ o_pattern)10092 SOBJ sgtk_rc_add_widget_name_style (SOBJ o_rc_style, SOBJ o_pattern)
10093 {
10094 GtkRcStyle* rc_style;
10095 gchar* pattern;
10096
10097 /* +++ undefined GtkRcStyle* */
10098 pattern = scm_getstr(o_pattern);
10099 gtk_rc_add_widget_name_style(rc_style, pattern);
10100 return(scm_undefined);
10101 }
10102 #endif /* INCOMPLETE */
10103
10104 #ifdef INCOMPLETE
sgtk_rc_add_widget_class_style(SOBJ o_rc_style,SOBJ o_pattern)10105 SOBJ sgtk_rc_add_widget_class_style (SOBJ o_rc_style, SOBJ o_pattern)
10106 {
10107 GtkRcStyle* rc_style;
10108 gchar* pattern;
10109
10110 /* +++ undefined GtkRcStyle* */
10111 pattern = scm_getstr(o_pattern);
10112 gtk_rc_add_widget_class_style(rc_style, pattern);
10113 return(scm_undefined);
10114 }
10115 #endif /* INCOMPLETE */
10116
10117 #ifdef INCOMPLETE
sgtk_rc_add_class_style(SOBJ o_rc_style,SOBJ o_pattern)10118 SOBJ sgtk_rc_add_class_style (SOBJ o_rc_style, SOBJ o_pattern)
10119 {
10120 GtkRcStyle* rc_style;
10121 gchar* pattern;
10122
10123 /* +++ undefined GtkRcStyle* */
10124 pattern = scm_getstr(o_pattern);
10125 gtk_rc_add_class_style(rc_style, pattern);
10126 return(scm_undefined);
10127 }
10128 #endif /* INCOMPLETE */
10129
10130 #ifdef INCOMPLETE
sgtk_rc_find_pixmap_in_path(SOBJ o_scanner,SOBJ o_pixmap_file)10131 SOBJ sgtk_rc_find_pixmap_in_path (SOBJ o_scanner, SOBJ o_pixmap_file)
10132 {
10133 GScanner* scanner;
10134 gchar* pixmap_file;
10135 gchar* __retval__;
10136
10137 /* +++ undefined GScanner* */
10138 pixmap_file = scm_getstr(o_pixmap_file);
10139 __retval__ = gtk_rc_find_pixmap_in_path(scanner, pixmap_file);
10140 return(scm_mkstring(__retval__));
10141 }
10142 #endif /* INCOMPLETE */
10143
sgtk_rc_find_module_in_path(SOBJ o_module_file)10144 SOBJ sgtk_rc_find_module_in_path (SOBJ o_module_file)
10145 {
10146 gchar* module_file;
10147 gchar* __retval__;
10148
10149 module_file = scm_getstr(o_module_file);
10150 __retval__ = gtk_rc_find_module_in_path(module_file);
10151 return(scm_mkstring(__retval__));
10152 }
10153
10154 #ifdef INCOMPLETE
sgtk_rc_parse_state(SOBJ o_scanner,SOBJ o_state)10155 SOBJ sgtk_rc_parse_state (SOBJ o_scanner, SOBJ o_state)
10156 {
10157 GScanner* scanner;
10158 GtkStateType* state;
10159 guint __retval__;
10160
10161 /* +++ undefined GScanner* */
10162 /* +++ undefined GtkStateType* */
10163 __retval__ = gtk_rc_parse_state(scanner, state);
10164 return(SCM_MKINUM(__retval__));
10165 }
10166 #endif /* INCOMPLETE */
10167
10168 #ifdef INCOMPLETE
sgtk_rc_parse_priority(SOBJ o_scanner,SOBJ o_priority)10169 SOBJ sgtk_rc_parse_priority (SOBJ o_scanner, SOBJ o_priority)
10170 {
10171 GScanner* scanner;
10172 GtkPathPriorityType* priority;
10173 guint __retval__;
10174
10175 /* +++ undefined GScanner* */
10176 /* +++ undefined GtkPathPriorityType* */
10177 __retval__ = gtk_rc_parse_priority(scanner, priority);
10178 return(SCM_MKINUM(__retval__));
10179 }
10180 #endif /* INCOMPLETE */
10181
10182 #ifdef INCOMPLETE
sgtk_rc_parse_color(SOBJ o_scanner,SOBJ o_color)10183 SOBJ sgtk_rc_parse_color (SOBJ o_scanner, SOBJ o_color)
10184 {
10185 GScanner* scanner;
10186 GdkColor* color;
10187 guint __retval__;
10188
10189 /* +++ undefined GScanner* */
10190 color = sgdk_get_Color(o_color);
10191 __retval__ = gtk_rc_parse_color(scanner, color);
10192 return(SCM_MKINUM(__retval__));
10193 }
10194 #endif /* INCOMPLETE */
10195
10196 #ifdef INCOMPLETE
sgtk_rc_set_image_loader(SOBJ o_loader)10197 SOBJ sgtk_rc_set_image_loader (SOBJ o_loader)
10198 {
10199 GtkImageLoader loader;
10200
10201 /* +++ undefined GtkImageLoader */
10202 gtk_rc_set_image_loader(loader);
10203 return(scm_undefined);
10204 }
10205 #endif /* INCOMPLETE */
10206
sgtk_rc_load_image(SOBJ o_colormap,SOBJ o_transparent_color,SOBJ o_filename)10207 SOBJ sgtk_rc_load_image (SOBJ o_colormap, SOBJ o_transparent_color, SOBJ o_filename)
10208 {
10209 GdkColormap* colormap;
10210 GdkColor* transparent_color;
10211 gchar* filename;
10212 GdkPixmap* __retval__;
10213
10214 colormap = sgdk_get_Colormap(o_colormap);
10215 transparent_color = sgdk_get_Color(o_transparent_color);
10216 filename = scm_getstr(o_filename);
10217 __retval__ = gtk_rc_load_image(colormap, transparent_color, filename);
10218 return(sgdk_Window_new(__retval__));
10219 }
10220
sgtk_ruler_get_type()10221 SOBJ sgtk_ruler_get_type ()
10222 {
10223 GtkType __retval__;
10224
10225 __retval__ = gtk_ruler_get_type();
10226 return(SCM_MKINUM(__retval__));
10227 }
10228
sgtk_ruler_set_metric(SOBJ o_ruler,SOBJ o_metric)10229 SOBJ sgtk_ruler_set_metric (SOBJ o_ruler, SOBJ o_metric)
10230 {
10231 GtkRuler* ruler;
10232 GtkMetricType metric;
10233
10234 ruler = sgtk_get_Object(o_ruler);
10235 metric = sgtk_enumget("GtkMetricType", o_metric);
10236 gtk_ruler_set_metric(ruler, metric);
10237 return(scm_undefined);
10238 }
10239
sgtk_ruler_set_range(SOBJ o_ruler,SOBJ o_lower,SOBJ o_upper,SOBJ o_position,SOBJ o_max_size)10240 SOBJ sgtk_ruler_set_range (SOBJ o_ruler, SOBJ o_lower, SOBJ o_upper, SOBJ o_position, SOBJ o_max_size)
10241 {
10242 GtkRuler* ruler;
10243 gfloat lower;
10244 gfloat upper;
10245 gfloat position;
10246 gfloat max_size;
10247
10248 ruler = sgtk_get_Object(o_ruler);
10249 lower = scm_number2double(o_lower);
10250 upper = scm_number2double(o_upper);
10251 position = scm_number2double(o_position);
10252 max_size = scm_number2double(o_max_size);
10253 gtk_ruler_set_range(ruler, lower, upper, position, max_size);
10254 return(scm_undefined);
10255 }
10256
sgtk_ruler_draw_ticks(SOBJ o_ruler)10257 SOBJ sgtk_ruler_draw_ticks (SOBJ o_ruler)
10258 {
10259 GtkRuler* ruler;
10260
10261 ruler = sgtk_get_Object(o_ruler);
10262 gtk_ruler_draw_ticks(ruler);
10263 return(scm_undefined);
10264 }
10265
sgtk_ruler_draw_pos(SOBJ o_ruler)10266 SOBJ sgtk_ruler_draw_pos (SOBJ o_ruler)
10267 {
10268 GtkRuler* ruler;
10269
10270 ruler = sgtk_get_Object(o_ruler);
10271 gtk_ruler_draw_pos(ruler);
10272 return(scm_undefined);
10273 }
10274
sgtk_scale_get_type()10275 SOBJ sgtk_scale_get_type ()
10276 {
10277 GtkType __retval__;
10278
10279 __retval__ = gtk_scale_get_type();
10280 return(SCM_MKINUM(__retval__));
10281 }
10282
sgtk_scale_set_digits(SOBJ o_scale,SOBJ o_digits)10283 SOBJ sgtk_scale_set_digits (SOBJ o_scale, SOBJ o_digits)
10284 {
10285 GtkScale* scale;
10286 gint digits;
10287
10288 scale = sgtk_get_Object(o_scale);
10289 digits = scm_number2long(o_digits);
10290 gtk_scale_set_digits(scale, digits);
10291 return(scm_undefined);
10292 }
10293
sgtk_scale_set_draw_value(SOBJ o_scale,SOBJ o_draw_value)10294 SOBJ sgtk_scale_set_draw_value (SOBJ o_scale, SOBJ o_draw_value)
10295 {
10296 GtkScale* scale;
10297 gboolean draw_value;
10298
10299 scale = sgtk_get_Object(o_scale);
10300 draw_value = (o_draw_value != scm_false);
10301 gtk_scale_set_draw_value(scale, draw_value);
10302 return(scm_undefined);
10303 }
10304
sgtk_scale_set_value_pos(SOBJ o_scale,SOBJ o_pos)10305 SOBJ sgtk_scale_set_value_pos (SOBJ o_scale, SOBJ o_pos)
10306 {
10307 GtkScale* scale;
10308 GtkPositionType pos;
10309
10310 scale = sgtk_get_Object(o_scale);
10311 pos = sgtk_enumget("GtkPositionType", o_pos);
10312 gtk_scale_set_value_pos(scale, pos);
10313 return(scm_undefined);
10314 }
10315
sgtk_scale_get_value_width(SOBJ o_scale)10316 SOBJ sgtk_scale_get_value_width (SOBJ o_scale)
10317 {
10318 GtkScale* scale;
10319 gint __retval__;
10320
10321 scale = sgtk_get_Object(o_scale);
10322 __retval__ = gtk_scale_get_value_width(scale);
10323 return(SCM_MKINUM(__retval__));
10324 }
10325
sgtk_scale_draw_value(SOBJ o_scale)10326 SOBJ sgtk_scale_draw_value (SOBJ o_scale)
10327 {
10328 GtkScale* scale;
10329
10330 scale = sgtk_get_Object(o_scale);
10331 gtk_scale_draw_value(scale);
10332 return(scm_undefined);
10333 }
10334
sgtk_scrollbar_get_type()10335 SOBJ sgtk_scrollbar_get_type ()
10336 {
10337 GtkType __retval__;
10338
10339 __retval__ = gtk_scrollbar_get_type();
10340 return(SCM_MKINUM(__retval__));
10341 }
10342
sgtk_scrolled_window_get_type()10343 SOBJ sgtk_scrolled_window_get_type ()
10344 {
10345 GtkType __retval__;
10346
10347 __retval__ = gtk_scrolled_window_get_type();
10348 return(SCM_MKINUM(__retval__));
10349 }
10350
sgtk_scrolled_window_new(SOBJ o_hadjustment,SOBJ o_vadjustment)10351 SOBJ sgtk_scrolled_window_new (SOBJ o_hadjustment, SOBJ o_vadjustment)
10352 {
10353 GtkAdjustment* hadjustment;
10354 GtkAdjustment* vadjustment;
10355 GtkWidget* __retval__;
10356
10357 hadjustment = sgtk_get_Object(o_hadjustment);
10358 vadjustment = sgtk_get_Object(o_vadjustment);
10359 __retval__ = gtk_scrolled_window_new(hadjustment, vadjustment);
10360 return(sgtk_object_new((void*)__retval__));
10361 }
10362
sgtk_scrolled_window_set_hadjustment(SOBJ o_scrolled_window,SOBJ o_hadjustment)10363 SOBJ sgtk_scrolled_window_set_hadjustment (SOBJ o_scrolled_window, SOBJ o_hadjustment)
10364 {
10365 GtkScrolledWindow* scrolled_window;
10366 GtkAdjustment* hadjustment;
10367
10368 scrolled_window = sgtk_get_Object(o_scrolled_window);
10369 hadjustment = sgtk_get_Object(o_hadjustment);
10370 gtk_scrolled_window_set_hadjustment(scrolled_window, hadjustment);
10371 return(scm_undefined);
10372 }
10373
sgtk_scrolled_window_set_vadjustment(SOBJ o_scrolled_window,SOBJ o_vadjustment)10374 SOBJ sgtk_scrolled_window_set_vadjustment (SOBJ o_scrolled_window, SOBJ o_vadjustment)
10375 {
10376 GtkScrolledWindow* scrolled_window;
10377 GtkAdjustment* vadjustment;
10378
10379 scrolled_window = sgtk_get_Object(o_scrolled_window);
10380 vadjustment = sgtk_get_Object(o_vadjustment);
10381 gtk_scrolled_window_set_vadjustment(scrolled_window, vadjustment);
10382 return(scm_undefined);
10383 }
10384
sgtk_scrolled_window_get_hadjustment(SOBJ o_scrolled_window)10385 SOBJ sgtk_scrolled_window_get_hadjustment (SOBJ o_scrolled_window)
10386 {
10387 GtkScrolledWindow* scrolled_window;
10388 GtkAdjustment* __retval__;
10389
10390 scrolled_window = sgtk_get_Object(o_scrolled_window);
10391 __retval__ = gtk_scrolled_window_get_hadjustment(scrolled_window);
10392 return(sgtk_object_new((void*)__retval__));
10393 }
10394
sgtk_scrolled_window_get_vadjustment(SOBJ o_scrolled_window)10395 SOBJ sgtk_scrolled_window_get_vadjustment (SOBJ o_scrolled_window)
10396 {
10397 GtkScrolledWindow* scrolled_window;
10398 GtkAdjustment* __retval__;
10399
10400 scrolled_window = sgtk_get_Object(o_scrolled_window);
10401 __retval__ = gtk_scrolled_window_get_vadjustment(scrolled_window);
10402 return(sgtk_object_new((void*)__retval__));
10403 }
10404
sgtk_scrolled_window_set_policy(SOBJ o_scrolled_window,SOBJ o_hscrollbar_policy,SOBJ o_vscrollbar_policy)10405 SOBJ sgtk_scrolled_window_set_policy (SOBJ o_scrolled_window, SOBJ o_hscrollbar_policy, SOBJ o_vscrollbar_policy)
10406 {
10407 GtkScrolledWindow* scrolled_window;
10408 GtkPolicyType hscrollbar_policy;
10409 GtkPolicyType vscrollbar_policy;
10410
10411 scrolled_window = sgtk_get_Object(o_scrolled_window);
10412 hscrollbar_policy = sgtk_enumget("GtkPolicyType", o_hscrollbar_policy);
10413 vscrollbar_policy = sgtk_enumget("GtkPolicyType", o_vscrollbar_policy);
10414 gtk_scrolled_window_set_policy(scrolled_window, hscrollbar_policy, vscrollbar_policy);
10415 return(scm_undefined);
10416 }
10417
sgtk_scrolled_window_set_placement(SOBJ o_scrolled_window,SOBJ o_window_placement)10418 SOBJ sgtk_scrolled_window_set_placement (SOBJ o_scrolled_window, SOBJ o_window_placement)
10419 {
10420 GtkScrolledWindow* scrolled_window;
10421 GtkCornerType window_placement;
10422
10423 scrolled_window = sgtk_get_Object(o_scrolled_window);
10424 window_placement = sgtk_enumget("GtkCornerType", o_window_placement);
10425 gtk_scrolled_window_set_placement(scrolled_window, window_placement);
10426 return(scm_undefined);
10427 }
10428
sgtk_scrolled_window_add_with_viewport(SOBJ o_scrolled_window,SOBJ o_child)10429 SOBJ sgtk_scrolled_window_add_with_viewport (SOBJ o_scrolled_window, SOBJ o_child)
10430 {
10431 GtkScrolledWindow* scrolled_window;
10432 GtkWidget* child;
10433
10434 scrolled_window = sgtk_get_Object(o_scrolled_window);
10435 child = sgtk_get_Object(o_child);
10436 gtk_scrolled_window_add_with_viewport(scrolled_window, child);
10437 return(scm_undefined);
10438 }
10439
10440 #ifdef INCOMPLETE
10441 /* +++ return type GtkTargetList* not defined */
sgtk_target_list_new(SOBJ o_targets,SOBJ o_ntargets)10442 SOBJ sgtk_target_list_new (SOBJ o_targets, SOBJ o_ntargets)
10443 {
10444 GtkTargetEntry* targets;
10445 guint ntargets;
10446 GtkTargetList* __retval__;
10447
10448 /* +++ undefined GtkTargetEntry* */
10449 ntargets = scm_number2long(o_ntargets);
10450 __retval__ = gtk_target_list_new(targets, ntargets);
10451 /* +++ don't know how to generate GtkTargetList* */
10452 return(scm_undefined);
10453 }
10454 #endif /* INCOMPLETE */
10455
10456 #ifdef INCOMPLETE
sgtk_target_list_ref(SOBJ o_list)10457 SOBJ sgtk_target_list_ref (SOBJ o_list)
10458 {
10459 GtkTargetList* list;
10460
10461 /* +++ undefined GtkTargetList* */
10462 gtk_target_list_ref(list);
10463 return(scm_undefined);
10464 }
10465 #endif /* INCOMPLETE */
10466
10467 #ifdef INCOMPLETE
sgtk_target_list_unref(SOBJ o_list)10468 SOBJ sgtk_target_list_unref (SOBJ o_list)
10469 {
10470 GtkTargetList* list;
10471
10472 /* +++ undefined GtkTargetList* */
10473 gtk_target_list_unref(list);
10474 return(scm_undefined);
10475 }
10476 #endif /* INCOMPLETE */
10477
10478 #ifdef INCOMPLETE
sgtk_target_list_add(SOBJ o_list,SOBJ o_target,SOBJ o_flags,SOBJ o_info)10479 SOBJ sgtk_target_list_add (SOBJ o_list, SOBJ o_target, SOBJ o_flags, SOBJ o_info)
10480 {
10481 GtkTargetList* list;
10482 GdkAtom target;
10483 guint flags;
10484 guint info;
10485
10486 /* +++ undefined GtkTargetList* */
10487 target = sgdk_get_Atom(o_target);
10488 flags = scm_number2long(o_flags);
10489 info = scm_number2long(o_info);
10490 gtk_target_list_add(list, target, flags, info);
10491 return(scm_undefined);
10492 }
10493 #endif /* INCOMPLETE */
10494
10495 #ifdef INCOMPLETE
sgtk_target_list_add_table(SOBJ o_list,SOBJ o_targets,SOBJ o_ntargets)10496 SOBJ sgtk_target_list_add_table (SOBJ o_list, SOBJ o_targets, SOBJ o_ntargets)
10497 {
10498 GtkTargetList* list;
10499 GtkTargetEntry* targets;
10500 guint ntargets;
10501
10502 /* +++ undefined GtkTargetList* */
10503 /* +++ undefined GtkTargetEntry* */
10504 ntargets = scm_number2long(o_ntargets);
10505 gtk_target_list_add_table(list, targets, ntargets);
10506 return(scm_undefined);
10507 }
10508 #endif /* INCOMPLETE */
10509
10510 #ifdef INCOMPLETE
sgtk_target_list_remove(SOBJ o_list,SOBJ o_target)10511 SOBJ sgtk_target_list_remove (SOBJ o_list, SOBJ o_target)
10512 {
10513 GtkTargetList* list;
10514 GdkAtom target;
10515
10516 /* +++ undefined GtkTargetList* */
10517 target = sgdk_get_Atom(o_target);
10518 gtk_target_list_remove(list, target);
10519 return(scm_undefined);
10520 }
10521 #endif /* INCOMPLETE */
10522
10523 #ifdef INCOMPLETE
sgtk_target_list_find(SOBJ o_list,SOBJ o_target,SOBJ o_info)10524 SOBJ sgtk_target_list_find (SOBJ o_list, SOBJ o_target, SOBJ o_info)
10525 {
10526 GtkTargetList* list;
10527 GdkAtom target;
10528 guint* info;
10529 gboolean __retval__;
10530
10531 /* +++ undefined GtkTargetList* */
10532 target = sgdk_get_Atom(o_target);
10533 /* +++ undefined guint* */
10534 __retval__ = gtk_target_list_find(list, target, info);
10535 return(SCM_MKBOOL(__retval__));
10536 }
10537 #endif /* INCOMPLETE */
10538
sgtk_selection_owner_set(SOBJ o_widget,SOBJ o_selection,SOBJ o_time)10539 SOBJ sgtk_selection_owner_set (SOBJ o_widget, SOBJ o_selection, SOBJ o_time)
10540 {
10541 GtkWidget* widget;
10542 GdkAtom selection;
10543 guint32 time;
10544 gint __retval__;
10545
10546 widget = sgtk_get_Object(o_widget);
10547 selection = sgdk_get_Atom(o_selection);
10548 time = scm_number2long(o_time);
10549 __retval__ = gtk_selection_owner_set(widget, selection, time);
10550 return(SCM_MKINUM(__retval__));
10551 }
10552
sgtk_selection_add_target(SOBJ o_widget,SOBJ o_selection,SOBJ o_target,SOBJ o_info)10553 SOBJ sgtk_selection_add_target (SOBJ o_widget, SOBJ o_selection, SOBJ o_target, SOBJ o_info)
10554 {
10555 GtkWidget* widget;
10556 GdkAtom selection;
10557 GdkAtom target;
10558 guint info;
10559
10560 widget = sgtk_get_Object(o_widget);
10561 selection = sgdk_get_Atom(o_selection);
10562 target = sgdk_get_Atom(o_target);
10563 info = scm_number2long(o_info);
10564 gtk_selection_add_target(widget, selection, target, info);
10565 return(scm_undefined);
10566 }
10567
10568 #ifdef INCOMPLETE
sgtk_selection_add_targets(SOBJ o_widget,SOBJ o_selection,SOBJ o_targets,SOBJ o_ntargets)10569 SOBJ sgtk_selection_add_targets (SOBJ o_widget, SOBJ o_selection, SOBJ o_targets, SOBJ o_ntargets)
10570 {
10571 GtkWidget* widget;
10572 GdkAtom selection;
10573 GtkTargetEntry* targets;
10574 guint ntargets;
10575
10576 widget = sgtk_get_Object(o_widget);
10577 selection = sgdk_get_Atom(o_selection);
10578 /* +++ undefined GtkTargetEntry* */
10579 ntargets = scm_number2long(o_ntargets);
10580 gtk_selection_add_targets(widget, selection, targets, ntargets);
10581 return(scm_undefined);
10582 }
10583 #endif /* INCOMPLETE */
10584
sgtk_selection_remove_all(SOBJ o_widget)10585 SOBJ sgtk_selection_remove_all (SOBJ o_widget)
10586 {
10587 GtkWidget* widget;
10588
10589 widget = sgtk_get_Object(o_widget);
10590 gtk_selection_remove_all(widget);
10591 return(scm_undefined);
10592 }
10593
sgtk_selection_convert(SOBJ o_widget,SOBJ o_selection,SOBJ o_target,SOBJ o_time)10594 SOBJ sgtk_selection_convert (SOBJ o_widget, SOBJ o_selection, SOBJ o_target, SOBJ o_time)
10595 {
10596 GtkWidget* widget;
10597 GdkAtom selection;
10598 GdkAtom target;
10599 guint32 time;
10600 gint __retval__;
10601
10602 widget = sgtk_get_Object(o_widget);
10603 selection = sgdk_get_Atom(o_selection);
10604 target = sgdk_get_Atom(o_target);
10605 time = scm_number2long(o_time);
10606 __retval__ = gtk_selection_convert(widget, selection, target, time);
10607 return(SCM_MKINUM(__retval__));
10608 }
10609
10610 #ifdef INCOMPLETE
sgtk_selection_data_set(SOBJ o_selection_data,SOBJ o_type,SOBJ o_format,SOBJ o_data,SOBJ o_length)10611 SOBJ sgtk_selection_data_set (SOBJ o_selection_data, SOBJ o_type, SOBJ o_format, SOBJ o_data, SOBJ o_length)
10612 {
10613 GtkSelectionData* selection_data;
10614 GdkAtom type;
10615 gint format;
10616 guchar* data;
10617 gint length;
10618
10619 /* +++ undefined GtkSelectionData* */
10620 type = sgdk_get_Atom(o_type);
10621 format = scm_number2long(o_format);
10622 data = scm_getstr(o_data);
10623 length = scm_number2long(o_length);
10624 gtk_selection_data_set(selection_data, type, format, data, length);
10625 return(scm_undefined);
10626 }
10627 #endif /* INCOMPLETE */
10628
10629 #ifdef INCOMPLETE
sgtk_selection_clear(SOBJ o_widget,SOBJ o_event)10630 SOBJ sgtk_selection_clear (SOBJ o_widget, SOBJ o_event)
10631 {
10632 GtkWidget* widget;
10633 GdkEventSelection* event;
10634 gint __retval__;
10635
10636 widget = sgtk_get_Object(o_widget);
10637 /* +++ undefined GdkEventSelection* */
10638 __retval__ = gtk_selection_clear(widget, event);
10639 return(SCM_MKINUM(__retval__));
10640 }
10641 #endif /* INCOMPLETE */
10642
10643 #ifdef INCOMPLETE
sgtk_selection_request(SOBJ o_widget,SOBJ o_event)10644 SOBJ sgtk_selection_request (SOBJ o_widget, SOBJ o_event)
10645 {
10646 GtkWidget* widget;
10647 GdkEventSelection* event;
10648 gint __retval__;
10649
10650 widget = sgtk_get_Object(o_widget);
10651 /* +++ undefined GdkEventSelection* */
10652 __retval__ = gtk_selection_request(widget, event);
10653 return(SCM_MKINUM(__retval__));
10654 }
10655 #endif /* INCOMPLETE */
10656
10657 #ifdef INCOMPLETE
sgtk_selection_incr_event(SOBJ o_window,SOBJ o_event)10658 SOBJ sgtk_selection_incr_event (SOBJ o_window, SOBJ o_event)
10659 {
10660 GdkWindow* window;
10661 GdkEventProperty* event;
10662 gint __retval__;
10663
10664 window = sgdk_get_Window(o_window);
10665 /* +++ undefined GdkEventProperty* */
10666 __retval__ = gtk_selection_incr_event(window, event);
10667 return(SCM_MKINUM(__retval__));
10668 }
10669 #endif /* INCOMPLETE */
10670
10671 #ifdef INCOMPLETE
sgtk_selection_notify(SOBJ o_widget,SOBJ o_event)10672 SOBJ sgtk_selection_notify (SOBJ o_widget, SOBJ o_event)
10673 {
10674 GtkWidget* widget;
10675 GdkEventSelection* event;
10676 gint __retval__;
10677
10678 widget = sgtk_get_Object(o_widget);
10679 /* +++ undefined GdkEventSelection* */
10680 __retval__ = gtk_selection_notify(widget, event);
10681 return(SCM_MKINUM(__retval__));
10682 }
10683 #endif /* INCOMPLETE */
10684
10685 #ifdef INCOMPLETE
sgtk_selection_property_notify(SOBJ o_widget,SOBJ o_event)10686 SOBJ sgtk_selection_property_notify (SOBJ o_widget, SOBJ o_event)
10687 {
10688 GtkWidget* widget;
10689 GdkEventProperty* event;
10690 gint __retval__;
10691
10692 widget = sgtk_get_Object(o_widget);
10693 /* +++ undefined GdkEventProperty* */
10694 __retval__ = gtk_selection_property_notify(widget, event);
10695 return(SCM_MKINUM(__retval__));
10696 }
10697 #endif /* INCOMPLETE */
10698
10699 #ifdef INCOMPLETE
10700 /* +++ return type GtkSelectioData* not defined */
sgtk_selection_data_copy(SOBJ o_data)10701 SOBJ sgtk_selection_data_copy (SOBJ o_data)
10702 {
10703 GtkSelectionData* data;
10704 GtkSelectioData* __retval__;
10705
10706 /* +++ undefined GtkSelectionData* */
10707 __retval__ = gtk_selection_data_copy(data);
10708 return(sgtk_SelectionData_new(__retval__));
10709 }
10710 #endif /* INCOMPLETE */
10711
10712 #ifdef INCOMPLETE
sgtk_selection_data_free(SOBJ o_data)10713 SOBJ sgtk_selection_data_free (SOBJ o_data)
10714 {
10715 GtkSelectionData* data;
10716
10717 /* +++ undefined GtkSelectionData* */
10718 gtk_selection_data_free(data);
10719 return(scm_undefined);
10720 }
10721 #endif /* INCOMPLETE */
10722
sgtk_separator_get_type()10723 SOBJ sgtk_separator_get_type ()
10724 {
10725 GtkType __retval__;
10726
10727 __retval__ = gtk_separator_get_type();
10728 return(SCM_MKINUM(__retval__));
10729 }
10730
sgtk_signal_init()10731 SOBJ sgtk_signal_init ()
10732 {
10733
10734 gtk_signal_init();
10735 return(scm_undefined);
10736 }
10737
10738 #ifdef INCOMPLETE
sgtk_signal_newv(SOBJ o_r_name,SOBJ o_signal_flags,SOBJ o_object_type,SOBJ o_function_offset,SOBJ o_marshaller,SOBJ o_return_val,SOBJ o_nparams,SOBJ o_params)10739 SOBJ sgtk_signal_newv (SOBJ o_r_name, SOBJ o_signal_flags, SOBJ o_object_type, SOBJ o_function_offset, SOBJ o_marshaller, SOBJ o_return_val, SOBJ o_nparams, SOBJ o_params)
10740 {
10741 gchar* r_name;
10742 GtkSignalRunType signal_flags;
10743 GtkType object_type;
10744 guint function_offset;
10745 GtkSignalMarshaller marshaller;
10746 GtkType return_val;
10747 guint nparams;
10748 GtkType* params;
10749 guint __retval__;
10750
10751 r_name = scm_getstr(o_r_name);
10752 signal_flags = sgtk_flagsget("GtkSignalRunType", o_signal_flags);
10753 object_type = scm_number2long(o_object_type);
10754 function_offset = scm_number2long(o_function_offset);
10755 /* +++ undefined GtkSignalMarshaller */
10756 return_val = scm_number2long(o_return_val);
10757 nparams = scm_number2long(o_nparams);
10758 /* +++ undefined GtkType* */
10759 __retval__ = gtk_signal_newv(r_name, signal_flags, object_type, function_offset, marshaller, return_val, nparams, params);
10760 return(SCM_MKINUM(__retval__));
10761 }
10762 #endif /* INCOMPLETE */
10763
sgtk_signal_lookup(SOBJ o_name,SOBJ o_object_type)10764 SOBJ sgtk_signal_lookup (SOBJ o_name, SOBJ o_object_type)
10765 {
10766 gchar* name;
10767 GtkType object_type;
10768 guint __retval__;
10769
10770 name = scm_getstr(o_name);
10771 object_type = scm_number2long(o_object_type);
10772 __retval__ = gtk_signal_lookup(name, object_type);
10773 return(SCM_MKINUM(__retval__));
10774 }
10775
10776 #ifdef INCOMPLETE
10777 /* +++ return type GtkSignalQuery* not defined */
sgtk_signal_query(SOBJ o_signal_id)10778 SOBJ sgtk_signal_query (SOBJ o_signal_id)
10779 {
10780 guint signal_id;
10781 GtkSignalQuery* __retval__;
10782
10783 signal_id = scm_number2long(o_signal_id);
10784 __retval__ = gtk_signal_query(signal_id);
10785 /* +++ don't know how to generate GtkSignalQuery* */
10786 return(scm_undefined);
10787 }
10788 #endif /* INCOMPLETE */
10789
sgtk_signal_name(SOBJ o_signal_id)10790 SOBJ sgtk_signal_name (SOBJ o_signal_id)
10791 {
10792 guint signal_id;
10793 gchar* __retval__;
10794
10795 signal_id = scm_number2long(o_signal_id);
10796 __retval__ = gtk_signal_name(signal_id);
10797 return(scm_mkstring(__retval__));
10798 }
10799
10800 #ifdef INCOMPLETE
sgtk_signal_emitv(SOBJ o_object,SOBJ o_signal_id,SOBJ o_params)10801 SOBJ sgtk_signal_emitv (SOBJ o_object, SOBJ o_signal_id, SOBJ o_params)
10802 {
10803 GtkObject* object;
10804 guint signal_id;
10805 GtkArg* params;
10806
10807 object = sgtk_get_Object(o_object);
10808 signal_id = scm_number2long(o_signal_id);
10809 /* +++ undefined GtkArg* */
10810 gtk_signal_emitv(object, signal_id, params);
10811 return(scm_undefined);
10812 }
10813 #endif /* INCOMPLETE */
10814
10815 #ifdef INCOMPLETE
sgtk_signal_emitv_by_name(SOBJ o_object,SOBJ o_name,SOBJ o_params)10816 SOBJ sgtk_signal_emitv_by_name (SOBJ o_object, SOBJ o_name, SOBJ o_params)
10817 {
10818 GtkObject* object;
10819 gchar* name;
10820 GtkArg* params;
10821
10822 object = sgtk_get_Object(o_object);
10823 name = scm_getstr(o_name);
10824 /* +++ undefined GtkArg* */
10825 gtk_signal_emitv_by_name(object, name, params);
10826 return(scm_undefined);
10827 }
10828 #endif /* INCOMPLETE */
10829
sgtk_signal_emit_stop(SOBJ o_object,SOBJ o_signal_id)10830 SOBJ sgtk_signal_emit_stop (SOBJ o_object, SOBJ o_signal_id)
10831 {
10832 GtkObject* object;
10833 guint signal_id;
10834
10835 object = sgtk_get_Object(o_object);
10836 signal_id = scm_number2long(o_signal_id);
10837 gtk_signal_emit_stop(object, signal_id);
10838 return(scm_undefined);
10839 }
10840
sgtk_signal_emit_stop_by_name(SOBJ o_object,SOBJ o_name)10841 SOBJ sgtk_signal_emit_stop_by_name (SOBJ o_object, SOBJ o_name)
10842 {
10843 GtkObject* object;
10844 gchar* name;
10845
10846 object = sgtk_get_Object(o_object);
10847 name = scm_getstr(o_name);
10848 gtk_signal_emit_stop_by_name(object, name);
10849 return(scm_undefined);
10850 }
10851
sgtk_signal_n_emissions(SOBJ o_object,SOBJ o_signal_id)10852 SOBJ sgtk_signal_n_emissions (SOBJ o_object, SOBJ o_signal_id)
10853 {
10854 GtkObject* object;
10855 guint signal_id;
10856 guint __retval__;
10857
10858 object = sgtk_get_Object(o_object);
10859 signal_id = scm_number2long(o_signal_id);
10860 __retval__ = gtk_signal_n_emissions(object, signal_id);
10861 return(SCM_MKINUM(__retval__));
10862 }
10863
sgtk_signal_n_emissions_by_name(SOBJ o_object,SOBJ o_name)10864 SOBJ sgtk_signal_n_emissions_by_name (SOBJ o_object, SOBJ o_name)
10865 {
10866 GtkObject* object;
10867 gchar* name;
10868 guint __retval__;
10869
10870 object = sgtk_get_Object(o_object);
10871 name = scm_getstr(o_name);
10872 __retval__ = gtk_signal_n_emissions_by_name(object, name);
10873 return(SCM_MKINUM(__retval__));
10874 }
10875
10876 #ifdef INCOMPLETE
sgtk_signal_connect(SOBJ o_object,SOBJ o_name,SOBJ o_func,SOBJ o_func_data)10877 SOBJ sgtk_signal_connect (SOBJ o_object, SOBJ o_name, SOBJ o_func, SOBJ o_func_data)
10878 {
10879 GtkObject* object;
10880 gchar* name;
10881 GtkSignalFunc func;
10882 gpointer func_data;
10883 guint __retval__;
10884
10885 object = sgtk_get_Object(o_object);
10886 name = scm_getstr(o_name);
10887 /* +++ undefined GtkSignalFunc */
10888 /* +++ get gpointer -> pointer failed */
10889 __retval__ = gtk_signal_connect(object, name, func, func_data);
10890 return(SCM_MKINUM(__retval__));
10891 }
10892 #endif /* INCOMPLETE */
10893
10894 #ifdef INCOMPLETE
sgtk_signal_connect_after(SOBJ o_object,SOBJ o_name,SOBJ o_func,SOBJ o_func_data)10895 SOBJ sgtk_signal_connect_after (SOBJ o_object, SOBJ o_name, SOBJ o_func, SOBJ o_func_data)
10896 {
10897 GtkObject* object;
10898 gchar* name;
10899 GtkSignalFunc func;
10900 gpointer func_data;
10901 guint __retval__;
10902
10903 object = sgtk_get_Object(o_object);
10904 name = scm_getstr(o_name);
10905 /* +++ undefined GtkSignalFunc */
10906 /* +++ get gpointer -> pointer failed */
10907 __retval__ = gtk_signal_connect_after(object, name, func, func_data);
10908 return(SCM_MKINUM(__retval__));
10909 }
10910 #endif /* INCOMPLETE */
10911
10912 #ifdef INCOMPLETE
sgtk_signal_connect_full(SOBJ o_object,SOBJ o_name,SOBJ o_func,SOBJ o_marshal,SOBJ o_func_data,SOBJ o_destroy_func,SOBJ o_object_signal,SOBJ o_after)10913 SOBJ sgtk_signal_connect_full (SOBJ o_object, SOBJ o_name, SOBJ o_func, SOBJ o_marshal, SOBJ o_func_data, SOBJ o_destroy_func, SOBJ o_object_signal, SOBJ o_after)
10914 {
10915 GtkObject* object;
10916 gchar* name;
10917 GtkSignalFunc func;
10918 GtkCallbackMarshal marshal;
10919 gpointer func_data;
10920 GtkDestroyNotify destroy_func;
10921 gint object_signal;
10922 gint after;
10923 guint __retval__;
10924
10925 object = sgtk_get_Object(o_object);
10926 name = scm_getstr(o_name);
10927 /* +++ undefined GtkSignalFunc */
10928 /* +++ undefined GtkCallbackMarshal */
10929 /* +++ get gpointer -> pointer failed */
10930 /* +++ undefined GtkDestroyNotify */
10931 object_signal = scm_number2long(o_object_signal);
10932 after = scm_number2long(o_after);
10933 __retval__ = gtk_signal_connect_full(object, name, func, marshal, func_data, destroy_func, object_signal, after);
10934 return(SCM_MKINUM(__retval__));
10935 }
10936 #endif /* INCOMPLETE */
10937
10938 #ifdef INCOMPLETE
sgtk_signal_connect_object(SOBJ o_object,SOBJ o_name,SOBJ o_func,SOBJ o_slot_object)10939 SOBJ sgtk_signal_connect_object (SOBJ o_object, SOBJ o_name, SOBJ o_func, SOBJ o_slot_object)
10940 {
10941 GtkObject* object;
10942 gchar* name;
10943 GtkSignalFunc func;
10944 GtkObject* slot_object;
10945 guint __retval__;
10946
10947 object = sgtk_get_Object(o_object);
10948 name = scm_getstr(o_name);
10949 /* +++ undefined GtkSignalFunc */
10950 slot_object = sgtk_get_Object(o_slot_object);
10951 __retval__ = gtk_signal_connect_object(object, name, func, slot_object);
10952 return(SCM_MKINUM(__retval__));
10953 }
10954 #endif /* INCOMPLETE */
10955
10956 #ifdef INCOMPLETE
sgtk_signal_connect_object_after(SOBJ o_object,SOBJ o_name,SOBJ o_func,SOBJ o_slot_object)10957 SOBJ sgtk_signal_connect_object_after (SOBJ o_object, SOBJ o_name, SOBJ o_func, SOBJ o_slot_object)
10958 {
10959 GtkObject* object;
10960 gchar* name;
10961 GtkSignalFunc func;
10962 GtkObject* slot_object;
10963 guint __retval__;
10964
10965 object = sgtk_get_Object(o_object);
10966 name = scm_getstr(o_name);
10967 /* +++ undefined GtkSignalFunc */
10968 slot_object = sgtk_get_Object(o_slot_object);
10969 __retval__ = gtk_signal_connect_object_after(object, name, func, slot_object);
10970 return(SCM_MKINUM(__retval__));
10971 }
10972 #endif /* INCOMPLETE */
10973
10974 #ifdef INCOMPLETE
sgtk_signal_connect_while_alive(SOBJ o_object,SOBJ o_signal,SOBJ o_func,SOBJ o_func_data,SOBJ o_alive_object)10975 SOBJ sgtk_signal_connect_while_alive (SOBJ o_object, SOBJ o_signal, SOBJ o_func, SOBJ o_func_data, SOBJ o_alive_object)
10976 {
10977 GtkObject* object;
10978 gchar* signal;
10979 GtkSignalFunc func;
10980 gpointer func_data;
10981 GtkObject* alive_object;
10982
10983 object = sgtk_get_Object(o_object);
10984 signal = scm_getstr(o_signal);
10985 /* +++ undefined GtkSignalFunc */
10986 /* +++ get gpointer -> pointer failed */
10987 alive_object = sgtk_get_Object(o_alive_object);
10988 gtk_signal_connect_while_alive(object, signal, func, func_data, alive_object);
10989 return(scm_undefined);
10990 }
10991 #endif /* INCOMPLETE */
10992
10993 #ifdef INCOMPLETE
sgtk_signal_connect_object_while_alive(SOBJ o_object,SOBJ o_signal,SOBJ o_func,SOBJ o_alive_object)10994 SOBJ sgtk_signal_connect_object_while_alive (SOBJ o_object, SOBJ o_signal, SOBJ o_func, SOBJ o_alive_object)
10995 {
10996 GtkObject* object;
10997 gchar* signal;
10998 GtkSignalFunc func;
10999 GtkObject* alive_object;
11000
11001 object = sgtk_get_Object(o_object);
11002 signal = scm_getstr(o_signal);
11003 /* +++ undefined GtkSignalFunc */
11004 alive_object = sgtk_get_Object(o_alive_object);
11005 gtk_signal_connect_object_while_alive(object, signal, func, alive_object);
11006 return(scm_undefined);
11007 }
11008 #endif /* INCOMPLETE */
11009
sgtk_signal_disconnect(SOBJ o_object,SOBJ o_handler_id)11010 SOBJ sgtk_signal_disconnect (SOBJ o_object, SOBJ o_handler_id)
11011 {
11012 GtkObject* object;
11013 guint handler_id;
11014
11015 object = sgtk_get_Object(o_object);
11016 handler_id = scm_number2long(o_handler_id);
11017 gtk_signal_disconnect(object, handler_id);
11018 return(scm_undefined);
11019 }
11020
11021 #ifdef INCOMPLETE
sgtk_signal_disconnect_by_func(SOBJ o_object,SOBJ o_func,SOBJ o_data)11022 SOBJ sgtk_signal_disconnect_by_func (SOBJ o_object, SOBJ o_func, SOBJ o_data)
11023 {
11024 GtkObject* object;
11025 GtkSignalFunc func;
11026 gpointer data;
11027
11028 object = sgtk_get_Object(o_object);
11029 /* +++ undefined GtkSignalFunc */
11030 /* +++ get gpointer -> pointer failed */
11031 gtk_signal_disconnect_by_func(object, func, data);
11032 return(scm_undefined);
11033 }
11034 #endif /* INCOMPLETE */
11035
11036 #ifdef INCOMPLETE
sgtk_signal_disconnect_by_data(SOBJ o_object,SOBJ o_data)11037 SOBJ sgtk_signal_disconnect_by_data (SOBJ o_object, SOBJ o_data)
11038 {
11039 GtkObject* object;
11040 gpointer data;
11041
11042 object = sgtk_get_Object(o_object);
11043 /* +++ get gpointer -> pointer failed */
11044 gtk_signal_disconnect_by_data(object, data);
11045 return(scm_undefined);
11046 }
11047 #endif /* INCOMPLETE */
11048
sgtk_signal_handler_block(SOBJ o_object,SOBJ o_handler_id)11049 SOBJ sgtk_signal_handler_block (SOBJ o_object, SOBJ o_handler_id)
11050 {
11051 GtkObject* object;
11052 guint handler_id;
11053
11054 object = sgtk_get_Object(o_object);
11055 handler_id = scm_number2long(o_handler_id);
11056 gtk_signal_handler_block(object, handler_id);
11057 return(scm_undefined);
11058 }
11059
11060 #ifdef INCOMPLETE
sgtk_signal_handler_block_by_func(SOBJ o_object,SOBJ o_func,SOBJ o_data)11061 SOBJ sgtk_signal_handler_block_by_func (SOBJ o_object, SOBJ o_func, SOBJ o_data)
11062 {
11063 GtkObject* object;
11064 GtkSignalFunc func;
11065 gpointer data;
11066
11067 object = sgtk_get_Object(o_object);
11068 /* +++ undefined GtkSignalFunc */
11069 /* +++ get gpointer -> pointer failed */
11070 gtk_signal_handler_block_by_func(object, func, data);
11071 return(scm_undefined);
11072 }
11073 #endif /* INCOMPLETE */
11074
11075 #ifdef INCOMPLETE
sgtk_signal_handler_block_by_data(SOBJ o_object,SOBJ o_data)11076 SOBJ sgtk_signal_handler_block_by_data (SOBJ o_object, SOBJ o_data)
11077 {
11078 GtkObject* object;
11079 gpointer data;
11080
11081 object = sgtk_get_Object(o_object);
11082 /* +++ get gpointer -> pointer failed */
11083 gtk_signal_handler_block_by_data(object, data);
11084 return(scm_undefined);
11085 }
11086 #endif /* INCOMPLETE */
11087
sgtk_signal_handler_unblock(SOBJ o_object,SOBJ o_handler_id)11088 SOBJ sgtk_signal_handler_unblock (SOBJ o_object, SOBJ o_handler_id)
11089 {
11090 GtkObject* object;
11091 guint handler_id;
11092
11093 object = sgtk_get_Object(o_object);
11094 handler_id = scm_number2long(o_handler_id);
11095 gtk_signal_handler_unblock(object, handler_id);
11096 return(scm_undefined);
11097 }
11098
11099 #ifdef INCOMPLETE
sgtk_signal_handler_unblock_by_func(SOBJ o_object,SOBJ o_func,SOBJ o_data)11100 SOBJ sgtk_signal_handler_unblock_by_func (SOBJ o_object, SOBJ o_func, SOBJ o_data)
11101 {
11102 GtkObject* object;
11103 GtkSignalFunc func;
11104 gpointer data;
11105
11106 object = sgtk_get_Object(o_object);
11107 /* +++ undefined GtkSignalFunc */
11108 /* +++ get gpointer -> pointer failed */
11109 gtk_signal_handler_unblock_by_func(object, func, data);
11110 return(scm_undefined);
11111 }
11112 #endif /* INCOMPLETE */
11113
11114 #ifdef INCOMPLETE
sgtk_signal_handler_unblock_by_data(SOBJ o_object,SOBJ o_data)11115 SOBJ sgtk_signal_handler_unblock_by_data (SOBJ o_object, SOBJ o_data)
11116 {
11117 GtkObject* object;
11118 gpointer data;
11119
11120 object = sgtk_get_Object(o_object);
11121 /* +++ get gpointer -> pointer failed */
11122 gtk_signal_handler_unblock_by_data(object, data);
11123 return(scm_undefined);
11124 }
11125 #endif /* INCOMPLETE */
11126
sgtk_signal_handlers_destroy(SOBJ o_object)11127 SOBJ sgtk_signal_handlers_destroy (SOBJ o_object)
11128 {
11129 GtkObject* object;
11130
11131 object = sgtk_get_Object(o_object);
11132 gtk_signal_handlers_destroy(object);
11133 return(scm_undefined);
11134 }
11135
11136 #ifdef INCOMPLETE
sgtk_signal_set_funcs(SOBJ o_marshal_func,SOBJ o_destroy_func)11137 SOBJ sgtk_signal_set_funcs (SOBJ o_marshal_func, SOBJ o_destroy_func)
11138 {
11139 GtkSignalMarshal marshal_func;
11140 GtkSignalDestroy destroy_func;
11141
11142 /* +++ undefined GtkSignalMarshal */
11143 /* +++ undefined GtkSignalDestroy */
11144 gtk_signal_set_funcs(marshal_func, destroy_func);
11145 return(scm_undefined);
11146 }
11147 #endif /* INCOMPLETE */
11148
sgtk_signal_handler_pending(SOBJ o_object,SOBJ o_signal_id,SOBJ o_may_be_blocked)11149 SOBJ sgtk_signal_handler_pending (SOBJ o_object, SOBJ o_signal_id, SOBJ o_may_be_blocked)
11150 {
11151 GtkObject* object;
11152 guint signal_id;
11153 gboolean may_be_blocked;
11154 guint __retval__;
11155
11156 object = sgtk_get_Object(o_object);
11157 signal_id = scm_number2long(o_signal_id);
11158 may_be_blocked = (o_may_be_blocked != scm_false);
11159 __retval__ = gtk_signal_handler_pending(object, signal_id, may_be_blocked);
11160 return(SCM_MKINUM(__retval__));
11161 }
11162
11163 #ifdef INCOMPLETE
sgtk_signal_handler_pending_by_func(SOBJ o_object,SOBJ o_signal_id,SOBJ o_may_be_blocked,SOBJ o_func,SOBJ o_data)11164 SOBJ sgtk_signal_handler_pending_by_func (SOBJ o_object, SOBJ o_signal_id, SOBJ o_may_be_blocked, SOBJ o_func, SOBJ o_data)
11165 {
11166 GtkObject* object;
11167 guint signal_id;
11168 gboolean may_be_blocked;
11169 GtkSignalFunc func;
11170 gpointer data;
11171 guint __retval__;
11172
11173 object = sgtk_get_Object(o_object);
11174 signal_id = scm_number2long(o_signal_id);
11175 may_be_blocked = (o_may_be_blocked != scm_false);
11176 /* +++ undefined GtkSignalFunc */
11177 /* +++ get gpointer -> pointer failed */
11178 __retval__ = gtk_signal_handler_pending_by_func(object, signal_id, may_be_blocked, func, data);
11179 return(SCM_MKINUM(__retval__));
11180 }
11181 #endif /* INCOMPLETE */
11182
sgtk_signal_handler_pending_by_id(SOBJ o_object,SOBJ o_handler_id,SOBJ o_may_be_blocked)11183 SOBJ sgtk_signal_handler_pending_by_id (SOBJ o_object, SOBJ o_handler_id, SOBJ o_may_be_blocked)
11184 {
11185 GtkObject* object;
11186 guint handler_id;
11187 gboolean may_be_blocked;
11188 gint __retval__;
11189
11190 object = sgtk_get_Object(o_object);
11191 handler_id = scm_number2long(o_handler_id);
11192 may_be_blocked = (o_may_be_blocked != scm_false);
11193 __retval__ = gtk_signal_handler_pending_by_id(object, handler_id, may_be_blocked);
11194 return(SCM_MKINUM(__retval__));
11195 }
11196
11197 #ifdef INCOMPLETE
sgtk_signal_add_emission_hook(SOBJ o_signal_id,SOBJ o_hook_func,SOBJ o_data)11198 SOBJ sgtk_signal_add_emission_hook (SOBJ o_signal_id, SOBJ o_hook_func, SOBJ o_data)
11199 {
11200 guint signal_id;
11201 GtkEmissionHook hook_func;
11202 gpointer data;
11203 guint __retval__;
11204
11205 signal_id = scm_number2long(o_signal_id);
11206 /* +++ undefined GtkEmissionHook */
11207 /* +++ get gpointer -> pointer failed */
11208 __retval__ = gtk_signal_add_emission_hook(signal_id, hook_func, data);
11209 return(SCM_MKINUM(__retval__));
11210 }
11211 #endif /* INCOMPLETE */
11212
11213 #ifdef INCOMPLETE
sgtk_signal_add_emission_hook_full(SOBJ o_signal_id,SOBJ o_hook_func,SOBJ o_data,SOBJ o_destroy)11214 SOBJ sgtk_signal_add_emission_hook_full (SOBJ o_signal_id, SOBJ o_hook_func, SOBJ o_data, SOBJ o_destroy)
11215 {
11216 guint signal_id;
11217 GtkEmissionHook hook_func;
11218 gpointer data;
11219 GDestroyNotify destroy;
11220 guint __retval__;
11221
11222 signal_id = scm_number2long(o_signal_id);
11223 /* +++ undefined GtkEmissionHook */
11224 /* +++ get gpointer -> pointer failed */
11225 /* +++ undefined GDestroyNotify */
11226 __retval__ = gtk_signal_add_emission_hook_full(signal_id, hook_func, data, destroy);
11227 return(SCM_MKINUM(__retval__));
11228 }
11229 #endif /* INCOMPLETE */
11230
sgtk_signal_remove_emission_hook(SOBJ o_signal_id,SOBJ o_hook_id)11231 SOBJ sgtk_signal_remove_emission_hook (SOBJ o_signal_id, SOBJ o_hook_id)
11232 {
11233 guint signal_id;
11234 guint hook_id;
11235
11236 signal_id = scm_number2long(o_signal_id);
11237 hook_id = scm_number2long(o_hook_id);
11238 gtk_signal_remove_emission_hook(signal_id, hook_id);
11239 return(scm_undefined);
11240 }
11241
sgtk_socket_get_type()11242 SOBJ sgtk_socket_get_type ()
11243 {
11244 guint __retval__;
11245
11246 __retval__ = gtk_socket_get_type();
11247 return(SCM_MKINUM(__retval__));
11248 }
11249
sgtk_socket_new()11250 SOBJ sgtk_socket_new ()
11251 {
11252 GtkWidget* __retval__;
11253
11254 __retval__ = gtk_socket_new();
11255 return(sgtk_object_new((void*)__retval__));
11256 }
11257
sgtk_socket_steal(SOBJ o_socket,SOBJ o_id)11258 SOBJ sgtk_socket_steal (SOBJ o_socket, SOBJ o_id)
11259 {
11260 GtkSocket* socket;
11261 guint32 id;
11262
11263 socket = sgtk_get_Object(o_socket);
11264 id = scm_number2long(o_id);
11265 gtk_socket_steal(socket, id);
11266 return(scm_undefined);
11267 }
11268
sgtk_spin_button_get_type()11269 SOBJ sgtk_spin_button_get_type ()
11270 {
11271 GtkType __retval__;
11272
11273 __retval__ = gtk_spin_button_get_type();
11274 return(SCM_MKINUM(__retval__));
11275 }
11276
sgtk_spin_button_update(SOBJ o_spin_button)11277 SOBJ sgtk_spin_button_update (SOBJ o_spin_button)
11278 {
11279 GtkSpinButton* spin_button;
11280
11281 spin_button = sgtk_get_Object(o_spin_button);
11282 gtk_spin_button_update(spin_button);
11283 return(scm_undefined);
11284 }
11285
sgtk_spin_button_configure(SOBJ o_spin_button,SOBJ o_adjustment,SOBJ o_climb_rate,SOBJ o_digits)11286 SOBJ sgtk_spin_button_configure (SOBJ o_spin_button, SOBJ o_adjustment, SOBJ o_climb_rate, SOBJ o_digits)
11287 {
11288 GtkSpinButton* spin_button;
11289 GtkAdjustment* adjustment;
11290 gfloat climb_rate;
11291 guint digits;
11292
11293 spin_button = sgtk_get_Object(o_spin_button);
11294 adjustment = sgtk_get_Object(o_adjustment);
11295 climb_rate = scm_number2double(o_climb_rate);
11296 digits = scm_number2long(o_digits);
11297 gtk_spin_button_configure(spin_button, adjustment, climb_rate, digits);
11298 return(scm_undefined);
11299 }
11300
sgtk_spin_button_new(SOBJ o_adjustment,SOBJ o_climb_rate,SOBJ o_digits)11301 SOBJ sgtk_spin_button_new (SOBJ o_adjustment, SOBJ o_climb_rate, SOBJ o_digits)
11302 {
11303 GtkAdjustment* adjustment;
11304 gfloat climb_rate;
11305 guint digits;
11306 GtkWidget* __retval__;
11307
11308 adjustment = sgtk_get_Object(o_adjustment);
11309 climb_rate = scm_number2double(o_climb_rate);
11310 digits = scm_number2long(o_digits);
11311 __retval__ = gtk_spin_button_new(adjustment, climb_rate, digits);
11312 return(sgtk_object_new((void*)__retval__));
11313 }
11314
sgtk_spin_button_set_adjustment(SOBJ o_spin_button,SOBJ o_adjustment)11315 SOBJ sgtk_spin_button_set_adjustment (SOBJ o_spin_button, SOBJ o_adjustment)
11316 {
11317 GtkSpinButton* spin_button;
11318 GtkAdjustment* adjustment;
11319
11320 spin_button = sgtk_get_Object(o_spin_button);
11321 adjustment = sgtk_get_Object(o_adjustment);
11322 gtk_spin_button_set_adjustment(spin_button, adjustment);
11323 return(scm_undefined);
11324 }
11325
sgtk_spin_button_get_adjustment(SOBJ o_spin_button)11326 SOBJ sgtk_spin_button_get_adjustment (SOBJ o_spin_button)
11327 {
11328 GtkSpinButton* spin_button;
11329 GtkAdjustment* __retval__;
11330
11331 spin_button = sgtk_get_Object(o_spin_button);
11332 __retval__ = gtk_spin_button_get_adjustment(spin_button);
11333 return(sgtk_object_new((void*)__retval__));
11334 }
11335
sgtk_spin_button_set_digits(SOBJ o_spin_button,SOBJ o_digits)11336 SOBJ sgtk_spin_button_set_digits (SOBJ o_spin_button, SOBJ o_digits)
11337 {
11338 GtkSpinButton* spin_button;
11339 guint digits;
11340
11341 spin_button = sgtk_get_Object(o_spin_button);
11342 digits = scm_number2long(o_digits);
11343 gtk_spin_button_set_digits(spin_button, digits);
11344 return(scm_undefined);
11345 }
11346
sgtk_spin_button_get_value_as_float(SOBJ o_spin_button)11347 SOBJ sgtk_spin_button_get_value_as_float (SOBJ o_spin_button)
11348 {
11349 GtkSpinButton* spin_button;
11350 gfloat __retval__;
11351
11352 spin_button = sgtk_get_Object(o_spin_button);
11353 __retval__ = gtk_spin_button_get_value_as_float(spin_button);
11354 return(scm_mkfnum(__retval__));
11355 }
11356
sgtk_spin_button_get_value_as_int(SOBJ o_spin_button)11357 SOBJ sgtk_spin_button_get_value_as_int (SOBJ o_spin_button)
11358 {
11359 GtkSpinButton* spin_button;
11360 gint __retval__;
11361
11362 spin_button = sgtk_get_Object(o_spin_button);
11363 __retval__ = gtk_spin_button_get_value_as_int(spin_button);
11364 return(SCM_MKINUM(__retval__));
11365 }
11366
sgtk_spin_button_set_value(SOBJ o_spin_button,SOBJ o_value)11367 SOBJ sgtk_spin_button_set_value (SOBJ o_spin_button, SOBJ o_value)
11368 {
11369 GtkSpinButton* spin_button;
11370 gfloat value;
11371
11372 spin_button = sgtk_get_Object(o_spin_button);
11373 value = scm_number2double(o_value);
11374 gtk_spin_button_set_value(spin_button, value);
11375 return(scm_undefined);
11376 }
11377
sgtk_spin_button_set_update_policy(SOBJ o_spin_button,SOBJ o_policy)11378 SOBJ sgtk_spin_button_set_update_policy (SOBJ o_spin_button, SOBJ o_policy)
11379 {
11380 GtkSpinButton* spin_button;
11381 GtkSpinButtonUpdatePolicy policy;
11382
11383 spin_button = sgtk_get_Object(o_spin_button);
11384 policy = sgtk_enumget("GtkSpinButtonUpdatePolicy", o_policy);
11385 gtk_spin_button_set_update_policy(spin_button, policy);
11386 return(scm_undefined);
11387 }
11388
sgtk_spin_button_set_numeric(SOBJ o_spin_button,SOBJ o_numeric)11389 SOBJ sgtk_spin_button_set_numeric (SOBJ o_spin_button, SOBJ o_numeric)
11390 {
11391 GtkSpinButton* spin_button;
11392 gboolean numeric;
11393
11394 spin_button = sgtk_get_Object(o_spin_button);
11395 numeric = (o_numeric != scm_false);
11396 gtk_spin_button_set_numeric(spin_button, numeric);
11397 return(scm_undefined);
11398 }
11399
sgtk_spin_button_set_wrap(SOBJ o_spin_button,SOBJ o_wrap)11400 SOBJ sgtk_spin_button_set_wrap (SOBJ o_spin_button, SOBJ o_wrap)
11401 {
11402 GtkSpinButton* spin_button;
11403 gboolean wrap;
11404
11405 spin_button = sgtk_get_Object(o_spin_button);
11406 wrap = (o_wrap != scm_false);
11407 gtk_spin_button_set_wrap(spin_button, wrap);
11408 return(scm_undefined);
11409 }
11410
sgtk_spin_button_set_shadow_type(SOBJ o_spin_button,SOBJ o_shadow_type)11411 SOBJ sgtk_spin_button_set_shadow_type (SOBJ o_spin_button, SOBJ o_shadow_type)
11412 {
11413 GtkSpinButton* spin_button;
11414 GtkShadowType shadow_type;
11415
11416 spin_button = sgtk_get_Object(o_spin_button);
11417 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
11418 gtk_spin_button_set_shadow_type(spin_button, shadow_type);
11419 return(scm_undefined);
11420 }
11421
sgtk_spin_button_set_snap_to_ticks(SOBJ o_spin_button,SOBJ o_snap_to_ticks)11422 SOBJ sgtk_spin_button_set_snap_to_ticks (SOBJ o_spin_button, SOBJ o_snap_to_ticks)
11423 {
11424 GtkSpinButton* spin_button;
11425 gboolean snap_to_ticks;
11426
11427 spin_button = sgtk_get_Object(o_spin_button);
11428 snap_to_ticks = (o_snap_to_ticks != scm_false);
11429 gtk_spin_button_set_snap_to_ticks(spin_button, snap_to_ticks);
11430 return(scm_undefined);
11431 }
11432
sgtk_spin_button_spin(SOBJ o_spin_button,SOBJ o_direction,SOBJ o_increment)11433 SOBJ sgtk_spin_button_spin (SOBJ o_spin_button, SOBJ o_direction, SOBJ o_increment)
11434 {
11435 GtkSpinButton* spin_button;
11436 GtkSpinType direction;
11437 gfloat increment;
11438
11439 spin_button = sgtk_get_Object(o_spin_button);
11440 direction = sgtk_enumget("GtkSpinType", o_direction);
11441 increment = scm_number2double(o_increment);
11442 gtk_spin_button_spin(spin_button, direction, increment);
11443 return(scm_undefined);
11444 }
11445
sgtk_statusbar_get_type()11446 SOBJ sgtk_statusbar_get_type ()
11447 {
11448 guint __retval__;
11449
11450 __retval__ = gtk_statusbar_get_type();
11451 return(SCM_MKINUM(__retval__));
11452 }
11453
sgtk_statusbar_new()11454 SOBJ sgtk_statusbar_new ()
11455 {
11456 GtkWidget* __retval__;
11457
11458 __retval__ = gtk_statusbar_new();
11459 return(sgtk_object_new((void*)__retval__));
11460 }
11461
sgtk_statusbar_get_context_id(SOBJ o_statusbar,SOBJ o_context_description)11462 SOBJ sgtk_statusbar_get_context_id (SOBJ o_statusbar, SOBJ o_context_description)
11463 {
11464 GtkStatusbar* statusbar;
11465 gchar* context_description;
11466 guint __retval__;
11467
11468 statusbar = sgtk_get_Object(o_statusbar);
11469 context_description = scm_getstr(o_context_description);
11470 __retval__ = gtk_statusbar_get_context_id(statusbar, context_description);
11471 return(SCM_MKINUM(__retval__));
11472 }
11473
sgtk_statusbar_push(SOBJ o_statusbar,SOBJ o_context_id,SOBJ o_text)11474 SOBJ sgtk_statusbar_push (SOBJ o_statusbar, SOBJ o_context_id, SOBJ o_text)
11475 {
11476 GtkStatusbar* statusbar;
11477 guint context_id;
11478 gchar* text;
11479 guint __retval__;
11480
11481 statusbar = sgtk_get_Object(o_statusbar);
11482 context_id = scm_number2long(o_context_id);
11483 text = scm_getstr(o_text);
11484 __retval__ = gtk_statusbar_push(statusbar, context_id, text);
11485 return(SCM_MKINUM(__retval__));
11486 }
11487
sgtk_statusbar_pop(SOBJ o_statusbar,SOBJ o_context_id)11488 SOBJ sgtk_statusbar_pop (SOBJ o_statusbar, SOBJ o_context_id)
11489 {
11490 GtkStatusbar* statusbar;
11491 guint context_id;
11492
11493 statusbar = sgtk_get_Object(o_statusbar);
11494 context_id = scm_number2long(o_context_id);
11495 gtk_statusbar_pop(statusbar, context_id);
11496 return(scm_undefined);
11497 }
11498
sgtk_statusbar_remove(SOBJ o_statusbar,SOBJ o_context_id,SOBJ o_message_id)11499 SOBJ sgtk_statusbar_remove (SOBJ o_statusbar, SOBJ o_context_id, SOBJ o_message_id)
11500 {
11501 GtkStatusbar* statusbar;
11502 guint context_id;
11503 guint message_id;
11504
11505 statusbar = sgtk_get_Object(o_statusbar);
11506 context_id = scm_number2long(o_context_id);
11507 message_id = scm_number2long(o_message_id);
11508 gtk_statusbar_remove(statusbar, context_id, message_id);
11509 return(scm_undefined);
11510 }
11511
sgtk_style_copy(SOBJ o_style)11512 SOBJ sgtk_style_copy (SOBJ o_style)
11513 {
11514 GtkStyle* style;
11515 GtkStyle* __retval__;
11516
11517 style = sgtk_get_Style(o_style);
11518 __retval__ = gtk_style_copy(style);
11519 return(sgtk_Style_new(__retval__));
11520 }
11521
sgtk_style_new()11522 SOBJ sgtk_style_new ()
11523 {
11524 GtkStyle* __retval__;
11525
11526 __retval__ = gtk_style_new();
11527 return(sgtk_Style_new(__retval__));
11528 }
11529
sgtk_style_attach(SOBJ o_style,SOBJ o_window)11530 SOBJ sgtk_style_attach (SOBJ o_style, SOBJ o_window)
11531 {
11532 GtkStyle* style;
11533 GdkWindow* window;
11534 GtkStyle* __retval__;
11535
11536 style = sgtk_get_Style(o_style);
11537 window = sgdk_get_Window(o_window);
11538 __retval__ = gtk_style_attach(style, window);
11539 return(sgtk_Style_new(__retval__));
11540 }
11541
sgtk_style_detach(SOBJ o_style)11542 SOBJ sgtk_style_detach (SOBJ o_style)
11543 {
11544 GtkStyle* style;
11545
11546 style = sgtk_get_Style(o_style);
11547 gtk_style_detach(style);
11548 return(scm_undefined);
11549 }
11550
sgtk_style_ref(SOBJ o_style)11551 SOBJ sgtk_style_ref (SOBJ o_style)
11552 {
11553 GtkStyle* style;
11554 GtkStyle* __retval__;
11555
11556 style = sgtk_get_Style(o_style);
11557 __retval__ = gtk_style_ref(style);
11558 return(sgtk_Style_new(__retval__));
11559 }
11560
sgtk_style_unref(SOBJ o_style)11561 SOBJ sgtk_style_unref (SOBJ o_style)
11562 {
11563 GtkStyle* style;
11564
11565 style = sgtk_get_Style(o_style);
11566 gtk_style_unref(style);
11567 return(scm_undefined);
11568 }
11569
sgtk_draw_hline(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_x1,SOBJ o_x2,SOBJ o_y)11570 SOBJ sgtk_draw_hline (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_x1, SOBJ o_x2, SOBJ o_y)
11571 {
11572 GtkStyle* style;
11573 GdkWindow* window;
11574 GtkStateType state_type;
11575 gint x1;
11576 gint x2;
11577 gint y;
11578
11579 style = sgtk_get_Style(o_style);
11580 window = sgdk_get_Window(o_window);
11581 state_type = sgtk_enumget("GtkStateType", o_state_type);
11582 x1 = scm_number2long(o_x1);
11583 x2 = scm_number2long(o_x2);
11584 y = scm_number2long(o_y);
11585 gtk_draw_hline(style, window, state_type, x1, x2, y);
11586 return(scm_undefined);
11587 }
11588
sgtk_draw_vline(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_y1,SOBJ o_y2,SOBJ o_x)11589 SOBJ sgtk_draw_vline (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_y1, SOBJ o_y2, SOBJ o_x)
11590 {
11591 GtkStyle* style;
11592 GdkWindow* window;
11593 GtkStateType state_type;
11594 gint y1;
11595 gint y2;
11596 gint x;
11597
11598 style = sgtk_get_Style(o_style);
11599 window = sgdk_get_Window(o_window);
11600 state_type = sgtk_enumget("GtkStateType", o_state_type);
11601 y1 = scm_number2long(o_y1);
11602 y2 = scm_number2long(o_y2);
11603 x = scm_number2long(o_x);
11604 gtk_draw_vline(style, window, state_type, y1, y2, x);
11605 return(scm_undefined);
11606 }
11607
sgtk_draw_shadow(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)11608 SOBJ sgtk_draw_shadow (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
11609 {
11610 GtkStyle* style;
11611 GdkWindow* window;
11612 GtkStateType state_type;
11613 GtkShadowType shadow_type;
11614 gint x;
11615 gint y;
11616 gint width;
11617 gint height;
11618
11619 style = sgtk_get_Style(o_style);
11620 window = sgdk_get_Window(o_window);
11621 state_type = sgtk_enumget("GtkStateType", o_state_type);
11622 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
11623 x = scm_number2long(o_x);
11624 y = scm_number2long(o_y);
11625 width = scm_number2long(o_width);
11626 height = scm_number2long(o_height);
11627 gtk_draw_shadow(style, window, state_type, shadow_type, x, y, width, height);
11628 return(scm_undefined);
11629 }
11630
11631 #ifdef INCOMPLETE
sgtk_draw_polygon(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_points,SOBJ o_npoints,SOBJ o_fill)11632 SOBJ sgtk_draw_polygon (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_points, SOBJ o_npoints, SOBJ o_fill)
11633 {
11634 GtkStyle* style;
11635 GdkWindow* window;
11636 GtkStateType state_type;
11637 GtkShadowType shadow_type;
11638 GdkPoint* points;
11639 gint npoints;
11640 gboolean fill;
11641
11642 style = sgtk_get_Style(o_style);
11643 window = sgdk_get_Window(o_window);
11644 state_type = sgtk_enumget("GtkStateType", o_state_type);
11645 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
11646 /* +++ undefined GdkPoint* */
11647 npoints = scm_number2long(o_npoints);
11648 fill = (o_fill != scm_false);
11649 gtk_draw_polygon(style, window, state_type, shadow_type, points, npoints, fill);
11650 return(scm_undefined);
11651 }
11652 #endif /* INCOMPLETE */
11653
sgtk_draw_arrow(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_arrow_type,SOBJ o_fill,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)11654 SOBJ sgtk_draw_arrow (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_arrow_type, SOBJ o_fill, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
11655 {
11656 GtkStyle* style;
11657 GdkWindow* window;
11658 GtkStateType state_type;
11659 GtkShadowType shadow_type;
11660 GtkArrowType arrow_type;
11661 gboolean fill;
11662 gint x;
11663 gint y;
11664 gint width;
11665 gint height;
11666
11667 style = sgtk_get_Style(o_style);
11668 window = sgdk_get_Window(o_window);
11669 state_type = sgtk_enumget("GtkStateType", o_state_type);
11670 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
11671 arrow_type = sgtk_enumget("GtkArrowType", o_arrow_type);
11672 fill = (o_fill != scm_false);
11673 x = scm_number2long(o_x);
11674 y = scm_number2long(o_y);
11675 width = scm_number2long(o_width);
11676 height = scm_number2long(o_height);
11677 gtk_draw_arrow(style, window, state_type, shadow_type, arrow_type, fill, x, y, width, height);
11678 return(scm_undefined);
11679 }
11680
sgtk_draw_diamond(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)11681 SOBJ sgtk_draw_diamond (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
11682 {
11683 GtkStyle* style;
11684 GdkWindow* window;
11685 GtkStateType state_type;
11686 GtkShadowType shadow_type;
11687 gint x;
11688 gint y;
11689 gint width;
11690 gint height;
11691
11692 style = sgtk_get_Style(o_style);
11693 window = sgdk_get_Window(o_window);
11694 state_type = sgtk_enumget("GtkStateType", o_state_type);
11695 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
11696 x = scm_number2long(o_x);
11697 y = scm_number2long(o_y);
11698 width = scm_number2long(o_width);
11699 height = scm_number2long(o_height);
11700 gtk_draw_diamond(style, window, state_type, shadow_type, x, y, width, height);
11701 return(scm_undefined);
11702 }
11703
sgtk_draw_oval(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)11704 SOBJ sgtk_draw_oval (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
11705 {
11706 GtkStyle* style;
11707 GdkWindow* window;
11708 GtkStateType state_type;
11709 GtkShadowType shadow_type;
11710 gint x;
11711 gint y;
11712 gint width;
11713 gint height;
11714
11715 style = sgtk_get_Style(o_style);
11716 window = sgdk_get_Window(o_window);
11717 state_type = sgtk_enumget("GtkStateType", o_state_type);
11718 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
11719 x = scm_number2long(o_x);
11720 y = scm_number2long(o_y);
11721 width = scm_number2long(o_width);
11722 height = scm_number2long(o_height);
11723 gtk_draw_oval(style, window, state_type, shadow_type, x, y, width, height);
11724 return(scm_undefined);
11725 }
11726
sgtk_draw_string(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_x,SOBJ o_y,SOBJ o_string)11727 SOBJ sgtk_draw_string (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_x, SOBJ o_y, SOBJ o_string)
11728 {
11729 GtkStyle* style;
11730 GdkWindow* window;
11731 GtkStateType state_type;
11732 gint x;
11733 gint y;
11734 gchar* string;
11735
11736 style = sgtk_get_Style(o_style);
11737 window = sgdk_get_Window(o_window);
11738 state_type = sgtk_enumget("GtkStateType", o_state_type);
11739 x = scm_number2long(o_x);
11740 y = scm_number2long(o_y);
11741 string = scm_getstr(o_string);
11742 gtk_draw_string(style, window, state_type, x, y, string);
11743 return(scm_undefined);
11744 }
11745
sgtk_draw_box(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)11746 SOBJ sgtk_draw_box (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
11747 {
11748 GtkStyle* style;
11749 GdkWindow* window;
11750 GtkStateType state_type;
11751 GtkShadowType shadow_type;
11752 gint x;
11753 gint y;
11754 gint width;
11755 gint height;
11756
11757 style = sgtk_get_Style(o_style);
11758 window = sgdk_get_Window(o_window);
11759 state_type = sgtk_enumget("GtkStateType", o_state_type);
11760 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
11761 x = scm_number2long(o_x);
11762 y = scm_number2long(o_y);
11763 width = scm_number2long(o_width);
11764 height = scm_number2long(o_height);
11765 gtk_draw_box(style, window, state_type, shadow_type, x, y, width, height);
11766 return(scm_undefined);
11767 }
11768
sgtk_draw_flat_box(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)11769 SOBJ sgtk_draw_flat_box (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
11770 {
11771 GtkStyle* style;
11772 GdkWindow* window;
11773 GtkStateType state_type;
11774 GtkShadowType shadow_type;
11775 gint x;
11776 gint y;
11777 gint width;
11778 gint height;
11779
11780 style = sgtk_get_Style(o_style);
11781 window = sgdk_get_Window(o_window);
11782 state_type = sgtk_enumget("GtkStateType", o_state_type);
11783 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
11784 x = scm_number2long(o_x);
11785 y = scm_number2long(o_y);
11786 width = scm_number2long(o_width);
11787 height = scm_number2long(o_height);
11788 gtk_draw_flat_box(style, window, state_type, shadow_type, x, y, width, height);
11789 return(scm_undefined);
11790 }
11791
sgtk_draw_check(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)11792 SOBJ sgtk_draw_check (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
11793 {
11794 GtkStyle* style;
11795 GdkWindow* window;
11796 GtkStateType state_type;
11797 GtkShadowType shadow_type;
11798 gint x;
11799 gint y;
11800 gint width;
11801 gint height;
11802
11803 style = sgtk_get_Style(o_style);
11804 window = sgdk_get_Window(o_window);
11805 state_type = sgtk_enumget("GtkStateType", o_state_type);
11806 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
11807 x = scm_number2long(o_x);
11808 y = scm_number2long(o_y);
11809 width = scm_number2long(o_width);
11810 height = scm_number2long(o_height);
11811 gtk_draw_check(style, window, state_type, shadow_type, x, y, width, height);
11812 return(scm_undefined);
11813 }
11814
sgtk_draw_option(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)11815 SOBJ sgtk_draw_option (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
11816 {
11817 GtkStyle* style;
11818 GdkWindow* window;
11819 GtkStateType state_type;
11820 GtkShadowType shadow_type;
11821 gint x;
11822 gint y;
11823 gint width;
11824 gint height;
11825
11826 style = sgtk_get_Style(o_style);
11827 window = sgdk_get_Window(o_window);
11828 state_type = sgtk_enumget("GtkStateType", o_state_type);
11829 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
11830 x = scm_number2long(o_x);
11831 y = scm_number2long(o_y);
11832 width = scm_number2long(o_width);
11833 height = scm_number2long(o_height);
11834 gtk_draw_option(style, window, state_type, shadow_type, x, y, width, height);
11835 return(scm_undefined);
11836 }
11837
sgtk_draw_cross(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)11838 SOBJ sgtk_draw_cross (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
11839 {
11840 GtkStyle* style;
11841 GdkWindow* window;
11842 GtkStateType state_type;
11843 GtkShadowType shadow_type;
11844 gint x;
11845 gint y;
11846 gint width;
11847 gint height;
11848
11849 style = sgtk_get_Style(o_style);
11850 window = sgdk_get_Window(o_window);
11851 state_type = sgtk_enumget("GtkStateType", o_state_type);
11852 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
11853 x = scm_number2long(o_x);
11854 y = scm_number2long(o_y);
11855 width = scm_number2long(o_width);
11856 height = scm_number2long(o_height);
11857 gtk_draw_cross(style, window, state_type, shadow_type, x, y, width, height);
11858 return(scm_undefined);
11859 }
11860
sgtk_draw_ramp(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_arrow_type,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)11861 SOBJ sgtk_draw_ramp (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_arrow_type, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
11862 {
11863 GtkStyle* style;
11864 GdkWindow* window;
11865 GtkStateType state_type;
11866 GtkShadowType shadow_type;
11867 GtkArrowType arrow_type;
11868 gint x;
11869 gint y;
11870 gint width;
11871 gint height;
11872
11873 style = sgtk_get_Style(o_style);
11874 window = sgdk_get_Window(o_window);
11875 state_type = sgtk_enumget("GtkStateType", o_state_type);
11876 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
11877 arrow_type = sgtk_enumget("GtkArrowType", o_arrow_type);
11878 x = scm_number2long(o_x);
11879 y = scm_number2long(o_y);
11880 width = scm_number2long(o_width);
11881 height = scm_number2long(o_height);
11882 gtk_draw_ramp(style, window, state_type, shadow_type, arrow_type, x, y, width, height);
11883 return(scm_undefined);
11884 }
11885
sgtk_draw_tab(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)11886 SOBJ sgtk_draw_tab (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
11887 {
11888 GtkStyle* style;
11889 GdkWindow* window;
11890 GtkStateType state_type;
11891 GtkShadowType shadow_type;
11892 gint x;
11893 gint y;
11894 gint width;
11895 gint height;
11896
11897 style = sgtk_get_Style(o_style);
11898 window = sgdk_get_Window(o_window);
11899 state_type = sgtk_enumget("GtkStateType", o_state_type);
11900 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
11901 x = scm_number2long(o_x);
11902 y = scm_number2long(o_y);
11903 width = scm_number2long(o_width);
11904 height = scm_number2long(o_height);
11905 gtk_draw_tab(style, window, state_type, shadow_type, x, y, width, height);
11906 return(scm_undefined);
11907 }
11908
sgtk_draw_shadow_gap(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height,SOBJ o_gap_side,SOBJ o_gap_x,SOBJ o_gap_width)11909 SOBJ sgtk_draw_shadow_gap (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height, SOBJ o_gap_side, SOBJ o_gap_x, SOBJ o_gap_width)
11910 {
11911 GtkStyle* style;
11912 GdkWindow* window;
11913 GtkStateType state_type;
11914 GtkShadowType shadow_type;
11915 gint x;
11916 gint y;
11917 gint width;
11918 gint height;
11919 GtkPositionType gap_side;
11920 gint gap_x;
11921 gint gap_width;
11922
11923 style = sgtk_get_Style(o_style);
11924 window = sgdk_get_Window(o_window);
11925 state_type = sgtk_enumget("GtkStateType", o_state_type);
11926 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
11927 x = scm_number2long(o_x);
11928 y = scm_number2long(o_y);
11929 width = scm_number2long(o_width);
11930 height = scm_number2long(o_height);
11931 gap_side = sgtk_enumget("GtkPositionType", o_gap_side);
11932 gap_x = scm_number2long(o_gap_x);
11933 gap_width = scm_number2long(o_gap_width);
11934 gtk_draw_shadow_gap(style, window, state_type, shadow_type, x, y, width, height, gap_side, gap_x, gap_width);
11935 return(scm_undefined);
11936 }
11937
sgtk_draw_box_gap(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height,SOBJ o_gap_side,SOBJ o_gap_x,SOBJ o_gap_width)11938 SOBJ sgtk_draw_box_gap (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height, SOBJ o_gap_side, SOBJ o_gap_x, SOBJ o_gap_width)
11939 {
11940 GtkStyle* style;
11941 GdkWindow* window;
11942 GtkStateType state_type;
11943 GtkShadowType shadow_type;
11944 gint x;
11945 gint y;
11946 gint width;
11947 gint height;
11948 GtkPositionType gap_side;
11949 gint gap_x;
11950 gint gap_width;
11951
11952 style = sgtk_get_Style(o_style);
11953 window = sgdk_get_Window(o_window);
11954 state_type = sgtk_enumget("GtkStateType", o_state_type);
11955 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
11956 x = scm_number2long(o_x);
11957 y = scm_number2long(o_y);
11958 width = scm_number2long(o_width);
11959 height = scm_number2long(o_height);
11960 gap_side = sgtk_enumget("GtkPositionType", o_gap_side);
11961 gap_x = scm_number2long(o_gap_x);
11962 gap_width = scm_number2long(o_gap_width);
11963 gtk_draw_box_gap(style, window, state_type, shadow_type, x, y, width, height, gap_side, gap_x, gap_width);
11964 return(scm_undefined);
11965 }
11966
sgtk_draw_extension(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height,SOBJ o_gap_side)11967 SOBJ sgtk_draw_extension (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height, SOBJ o_gap_side)
11968 {
11969 GtkStyle* style;
11970 GdkWindow* window;
11971 GtkStateType state_type;
11972 GtkShadowType shadow_type;
11973 gint x;
11974 gint y;
11975 gint width;
11976 gint height;
11977 GtkPositionType gap_side;
11978
11979 style = sgtk_get_Style(o_style);
11980 window = sgdk_get_Window(o_window);
11981 state_type = sgtk_enumget("GtkStateType", o_state_type);
11982 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
11983 x = scm_number2long(o_x);
11984 y = scm_number2long(o_y);
11985 width = scm_number2long(o_width);
11986 height = scm_number2long(o_height);
11987 gap_side = sgtk_enumget("GtkPositionType", o_gap_side);
11988 gtk_draw_extension(style, window, state_type, shadow_type, x, y, width, height, gap_side);
11989 return(scm_undefined);
11990 }
11991
sgtk_draw_focus(SOBJ o_style,SOBJ o_window,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)11992 SOBJ sgtk_draw_focus (SOBJ o_style, SOBJ o_window, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
11993 {
11994 GtkStyle* style;
11995 GdkWindow* window;
11996 gint x;
11997 gint y;
11998 gint width;
11999 gint height;
12000
12001 style = sgtk_get_Style(o_style);
12002 window = sgdk_get_Window(o_window);
12003 x = scm_number2long(o_x);
12004 y = scm_number2long(o_y);
12005 width = scm_number2long(o_width);
12006 height = scm_number2long(o_height);
12007 gtk_draw_focus(style, window, x, y, width, height);
12008 return(scm_undefined);
12009 }
12010
sgtk_draw_slider(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height,SOBJ o_orientation)12011 SOBJ sgtk_draw_slider (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height, SOBJ o_orientation)
12012 {
12013 GtkStyle* style;
12014 GdkWindow* window;
12015 GtkStateType state_type;
12016 GtkShadowType shadow_type;
12017 gint x;
12018 gint y;
12019 gint width;
12020 gint height;
12021 GtkOrientation orientation;
12022
12023 style = sgtk_get_Style(o_style);
12024 window = sgdk_get_Window(o_window);
12025 state_type = sgtk_enumget("GtkStateType", o_state_type);
12026 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12027 x = scm_number2long(o_x);
12028 y = scm_number2long(o_y);
12029 width = scm_number2long(o_width);
12030 height = scm_number2long(o_height);
12031 orientation = sgtk_enumget("GtkOrientation", o_orientation);
12032 gtk_draw_slider(style, window, state_type, shadow_type, x, y, width, height, orientation);
12033 return(scm_undefined);
12034 }
12035
sgtk_draw_handle(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height,SOBJ o_orientation)12036 SOBJ sgtk_draw_handle (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height, SOBJ o_orientation)
12037 {
12038 GtkStyle* style;
12039 GdkWindow* window;
12040 GtkStateType state_type;
12041 GtkShadowType shadow_type;
12042 gint x;
12043 gint y;
12044 gint width;
12045 gint height;
12046 GtkOrientation orientation;
12047
12048 style = sgtk_get_Style(o_style);
12049 window = sgdk_get_Window(o_window);
12050 state_type = sgtk_enumget("GtkStateType", o_state_type);
12051 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12052 x = scm_number2long(o_x);
12053 y = scm_number2long(o_y);
12054 width = scm_number2long(o_width);
12055 height = scm_number2long(o_height);
12056 orientation = sgtk_enumget("GtkOrientation", o_orientation);
12057 gtk_draw_handle(style, window, state_type, shadow_type, x, y, width, height, orientation);
12058 return(scm_undefined);
12059 }
12060
sgtk_style_set_background(SOBJ o_style,SOBJ o_window,SOBJ o_state_type)12061 SOBJ sgtk_style_set_background (SOBJ o_style, SOBJ o_window, SOBJ o_state_type)
12062 {
12063 GtkStyle* style;
12064 GdkWindow* window;
12065 GtkStateType state_type;
12066
12067 style = sgtk_get_Style(o_style);
12068 window = sgdk_get_Window(o_window);
12069 state_type = sgtk_enumget("GtkStateType", o_state_type);
12070 gtk_style_set_background(style, window, state_type);
12071 return(scm_undefined);
12072 }
12073
12074 #ifdef INCOMPLETE
sgtk_style_apply_default_background(SOBJ o_style,SOBJ o_window,SOBJ o_set_bg,SOBJ o_state_type,SOBJ o_area,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)12075 SOBJ sgtk_style_apply_default_background (SOBJ o_style, SOBJ o_window, SOBJ o_set_bg, SOBJ o_state_type, SOBJ o_area, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
12076 {
12077 GtkStyle* style;
12078 GdkWindow* window;
12079 gboolean set_bg;
12080 GtkStateType state_type;
12081 GdkRectangle* area;
12082 gint x;
12083 gint y;
12084 gint width;
12085 gint height;
12086
12087 style = sgtk_get_Style(o_style);
12088 window = sgdk_get_Window(o_window);
12089 set_bg = (o_set_bg != scm_false);
12090 state_type = sgtk_enumget("GtkStateType", o_state_type);
12091 /* +++ undefined GdkRectangle* */
12092 x = scm_number2long(o_x);
12093 y = scm_number2long(o_y);
12094 width = scm_number2long(o_width);
12095 height = scm_number2long(o_height);
12096 gtk_style_apply_default_background(style, window, set_bg, state_type, area, x, y, width, height);
12097 return(scm_undefined);
12098 }
12099 #endif /* INCOMPLETE */
12100
12101 #ifdef INCOMPLETE
sgtk_paint_hline(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x1,SOBJ o_x2,SOBJ o_y)12102 SOBJ sgtk_paint_hline (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x1, SOBJ o_x2, SOBJ o_y)
12103 {
12104 GtkStyle* style;
12105 GdkWindow* window;
12106 GtkStateType state_type;
12107 GdkRectangle* area;
12108 GtkWidget* widget;
12109 gchar* detail;
12110 gint x1;
12111 gint x2;
12112 gint y;
12113
12114 style = sgtk_get_Style(o_style);
12115 window = sgdk_get_Window(o_window);
12116 state_type = sgtk_enumget("GtkStateType", o_state_type);
12117 /* +++ undefined GdkRectangle* */
12118 widget = sgtk_get_Object(o_widget);
12119 detail = scm_getstr(o_detail);
12120 x1 = scm_number2long(o_x1);
12121 x2 = scm_number2long(o_x2);
12122 y = scm_number2long(o_y);
12123 gtk_paint_hline(style, window, state_type, area, widget, detail, x1, x2, y);
12124 return(scm_undefined);
12125 }
12126 #endif /* INCOMPLETE */
12127
12128 #ifdef INCOMPLETE
sgtk_paint_vline(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_y1,SOBJ o_y2,SOBJ o_x)12129 SOBJ sgtk_paint_vline (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_y1, SOBJ o_y2, SOBJ o_x)
12130 {
12131 GtkStyle* style;
12132 GdkWindow* window;
12133 GtkStateType state_type;
12134 GdkRectangle* area;
12135 GtkWidget* widget;
12136 gchar* detail;
12137 gint y1;
12138 gint y2;
12139 gint x;
12140
12141 style = sgtk_get_Style(o_style);
12142 window = sgdk_get_Window(o_window);
12143 state_type = sgtk_enumget("GtkStateType", o_state_type);
12144 /* +++ undefined GdkRectangle* */
12145 widget = sgtk_get_Object(o_widget);
12146 detail = scm_getstr(o_detail);
12147 y1 = scm_number2long(o_y1);
12148 y2 = scm_number2long(o_y2);
12149 x = scm_number2long(o_x);
12150 gtk_paint_vline(style, window, state_type, area, widget, detail, y1, y2, x);
12151 return(scm_undefined);
12152 }
12153 #endif /* INCOMPLETE */
12154
12155 #ifdef INCOMPLETE
sgtk_paint_shadow(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)12156 SOBJ sgtk_paint_shadow (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
12157 {
12158 GtkStyle* style;
12159 GdkWindow* window;
12160 GtkStateType state_type;
12161 GtkShadowType shadow_type;
12162 GdkRectangle* area;
12163 GtkWidget* widget;
12164 gchar* detail;
12165 gint x;
12166 gint y;
12167 gint width;
12168 gint height;
12169
12170 style = sgtk_get_Style(o_style);
12171 window = sgdk_get_Window(o_window);
12172 state_type = sgtk_enumget("GtkStateType", o_state_type);
12173 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12174 /* +++ undefined GdkRectangle* */
12175 widget = sgtk_get_Object(o_widget);
12176 detail = scm_getstr(o_detail);
12177 x = scm_number2long(o_x);
12178 y = scm_number2long(o_y);
12179 width = scm_number2long(o_width);
12180 height = scm_number2long(o_height);
12181 gtk_paint_shadow(style, window, state_type, shadow_type, area, widget, detail, x, y, width, height);
12182 return(scm_undefined);
12183 }
12184 #endif /* INCOMPLETE */
12185
12186 #ifdef INCOMPLETE
sgtk_paint_polygon(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_points,SOBJ o_npoints,SOBJ o_fill)12187 SOBJ sgtk_paint_polygon (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_points, SOBJ o_npoints, SOBJ o_fill)
12188 {
12189 GtkStyle* style;
12190 GdkWindow* window;
12191 GtkStateType state_type;
12192 GtkShadowType shadow_type;
12193 GdkRectangle* area;
12194 GtkWidget* widget;
12195 gchar* detail;
12196 GdkPoint* points;
12197 gint npoints;
12198 gboolean fill;
12199
12200 style = sgtk_get_Style(o_style);
12201 window = sgdk_get_Window(o_window);
12202 state_type = sgtk_enumget("GtkStateType", o_state_type);
12203 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12204 /* +++ undefined GdkRectangle* */
12205 widget = sgtk_get_Object(o_widget);
12206 detail = scm_getstr(o_detail);
12207 /* +++ undefined GdkPoint* */
12208 npoints = scm_number2long(o_npoints);
12209 fill = (o_fill != scm_false);
12210 gtk_paint_polygon(style, window, state_type, shadow_type, area, widget, detail, points, npoints, fill);
12211 return(scm_undefined);
12212 }
12213 #endif /* INCOMPLETE */
12214
12215 #ifdef INCOMPLETE
sgtk_paint_arrow(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_arrow_type,SOBJ o_fill,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)12216 SOBJ sgtk_paint_arrow (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_arrow_type, SOBJ o_fill, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
12217 {
12218 GtkStyle* style;
12219 GdkWindow* window;
12220 GtkStateType state_type;
12221 GtkShadowType shadow_type;
12222 GdkRectangle* area;
12223 GtkWidget* widget;
12224 gchar* detail;
12225 GtkArrowType arrow_type;
12226 gboolean fill;
12227 gint x;
12228 gint y;
12229 gint width;
12230 gint height;
12231
12232 style = sgtk_get_Style(o_style);
12233 window = sgdk_get_Window(o_window);
12234 state_type = sgtk_enumget("GtkStateType", o_state_type);
12235 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12236 /* +++ undefined GdkRectangle* */
12237 widget = sgtk_get_Object(o_widget);
12238 detail = scm_getstr(o_detail);
12239 arrow_type = sgtk_enumget("GtkArrowType", o_arrow_type);
12240 fill = (o_fill != scm_false);
12241 x = scm_number2long(o_x);
12242 y = scm_number2long(o_y);
12243 width = scm_number2long(o_width);
12244 height = scm_number2long(o_height);
12245 gtk_paint_arrow(style, window, state_type, shadow_type, area, widget, detail, arrow_type, fill, x, y, width, height);
12246 return(scm_undefined);
12247 }
12248 #endif /* INCOMPLETE */
12249
12250 #ifdef INCOMPLETE
sgtk_paint_diamond(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)12251 SOBJ sgtk_paint_diamond (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
12252 {
12253 GtkStyle* style;
12254 GdkWindow* window;
12255 GtkStateType state_type;
12256 GtkShadowType shadow_type;
12257 GdkRectangle* area;
12258 GtkWidget* widget;
12259 gchar* detail;
12260 gint x;
12261 gint y;
12262 gint width;
12263 gint height;
12264
12265 style = sgtk_get_Style(o_style);
12266 window = sgdk_get_Window(o_window);
12267 state_type = sgtk_enumget("GtkStateType", o_state_type);
12268 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12269 /* +++ undefined GdkRectangle* */
12270 widget = sgtk_get_Object(o_widget);
12271 detail = scm_getstr(o_detail);
12272 x = scm_number2long(o_x);
12273 y = scm_number2long(o_y);
12274 width = scm_number2long(o_width);
12275 height = scm_number2long(o_height);
12276 gtk_paint_diamond(style, window, state_type, shadow_type, area, widget, detail, x, y, width, height);
12277 return(scm_undefined);
12278 }
12279 #endif /* INCOMPLETE */
12280
12281 #ifdef INCOMPLETE
sgtk_paint_oval(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)12282 SOBJ sgtk_paint_oval (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
12283 {
12284 GtkStyle* style;
12285 GdkWindow* window;
12286 GtkStateType state_type;
12287 GtkShadowType shadow_type;
12288 GdkRectangle* area;
12289 GtkWidget* widget;
12290 gchar* detail;
12291 gint x;
12292 gint y;
12293 gint width;
12294 gint height;
12295
12296 style = sgtk_get_Style(o_style);
12297 window = sgdk_get_Window(o_window);
12298 state_type = sgtk_enumget("GtkStateType", o_state_type);
12299 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12300 /* +++ undefined GdkRectangle* */
12301 widget = sgtk_get_Object(o_widget);
12302 detail = scm_getstr(o_detail);
12303 x = scm_number2long(o_x);
12304 y = scm_number2long(o_y);
12305 width = scm_number2long(o_width);
12306 height = scm_number2long(o_height);
12307 gtk_paint_oval(style, window, state_type, shadow_type, area, widget, detail, x, y, width, height);
12308 return(scm_undefined);
12309 }
12310 #endif /* INCOMPLETE */
12311
12312 #ifdef INCOMPLETE
sgtk_paint_string(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x,SOBJ o_y,SOBJ o_string)12313 SOBJ sgtk_paint_string (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x, SOBJ o_y, SOBJ o_string)
12314 {
12315 GtkStyle* style;
12316 GdkWindow* window;
12317 GtkStateType state_type;
12318 GdkRectangle* area;
12319 GtkWidget* widget;
12320 gchar* detail;
12321 gint x;
12322 gint y;
12323 gchar* string;
12324
12325 style = sgtk_get_Style(o_style);
12326 window = sgdk_get_Window(o_window);
12327 state_type = sgtk_enumget("GtkStateType", o_state_type);
12328 /* +++ undefined GdkRectangle* */
12329 widget = sgtk_get_Object(o_widget);
12330 detail = scm_getstr(o_detail);
12331 x = scm_number2long(o_x);
12332 y = scm_number2long(o_y);
12333 string = scm_getstr(o_string);
12334 gtk_paint_string(style, window, state_type, area, widget, detail, x, y, string);
12335 return(scm_undefined);
12336 }
12337 #endif /* INCOMPLETE */
12338
12339 #ifdef INCOMPLETE
sgtk_paint_box(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)12340 SOBJ sgtk_paint_box (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
12341 {
12342 GtkStyle* style;
12343 GdkWindow* window;
12344 GtkStateType state_type;
12345 GtkShadowType shadow_type;
12346 GdkRectangle* area;
12347 GtkWidget* widget;
12348 gchar* detail;
12349 gint x;
12350 gint y;
12351 gint width;
12352 gint height;
12353
12354 style = sgtk_get_Style(o_style);
12355 window = sgdk_get_Window(o_window);
12356 state_type = sgtk_enumget("GtkStateType", o_state_type);
12357 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12358 /* +++ undefined GdkRectangle* */
12359 widget = sgtk_get_Object(o_widget);
12360 detail = scm_getstr(o_detail);
12361 x = scm_number2long(o_x);
12362 y = scm_number2long(o_y);
12363 width = scm_number2long(o_width);
12364 height = scm_number2long(o_height);
12365 gtk_paint_box(style, window, state_type, shadow_type, area, widget, detail, x, y, width, height);
12366 return(scm_undefined);
12367 }
12368 #endif /* INCOMPLETE */
12369
12370 #ifdef INCOMPLETE
sgtk_paint_flat_box(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)12371 SOBJ sgtk_paint_flat_box (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
12372 {
12373 GtkStyle* style;
12374 GdkWindow* window;
12375 GtkStateType state_type;
12376 GtkShadowType shadow_type;
12377 GdkRectangle* area;
12378 GtkWidget* widget;
12379 gchar* detail;
12380 gint x;
12381 gint y;
12382 gint width;
12383 gint height;
12384
12385 style = sgtk_get_Style(o_style);
12386 window = sgdk_get_Window(o_window);
12387 state_type = sgtk_enumget("GtkStateType", o_state_type);
12388 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12389 /* +++ undefined GdkRectangle* */
12390 widget = sgtk_get_Object(o_widget);
12391 detail = scm_getstr(o_detail);
12392 x = scm_number2long(o_x);
12393 y = scm_number2long(o_y);
12394 width = scm_number2long(o_width);
12395 height = scm_number2long(o_height);
12396 gtk_paint_flat_box(style, window, state_type, shadow_type, area, widget, detail, x, y, width, height);
12397 return(scm_undefined);
12398 }
12399 #endif /* INCOMPLETE */
12400
12401 #ifdef INCOMPLETE
sgtk_paint_check(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)12402 SOBJ sgtk_paint_check (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
12403 {
12404 GtkStyle* style;
12405 GdkWindow* window;
12406 GtkStateType state_type;
12407 GtkShadowType shadow_type;
12408 GdkRectangle* area;
12409 GtkWidget* widget;
12410 gchar* detail;
12411 gint x;
12412 gint y;
12413 gint width;
12414 gint height;
12415
12416 style = sgtk_get_Style(o_style);
12417 window = sgdk_get_Window(o_window);
12418 state_type = sgtk_enumget("GtkStateType", o_state_type);
12419 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12420 /* +++ undefined GdkRectangle* */
12421 widget = sgtk_get_Object(o_widget);
12422 detail = scm_getstr(o_detail);
12423 x = scm_number2long(o_x);
12424 y = scm_number2long(o_y);
12425 width = scm_number2long(o_width);
12426 height = scm_number2long(o_height);
12427 gtk_paint_check(style, window, state_type, shadow_type, area, widget, detail, x, y, width, height);
12428 return(scm_undefined);
12429 }
12430 #endif /* INCOMPLETE */
12431
12432 #ifdef INCOMPLETE
sgtk_paint_option(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)12433 SOBJ sgtk_paint_option (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
12434 {
12435 GtkStyle* style;
12436 GdkWindow* window;
12437 GtkStateType state_type;
12438 GtkShadowType shadow_type;
12439 GdkRectangle* area;
12440 GtkWidget* widget;
12441 gchar* detail;
12442 gint x;
12443 gint y;
12444 gint width;
12445 gint height;
12446
12447 style = sgtk_get_Style(o_style);
12448 window = sgdk_get_Window(o_window);
12449 state_type = sgtk_enumget("GtkStateType", o_state_type);
12450 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12451 /* +++ undefined GdkRectangle* */
12452 widget = sgtk_get_Object(o_widget);
12453 detail = scm_getstr(o_detail);
12454 x = scm_number2long(o_x);
12455 y = scm_number2long(o_y);
12456 width = scm_number2long(o_width);
12457 height = scm_number2long(o_height);
12458 gtk_paint_option(style, window, state_type, shadow_type, area, widget, detail, x, y, width, height);
12459 return(scm_undefined);
12460 }
12461 #endif /* INCOMPLETE */
12462
12463 #ifdef INCOMPLETE
sgtk_paint_cross(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)12464 SOBJ sgtk_paint_cross (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
12465 {
12466 GtkStyle* style;
12467 GdkWindow* window;
12468 GtkStateType state_type;
12469 GtkShadowType shadow_type;
12470 GdkRectangle* area;
12471 GtkWidget* widget;
12472 gchar* detail;
12473 gint x;
12474 gint y;
12475 gint width;
12476 gint height;
12477
12478 style = sgtk_get_Style(o_style);
12479 window = sgdk_get_Window(o_window);
12480 state_type = sgtk_enumget("GtkStateType", o_state_type);
12481 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12482 /* +++ undefined GdkRectangle* */
12483 widget = sgtk_get_Object(o_widget);
12484 detail = scm_getstr(o_detail);
12485 x = scm_number2long(o_x);
12486 y = scm_number2long(o_y);
12487 width = scm_number2long(o_width);
12488 height = scm_number2long(o_height);
12489 gtk_paint_cross(style, window, state_type, shadow_type, area, widget, detail, x, y, width, height);
12490 return(scm_undefined);
12491 }
12492 #endif /* INCOMPLETE */
12493
12494 #ifdef INCOMPLETE
sgtk_paint_ramp(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_arrow_type,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)12495 SOBJ sgtk_paint_ramp (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_arrow_type, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
12496 {
12497 GtkStyle* style;
12498 GdkWindow* window;
12499 GtkStateType state_type;
12500 GtkShadowType shadow_type;
12501 GdkRectangle* area;
12502 GtkWidget* widget;
12503 gchar* detail;
12504 GtkArrowType arrow_type;
12505 gint x;
12506 gint y;
12507 gint width;
12508 gint height;
12509
12510 style = sgtk_get_Style(o_style);
12511 window = sgdk_get_Window(o_window);
12512 state_type = sgtk_enumget("GtkStateType", o_state_type);
12513 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12514 /* +++ undefined GdkRectangle* */
12515 widget = sgtk_get_Object(o_widget);
12516 detail = scm_getstr(o_detail);
12517 arrow_type = sgtk_enumget("GtkArrowType", o_arrow_type);
12518 x = scm_number2long(o_x);
12519 y = scm_number2long(o_y);
12520 width = scm_number2long(o_width);
12521 height = scm_number2long(o_height);
12522 gtk_paint_ramp(style, window, state_type, shadow_type, area, widget, detail, arrow_type, x, y, width, height);
12523 return(scm_undefined);
12524 }
12525 #endif /* INCOMPLETE */
12526
12527 #ifdef INCOMPLETE
sgtk_paint_tab(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)12528 SOBJ sgtk_paint_tab (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
12529 {
12530 GtkStyle* style;
12531 GdkWindow* window;
12532 GtkStateType state_type;
12533 GtkShadowType shadow_type;
12534 GdkRectangle* area;
12535 GtkWidget* widget;
12536 gchar* detail;
12537 gint x;
12538 gint y;
12539 gint width;
12540 gint height;
12541
12542 style = sgtk_get_Style(o_style);
12543 window = sgdk_get_Window(o_window);
12544 state_type = sgtk_enumget("GtkStateType", o_state_type);
12545 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12546 /* +++ undefined GdkRectangle* */
12547 widget = sgtk_get_Object(o_widget);
12548 detail = scm_getstr(o_detail);
12549 x = scm_number2long(o_x);
12550 y = scm_number2long(o_y);
12551 width = scm_number2long(o_width);
12552 height = scm_number2long(o_height);
12553 gtk_paint_tab(style, window, state_type, shadow_type, area, widget, detail, x, y, width, height);
12554 return(scm_undefined);
12555 }
12556 #endif /* INCOMPLETE */
12557
12558 #ifdef INCOMPLETE
sgtk_paint_shadow_gap(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height,SOBJ o_gap_side,SOBJ o_gap_x,SOBJ o_gap_width)12559 SOBJ sgtk_paint_shadow_gap (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height, SOBJ o_gap_side, SOBJ o_gap_x, SOBJ o_gap_width)
12560 {
12561 GtkStyle* style;
12562 GdkWindow* window;
12563 GtkStateType state_type;
12564 GtkShadowType shadow_type;
12565 GdkRectangle* area;
12566 GtkWidget* widget;
12567 gchar* detail;
12568 gint x;
12569 gint y;
12570 gint width;
12571 gint height;
12572 GtkPositionType gap_side;
12573 gint gap_x;
12574 gint gap_width;
12575
12576 style = sgtk_get_Style(o_style);
12577 window = sgdk_get_Window(o_window);
12578 state_type = sgtk_enumget("GtkStateType", o_state_type);
12579 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12580 /* +++ undefined GdkRectangle* */
12581 widget = sgtk_get_Object(o_widget);
12582 detail = scm_getstr(o_detail);
12583 x = scm_number2long(o_x);
12584 y = scm_number2long(o_y);
12585 width = scm_number2long(o_width);
12586 height = scm_number2long(o_height);
12587 gap_side = sgtk_enumget("GtkPositionType", o_gap_side);
12588 gap_x = scm_number2long(o_gap_x);
12589 gap_width = scm_number2long(o_gap_width);
12590 gtk_paint_shadow_gap(style, window, state_type, shadow_type, area, widget, detail, x, y, width, height, gap_side, gap_x, gap_width);
12591 return(scm_undefined);
12592 }
12593 #endif /* INCOMPLETE */
12594
12595 #ifdef INCOMPLETE
sgtk_paint_box_gap(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height,SOBJ o_gap_side,SOBJ o_gap_x,SOBJ o_gap_width)12596 SOBJ sgtk_paint_box_gap (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height, SOBJ o_gap_side, SOBJ o_gap_x, SOBJ o_gap_width)
12597 {
12598 GtkStyle* style;
12599 GdkWindow* window;
12600 GtkStateType state_type;
12601 GtkShadowType shadow_type;
12602 GdkRectangle* area;
12603 GtkWidget* widget;
12604 gchar* detail;
12605 gint x;
12606 gint y;
12607 gint width;
12608 gint height;
12609 GtkPositionType gap_side;
12610 gint gap_x;
12611 gint gap_width;
12612
12613 style = sgtk_get_Style(o_style);
12614 window = sgdk_get_Window(o_window);
12615 state_type = sgtk_enumget("GtkStateType", o_state_type);
12616 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12617 /* +++ undefined GdkRectangle* */
12618 widget = sgtk_get_Object(o_widget);
12619 detail = scm_getstr(o_detail);
12620 x = scm_number2long(o_x);
12621 y = scm_number2long(o_y);
12622 width = scm_number2long(o_width);
12623 height = scm_number2long(o_height);
12624 gap_side = sgtk_enumget("GtkPositionType", o_gap_side);
12625 gap_x = scm_number2long(o_gap_x);
12626 gap_width = scm_number2long(o_gap_width);
12627 gtk_paint_box_gap(style, window, state_type, shadow_type, area, widget, detail, x, y, width, height, gap_side, gap_x, gap_width);
12628 return(scm_undefined);
12629 }
12630 #endif /* INCOMPLETE */
12631
12632 #ifdef INCOMPLETE
sgtk_paint_extension(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height,SOBJ o_gap_side)12633 SOBJ sgtk_paint_extension (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height, SOBJ o_gap_side)
12634 {
12635 GtkStyle* style;
12636 GdkWindow* window;
12637 GtkStateType state_type;
12638 GtkShadowType shadow_type;
12639 GdkRectangle* area;
12640 GtkWidget* widget;
12641 gchar* detail;
12642 gint x;
12643 gint y;
12644 gint width;
12645 gint height;
12646 GtkPositionType gap_side;
12647
12648 style = sgtk_get_Style(o_style);
12649 window = sgdk_get_Window(o_window);
12650 state_type = sgtk_enumget("GtkStateType", o_state_type);
12651 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12652 /* +++ undefined GdkRectangle* */
12653 widget = sgtk_get_Object(o_widget);
12654 detail = scm_getstr(o_detail);
12655 x = scm_number2long(o_x);
12656 y = scm_number2long(o_y);
12657 width = scm_number2long(o_width);
12658 height = scm_number2long(o_height);
12659 gap_side = sgtk_enumget("GtkPositionType", o_gap_side);
12660 gtk_paint_extension(style, window, state_type, shadow_type, area, widget, detail, x, y, width, height, gap_side);
12661 return(scm_undefined);
12662 }
12663 #endif /* INCOMPLETE */
12664
12665 #ifdef INCOMPLETE
sgtk_paint_focus(SOBJ o_style,SOBJ o_window,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)12666 SOBJ sgtk_paint_focus (SOBJ o_style, SOBJ o_window, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
12667 {
12668 GtkStyle* style;
12669 GdkWindow* window;
12670 GdkRectangle* area;
12671 GtkWidget* widget;
12672 gchar* detail;
12673 gint x;
12674 gint y;
12675 gint width;
12676 gint height;
12677
12678 style = sgtk_get_Style(o_style);
12679 window = sgdk_get_Window(o_window);
12680 /* +++ undefined GdkRectangle* */
12681 widget = sgtk_get_Object(o_widget);
12682 detail = scm_getstr(o_detail);
12683 x = scm_number2long(o_x);
12684 y = scm_number2long(o_y);
12685 width = scm_number2long(o_width);
12686 height = scm_number2long(o_height);
12687 gtk_paint_focus(style, window, area, widget, detail, x, y, width, height);
12688 return(scm_undefined);
12689 }
12690 #endif /* INCOMPLETE */
12691
12692 #ifdef INCOMPLETE
sgtk_paint_slider(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height,SOBJ o_orientation)12693 SOBJ sgtk_paint_slider (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height, SOBJ o_orientation)
12694 {
12695 GtkStyle* style;
12696 GdkWindow* window;
12697 GtkStateType state_type;
12698 GtkShadowType shadow_type;
12699 GdkRectangle* area;
12700 GtkWidget* widget;
12701 gchar* detail;
12702 gint x;
12703 gint y;
12704 gint width;
12705 gint height;
12706 GtkOrientation orientation;
12707
12708 style = sgtk_get_Style(o_style);
12709 window = sgdk_get_Window(o_window);
12710 state_type = sgtk_enumget("GtkStateType", o_state_type);
12711 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12712 /* +++ undefined GdkRectangle* */
12713 widget = sgtk_get_Object(o_widget);
12714 detail = scm_getstr(o_detail);
12715 x = scm_number2long(o_x);
12716 y = scm_number2long(o_y);
12717 width = scm_number2long(o_width);
12718 height = scm_number2long(o_height);
12719 orientation = sgtk_enumget("GtkOrientation", o_orientation);
12720 gtk_paint_slider(style, window, state_type, shadow_type, area, widget, detail, x, y, width, height, orientation);
12721 return(scm_undefined);
12722 }
12723 #endif /* INCOMPLETE */
12724
12725 #ifdef INCOMPLETE
sgtk_paint_handle(SOBJ o_style,SOBJ o_window,SOBJ o_state_type,SOBJ o_shadow_type,SOBJ o_area,SOBJ o_widget,SOBJ o_detail,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height,SOBJ o_orientation)12726 SOBJ sgtk_paint_handle (SOBJ o_style, SOBJ o_window, SOBJ o_state_type, SOBJ o_shadow_type, SOBJ o_area, SOBJ o_widget, SOBJ o_detail, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height, SOBJ o_orientation)
12727 {
12728 GtkStyle* style;
12729 GdkWindow* window;
12730 GtkStateType state_type;
12731 GtkShadowType shadow_type;
12732 GdkRectangle* area;
12733 GtkWidget* widget;
12734 gchar* detail;
12735 gint x;
12736 gint y;
12737 gint width;
12738 gint height;
12739 GtkOrientation orientation;
12740
12741 style = sgtk_get_Style(o_style);
12742 window = sgdk_get_Window(o_window);
12743 state_type = sgtk_enumget("GtkStateType", o_state_type);
12744 shadow_type = sgtk_enumget("GtkShadowType", o_shadow_type);
12745 /* +++ undefined GdkRectangle* */
12746 widget = sgtk_get_Object(o_widget);
12747 detail = scm_getstr(o_detail);
12748 x = scm_number2long(o_x);
12749 y = scm_number2long(o_y);
12750 width = scm_number2long(o_width);
12751 height = scm_number2long(o_height);
12752 orientation = sgtk_enumget("GtkOrientation", o_orientation);
12753 gtk_paint_handle(style, window, state_type, shadow_type, area, widget, detail, x, y, width, height, orientation);
12754 return(scm_undefined);
12755 }
12756 #endif /* INCOMPLETE */
12757
sgtk_table_get_type()12758 SOBJ sgtk_table_get_type ()
12759 {
12760 GtkType __retval__;
12761
12762 __retval__ = gtk_table_get_type();
12763 return(SCM_MKINUM(__retval__));
12764 }
12765
sgtk_table_new(SOBJ o_rows,SOBJ o_columns,SOBJ o_homogeneous)12766 SOBJ sgtk_table_new (SOBJ o_rows, SOBJ o_columns, SOBJ o_homogeneous)
12767 {
12768 guint rows;
12769 guint columns;
12770 gboolean homogeneous;
12771 GtkWidget* __retval__;
12772
12773 rows = scm_number2long(o_rows);
12774 columns = scm_number2long(o_columns);
12775 homogeneous = (o_homogeneous != scm_false);
12776 __retval__ = gtk_table_new(rows, columns, homogeneous);
12777 return(sgtk_object_new((void*)__retval__));
12778 }
12779
sgtk_table_resize(SOBJ o_table,SOBJ o_n_rows,SOBJ o_n_cols)12780 SOBJ sgtk_table_resize (SOBJ o_table, SOBJ o_n_rows, SOBJ o_n_cols)
12781 {
12782 GtkTable* table;
12783 guint n_rows;
12784 guint n_cols;
12785
12786 table = sgtk_get_Object(o_table);
12787 n_rows = scm_number2long(o_n_rows);
12788 n_cols = scm_number2long(o_n_cols);
12789 gtk_table_resize(table, n_rows, n_cols);
12790 return(scm_undefined);
12791 }
12792
sgtk_table_attach(SOBJ o_table,SOBJ o_child,SOBJ o_left_attach,SOBJ o_right_attach,SOBJ o_top_attach,SOBJ o_bottom_attach,SOBJ o_xoptions,SOBJ o_yoptions,SOBJ o_xpadding,SOBJ o_ypadding)12793 SOBJ sgtk_table_attach (SOBJ o_table, SOBJ o_child, SOBJ o_left_attach, SOBJ o_right_attach, SOBJ o_top_attach, SOBJ o_bottom_attach, SOBJ o_xoptions, SOBJ o_yoptions, SOBJ o_xpadding, SOBJ o_ypadding)
12794 {
12795 GtkTable* table;
12796 GtkWidget* child;
12797 guint left_attach;
12798 guint right_attach;
12799 guint top_attach;
12800 guint bottom_attach;
12801 GtkAttachOptions xoptions;
12802 GtkAttachOptions yoptions;
12803 guint xpadding;
12804 guint ypadding;
12805
12806 table = sgtk_get_Object(o_table);
12807 child = sgtk_get_Object(o_child);
12808 left_attach = scm_number2long(o_left_attach);
12809 right_attach = scm_number2long(o_right_attach);
12810 top_attach = scm_number2long(o_top_attach);
12811 bottom_attach = scm_number2long(o_bottom_attach);
12812 xoptions = sgtk_flagsget("GtkAttachOptions", o_xoptions);
12813 yoptions = sgtk_flagsget("GtkAttachOptions", o_yoptions);
12814 xpadding = scm_number2long(o_xpadding);
12815 ypadding = scm_number2long(o_ypadding);
12816 gtk_table_attach(table, child, left_attach, right_attach, top_attach, bottom_attach, xoptions, yoptions, xpadding, ypadding);
12817 return(scm_undefined);
12818 }
12819
sgtk_table_attach_defaults(SOBJ o_table,SOBJ o_widget,SOBJ o_left_attach,SOBJ o_right_attach,SOBJ o_top_attach,SOBJ o_bottom_attach)12820 SOBJ sgtk_table_attach_defaults (SOBJ o_table, SOBJ o_widget, SOBJ o_left_attach, SOBJ o_right_attach, SOBJ o_top_attach, SOBJ o_bottom_attach)
12821 {
12822 GtkTable* table;
12823 GtkWidget* widget;
12824 guint left_attach;
12825 guint right_attach;
12826 guint top_attach;
12827 guint bottom_attach;
12828
12829 table = sgtk_get_Object(o_table);
12830 widget = sgtk_get_Object(o_widget);
12831 left_attach = scm_number2long(o_left_attach);
12832 right_attach = scm_number2long(o_right_attach);
12833 top_attach = scm_number2long(o_top_attach);
12834 bottom_attach = scm_number2long(o_bottom_attach);
12835 gtk_table_attach_defaults(table, widget, left_attach, right_attach, top_attach, bottom_attach);
12836 return(scm_undefined);
12837 }
12838
sgtk_table_set_row_spacing(SOBJ o_table,SOBJ o_row,SOBJ o_spacing)12839 SOBJ sgtk_table_set_row_spacing (SOBJ o_table, SOBJ o_row, SOBJ o_spacing)
12840 {
12841 GtkTable* table;
12842 guint row;
12843 guint spacing;
12844
12845 table = sgtk_get_Object(o_table);
12846 row = scm_number2long(o_row);
12847 spacing = scm_number2long(o_spacing);
12848 gtk_table_set_row_spacing(table, row, spacing);
12849 return(scm_undefined);
12850 }
12851
sgtk_table_set_col_spacing(SOBJ o_table,SOBJ o_column,SOBJ o_spacing)12852 SOBJ sgtk_table_set_col_spacing (SOBJ o_table, SOBJ o_column, SOBJ o_spacing)
12853 {
12854 GtkTable* table;
12855 guint column;
12856 guint spacing;
12857
12858 table = sgtk_get_Object(o_table);
12859 column = scm_number2long(o_column);
12860 spacing = scm_number2long(o_spacing);
12861 gtk_table_set_col_spacing(table, column, spacing);
12862 return(scm_undefined);
12863 }
12864
sgtk_table_set_row_spacings(SOBJ o_table,SOBJ o_spacing)12865 SOBJ sgtk_table_set_row_spacings (SOBJ o_table, SOBJ o_spacing)
12866 {
12867 GtkTable* table;
12868 guint spacing;
12869
12870 table = sgtk_get_Object(o_table);
12871 spacing = scm_number2long(o_spacing);
12872 gtk_table_set_row_spacings(table, spacing);
12873 return(scm_undefined);
12874 }
12875
sgtk_table_set_col_spacings(SOBJ o_table,SOBJ o_spacing)12876 SOBJ sgtk_table_set_col_spacings (SOBJ o_table, SOBJ o_spacing)
12877 {
12878 GtkTable* table;
12879 guint spacing;
12880
12881 table = sgtk_get_Object(o_table);
12882 spacing = scm_number2long(o_spacing);
12883 gtk_table_set_col_spacings(table, spacing);
12884 return(scm_undefined);
12885 }
12886
sgtk_table_set_homogeneous(SOBJ o_table,SOBJ o_homogeneous)12887 SOBJ sgtk_table_set_homogeneous (SOBJ o_table, SOBJ o_homogeneous)
12888 {
12889 GtkTable* table;
12890 gboolean homogeneous;
12891
12892 table = sgtk_get_Object(o_table);
12893 homogeneous = (o_homogeneous != scm_false);
12894 gtk_table_set_homogeneous(table, homogeneous);
12895 return(scm_undefined);
12896 }
12897
sgtk_tearoff_menu_item_get_type()12898 SOBJ sgtk_tearoff_menu_item_get_type ()
12899 {
12900 GtkType __retval__;
12901
12902 __retval__ = gtk_tearoff_menu_item_get_type();
12903 return(SCM_MKINUM(__retval__));
12904 }
12905
sgtk_tearoff_menu_item_new()12906 SOBJ sgtk_tearoff_menu_item_new ()
12907 {
12908 GtkWidget* __retval__;
12909
12910 __retval__ = gtk_tearoff_menu_item_new();
12911 return(sgtk_object_new((void*)__retval__));
12912 }
12913
sgtk_text_get_type()12914 SOBJ sgtk_text_get_type ()
12915 {
12916 GtkType __retval__;
12917
12918 __retval__ = gtk_text_get_type();
12919 return(SCM_MKINUM(__retval__));
12920 }
12921
sgtk_text_new(SOBJ o_hadj,SOBJ o_vadj)12922 SOBJ sgtk_text_new (SOBJ o_hadj, SOBJ o_vadj)
12923 {
12924 GtkAdjustment* hadj;
12925 GtkAdjustment* vadj;
12926 GtkWidget* __retval__;
12927
12928 hadj = sgtk_get_Object(o_hadj);
12929 vadj = sgtk_get_Object(o_vadj);
12930 __retval__ = gtk_text_new(hadj, vadj);
12931 return(sgtk_object_new((void*)__retval__));
12932 }
12933
sgtk_text_set_word_wrap(SOBJ o_text,SOBJ o_word_wrap)12934 SOBJ sgtk_text_set_word_wrap (SOBJ o_text, SOBJ o_word_wrap)
12935 {
12936 GtkText* text;
12937 gint word_wrap;
12938
12939 text = sgtk_get_Object(o_text);
12940 word_wrap = scm_number2long(o_word_wrap);
12941 gtk_text_set_word_wrap(text, word_wrap);
12942 return(scm_undefined);
12943 }
12944
sgtk_text_set_line_wrap(SOBJ o_text,SOBJ o_line_wrap)12945 SOBJ sgtk_text_set_line_wrap (SOBJ o_text, SOBJ o_line_wrap)
12946 {
12947 GtkText* text;
12948 gint line_wrap;
12949
12950 text = sgtk_get_Object(o_text);
12951 line_wrap = scm_number2long(o_line_wrap);
12952 gtk_text_set_line_wrap(text, line_wrap);
12953 return(scm_undefined);
12954 }
12955
sgtk_text_set_editable(SOBJ o_text,SOBJ o_is_editable)12956 SOBJ sgtk_text_set_editable (SOBJ o_text, SOBJ o_is_editable)
12957 {
12958 GtkText* text;
12959 gboolean is_editable;
12960
12961 text = sgtk_get_Object(o_text);
12962 is_editable = (o_is_editable != scm_false);
12963 gtk_text_set_editable(text, is_editable);
12964 return(scm_undefined);
12965 }
12966
sgtk_text_set_adjustments(SOBJ o_text,SOBJ o_hadj,SOBJ o_vadj)12967 SOBJ sgtk_text_set_adjustments (SOBJ o_text, SOBJ o_hadj, SOBJ o_vadj)
12968 {
12969 GtkText* text;
12970 GtkAdjustment* hadj;
12971 GtkAdjustment* vadj;
12972
12973 text = sgtk_get_Object(o_text);
12974 hadj = sgtk_get_Object(o_hadj);
12975 vadj = sgtk_get_Object(o_vadj);
12976 gtk_text_set_adjustments(text, hadj, vadj);
12977 return(scm_undefined);
12978 }
12979
sgtk_text_set_point(SOBJ o_text,SOBJ o_index)12980 SOBJ sgtk_text_set_point (SOBJ o_text, SOBJ o_index)
12981 {
12982 GtkText* text;
12983 guint index;
12984
12985 text = sgtk_get_Object(o_text);
12986 index = scm_number2long(o_index);
12987 gtk_text_set_point(text, index);
12988 return(scm_undefined);
12989 }
12990
sgtk_text_get_point(SOBJ o_text)12991 SOBJ sgtk_text_get_point (SOBJ o_text)
12992 {
12993 GtkText* text;
12994 guint __retval__;
12995
12996 text = sgtk_get_Object(o_text);
12997 __retval__ = gtk_text_get_point(text);
12998 return(SCM_MKINUM(__retval__));
12999 }
13000
sgtk_text_get_length(SOBJ o_text)13001 SOBJ sgtk_text_get_length (SOBJ o_text)
13002 {
13003 GtkText* text;
13004 guint __retval__;
13005
13006 text = sgtk_get_Object(o_text);
13007 __retval__ = gtk_text_get_length(text);
13008 return(SCM_MKINUM(__retval__));
13009 }
13010
sgtk_text_freeze(SOBJ o_text)13011 SOBJ sgtk_text_freeze (SOBJ o_text)
13012 {
13013 GtkText* text;
13014
13015 text = sgtk_get_Object(o_text);
13016 gtk_text_freeze(text);
13017 return(scm_undefined);
13018 }
13019
sgtk_text_thaw(SOBJ o_text)13020 SOBJ sgtk_text_thaw (SOBJ o_text)
13021 {
13022 GtkText* text;
13023
13024 text = sgtk_get_Object(o_text);
13025 gtk_text_thaw(text);
13026 return(scm_undefined);
13027 }
13028
sgtk_text_insert(SOBJ o_text,SOBJ o_font,SOBJ o_fore,SOBJ o_back,SOBJ o_chars,SOBJ o_nchars)13029 SOBJ sgtk_text_insert (SOBJ o_text, SOBJ o_font, SOBJ o_fore, SOBJ o_back, SOBJ o_chars, SOBJ o_nchars)
13030 {
13031 GtkText* text;
13032 GdkFont* font;
13033 GdkColor* fore;
13034 GdkColor* back;
13035 char* chars;
13036 gint nchars;
13037
13038 text = sgtk_get_Object(o_text);
13039 font = sgdk_get_Font(o_font);
13040 fore = sgdk_get_Color(o_fore);
13041 back = sgdk_get_Color(o_back);
13042 chars = scm_getstr(o_chars);
13043 nchars = scm_number2long(o_nchars);
13044 gtk_text_insert(text, font, fore, back, chars, nchars);
13045 return(scm_undefined);
13046 }
13047
sgtk_text_backward_delete(SOBJ o_text,SOBJ o_nchars)13048 SOBJ sgtk_text_backward_delete (SOBJ o_text, SOBJ o_nchars)
13049 {
13050 GtkText* text;
13051 guint nchars;
13052 gint __retval__;
13053
13054 text = sgtk_get_Object(o_text);
13055 nchars = scm_number2long(o_nchars);
13056 __retval__ = gtk_text_backward_delete(text, nchars);
13057 return(SCM_MKINUM(__retval__));
13058 }
13059
sgtk_text_forward_delete(SOBJ o_text,SOBJ o_nchars)13060 SOBJ sgtk_text_forward_delete (SOBJ o_text, SOBJ o_nchars)
13061 {
13062 GtkText* text;
13063 guint nchars;
13064 gint __retval__;
13065
13066 text = sgtk_get_Object(o_text);
13067 nchars = scm_number2long(o_nchars);
13068 __retval__ = gtk_text_forward_delete(text, nchars);
13069 return(SCM_MKINUM(__retval__));
13070 }
13071
13072 #ifdef INCOMPLETE
13073 /* +++ return type GtkThemeEngine* not defined */
sgtk_theme_engine_get(SOBJ o_name)13074 SOBJ sgtk_theme_engine_get (SOBJ o_name)
13075 {
13076 gchar* name;
13077 GtkThemeEngine* __retval__;
13078
13079 name = scm_getstr(o_name);
13080 __retval__ = gtk_theme_engine_get(name);
13081 /* +++ don't know how to generate GtkThemeEngine* */
13082 return(scm_undefined);
13083 }
13084 #endif /* INCOMPLETE */
13085
13086 #ifdef INCOMPLETE
sgtk_theme_engine_ref(SOBJ o_engine)13087 SOBJ sgtk_theme_engine_ref (SOBJ o_engine)
13088 {
13089 GtkThemeEngine* engine;
13090
13091 /* +++ undefined GtkThemeEngine* */
13092 gtk_theme_engine_ref(engine);
13093 return(scm_undefined);
13094 }
13095 #endif /* INCOMPLETE */
13096
13097 #ifdef INCOMPLETE
sgtk_theme_engine_unref(SOBJ o_engine)13098 SOBJ sgtk_theme_engine_unref (SOBJ o_engine)
13099 {
13100 GtkThemeEngine* engine;
13101
13102 /* +++ undefined GtkThemeEngine* */
13103 gtk_theme_engine_unref(engine);
13104 return(scm_undefined);
13105 }
13106 #endif /* INCOMPLETE */
13107
sgtk_tips_query_get_type()13108 SOBJ sgtk_tips_query_get_type ()
13109 {
13110 guint __retval__;
13111
13112 __retval__ = gtk_tips_query_get_type();
13113 return(SCM_MKINUM(__retval__));
13114 }
13115
sgtk_tips_query_new()13116 SOBJ sgtk_tips_query_new ()
13117 {
13118 GtkWidget* __retval__;
13119
13120 __retval__ = gtk_tips_query_new();
13121 return(sgtk_object_new((void*)__retval__));
13122 }
13123
sgtk_tips_query_set_labels(SOBJ o_tips_query,SOBJ o_label_inactive,SOBJ o_label_no_tip)13124 SOBJ sgtk_tips_query_set_labels (SOBJ o_tips_query, SOBJ o_label_inactive, SOBJ o_label_no_tip)
13125 {
13126 GtkTipsQuery* tips_query;
13127 gchar* label_inactive;
13128 gchar* label_no_tip;
13129
13130 tips_query = sgtk_get_Object(o_tips_query);
13131 label_inactive = scm_getstr(o_label_inactive);
13132 label_no_tip = scm_getstr(o_label_no_tip);
13133 gtk_tips_query_set_labels(tips_query, label_inactive, label_no_tip);
13134 return(scm_undefined);
13135 }
13136
sgtk_tips_query_set_caller(SOBJ o_tips_query,SOBJ o_caller)13137 SOBJ sgtk_tips_query_set_caller (SOBJ o_tips_query, SOBJ o_caller)
13138 {
13139 GtkTipsQuery* tips_query;
13140 GtkWidget* caller;
13141
13142 tips_query = sgtk_get_Object(o_tips_query);
13143 caller = sgtk_get_Object(o_caller);
13144 gtk_tips_query_set_caller(tips_query, caller);
13145 return(scm_undefined);
13146 }
13147
sgtk_tips_query_start_query(SOBJ o_tips_query)13148 SOBJ sgtk_tips_query_start_query (SOBJ o_tips_query)
13149 {
13150 GtkTipsQuery* tips_query;
13151
13152 tips_query = sgtk_get_Object(o_tips_query);
13153 gtk_tips_query_start_query(tips_query);
13154 return(scm_undefined);
13155 }
13156
sgtk_tips_query_stop_query(SOBJ o_tips_query)13157 SOBJ sgtk_tips_query_stop_query (SOBJ o_tips_query)
13158 {
13159 GtkTipsQuery* tips_query;
13160
13161 tips_query = sgtk_get_Object(o_tips_query);
13162 gtk_tips_query_stop_query(tips_query);
13163 return(scm_undefined);
13164 }
13165
sgtk_toggle_button_get_type()13166 SOBJ sgtk_toggle_button_get_type ()
13167 {
13168 GtkType __retval__;
13169
13170 __retval__ = gtk_toggle_button_get_type();
13171 return(SCM_MKINUM(__retval__));
13172 }
13173
sgtk_toggle_button_new()13174 SOBJ sgtk_toggle_button_new ()
13175 {
13176 GtkWidget* __retval__;
13177
13178 __retval__ = gtk_toggle_button_new();
13179 return(sgtk_object_new((void*)__retval__));
13180 }
13181
sgtk_toggle_button_new_with_label(SOBJ o_label)13182 SOBJ sgtk_toggle_button_new_with_label (SOBJ o_label)
13183 {
13184 gchar* label;
13185 GtkWidget* __retval__;
13186
13187 label = scm_getstr(o_label);
13188 __retval__ = gtk_toggle_button_new_with_label(label);
13189 return(sgtk_object_new((void*)__retval__));
13190 }
13191
sgtk_toggle_button_set_mode(SOBJ o_toggle_button,SOBJ o_draw_indicator)13192 SOBJ sgtk_toggle_button_set_mode (SOBJ o_toggle_button, SOBJ o_draw_indicator)
13193 {
13194 GtkToggleButton* toggle_button;
13195 gboolean draw_indicator;
13196
13197 toggle_button = sgtk_get_Object(o_toggle_button);
13198 draw_indicator = (o_draw_indicator != scm_false);
13199 gtk_toggle_button_set_mode(toggle_button, draw_indicator);
13200 return(scm_undefined);
13201 }
13202
sgtk_toggle_button_set_active(SOBJ o_toggle_button,SOBJ o_is_active)13203 SOBJ sgtk_toggle_button_set_active (SOBJ o_toggle_button, SOBJ o_is_active)
13204 {
13205 GtkToggleButton* toggle_button;
13206 gboolean is_active;
13207
13208 toggle_button = sgtk_get_Object(o_toggle_button);
13209 is_active = (o_is_active != scm_false);
13210 gtk_toggle_button_set_active(toggle_button, is_active);
13211 return(scm_undefined);
13212 }
13213
sgtk_toggle_button_get_active(SOBJ o_toggle_button)13214 SOBJ sgtk_toggle_button_get_active (SOBJ o_toggle_button)
13215 {
13216 GtkToggleButton* toggle_button;
13217 gboolean __retval__;
13218
13219 toggle_button = sgtk_get_Object(o_toggle_button);
13220 __retval__ = gtk_toggle_button_get_active(toggle_button);
13221 return(SCM_MKBOOL(__retval__));
13222 }
13223
sgtk_toggle_button_toggled(SOBJ o_toggle_button)13224 SOBJ sgtk_toggle_button_toggled (SOBJ o_toggle_button)
13225 {
13226 GtkToggleButton* toggle_button;
13227
13228 toggle_button = sgtk_get_Object(o_toggle_button);
13229 gtk_toggle_button_toggled(toggle_button);
13230 return(scm_undefined);
13231 }
13232
sgtk_toolbar_get_type()13233 SOBJ sgtk_toolbar_get_type ()
13234 {
13235 guint __retval__;
13236
13237 __retval__ = gtk_toolbar_get_type();
13238 return(SCM_MKINUM(__retval__));
13239 }
13240
sgtk_toolbar_new(SOBJ o_orientation,SOBJ o_style)13241 SOBJ sgtk_toolbar_new (SOBJ o_orientation, SOBJ o_style)
13242 {
13243 GtkOrientation orientation;
13244 GtkToolbarStyle style;
13245 GtkWidget* __retval__;
13246
13247 orientation = sgtk_enumget("GtkOrientation", o_orientation);
13248 style = sgtk_enumget("GtkToolbarStyle", o_style);
13249 __retval__ = gtk_toolbar_new(orientation, style);
13250 return(sgtk_object_new((void*)__retval__));
13251 }
13252
13253 #ifdef INCOMPLETE
sgtk_toolbar_append_item(SOBJ o_toolbar,SOBJ o_text,SOBJ o_tooltip_text,SOBJ o_tooltip_private_text,SOBJ o_icon,SOBJ o_callback,SOBJ o_user_data)13254 SOBJ sgtk_toolbar_append_item (SOBJ o_toolbar, SOBJ o_text, SOBJ o_tooltip_text, SOBJ o_tooltip_private_text, SOBJ o_icon, SOBJ o_callback, SOBJ o_user_data)
13255 {
13256 GtkToolbar* toolbar;
13257 char* text;
13258 char* tooltip_text;
13259 char* tooltip_private_text;
13260 GtkWidget* icon;
13261 GtkSignalFunc callback;
13262 gpointer user_data;
13263 GtkWidget* __retval__;
13264
13265 toolbar = sgtk_get_Object(o_toolbar);
13266 text = scm_getstr(o_text);
13267 tooltip_text = scm_getstr(o_tooltip_text);
13268 tooltip_private_text = scm_getstr(o_tooltip_private_text);
13269 icon = sgtk_get_Object(o_icon);
13270 /* +++ undefined GtkSignalFunc */
13271 /* +++ get gpointer -> pointer failed */
13272 __retval__ = gtk_toolbar_append_item(toolbar, text, tooltip_text, tooltip_private_text, icon, callback, user_data);
13273 return(sgtk_object_new((void*)__retval__));
13274 }
13275 #endif /* INCOMPLETE */
13276
13277 #ifdef INCOMPLETE
sgtk_toolbar_prepend_item(SOBJ o_toolbar,SOBJ o_text,SOBJ o_tooltip_text,SOBJ o_tooltip_private_text,SOBJ o_icon,SOBJ o_callback,SOBJ o_user_data)13278 SOBJ sgtk_toolbar_prepend_item (SOBJ o_toolbar, SOBJ o_text, SOBJ o_tooltip_text, SOBJ o_tooltip_private_text, SOBJ o_icon, SOBJ o_callback, SOBJ o_user_data)
13279 {
13280 GtkToolbar* toolbar;
13281 char* text;
13282 char* tooltip_text;
13283 char* tooltip_private_text;
13284 GtkWidget* icon;
13285 GtkSignalFunc callback;
13286 gpointer user_data;
13287 GtkWidget* __retval__;
13288
13289 toolbar = sgtk_get_Object(o_toolbar);
13290 text = scm_getstr(o_text);
13291 tooltip_text = scm_getstr(o_tooltip_text);
13292 tooltip_private_text = scm_getstr(o_tooltip_private_text);
13293 icon = sgtk_get_Object(o_icon);
13294 /* +++ undefined GtkSignalFunc */
13295 /* +++ get gpointer -> pointer failed */
13296 __retval__ = gtk_toolbar_prepend_item(toolbar, text, tooltip_text, tooltip_private_text, icon, callback, user_data);
13297 return(sgtk_object_new((void*)__retval__));
13298 }
13299 #endif /* INCOMPLETE */
13300
13301 #ifdef INCOMPLETE
sgtk_toolbar_insert_item(SOBJ o_toolbar,SOBJ o_text,SOBJ o_tooltip_text,SOBJ o_tooltip_private_text,SOBJ o_icon,SOBJ o_callback,SOBJ o_user_data,SOBJ o_position)13302 SOBJ sgtk_toolbar_insert_item (SOBJ o_toolbar, SOBJ o_text, SOBJ o_tooltip_text, SOBJ o_tooltip_private_text, SOBJ o_icon, SOBJ o_callback, SOBJ o_user_data, SOBJ o_position)
13303 {
13304 GtkToolbar* toolbar;
13305 char* text;
13306 char* tooltip_text;
13307 char* tooltip_private_text;
13308 GtkWidget* icon;
13309 GtkSignalFunc callback;
13310 gpointer user_data;
13311 gint position;
13312 GtkWidget* __retval__;
13313
13314 toolbar = sgtk_get_Object(o_toolbar);
13315 text = scm_getstr(o_text);
13316 tooltip_text = scm_getstr(o_tooltip_text);
13317 tooltip_private_text = scm_getstr(o_tooltip_private_text);
13318 icon = sgtk_get_Object(o_icon);
13319 /* +++ undefined GtkSignalFunc */
13320 /* +++ get gpointer -> pointer failed */
13321 position = scm_number2long(o_position);
13322 __retval__ = gtk_toolbar_insert_item(toolbar, text, tooltip_text, tooltip_private_text, icon, callback, user_data, position);
13323 return(sgtk_object_new((void*)__retval__));
13324 }
13325 #endif /* INCOMPLETE */
13326
sgtk_toolbar_append_space(SOBJ o_toolbar)13327 SOBJ sgtk_toolbar_append_space (SOBJ o_toolbar)
13328 {
13329 GtkToolbar* toolbar;
13330
13331 toolbar = sgtk_get_Object(o_toolbar);
13332 gtk_toolbar_append_space(toolbar);
13333 return(scm_undefined);
13334 }
13335
sgtk_toolbar_prepend_space(SOBJ o_toolbar)13336 SOBJ sgtk_toolbar_prepend_space (SOBJ o_toolbar)
13337 {
13338 GtkToolbar* toolbar;
13339
13340 toolbar = sgtk_get_Object(o_toolbar);
13341 gtk_toolbar_prepend_space(toolbar);
13342 return(scm_undefined);
13343 }
13344
sgtk_toolbar_insert_space(SOBJ o_toolbar,SOBJ o_position)13345 SOBJ sgtk_toolbar_insert_space (SOBJ o_toolbar, SOBJ o_position)
13346 {
13347 GtkToolbar* toolbar;
13348 gint position;
13349
13350 toolbar = sgtk_get_Object(o_toolbar);
13351 position = scm_number2long(o_position);
13352 gtk_toolbar_insert_space(toolbar, position);
13353 return(scm_undefined);
13354 }
13355
sgtk_toolbar_append_widget(SOBJ o_toolbar,SOBJ o_widget,SOBJ o_tooltip_text,SOBJ o_tooltip_private_text)13356 SOBJ sgtk_toolbar_append_widget (SOBJ o_toolbar, SOBJ o_widget, SOBJ o_tooltip_text, SOBJ o_tooltip_private_text)
13357 {
13358 GtkToolbar* toolbar;
13359 GtkWidget* widget;
13360 gchar* tooltip_text;
13361 gchar* tooltip_private_text;
13362
13363 toolbar = sgtk_get_Object(o_toolbar);
13364 widget = sgtk_get_Object(o_widget);
13365 tooltip_text = scm_getstr(o_tooltip_text);
13366 tooltip_private_text = scm_getstr(o_tooltip_private_text);
13367 gtk_toolbar_append_widget(toolbar, widget, tooltip_text, tooltip_private_text);
13368 return(scm_undefined);
13369 }
13370
sgtk_toolbar_prepend_widget(SOBJ o_toolbar,SOBJ o_widget,SOBJ o_tooltip_text,SOBJ o_tooltip_private_text)13371 SOBJ sgtk_toolbar_prepend_widget (SOBJ o_toolbar, SOBJ o_widget, SOBJ o_tooltip_text, SOBJ o_tooltip_private_text)
13372 {
13373 GtkToolbar* toolbar;
13374 GtkWidget* widget;
13375 gchar* tooltip_text;
13376 gchar* tooltip_private_text;
13377
13378 toolbar = sgtk_get_Object(o_toolbar);
13379 widget = sgtk_get_Object(o_widget);
13380 tooltip_text = scm_getstr(o_tooltip_text);
13381 tooltip_private_text = scm_getstr(o_tooltip_private_text);
13382 gtk_toolbar_prepend_widget(toolbar, widget, tooltip_text, tooltip_private_text);
13383 return(scm_undefined);
13384 }
13385
sgtk_toolbar_insert_widget(SOBJ o_toolbar,SOBJ o_widget,SOBJ o_tooltip_text,SOBJ o_tooltip_private_text,SOBJ o_position)13386 SOBJ sgtk_toolbar_insert_widget (SOBJ o_toolbar, SOBJ o_widget, SOBJ o_tooltip_text, SOBJ o_tooltip_private_text, SOBJ o_position)
13387 {
13388 GtkToolbar* toolbar;
13389 GtkWidget* widget;
13390 char* tooltip_text;
13391 char* tooltip_private_text;
13392 gint position;
13393
13394 toolbar = sgtk_get_Object(o_toolbar);
13395 widget = sgtk_get_Object(o_widget);
13396 tooltip_text = scm_getstr(o_tooltip_text);
13397 tooltip_private_text = scm_getstr(o_tooltip_private_text);
13398 position = scm_number2long(o_position);
13399 gtk_toolbar_insert_widget(toolbar, widget, tooltip_text, tooltip_private_text, position);
13400 return(scm_undefined);
13401 }
13402
13403 #ifdef INCOMPLETE
sgtk_toolbar_append_element(SOBJ o_toolbar,SOBJ o_type,SOBJ o_widget,SOBJ o_text,SOBJ o_tooltip_text,SOBJ o_tooltip_private_text,SOBJ o_icon,SOBJ o_callback,SOBJ o_user_data)13404 SOBJ sgtk_toolbar_append_element (SOBJ o_toolbar, SOBJ o_type, SOBJ o_widget, SOBJ o_text, SOBJ o_tooltip_text, SOBJ o_tooltip_private_text, SOBJ o_icon, SOBJ o_callback, SOBJ o_user_data)
13405 {
13406 GtkToolbar* toolbar;
13407 GtkToolbarChildType type;
13408 GtkWidget* widget;
13409 char* text;
13410 char* tooltip_text;
13411 char* tooltip_private_text;
13412 GtkWidget* icon;
13413 GtkSignalFunc callback;
13414 gpointer user_data;
13415 GtkWidget* __retval__;
13416
13417 toolbar = sgtk_get_Object(o_toolbar);
13418 type = sgtk_enumget("GtkToolbarChildType", o_type);
13419 widget = sgtk_get_Object(o_widget);
13420 text = scm_getstr(o_text);
13421 tooltip_text = scm_getstr(o_tooltip_text);
13422 tooltip_private_text = scm_getstr(o_tooltip_private_text);
13423 icon = sgtk_get_Object(o_icon);
13424 /* +++ undefined GtkSignalFunc */
13425 /* +++ get gpointer -> pointer failed */
13426 __retval__ = gtk_toolbar_append_element(toolbar, type, widget, text, tooltip_text, tooltip_private_text, icon, callback, user_data);
13427 return(sgtk_object_new((void*)__retval__));
13428 }
13429 #endif /* INCOMPLETE */
13430
13431 #ifdef INCOMPLETE
sgtk_toolbar_prepend_element(SOBJ o_toolbar,SOBJ o_type,SOBJ o_widget,SOBJ o_text,SOBJ o_tooltip_text,SOBJ o_tooltip_private_text,SOBJ o_icon,SOBJ o_callback,SOBJ o_user_data)13432 SOBJ sgtk_toolbar_prepend_element (SOBJ o_toolbar, SOBJ o_type, SOBJ o_widget, SOBJ o_text, SOBJ o_tooltip_text, SOBJ o_tooltip_private_text, SOBJ o_icon, SOBJ o_callback, SOBJ o_user_data)
13433 {
13434 GtkToolbar* toolbar;
13435 GtkToolbarChildType type;
13436 GtkWidget* widget;
13437 char* text;
13438 char* tooltip_text;
13439 char* tooltip_private_text;
13440 GtkWidget* icon;
13441 GtkSignalFunc callback;
13442 gpointer user_data;
13443 GtkWidget* __retval__;
13444
13445 toolbar = sgtk_get_Object(o_toolbar);
13446 type = sgtk_enumget("GtkToolbarChildType", o_type);
13447 widget = sgtk_get_Object(o_widget);
13448 text = scm_getstr(o_text);
13449 tooltip_text = scm_getstr(o_tooltip_text);
13450 tooltip_private_text = scm_getstr(o_tooltip_private_text);
13451 icon = sgtk_get_Object(o_icon);
13452 /* +++ undefined GtkSignalFunc */
13453 /* +++ get gpointer -> pointer failed */
13454 __retval__ = gtk_toolbar_prepend_element(toolbar, type, widget, text, tooltip_text, tooltip_private_text, icon, callback, user_data);
13455 return(sgtk_object_new((void*)__retval__));
13456 }
13457 #endif /* INCOMPLETE */
13458
13459 #ifdef INCOMPLETE
sgtk_toolbar_insert_element(SOBJ o_toolbar,SOBJ o_type,SOBJ o_widget,SOBJ o_text,SOBJ o_tooltip_text,SOBJ o_tooltip_private_text,SOBJ o_icon,SOBJ o_callback,SOBJ o_user_data,SOBJ o_position)13460 SOBJ sgtk_toolbar_insert_element (SOBJ o_toolbar, SOBJ o_type, SOBJ o_widget, SOBJ o_text, SOBJ o_tooltip_text, SOBJ o_tooltip_private_text, SOBJ o_icon, SOBJ o_callback, SOBJ o_user_data, SOBJ o_position)
13461 {
13462 GtkToolbar* toolbar;
13463 GtkToolbarChildType type;
13464 GtkWidget* widget;
13465 char* text;
13466 char* tooltip_text;
13467 char* tooltip_private_text;
13468 GtkWidget* icon;
13469 GtkSignalFunc callback;
13470 gpointer user_data;
13471 gint position;
13472 GtkWidget* __retval__;
13473
13474 toolbar = sgtk_get_Object(o_toolbar);
13475 type = sgtk_enumget("GtkToolbarChildType", o_type);
13476 widget = sgtk_get_Object(o_widget);
13477 text = scm_getstr(o_text);
13478 tooltip_text = scm_getstr(o_tooltip_text);
13479 tooltip_private_text = scm_getstr(o_tooltip_private_text);
13480 icon = sgtk_get_Object(o_icon);
13481 /* +++ undefined GtkSignalFunc */
13482 /* +++ get gpointer -> pointer failed */
13483 position = scm_number2long(o_position);
13484 __retval__ = gtk_toolbar_insert_element(toolbar, type, widget, text, tooltip_text, tooltip_private_text, icon, callback, user_data, position);
13485 return(sgtk_object_new((void*)__retval__));
13486 }
13487 #endif /* INCOMPLETE */
13488
sgtk_toolbar_set_orientation(SOBJ o_toolbar,SOBJ o_orientation)13489 SOBJ sgtk_toolbar_set_orientation (SOBJ o_toolbar, SOBJ o_orientation)
13490 {
13491 GtkToolbar* toolbar;
13492 GtkOrientation orientation;
13493
13494 toolbar = sgtk_get_Object(o_toolbar);
13495 orientation = sgtk_enumget("GtkOrientation", o_orientation);
13496 gtk_toolbar_set_orientation(toolbar, orientation);
13497 return(scm_undefined);
13498 }
13499
sgtk_toolbar_set_style(SOBJ o_toolbar,SOBJ o_style)13500 SOBJ sgtk_toolbar_set_style (SOBJ o_toolbar, SOBJ o_style)
13501 {
13502 GtkToolbar* toolbar;
13503 GtkToolbarStyle style;
13504
13505 toolbar = sgtk_get_Object(o_toolbar);
13506 style = sgtk_enumget("GtkToolbarStyle", o_style);
13507 gtk_toolbar_set_style(toolbar, style);
13508 return(scm_undefined);
13509 }
13510
sgtk_toolbar_set_space_size(SOBJ o_toolbar,SOBJ o_space_size)13511 SOBJ sgtk_toolbar_set_space_size (SOBJ o_toolbar, SOBJ o_space_size)
13512 {
13513 GtkToolbar* toolbar;
13514 gint space_size;
13515
13516 toolbar = sgtk_get_Object(o_toolbar);
13517 space_size = scm_number2long(o_space_size);
13518 gtk_toolbar_set_space_size(toolbar, space_size);
13519 return(scm_undefined);
13520 }
13521
sgtk_toolbar_set_space_style(SOBJ o_toolbar,SOBJ o_space_style)13522 SOBJ sgtk_toolbar_set_space_style (SOBJ o_toolbar, SOBJ o_space_style)
13523 {
13524 GtkToolbar* toolbar;
13525 GtkToolbarSpaceStyle space_style;
13526
13527 toolbar = sgtk_get_Object(o_toolbar);
13528 space_style = sgtk_enumget("GtkToolbarSpaceStyle", o_space_style);
13529 gtk_toolbar_set_space_style(toolbar, space_style);
13530 return(scm_undefined);
13531 }
13532
sgtk_toolbar_set_tooltips(SOBJ o_toolbar,SOBJ o_enable)13533 SOBJ sgtk_toolbar_set_tooltips (SOBJ o_toolbar, SOBJ o_enable)
13534 {
13535 GtkToolbar* toolbar;
13536 gint enable;
13537
13538 toolbar = sgtk_get_Object(o_toolbar);
13539 enable = scm_number2long(o_enable);
13540 gtk_toolbar_set_tooltips(toolbar, enable);
13541 return(scm_undefined);
13542 }
13543
sgtk_toolbar_set_button_relief(SOBJ o_toolbar,SOBJ o_relief)13544 SOBJ sgtk_toolbar_set_button_relief (SOBJ o_toolbar, SOBJ o_relief)
13545 {
13546 GtkToolbar* toolbar;
13547 GtkReliefStyle relief;
13548
13549 toolbar = sgtk_get_Object(o_toolbar);
13550 relief = sgtk_enumget("GtkReliefStyle", o_relief);
13551 gtk_toolbar_set_button_relief(toolbar, relief);
13552 return(scm_undefined);
13553 }
13554
sgtk_toolbar_get_button_relief(SOBJ o_toolbar)13555 SOBJ sgtk_toolbar_get_button_relief (SOBJ o_toolbar)
13556 {
13557 GtkToolbar* toolbar;
13558 GtkReliefStyle __retval__;
13559
13560 toolbar = sgtk_get_Object(o_toolbar);
13561 __retval__ = gtk_toolbar_get_button_relief(toolbar);
13562 return(SCM_MKINUM(__retval__));
13563 }
13564
sgtk_tooltips_get_type()13565 SOBJ sgtk_tooltips_get_type ()
13566 {
13567 GtkType __retval__;
13568
13569 __retval__ = gtk_tooltips_get_type();
13570 return(SCM_MKINUM(__retval__));
13571 }
13572
sgtk_tooltips_new()13573 SOBJ sgtk_tooltips_new ()
13574 {
13575 GtkTooltips* __retval__;
13576
13577 __retval__ = gtk_tooltips_new();
13578 return(sgtk_object_new((void*)__retval__));
13579 }
13580
sgtk_tooltips_force_window(SOBJ o_tooltips)13581 SOBJ sgtk_tooltips_force_window (SOBJ o_tooltips)
13582 {
13583 GtkTooltips* tooltips;
13584
13585 tooltips = sgtk_get_Object(o_tooltips);
13586 gtk_tooltips_force_window(tooltips);
13587 return(scm_undefined);
13588 }
13589
sgtk_tooltips_enable(SOBJ o_tooltips)13590 SOBJ sgtk_tooltips_enable (SOBJ o_tooltips)
13591 {
13592 GtkTooltips* tooltips;
13593
13594 tooltips = sgtk_get_Object(o_tooltips);
13595 gtk_tooltips_enable(tooltips);
13596 return(scm_undefined);
13597 }
13598
sgtk_tooltips_disable(SOBJ o_tooltips)13599 SOBJ sgtk_tooltips_disable (SOBJ o_tooltips)
13600 {
13601 GtkTooltips* tooltips;
13602
13603 tooltips = sgtk_get_Object(o_tooltips);
13604 gtk_tooltips_disable(tooltips);
13605 return(scm_undefined);
13606 }
13607
sgtk_tooltips_set_delay(SOBJ o_tooltips,SOBJ o_delay)13608 SOBJ sgtk_tooltips_set_delay (SOBJ o_tooltips, SOBJ o_delay)
13609 {
13610 GtkTooltips* tooltips;
13611 guint delay;
13612
13613 tooltips = sgtk_get_Object(o_tooltips);
13614 delay = scm_number2long(o_delay);
13615 gtk_tooltips_set_delay(tooltips, delay);
13616 return(scm_undefined);
13617 }
13618
13619 #ifdef INCOMPLETE
13620 /* +++ return type GtkTooltipsData* not defined */
sgtk_tooltips_data_get(SOBJ o_widget)13621 SOBJ sgtk_tooltips_data_get (SOBJ o_widget)
13622 {
13623 GtkWidget* widget;
13624 GtkTooltipsData* __retval__;
13625
13626 widget = sgtk_get_Object(o_widget);
13627 __retval__ = gtk_tooltips_data_get(widget);
13628 /* +++ don't know how to generate GtkTooltipsData* */
13629 return(scm_undefined);
13630 }
13631 #endif /* INCOMPLETE */
13632
sgtk_tooltips_set_tip(SOBJ o_tooltips,SOBJ o_widget,SOBJ o_tip_text,SOBJ o_tip_private)13633 SOBJ sgtk_tooltips_set_tip (SOBJ o_tooltips, SOBJ o_widget, SOBJ o_tip_text, SOBJ o_tip_private)
13634 {
13635 GtkTooltips* tooltips;
13636 GtkWidget* widget;
13637 gchar* tip_text;
13638 gchar* tip_private;
13639
13640 tooltips = sgtk_get_Object(o_tooltips);
13641 widget = sgtk_get_Object(o_widget);
13642 tip_text = scm_getstr(o_tip_text);
13643 tip_private = scm_getstr(o_tip_private);
13644 gtk_tooltips_set_tip(tooltips, widget, tip_text, tip_private);
13645 return(scm_undefined);
13646 }
13647
sgtk_tooltips_set_colors(SOBJ o_tooltips,SOBJ o_background,SOBJ o_foreground)13648 SOBJ sgtk_tooltips_set_colors (SOBJ o_tooltips, SOBJ o_background, SOBJ o_foreground)
13649 {
13650 GtkTooltips* tooltips;
13651 GdkColor* background;
13652 GdkColor* foreground;
13653
13654 tooltips = sgtk_get_Object(o_tooltips);
13655 background = sgdk_get_Color(o_background);
13656 foreground = sgdk_get_Color(o_foreground);
13657 gtk_tooltips_set_colors(tooltips, background, foreground);
13658 return(scm_undefined);
13659 }
13660
sgtk_tree_get_type()13661 SOBJ sgtk_tree_get_type ()
13662 {
13663 GtkType __retval__;
13664
13665 __retval__ = gtk_tree_get_type();
13666 return(SCM_MKINUM(__retval__));
13667 }
13668
sgtk_tree_new()13669 SOBJ sgtk_tree_new ()
13670 {
13671 GtkWidget* __retval__;
13672
13673 __retval__ = gtk_tree_new();
13674 return(sgtk_object_new((void*)__retval__));
13675 }
13676
sgtk_tree_append(SOBJ o_tree,SOBJ o_tree_item)13677 SOBJ sgtk_tree_append (SOBJ o_tree, SOBJ o_tree_item)
13678 {
13679 GtkTree* tree;
13680 GtkWidget* tree_item;
13681
13682 tree = sgtk_get_Object(o_tree);
13683 tree_item = sgtk_get_Object(o_tree_item);
13684 gtk_tree_append(tree, tree_item);
13685 return(scm_undefined);
13686 }
13687
sgtk_tree_prepend(SOBJ o_tree,SOBJ o_tree_item)13688 SOBJ sgtk_tree_prepend (SOBJ o_tree, SOBJ o_tree_item)
13689 {
13690 GtkTree* tree;
13691 GtkWidget* tree_item;
13692
13693 tree = sgtk_get_Object(o_tree);
13694 tree_item = sgtk_get_Object(o_tree_item);
13695 gtk_tree_prepend(tree, tree_item);
13696 return(scm_undefined);
13697 }
13698
sgtk_tree_insert(SOBJ o_tree,SOBJ o_tree_item,SOBJ o_position)13699 SOBJ sgtk_tree_insert (SOBJ o_tree, SOBJ o_tree_item, SOBJ o_position)
13700 {
13701 GtkTree* tree;
13702 GtkWidget* tree_item;
13703 gint position;
13704
13705 tree = sgtk_get_Object(o_tree);
13706 tree_item = sgtk_get_Object(o_tree_item);
13707 position = scm_number2long(o_position);
13708 gtk_tree_insert(tree, tree_item, position);
13709 return(scm_undefined);
13710 }
13711
sgtk_tree_child_position(SOBJ o_tree,SOBJ o_child)13712 SOBJ sgtk_tree_child_position (SOBJ o_tree, SOBJ o_child)
13713 {
13714 GtkTree* tree;
13715 GtkWidget* child;
13716 gint __retval__;
13717
13718 tree = sgtk_get_Object(o_tree);
13719 child = sgtk_get_Object(o_child);
13720 __retval__ = gtk_tree_child_position(tree, child);
13721 return(SCM_MKINUM(__retval__));
13722 }
13723
sgtk_tree_clear_items(SOBJ o_tree,SOBJ o_start,SOBJ o_end)13724 SOBJ sgtk_tree_clear_items (SOBJ o_tree, SOBJ o_start, SOBJ o_end)
13725 {
13726 GtkTree* tree;
13727 gint start;
13728 gint end;
13729
13730 tree = sgtk_get_Object(o_tree);
13731 start = scm_number2long(o_start);
13732 end = scm_number2long(o_end);
13733 gtk_tree_clear_items(tree, start, end);
13734 return(scm_undefined);
13735 }
13736
sgtk_tree_remove_item(SOBJ o_container,SOBJ o_widget)13737 SOBJ sgtk_tree_remove_item (SOBJ o_container, SOBJ o_widget)
13738 {
13739 GtkTree* container;
13740 GtkWidget* widget;
13741
13742 container = sgtk_get_Object(o_container);
13743 widget = sgtk_get_Object(o_widget);
13744 gtk_tree_remove_item(container, widget);
13745 return(scm_undefined);
13746 }
13747
13748 #ifdef INCOMPLETE
sgtk_tree_remove_items(SOBJ o_tree,SOBJ o_items)13749 SOBJ sgtk_tree_remove_items (SOBJ o_tree, SOBJ o_items)
13750 {
13751 GtkTree* tree;
13752 GList* items;
13753
13754 tree = sgtk_get_Object(o_tree);
13755 /* +++ undefined GList* */
13756 gtk_tree_remove_items(tree, items);
13757 return(scm_undefined);
13758 }
13759 #endif /* INCOMPLETE */
13760
sgtk_tree_select_child(SOBJ o_tree,SOBJ o_tree_item)13761 SOBJ sgtk_tree_select_child (SOBJ o_tree, SOBJ o_tree_item)
13762 {
13763 GtkTree* tree;
13764 GtkWidget* tree_item;
13765
13766 tree = sgtk_get_Object(o_tree);
13767 tree_item = sgtk_get_Object(o_tree_item);
13768 gtk_tree_select_child(tree, tree_item);
13769 return(scm_undefined);
13770 }
13771
sgtk_tree_select_item(SOBJ o_tree,SOBJ o_item)13772 SOBJ sgtk_tree_select_item (SOBJ o_tree, SOBJ o_item)
13773 {
13774 GtkTree* tree;
13775 gint item;
13776
13777 tree = sgtk_get_Object(o_tree);
13778 item = scm_number2long(o_item);
13779 gtk_tree_select_item(tree, item);
13780 return(scm_undefined);
13781 }
13782
sgtk_tree_unselect_child(SOBJ o_tree,SOBJ o_tree_item)13783 SOBJ sgtk_tree_unselect_child (SOBJ o_tree, SOBJ o_tree_item)
13784 {
13785 GtkTree* tree;
13786 GtkWidget* tree_item;
13787
13788 tree = sgtk_get_Object(o_tree);
13789 tree_item = sgtk_get_Object(o_tree_item);
13790 gtk_tree_unselect_child(tree, tree_item);
13791 return(scm_undefined);
13792 }
13793
sgtk_tree_unselect_item(SOBJ o_tree,SOBJ o_item)13794 SOBJ sgtk_tree_unselect_item (SOBJ o_tree, SOBJ o_item)
13795 {
13796 GtkTree* tree;
13797 gint item;
13798
13799 tree = sgtk_get_Object(o_tree);
13800 item = scm_number2long(o_item);
13801 gtk_tree_unselect_item(tree, item);
13802 return(scm_undefined);
13803 }
13804
sgtk_tree_set_selection_mode(SOBJ o_tree,SOBJ o_mode)13805 SOBJ sgtk_tree_set_selection_mode (SOBJ o_tree, SOBJ o_mode)
13806 {
13807 GtkTree* tree;
13808 GtkSelectionMode mode;
13809
13810 tree = sgtk_get_Object(o_tree);
13811 mode = sgtk_enumget("GtkSelectionMode", o_mode);
13812 gtk_tree_set_selection_mode(tree, mode);
13813 return(scm_undefined);
13814 }
13815
sgtk_tree_set_view_mode(SOBJ o_tree,SOBJ o_mode)13816 SOBJ sgtk_tree_set_view_mode (SOBJ o_tree, SOBJ o_mode)
13817 {
13818 GtkTree* tree;
13819 GtkTreeViewMode mode;
13820
13821 tree = sgtk_get_Object(o_tree);
13822 mode = sgtk_enumget("GtkTreeViewMode", o_mode);
13823 gtk_tree_set_view_mode(tree, mode);
13824 return(scm_undefined);
13825 }
13826
sgtk_tree_set_view_lines(SOBJ o_tree,SOBJ o_flag)13827 SOBJ sgtk_tree_set_view_lines (SOBJ o_tree, SOBJ o_flag)
13828 {
13829 GtkTree* tree;
13830 guint flag;
13831
13832 tree = sgtk_get_Object(o_tree);
13833 flag = scm_number2long(o_flag);
13834 gtk_tree_set_view_lines(tree, flag);
13835 return(scm_undefined);
13836 }
13837
sgtk_tree_item_get_type()13838 SOBJ sgtk_tree_item_get_type ()
13839 {
13840 GtkType __retval__;
13841
13842 __retval__ = gtk_tree_item_get_type();
13843 return(SCM_MKINUM(__retval__));
13844 }
13845
sgtk_tree_item_new()13846 SOBJ sgtk_tree_item_new ()
13847 {
13848 GtkWidget* __retval__;
13849
13850 __retval__ = gtk_tree_item_new();
13851 return(sgtk_object_new((void*)__retval__));
13852 }
13853
sgtk_tree_item_new_with_label(SOBJ o_label)13854 SOBJ sgtk_tree_item_new_with_label (SOBJ o_label)
13855 {
13856 gchar* label;
13857 GtkWidget* __retval__;
13858
13859 label = scm_getstr(o_label);
13860 __retval__ = gtk_tree_item_new_with_label(label);
13861 return(sgtk_object_new((void*)__retval__));
13862 }
13863
sgtk_tree_item_set_subtree(SOBJ o_tree_item,SOBJ o_subtree)13864 SOBJ sgtk_tree_item_set_subtree (SOBJ o_tree_item, SOBJ o_subtree)
13865 {
13866 GtkTreeItem* tree_item;
13867 GtkWidget* subtree;
13868
13869 tree_item = sgtk_get_Object(o_tree_item);
13870 subtree = sgtk_get_Object(o_subtree);
13871 gtk_tree_item_set_subtree(tree_item, subtree);
13872 return(scm_undefined);
13873 }
13874
sgtk_tree_item_select(SOBJ o_tree_item)13875 SOBJ sgtk_tree_item_select (SOBJ o_tree_item)
13876 {
13877 GtkTreeItem* tree_item;
13878
13879 tree_item = sgtk_get_Object(o_tree_item);
13880 gtk_tree_item_select(tree_item);
13881 return(scm_undefined);
13882 }
13883
sgtk_tree_item_deselect(SOBJ o_tree_item)13884 SOBJ sgtk_tree_item_deselect (SOBJ o_tree_item)
13885 {
13886 GtkTreeItem* tree_item;
13887
13888 tree_item = sgtk_get_Object(o_tree_item);
13889 gtk_tree_item_deselect(tree_item);
13890 return(scm_undefined);
13891 }
13892
sgtk_tree_item_expand(SOBJ o_tree_item)13893 SOBJ sgtk_tree_item_expand (SOBJ o_tree_item)
13894 {
13895 GtkTreeItem* tree_item;
13896
13897 tree_item = sgtk_get_Object(o_tree_item);
13898 gtk_tree_item_expand(tree_item);
13899 return(scm_undefined);
13900 }
13901
sgtk_tree_item_collapse(SOBJ o_tree_item)13902 SOBJ sgtk_tree_item_collapse (SOBJ o_tree_item)
13903 {
13904 GtkTreeItem* tree_item;
13905
13906 tree_item = sgtk_get_Object(o_tree_item);
13907 gtk_tree_item_collapse(tree_item);
13908 return(scm_undefined);
13909 }
13910
sgtk_tree_item_remove_subtree(SOBJ o_item)13911 SOBJ sgtk_tree_item_remove_subtree (SOBJ o_item)
13912 {
13913 GtkTreeItem* item;
13914
13915 item = sgtk_get_Object(o_item);
13916 gtk_tree_item_remove_subtree(item);
13917 return(scm_undefined);
13918 }
13919
sgtk_type_init()13920 SOBJ sgtk_type_init ()
13921 {
13922
13923 gtk_type_init();
13924 return(scm_undefined);
13925 }
13926
sgtk_type_set_chunk_alloc(SOBJ o_type,SOBJ o_n_chunks)13927 SOBJ sgtk_type_set_chunk_alloc (SOBJ o_type, SOBJ o_n_chunks)
13928 {
13929 GtkType type;
13930 guint n_chunks;
13931
13932 type = scm_number2long(o_type);
13933 n_chunks = scm_number2long(o_n_chunks);
13934 gtk_type_set_chunk_alloc(type, n_chunks);
13935 return(scm_undefined);
13936 }
13937
13938 #ifdef INCOMPLETE
sgtk_type_unique(SOBJ o_parent_type,SOBJ o_type_info)13939 SOBJ sgtk_type_unique (SOBJ o_parent_type, SOBJ o_type_info)
13940 {
13941 GtkType parent_type;
13942 GtkTypeInfo* type_info;
13943 GtkType __retval__;
13944
13945 parent_type = scm_number2long(o_parent_type);
13946 /* +++ undefined GtkTypeInfo* */
13947 __retval__ = gtk_type_unique(parent_type, type_info);
13948 return(SCM_MKINUM(__retval__));
13949 }
13950 #endif /* INCOMPLETE */
13951
sgtk_type_name(SOBJ o_type)13952 SOBJ sgtk_type_name (SOBJ o_type)
13953 {
13954 GtkType type;
13955 gchar* __retval__;
13956
13957 type = scm_number2long(o_type);
13958 __retval__ = gtk_type_name(type);
13959 return(scm_mkstring(__retval__));
13960 }
13961
sgtk_type_from_name(SOBJ o_name)13962 SOBJ sgtk_type_from_name (SOBJ o_name)
13963 {
13964 gchar* name;
13965 GtkType __retval__;
13966
13967 name = scm_getstr(o_name);
13968 __retval__ = gtk_type_from_name(name);
13969 return(SCM_MKINUM(__retval__));
13970 }
13971
sgtk_type_parent(SOBJ o_type)13972 SOBJ sgtk_type_parent (SOBJ o_type)
13973 {
13974 GtkType type;
13975 GtkType __retval__;
13976
13977 type = scm_number2long(o_type);
13978 __retval__ = gtk_type_parent(type);
13979 return(SCM_MKINUM(__retval__));
13980 }
13981
sgtk_type_parent_class(SOBJ o_type)13982 SOBJ sgtk_type_parent_class (SOBJ o_type)
13983 {
13984 GtkType type;
13985 gpointer __retval__;
13986
13987 type = scm_number2long(o_type);
13988 __retval__ = gtk_type_parent_class(type);
13989 return(scm_mkpointer(__retval__));
13990 }
13991
sgtk_type_class(SOBJ o_type)13992 SOBJ sgtk_type_class (SOBJ o_type)
13993 {
13994 GtkType type;
13995 gpointer __retval__;
13996
13997 type = scm_number2long(o_type);
13998 __retval__ = gtk_type_class(type);
13999 return(scm_mkpointer(__retval__));
14000 }
14001
sgtk_type_new(SOBJ o_type)14002 SOBJ sgtk_type_new (SOBJ o_type)
14003 {
14004 GtkType type;
14005 gpointer __retval__;
14006
14007 type = scm_number2long(o_type);
14008 __retval__ = gtk_type_new(type);
14009 return(scm_mkpointer(__retval__));
14010 }
14011
14012 #ifdef INCOMPLETE
sgtk_type_free(SOBJ o_type,SOBJ o_mem)14013 SOBJ sgtk_type_free (SOBJ o_type, SOBJ o_mem)
14014 {
14015 GtkType type;
14016 gpointer mem;
14017
14018 type = scm_number2long(o_type);
14019 /* +++ get gpointer -> pointer failed */
14020 gtk_type_free(type, mem);
14021 return(scm_undefined);
14022 }
14023 #endif /* INCOMPLETE */
14024
14025 #ifdef INCOMPLETE
14026 /* +++ return type GList* not defined */
sgtk_type_children_types(SOBJ o_type)14027 SOBJ sgtk_type_children_types (SOBJ o_type)
14028 {
14029 GtkType type;
14030 GList* __retval__;
14031
14032 type = scm_number2long(o_type);
14033 __retval__ = gtk_type_children_types(type);
14034 /* +++ don't know how to generate GList* */
14035 return(scm_undefined);
14036 }
14037 #endif /* INCOMPLETE */
14038
sgtk_type_describe_heritage(SOBJ o_type)14039 SOBJ sgtk_type_describe_heritage (SOBJ o_type)
14040 {
14041 GtkType type;
14042
14043 type = scm_number2long(o_type);
14044 gtk_type_describe_heritage(type);
14045 return(scm_undefined);
14046 }
14047
sgtk_type_describe_tree(SOBJ o_type,SOBJ o_show_size)14048 SOBJ sgtk_type_describe_tree (SOBJ o_type, SOBJ o_show_size)
14049 {
14050 GtkType type;
14051 gboolean show_size;
14052
14053 type = scm_number2long(o_type);
14054 show_size = (o_show_size != scm_false);
14055 gtk_type_describe_tree(type, show_size);
14056 return(scm_undefined);
14057 }
14058
sgtk_type_is_a(SOBJ o_type,SOBJ o_is_a_type)14059 SOBJ sgtk_type_is_a (SOBJ o_type, SOBJ o_is_a_type)
14060 {
14061 GtkType type;
14062 GtkType is_a_type;
14063 gboolean __retval__;
14064
14065 type = scm_number2long(o_type);
14066 is_a_type = scm_number2long(o_is_a_type);
14067 __retval__ = gtk_type_is_a(type, is_a_type);
14068 return(SCM_MKBOOL(__retval__));
14069 }
14070
14071 #ifdef INCOMPLETE
14072 /* +++ return type GtkTypeObject* not defined */
sgtk_type_check_object_cast(SOBJ o_type_object,SOBJ o_cast_type)14073 SOBJ sgtk_type_check_object_cast (SOBJ o_type_object, SOBJ o_cast_type)
14074 {
14075 GtkTypeObject* type_object;
14076 GtkType cast_type;
14077 GtkTypeObject* __retval__;
14078
14079 /* +++ undefined GtkTypeObject* */
14080 cast_type = scm_number2long(o_cast_type);
14081 __retval__ = gtk_type_check_object_cast(type_object, cast_type);
14082 /* +++ don't know how to generate GtkTypeObject* */
14083 return(scm_undefined);
14084 }
14085 #endif /* INCOMPLETE */
14086
14087 #ifdef INCOMPLETE
14088 /* +++ return type GtkTypeClass* not defined */
sgtk_type_check_class_cast(SOBJ o_klass,SOBJ o_cast_type)14089 SOBJ sgtk_type_check_class_cast (SOBJ o_klass, SOBJ o_cast_type)
14090 {
14091 GtkTypeClass* klass;
14092 GtkType cast_type;
14093 GtkTypeClass* __retval__;
14094
14095 /* +++ undefined GtkTypeClass* */
14096 cast_type = scm_number2long(o_cast_type);
14097 __retval__ = gtk_type_check_class_cast(klass, cast_type);
14098 /* +++ don't know how to generate GtkTypeClass* */
14099 return(scm_undefined);
14100 }
14101 #endif /* INCOMPLETE */
14102
14103 #ifdef INCOMPLETE
14104 /* +++ return type GtkEnumValue* not defined */
sgtk_type_enum_get_values(SOBJ o_enum_type)14105 SOBJ sgtk_type_enum_get_values (SOBJ o_enum_type)
14106 {
14107 GtkType enum_type;
14108 GtkEnumValue* __retval__;
14109
14110 enum_type = scm_number2long(o_enum_type);
14111 __retval__ = gtk_type_enum_get_values(enum_type);
14112 /* +++ don't know how to generate GtkEnumValue* */
14113 return(scm_undefined);
14114 }
14115 #endif /* INCOMPLETE */
14116
14117 #ifdef INCOMPLETE
14118 /* +++ return type GtkFlagValue* not defined */
sgtk_type_flags_get_values(SOBJ o_flags_type)14119 SOBJ sgtk_type_flags_get_values (SOBJ o_flags_type)
14120 {
14121 GtkType flags_type;
14122 GtkFlagValue* __retval__;
14123
14124 flags_type = scm_number2long(o_flags_type);
14125 __retval__ = gtk_type_flags_get_values(flags_type);
14126 /* +++ don't know how to generate GtkFlagValue* */
14127 return(scm_undefined);
14128 }
14129 #endif /* INCOMPLETE */
14130
14131 #ifdef INCOMPLETE
14132 /* +++ return type GtkEnumValue* not defined */
sgtk_type_enum_find_value(SOBJ o_enum_type,SOBJ o_value_name)14133 SOBJ sgtk_type_enum_find_value (SOBJ o_enum_type, SOBJ o_value_name)
14134 {
14135 GtkType enum_type;
14136 gchar* value_name;
14137 GtkEnumValue* __retval__;
14138
14139 enum_type = scm_number2long(o_enum_type);
14140 value_name = scm_getstr(o_value_name);
14141 __retval__ = gtk_type_enum_find_value(enum_type, value_name);
14142 /* +++ don't know how to generate GtkEnumValue* */
14143 return(scm_undefined);
14144 }
14145 #endif /* INCOMPLETE */
14146
14147 #ifdef INCOMPLETE
14148 /* +++ return type GtkFlagValue* not defined */
sgtk_type_flags_find_value(SOBJ o_flag_type,SOBJ o_value_name)14149 SOBJ sgtk_type_flags_find_value (SOBJ o_flag_type, SOBJ o_value_name)
14150 {
14151 GtkType flag_type;
14152 gchar* value_name;
14153 GtkFlagValue* __retval__;
14154
14155 flag_type = scm_number2long(o_flag_type);
14156 value_name = scm_getstr(o_value_name);
14157 __retval__ = gtk_type_flags_find_value(flag_type, value_name);
14158 /* +++ don't know how to generate GtkFlagValue* */
14159 return(scm_undefined);
14160 }
14161 #endif /* INCOMPLETE */
14162
sgtk_type_set_varargs_type(SOBJ o_foreign_type,SOBJ o_varargs_type)14163 SOBJ sgtk_type_set_varargs_type (SOBJ o_foreign_type, SOBJ o_varargs_type)
14164 {
14165 GtkType foreign_type;
14166 GtkType varargs_type;
14167
14168 foreign_type = scm_number2long(o_foreign_type);
14169 varargs_type = scm_number2long(o_varargs_type);
14170 gtk_type_set_varargs_type(foreign_type, varargs_type);
14171 return(scm_undefined);
14172 }
14173
sgtk_type_get_varargs_type(SOBJ o_foreign_type)14174 SOBJ sgtk_type_get_varargs_type (SOBJ o_foreign_type)
14175 {
14176 GtkType foreign_type;
14177 GtkType __retval__;
14178
14179 foreign_type = scm_number2long(o_foreign_type);
14180 __retval__ = gtk_type_get_varargs_type(foreign_type);
14181 return(SCM_MKINUM(__retval__));
14182 }
14183
14184 #ifdef INCOMPLETE
sgtk_type_register_enum(SOBJ o_type_name,SOBJ o_values)14185 SOBJ sgtk_type_register_enum (SOBJ o_type_name, SOBJ o_values)
14186 {
14187 gchar* type_name;
14188 GtkEnumValue* values;
14189 GtkType __retval__;
14190
14191 type_name = scm_getstr(o_type_name);
14192 /* +++ undefined GtkEnumValue* */
14193 __retval__ = gtk_type_register_enum(type_name, values);
14194 return(SCM_MKINUM(__retval__));
14195 }
14196 #endif /* INCOMPLETE */
14197
14198 #ifdef INCOMPLETE
sgtk_type_register_flags(SOBJ o_type_name,SOBJ o_values)14199 SOBJ sgtk_type_register_flags (SOBJ o_type_name, SOBJ o_values)
14200 {
14201 gchar* type_name;
14202 GtkFlagValue* values;
14203 GtkType __retval__;
14204
14205 type_name = scm_getstr(o_type_name);
14206 /* +++ undefined GtkFlagValue* */
14207 __retval__ = gtk_type_register_flags(type_name, values);
14208 return(SCM_MKINUM(__retval__));
14209 }
14210 #endif /* INCOMPLETE */
14211
14212 #ifdef INCOMPLETE
14213 /* +++ return type GtkTypeQuery* not defined */
sgtk_type_query(SOBJ o_type)14214 SOBJ sgtk_type_query (SOBJ o_type)
14215 {
14216 GtkType type;
14217 GtkTypeQuery* __retval__;
14218
14219 type = scm_number2long(o_type);
14220 __retval__ = gtk_type_query(type);
14221 /* +++ don't know how to generate GtkTypeQuery* */
14222 return(scm_undefined);
14223 }
14224 #endif /* INCOMPLETE */
14225
sgtk_identifier_get_type()14226 SOBJ sgtk_identifier_get_type ()
14227 {
14228 GtkType __retval__;
14229
14230 __retval__ = gtk_identifier_get_type();
14231 return(SCM_MKINUM(__retval__));
14232 }
14233
sgtk_vbutton_box_get_type()14234 SOBJ sgtk_vbutton_box_get_type ()
14235 {
14236 guint __retval__;
14237
14238 __retval__ = gtk_vbutton_box_get_type();
14239 return(SCM_MKINUM(__retval__));
14240 }
14241
sgtk_vbutton_box_new()14242 SOBJ sgtk_vbutton_box_new ()
14243 {
14244 GtkWidget* __retval__;
14245
14246 __retval__ = gtk_vbutton_box_new();
14247 return(sgtk_object_new((void*)__retval__));
14248 }
14249
sgtk_vbutton_box_set_spacing_default(SOBJ o_spacing)14250 SOBJ sgtk_vbutton_box_set_spacing_default (SOBJ o_spacing)
14251 {
14252 gint spacing;
14253
14254 spacing = scm_number2long(o_spacing);
14255 gtk_vbutton_box_set_spacing_default(spacing);
14256 return(scm_undefined);
14257 }
14258
sgtk_vbutton_box_set_layout_default(SOBJ o_layout)14259 SOBJ sgtk_vbutton_box_set_layout_default (SOBJ o_layout)
14260 {
14261 GtkButtonBoxStyle layout;
14262
14263 layout = sgtk_enumget("GtkButtonBoxStyle", o_layout);
14264 gtk_vbutton_box_set_layout_default(layout);
14265 return(scm_undefined);
14266 }
14267
sgtk_vbutton_box_get_spacing_default()14268 SOBJ sgtk_vbutton_box_get_spacing_default ()
14269 {
14270 gint __retval__;
14271
14272 __retval__ = gtk_vbutton_box_get_spacing_default();
14273 return(SCM_MKINUM(__retval__));
14274 }
14275
sgtk_vbutton_box_get_layout_default()14276 SOBJ sgtk_vbutton_box_get_layout_default ()
14277 {
14278 GtkButtonBoxStyle __retval__;
14279
14280 __retval__ = gtk_vbutton_box_get_layout_default();
14281 return(SCM_MKINUM(__retval__));
14282 }
14283
sgtk_vbox_get_type()14284 SOBJ sgtk_vbox_get_type ()
14285 {
14286 GtkType __retval__;
14287
14288 __retval__ = gtk_vbox_get_type();
14289 return(SCM_MKINUM(__retval__));
14290 }
14291
sgtk_vbox_new(SOBJ o_homogeneous,SOBJ o_spacing)14292 SOBJ sgtk_vbox_new (SOBJ o_homogeneous, SOBJ o_spacing)
14293 {
14294 gboolean homogeneous;
14295 gint spacing;
14296 GtkWidget* __retval__;
14297
14298 homogeneous = (o_homogeneous != scm_false);
14299 spacing = scm_number2long(o_spacing);
14300 __retval__ = gtk_vbox_new(homogeneous, spacing);
14301 return(sgtk_object_new((void*)__retval__));
14302 }
14303
sgtk_viewport_get_type()14304 SOBJ sgtk_viewport_get_type ()
14305 {
14306 GtkType __retval__;
14307
14308 __retval__ = gtk_viewport_get_type();
14309 return(SCM_MKINUM(__retval__));
14310 }
14311
sgtk_viewport_new(SOBJ o_hadjustment,SOBJ o_vadjustment)14312 SOBJ sgtk_viewport_new (SOBJ o_hadjustment, SOBJ o_vadjustment)
14313 {
14314 GtkAdjustment* hadjustment;
14315 GtkAdjustment* vadjustment;
14316 GtkWidget* __retval__;
14317
14318 hadjustment = sgtk_get_Object(o_hadjustment);
14319 vadjustment = sgtk_get_Object(o_vadjustment);
14320 __retval__ = gtk_viewport_new(hadjustment, vadjustment);
14321 return(sgtk_object_new((void*)__retval__));
14322 }
14323
sgtk_viewport_get_hadjustment(SOBJ o_viewport)14324 SOBJ sgtk_viewport_get_hadjustment (SOBJ o_viewport)
14325 {
14326 GtkViewport* viewport;
14327 GtkAdjustment* __retval__;
14328
14329 viewport = sgtk_get_Object(o_viewport);
14330 __retval__ = gtk_viewport_get_hadjustment(viewport);
14331 return(sgtk_object_new((void*)__retval__));
14332 }
14333
sgtk_viewport_get_vadjustment(SOBJ o_viewport)14334 SOBJ sgtk_viewport_get_vadjustment (SOBJ o_viewport)
14335 {
14336 GtkViewport* viewport;
14337 GtkAdjustment* __retval__;
14338
14339 viewport = sgtk_get_Object(o_viewport);
14340 __retval__ = gtk_viewport_get_vadjustment(viewport);
14341 return(sgtk_object_new((void*)__retval__));
14342 }
14343
sgtk_viewport_set_hadjustment(SOBJ o_viewport,SOBJ o_adjustment)14344 SOBJ sgtk_viewport_set_hadjustment (SOBJ o_viewport, SOBJ o_adjustment)
14345 {
14346 GtkViewport* viewport;
14347 GtkAdjustment* adjustment;
14348
14349 viewport = sgtk_get_Object(o_viewport);
14350 adjustment = sgtk_get_Object(o_adjustment);
14351 gtk_viewport_set_hadjustment(viewport, adjustment);
14352 return(scm_undefined);
14353 }
14354
sgtk_viewport_set_vadjustment(SOBJ o_viewport,SOBJ o_adjustment)14355 SOBJ sgtk_viewport_set_vadjustment (SOBJ o_viewport, SOBJ o_adjustment)
14356 {
14357 GtkViewport* viewport;
14358 GtkAdjustment* adjustment;
14359
14360 viewport = sgtk_get_Object(o_viewport);
14361 adjustment = sgtk_get_Object(o_adjustment);
14362 gtk_viewport_set_vadjustment(viewport, adjustment);
14363 return(scm_undefined);
14364 }
14365
sgtk_viewport_set_shadow_type(SOBJ o_viewport,SOBJ o_type)14366 SOBJ sgtk_viewport_set_shadow_type (SOBJ o_viewport, SOBJ o_type)
14367 {
14368 GtkViewport* viewport;
14369 GtkShadowType type;
14370
14371 viewport = sgtk_get_Object(o_viewport);
14372 type = sgtk_enumget("GtkShadowType", o_type);
14373 gtk_viewport_set_shadow_type(viewport, type);
14374 return(scm_undefined);
14375 }
14376
sgtk_vpaned_get_type()14377 SOBJ sgtk_vpaned_get_type ()
14378 {
14379 guint __retval__;
14380
14381 __retval__ = gtk_vpaned_get_type();
14382 return(SCM_MKINUM(__retval__));
14383 }
14384
sgtk_vpaned_new()14385 SOBJ sgtk_vpaned_new ()
14386 {
14387 GtkWidget* __retval__;
14388
14389 __retval__ = gtk_vpaned_new();
14390 return(sgtk_object_new((void*)__retval__));
14391 }
14392
sgtk_vruler_get_type()14393 SOBJ sgtk_vruler_get_type ()
14394 {
14395 guint __retval__;
14396
14397 __retval__ = gtk_vruler_get_type();
14398 return(SCM_MKINUM(__retval__));
14399 }
14400
sgtk_vruler_new()14401 SOBJ sgtk_vruler_new ()
14402 {
14403 GtkWidget* __retval__;
14404
14405 __retval__ = gtk_vruler_new();
14406 return(sgtk_object_new((void*)__retval__));
14407 }
14408
sgtk_vscale_get_type()14409 SOBJ sgtk_vscale_get_type ()
14410 {
14411 GtkType __retval__;
14412
14413 __retval__ = gtk_vscale_get_type();
14414 return(SCM_MKINUM(__retval__));
14415 }
14416
sgtk_vscale_new(SOBJ o_adjustment)14417 SOBJ sgtk_vscale_new (SOBJ o_adjustment)
14418 {
14419 GtkAdjustment* adjustment;
14420 GtkWidget* __retval__;
14421
14422 adjustment = sgtk_get_Object(o_adjustment);
14423 __retval__ = gtk_vscale_new(adjustment);
14424 return(sgtk_object_new((void*)__retval__));
14425 }
14426
sgtk_vscrollbar_get_type()14427 SOBJ sgtk_vscrollbar_get_type ()
14428 {
14429 GtkType __retval__;
14430
14431 __retval__ = gtk_vscrollbar_get_type();
14432 return(SCM_MKINUM(__retval__));
14433 }
14434
sgtk_vscrollbar_new(SOBJ o_adjustment)14435 SOBJ sgtk_vscrollbar_new (SOBJ o_adjustment)
14436 {
14437 GtkAdjustment* adjustment;
14438 GtkWidget* __retval__;
14439
14440 adjustment = sgtk_get_Object(o_adjustment);
14441 __retval__ = gtk_vscrollbar_new(adjustment);
14442 return(sgtk_object_new((void*)__retval__));
14443 }
14444
sgtk_vseparator_get_type()14445 SOBJ sgtk_vseparator_get_type ()
14446 {
14447 GtkType __retval__;
14448
14449 __retval__ = gtk_vseparator_get_type();
14450 return(SCM_MKINUM(__retval__));
14451 }
14452
sgtk_vseparator_new()14453 SOBJ sgtk_vseparator_new ()
14454 {
14455 GtkWidget* __retval__;
14456
14457 __retval__ = gtk_vseparator_new();
14458 return(sgtk_object_new((void*)__retval__));
14459 }
14460
sgtk_widget_get_type()14461 SOBJ sgtk_widget_get_type ()
14462 {
14463 GtkType __retval__;
14464
14465 __retval__ = gtk_widget_get_type();
14466 return(SCM_MKINUM(__retval__));
14467 }
14468
14469 #ifdef INCOMPLETE
sgtk_widget_newv(SOBJ o_type,SOBJ o_nargs,SOBJ o_args)14470 SOBJ sgtk_widget_newv (SOBJ o_type, SOBJ o_nargs, SOBJ o_args)
14471 {
14472 GtkType type;
14473 guint nargs;
14474 GtkArg* args;
14475 GtkWidget* __retval__;
14476
14477 type = scm_number2long(o_type);
14478 nargs = scm_number2long(o_nargs);
14479 /* +++ undefined GtkArg* */
14480 __retval__ = gtk_widget_newv(type, nargs, args);
14481 return(sgtk_object_new((void*)__retval__));
14482 }
14483 #endif /* INCOMPLETE */
14484
14485 #ifdef INCOMPLETE
sgtk_widget_get(SOBJ o_widget,SOBJ o_arg)14486 SOBJ sgtk_widget_get (SOBJ o_widget, SOBJ o_arg)
14487 {
14488 GtkWidget* widget;
14489 GtkArg* arg;
14490
14491 widget = sgtk_get_Object(o_widget);
14492 /* +++ undefined GtkArg* */
14493 gtk_widget_get(widget, arg);
14494 return(scm_undefined);
14495 }
14496 #endif /* INCOMPLETE */
14497
14498 #ifdef INCOMPLETE
sgtk_widget_getv(SOBJ o_widget,SOBJ o_nargs,SOBJ o_args)14499 SOBJ sgtk_widget_getv (SOBJ o_widget, SOBJ o_nargs, SOBJ o_args)
14500 {
14501 GtkWidget* widget;
14502 guint nargs;
14503 GtkArg* args;
14504
14505 widget = sgtk_get_Object(o_widget);
14506 nargs = scm_number2long(o_nargs);
14507 /* +++ undefined GtkArg* */
14508 gtk_widget_getv(widget, nargs, args);
14509 return(scm_undefined);
14510 }
14511 #endif /* INCOMPLETE */
14512
14513 #ifdef INCOMPLETE
sgtk_widget_setv(SOBJ o_widget,SOBJ o_nargs,SOBJ o_args)14514 SOBJ sgtk_widget_setv (SOBJ o_widget, SOBJ o_nargs, SOBJ o_args)
14515 {
14516 GtkWidget* widget;
14517 guint nargs;
14518 GtkArg* args;
14519
14520 widget = sgtk_get_Object(o_widget);
14521 nargs = scm_number2long(o_nargs);
14522 /* +++ undefined GtkArg* */
14523 gtk_widget_setv(widget, nargs, args);
14524 return(scm_undefined);
14525 }
14526 #endif /* INCOMPLETE */
14527
sgtk_widget_unparent(SOBJ o_widget)14528 SOBJ sgtk_widget_unparent (SOBJ o_widget)
14529 {
14530 GtkWidget* widget;
14531
14532 widget = sgtk_get_Object(o_widget);
14533 gtk_widget_unparent(widget);
14534 return(scm_undefined);
14535 }
14536
sgtk_widget_destroy(SOBJ o_widget)14537 SOBJ sgtk_widget_destroy (SOBJ o_widget)
14538 {
14539 GtkWidget* widget;
14540
14541 widget = sgtk_get_Object(o_widget);
14542 gtk_widget_destroy(widget);
14543 return(scm_undefined);
14544 }
14545
14546 #ifdef INCOMPLETE
sgtk_widget_destroyed(SOBJ o_widget,SOBJ o_widget_pointer)14547 SOBJ sgtk_widget_destroyed (SOBJ o_widget, SOBJ o_widget_pointer)
14548 {
14549 GtkWidget* widget;
14550 GtkWidget** widget_pointer;
14551
14552 widget = sgtk_get_Object(o_widget);
14553 /* +++ undefined GtkWidget** */
14554 gtk_widget_destroyed(widget, widget_pointer);
14555 return(scm_undefined);
14556 }
14557 #endif /* INCOMPLETE */
14558
sgtk_widget_show(SOBJ o_widget)14559 SOBJ sgtk_widget_show (SOBJ o_widget)
14560 {
14561 GtkWidget* widget;
14562
14563 widget = sgtk_get_Object(o_widget);
14564 gtk_widget_show(widget);
14565 return(scm_undefined);
14566 }
14567
sgtk_widget_show_now(SOBJ o_widget)14568 SOBJ sgtk_widget_show_now (SOBJ o_widget)
14569 {
14570 GtkWidget* widget;
14571
14572 widget = sgtk_get_Object(o_widget);
14573 gtk_widget_show_now(widget);
14574 return(scm_undefined);
14575 }
14576
sgtk_widget_hide(SOBJ o_widget)14577 SOBJ sgtk_widget_hide (SOBJ o_widget)
14578 {
14579 GtkWidget* widget;
14580
14581 widget = sgtk_get_Object(o_widget);
14582 gtk_widget_hide(widget);
14583 return(scm_undefined);
14584 }
14585
sgtk_widget_hide_on_delete(SOBJ o_widget)14586 SOBJ sgtk_widget_hide_on_delete (SOBJ o_widget)
14587 {
14588 GtkWidget* widget;
14589 gint __retval__;
14590
14591 widget = sgtk_get_Object(o_widget);
14592 __retval__ = gtk_widget_hide_on_delete(widget);
14593 return(SCM_MKINUM(__retval__));
14594 }
14595
sgtk_widget_show_all(SOBJ o_widget)14596 SOBJ sgtk_widget_show_all (SOBJ o_widget)
14597 {
14598 GtkWidget* widget;
14599
14600 widget = sgtk_get_Object(o_widget);
14601 gtk_widget_show_all(widget);
14602 return(scm_undefined);
14603 }
14604
sgtk_widget_hide_all(SOBJ o_widget)14605 SOBJ sgtk_widget_hide_all (SOBJ o_widget)
14606 {
14607 GtkWidget* widget;
14608
14609 widget = sgtk_get_Object(o_widget);
14610 gtk_widget_hide_all(widget);
14611 return(scm_undefined);
14612 }
14613
sgtk_widget_map(SOBJ o_widget)14614 SOBJ sgtk_widget_map (SOBJ o_widget)
14615 {
14616 GtkWidget* widget;
14617
14618 widget = sgtk_get_Object(o_widget);
14619 gtk_widget_map(widget);
14620 return(scm_undefined);
14621 }
14622
sgtk_widget_unmap(SOBJ o_widget)14623 SOBJ sgtk_widget_unmap (SOBJ o_widget)
14624 {
14625 GtkWidget* widget;
14626
14627 widget = sgtk_get_Object(o_widget);
14628 gtk_widget_unmap(widget);
14629 return(scm_undefined);
14630 }
14631
sgtk_widget_realize(SOBJ o_widget)14632 SOBJ sgtk_widget_realize (SOBJ o_widget)
14633 {
14634 GtkWidget* widget;
14635
14636 widget = sgtk_get_Object(o_widget);
14637 gtk_widget_realize(widget);
14638 return(scm_undefined);
14639 }
14640
sgtk_widget_unrealize(SOBJ o_widget)14641 SOBJ sgtk_widget_unrealize (SOBJ o_widget)
14642 {
14643 GtkWidget* widget;
14644
14645 widget = sgtk_get_Object(o_widget);
14646 gtk_widget_unrealize(widget);
14647 return(scm_undefined);
14648 }
14649
sgtk_widget_queue_draw_area(SOBJ o_widget,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)14650 SOBJ sgtk_widget_queue_draw_area (SOBJ o_widget, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
14651 {
14652 GtkWidget* widget;
14653 gint x;
14654 gint y;
14655 gint width;
14656 gint height;
14657
14658 widget = sgtk_get_Object(o_widget);
14659 x = scm_number2long(o_x);
14660 y = scm_number2long(o_y);
14661 width = scm_number2long(o_width);
14662 height = scm_number2long(o_height);
14663 gtk_widget_queue_draw_area(widget, x, y, width, height);
14664 return(scm_undefined);
14665 }
14666
sgtk_widget_queue_draw(SOBJ o_widget)14667 SOBJ sgtk_widget_queue_draw (SOBJ o_widget)
14668 {
14669 GtkWidget* widget;
14670
14671 widget = sgtk_get_Object(o_widget);
14672 gtk_widget_queue_draw(widget);
14673 return(scm_undefined);
14674 }
14675
sgtk_widget_queue_clear_area(SOBJ o_widget,SOBJ o_x,SOBJ o_y,SOBJ o_width,SOBJ o_height)14676 SOBJ sgtk_widget_queue_clear_area (SOBJ o_widget, SOBJ o_x, SOBJ o_y, SOBJ o_width, SOBJ o_height)
14677 {
14678 GtkWidget* widget;
14679 gint x;
14680 gint y;
14681 gint width;
14682 gint height;
14683
14684 widget = sgtk_get_Object(o_widget);
14685 x = scm_number2long(o_x);
14686 y = scm_number2long(o_y);
14687 width = scm_number2long(o_width);
14688 height = scm_number2long(o_height);
14689 gtk_widget_queue_clear_area(widget, x, y, width, height);
14690 return(scm_undefined);
14691 }
14692
sgtk_widget_queue_clear(SOBJ o_widget)14693 SOBJ sgtk_widget_queue_clear (SOBJ o_widget)
14694 {
14695 GtkWidget* widget;
14696
14697 widget = sgtk_get_Object(o_widget);
14698 gtk_widget_queue_clear(widget);
14699 return(scm_undefined);
14700 }
14701
sgtk_widget_queue_resize(SOBJ o_widget)14702 SOBJ sgtk_widget_queue_resize (SOBJ o_widget)
14703 {
14704 GtkWidget* widget;
14705
14706 widget = sgtk_get_Object(o_widget);
14707 gtk_widget_queue_resize(widget);
14708 return(scm_undefined);
14709 }
14710
14711 #ifdef INCOMPLETE
sgtk_widget_draw(SOBJ o_widget,SOBJ o_area)14712 SOBJ sgtk_widget_draw (SOBJ o_widget, SOBJ o_area)
14713 {
14714 GtkWidget* widget;
14715 GdkRectangle* area;
14716
14717 widget = sgtk_get_Object(o_widget);
14718 /* +++ undefined GdkRectangle* */
14719 gtk_widget_draw(widget, area);
14720 return(scm_undefined);
14721 }
14722 #endif /* INCOMPLETE */
14723
sgtk_widget_draw_focus(SOBJ o_widget)14724 SOBJ sgtk_widget_draw_focus (SOBJ o_widget)
14725 {
14726 GtkWidget* widget;
14727
14728 widget = sgtk_get_Object(o_widget);
14729 gtk_widget_draw_focus(widget);
14730 return(scm_undefined);
14731 }
14732
sgtk_widget_draw_default(SOBJ o_widget)14733 SOBJ sgtk_widget_draw_default (SOBJ o_widget)
14734 {
14735 GtkWidget* widget;
14736
14737 widget = sgtk_get_Object(o_widget);
14738 gtk_widget_draw_default(widget);
14739 return(scm_undefined);
14740 }
14741
14742 #ifdef INCOMPLETE
sgtk_widget_size_request(SOBJ o_widget,SOBJ o_requisition)14743 SOBJ sgtk_widget_size_request (SOBJ o_widget, SOBJ o_requisition)
14744 {
14745 GtkWidget* widget;
14746 GtkRequisition* requisition;
14747
14748 widget = sgtk_get_Object(o_widget);
14749 /* +++ undefined GtkRequisition* */
14750 gtk_widget_size_request(widget, requisition);
14751 return(scm_undefined);
14752 }
14753 #endif /* INCOMPLETE */
14754
14755 #ifdef INCOMPLETE
sgtk_widget_get_child_requisition(SOBJ o_widget,SOBJ o_requisition)14756 SOBJ sgtk_widget_get_child_requisition (SOBJ o_widget, SOBJ o_requisition)
14757 {
14758 GtkWidget* widget;
14759 GtkRequisition* requisition;
14760
14761 widget = sgtk_get_Object(o_widget);
14762 /* +++ undefined GtkRequisition* */
14763 gtk_widget_get_child_requisition(widget, requisition);
14764 return(scm_undefined);
14765 }
14766 #endif /* INCOMPLETE */
14767
14768 #ifdef INCOMPLETE
sgtk_widget_size_allocate(SOBJ o_widget,SOBJ o_allocation)14769 SOBJ sgtk_widget_size_allocate (SOBJ o_widget, SOBJ o_allocation)
14770 {
14771 GtkWidget* widget;
14772 GtkAllocation* allocation;
14773
14774 widget = sgtk_get_Object(o_widget);
14775 /* +++ undefined GtkAllocation* */
14776 gtk_widget_size_allocate(widget, allocation);
14777 return(scm_undefined);
14778 }
14779 #endif /* INCOMPLETE */
14780
sgtk_widget_lock_accelerators(SOBJ o_widget)14781 SOBJ sgtk_widget_lock_accelerators (SOBJ o_widget)
14782 {
14783 GtkWidget* widget;
14784
14785 widget = sgtk_get_Object(o_widget);
14786 gtk_widget_lock_accelerators(widget);
14787 return(scm_undefined);
14788 }
14789
sgtk_widget_unlock_accelerators(SOBJ o_widget)14790 SOBJ sgtk_widget_unlock_accelerators (SOBJ o_widget)
14791 {
14792 GtkWidget* widget;
14793
14794 widget = sgtk_get_Object(o_widget);
14795 gtk_widget_unlock_accelerators(widget);
14796 return(scm_undefined);
14797 }
14798
sgtk_widget_accelerators_locked(SOBJ o_widget)14799 SOBJ sgtk_widget_accelerators_locked (SOBJ o_widget)
14800 {
14801 GtkWidget* widget;
14802 gboolean __retval__;
14803
14804 widget = sgtk_get_Object(o_widget);
14805 __retval__ = gtk_widget_accelerators_locked(widget);
14806 return(SCM_MKBOOL(__retval__));
14807 }
14808
sgtk_widget_add_accelerator(SOBJ o_widget,SOBJ o_accel_signal,SOBJ o_accel_group,SOBJ o_accel_key,SOBJ o_accel_mods,SOBJ o_accel_flags)14809 SOBJ sgtk_widget_add_accelerator (SOBJ o_widget, SOBJ o_accel_signal, SOBJ o_accel_group, SOBJ o_accel_key, SOBJ o_accel_mods, SOBJ o_accel_flags)
14810 {
14811 GtkWidget* widget;
14812 gchar* accel_signal;
14813 GtkAccelGroup* accel_group;
14814 guint accel_key;
14815 guint accel_mods;
14816 GtkAccelFlags accel_flags;
14817
14818 widget = sgtk_get_Object(o_widget);
14819 accel_signal = scm_getstr(o_accel_signal);
14820 accel_group = sgtk_get_AccelGroup(o_accel_group);
14821 accel_key = scm_number2long(o_accel_key);
14822 accel_mods = scm_number2long(o_accel_mods);
14823 accel_flags = sgtk_flagsget("GtkAccelFlags", o_accel_flags);
14824 gtk_widget_add_accelerator(widget, accel_signal, accel_group, accel_key, accel_mods, accel_flags);
14825 return(scm_undefined);
14826 }
14827
sgtk_widget_remove_accelerator(SOBJ o_widget,SOBJ o_accel_group,SOBJ o_accel_key,SOBJ o_accel_mods)14828 SOBJ sgtk_widget_remove_accelerator (SOBJ o_widget, SOBJ o_accel_group, SOBJ o_accel_key, SOBJ o_accel_mods)
14829 {
14830 GtkWidget* widget;
14831 GtkAccelGroup* accel_group;
14832 guint accel_key;
14833 guint accel_mods;
14834
14835 widget = sgtk_get_Object(o_widget);
14836 accel_group = sgtk_get_AccelGroup(o_accel_group);
14837 accel_key = scm_number2long(o_accel_key);
14838 accel_mods = scm_number2long(o_accel_mods);
14839 gtk_widget_remove_accelerator(widget, accel_group, accel_key, accel_mods);
14840 return(scm_undefined);
14841 }
14842
sgtk_widget_remove_accelerators(SOBJ o_widget,SOBJ o_accel_signal,SOBJ o_visible_only)14843 SOBJ sgtk_widget_remove_accelerators (SOBJ o_widget, SOBJ o_accel_signal, SOBJ o_visible_only)
14844 {
14845 GtkWidget* widget;
14846 gchar* accel_signal;
14847 gboolean visible_only;
14848
14849 widget = sgtk_get_Object(o_widget);
14850 accel_signal = scm_getstr(o_accel_signal);
14851 visible_only = (o_visible_only != scm_false);
14852 gtk_widget_remove_accelerators(widget, accel_signal, visible_only);
14853 return(scm_undefined);
14854 }
14855
sgtk_widget_accelerator_signal(SOBJ o_widget,SOBJ o_accel_group,SOBJ o_accel_key,SOBJ o_accel_mods)14856 SOBJ sgtk_widget_accelerator_signal (SOBJ o_widget, SOBJ o_accel_group, SOBJ o_accel_key, SOBJ o_accel_mods)
14857 {
14858 GtkWidget* widget;
14859 GtkAccelGroup* accel_group;
14860 guint accel_key;
14861 guint accel_mods;
14862 guint __retval__;
14863
14864 widget = sgtk_get_Object(o_widget);
14865 accel_group = sgtk_get_AccelGroup(o_accel_group);
14866 accel_key = scm_number2long(o_accel_key);
14867 accel_mods = scm_number2long(o_accel_mods);
14868 __retval__ = gtk_widget_accelerator_signal(widget, accel_group, accel_key, accel_mods);
14869 return(SCM_MKINUM(__retval__));
14870 }
14871
sgtk_widget_event(SOBJ o_widget,SOBJ o_event)14872 SOBJ sgtk_widget_event (SOBJ o_widget, SOBJ o_event)
14873 {
14874 GtkWidget* widget;
14875 GdkEvent* event;
14876 gint __retval__;
14877
14878 widget = sgtk_get_Object(o_widget);
14879 event = sgdk_get_Event(o_event);
14880 __retval__ = gtk_widget_event(widget, event);
14881 return(SCM_MKINUM(__retval__));
14882 }
14883
sgtk_widget_activate(SOBJ o_widget)14884 SOBJ sgtk_widget_activate (SOBJ o_widget)
14885 {
14886 GtkWidget* widget;
14887 gboolean __retval__;
14888
14889 widget = sgtk_get_Object(o_widget);
14890 __retval__ = gtk_widget_activate(widget);
14891 return(SCM_MKBOOL(__retval__));
14892 }
14893
sgtk_widget_set_scroll_adjustments(SOBJ o_widget,SOBJ o_hadjustment,SOBJ o_vadjustment)14894 SOBJ sgtk_widget_set_scroll_adjustments (SOBJ o_widget, SOBJ o_hadjustment, SOBJ o_vadjustment)
14895 {
14896 GtkWidget* widget;
14897 GtkAdjustment* hadjustment;
14898 GtkAdjustment* vadjustment;
14899 gboolean __retval__;
14900
14901 widget = sgtk_get_Object(o_widget);
14902 hadjustment = sgtk_get_Object(o_hadjustment);
14903 vadjustment = sgtk_get_Object(o_vadjustment);
14904 __retval__ = gtk_widget_set_scroll_adjustments(widget, hadjustment, vadjustment);
14905 return(SCM_MKBOOL(__retval__));
14906 }
14907
sgtk_widget_reparent(SOBJ o_widget,SOBJ o_new_parent)14908 SOBJ sgtk_widget_reparent (SOBJ o_widget, SOBJ o_new_parent)
14909 {
14910 GtkWidget* widget;
14911 GtkWidget* new_parent;
14912
14913 widget = sgtk_get_Object(o_widget);
14914 new_parent = sgtk_get_Object(o_new_parent);
14915 gtk_widget_reparent(widget, new_parent);
14916 return(scm_undefined);
14917 }
14918
sgtk_widget_popup(SOBJ o_widget,SOBJ o_x,SOBJ o_y)14919 SOBJ sgtk_widget_popup (SOBJ o_widget, SOBJ o_x, SOBJ o_y)
14920 {
14921 GtkWidget* widget;
14922 gint x;
14923 gint y;
14924
14925 widget = sgtk_get_Object(o_widget);
14926 x = scm_number2long(o_x);
14927 y = scm_number2long(o_y);
14928 gtk_widget_popup(widget, x, y);
14929 return(scm_undefined);
14930 }
14931
14932 #ifdef INCOMPLETE
sgtk_widget_intersect(SOBJ o_widget,SOBJ o_area,SOBJ o_intersection)14933 SOBJ sgtk_widget_intersect (SOBJ o_widget, SOBJ o_area, SOBJ o_intersection)
14934 {
14935 GtkWidget* widget;
14936 GdkRectangle* area;
14937 GdkRectangle* intersection;
14938 gint __retval__;
14939
14940 widget = sgtk_get_Object(o_widget);
14941 /* +++ undefined GdkRectangle* */
14942 /* +++ undefined GdkRectangle* */
14943 __retval__ = gtk_widget_intersect(widget, area, intersection);
14944 return(SCM_MKINUM(__retval__));
14945 }
14946 #endif /* INCOMPLETE */
14947
sgtk_widget_grab_focus(SOBJ o_widget)14948 SOBJ sgtk_widget_grab_focus (SOBJ o_widget)
14949 {
14950 GtkWidget* widget;
14951
14952 widget = sgtk_get_Object(o_widget);
14953 gtk_widget_grab_focus(widget);
14954 return(scm_undefined);
14955 }
14956
sgtk_widget_grab_default(SOBJ o_widget)14957 SOBJ sgtk_widget_grab_default (SOBJ o_widget)
14958 {
14959 GtkWidget* widget;
14960
14961 widget = sgtk_get_Object(o_widget);
14962 gtk_widget_grab_default(widget);
14963 return(scm_undefined);
14964 }
14965
sgtk_widget_set_name(SOBJ o_widget,SOBJ o_name)14966 SOBJ sgtk_widget_set_name (SOBJ o_widget, SOBJ o_name)
14967 {
14968 GtkWidget* widget;
14969 gchar* name;
14970
14971 widget = sgtk_get_Object(o_widget);
14972 name = scm_getstr(o_name);
14973 gtk_widget_set_name(widget, name);
14974 return(scm_undefined);
14975 }
14976
sgtk_widget_get_name(SOBJ o_widget)14977 SOBJ sgtk_widget_get_name (SOBJ o_widget)
14978 {
14979 GtkWidget* widget;
14980 gchar* __retval__;
14981
14982 widget = sgtk_get_Object(o_widget);
14983 __retval__ = gtk_widget_get_name(widget);
14984 return(scm_mkstring(__retval__));
14985 }
14986
sgtk_widget_set_state(SOBJ o_widget,SOBJ o_state)14987 SOBJ sgtk_widget_set_state (SOBJ o_widget, SOBJ o_state)
14988 {
14989 GtkWidget* widget;
14990 GtkStateType state;
14991
14992 widget = sgtk_get_Object(o_widget);
14993 state = sgtk_enumget("GtkStateType", o_state);
14994 gtk_widget_set_state(widget, state);
14995 return(scm_undefined);
14996 }
14997
sgtk_widget_set_app_paintable(SOBJ o_widget,SOBJ o_app_paintable)14998 SOBJ sgtk_widget_set_app_paintable (SOBJ o_widget, SOBJ o_app_paintable)
14999 {
15000 GtkWidget* widget;
15001 gboolean app_paintable;
15002
15003 widget = sgtk_get_Object(o_widget);
15004 app_paintable = (o_app_paintable != scm_false);
15005 gtk_widget_set_app_paintable(widget, app_paintable);
15006 return(scm_undefined);
15007 }
15008
sgtk_widget_set_sensitive(SOBJ o_widget,SOBJ o_sensitive)15009 SOBJ sgtk_widget_set_sensitive (SOBJ o_widget, SOBJ o_sensitive)
15010 {
15011 GtkWidget* widget;
15012 gboolean sensitive;
15013
15014 widget = sgtk_get_Object(o_widget);
15015 sensitive = (o_sensitive != scm_false);
15016 gtk_widget_set_sensitive(widget, sensitive);
15017 return(scm_undefined);
15018 }
15019
sgtk_widget_set_parent(SOBJ o_widget,SOBJ o_parent)15020 SOBJ sgtk_widget_set_parent (SOBJ o_widget, SOBJ o_parent)
15021 {
15022 GtkWidget* widget;
15023 GtkWidget* parent;
15024
15025 widget = sgtk_get_Object(o_widget);
15026 parent = sgtk_get_Object(o_parent);
15027 gtk_widget_set_parent(widget, parent);
15028 return(scm_undefined);
15029 }
15030
sgtk_widget_set_style(SOBJ o_widget,SOBJ o_style)15031 SOBJ sgtk_widget_set_style (SOBJ o_widget, SOBJ o_style)
15032 {
15033 GtkWidget* widget;
15034 GtkStyle* style;
15035
15036 widget = sgtk_get_Object(o_widget);
15037 style = sgtk_get_Style(o_style);
15038 gtk_widget_set_style(widget, style);
15039 return(scm_undefined);
15040 }
15041
sgtk_widget_ensure_style(SOBJ o_widget)15042 SOBJ sgtk_widget_ensure_style (SOBJ o_widget)
15043 {
15044 GtkWidget* widget;
15045
15046 widget = sgtk_get_Object(o_widget);
15047 gtk_widget_ensure_style(widget);
15048 return(scm_undefined);
15049 }
15050
sgtk_widget_set_rc_style(SOBJ o_widget)15051 SOBJ sgtk_widget_set_rc_style (SOBJ o_widget)
15052 {
15053 GtkWidget* widget;
15054
15055 widget = sgtk_get_Object(o_widget);
15056 gtk_widget_set_rc_style(widget);
15057 return(scm_undefined);
15058 }
15059
sgtk_widget_restore_default_style(SOBJ o_widget)15060 SOBJ sgtk_widget_restore_default_style (SOBJ o_widget)
15061 {
15062 GtkWidget* widget;
15063
15064 widget = sgtk_get_Object(o_widget);
15065 gtk_widget_restore_default_style(widget);
15066 return(scm_undefined);
15067 }
15068
sgtk_widget_get_style(SOBJ o_widget)15069 SOBJ sgtk_widget_get_style (SOBJ o_widget)
15070 {
15071 GtkWidget* widget;
15072 GtkStyle* __retval__;
15073
15074 widget = sgtk_get_Object(o_widget);
15075 __retval__ = gtk_widget_get_style(widget);
15076 return(sgtk_Style_new(__retval__));
15077 }
15078
15079 #ifdef INCOMPLETE
sgtk_widget_modify_style(SOBJ o_widget,SOBJ o_style)15080 SOBJ sgtk_widget_modify_style (SOBJ o_widget, SOBJ o_style)
15081 {
15082 GtkWidget* widget;
15083 GtkRcStyle* style;
15084
15085 widget = sgtk_get_Object(o_widget);
15086 /* +++ undefined GtkRcStyle* */
15087 gtk_widget_modify_style(widget, style);
15088 return(scm_undefined);
15089 }
15090 #endif /* INCOMPLETE */
15091
sgtk_widget_reset_rc_styles(SOBJ o_widget)15092 SOBJ sgtk_widget_reset_rc_styles (SOBJ o_widget)
15093 {
15094 GtkWidget* widget;
15095
15096 widget = sgtk_get_Object(o_widget);
15097 gtk_widget_reset_rc_styles(widget);
15098 return(scm_undefined);
15099 }
15100
sgtk_widget_set_default_style(SOBJ o_style)15101 SOBJ sgtk_widget_set_default_style (SOBJ o_style)
15102 {
15103 GtkStyle* style;
15104
15105 style = sgtk_get_Style(o_style);
15106 gtk_widget_set_default_style(style);
15107 return(scm_undefined);
15108 }
15109
sgtk_widget_get_default_style()15110 SOBJ sgtk_widget_get_default_style ()
15111 {
15112 GtkStyle* __retval__;
15113
15114 __retval__ = gtk_widget_get_default_style();
15115 return(sgtk_Style_new(__retval__));
15116 }
15117
sgtk_widget_push_style(SOBJ o_style)15118 SOBJ sgtk_widget_push_style (SOBJ o_style)
15119 {
15120 GtkStyle* style;
15121
15122 style = sgtk_get_Style(o_style);
15123 gtk_widget_push_style(style);
15124 return(scm_undefined);
15125 }
15126
sgtk_widget_pop_style()15127 SOBJ sgtk_widget_pop_style ()
15128 {
15129
15130 gtk_widget_pop_style();
15131 return(scm_undefined);
15132 }
15133
sgtk_widget_set_parent_window(SOBJ o_widget,SOBJ o_parent_window)15134 SOBJ sgtk_widget_set_parent_window (SOBJ o_widget, SOBJ o_parent_window)
15135 {
15136 GtkWidget* widget;
15137 GdkWindow* parent_window;
15138
15139 widget = sgtk_get_Object(o_widget);
15140 parent_window = sgdk_get_Window(o_parent_window);
15141 gtk_widget_set_parent_window(widget, parent_window);
15142 return(scm_undefined);
15143 }
15144
sgtk_widget_get_parent_window(SOBJ o_widget)15145 SOBJ sgtk_widget_get_parent_window (SOBJ o_widget)
15146 {
15147 GtkWidget* widget;
15148 GdkWindow* __retval__;
15149
15150 widget = sgtk_get_Object(o_widget);
15151 __retval__ = gtk_widget_get_parent_window(widget);
15152 return(sgdk_Window_new(__retval__));
15153 }
15154
sgtk_widget_set_uposition(SOBJ o_widget,SOBJ o_x,SOBJ o_y)15155 SOBJ sgtk_widget_set_uposition (SOBJ o_widget, SOBJ o_x, SOBJ o_y)
15156 {
15157 GtkWidget* widget;
15158 gint x;
15159 gint y;
15160
15161 widget = sgtk_get_Object(o_widget);
15162 x = scm_number2long(o_x);
15163 y = scm_number2long(o_y);
15164 gtk_widget_set_uposition(widget, x, y);
15165 return(scm_undefined);
15166 }
15167
sgtk_widget_set_usize(SOBJ o_widget,SOBJ o_width,SOBJ o_height)15168 SOBJ sgtk_widget_set_usize (SOBJ o_widget, SOBJ o_width, SOBJ o_height)
15169 {
15170 GtkWidget* widget;
15171 gint width;
15172 gint height;
15173
15174 widget = sgtk_get_Object(o_widget);
15175 width = scm_number2long(o_width);
15176 height = scm_number2long(o_height);
15177 gtk_widget_set_usize(widget, width, height);
15178 return(scm_undefined);
15179 }
15180
sgtk_widget_set_events(SOBJ o_widget,SOBJ o_events)15181 SOBJ sgtk_widget_set_events (SOBJ o_widget, SOBJ o_events)
15182 {
15183 GtkWidget* widget;
15184 gint events;
15185
15186 widget = sgtk_get_Object(o_widget);
15187 events = scm_number2long(o_events);
15188 gtk_widget_set_events(widget, events);
15189 return(scm_undefined);
15190 }
15191
sgtk_widget_add_events(SOBJ o_widget,SOBJ o_events)15192 SOBJ sgtk_widget_add_events (SOBJ o_widget, SOBJ o_events)
15193 {
15194 GtkWidget* widget;
15195 gint events;
15196
15197 widget = sgtk_get_Object(o_widget);
15198 events = scm_number2long(o_events);
15199 gtk_widget_add_events(widget, events);
15200 return(scm_undefined);
15201 }
15202
sgtk_widget_set_extension_events(SOBJ o_widget,SOBJ o_mode)15203 SOBJ sgtk_widget_set_extension_events (SOBJ o_widget, SOBJ o_mode)
15204 {
15205 GtkWidget* widget;
15206 GdkExtensionMode mode;
15207
15208 widget = sgtk_get_Object(o_widget);
15209 mode = sgtk_enumget("GdkExtensionMode", o_mode);
15210 gtk_widget_set_extension_events(widget, mode);
15211 return(scm_undefined);
15212 }
15213
sgtk_widget_get_toplevel(SOBJ o_widget)15214 SOBJ sgtk_widget_get_toplevel (SOBJ o_widget)
15215 {
15216 GtkWidget* widget;
15217 GtkWidget* __retval__;
15218
15219 widget = sgtk_get_Object(o_widget);
15220 __retval__ = gtk_widget_get_toplevel(widget);
15221 return(sgtk_object_new((void*)__retval__));
15222 }
15223
sgtk_widget_get_ancestor(SOBJ o_widget,SOBJ o_widget_type)15224 SOBJ sgtk_widget_get_ancestor (SOBJ o_widget, SOBJ o_widget_type)
15225 {
15226 GtkWidget* widget;
15227 GtkType widget_type;
15228 GtkWidget* __retval__;
15229
15230 widget = sgtk_get_Object(o_widget);
15231 widget_type = scm_number2long(o_widget_type);
15232 __retval__ = gtk_widget_get_ancestor(widget, widget_type);
15233 return(sgtk_object_new((void*)__retval__));
15234 }
15235
sgtk_widget_get_colormap(SOBJ o_widget)15236 SOBJ sgtk_widget_get_colormap (SOBJ o_widget)
15237 {
15238 GtkWidget* widget;
15239 GdkColormap* __retval__;
15240
15241 widget = sgtk_get_Object(o_widget);
15242 __retval__ = gtk_widget_get_colormap(widget);
15243 return(sgdk_Colormap_new(__retval__));
15244 }
15245
sgtk_widget_get_visual(SOBJ o_widget)15246 SOBJ sgtk_widget_get_visual (SOBJ o_widget)
15247 {
15248 GtkWidget* widget;
15249 GdkVisual* __retval__;
15250
15251 widget = sgtk_get_Object(o_widget);
15252 __retval__ = gtk_widget_get_visual(widget);
15253 return(sgdk_Visual_new(__retval__));
15254 }
15255
sgtk_widget_set_colormap(SOBJ o_widget,SOBJ o_colormap)15256 SOBJ sgtk_widget_set_colormap (SOBJ o_widget, SOBJ o_colormap)
15257 {
15258 GtkWidget* widget;
15259 GdkColormap* colormap;
15260
15261 widget = sgtk_get_Object(o_widget);
15262 colormap = sgdk_get_Colormap(o_colormap);
15263 gtk_widget_set_colormap(widget, colormap);
15264 return(scm_undefined);
15265 }
15266
sgtk_widget_set_visual(SOBJ o_widget,SOBJ o_visual)15267 SOBJ sgtk_widget_set_visual (SOBJ o_widget, SOBJ o_visual)
15268 {
15269 GtkWidget* widget;
15270 GdkVisual* visual;
15271
15272 widget = sgtk_get_Object(o_widget);
15273 visual = sgdk_get_Visual(o_visual);
15274 gtk_widget_set_visual(widget, visual);
15275 return(scm_undefined);
15276 }
15277
sgtk_widget_get_events(SOBJ o_widget)15278 SOBJ sgtk_widget_get_events (SOBJ o_widget)
15279 {
15280 GtkWidget* widget;
15281 gint __retval__;
15282
15283 widget = sgtk_get_Object(o_widget);
15284 __retval__ = gtk_widget_get_events(widget);
15285 return(SCM_MKINUM(__retval__));
15286 }
15287
sgtk_widget_get_extension_events(SOBJ o_widget)15288 SOBJ sgtk_widget_get_extension_events (SOBJ o_widget)
15289 {
15290 GtkWidget* widget;
15291 GdkExtensionMode __retval__;
15292
15293 widget = sgtk_get_Object(o_widget);
15294 __retval__ = gtk_widget_get_extension_events(widget);
15295 return(SCM_MKINUM(__retval__));
15296 }
15297
15298 #ifdef INCOMPLETE
sgtk_widget_get_pointer(SOBJ o_widget,SOBJ o_x,SOBJ o_y)15299 SOBJ sgtk_widget_get_pointer (SOBJ o_widget, SOBJ o_x, SOBJ o_y)
15300 {
15301 GtkWidget* widget;
15302 gint* x;
15303 gint* y;
15304
15305 widget = sgtk_get_Object(o_widget);
15306 /* +++ undefined gint* */
15307 /* +++ undefined gint* */
15308 gtk_widget_get_pointer(widget, x, y);
15309 return(scm_undefined);
15310 }
15311 #endif /* INCOMPLETE */
15312
sgtk_widget_is_ancestor(SOBJ o_widget,SOBJ o_ancestor)15313 SOBJ sgtk_widget_is_ancestor (SOBJ o_widget, SOBJ o_ancestor)
15314 {
15315 GtkWidget* widget;
15316 GtkWidget* ancestor;
15317 gint __retval__;
15318
15319 widget = sgtk_get_Object(o_widget);
15320 ancestor = sgtk_get_Object(o_ancestor);
15321 __retval__ = gtk_widget_is_ancestor(widget, ancestor);
15322 return(SCM_MKINUM(__retval__));
15323 }
15324
sgtk_widget_set_composite_name(SOBJ o_widget,SOBJ o_name)15325 SOBJ sgtk_widget_set_composite_name (SOBJ o_widget, SOBJ o_name)
15326 {
15327 GtkWidget* widget;
15328 gchar* name;
15329
15330 widget = sgtk_get_Object(o_widget);
15331 name = scm_getstr(o_name);
15332 gtk_widget_set_composite_name(widget, name);
15333 return(scm_undefined);
15334 }
15335
sgtk_widget_get_composite_name(SOBJ o_widget)15336 SOBJ sgtk_widget_get_composite_name (SOBJ o_widget)
15337 {
15338 GtkWidget* widget;
15339 gchar* __retval__;
15340
15341 widget = sgtk_get_Object(o_widget);
15342 __retval__ = gtk_widget_get_composite_name(widget);
15343 return(scm_mkstring(__retval__));
15344 }
15345
sgtk_widget_push_composite_child()15346 SOBJ sgtk_widget_push_composite_child ()
15347 {
15348
15349 gtk_widget_push_composite_child();
15350 return(scm_undefined);
15351 }
15352
sgtk_widget_pop_composite_child()15353 SOBJ sgtk_widget_pop_composite_child ()
15354 {
15355
15356 gtk_widget_pop_composite_child();
15357 return(scm_undefined);
15358 }
15359
sgtk_widget_push_colormap(SOBJ o_cmap)15360 SOBJ sgtk_widget_push_colormap (SOBJ o_cmap)
15361 {
15362 GdkColormap* cmap;
15363
15364 cmap = sgdk_get_Colormap(o_cmap);
15365 gtk_widget_push_colormap(cmap);
15366 return(scm_undefined);
15367 }
15368
sgtk_widget_push_visual(SOBJ o_visual)15369 SOBJ sgtk_widget_push_visual (SOBJ o_visual)
15370 {
15371 GdkVisual* visual;
15372
15373 visual = sgdk_get_Visual(o_visual);
15374 gtk_widget_push_visual(visual);
15375 return(scm_undefined);
15376 }
15377
sgtk_widget_pop_colormap()15378 SOBJ sgtk_widget_pop_colormap ()
15379 {
15380
15381 gtk_widget_pop_colormap();
15382 return(scm_undefined);
15383 }
15384
sgtk_widget_pop_visual()15385 SOBJ sgtk_widget_pop_visual ()
15386 {
15387
15388 gtk_widget_pop_visual();
15389 return(scm_undefined);
15390 }
15391
sgtk_widget_set_default_colormap(SOBJ o_colormap)15392 SOBJ sgtk_widget_set_default_colormap (SOBJ o_colormap)
15393 {
15394 GdkColormap* colormap;
15395
15396 colormap = sgdk_get_Colormap(o_colormap);
15397 gtk_widget_set_default_colormap(colormap);
15398 return(scm_undefined);
15399 }
15400
sgtk_widget_set_default_visual(SOBJ o_visual)15401 SOBJ sgtk_widget_set_default_visual (SOBJ o_visual)
15402 {
15403 GdkVisual* visual;
15404
15405 visual = sgdk_get_Visual(o_visual);
15406 gtk_widget_set_default_visual(visual);
15407 return(scm_undefined);
15408 }
15409
sgtk_widget_get_default_colormap()15410 SOBJ sgtk_widget_get_default_colormap ()
15411 {
15412 GdkColormap* __retval__;
15413
15414 __retval__ = gtk_widget_get_default_colormap();
15415 return(sgdk_Colormap_new(__retval__));
15416 }
15417
sgtk_widget_get_default_visual()15418 SOBJ sgtk_widget_get_default_visual ()
15419 {
15420 GdkVisual* __retval__;
15421
15422 __retval__ = gtk_widget_get_default_visual();
15423 return(sgdk_Visual_new(__retval__));
15424 }
15425
sgtk_widget_shape_combine_mask(SOBJ o_widget,SOBJ o_shape_mask,SOBJ o_offset_x,SOBJ o_offset_y)15426 SOBJ sgtk_widget_shape_combine_mask (SOBJ o_widget, SOBJ o_shape_mask, SOBJ o_offset_x, SOBJ o_offset_y)
15427 {
15428 GtkWidget* widget;
15429 GdkBitmap* shape_mask;
15430 gint offset_x;
15431 gint offset_y;
15432
15433 widget = sgtk_get_Object(o_widget);
15434 shape_mask = sgdk_get_Window(o_shape_mask);
15435 offset_x = scm_number2long(o_offset_x);
15436 offset_y = scm_number2long(o_offset_y);
15437 gtk_widget_shape_combine_mask(widget, shape_mask, offset_x, offset_y);
15438 return(scm_undefined);
15439 }
15440
sgtk_widget_reset_shapes(SOBJ o_widget)15441 SOBJ sgtk_widget_reset_shapes (SOBJ o_widget)
15442 {
15443 GtkWidget* widget;
15444
15445 widget = sgtk_get_Object(o_widget);
15446 gtk_widget_reset_shapes(widget);
15447 return(scm_undefined);
15448 }
15449
sgtk_widget_ref(SOBJ o_widget)15450 SOBJ sgtk_widget_ref (SOBJ o_widget)
15451 {
15452 GtkWidget* widget;
15453
15454 widget = sgtk_get_Object(o_widget);
15455 gtk_widget_ref(widget);
15456 return(scm_undefined);
15457 }
15458
sgtk_widget_unref(SOBJ o_widget)15459 SOBJ sgtk_widget_unref (SOBJ o_widget)
15460 {
15461 GtkWidget* widget;
15462
15463 widget = sgtk_get_Object(o_widget);
15464 gtk_widget_unref(widget);
15465 return(scm_undefined);
15466 }
15467
15468 #ifdef INCOMPLETE
sgtk_widget_path(SOBJ o_widget,SOBJ o_path_length_p,SOBJ o_path_p,SOBJ o_path_reversed_p)15469 SOBJ sgtk_widget_path (SOBJ o_widget, SOBJ o_path_length_p, SOBJ o_path_p, SOBJ o_path_reversed_p)
15470 {
15471 GtkWidget* widget;
15472 guint* path_length_p;
15473 gchar** path_p;
15474 gchar** path_reversed_p;
15475
15476 widget = sgtk_get_Object(o_widget);
15477 /* +++ undefined guint* */
15478 /* +++ undefined gchar** */
15479 /* +++ undefined gchar** */
15480 gtk_widget_path(widget, path_length_p, path_p, path_reversed_p);
15481 return(scm_undefined);
15482 }
15483 #endif /* INCOMPLETE */
15484
15485 #ifdef INCOMPLETE
sgtk_widget_class_path(SOBJ o_widget,SOBJ o_path_length_p,SOBJ o_path_p,SOBJ o_path_reversed_p)15486 SOBJ sgtk_widget_class_path (SOBJ o_widget, SOBJ o_path_length_p, SOBJ o_path_p, SOBJ o_path_reversed_p)
15487 {
15488 GtkWidget* widget;
15489 guint* path_length_p;
15490 gchar** path_p;
15491 gchar** path_reversed_p;
15492
15493 widget = sgtk_get_Object(o_widget);
15494 /* +++ undefined guint* */
15495 /* +++ undefined gchar** */
15496 /* +++ undefined gchar** */
15497 gtk_widget_class_path(widget, path_length_p, path_p, path_reversed_p);
15498 return(scm_undefined);
15499 }
15500 #endif /* INCOMPLETE */
15501
sgtk_window_get_type()15502 SOBJ sgtk_window_get_type ()
15503 {
15504 GtkType __retval__;
15505
15506 __retval__ = gtk_window_get_type();
15507 return(SCM_MKINUM(__retval__));
15508 }
15509
sgtk_window_new(SOBJ o_type)15510 SOBJ sgtk_window_new (SOBJ o_type)
15511 {
15512 GtkWindowType type;
15513 GtkWidget* __retval__;
15514
15515 type = sgtk_enumget("GtkWindowType", o_type);
15516 __retval__ = gtk_window_new(type);
15517 return(sgtk_object_new((void*)__retval__));
15518 }
15519
sgtk_window_set_title(SOBJ o_window,SOBJ o_title)15520 SOBJ sgtk_window_set_title (SOBJ o_window, SOBJ o_title)
15521 {
15522 GtkWindow* window;
15523 gchar* title;
15524
15525 window = sgtk_get_Object(o_window);
15526 title = scm_getstr(o_title);
15527 gtk_window_set_title(window, title);
15528 return(scm_undefined);
15529 }
15530
sgtk_window_set_wmclass(SOBJ o_window,SOBJ o_wmclass_name,SOBJ o_wmclass_class)15531 SOBJ sgtk_window_set_wmclass (SOBJ o_window, SOBJ o_wmclass_name, SOBJ o_wmclass_class)
15532 {
15533 GtkWindow* window;
15534 gchar* wmclass_name;
15535 gchar* wmclass_class;
15536
15537 window = sgtk_get_Object(o_window);
15538 wmclass_name = scm_getstr(o_wmclass_name);
15539 wmclass_class = scm_getstr(o_wmclass_class);
15540 gtk_window_set_wmclass(window, wmclass_name, wmclass_class);
15541 return(scm_undefined);
15542 }
15543
sgtk_window_set_focus(SOBJ o_window,SOBJ o_focus)15544 SOBJ sgtk_window_set_focus (SOBJ o_window, SOBJ o_focus)
15545 {
15546 GtkWindow* window;
15547 GtkWidget* focus;
15548
15549 window = sgtk_get_Object(o_window);
15550 focus = sgtk_get_Object(o_focus);
15551 gtk_window_set_focus(window, focus);
15552 return(scm_undefined);
15553 }
15554
sgtk_window_set_default(SOBJ o_window,SOBJ o_default_widget)15555 SOBJ sgtk_window_set_default (SOBJ o_window, SOBJ o_default_widget)
15556 {
15557 GtkWindow* window;
15558 GtkWidget* default_widget;
15559
15560 window = sgtk_get_Object(o_window);
15561 default_widget = sgtk_get_Object(o_default_widget);
15562 gtk_window_set_default(window, default_widget);
15563 return(scm_undefined);
15564 }
15565
sgtk_window_set_policy(SOBJ o_window,SOBJ o_allow_shrink,SOBJ o_allow_grow,SOBJ o_auto_shrink)15566 SOBJ sgtk_window_set_policy (SOBJ o_window, SOBJ o_allow_shrink, SOBJ o_allow_grow, SOBJ o_auto_shrink)
15567 {
15568 GtkWindow* window;
15569 gint allow_shrink;
15570 gint allow_grow;
15571 gint auto_shrink;
15572
15573 window = sgtk_get_Object(o_window);
15574 allow_shrink = scm_number2long(o_allow_shrink);
15575 allow_grow = scm_number2long(o_allow_grow);
15576 auto_shrink = scm_number2long(o_auto_shrink);
15577 gtk_window_set_policy(window, allow_shrink, allow_grow, auto_shrink);
15578 return(scm_undefined);
15579 }
15580
sgtk_window_add_accel_group(SOBJ o_window,SOBJ o_accel_group)15581 SOBJ sgtk_window_add_accel_group (SOBJ o_window, SOBJ o_accel_group)
15582 {
15583 GtkWindow* window;
15584 GtkAccelGroup* accel_group;
15585
15586 window = sgtk_get_Object(o_window);
15587 accel_group = sgtk_get_AccelGroup(o_accel_group);
15588 gtk_window_add_accel_group(window, accel_group);
15589 return(scm_undefined);
15590 }
15591
sgtk_window_remove_accel_group(SOBJ o_window,SOBJ o_accel_group)15592 SOBJ sgtk_window_remove_accel_group (SOBJ o_window, SOBJ o_accel_group)
15593 {
15594 GtkWindow* window;
15595 GtkAccelGroup* accel_group;
15596
15597 window = sgtk_get_Object(o_window);
15598 accel_group = sgtk_get_AccelGroup(o_accel_group);
15599 gtk_window_remove_accel_group(window, accel_group);
15600 return(scm_undefined);
15601 }
15602
sgtk_window_set_position(SOBJ o_window,SOBJ o_position)15603 SOBJ sgtk_window_set_position (SOBJ o_window, SOBJ o_position)
15604 {
15605 GtkWindow* window;
15606 GtkWindowPosition position;
15607
15608 window = sgtk_get_Object(o_window);
15609 position = sgtk_enumget("GtkWindowPosition", o_position);
15610 gtk_window_set_position(window, position);
15611 return(scm_undefined);
15612 }
15613
sgtk_window_activate_focus(SOBJ o_window)15614 SOBJ sgtk_window_activate_focus (SOBJ o_window)
15615 {
15616 GtkWindow* window;
15617 gint __retval__;
15618
15619 window = sgtk_get_Object(o_window);
15620 __retval__ = gtk_window_activate_focus(window);
15621 return(SCM_MKINUM(__retval__));
15622 }
15623
sgtk_window_activate_default(SOBJ o_window)15624 SOBJ sgtk_window_activate_default (SOBJ o_window)
15625 {
15626 GtkWindow* window;
15627 gint __retval__;
15628
15629 window = sgtk_get_Object(o_window);
15630 __retval__ = gtk_window_activate_default(window);
15631 return(SCM_MKINUM(__retval__));
15632 }
15633
sgtk_window_set_modal(SOBJ o_window,SOBJ o_modal)15634 SOBJ sgtk_window_set_modal (SOBJ o_window, SOBJ o_modal)
15635 {
15636 GtkWindow* window;
15637 gboolean modal;
15638
15639 window = sgtk_get_Object(o_window);
15640 modal = (o_modal != scm_false);
15641 gtk_window_set_modal(window, modal);
15642 return(scm_undefined);
15643 }
15644
sgtk_window_add_embedded_xid(SOBJ o_window,SOBJ o_xid)15645 SOBJ sgtk_window_add_embedded_xid (SOBJ o_window, SOBJ o_xid)
15646 {
15647 GtkWindow* window;
15648 guint xid;
15649
15650 window = sgtk_get_Object(o_window);
15651 xid = scm_number2long(o_xid);
15652 gtk_window_add_embedded_xid(window, xid);
15653 return(scm_undefined);
15654 }
15655
sgtk_window_remove_embedded_xid(SOBJ o_window,SOBJ o_xid)15656 SOBJ sgtk_window_remove_embedded_xid (SOBJ o_window, SOBJ o_xid)
15657 {
15658 GtkWindow* window;
15659 guint xid;
15660
15661 window = sgtk_get_Object(o_window);
15662 xid = scm_number2long(o_xid);
15663 gtk_window_remove_embedded_xid(window, xid);
15664 return(scm_undefined);
15665 }
15666
sgtk_window_reposition(SOBJ o_window,SOBJ o_x,SOBJ o_y)15667 SOBJ sgtk_window_reposition (SOBJ o_window, SOBJ o_x, SOBJ o_y)
15668 {
15669 GtkWindow* window;
15670 gint x;
15671 gint y;
15672
15673 window = sgtk_get_Object(o_window);
15674 x = scm_number2long(o_x);
15675 y = scm_number2long(o_y);
15676 gtk_window_reposition(window, x, y);
15677 return(scm_undefined);
15678 }
15679
sgtk_window_set_transient_for(SOBJ o_window,SOBJ o_parent)15680 SOBJ sgtk_window_set_transient_for (SOBJ o_window, SOBJ o_parent)
15681 {
15682 GtkWindow* window;
15683 GtkWindow* parent;
15684
15685 window = sgtk_get_Object(o_window);
15686 parent = sgtk_get_Object(o_parent);
15687 gtk_window_set_transient_for(window, parent);
15688 return(scm_undefined);
15689 }
15690
15691 #ifdef INCOMPLETE
sgtk_window_set_geometry_hints(SOBJ o_window,SOBJ o_geometry_widget,SOBJ o_geometry,SOBJ o_geom_mask)15692 SOBJ sgtk_window_set_geometry_hints (SOBJ o_window, SOBJ o_geometry_widget, SOBJ o_geometry, SOBJ o_geom_mask)
15693 {
15694 GtkWindow* window;
15695 GtkWidget* geometry_widget;
15696 GdkGeometry* geometry;
15697 GdkWindowHints geom_mask;
15698
15699 window = sgtk_get_Object(o_window);
15700 geometry_widget = sgtk_get_Object(o_geometry_widget);
15701 /* +++ undefined GdkGeometry* */
15702 geom_mask = sgtk_flagsget("GdkWindowHints", o_geom_mask);
15703 gtk_window_set_geometry_hints(window, geometry_widget, geometry, geom_mask);
15704 return(scm_undefined);
15705 }
15706 #endif /* INCOMPLETE */
15707
sgtk_window_set_default_size(SOBJ o_window,SOBJ o_width,SOBJ o_height)15708 SOBJ sgtk_window_set_default_size (SOBJ o_window, SOBJ o_width, SOBJ o_height)
15709 {
15710 GtkWindow* window;
15711 gint width;
15712 gint height;
15713
15714 window = sgtk_get_Object(o_window);
15715 width = scm_number2long(o_width);
15716 height = scm_number2long(o_height);
15717 gtk_window_set_default_size(window, width, height);
15718 return(scm_undefined);
15719 }
15720
15721
15722
scm_init_gtkdefs()15723 void scm_init_gtkdefs()
15724 {
15725 scm_add_cprim("gtk-accel-group-new", sgtk_accel_group_new, 0);
15726 scm_add_cprim("gtk-accel-group-get-default", sgtk_accel_group_get_default, 0);
15727 scm_add_cprim("gtk-accel-group-ref", sgtk_accel_group_ref, 1);
15728 scm_add_cprim("gtk-accel-group-unref", sgtk_accel_group_unref, 1);
15729 scm_add_cprim("gtk-accel-group-attach", sgtk_accel_group_attach, 2);
15730 scm_add_cprim("gtk-accel-group-detach", sgtk_accel_group_detach, 2);
15731 scm_add_cprim("gtk-accel-group-lock", sgtk_accel_group_lock, 1);
15732 scm_add_cprim("gtk-accel-group-unlock", sgtk_accel_group_unlock, 1);
15733 scm_add_cprim("gtk-accel-group-activate", sgtk_accel_group_activate, 3);
15734 scm_add_cprim("gtk-accel-groups-activate", sgtk_accel_groups_activate, 3);
15735 scm_add_cprim("gtk-accel-group-lock-entry", sgtk_accel_group_lock_entry, 3);
15736 scm_add_cprim("gtk-accel-group-unlock-entry", sgtk_accel_group_unlock_entry, 3);
15737 scm_add_cprim("gtk-accel-group-add", sgtk_accel_group_add, 6);
15738 scm_add_cprim("gtk-accel-group-handle-add", sgtk_accel_group_handle_add, 6);
15739 scm_add_cprim("gtk-accel-group-remove", sgtk_accel_group_remove, 4);
15740 scm_add_cprim("gtk-accel-group-handle-remove", sgtk_accel_group_handle_remove, 4);
15741 scm_add_cprim("gtk-accel-group-create-add", sgtk_accel_group_create_add, 3);
15742 scm_add_cprim("gtk-accel-group-create-remove", sgtk_accel_group_create_remove, 3);
15743 scm_add_cprim("gtk-accelerator-valid", sgtk_accelerator_valid, 2);
15744 scm_add_cprim("gtk-accelerator-name", sgtk_accelerator_name, 2);
15745 scm_add_cprim("gtk-accelerator-set-default-mod-mask", sgtk_accelerator_set_default_mod_mask, 1);
15746 scm_add_cprim("gtk-accelerator-get-default-mod-mask", sgtk_accelerator_get_default_mod_mask, 0);
15747 scm_add_cprim("gtk-accel-label-get-type", sgtk_accel_label_get_type, 0);
15748 scm_add_cprim("gtk-accel-label-new", sgtk_accel_label_new, 1);
15749 scm_add_cprim("gtk-accel-label-get-accel-width", sgtk_accel_label_get_accel_width, 1);
15750 scm_add_cprim("gtk-accel-label-set-accel-widget", sgtk_accel_label_set_accel_widget, 2);
15751 scm_add_cprim("gtk-accel-label-refetch", sgtk_accel_label_refetch, 1);
15752 scm_add_cprim("gtk-adjustment-get-type", sgtk_adjustment_get_type, 0);
15753 scm_add_cprim("gtk-adjustment-new", sgtk_adjustment_new, 6);
15754 scm_add_cprim("gtk-adjustment-set-value", sgtk_adjustment_set_value, 2);
15755 scm_add_cprim("gtk-adjustment-changed", sgtk_adjustment_changed, 1);
15756 scm_add_cprim("gtk-adjustment-value-changed", sgtk_adjustment_value_changed, 1);
15757 scm_add_cprim("gtk-adjustment-clamp-page", sgtk_adjustment_clamp_page, 3);
15758 scm_add_cprim("gtk-alignment-get-type", sgtk_alignment_get_type, 0);
15759 scm_add_cprim("gtk-alignment-new", sgtk_alignment_new, 4);
15760 scm_add_cprim("gtk-alignment-set", sgtk_alignment_set, 5);
15761 scm_add_cprim("gtk-arg-name-strip-type", sgtk_arg_name_strip_type, 1);
15762 scm_add_cprim("gtk-arrow-get-type", sgtk_arrow_get_type, 0);
15763 scm_add_cprim("gtk-arrow-new", sgtk_arrow_new, 2);
15764 scm_add_cprim("gtk-arrow-set", sgtk_arrow_set, 3);
15765 scm_add_cprim("gtk-aspect-frame-get-type", sgtk_aspect_frame_get_type, 0);
15766 scm_add_cprim("gtk-aspect-frame-new", sgtk_aspect_frame_new, 5);
15767 scm_add_cprim("gtk-aspect-frame-set", sgtk_aspect_frame_set, 5);
15768 scm_add_cprim("gtk-button-box-get-type", sgtk_button_box_get_type, 0);
15769 scm_add_cprim("gtk-button-box-set-child-size-default", sgtk_button_box_set_child_size_default, 2);
15770 scm_add_cprim("gtk-button-box-set-child-ipadding-default", sgtk_button_box_set_child_ipadding_default, 2);
15771 scm_add_cprim("gtk-button-box-set-spacing", sgtk_button_box_set_spacing, 2);
15772 scm_add_cprim("gtk-button-box-set-child-size", sgtk_button_box_set_child_size, 3);
15773 scm_add_cprim("gtk-button-box-set-child-ipadding", sgtk_button_box_set_child_ipadding, 3);
15774 scm_add_cprim("gtk-button-box-set-layout", sgtk_button_box_set_layout, 2);
15775 scm_add_cprim("gtk-button-box-get-spacing", sgtk_button_box_get_spacing, 1);
15776 scm_add_cprim("gtk-button-box-get-layout", sgtk_button_box_get_layout, 1);
15777 scm_add_cprim("gtk-bin-get-type", sgtk_bin_get_type, 0);
15778 scm_add_cprim("gtk-bindings-activate", sgtk_bindings_activate, 3);
15779 scm_add_cprim("gtk-pattern-match-simple", sgtk_pattern_match_simple, 2);
15780 scm_add_cprim("gtk-box-get-type", sgtk_box_get_type, 0);
15781 scm_add_cprim("gtk-box-pack-start", sgtk_box_pack_start, 5);
15782 scm_add_cprim("gtk-box-pack-end", sgtk_box_pack_end, 5);
15783 scm_add_cprim("gtk-box-pack-start-defaults", sgtk_box_pack_start_defaults, 2);
15784 scm_add_cprim("gtk-box-pack-end-defaults", sgtk_box_pack_end_defaults, 2);
15785 scm_add_cprim("gtk-box-set-homogeneous", sgtk_box_set_homogeneous, 2);
15786 scm_add_cprim("gtk-box-set-spacing", sgtk_box_set_spacing, 2);
15787 scm_add_cprim("gtk-box-reorder-child", sgtk_box_reorder_child, 3);
15788 scm_add_cprim("gtk-box-set-child-packing", sgtk_box_set_child_packing, 6);
15789 scm_add_cprim("gtk-button-get-type", sgtk_button_get_type, 0);
15790 scm_add_cprim("gtk-button-new", sgtk_button_new, 0);
15791 scm_add_cprim("gtk-button-new-with-label", sgtk_button_new_with_label, 1);
15792 scm_add_cprim("gtk-button-pressed", sgtk_button_pressed, 1);
15793 scm_add_cprim("gtk-button-released", sgtk_button_released, 1);
15794 scm_add_cprim("gtk-button-clicked", sgtk_button_clicked, 1);
15795 scm_add_cprim("gtk-button-enter", sgtk_button_enter, 1);
15796 scm_add_cprim("gtk-button-leave", sgtk_button_leave, 1);
15797 scm_add_cprim("gtk-button-set-relief", sgtk_button_set_relief, 2);
15798 scm_add_cprim("gtk-button-get-relief", sgtk_button_get_relief, 1);
15799 scm_add_cprim("gtk-calendar-get-type", sgtk_calendar_get_type, 0);
15800 scm_add_cprim("gtk-calendar-new", sgtk_calendar_new, 0);
15801 scm_add_cprim("gtk-calendar-display-options", sgtk_calendar_display_options, 2);
15802 scm_add_cprim("gtk-calendar-select-month", sgtk_calendar_select_month, 3);
15803 scm_add_cprim("gtk-calendar-select-day", sgtk_calendar_select_day, 2);
15804 scm_add_cprim("gtk-calendar-clear-marks", sgtk_calendar_clear_marks, 1);
15805 scm_add_cprim("gtk-calendar-mark-day", sgtk_calendar_mark_day, 2);
15806 scm_add_cprim("gtk-calendar-unmark-day", sgtk_calendar_unmark_day, 2);
15807 scm_add_cprim("gtk-calendar-freeze", sgtk_calendar_freeze, 1);
15808 scm_add_cprim("gtk-calendar-thaw", sgtk_calendar_thaw, 1);
15809 scm_add_cprim("gtk-check-button-get-type", sgtk_check_button_get_type, 0);
15810 scm_add_cprim("gtk-check-button-new", sgtk_check_button_new, 0);
15811 scm_add_cprim("gtk-check-button-new-with-label", sgtk_check_button_new_with_label, 1);
15812 scm_add_cprim("gtk-check-menu-item-get-type", sgtk_check_menu_item_get_type, 0);
15813 scm_add_cprim("gtk-check-menu-item-new", sgtk_check_menu_item_new, 0);
15814 scm_add_cprim("gtk-check-menu-item-new-with-label", sgtk_check_menu_item_new_with_label, 1);
15815 scm_add_cprim("gtk-check-menu-item-set-active", sgtk_check_menu_item_set_active, 2);
15816 scm_add_cprim("gtk-check-menu-item-set-show-toggle", sgtk_check_menu_item_set_show_toggle, 2);
15817 scm_add_cprim("gtk-check-menu-item-toggled", sgtk_check_menu_item_toggled, 1);
15818 scm_add_cprim("gtk-clist-get-type", sgtk_clist_get_type, 0);
15819 scm_add_cprim("gtk-clist-new", sgtk_clist_new, 1);
15820 scm_add_cprim("gtk-clist-set-hadjustment", sgtk_clist_set_hadjustment, 2);
15821 scm_add_cprim("gtk-clist-get-hadjustment", sgtk_clist_get_hadjustment, 1);
15822 scm_add_cprim("gtk-clist-set-vadjustment", sgtk_clist_set_vadjustment, 2);
15823 scm_add_cprim("gtk-clist-get-vadjustment", sgtk_clist_get_vadjustment, 1);
15824 scm_add_cprim("gtk-clist-set-shadow-type", sgtk_clist_set_shadow_type, 2);
15825 scm_add_cprim("gtk-clist-set-selection-mode", sgtk_clist_set_selection_mode, 2);
15826 scm_add_cprim("gtk-clist-freeze", sgtk_clist_freeze, 1);
15827 scm_add_cprim("gtk-clist-thaw", sgtk_clist_thaw, 1);
15828 scm_add_cprim("gtk-clist-column-titles-show", sgtk_clist_column_titles_show, 1);
15829 scm_add_cprim("gtk-clist-column-titles-hide", sgtk_clist_column_titles_hide, 1);
15830 scm_add_cprim("gtk-clist-column-title-active", sgtk_clist_column_title_active, 2);
15831 scm_add_cprim("gtk-clist-column-title-passive", sgtk_clist_column_title_passive, 2);
15832 scm_add_cprim("gtk-clist-column-titles-active", sgtk_clist_column_titles_active, 1);
15833 scm_add_cprim("gtk-clist-column-titles-passive", sgtk_clist_column_titles_passive, 1);
15834 scm_add_cprim("gtk-clist-set-column-title", sgtk_clist_set_column_title, 3);
15835 scm_add_cprim("gtk-clist-get-column-title", sgtk_clist_get_column_title, 2);
15836 scm_add_cprim("gtk-clist-set-column-widget", sgtk_clist_set_column_widget, 3);
15837 scm_add_cprim("gtk-clist-get-column-widget", sgtk_clist_get_column_widget, 2);
15838 scm_add_cprim("gtk-clist-set-column-justification", sgtk_clist_set_column_justification, 3);
15839 scm_add_cprim("gtk-clist-set-column-visibility", sgtk_clist_set_column_visibility, 3);
15840 scm_add_cprim("gtk-clist-set-column-resizeable", sgtk_clist_set_column_resizeable, 3);
15841 scm_add_cprim("gtk-clist-set-column-auto-resize", sgtk_clist_set_column_auto_resize, 3);
15842 scm_add_cprim("gtk-clist-columns-autosize", sgtk_clist_columns_autosize, 1);
15843 scm_add_cprim("gtk-clist-optimal-column-width", sgtk_clist_optimal_column_width, 2);
15844 scm_add_cprim("gtk-clist-set-column-width", sgtk_clist_set_column_width, 3);
15845 scm_add_cprim("gtk-clist-set-column-min-width", sgtk_clist_set_column_min_width, 3);
15846 scm_add_cprim("gtk-clist-set-column-max-width", sgtk_clist_set_column_max_width, 3);
15847 scm_add_cprim("gtk-clist-get-cell-type", sgtk_clist_get_cell_type, 3);
15848 scm_add_cprim("gtk-clist-set-text", sgtk_clist_set_text, 4);
15849 scm_add_cprim("gtk-clist-set-pixmap", sgtk_clist_set_pixmap, 5);
15850 scm_add_cprim("gtk-clist-set-pixtext", sgtk_clist_set_pixtext, 7);
15851 scm_add_cprim("gtk-clist-set-shift", sgtk_clist_set_shift, 5);
15852 scm_add_cprim("gtk-clist-remove", sgtk_clist_remove, 2);
15853 scm_add_cprim("gtk-clist-clear", sgtk_clist_clear, 1);
15854 scm_add_cprim("gtk-clist-moveto", sgtk_clist_moveto, 5);
15855 scm_add_cprim("gtk-clist-set-row-height", sgtk_clist_set_row_height, 2);
15856 scm_add_cprim("gtk-clist-get-row-data", sgtk_clist_get_row_data, 2);
15857 scm_add_cprim("gtk-clist-swap-rows", sgtk_clist_swap_rows, 3);
15858 scm_add_cprim("gtk-clist-row-move", sgtk_clist_row_move, 3);
15859 scm_add_cprim("gtk-clist-row-is-visible", sgtk_clist_row_is_visible, 2);
15860 scm_add_cprim("gtk-clist-set-foreground", sgtk_clist_set_foreground, 3);
15861 scm_add_cprim("gtk-clist-set-background", sgtk_clist_set_background, 3);
15862 scm_add_cprim("gtk-clist-set-cell-style", sgtk_clist_set_cell_style, 4);
15863 scm_add_cprim("gtk-clist-get-cell-style", sgtk_clist_get_cell_style, 3);
15864 scm_add_cprim("gtk-clist-set-row-style", sgtk_clist_set_row_style, 3);
15865 scm_add_cprim("gtk-clist-get-row-style", sgtk_clist_get_row_style, 2);
15866 scm_add_cprim("gtk-clist-set-selectable", sgtk_clist_set_selectable, 3);
15867 scm_add_cprim("gtk-clist-get-selectable", sgtk_clist_get_selectable, 2);
15868 scm_add_cprim("gtk-clist-select-row", sgtk_clist_select_row, 3);
15869 scm_add_cprim("gtk-clist-unselect-row", sgtk_clist_unselect_row, 3);
15870 scm_add_cprim("gtk-clist-select-all", sgtk_clist_select_all, 1);
15871 scm_add_cprim("gtk-clist-unselect-all", sgtk_clist_unselect_all, 1);
15872 scm_add_cprim("gtk-clist-undo-selection", sgtk_clist_undo_selection, 1);
15873 scm_add_cprim("gtk-clist-sort", sgtk_clist_sort, 1);
15874 scm_add_cprim("gtk-clist-set-auto-sort", sgtk_clist_set_auto_sort, 2);
15875 scm_add_cprim("gtk-clist-set-sort-type", sgtk_clist_set_sort_type, 2);
15876 scm_add_cprim("gtk-clist-set-sort-column", sgtk_clist_set_sort_column, 2);
15877 scm_add_cprim("gtk-clist-set-reorderable", sgtk_clist_set_reorderable, 2);
15878 scm_add_cprim("gtk-clist-set-use-drag-icons", sgtk_clist_set_use_drag_icons, 2);
15879 scm_add_cprim("gtk-clist-set-button-actions", sgtk_clist_set_button_actions, 3);
15880 scm_add_cprim("gtk-color-selection-get-type", sgtk_color_selection_get_type, 0);
15881 scm_add_cprim("gtk-color-selection-new", sgtk_color_selection_new, 0);
15882 scm_add_cprim("gtk-color-selection-set-update-policy", sgtk_color_selection_set_update_policy, 2);
15883 scm_add_cprim("gtk-color-selection-set-opacity", sgtk_color_selection_set_opacity, 2);
15884 scm_add_cprim("gtk-color-selection-dialog-get-type", sgtk_color_selection_dialog_get_type, 0);
15885 scm_add_cprim("gtk-color-selection-dialog-new", sgtk_color_selection_dialog_new, 1);
15886 scm_add_cprim("gtk-combo-get-type", sgtk_combo_get_type, 0);
15887 scm_add_cprim("gtk-combo-new", sgtk_combo_new, 0);
15888 scm_add_cprim("gtk-combo-set-value-in-list", sgtk_combo_set_value_in_list, 3);
15889 scm_add_cprim("gtk-combo-set-case-sensitive", sgtk_combo_set_case_sensitive, 2);
15890 scm_add_cprim("gtk-combo-set-use-arrows", sgtk_combo_set_use_arrows, 2);
15891 scm_add_cprim("gtk-combo-set-use-arrows-always", sgtk_combo_set_use_arrows_always, 2);
15892 scm_add_cprim("gtk-combo-set-item-string", sgtk_combo_set_item_string, 3);
15893 scm_add_cprim("gtk-combo-disable-activate", sgtk_combo_disable_activate, 1);
15894 scm_add_cprim("gtk-container-get-type", sgtk_container_get_type, 0);
15895 scm_add_cprim("gtk-container-child-type", sgtk_container_child_type, 1);
15896 scm_add_cprim("gtk-container-add-child-arg-type", sgtk_container_add_child_arg_type, 4);
15897 scm_add_cprim("gtk-container-set-border-width", sgtk_container_set_border_width, 2);
15898 scm_add_cprim("gtk-container-add", sgtk_container_add, 2);
15899 scm_add_cprim("gtk-container-remove", sgtk_container_remove, 2);
15900 scm_add_cprim("gtk-container-dequeue-resize-handler", sgtk_container_dequeue_resize_handler, 1);
15901 scm_add_cprim("gtk-container-clear-resize-widgets", sgtk_container_clear_resize_widgets, 1);
15902 scm_add_cprim("gtk-container-set-resize-mode", sgtk_container_set_resize_mode, 2);
15903 scm_add_cprim("gtk-container-set-reallocate-redraws", sgtk_container_set_reallocate_redraws, 2);
15904 scm_add_cprim("gtk-container-queue-resize", sgtk_container_queue_resize, 1);
15905 scm_add_cprim("gtk-container-check-resize", sgtk_container_check_resize, 1);
15906 scm_add_cprim("gtk-container-resize-children", sgtk_container_resize_children, 1);
15907 scm_add_cprim("gtk-container-focus", sgtk_container_focus, 2);
15908 scm_add_cprim("gtk-container-set-focus-child", sgtk_container_set_focus_child, 2);
15909 scm_add_cprim("gtk-container-register-toplevel", sgtk_container_register_toplevel, 1);
15910 scm_add_cprim("gtk-container-unregister-toplevel", sgtk_container_unregister_toplevel, 1);
15911 scm_add_cprim("gtk-container-child-composite-name", sgtk_container_child_composite_name, 2);
15912 scm_add_cprim("gtk-container-set-focus-vadjustment", sgtk_container_set_focus_vadjustment, 2);
15913 scm_add_cprim("gtk-container-set-focus-hadjustment", sgtk_container_set_focus_hadjustment, 2);
15914 scm_add_cprim("gtk-ctree-get-type", sgtk_ctree_get_type, 0);
15915 scm_add_cprim("gtk-ctree-new", sgtk_ctree_new, 2);
15916 scm_add_cprim("gtk-ctree-remove-node", sgtk_ctree_remove_node, 2);
15917 scm_add_cprim("gtk-ctree-is-viewable", sgtk_ctree_is_viewable, 2);
15918 scm_add_cprim("gtk-ctree-last", sgtk_ctree_last, 2);
15919 scm_add_cprim("gtk-ctree-find-node-ptr", sgtk_ctree_find_node_ptr, 2);
15920 scm_add_cprim("gtk-ctree-node-nth", sgtk_ctree_node_nth, 2);
15921 scm_add_cprim("gtk-ctree-find", sgtk_ctree_find, 3);
15922 scm_add_cprim("gtk-ctree-is-ancestor", sgtk_ctree_is_ancestor, 3);
15923 scm_add_cprim("gtk-ctree-is-hot-spot", sgtk_ctree_is_hot_spot, 3);
15924 scm_add_cprim("gtk-ctree-move", sgtk_ctree_move, 4);
15925 scm_add_cprim("gtk-ctree-expand", sgtk_ctree_expand, 2);
15926 scm_add_cprim("gtk-ctree-expand-recursive", sgtk_ctree_expand_recursive, 2);
15927 scm_add_cprim("gtk-ctree-expand-to-depth", sgtk_ctree_expand_to_depth, 3);
15928 scm_add_cprim("gtk-ctree-collapse", sgtk_ctree_collapse, 2);
15929 scm_add_cprim("gtk-ctree-collapse-recursive", sgtk_ctree_collapse_recursive, 2);
15930 scm_add_cprim("gtk-ctree-collapse-to-depth", sgtk_ctree_collapse_to_depth, 3);
15931 scm_add_cprim("gtk-ctree-toggle-expansion", sgtk_ctree_toggle_expansion, 2);
15932 scm_add_cprim("gtk-ctree-toggle-expansion-recursive", sgtk_ctree_toggle_expansion_recursive, 2);
15933 scm_add_cprim("gtk-ctree-select", sgtk_ctree_select, 2);
15934 scm_add_cprim("gtk-ctree-unselect", sgtk_ctree_unselect, 2);
15935 scm_add_cprim("gtk-ctree-select-recursive", sgtk_ctree_select_recursive, 2);
15936 scm_add_cprim("gtk-ctree-unselect-recursive", sgtk_ctree_unselect_recursive, 2);
15937 scm_add_cprim("gtk-ctree-node-set-text", sgtk_ctree_node_set_text, 4);
15938 scm_add_cprim("gtk-ctree-node-set-pixmap", sgtk_ctree_node_set_pixmap, 5);
15939 scm_add_cprim("gtk-ctree-node-set-pixtext", sgtk_ctree_node_set_pixtext, 7);
15940 scm_add_cprim("gtk-ctree-set-node-info", sgtk_ctree_set_node_info, 10);
15941 scm_add_cprim("gtk-ctree-node-set-shift", sgtk_ctree_node_set_shift, 5);
15942 scm_add_cprim("gtk-ctree-node-set-selectable", sgtk_ctree_node_set_selectable, 3);
15943 scm_add_cprim("gtk-ctree-node-get-selectable", sgtk_ctree_node_get_selectable, 2);
15944 scm_add_cprim("gtk-ctree-node-get-cell-type", sgtk_ctree_node_get_cell_type, 3);
15945 scm_add_cprim("gtk-ctree-node-set-cell-style", sgtk_ctree_node_set_cell_style, 4);
15946 scm_add_cprim("gtk-ctree-node-get-cell-style", sgtk_ctree_node_get_cell_style, 3);
15947 scm_add_cprim("gtk-ctree-node-set-row-style", sgtk_ctree_node_set_row_style, 3);
15948 scm_add_cprim("gtk-ctree-node-get-row-style", sgtk_ctree_node_get_row_style, 2);
15949 scm_add_cprim("gtk-ctree-node-set-foreground", sgtk_ctree_node_set_foreground, 3);
15950 scm_add_cprim("gtk-ctree-node-set-background", sgtk_ctree_node_set_background, 3);
15951 scm_add_cprim("gtk-ctree-node-get-row-data", sgtk_ctree_node_get_row_data, 2);
15952 scm_add_cprim("gtk-ctree-node-moveto", sgtk_ctree_node_moveto, 5);
15953 scm_add_cprim("gtk-ctree-node-is-visible", sgtk_ctree_node_is_visible, 2);
15954 scm_add_cprim("gtk-ctree-set-indent", sgtk_ctree_set_indent, 2);
15955 scm_add_cprim("gtk-ctree-set-spacing", sgtk_ctree_set_spacing, 2);
15956 scm_add_cprim("gtk-ctree-set-show-stub", sgtk_ctree_set_show_stub, 2);
15957 scm_add_cprim("gtk-ctree-set-line-style", sgtk_ctree_set_line_style, 2);
15958 scm_add_cprim("gtk-ctree-set-expander-style", sgtk_ctree_set_expander_style, 2);
15959 scm_add_cprim("gtk-ctree-sort-recursive", sgtk_ctree_sort_recursive, 2);
15960 scm_add_cprim("gtk-ctree-sort-node", sgtk_ctree_sort_node, 2);
15961 scm_add_cprim("gtk-curve-get-type", sgtk_curve_get_type, 0);
15962 scm_add_cprim("gtk-curve-set-curve-type", sgtk_curve_set_curve_type, 2);
15963 scm_add_cprim("gtk-curve-reset", sgtk_curve_reset, 1);
15964 scm_add_cprim("gtk-curve-set-gamma", sgtk_curve_set_gamma, 2);
15965 scm_add_cprim("gtk-curve-set-range", sgtk_curve_set_range, 5);
15966 scm_add_cprim("gtk-curve-new", sgtk_curve_new, 0);
15967 scm_add_cprim("gtk-data-get-type", sgtk_data_get_type, 0);
15968 scm_add_cprim("gtk-dialog-get-type", sgtk_dialog_get_type, 0);
15969 scm_add_cprim("gtk-dialog-new", sgtk_dialog_new, 0);
15970 scm_add_cprim("gtk-drag-get-data", sgtk_drag_get_data, 4);
15971 scm_add_cprim("gtk-drag-get-source-widget", sgtk_drag_get_source_widget, 1);
15972 scm_add_cprim("gtk-drag-finish", sgtk_drag_finish, 4);
15973 scm_add_cprim("gtk-drag-highlight", sgtk_drag_highlight, 1);
15974 scm_add_cprim("gtk-drag-unhighlight", sgtk_drag_unhighlight, 1);
15975 scm_add_cprim("gtk-drag-dest-set-proxy", sgtk_drag_dest_set_proxy, 4);
15976 scm_add_cprim("gtk-drag-dest-unset", sgtk_drag_dest_unset, 1);
15977 scm_add_cprim("gtk-drag-dest-handle-event", sgtk_drag_dest_handle_event, 2);
15978 scm_add_cprim("gtk-drag-source-unset", sgtk_drag_source_unset, 1);
15979 scm_add_cprim("gtk-drag-source-set-icon", sgtk_drag_source_set_icon, 4);
15980 scm_add_cprim("gtk-drag-set-icon-widget", sgtk_drag_set_icon_widget, 4);
15981 scm_add_cprim("gtk-drag-set-icon-pixmap", sgtk_drag_set_icon_pixmap, 6);
15982 scm_add_cprim("gtk-drag-set-icon-default", sgtk_drag_set_icon_default, 1);
15983 scm_add_cprim("gtk-drag-set-default-icon", sgtk_drag_set_default_icon, 5);
15984 scm_add_cprim("gtk-drag-source-handle-event", sgtk_drag_source_handle_event, 2);
15985 scm_add_cprim("gtk-drawing-area-get-type", sgtk_drawing_area_get_type, 0);
15986 scm_add_cprim("gtk-drawing-area-new", sgtk_drawing_area_new, 0);
15987 scm_add_cprim("gtk-drawing-area-size", sgtk_drawing_area_size, 3);
15988 scm_add_cprim("gtk-editable-get-type", sgtk_editable_get_type, 0);
15989 scm_add_cprim("gtk-editable-delete-text", sgtk_editable_delete_text, 3);
15990 scm_add_cprim("gtk-editable-get-chars", sgtk_editable_get_chars, 3);
15991 scm_add_cprim("gtk-editable-set-position", sgtk_editable_set_position, 2);
15992 scm_add_cprim("gtk-editable-get-position", sgtk_editable_get_position, 1);
15993 scm_add_cprim("gtk-editable-delete-selection", sgtk_editable_delete_selection, 1);
15994 scm_add_cprim("gtk-editable-claim-selection", sgtk_editable_claim_selection, 3);
15995 scm_add_cprim("gtk-editable-select-region", sgtk_editable_select_region, 3);
15996 scm_add_cprim("gtk-editable-cut-clipboard", sgtk_editable_cut_clipboard, 1);
15997 scm_add_cprim("gtk-editable-copy-clipboard", sgtk_editable_copy_clipboard, 1);
15998 scm_add_cprim("gtk-editable-paste-clipboard", sgtk_editable_paste_clipboard, 1);
15999 scm_add_cprim("gtk-editable-set-editable", sgtk_editable_set_editable, 2);
16000 scm_add_cprim("gtk-editable-changed", sgtk_editable_changed, 1);
16001 scm_add_cprim("gtk-entry-get-type", sgtk_entry_get_type, 0);
16002 scm_add_cprim("gtk-entry-new", sgtk_entry_new, 0);
16003 scm_add_cprim("gtk-entry-new-with-max-length", sgtk_entry_new_with_max_length, 1);
16004 scm_add_cprim("gtk-entry-set-text", sgtk_entry_set_text, 2);
16005 scm_add_cprim("gtk-entry-append-text", sgtk_entry_append_text, 2);
16006 scm_add_cprim("gtk-entry-prepend-text", sgtk_entry_prepend_text, 2);
16007 scm_add_cprim("gtk-entry-set-position", sgtk_entry_set_position, 2);
16008 scm_add_cprim("gtk-entry-set-visibility", sgtk_entry_set_visibility, 2);
16009 scm_add_cprim("gtk-entry-set-editable", sgtk_entry_set_editable, 2);
16010 scm_add_cprim("gtk-entry-get-text", sgtk_entry_get_text, 1);
16011 scm_add_cprim("gtk-entry-select-region", sgtk_entry_select_region, 3);
16012 scm_add_cprim("gtk-entry-set-max-length", sgtk_entry_set_max_length, 2);
16013 scm_add_cprim("gtk-event-box-get-type", sgtk_event_box_get_type, 0);
16014 scm_add_cprim("gtk-event-box-new", sgtk_event_box_new, 0);
16015 scm_add_cprim("gtk-file-selection-get-type", sgtk_file_selection_get_type, 0);
16016 scm_add_cprim("gtk-file-selection-new", sgtk_file_selection_new, 1);
16017 scm_add_cprim("gtk-file-selection-show-fileop-buttons", sgtk_file_selection_show_fileop_buttons, 1);
16018 scm_add_cprim("gtk-file-selection-hide-fileop-buttons", sgtk_file_selection_hide_fileop_buttons, 1);
16019 scm_add_cprim("gtk-file-selection-set-filename", sgtk_file_selection_set_filename, 2);
16020 scm_add_cprim("gtk-file-selection-get-filename", sgtk_file_selection_get_filename, 1);
16021 scm_add_cprim("gtk-file-selection-complete", sgtk_file_selection_complete, 2);
16022 scm_add_cprim("gtk-fixed-get-type", sgtk_fixed_get_type, 0);
16023 scm_add_cprim("gtk-fixed-new", sgtk_fixed_new, 0);
16024 scm_add_cprim("gtk-fixed-put", sgtk_fixed_put, 4);
16025 scm_add_cprim("gtk-fixed-move", sgtk_fixed_move, 4);
16026 scm_add_cprim("gtk-font-selection-get-type", sgtk_font_selection_get_type, 0);
16027 scm_add_cprim("gtk-font-selection-new", sgtk_font_selection_new, 0);
16028 scm_add_cprim("gtk-font-selection-get-font", sgtk_font_selection_get_font, 1);
16029 scm_add_cprim("gtk-font-selection-get-font-name", sgtk_font_selection_get_font_name, 1);
16030 scm_add_cprim("gtk-font-selection-set-font-name", sgtk_font_selection_set_font_name, 2);
16031 scm_add_cprim("gtk-font-selection-get-preview-text", sgtk_font_selection_get_preview_text, 1);
16032 scm_add_cprim("gtk-font-selection-set-preview-text", sgtk_font_selection_set_preview_text, 2);
16033 scm_add_cprim("gtk-font-selection-dialog-get-type", sgtk_font_selection_dialog_get_type, 0);
16034 scm_add_cprim("gtk-font-selection-dialog-new", sgtk_font_selection_dialog_new, 1);
16035 scm_add_cprim("gtk-font-selection-dialog-get-font-name", sgtk_font_selection_dialog_get_font_name, 1);
16036 scm_add_cprim("gtk-font-selection-dialog-get-font", sgtk_font_selection_dialog_get_font, 1);
16037 scm_add_cprim("gtk-font-selection-dialog-set-font-name", sgtk_font_selection_dialog_set_font_name, 2);
16038 scm_add_cprim("gtk-font-selection-dialog-get-preview-text", sgtk_font_selection_dialog_get_preview_text, 1);
16039 scm_add_cprim("gtk-font-selection-dialog-set-preview-text", sgtk_font_selection_dialog_set_preview_text, 2);
16040 scm_add_cprim("gtk-frame-get-type", sgtk_frame_get_type, 0);
16041 scm_add_cprim("gtk-frame-new", sgtk_frame_new, 1);
16042 scm_add_cprim("gtk-frame-set-label", sgtk_frame_set_label, 2);
16043 scm_add_cprim("gtk-frame-set-label-align", sgtk_frame_set_label_align, 3);
16044 scm_add_cprim("gtk-frame-set-shadow-type", sgtk_frame_set_shadow_type, 2);
16045 scm_add_cprim("gtk-gamma-curve-get-type", sgtk_gamma_curve_get_type, 0);
16046 scm_add_cprim("gtk-gamma-curve-new", sgtk_gamma_curve_new, 0);
16047 scm_add_cprim("gtk-gc-release", sgtk_gc_release, 1);
16048 scm_add_cprim("gtk-handle-box-get-type", sgtk_handle_box_get_type, 0);
16049 scm_add_cprim("gtk-handle-box-new", sgtk_handle_box_new, 0);
16050 scm_add_cprim("gtk-handle-box-set-shadow-type", sgtk_handle_box_set_shadow_type, 2);
16051 scm_add_cprim("gtk-handle-box-set-handle-position", sgtk_handle_box_set_handle_position, 2);
16052 scm_add_cprim("gtk-handle-box-set-snap-edge", sgtk_handle_box_set_snap_edge, 2);
16053 scm_add_cprim("gtk-hbutton-box-get-type", sgtk_hbutton_box_get_type, 0);
16054 scm_add_cprim("gtk-hbutton-box-new", sgtk_hbutton_box_new, 0);
16055 scm_add_cprim("gtk-hbutton-box-set-spacing-default", sgtk_hbutton_box_set_spacing_default, 1);
16056 scm_add_cprim("gtk-hbutton-box-set-layout-default", sgtk_hbutton_box_set_layout_default, 1);
16057 scm_add_cprim("gtk-hbutton-box-get-spacing-default", sgtk_hbutton_box_get_spacing_default, 0);
16058 scm_add_cprim("gtk-hbutton-box-get-layout-default", sgtk_hbutton_box_get_layout_default, 0);
16059 scm_add_cprim("gtk-hbox-get-type", sgtk_hbox_get_type, 0);
16060 scm_add_cprim("gtk-hbox-new", sgtk_hbox_new, 2);
16061 scm_add_cprim("gtk-hpaned-get-type", sgtk_hpaned_get_type, 0);
16062 scm_add_cprim("gtk-hpaned-new", sgtk_hpaned_new, 0);
16063 scm_add_cprim("gtk-hruler-get-type", sgtk_hruler_get_type, 0);
16064 scm_add_cprim("gtk-hruler-new", sgtk_hruler_new, 0);
16065 scm_add_cprim("gtk-hscale-get-type", sgtk_hscale_get_type, 0);
16066 scm_add_cprim("gtk-hscale-new", sgtk_hscale_new, 1);
16067 scm_add_cprim("gtk-hscrollbar-get-type", sgtk_hscrollbar_get_type, 0);
16068 scm_add_cprim("gtk-hscrollbar-new", sgtk_hscrollbar_new, 1);
16069 scm_add_cprim("gtk-hseparator-get-type", sgtk_hseparator_get_type, 0);
16070 scm_add_cprim("gtk-hseparator-new", sgtk_hseparator_new, 0);
16071 scm_add_cprim("gtk-image-get-type", sgtk_image_get_type, 0);
16072 scm_add_cprim("gtk-input-dialog-get-type", sgtk_input_dialog_get_type, 0);
16073 scm_add_cprim("gtk-input-dialog-new", sgtk_input_dialog_new, 0);
16074 scm_add_cprim("gtk-invisible-get-type", sgtk_invisible_get_type, 0);
16075 scm_add_cprim("gtk-invisible-new", sgtk_invisible_new, 0);
16076 scm_add_cprim("gtk-item-get-type", sgtk_item_get_type, 0);
16077 scm_add_cprim("gtk-item-select", sgtk_item_select, 1);
16078 scm_add_cprim("gtk-item-deselect", sgtk_item_deselect, 1);
16079 scm_add_cprim("gtk-item-toggle", sgtk_item_toggle, 1);
16080 scm_add_cprim("gtk-item-factory-get-type", sgtk_item_factory_get_type, 0);
16081 scm_add_cprim("gtk-item-factory-new", sgtk_item_factory_new, 3);
16082 scm_add_cprim("gtk-item-factory-add-foreign", sgtk_item_factory_add_foreign, 5);
16083 scm_add_cprim("gtk-item-factory-construct", sgtk_item_factory_construct, 4);
16084 scm_add_cprim("gtk-item-factory-from-path", sgtk_item_factory_from_path, 1);
16085 scm_add_cprim("gtk-item-factory-from-widget", sgtk_item_factory_from_widget, 1);
16086 scm_add_cprim("gtk-item-factory-path-from-widget", sgtk_item_factory_path_from_widget, 1);
16087 scm_add_cprim("gtk-item-factory-get-widget", sgtk_item_factory_get_widget, 2);
16088 scm_add_cprim("gtk-item-factory-get-widget-by-action", sgtk_item_factory_get_widget_by_action, 2);
16089 scm_add_cprim("gtk-item-factory-get-item", sgtk_item_factory_get_item, 2);
16090 scm_add_cprim("gtk-item-factory-get-item-by-action", sgtk_item_factory_get_item_by_action, 2);
16091 scm_add_cprim("gtk-item-factories-path-delete", sgtk_item_factories_path_delete, 2);
16092 scm_add_cprim("gtk-item-factory-delete-item", sgtk_item_factory_delete_item, 2);
16093 scm_add_cprim("gtk-item-factory-popup-data-from-widget", sgtk_item_factory_popup_data_from_widget, 1);
16094 scm_add_cprim("gtk-item-factory-popup-data", sgtk_item_factory_popup_data, 1);
16095 scm_add_cprim("gtk-item-factory-popup", sgtk_item_factory_popup, 5);
16096 scm_add_cprim("gtk-item-factory-parse-rc-string", sgtk_item_factory_parse_rc_string, 1);
16097 scm_add_cprim("gtk-item-factory-parse-rc", sgtk_item_factory_parse_rc, 1);
16098 scm_add_cprim("gtk-label-get-type", sgtk_label_get_type, 0);
16099 scm_add_cprim("gtk-label-new", sgtk_label_new, 1);
16100 scm_add_cprim("gtk-label-set-text", sgtk_label_set_text, 2);
16101 scm_add_cprim("gtk-label-set-pattern", sgtk_label_set_pattern, 2);
16102 scm_add_cprim("gtk-label-set-justify", sgtk_label_set_justify, 2);
16103 scm_add_cprim("gtk-label-set-line-wrap", sgtk_label_set_line_wrap, 2);
16104 scm_add_cprim("gtk-label-parse-uline", sgtk_label_parse_uline, 2);
16105 scm_add_cprim("gtk-layout-new", sgtk_layout_new, 2);
16106 scm_add_cprim("gtk-layout-get-hadjustment", sgtk_layout_get_hadjustment, 1);
16107 scm_add_cprim("gtk-layout-get-vadjustment", sgtk_layout_get_vadjustment, 1);
16108 scm_add_cprim("gtk-layout-set-hadjustment", sgtk_layout_set_hadjustment, 2);
16109 scm_add_cprim("gtk-layout-set-vadjustment", sgtk_layout_set_vadjustment, 2);
16110 scm_add_cprim("gtk-layout-put", sgtk_layout_put, 4);
16111 scm_add_cprim("gtk-layout-move", sgtk_layout_move, 4);
16112 scm_add_cprim("gtk-layout-set-size", sgtk_layout_set_size, 3);
16113 scm_add_cprim("gtk-layout-freeze", sgtk_layout_freeze, 1);
16114 scm_add_cprim("gtk-layout-thaw", sgtk_layout_thaw, 1);
16115 scm_add_cprim("gtk-layout-get-type", sgtk_layout_get_type, 0);
16116 scm_add_cprim("gtk-list-get-type", sgtk_list_get_type, 0);
16117 scm_add_cprim("gtk-list-new", sgtk_list_new, 0);
16118 scm_add_cprim("gtk-list-clear-items", sgtk_list_clear_items, 3);
16119 scm_add_cprim("gtk-list-child-position", sgtk_list_child_position, 2);
16120 scm_add_cprim("gtk-list-set-selection-mode", sgtk_list_set_selection_mode, 2);
16121 scm_add_cprim("gtk-list-select-item", sgtk_list_select_item, 2);
16122 scm_add_cprim("gtk-list-unselect-item", sgtk_list_unselect_item, 2);
16123 scm_add_cprim("gtk-list-select-child", sgtk_list_select_child, 2);
16124 scm_add_cprim("gtk-list-unselect-child", sgtk_list_unselect_child, 2);
16125 scm_add_cprim("gtk-list-select-all", sgtk_list_select_all, 1);
16126 scm_add_cprim("gtk-list-unselect-all", sgtk_list_unselect_all, 1);
16127 scm_add_cprim("gtk-list-extend-selection", sgtk_list_extend_selection, 4);
16128 scm_add_cprim("gtk-list-end-drag-selection", sgtk_list_end_drag_selection, 1);
16129 scm_add_cprim("gtk-list-start-selection", sgtk_list_start_selection, 1);
16130 scm_add_cprim("gtk-list-end-selection", sgtk_list_end_selection, 1);
16131 scm_add_cprim("gtk-list-toggle-row", sgtk_list_toggle_row, 2);
16132 scm_add_cprim("gtk-list-toggle-focus-row", sgtk_list_toggle_focus_row, 1);
16133 scm_add_cprim("gtk-list-toggle-add-mode", sgtk_list_toggle_add_mode, 1);
16134 scm_add_cprim("gtk-list-undo-selection", sgtk_list_undo_selection, 1);
16135 scm_add_cprim("gtk-list-scroll-horizontal", sgtk_list_scroll_horizontal, 3);
16136 scm_add_cprim("gtk-list-scroll-vertical", sgtk_list_scroll_vertical, 3);
16137 scm_add_cprim("gtk-list-item-get-type", sgtk_list_item_get_type, 0);
16138 scm_add_cprim("gtk-list-item-new", sgtk_list_item_new, 0);
16139 scm_add_cprim("gtk-list-item-new-with-label", sgtk_list_item_new_with_label, 1);
16140 scm_add_cprim("gtk-list-item-select", sgtk_list_item_select, 1);
16141 scm_add_cprim("gtk-list-item-deselect", sgtk_list_item_deselect, 1);
16142 scm_add_cprim("gtk-check-version", sgtk_check_version, 3);
16143 scm_add_cprim("gtk-exit", sgtk_exit, 1);
16144 scm_add_cprim("gtk-set-locale", sgtk_set_locale, 0);
16145 scm_add_cprim("gtk-main", sgtk_main, 0);
16146 scm_add_cprim("gtk-main-level", sgtk_main_level, 0);
16147 scm_add_cprim("gtk-main-quit", sgtk_main_quit, 0);
16148 scm_add_cprim("gtk-events-pending", sgtk_events_pending, 0);
16149 scm_add_cprim("gtk-main-iteration", sgtk_main_iteration, 0);
16150 scm_add_cprim("gtk-main-iteration-do", sgtk_main_iteration_do, 1);
16151 scm_add_cprim("gtk-main-do-event", sgtk_main_do_event, 1);
16152 scm_add_cprim("gtk-true", sgtk_true, 0);
16153 scm_add_cprim("gtk-false", sgtk_false, 0);
16154 scm_add_cprim("gtk-grab-add", sgtk_grab_add, 1);
16155 scm_add_cprim("gtk-grab-get-current", sgtk_grab_get_current, 0);
16156 scm_add_cprim("gtk-grab-remove", sgtk_grab_remove, 1);
16157 scm_add_cprim("gtk-key-snooper-remove", sgtk_key_snooper_remove, 1);
16158 scm_add_cprim("gtk-quit-add-destroy", sgtk_quit_add_destroy, 2);
16159 scm_add_cprim("gtk-quit-remove", sgtk_quit_remove, 1);
16160 scm_add_cprim("gtk-timeout-remove", sgtk_timeout_remove, 1);
16161 scm_add_cprim("gtk-idle-remove", sgtk_idle_remove, 1);
16162 scm_add_cprim("gtk-input-remove", sgtk_input_remove, 1);
16163 scm_add_cprim("gtk-get-current-event", sgtk_get_current_event, 0);
16164 scm_add_cprim("gtk-get-event-widget", sgtk_get_event_widget, 1);
16165 scm_add_cprim("gtk-propagate-event", sgtk_propagate_event, 2);
16166 scm_add_cprim("gtk-menu-get-type", sgtk_menu_get_type, 0);
16167 scm_add_cprim("gtk-menu-get-attach-widget", sgtk_menu_get_attach_widget, 1);
16168 scm_add_cprim("gtk-menu-detach", sgtk_menu_detach, 1);
16169 scm_add_cprim("gtk-menu-new", sgtk_menu_new, 0);
16170 scm_add_cprim("gtk-menu-append", sgtk_menu_append, 2);
16171 scm_add_cprim("gtk-menu-prepend", sgtk_menu_prepend, 2);
16172 scm_add_cprim("gtk-menu-insert", sgtk_menu_insert, 3);
16173 scm_add_cprim("gtk-menu-popdown", sgtk_menu_popdown, 1);
16174 scm_add_cprim("gtk-menu-get-active", sgtk_menu_get_active, 1);
16175 scm_add_cprim("gtk-menu-set-active", sgtk_menu_set_active, 2);
16176 scm_add_cprim("gtk-menu-set-accel-group", sgtk_menu_set_accel_group, 2);
16177 scm_add_cprim("gtk-menu-get-accel-group", sgtk_menu_get_accel_group, 1);
16178 scm_add_cprim("gtk-menu-ensure-uline-accel-group", sgtk_menu_ensure_uline_accel_group, 1);
16179 scm_add_cprim("gtk-menu-get-uline-accel-group", sgtk_menu_get_uline_accel_group, 1);
16180 scm_add_cprim("gtk-menu-reposition", sgtk_menu_reposition, 1);
16181 scm_add_cprim("gtk-menu-set-tearoff-state", sgtk_menu_set_tearoff_state, 2);
16182 scm_add_cprim("gtk-menu-set-title", sgtk_menu_set_title, 2);
16183 scm_add_cprim("gtk-menu-reorder-child", sgtk_menu_reorder_child, 3);
16184 scm_add_cprim("gtk-menu-bar-get-type", sgtk_menu_bar_get_type, 0);
16185 scm_add_cprim("gtk-menu-bar-new", sgtk_menu_bar_new, 0);
16186 scm_add_cprim("gtk-menu-bar-append", sgtk_menu_bar_append, 2);
16187 scm_add_cprim("gtk-menu-bar-prepend", sgtk_menu_bar_prepend, 2);
16188 scm_add_cprim("gtk-menu-bar-insert", sgtk_menu_bar_insert, 3);
16189 scm_add_cprim("gtk-menu-bar-set-shadow-type", sgtk_menu_bar_set_shadow_type, 2);
16190 scm_add_cprim("gtk-menu-item-get-type", sgtk_menu_item_get_type, 0);
16191 scm_add_cprim("gtk-menu-item-new", sgtk_menu_item_new, 0);
16192 scm_add_cprim("gtk-menu-item-new-with-label", sgtk_menu_item_new_with_label, 1);
16193 scm_add_cprim("gtk-menu-item-set-submenu", sgtk_menu_item_set_submenu, 2);
16194 scm_add_cprim("gtk-menu-item-remove-submenu", sgtk_menu_item_remove_submenu, 1);
16195 scm_add_cprim("gtk-menu-item-set-placement", sgtk_menu_item_set_placement, 2);
16196 scm_add_cprim("gtk-menu-item-configure", sgtk_menu_item_configure, 3);
16197 scm_add_cprim("gtk-menu-item-select", sgtk_menu_item_select, 1);
16198 scm_add_cprim("gtk-menu-item-deselect", sgtk_menu_item_deselect, 1);
16199 scm_add_cprim("gtk-menu-item-activate", sgtk_menu_item_activate, 1);
16200 scm_add_cprim("gtk-menu-item-right-justify", sgtk_menu_item_right_justify, 1);
16201 scm_add_cprim("gtk-menu-shell-get-type", sgtk_menu_shell_get_type, 0);
16202 scm_add_cprim("gtk-menu-shell-append", sgtk_menu_shell_append, 2);
16203 scm_add_cprim("gtk-menu-shell-prepend", sgtk_menu_shell_prepend, 2);
16204 scm_add_cprim("gtk-menu-shell-insert", sgtk_menu_shell_insert, 3);
16205 scm_add_cprim("gtk-menu-shell-deactivate", sgtk_menu_shell_deactivate, 1);
16206 scm_add_cprim("gtk-menu-shell-select-item", sgtk_menu_shell_select_item, 2);
16207 scm_add_cprim("gtk-menu-shell-deselect", sgtk_menu_shell_deselect, 1);
16208 scm_add_cprim("gtk-menu-shell-activate-item", sgtk_menu_shell_activate_item, 3);
16209 scm_add_cprim("gtk-misc-get-type", sgtk_misc_get_type, 0);
16210 scm_add_cprim("gtk-misc-set-alignment", sgtk_misc_set_alignment, 3);
16211 scm_add_cprim("gtk-misc-set-padding", sgtk_misc_set_padding, 3);
16212 scm_add_cprim("gtk-notebook-get-type", sgtk_notebook_get_type, 0);
16213 scm_add_cprim("gtk-notebook-new", sgtk_notebook_new, 0);
16214 scm_add_cprim("gtk-notebook-append-page", sgtk_notebook_append_page, 3);
16215 scm_add_cprim("gtk-notebook-append-page-menu", sgtk_notebook_append_page_menu, 4);
16216 scm_add_cprim("gtk-notebook-prepend-page", sgtk_notebook_prepend_page, 3);
16217 scm_add_cprim("gtk-notebook-prepend-page-menu", sgtk_notebook_prepend_page_menu, 4);
16218 scm_add_cprim("gtk-notebook-insert-page", sgtk_notebook_insert_page, 4);
16219 scm_add_cprim("gtk-notebook-insert-page-menu", sgtk_notebook_insert_page_menu, 5);
16220 scm_add_cprim("gtk-notebook-remove-page", sgtk_notebook_remove_page, 2);
16221 scm_add_cprim("gtk-notebook-get-current-page", sgtk_notebook_get_current_page, 1);
16222 scm_add_cprim("gtk-notebook-get-nth-page", sgtk_notebook_get_nth_page, 2);
16223 scm_add_cprim("gtk-notebook-page-num", sgtk_notebook_page_num, 2);
16224 scm_add_cprim("gtk-notebook-set-page", sgtk_notebook_set_page, 2);
16225 scm_add_cprim("gtk-notebook-next-page", sgtk_notebook_next_page, 1);
16226 scm_add_cprim("gtk-notebook-prev-page", sgtk_notebook_prev_page, 1);
16227 scm_add_cprim("gtk-notebook-set-show-border", sgtk_notebook_set_show_border, 2);
16228 scm_add_cprim("gtk-notebook-set-show-tabs", sgtk_notebook_set_show_tabs, 2);
16229 scm_add_cprim("gtk-notebook-set-tab-pos", sgtk_notebook_set_tab_pos, 2);
16230 scm_add_cprim("gtk-notebook-set-homogeneous-tabs", sgtk_notebook_set_homogeneous_tabs, 2);
16231 scm_add_cprim("gtk-notebook-set-tab-border", sgtk_notebook_set_tab_border, 2);
16232 scm_add_cprim("gtk-notebook-set-tab-hborder", sgtk_notebook_set_tab_hborder, 2);
16233 scm_add_cprim("gtk-notebook-set-tab-vborder", sgtk_notebook_set_tab_vborder, 2);
16234 scm_add_cprim("gtk-notebook-set-scrollable", sgtk_notebook_set_scrollable, 2);
16235 scm_add_cprim("gtk-notebook-popup-enable", sgtk_notebook_popup_enable, 1);
16236 scm_add_cprim("gtk-notebook-popup-disable", sgtk_notebook_popup_disable, 1);
16237 scm_add_cprim("gtk-notebook-get-tab-label", sgtk_notebook_get_tab_label, 2);
16238 scm_add_cprim("gtk-notebook-set-tab-label", sgtk_notebook_set_tab_label, 3);
16239 scm_add_cprim("gtk-notebook-set-tab-label-text", sgtk_notebook_set_tab_label_text, 3);
16240 scm_add_cprim("gtk-notebook-get-menu-label", sgtk_notebook_get_menu_label, 2);
16241 scm_add_cprim("gtk-notebook-set-menu-label", sgtk_notebook_set_menu_label, 3);
16242 scm_add_cprim("gtk-notebook-set-menu-label-text", sgtk_notebook_set_menu_label_text, 3);
16243 scm_add_cprim("gtk-notebook-set-tab-label-packing", sgtk_notebook_set_tab_label_packing, 5);
16244 scm_add_cprim("gtk-notebook-reorder-child", sgtk_notebook_reorder_child, 3);
16245 scm_add_cprim("gtk-object-post-arg-parsing-init", sgtk_object_post_arg_parsing_init, 0);
16246 scm_add_cprim("gtk-object-init-type", sgtk_object_init_type, 0);
16247 scm_add_cprim("gtk-object-get-type", sgtk_object_get_type, 0);
16248 scm_add_cprim("gtk-object-destroy", sgtk_object_destroy, 1);
16249 scm_add_cprim("gtk-object-sink", sgtk_object_sink, 1);
16250 scm_add_cprim("gtk-object-default-construct", sgtk_object_default_construct, 1);
16251 scm_add_cprim("gtk-object-constructed", sgtk_object_constructed, 1);
16252 scm_add_cprim("gtk-object-add-arg-type", sgtk_object_add_arg_type, 4);
16253 scm_add_cprim("gtk-object-get-data", sgtk_object_get_data, 2);
16254 scm_add_cprim("gtk-object-remove-data", sgtk_object_remove_data, 2);
16255 scm_add_cprim("gtk-object-remove-no-notify", sgtk_object_remove_no_notify, 2);
16256 scm_add_cprim("gtk-object-get-user-data", sgtk_object_get_user_data, 1);
16257 scm_add_cprim("gtk-object-ref", sgtk_object_ref, 1);
16258 scm_add_cprim("gtk-object-unref", sgtk_object_unref, 1);
16259 scm_add_cprim("gtk-trace-referencing", sgtk_trace_referencing, 5);
16260 scm_add_cprim("gtk-option-menu-get-type", sgtk_option_menu_get_type, 0);
16261 scm_add_cprim("gtk-option-menu-new", sgtk_option_menu_new, 0);
16262 scm_add_cprim("gtk-option-menu-get-menu", sgtk_option_menu_get_menu, 1);
16263 scm_add_cprim("gtk-option-menu-set-menu", sgtk_option_menu_set_menu, 2);
16264 scm_add_cprim("gtk-option-menu-remove-menu", sgtk_option_menu_remove_menu, 1);
16265 scm_add_cprim("gtk-option-menu-set-history", sgtk_option_menu_set_history, 2);
16266 scm_add_cprim("gtk-packer-get-type", sgtk_packer_get_type, 0);
16267 scm_add_cprim("gtk-packer-set-spacing", sgtk_packer_set_spacing, 2);
16268 scm_add_cprim("gtk-packer-new", sgtk_packer_new, 0);
16269 scm_add_cprim("gtk-packer-set-default-border-width", sgtk_packer_set_default_border_width, 2);
16270 scm_add_cprim("gtk-packer-set-default-pad", sgtk_packer_set_default_pad, 3);
16271 scm_add_cprim("gtk-packer-set-default-ipad", sgtk_packer_set_default_ipad, 3);
16272 scm_add_cprim("gtk-packer-add-defaults", sgtk_packer_add_defaults, 5);
16273 scm_add_cprim("gtk-packer-add", sgtk_packer_add, 10);
16274 scm_add_cprim("gtk-packer-set-child-packing", sgtk_packer_set_child_packing, 10);
16275 scm_add_cprim("gtk-packer-reorder-child", sgtk_packer_reorder_child, 3);
16276 scm_add_cprim("gtk-paned-get-type", sgtk_paned_get_type, 0);
16277 scm_add_cprim("gtk-paned-add1", sgtk_paned_add1, 2);
16278 scm_add_cprim("gtk-paned-add2", sgtk_paned_add2, 2);
16279 scm_add_cprim("gtk-paned-pack1", sgtk_paned_pack1, 4);
16280 scm_add_cprim("gtk-paned-pack2", sgtk_paned_pack2, 4);
16281 scm_add_cprim("gtk-paned-set-position", sgtk_paned_set_position, 2);
16282 scm_add_cprim("gtk-paned-set-handle-size", sgtk_paned_set_handle_size, 2);
16283 scm_add_cprim("gtk-paned-set-gutter-size", sgtk_paned_set_gutter_size, 2);
16284 scm_add_cprim("gtk-paned-compute-position", sgtk_paned_compute_position, 4);
16285 scm_add_cprim("gtk-pixmap-get-type", sgtk_pixmap_get_type, 0);
16286 scm_add_cprim("gtk-pixmap-new", sgtk_pixmap_new, 2);
16287 scm_add_cprim("gtk-pixmap-set", sgtk_pixmap_set, 3);
16288 scm_add_cprim("gtk-pixmap-set-build-insensitive", sgtk_pixmap_set_build_insensitive, 2);
16289 scm_add_cprim("gtk-plug-get-type", sgtk_plug_get_type, 0);
16290 scm_add_cprim("gtk-plug-construct", sgtk_plug_construct, 2);
16291 scm_add_cprim("gtk-plug-new", sgtk_plug_new, 1);
16292 scm_add_cprim("gtk-preview-get-type", sgtk_preview_get_type, 0);
16293 scm_add_cprim("gtk-preview-reset", sgtk_preview_reset, 0);
16294 scm_add_cprim("gtk-preview-uninit", sgtk_preview_uninit, 0);
16295 scm_add_cprim("gtk-preview-new", sgtk_preview_new, 1);
16296 scm_add_cprim("gtk-preview-size", sgtk_preview_size, 3);
16297 scm_add_cprim("gtk-preview-put", sgtk_preview_put, 9);
16298 scm_add_cprim("gtk-preview-draw-row", sgtk_preview_draw_row, 5);
16299 scm_add_cprim("gtk-preview-set-expand", sgtk_preview_set_expand, 2);
16300 scm_add_cprim("gtk-preview-set-gamma", sgtk_preview_set_gamma, 1);
16301 scm_add_cprim("gtk-preview-set-color-cube", sgtk_preview_set_color_cube, 4);
16302 scm_add_cprim("gtk-preview-set-install-cmap", sgtk_preview_set_install_cmap, 1);
16303 scm_add_cprim("gtk-preview-set-reserved", sgtk_preview_set_reserved, 1);
16304 scm_add_cprim("gtk-preview-set-dither", sgtk_preview_set_dither, 2);
16305 scm_add_cprim("gtk-preview-get-visual", sgtk_preview_get_visual, 0);
16306 scm_add_cprim("gtk-preview-get-cmap", sgtk_preview_get_cmap, 0);
16307 scm_add_cprim("gtk-progress-get-type", sgtk_progress_get_type, 0);
16308 scm_add_cprim("gtk-progress-set-adjustment", sgtk_progress_set_adjustment, 2);
16309 scm_add_cprim("gtk-progress-configure", sgtk_progress_configure, 4);
16310 scm_add_cprim("gtk-progress-set-percentage", sgtk_progress_set_percentage, 2);
16311 scm_add_cprim("gtk-progress-get-current-percentage", sgtk_progress_get_current_percentage, 1);
16312 scm_add_cprim("gtk-progress-get-percentage-from-value", sgtk_progress_get_percentage_from_value, 2);
16313 scm_add_cprim("gtk-progress-set-value", sgtk_progress_set_value, 2);
16314 scm_add_cprim("gtk-progress-get-value", sgtk_progress_get_value, 1);
16315 scm_add_cprim("gtk-progress-set-show-text", sgtk_progress_set_show_text, 2);
16316 scm_add_cprim("gtk-progress-set-text-alignment", sgtk_progress_set_text_alignment, 3);
16317 scm_add_cprim("gtk-progress-set-format-string", sgtk_progress_set_format_string, 2);
16318 scm_add_cprim("gtk-progress-get-current-text", sgtk_progress_get_current_text, 1);
16319 scm_add_cprim("gtk-progress-get-text-from-value", sgtk_progress_get_text_from_value, 2);
16320 scm_add_cprim("gtk-progress-set-activity-mode", sgtk_progress_set_activity_mode, 2);
16321 scm_add_cprim("gtk-progress-bar-get-type", sgtk_progress_bar_get_type, 0);
16322 scm_add_cprim("gtk-progress-bar-new", sgtk_progress_bar_new, 0);
16323 scm_add_cprim("gtk-progress-bar-new-with-adjustment", sgtk_progress_bar_new_with_adjustment, 1);
16324 scm_add_cprim("gtk-progress-bar-update", sgtk_progress_bar_update, 2);
16325 scm_add_cprim("gtk-progress-bar-set-orientation", sgtk_progress_bar_set_orientation, 2);
16326 scm_add_cprim("gtk-progress-bar-set-bar-style", sgtk_progress_bar_set_bar_style, 2);
16327 scm_add_cprim("gtk-progress-bar-set-discrete-blocks", sgtk_progress_bar_set_discrete_blocks, 2);
16328 scm_add_cprim("gtk-progress-bar-set-activity-step", sgtk_progress_bar_set_activity_step, 2);
16329 scm_add_cprim("gtk-progress-bar-set-activity-blocks", sgtk_progress_bar_set_activity_blocks, 2);
16330 scm_add_cprim("gtk-radio-button-get-type", sgtk_radio_button_get_type, 0);
16331 scm_add_cprim("gtk-radio-button-new-from-widget", sgtk_radio_button_new_from_widget, 1);
16332 scm_add_cprim("gtk-radio-button-new-with-label-from-widget", sgtk_radio_button_new_with_label_from_widget, 2);
16333 scm_add_cprim("gtk-radio-menu-item-get-type", sgtk_radio_menu_item_get_type, 0);
16334 scm_add_cprim("gtk-range-get-type", sgtk_range_get_type, 0);
16335 scm_add_cprim("gtk-range-get-adjustment", sgtk_range_get_adjustment, 1);
16336 scm_add_cprim("gtk-range-set-update-policy", sgtk_range_set_update_policy, 2);
16337 scm_add_cprim("gtk-range-set-adjustment", sgtk_range_set_adjustment, 2);
16338 scm_add_cprim("gtk-range-draw-background", sgtk_range_draw_background, 1);
16339 scm_add_cprim("gtk-range-clear-background", sgtk_range_clear_background, 1);
16340 scm_add_cprim("gtk-range-draw-trough", sgtk_range_draw_trough, 1);
16341 scm_add_cprim("gtk-range-draw-slider", sgtk_range_draw_slider, 1);
16342 scm_add_cprim("gtk-range-draw-step-forw", sgtk_range_draw_step_forw, 1);
16343 scm_add_cprim("gtk-range-draw-step-back", sgtk_range_draw_step_back, 1);
16344 scm_add_cprim("gtk-range-slider-update", sgtk_range_slider_update, 1);
16345 scm_add_cprim("gtk-range-default-hslider-update", sgtk_range_default_hslider_update, 1);
16346 scm_add_cprim("gtk-range-default-vslider-update", sgtk_range_default_vslider_update, 1);
16347 scm_add_cprim("gtk-range-default-hmotion", sgtk_range_default_hmotion, 3);
16348 scm_add_cprim("gtk-range-default-vmotion", sgtk_range_default_vmotion, 3);
16349 scm_add_cprim("gtk-rc-get-theme-dir", sgtk_rc_get_theme_dir, 0);
16350 scm_add_cprim("gtk-rc-get-module-dir", sgtk_rc_get_module_dir, 0);
16351 scm_add_cprim("gtk-rc-add-default-file", sgtk_rc_add_default_file, 1);
16352 scm_add_cprim("gtk-rc-init", sgtk_rc_init, 0);
16353 scm_add_cprim("gtk-rc-parse-string", sgtk_rc_parse_string, 1);
16354 scm_add_cprim("gtk-rc-parse", sgtk_rc_parse, 1);
16355 scm_add_cprim("gtk-rc-reparse-all", sgtk_rc_reparse_all, 0);
16356 scm_add_cprim("gtk-rc-get-style", sgtk_rc_get_style, 1);
16357 scm_add_cprim("gtk-rc-find-module-in-path", sgtk_rc_find_module_in_path, 1);
16358 scm_add_cprim("gtk-rc-load-image", sgtk_rc_load_image, 3);
16359 scm_add_cprim("gtk-ruler-get-type", sgtk_ruler_get_type, 0);
16360 scm_add_cprim("gtk-ruler-set-metric", sgtk_ruler_set_metric, 2);
16361 scm_add_cprim("gtk-ruler-set-range", sgtk_ruler_set_range, 5);
16362 scm_add_cprim("gtk-ruler-draw-ticks", sgtk_ruler_draw_ticks, 1);
16363 scm_add_cprim("gtk-ruler-draw-pos", sgtk_ruler_draw_pos, 1);
16364 scm_add_cprim("gtk-scale-get-type", sgtk_scale_get_type, 0);
16365 scm_add_cprim("gtk-scale-set-digits", sgtk_scale_set_digits, 2);
16366 scm_add_cprim("gtk-scale-set-draw-value", sgtk_scale_set_draw_value, 2);
16367 scm_add_cprim("gtk-scale-set-value-pos", sgtk_scale_set_value_pos, 2);
16368 scm_add_cprim("gtk-scale-get-value-width", sgtk_scale_get_value_width, 1);
16369 scm_add_cprim("gtk-scale-draw-value", sgtk_scale_draw_value, 1);
16370 scm_add_cprim("gtk-scrollbar-get-type", sgtk_scrollbar_get_type, 0);
16371 scm_add_cprim("gtk-scrolled-window-get-type", sgtk_scrolled_window_get_type, 0);
16372 scm_add_cprim("gtk-scrolled-window-new", sgtk_scrolled_window_new, 2);
16373 scm_add_cprim("gtk-scrolled-window-set-hadjustment", sgtk_scrolled_window_set_hadjustment, 2);
16374 scm_add_cprim("gtk-scrolled-window-set-vadjustment", sgtk_scrolled_window_set_vadjustment, 2);
16375 scm_add_cprim("gtk-scrolled-window-get-hadjustment", sgtk_scrolled_window_get_hadjustment, 1);
16376 scm_add_cprim("gtk-scrolled-window-get-vadjustment", sgtk_scrolled_window_get_vadjustment, 1);
16377 scm_add_cprim("gtk-scrolled-window-set-policy", sgtk_scrolled_window_set_policy, 3);
16378 scm_add_cprim("gtk-scrolled-window-set-placement", sgtk_scrolled_window_set_placement, 2);
16379 scm_add_cprim("gtk-scrolled-window-add-with-viewport", sgtk_scrolled_window_add_with_viewport, 2);
16380 scm_add_cprim("gtk-selection-owner-set", sgtk_selection_owner_set, 3);
16381 scm_add_cprim("gtk-selection-add-target", sgtk_selection_add_target, 4);
16382 scm_add_cprim("gtk-selection-remove-all", sgtk_selection_remove_all, 1);
16383 scm_add_cprim("gtk-selection-convert", sgtk_selection_convert, 4);
16384 scm_add_cprim("gtk-separator-get-type", sgtk_separator_get_type, 0);
16385 scm_add_cprim("gtk-signal-init", sgtk_signal_init, 0);
16386 scm_add_cprim("gtk-signal-lookup", sgtk_signal_lookup, 2);
16387 scm_add_cprim("gtk-signal-name", sgtk_signal_name, 1);
16388 scm_add_cprim("gtk-signal-emit-stop", sgtk_signal_emit_stop, 2);
16389 scm_add_cprim("gtk-signal-emit-stop-by-name", sgtk_signal_emit_stop_by_name, 2);
16390 scm_add_cprim("gtk-signal-n-emissions", sgtk_signal_n_emissions, 2);
16391 scm_add_cprim("gtk-signal-n-emissions-by-name", sgtk_signal_n_emissions_by_name, 2);
16392 scm_add_cprim("gtk-signal-disconnect", sgtk_signal_disconnect, 2);
16393 scm_add_cprim("gtk-signal-handler-block", sgtk_signal_handler_block, 2);
16394 scm_add_cprim("gtk-signal-handler-unblock", sgtk_signal_handler_unblock, 2);
16395 scm_add_cprim("gtk-signal-handlers-destroy", sgtk_signal_handlers_destroy, 1);
16396 scm_add_cprim("gtk-signal-handler-pending", sgtk_signal_handler_pending, 3);
16397 scm_add_cprim("gtk-signal-handler-pending-by-id", sgtk_signal_handler_pending_by_id, 3);
16398 scm_add_cprim("gtk-signal-remove-emission-hook", sgtk_signal_remove_emission_hook, 2);
16399 scm_add_cprim("gtk-socket-get-type", sgtk_socket_get_type, 0);
16400 scm_add_cprim("gtk-socket-new", sgtk_socket_new, 0);
16401 scm_add_cprim("gtk-socket-steal", sgtk_socket_steal, 2);
16402 scm_add_cprim("gtk-spin-button-get-type", sgtk_spin_button_get_type, 0);
16403 scm_add_cprim("gtk-spin-button-update", sgtk_spin_button_update, 1);
16404 scm_add_cprim("gtk-spin-button-configure", sgtk_spin_button_configure, 4);
16405 scm_add_cprim("gtk-spin-button-new", sgtk_spin_button_new, 3);
16406 scm_add_cprim("gtk-spin-button-set-adjustment", sgtk_spin_button_set_adjustment, 2);
16407 scm_add_cprim("gtk-spin-button-get-adjustment", sgtk_spin_button_get_adjustment, 1);
16408 scm_add_cprim("gtk-spin-button-set-digits", sgtk_spin_button_set_digits, 2);
16409 scm_add_cprim("gtk-spin-button-get-value-as-float", sgtk_spin_button_get_value_as_float, 1);
16410 scm_add_cprim("gtk-spin-button-get-value-as-int", sgtk_spin_button_get_value_as_int, 1);
16411 scm_add_cprim("gtk-spin-button-set-value", sgtk_spin_button_set_value, 2);
16412 scm_add_cprim("gtk-spin-button-set-update-policy", sgtk_spin_button_set_update_policy, 2);
16413 scm_add_cprim("gtk-spin-button-set-numeric", sgtk_spin_button_set_numeric, 2);
16414 scm_add_cprim("gtk-spin-button-set-wrap", sgtk_spin_button_set_wrap, 2);
16415 scm_add_cprim("gtk-spin-button-set-shadow-type", sgtk_spin_button_set_shadow_type, 2);
16416 scm_add_cprim("gtk-spin-button-set-snap-to-ticks", sgtk_spin_button_set_snap_to_ticks, 2);
16417 scm_add_cprim("gtk-spin-button-spin", sgtk_spin_button_spin, 3);
16418 scm_add_cprim("gtk-statusbar-get-type", sgtk_statusbar_get_type, 0);
16419 scm_add_cprim("gtk-statusbar-new", sgtk_statusbar_new, 0);
16420 scm_add_cprim("gtk-statusbar-get-context-id", sgtk_statusbar_get_context_id, 2);
16421 scm_add_cprim("gtk-statusbar-push", sgtk_statusbar_push, 3);
16422 scm_add_cprim("gtk-statusbar-pop", sgtk_statusbar_pop, 2);
16423 scm_add_cprim("gtk-statusbar-remove", sgtk_statusbar_remove, 3);
16424 scm_add_cprim("gtk-style-copy", sgtk_style_copy, 1);
16425 scm_add_cprim("gtk-style-new", sgtk_style_new, 0);
16426 scm_add_cprim("gtk-style-attach", sgtk_style_attach, 2);
16427 scm_add_cprim("gtk-style-detach", sgtk_style_detach, 1);
16428 scm_add_cprim("gtk-style-ref", sgtk_style_ref, 1);
16429 scm_add_cprim("gtk-style-unref", sgtk_style_unref, 1);
16430 scm_add_cprim("gtk-draw-hline", sgtk_draw_hline, 6);
16431 scm_add_cprim("gtk-draw-vline", sgtk_draw_vline, 6);
16432 scm_add_cprim("gtk-draw-shadow", sgtk_draw_shadow, 8);
16433 scm_add_cprim("gtk-draw-arrow", sgtk_draw_arrow, 10);
16434 scm_add_cprim("gtk-draw-diamond", sgtk_draw_diamond, 8);
16435 scm_add_cprim("gtk-draw-oval", sgtk_draw_oval, 8);
16436 scm_add_cprim("gtk-draw-string", sgtk_draw_string, 6);
16437 scm_add_cprim("gtk-draw-box", sgtk_draw_box, 8);
16438 scm_add_cprim("gtk-draw-flat-box", sgtk_draw_flat_box, 8);
16439 scm_add_cprim("gtk-draw-check", sgtk_draw_check, 8);
16440 scm_add_cprim("gtk-draw-option", sgtk_draw_option, 8);
16441 scm_add_cprim("gtk-draw-cross", sgtk_draw_cross, 8);
16442 scm_add_cprim("gtk-draw-ramp", sgtk_draw_ramp, 9);
16443 scm_add_cprim("gtk-draw-tab", sgtk_draw_tab, 8);
16444 scm_add_cprim("gtk-draw-shadow-gap", sgtk_draw_shadow_gap, 11);
16445 scm_add_cprim("gtk-draw-box-gap", sgtk_draw_box_gap, 11);
16446 scm_add_cprim("gtk-draw-extension", sgtk_draw_extension, 9);
16447 scm_add_cprim("gtk-draw-focus", sgtk_draw_focus, 6);
16448 scm_add_cprim("gtk-draw-slider", sgtk_draw_slider, 9);
16449 scm_add_cprim("gtk-draw-handle", sgtk_draw_handle, 9);
16450 scm_add_cprim("gtk-style-set-background", sgtk_style_set_background, 3);
16451 scm_add_cprim("gtk-table-get-type", sgtk_table_get_type, 0);
16452 scm_add_cprim("gtk-table-new", sgtk_table_new, 3);
16453 scm_add_cprim("gtk-table-resize", sgtk_table_resize, 3);
16454 scm_add_cprim("gtk-table-attach", sgtk_table_attach, 10);
16455 scm_add_cprim("gtk-table-attach-defaults", sgtk_table_attach_defaults, 6);
16456 scm_add_cprim("gtk-table-set-row-spacing", sgtk_table_set_row_spacing, 3);
16457 scm_add_cprim("gtk-table-set-col-spacing", sgtk_table_set_col_spacing, 3);
16458 scm_add_cprim("gtk-table-set-row-spacings", sgtk_table_set_row_spacings, 2);
16459 scm_add_cprim("gtk-table-set-col-spacings", sgtk_table_set_col_spacings, 2);
16460 scm_add_cprim("gtk-table-set-homogeneous", sgtk_table_set_homogeneous, 2);
16461 scm_add_cprim("gtk-tearoff-menu-item-get-type", sgtk_tearoff_menu_item_get_type, 0);
16462 scm_add_cprim("gtk-tearoff-menu-item-new", sgtk_tearoff_menu_item_new, 0);
16463 scm_add_cprim("gtk-text-get-type", sgtk_text_get_type, 0);
16464 scm_add_cprim("gtk-text-new", sgtk_text_new, 2);
16465 scm_add_cprim("gtk-text-set-word-wrap", sgtk_text_set_word_wrap, 2);
16466 scm_add_cprim("gtk-text-set-line-wrap", sgtk_text_set_line_wrap, 2);
16467 scm_add_cprim("gtk-text-set-editable", sgtk_text_set_editable, 2);
16468 scm_add_cprim("gtk-text-set-adjustments", sgtk_text_set_adjustments, 3);
16469 scm_add_cprim("gtk-text-set-point", sgtk_text_set_point, 2);
16470 scm_add_cprim("gtk-text-get-point", sgtk_text_get_point, 1);
16471 scm_add_cprim("gtk-text-get-length", sgtk_text_get_length, 1);
16472 scm_add_cprim("gtk-text-freeze", sgtk_text_freeze, 1);
16473 scm_add_cprim("gtk-text-thaw", sgtk_text_thaw, 1);
16474 scm_add_cprim("gtk-text-insert", sgtk_text_insert, 6);
16475 scm_add_cprim("gtk-text-backward-delete", sgtk_text_backward_delete, 2);
16476 scm_add_cprim("gtk-text-forward-delete", sgtk_text_forward_delete, 2);
16477 scm_add_cprim("gtk-tips-query-get-type", sgtk_tips_query_get_type, 0);
16478 scm_add_cprim("gtk-tips-query-new", sgtk_tips_query_new, 0);
16479 scm_add_cprim("gtk-tips-query-set-labels", sgtk_tips_query_set_labels, 3);
16480 scm_add_cprim("gtk-tips-query-set-caller", sgtk_tips_query_set_caller, 2);
16481 scm_add_cprim("gtk-tips-query-start-query", sgtk_tips_query_start_query, 1);
16482 scm_add_cprim("gtk-tips-query-stop-query", sgtk_tips_query_stop_query, 1);
16483 scm_add_cprim("gtk-toggle-button-get-type", sgtk_toggle_button_get_type, 0);
16484 scm_add_cprim("gtk-toggle-button-new", sgtk_toggle_button_new, 0);
16485 scm_add_cprim("gtk-toggle-button-new-with-label", sgtk_toggle_button_new_with_label, 1);
16486 scm_add_cprim("gtk-toggle-button-set-mode", sgtk_toggle_button_set_mode, 2);
16487 scm_add_cprim("gtk-toggle-button-set-active", sgtk_toggle_button_set_active, 2);
16488 scm_add_cprim("gtk-toggle-button-get-active", sgtk_toggle_button_get_active, 1);
16489 scm_add_cprim("gtk-toggle-button-toggled", sgtk_toggle_button_toggled, 1);
16490 scm_add_cprim("gtk-toolbar-get-type", sgtk_toolbar_get_type, 0);
16491 scm_add_cprim("gtk-toolbar-new", sgtk_toolbar_new, 2);
16492 scm_add_cprim("gtk-toolbar-append-space", sgtk_toolbar_append_space, 1);
16493 scm_add_cprim("gtk-toolbar-prepend-space", sgtk_toolbar_prepend_space, 1);
16494 scm_add_cprim("gtk-toolbar-insert-space", sgtk_toolbar_insert_space, 2);
16495 scm_add_cprim("gtk-toolbar-append-widget", sgtk_toolbar_append_widget, 4);
16496 scm_add_cprim("gtk-toolbar-prepend-widget", sgtk_toolbar_prepend_widget, 4);
16497 scm_add_cprim("gtk-toolbar-insert-widget", sgtk_toolbar_insert_widget, 5);
16498 scm_add_cprim("gtk-toolbar-set-orientation", sgtk_toolbar_set_orientation, 2);
16499 scm_add_cprim("gtk-toolbar-set-style", sgtk_toolbar_set_style, 2);
16500 scm_add_cprim("gtk-toolbar-set-space-size", sgtk_toolbar_set_space_size, 2);
16501 scm_add_cprim("gtk-toolbar-set-space-style", sgtk_toolbar_set_space_style, 2);
16502 scm_add_cprim("gtk-toolbar-set-tooltips", sgtk_toolbar_set_tooltips, 2);
16503 scm_add_cprim("gtk-toolbar-set-button-relief", sgtk_toolbar_set_button_relief, 2);
16504 scm_add_cprim("gtk-toolbar-get-button-relief", sgtk_toolbar_get_button_relief, 1);
16505 scm_add_cprim("gtk-tooltips-get-type", sgtk_tooltips_get_type, 0);
16506 scm_add_cprim("gtk-tooltips-new", sgtk_tooltips_new, 0);
16507 scm_add_cprim("gtk-tooltips-force-window", sgtk_tooltips_force_window, 1);
16508 scm_add_cprim("gtk-tooltips-enable", sgtk_tooltips_enable, 1);
16509 scm_add_cprim("gtk-tooltips-disable", sgtk_tooltips_disable, 1);
16510 scm_add_cprim("gtk-tooltips-set-delay", sgtk_tooltips_set_delay, 2);
16511 scm_add_cprim("gtk-tooltips-set-tip", sgtk_tooltips_set_tip, 4);
16512 scm_add_cprim("gtk-tooltips-set-colors", sgtk_tooltips_set_colors, 3);
16513 scm_add_cprim("gtk-tree-get-type", sgtk_tree_get_type, 0);
16514 scm_add_cprim("gtk-tree-new", sgtk_tree_new, 0);
16515 scm_add_cprim("gtk-tree-append", sgtk_tree_append, 2);
16516 scm_add_cprim("gtk-tree-prepend", sgtk_tree_prepend, 2);
16517 scm_add_cprim("gtk-tree-insert", sgtk_tree_insert, 3);
16518 scm_add_cprim("gtk-tree-child-position", sgtk_tree_child_position, 2);
16519 scm_add_cprim("gtk-tree-clear-items", sgtk_tree_clear_items, 3);
16520 scm_add_cprim("gtk-tree-remove-item", sgtk_tree_remove_item, 2);
16521 scm_add_cprim("gtk-tree-select-child", sgtk_tree_select_child, 2);
16522 scm_add_cprim("gtk-tree-select-item", sgtk_tree_select_item, 2);
16523 scm_add_cprim("gtk-tree-unselect-child", sgtk_tree_unselect_child, 2);
16524 scm_add_cprim("gtk-tree-unselect-item", sgtk_tree_unselect_item, 2);
16525 scm_add_cprim("gtk-tree-set-selection-mode", sgtk_tree_set_selection_mode, 2);
16526 scm_add_cprim("gtk-tree-set-view-mode", sgtk_tree_set_view_mode, 2);
16527 scm_add_cprim("gtk-tree-set-view-lines", sgtk_tree_set_view_lines, 2);
16528 scm_add_cprim("gtk-tree-item-get-type", sgtk_tree_item_get_type, 0);
16529 scm_add_cprim("gtk-tree-item-new", sgtk_tree_item_new, 0);
16530 scm_add_cprim("gtk-tree-item-new-with-label", sgtk_tree_item_new_with_label, 1);
16531 scm_add_cprim("gtk-tree-item-set-subtree", sgtk_tree_item_set_subtree, 2);
16532 scm_add_cprim("gtk-tree-item-select", sgtk_tree_item_select, 1);
16533 scm_add_cprim("gtk-tree-item-deselect", sgtk_tree_item_deselect, 1);
16534 scm_add_cprim("gtk-tree-item-expand", sgtk_tree_item_expand, 1);
16535 scm_add_cprim("gtk-tree-item-collapse", sgtk_tree_item_collapse, 1);
16536 scm_add_cprim("gtk-tree-item-remove-subtree", sgtk_tree_item_remove_subtree, 1);
16537 scm_add_cprim("gtk-type-init", sgtk_type_init, 0);
16538 scm_add_cprim("gtk-type-set-chunk-alloc", sgtk_type_set_chunk_alloc, 2);
16539 scm_add_cprim("gtk-type-name", sgtk_type_name, 1);
16540 scm_add_cprim("gtk-type-from-name", sgtk_type_from_name, 1);
16541 scm_add_cprim("gtk-type-parent", sgtk_type_parent, 1);
16542 scm_add_cprim("gtk-type-parent-class", sgtk_type_parent_class, 1);
16543 scm_add_cprim("gtk-type-class", sgtk_type_class, 1);
16544 scm_add_cprim("gtk-type-new", sgtk_type_new, 1);
16545 scm_add_cprim("gtk-type-describe-heritage", sgtk_type_describe_heritage, 1);
16546 scm_add_cprim("gtk-type-describe-tree", sgtk_type_describe_tree, 2);
16547 scm_add_cprim("gtk-type-is-a", sgtk_type_is_a, 2);
16548 scm_add_cprim("gtk-type-set-varargs-type", sgtk_type_set_varargs_type, 2);
16549 scm_add_cprim("gtk-type-get-varargs-type", sgtk_type_get_varargs_type, 1);
16550 scm_add_cprim("gtk-identifier-get-type", sgtk_identifier_get_type, 0);
16551 scm_add_cprim("gtk-vbutton-box-get-type", sgtk_vbutton_box_get_type, 0);
16552 scm_add_cprim("gtk-vbutton-box-new", sgtk_vbutton_box_new, 0);
16553 scm_add_cprim("gtk-vbutton-box-set-spacing-default", sgtk_vbutton_box_set_spacing_default, 1);
16554 scm_add_cprim("gtk-vbutton-box-set-layout-default", sgtk_vbutton_box_set_layout_default, 1);
16555 scm_add_cprim("gtk-vbutton-box-get-spacing-default", sgtk_vbutton_box_get_spacing_default, 0);
16556 scm_add_cprim("gtk-vbutton-box-get-layout-default", sgtk_vbutton_box_get_layout_default, 0);
16557 scm_add_cprim("gtk-vbox-get-type", sgtk_vbox_get_type, 0);
16558 scm_add_cprim("gtk-vbox-new", sgtk_vbox_new, 2);
16559 scm_add_cprim("gtk-viewport-get-type", sgtk_viewport_get_type, 0);
16560 scm_add_cprim("gtk-viewport-new", sgtk_viewport_new, 2);
16561 scm_add_cprim("gtk-viewport-get-hadjustment", sgtk_viewport_get_hadjustment, 1);
16562 scm_add_cprim("gtk-viewport-get-vadjustment", sgtk_viewport_get_vadjustment, 1);
16563 scm_add_cprim("gtk-viewport-set-hadjustment", sgtk_viewport_set_hadjustment, 2);
16564 scm_add_cprim("gtk-viewport-set-vadjustment", sgtk_viewport_set_vadjustment, 2);
16565 scm_add_cprim("gtk-viewport-set-shadow-type", sgtk_viewport_set_shadow_type, 2);
16566 scm_add_cprim("gtk-vpaned-get-type", sgtk_vpaned_get_type, 0);
16567 scm_add_cprim("gtk-vpaned-new", sgtk_vpaned_new, 0);
16568 scm_add_cprim("gtk-vruler-get-type", sgtk_vruler_get_type, 0);
16569 scm_add_cprim("gtk-vruler-new", sgtk_vruler_new, 0);
16570 scm_add_cprim("gtk-vscale-get-type", sgtk_vscale_get_type, 0);
16571 scm_add_cprim("gtk-vscale-new", sgtk_vscale_new, 1);
16572 scm_add_cprim("gtk-vscrollbar-get-type", sgtk_vscrollbar_get_type, 0);
16573 scm_add_cprim("gtk-vscrollbar-new", sgtk_vscrollbar_new, 1);
16574 scm_add_cprim("gtk-vseparator-get-type", sgtk_vseparator_get_type, 0);
16575 scm_add_cprim("gtk-vseparator-new", sgtk_vseparator_new, 0);
16576 scm_add_cprim("gtk-widget-get-type", sgtk_widget_get_type, 0);
16577 scm_add_cprim("gtk-widget-unparent", sgtk_widget_unparent, 1);
16578 scm_add_cprim("gtk-widget-destroy", sgtk_widget_destroy, 1);
16579 scm_add_cprim("gtk-widget-show", sgtk_widget_show, 1);
16580 scm_add_cprim("gtk-widget-show-now", sgtk_widget_show_now, 1);
16581 scm_add_cprim("gtk-widget-hide", sgtk_widget_hide, 1);
16582 scm_add_cprim("gtk-widget-hide-on-delete", sgtk_widget_hide_on_delete, 1);
16583 scm_add_cprim("gtk-widget-show-all", sgtk_widget_show_all, 1);
16584 scm_add_cprim("gtk-widget-hide-all", sgtk_widget_hide_all, 1);
16585 scm_add_cprim("gtk-widget-map", sgtk_widget_map, 1);
16586 scm_add_cprim("gtk-widget-unmap", sgtk_widget_unmap, 1);
16587 scm_add_cprim("gtk-widget-realize", sgtk_widget_realize, 1);
16588 scm_add_cprim("gtk-widget-unrealize", sgtk_widget_unrealize, 1);
16589 scm_add_cprim("gtk-widget-queue-draw-area", sgtk_widget_queue_draw_area, 5);
16590 scm_add_cprim("gtk-widget-queue-draw", sgtk_widget_queue_draw, 1);
16591 scm_add_cprim("gtk-widget-queue-clear-area", sgtk_widget_queue_clear_area, 5);
16592 scm_add_cprim("gtk-widget-queue-clear", sgtk_widget_queue_clear, 1);
16593 scm_add_cprim("gtk-widget-queue-resize", sgtk_widget_queue_resize, 1);
16594 scm_add_cprim("gtk-widget-draw-focus", sgtk_widget_draw_focus, 1);
16595 scm_add_cprim("gtk-widget-draw-default", sgtk_widget_draw_default, 1);
16596 scm_add_cprim("gtk-widget-lock-accelerators", sgtk_widget_lock_accelerators, 1);
16597 scm_add_cprim("gtk-widget-unlock-accelerators", sgtk_widget_unlock_accelerators, 1);
16598 scm_add_cprim("gtk-widget-accelerators-locked", sgtk_widget_accelerators_locked, 1);
16599 scm_add_cprim("gtk-widget-add-accelerator", sgtk_widget_add_accelerator, 6);
16600 scm_add_cprim("gtk-widget-remove-accelerator", sgtk_widget_remove_accelerator, 4);
16601 scm_add_cprim("gtk-widget-remove-accelerators", sgtk_widget_remove_accelerators, 3);
16602 scm_add_cprim("gtk-widget-accelerator-signal", sgtk_widget_accelerator_signal, 4);
16603 scm_add_cprim("gtk-widget-event", sgtk_widget_event, 2);
16604 scm_add_cprim("gtk-widget-activate", sgtk_widget_activate, 1);
16605 scm_add_cprim("gtk-widget-set-scroll-adjustments", sgtk_widget_set_scroll_adjustments, 3);
16606 scm_add_cprim("gtk-widget-reparent", sgtk_widget_reparent, 2);
16607 scm_add_cprim("gtk-widget-popup", sgtk_widget_popup, 3);
16608 scm_add_cprim("gtk-widget-grab-focus", sgtk_widget_grab_focus, 1);
16609 scm_add_cprim("gtk-widget-grab-default", sgtk_widget_grab_default, 1);
16610 scm_add_cprim("gtk-widget-set-name", sgtk_widget_set_name, 2);
16611 scm_add_cprim("gtk-widget-get-name", sgtk_widget_get_name, 1);
16612 scm_add_cprim("gtk-widget-set-state", sgtk_widget_set_state, 2);
16613 scm_add_cprim("gtk-widget-set-app-paintable", sgtk_widget_set_app_paintable, 2);
16614 scm_add_cprim("gtk-widget-set-sensitive", sgtk_widget_set_sensitive, 2);
16615 scm_add_cprim("gtk-widget-set-parent", sgtk_widget_set_parent, 2);
16616 scm_add_cprim("gtk-widget-set-style", sgtk_widget_set_style, 2);
16617 scm_add_cprim("gtk-widget-ensure-style", sgtk_widget_ensure_style, 1);
16618 scm_add_cprim("gtk-widget-set-rc-style", sgtk_widget_set_rc_style, 1);
16619 scm_add_cprim("gtk-widget-restore-default-style", sgtk_widget_restore_default_style, 1);
16620 scm_add_cprim("gtk-widget-get-style", sgtk_widget_get_style, 1);
16621 scm_add_cprim("gtk-widget-reset-rc-styles", sgtk_widget_reset_rc_styles, 1);
16622 scm_add_cprim("gtk-widget-set-default-style", sgtk_widget_set_default_style, 1);
16623 scm_add_cprim("gtk-widget-get-default-style", sgtk_widget_get_default_style, 0);
16624 scm_add_cprim("gtk-widget-push-style", sgtk_widget_push_style, 1);
16625 scm_add_cprim("gtk-widget-pop-style", sgtk_widget_pop_style, 0);
16626 scm_add_cprim("gtk-widget-set-parent-window", sgtk_widget_set_parent_window, 2);
16627 scm_add_cprim("gtk-widget-get-parent-window", sgtk_widget_get_parent_window, 1);
16628 scm_add_cprim("gtk-widget-set-uposition", sgtk_widget_set_uposition, 3);
16629 scm_add_cprim("gtk-widget-set-usize", sgtk_widget_set_usize, 3);
16630 scm_add_cprim("gtk-widget-set-events", sgtk_widget_set_events, 2);
16631 scm_add_cprim("gtk-widget-add-events", sgtk_widget_add_events, 2);
16632 scm_add_cprim("gtk-widget-set-extension-events", sgtk_widget_set_extension_events, 2);
16633 scm_add_cprim("gtk-widget-get-toplevel", sgtk_widget_get_toplevel, 1);
16634 scm_add_cprim("gtk-widget-get-ancestor", sgtk_widget_get_ancestor, 2);
16635 scm_add_cprim("gtk-widget-get-colormap", sgtk_widget_get_colormap, 1);
16636 scm_add_cprim("gtk-widget-get-visual", sgtk_widget_get_visual, 1);
16637 scm_add_cprim("gtk-widget-set-colormap", sgtk_widget_set_colormap, 2);
16638 scm_add_cprim("gtk-widget-set-visual", sgtk_widget_set_visual, 2);
16639 scm_add_cprim("gtk-widget-get-events", sgtk_widget_get_events, 1);
16640 scm_add_cprim("gtk-widget-get-extension-events", sgtk_widget_get_extension_events, 1);
16641 scm_add_cprim("gtk-widget-is-ancestor", sgtk_widget_is_ancestor, 2);
16642 scm_add_cprim("gtk-widget-set-composite-name", sgtk_widget_set_composite_name, 2);
16643 scm_add_cprim("gtk-widget-get-composite-name", sgtk_widget_get_composite_name, 1);
16644 scm_add_cprim("gtk-widget-push-composite-child", sgtk_widget_push_composite_child, 0);
16645 scm_add_cprim("gtk-widget-pop-composite-child", sgtk_widget_pop_composite_child, 0);
16646 scm_add_cprim("gtk-widget-push-colormap", sgtk_widget_push_colormap, 1);
16647 scm_add_cprim("gtk-widget-push-visual", sgtk_widget_push_visual, 1);
16648 scm_add_cprim("gtk-widget-pop-colormap", sgtk_widget_pop_colormap, 0);
16649 scm_add_cprim("gtk-widget-pop-visual", sgtk_widget_pop_visual, 0);
16650 scm_add_cprim("gtk-widget-set-default-colormap", sgtk_widget_set_default_colormap, 1);
16651 scm_add_cprim("gtk-widget-set-default-visual", sgtk_widget_set_default_visual, 1);
16652 scm_add_cprim("gtk-widget-get-default-colormap", sgtk_widget_get_default_colormap, 0);
16653 scm_add_cprim("gtk-widget-get-default-visual", sgtk_widget_get_default_visual, 0);
16654 scm_add_cprim("gtk-widget-shape-combine-mask", sgtk_widget_shape_combine_mask, 4);
16655 scm_add_cprim("gtk-widget-reset-shapes", sgtk_widget_reset_shapes, 1);
16656 scm_add_cprim("gtk-widget-ref", sgtk_widget_ref, 1);
16657 scm_add_cprim("gtk-widget-unref", sgtk_widget_unref, 1);
16658 scm_add_cprim("gtk-window-get-type", sgtk_window_get_type, 0);
16659 scm_add_cprim("gtk-window-new", sgtk_window_new, 1);
16660 scm_add_cprim("gtk-window-set-title", sgtk_window_set_title, 2);
16661 scm_add_cprim("gtk-window-set-wmclass", sgtk_window_set_wmclass, 3);
16662 scm_add_cprim("gtk-window-set-focus", sgtk_window_set_focus, 2);
16663 scm_add_cprim("gtk-window-set-default", sgtk_window_set_default, 2);
16664 scm_add_cprim("gtk-window-set-policy", sgtk_window_set_policy, 4);
16665 scm_add_cprim("gtk-window-add-accel-group", sgtk_window_add_accel_group, 2);
16666 scm_add_cprim("gtk-window-remove-accel-group", sgtk_window_remove_accel_group, 2);
16667 scm_add_cprim("gtk-window-set-position", sgtk_window_set_position, 2);
16668 scm_add_cprim("gtk-window-activate-focus", sgtk_window_activate_focus, 1);
16669 scm_add_cprim("gtk-window-activate-default", sgtk_window_activate_default, 1);
16670 scm_add_cprim("gtk-window-set-modal", sgtk_window_set_modal, 2);
16671 scm_add_cprim("gtk-window-add-embedded-xid", sgtk_window_add_embedded_xid, 2);
16672 scm_add_cprim("gtk-window-remove-embedded-xid", sgtk_window_remove_embedded_xid, 2);
16673 scm_add_cprim("gtk-window-reposition", sgtk_window_reposition, 3);
16674 scm_add_cprim("gtk-window-set-transient-for", sgtk_window_set_transient_for, 2);
16675 scm_add_cprim("gtk-window-set-default-size", sgtk_window_set_default_size, 3);
16676 scm_puts("; gtkdefs loaded...\n");
16677 }
16678