1 DEFUN("gtk-adjustment-lower", Fgtk_adjustment_lower, 1, 1, 0, /*
2 Access the `lower' slot of OBJ, a GtkAdjustment object.
6 GtkAdjustment *the_obj = NULL;
11 if (!GTK_IS_ADJUSTMENT(XGTK_OBJECT(obj)->object)) {
12 signal_simple_error("Object is not a GtkAdjustment", obj);
15 the_obj = GTK_ADJUSTMENT(XGTK_OBJECT(obj)->object);
16 arg.type = gtk_type_from_name("gfloat");
17 GTK_VALUE_FLOAT(arg) = the_obj->lower;
18 return (gtk_type_to_lisp(&arg));
21 DEFUN("gtk-adjustment-upper", Fgtk_adjustment_upper, 1, 1, 0, /*
22 Access the `upper' slot of OBJ, a GtkAdjustment object.
26 GtkAdjustment *the_obj = NULL;
29 CHECK_GTK_OBJECT(obj);
31 if (!GTK_IS_ADJUSTMENT(XGTK_OBJECT(obj)->object)) {
32 signal_simple_error("Object is not a GtkAdjustment", obj);
35 the_obj = GTK_ADJUSTMENT(XGTK_OBJECT(obj)->object);
36 arg.type = gtk_type_from_name("gfloat");
37 GTK_VALUE_FLOAT(arg) = the_obj->upper;
38 return (gtk_type_to_lisp(&arg));
41 DEFUN("gtk-adjustment-value", Fgtk_adjustment_value, 1, 1, 0, /*
42 Access the `value' slot of OBJ, a GtkAdjustment object.
46 GtkAdjustment *the_obj = NULL;
49 CHECK_GTK_OBJECT(obj);
51 if (!GTK_IS_ADJUSTMENT(XGTK_OBJECT(obj)->object)) {
52 signal_simple_error("Object is not a GtkAdjustment", obj);
55 the_obj = GTK_ADJUSTMENT(XGTK_OBJECT(obj)->object);
56 arg.type = gtk_type_from_name("gfloat");
57 GTK_VALUE_FLOAT(arg) = the_obj->value;
58 return (gtk_type_to_lisp(&arg));
61 DEFUN("gtk-adjustment-step-increment", Fgtk_adjustment_step_increment, 1, 1, 0, /*
62 Access the `step_increment' slot of OBJ, a GtkAdjustment object.
66 GtkAdjustment *the_obj = NULL;
69 CHECK_GTK_OBJECT(obj);
71 if (!GTK_IS_ADJUSTMENT(XGTK_OBJECT(obj)->object)) {
72 signal_simple_error("Object is not a GtkAdjustment", obj);
75 the_obj = GTK_ADJUSTMENT(XGTK_OBJECT(obj)->object);
76 arg.type = gtk_type_from_name("gfloat");
77 GTK_VALUE_FLOAT(arg) = the_obj->step_increment;
78 return (gtk_type_to_lisp(&arg));
81 DEFUN("gtk-adjustment-page-increment", Fgtk_adjustment_page_increment, 1, 1, 0, /*
82 Access the `page_increment' slot of OBJ, a GtkAdjustment object.
86 GtkAdjustment *the_obj = NULL;
89 CHECK_GTK_OBJECT(obj);
91 if (!GTK_IS_ADJUSTMENT(XGTK_OBJECT(obj)->object)) {
92 signal_simple_error("Object is not a GtkAdjustment", obj);
95 the_obj = GTK_ADJUSTMENT(XGTK_OBJECT(obj)->object);
96 arg.type = gtk_type_from_name("gfloat");
97 GTK_VALUE_FLOAT(arg) = the_obj->page_increment;
98 return (gtk_type_to_lisp(&arg));
101 DEFUN("gtk-adjustment-page-size", Fgtk_adjustment_page_size, 1, 1, 0, /*
102 Access the `page_size' slot of OBJ, a GtkAdjustment object.
106 GtkAdjustment *the_obj = NULL;
109 CHECK_GTK_OBJECT(obj);
111 if (!GTK_IS_ADJUSTMENT(XGTK_OBJECT(obj)->object)) {
112 signal_simple_error("Object is not a GtkAdjustment", obj);
115 the_obj = GTK_ADJUSTMENT(XGTK_OBJECT(obj)->object);
116 arg.type = gtk_type_from_name("gfloat");
117 GTK_VALUE_FLOAT(arg) = the_obj->page_size;
118 return (gtk_type_to_lisp(&arg));
121 DEFUN("gtk-widget-style", Fgtk_widget_style, 1, 1, 0, /*
122 Access the `style' slot of OBJ, a GtkWidget object.
126 GtkWidget *the_obj = NULL;
129 CHECK_GTK_OBJECT(obj);
131 if (!GTK_IS_WIDGET(XGTK_OBJECT(obj)->object)) {
132 signal_simple_error("Object is not a GtkWidget", obj);
135 the_obj = GTK_WIDGET(XGTK_OBJECT(obj)->object);
136 arg.type = gtk_type_from_name("GtkStyle");
137 GTK_VALUE_BOXED(arg) = (void *)the_obj->style;
138 return (gtk_type_to_lisp(&arg));
141 DEFUN("gtk-widget-window", Fgtk_widget_window, 1, 1, 0, /*
142 Access the `window' slot of OBJ, a GtkWidget object.
146 GtkWidget *the_obj = NULL;
149 CHECK_GTK_OBJECT(obj);
151 if (!GTK_IS_WIDGET(XGTK_OBJECT(obj)->object)) {
152 signal_simple_error("Object is not a GtkWidget", obj);
155 the_obj = GTK_WIDGET(XGTK_OBJECT(obj)->object);
156 arg.type = gtk_type_from_name("GdkWindow");
157 GTK_VALUE_BOXED(arg) = (void *)the_obj->window;
158 return (gtk_type_to_lisp(&arg));
161 DEFUN("gtk-widget-state", Fgtk_widget_state, 1, 1, 0, /*
162 Access the `state' slot of OBJ, a GtkWidget object.
166 GtkWidget *the_obj = NULL;
169 CHECK_GTK_OBJECT(obj);
171 if (!GTK_IS_WIDGET(XGTK_OBJECT(obj)->object)) {
172 signal_simple_error("Object is not a GtkWidget", obj);
175 the_obj = GTK_WIDGET(XGTK_OBJECT(obj)->object);
176 arg.type = gtk_type_from_name("GtkStateType");
177 GTK_VALUE_ENUM(arg) = the_obj->state;
178 return (gtk_type_to_lisp(&arg));
181 DEFUN("gtk-widget-name", Fgtk_widget_name, 1, 1, 0, /*
182 Access the `name' slot of OBJ, a GtkWidget object.
186 GtkWidget *the_obj = NULL;
189 CHECK_GTK_OBJECT(obj);
191 if (!GTK_IS_WIDGET(XGTK_OBJECT(obj)->object)) {
192 signal_simple_error("Object is not a GtkWidget", obj);
195 the_obj = GTK_WIDGET(XGTK_OBJECT(obj)->object);
196 arg.type = gtk_type_from_name("GtkString");
197 GTK_VALUE_STRING(arg) = the_obj->name;
198 return (gtk_type_to_lisp(&arg));
201 DEFUN("gtk-widget-parent", Fgtk_widget_parent, 1, 1, 0, /*
202 Access the `parent' slot of OBJ, a GtkWidget object.
206 GtkWidget *the_obj = NULL;
209 CHECK_GTK_OBJECT(obj);
211 if (!GTK_IS_WIDGET(XGTK_OBJECT(obj)->object)) {
212 signal_simple_error("Object is not a GtkWidget", obj);
215 the_obj = GTK_WIDGET(XGTK_OBJECT(obj)->object);
216 arg.type = gtk_type_from_name("GtkWidget");
217 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->parent);
218 return (gtk_type_to_lisp(&arg));
221 DEFUN("gtk-button-child", Fgtk_button_child, 1, 1, 0, /*
222 Access the `child' slot of OBJ, a GtkButton object.
226 GtkButton *the_obj = NULL;
229 CHECK_GTK_OBJECT(obj);
231 if (!GTK_IS_BUTTON(XGTK_OBJECT(obj)->object)) {
232 signal_simple_error("Object is not a GtkButton", obj);
235 the_obj = GTK_BUTTON(XGTK_OBJECT(obj)->object);
236 arg.type = gtk_type_from_name("GtkWidget");
237 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->child);
238 return (gtk_type_to_lisp(&arg));
241 DEFUN("gtk-button-in-button", Fgtk_button_in_button, 1, 1, 0, /*
242 Access the `in_button' slot of OBJ, a GtkButton object.
246 GtkButton *the_obj = NULL;
249 CHECK_GTK_OBJECT(obj);
251 if (!GTK_IS_BUTTON(XGTK_OBJECT(obj)->object)) {
252 signal_simple_error("Object is not a GtkButton", obj);
255 the_obj = GTK_BUTTON(XGTK_OBJECT(obj)->object);
256 arg.type = gtk_type_from_name("gboolean");
257 GTK_VALUE_BOOL(arg) = the_obj->in_button;
258 return (gtk_type_to_lisp(&arg));
261 DEFUN("gtk-button-button-down", Fgtk_button_button_down, 1, 1, 0, /*
262 Access the `button_down' slot of OBJ, a GtkButton object.
266 GtkButton *the_obj = NULL;
269 CHECK_GTK_OBJECT(obj);
271 if (!GTK_IS_BUTTON(XGTK_OBJECT(obj)->object)) {
272 signal_simple_error("Object is not a GtkButton", obj);
275 the_obj = GTK_BUTTON(XGTK_OBJECT(obj)->object);
276 arg.type = gtk_type_from_name("gboolean");
277 GTK_VALUE_BOOL(arg) = the_obj->button_down;
278 return (gtk_type_to_lisp(&arg));
281 DEFUN("gtk-combo-entry", Fgtk_combo_entry, 1, 1, 0, /*
282 Access the `entry' slot of OBJ, a GtkCombo object.
286 GtkCombo *the_obj = NULL;
289 CHECK_GTK_OBJECT(obj);
291 if (!GTK_IS_COMBO(XGTK_OBJECT(obj)->object)) {
292 signal_simple_error("Object is not a GtkCombo", obj);
295 the_obj = GTK_COMBO(XGTK_OBJECT(obj)->object);
296 arg.type = gtk_type_from_name("GtkWidget");
297 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->entry);
298 return (gtk_type_to_lisp(&arg));
301 DEFUN("gtk-combo-button", Fgtk_combo_button, 1, 1, 0, /*
302 Access the `button' slot of OBJ, a GtkCombo object.
306 GtkCombo *the_obj = NULL;
309 CHECK_GTK_OBJECT(obj);
311 if (!GTK_IS_COMBO(XGTK_OBJECT(obj)->object)) {
312 signal_simple_error("Object is not a GtkCombo", obj);
315 the_obj = GTK_COMBO(XGTK_OBJECT(obj)->object);
316 arg.type = gtk_type_from_name("GtkWidget");
317 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->button);
318 return (gtk_type_to_lisp(&arg));
321 DEFUN("gtk-combo-popup", Fgtk_combo_popup, 1, 1, 0, /*
322 Access the `popup' slot of OBJ, a GtkCombo object.
326 GtkCombo *the_obj = NULL;
329 CHECK_GTK_OBJECT(obj);
331 if (!GTK_IS_COMBO(XGTK_OBJECT(obj)->object)) {
332 signal_simple_error("Object is not a GtkCombo", obj);
335 the_obj = GTK_COMBO(XGTK_OBJECT(obj)->object);
336 arg.type = gtk_type_from_name("GtkWidget");
337 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->popup);
338 return (gtk_type_to_lisp(&arg));
341 DEFUN("gtk-combo-popwin", Fgtk_combo_popwin, 1, 1, 0, /*
342 Access the `popwin' slot of OBJ, a GtkCombo object.
346 GtkCombo *the_obj = NULL;
349 CHECK_GTK_OBJECT(obj);
351 if (!GTK_IS_COMBO(XGTK_OBJECT(obj)->object)) {
352 signal_simple_error("Object is not a GtkCombo", obj);
355 the_obj = GTK_COMBO(XGTK_OBJECT(obj)->object);
356 arg.type = gtk_type_from_name("GtkWidget");
357 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->popwin);
358 return (gtk_type_to_lisp(&arg));
361 DEFUN("gtk-combo-list", Fgtk_combo_list, 1, 1, 0, /*
362 Access the `list' slot of OBJ, a GtkCombo object.
366 GtkCombo *the_obj = NULL;
369 CHECK_GTK_OBJECT(obj);
371 if (!GTK_IS_COMBO(XGTK_OBJECT(obj)->object)) {
372 signal_simple_error("Object is not a GtkCombo", obj);
375 the_obj = GTK_COMBO(XGTK_OBJECT(obj)->object);
376 arg.type = gtk_type_from_name("GtkWidget");
377 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->list);
378 return (gtk_type_to_lisp(&arg));
381 DEFUN("gtk-gamma-curve-table", Fgtk_gamma_curve_table, 1, 1, 0, /*
382 Access the `table' slot of OBJ, a GtkGammaCurve object.
386 GtkGammaCurve *the_obj = NULL;
389 CHECK_GTK_OBJECT(obj);
391 if (!GTK_IS_GAMMA_CURVE(XGTK_OBJECT(obj)->object)) {
392 signal_simple_error("Object is not a GtkGammaCurve", obj);
395 the_obj = GTK_GAMMA_CURVE(XGTK_OBJECT(obj)->object);
396 arg.type = gtk_type_from_name("GtkWidget");
397 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->table);
398 return (gtk_type_to_lisp(&arg));
401 DEFUN("gtk-gamma-curve-curve", Fgtk_gamma_curve_curve, 1, 1, 0, /*
402 Access the `curve' slot of OBJ, a GtkGammaCurve object.
406 GtkGammaCurve *the_obj = NULL;
409 CHECK_GTK_OBJECT(obj);
411 if (!GTK_IS_GAMMA_CURVE(XGTK_OBJECT(obj)->object)) {
412 signal_simple_error("Object is not a GtkGammaCurve", obj);
415 the_obj = GTK_GAMMA_CURVE(XGTK_OBJECT(obj)->object);
416 arg.type = gtk_type_from_name("GtkWidget");
417 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->curve);
418 return (gtk_type_to_lisp(&arg));
421 DEFUN("gtk-gamma-curve-gamma", Fgtk_gamma_curve_gamma, 1, 1, 0, /*
422 Access the `gamma' slot of OBJ, a GtkGammaCurve object.
426 GtkGammaCurve *the_obj = NULL;
429 CHECK_GTK_OBJECT(obj);
431 if (!GTK_IS_GAMMA_CURVE(XGTK_OBJECT(obj)->object)) {
432 signal_simple_error("Object is not a GtkGammaCurve", obj);
435 the_obj = GTK_GAMMA_CURVE(XGTK_OBJECT(obj)->object);
436 arg.type = gtk_type_from_name("gfloat");
437 GTK_VALUE_FLOAT(arg) = the_obj->gamma;
438 return (gtk_type_to_lisp(&arg));
441 DEFUN("gtk-gamma-curve-gamma-dialog", Fgtk_gamma_curve_gamma_dialog, 1, 1, 0, /*
442 Access the `gamma_dialog' slot of OBJ, a GtkGammaCurve object.
446 GtkGammaCurve *the_obj = NULL;
449 CHECK_GTK_OBJECT(obj);
451 if (!GTK_IS_GAMMA_CURVE(XGTK_OBJECT(obj)->object)) {
452 signal_simple_error("Object is not a GtkGammaCurve", obj);
455 the_obj = GTK_GAMMA_CURVE(XGTK_OBJECT(obj)->object);
456 arg.type = gtk_type_from_name("GtkWidget");
457 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->gamma_dialog);
458 return (gtk_type_to_lisp(&arg));
461 DEFUN("gtk-gamma-curve-gamma-text", Fgtk_gamma_curve_gamma_text, 1, 1, 0, /*
462 Access the `gamma_text' slot of OBJ, a GtkGammaCurve object.
466 GtkGammaCurve *the_obj = NULL;
469 CHECK_GTK_OBJECT(obj);
471 if (!GTK_IS_GAMMA_CURVE(XGTK_OBJECT(obj)->object)) {
472 signal_simple_error("Object is not a GtkGammaCurve", obj);
475 the_obj = GTK_GAMMA_CURVE(XGTK_OBJECT(obj)->object);
476 arg.type = gtk_type_from_name("GtkWidget");
477 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->gamma_text);
478 return (gtk_type_to_lisp(&arg));
481 DEFUN("gtk-check-menu-item-active", Fgtk_check_menu_item_active, 1, 1, 0, /*
482 Access the `active' slot of OBJ, a GtkCheckMenuItem object.
486 GtkCheckMenuItem *the_obj = NULL;
489 CHECK_GTK_OBJECT(obj);
491 if (!GTK_IS_CHECK_MENU_ITEM(XGTK_OBJECT(obj)->object)) {
492 signal_simple_error("Object is not a GtkCheckMenuItem", obj);
495 the_obj = GTK_CHECK_MENU_ITEM(XGTK_OBJECT(obj)->object);
496 arg.type = gtk_type_from_name("gboolean");
497 GTK_VALUE_BOOL(arg) = the_obj->active;
498 return (gtk_type_to_lisp(&arg));
501 DEFUN("gtk-notebook-tab-pos", Fgtk_notebook_tab_pos, 1, 1, 0, /*
502 Access the `tab_pos' slot of OBJ, a GtkNotebook object.
506 GtkNotebook *the_obj = NULL;
509 CHECK_GTK_OBJECT(obj);
511 if (!GTK_IS_NOTEBOOK(XGTK_OBJECT(obj)->object)) {
512 signal_simple_error("Object is not a GtkNotebook", obj);
515 the_obj = GTK_NOTEBOOK(XGTK_OBJECT(obj)->object);
516 arg.type = gtk_type_from_name("GtkPositionType");
517 GTK_VALUE_ENUM(arg) = the_obj->tab_pos;
518 return (gtk_type_to_lisp(&arg));
521 DEFUN("gtk-text-hadj", Fgtk_text_hadj, 1, 1, 0, /*
522 Access the `hadj' slot of OBJ, a GtkText object.
526 GtkText *the_obj = NULL;
529 CHECK_GTK_OBJECT(obj);
531 if (!GTK_IS_TEXT(XGTK_OBJECT(obj)->object)) {
532 signal_simple_error("Object is not a GtkText", obj);
535 the_obj = GTK_TEXT(XGTK_OBJECT(obj)->object);
536 arg.type = gtk_type_from_name("GtkAdjustment");
537 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->hadj);
538 return (gtk_type_to_lisp(&arg));
541 DEFUN("gtk-text-vadj", Fgtk_text_vadj, 1, 1, 0, /*
542 Access the `vadj' slot of OBJ, a GtkText object.
546 GtkText *the_obj = NULL;
549 CHECK_GTK_OBJECT(obj);
551 if (!GTK_IS_TEXT(XGTK_OBJECT(obj)->object)) {
552 signal_simple_error("Object is not a GtkText", obj);
555 the_obj = GTK_TEXT(XGTK_OBJECT(obj)->object);
556 arg.type = gtk_type_from_name("GtkAdjustment");
557 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->vadj);
558 return (gtk_type_to_lisp(&arg));
561 DEFUN("gtk-file-selection-dir-list", Fgtk_file_selection_dir_list, 1, 1, 0, /*
562 Access the `dir_list' slot of OBJ, a GtkFileSelection object.
566 GtkFileSelection *the_obj = NULL;
569 CHECK_GTK_OBJECT(obj);
571 if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
572 signal_simple_error("Object is not a GtkFileSelection", obj);
575 the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
576 arg.type = gtk_type_from_name("GtkWidget");
577 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->dir_list);
578 return (gtk_type_to_lisp(&arg));
581 DEFUN("gtk-file-selection-file-list", Fgtk_file_selection_file_list, 1, 1, 0, /*
582 Access the `file_list' slot of OBJ, a GtkFileSelection object.
586 GtkFileSelection *the_obj = NULL;
589 CHECK_GTK_OBJECT(obj);
591 if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
592 signal_simple_error("Object is not a GtkFileSelection", obj);
595 the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
596 arg.type = gtk_type_from_name("GtkWidget");
597 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->file_list);
598 return (gtk_type_to_lisp(&arg));
601 DEFUN("gtk-file-selection-selection-entry", Fgtk_file_selection_selection_entry, 1, 1, 0, /*
602 Access the `selection_entry' slot of OBJ, a GtkFileSelection object.
606 GtkFileSelection *the_obj = NULL;
609 CHECK_GTK_OBJECT(obj);
611 if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
612 signal_simple_error("Object is not a GtkFileSelection", obj);
615 the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
616 arg.type = gtk_type_from_name("GtkWidget");
617 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->selection_entry);
618 return (gtk_type_to_lisp(&arg));
621 DEFUN("gtk-file-selection-selection-text", Fgtk_file_selection_selection_text, 1, 1, 0, /*
622 Access the `selection_text' slot of OBJ, a GtkFileSelection object.
626 GtkFileSelection *the_obj = NULL;
629 CHECK_GTK_OBJECT(obj);
631 if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
632 signal_simple_error("Object is not a GtkFileSelection", obj);
635 the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
636 arg.type = gtk_type_from_name("GtkWidget");
637 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->selection_text);
638 return (gtk_type_to_lisp(&arg));
641 DEFUN("gtk-file-selection-main-vbox", Fgtk_file_selection_main_vbox, 1, 1, 0, /*
642 Access the `main_vbox' slot of OBJ, a GtkFileSelection object.
646 GtkFileSelection *the_obj = NULL;
649 CHECK_GTK_OBJECT(obj);
651 if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
652 signal_simple_error("Object is not a GtkFileSelection", obj);
655 the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
656 arg.type = gtk_type_from_name("GtkWidget");
657 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->main_vbox);
658 return (gtk_type_to_lisp(&arg));
661 DEFUN("gtk-file-selection-ok-button", Fgtk_file_selection_ok_button, 1, 1, 0, /*
662 Access the `ok_button' slot of OBJ, a GtkFileSelection object.
666 GtkFileSelection *the_obj = NULL;
669 CHECK_GTK_OBJECT(obj);
671 if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
672 signal_simple_error("Object is not a GtkFileSelection", obj);
675 the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
676 arg.type = gtk_type_from_name("GtkWidget");
677 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->ok_button);
678 return (gtk_type_to_lisp(&arg));
681 DEFUN("gtk-file-selection-cancel-button", Fgtk_file_selection_cancel_button, 1, 1, 0, /*
682 Access the `cancel_button' slot of OBJ, a GtkFileSelection object.
686 GtkFileSelection *the_obj = NULL;
689 CHECK_GTK_OBJECT(obj);
691 if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
692 signal_simple_error("Object is not a GtkFileSelection", obj);
695 the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
696 arg.type = gtk_type_from_name("GtkWidget");
697 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->cancel_button);
698 return (gtk_type_to_lisp(&arg));
701 DEFUN("gtk-file-selection-help-button", Fgtk_file_selection_help_button, 1, 1, 0, /*
702 Access the `help_button' slot of OBJ, a GtkFileSelection object.
706 GtkFileSelection *the_obj = NULL;
709 CHECK_GTK_OBJECT(obj);
711 if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
712 signal_simple_error("Object is not a GtkFileSelection", obj);
715 the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
716 arg.type = gtk_type_from_name("GtkWidget");
717 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->help_button);
718 return (gtk_type_to_lisp(&arg));
721 DEFUN("gtk-file-selection-action-area", Fgtk_file_selection_action_area, 1, 1, 0, /*
722 Access the `action_area' slot of OBJ, a GtkFileSelection object.
726 GtkFileSelection *the_obj = NULL;
729 CHECK_GTK_OBJECT(obj);
731 if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
732 signal_simple_error("Object is not a GtkFileSelection", obj);
735 the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
736 arg.type = gtk_type_from_name("GtkWidget");
737 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->action_area);
738 return (gtk_type_to_lisp(&arg));
741 DEFUN("gtk-font-selection-dialog-fontsel", Fgtk_font_selection_dialog_fontsel, 1, 1, 0, /*
742 Access the `fontsel' slot of OBJ, a GtkFontSelectionDialog object.
746 GtkFontSelectionDialog *the_obj = NULL;
749 CHECK_GTK_OBJECT(obj);
751 if (!GTK_IS_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
752 signal_simple_error("Object is not a GtkFontSelectionDialog",
756 the_obj = GTK_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
757 arg.type = gtk_type_from_name("GtkWidget");
758 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->fontsel);
759 return (gtk_type_to_lisp(&arg));
762 DEFUN("gtk-font-selection-dialog-main-vbox", Fgtk_font_selection_dialog_main_vbox, 1, 1, 0, /*
763 Access the `main_vbox' slot of OBJ, a GtkFontSelectionDialog object.
767 GtkFontSelectionDialog *the_obj = NULL;
770 CHECK_GTK_OBJECT(obj);
772 if (!GTK_IS_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
773 signal_simple_error("Object is not a GtkFontSelectionDialog",
777 the_obj = GTK_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
778 arg.type = gtk_type_from_name("GtkWidget");
779 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->main_vbox);
780 return (gtk_type_to_lisp(&arg));
783 DEFUN("gtk-font-selection-dialog-action-area", Fgtk_font_selection_dialog_action_area, 1, 1, 0, /*
784 Access the `action_area' slot of OBJ, a GtkFontSelectionDialog object.
788 GtkFontSelectionDialog *the_obj = NULL;
791 CHECK_GTK_OBJECT(obj);
793 if (!GTK_IS_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
794 signal_simple_error("Object is not a GtkFontSelectionDialog",
798 the_obj = GTK_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
799 arg.type = gtk_type_from_name("GtkWidget");
800 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->action_area);
801 return (gtk_type_to_lisp(&arg));
804 DEFUN("gtk-font-selection-dialog-ok-button", Fgtk_font_selection_dialog_ok_button, 1, 1, 0, /*
805 Access the `ok_button' slot of OBJ, a GtkFontSelectionDialog object.
809 GtkFontSelectionDialog *the_obj = NULL;
812 CHECK_GTK_OBJECT(obj);
814 if (!GTK_IS_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
815 signal_simple_error("Object is not a GtkFontSelectionDialog",
819 the_obj = GTK_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
820 arg.type = gtk_type_from_name("GtkWidget");
821 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->ok_button);
822 return (gtk_type_to_lisp(&arg));
825 DEFUN("gtk-font-selection-dialog-apply-button", Fgtk_font_selection_dialog_apply_button, 1, 1, 0, /*
826 Access the `apply_button' slot of OBJ, a GtkFontSelectionDialog object.
830 GtkFontSelectionDialog *the_obj = NULL;
833 CHECK_GTK_OBJECT(obj);
835 if (!GTK_IS_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
836 signal_simple_error("Object is not a GtkFontSelectionDialog",
840 the_obj = GTK_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
841 arg.type = gtk_type_from_name("GtkWidget");
842 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->apply_button);
843 return (gtk_type_to_lisp(&arg));
846 DEFUN("gtk-font-selection-dialog-cancel-button", Fgtk_font_selection_dialog_cancel_button, 1, 1, 0, /*
847 Access the `cancel_button' slot of OBJ, a GtkFontSelectionDialog object.
851 GtkFontSelectionDialog *the_obj = NULL;
854 CHECK_GTK_OBJECT(obj);
856 if (!GTK_IS_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
857 signal_simple_error("Object is not a GtkFontSelectionDialog",
861 the_obj = GTK_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
862 arg.type = gtk_type_from_name("GtkWidget");
863 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->cancel_button);
864 return (gtk_type_to_lisp(&arg));
867 DEFUN("gtk-color-selection-dialog-colorsel", Fgtk_color_selection_dialog_colorsel, 1, 1, 0, /*
868 Access the `colorsel' slot of OBJ, a GtkColorSelectionDialog object.
872 GtkColorSelectionDialog *the_obj = NULL;
875 CHECK_GTK_OBJECT(obj);
877 if (!GTK_IS_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
878 signal_simple_error("Object is not a GtkColorSelectionDialog",
882 the_obj = GTK_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
883 arg.type = gtk_type_from_name("GtkWidget");
884 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->colorsel);
885 return (gtk_type_to_lisp(&arg));
888 DEFUN("gtk-color-selection-dialog-main-vbox", Fgtk_color_selection_dialog_main_vbox, 1, 1, 0, /*
889 Access the `main_vbox' slot of OBJ, a GtkColorSelectionDialog object.
893 GtkColorSelectionDialog *the_obj = NULL;
896 CHECK_GTK_OBJECT(obj);
898 if (!GTK_IS_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
899 signal_simple_error("Object is not a GtkColorSelectionDialog",
903 the_obj = GTK_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
904 arg.type = gtk_type_from_name("GtkWidget");
905 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->main_vbox);
906 return (gtk_type_to_lisp(&arg));
909 DEFUN("gtk-color-selection-dialog-ok-button", Fgtk_color_selection_dialog_ok_button, 1, 1, 0, /*
910 Access the `ok_button' slot of OBJ, a GtkColorSelectionDialog object.
914 GtkColorSelectionDialog *the_obj = NULL;
917 CHECK_GTK_OBJECT(obj);
919 if (!GTK_IS_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
920 signal_simple_error("Object is not a GtkColorSelectionDialog",
924 the_obj = GTK_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
925 arg.type = gtk_type_from_name("GtkWidget");
926 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->ok_button);
927 return (gtk_type_to_lisp(&arg));
930 DEFUN("gtk-color-selection-dialog-reset-button", Fgtk_color_selection_dialog_reset_button, 1, 1, 0, /*
931 Access the `reset_button' slot of OBJ, a GtkColorSelectionDialog object.
935 GtkColorSelectionDialog *the_obj = NULL;
938 CHECK_GTK_OBJECT(obj);
940 if (!GTK_IS_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
941 signal_simple_error("Object is not a GtkColorSelectionDialog",
945 the_obj = GTK_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
946 arg.type = gtk_type_from_name("GtkWidget");
947 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->reset_button);
948 return (gtk_type_to_lisp(&arg));
951 DEFUN("gtk-color-selection-dialog-cancel-button", Fgtk_color_selection_dialog_cancel_button, 1, 1, 0, /*
952 Access the `cancel_button' slot of OBJ, a GtkColorSelectionDialog object.
956 GtkColorSelectionDialog *the_obj = NULL;
959 CHECK_GTK_OBJECT(obj);
961 if (!GTK_IS_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
962 signal_simple_error("Object is not a GtkColorSelectionDialog",
966 the_obj = GTK_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
967 arg.type = gtk_type_from_name("GtkWidget");
968 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->cancel_button);
969 return (gtk_type_to_lisp(&arg));
972 DEFUN("gtk-color-selection-dialog-help-button", Fgtk_color_selection_dialog_help_button, 1, 1, 0, /*
973 Access the `help_button' slot of OBJ, a GtkColorSelectionDialog object.
977 GtkColorSelectionDialog *the_obj = NULL;
980 CHECK_GTK_OBJECT(obj);
982 if (!GTK_IS_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
983 signal_simple_error("Object is not a GtkColorSelectionDialog",
987 the_obj = GTK_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
988 arg.type = gtk_type_from_name("GtkWidget");
989 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->help_button);
990 return (gtk_type_to_lisp(&arg));
993 DEFUN("gtk-dialog-vbox", Fgtk_dialog_vbox, 1, 1, 0, /*
994 Access the `vbox' slot of OBJ, a GtkDialog object.
998 GtkDialog *the_obj = NULL;
1001 CHECK_GTK_OBJECT(obj);
1003 if (!GTK_IS_DIALOG(XGTK_OBJECT(obj)->object)) {
1004 signal_simple_error("Object is not a GtkDialog", obj);
1007 the_obj = GTK_DIALOG(XGTK_OBJECT(obj)->object);
1008 arg.type = gtk_type_from_name("GtkWidget");
1009 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->vbox);
1010 return (gtk_type_to_lisp(&arg));
1013 DEFUN("gtk-dialog-action-area", Fgtk_dialog_action_area, 1, 1, 0, /*
1014 Access the `action_area' slot of OBJ, a GtkDialog object.
1018 GtkDialog *the_obj = NULL;
1021 CHECK_GTK_OBJECT(obj);
1023 if (!GTK_IS_DIALOG(XGTK_OBJECT(obj)->object)) {
1024 signal_simple_error("Object is not a GtkDialog", obj);
1027 the_obj = GTK_DIALOG(XGTK_OBJECT(obj)->object);
1028 arg.type = gtk_type_from_name("GtkWidget");
1029 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->action_area);
1030 return (gtk_type_to_lisp(&arg));
1033 DEFUN("gtk-input-dialog-close-button", Fgtk_input_dialog_close_button, 1, 1, 0, /*
1034 Access the `close_button' slot of OBJ, a GtkInputDialog object.
1038 GtkInputDialog *the_obj = NULL;
1041 CHECK_GTK_OBJECT(obj);
1043 if (!GTK_IS_INPUT_DIALOG(XGTK_OBJECT(obj)->object)) {
1044 signal_simple_error("Object is not a GtkInputDialog", obj);
1047 the_obj = GTK_INPUT_DIALOG(XGTK_OBJECT(obj)->object);
1048 arg.type = gtk_type_from_name("GtkWidget");
1049 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->close_button);
1050 return (gtk_type_to_lisp(&arg));
1053 DEFUN("gtk-input-dialog-save-button", Fgtk_input_dialog_save_button, 1, 1, 0, /*
1054 Access the `save_button' slot of OBJ, a GtkInputDialog object.
1058 GtkInputDialog *the_obj = NULL;
1061 CHECK_GTK_OBJECT(obj);
1063 if (!GTK_IS_INPUT_DIALOG(XGTK_OBJECT(obj)->object)) {
1064 signal_simple_error("Object is not a GtkInputDialog", obj);
1067 the_obj = GTK_INPUT_DIALOG(XGTK_OBJECT(obj)->object);
1068 arg.type = gtk_type_from_name("GtkWidget");
1069 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->save_button);
1070 return (gtk_type_to_lisp(&arg));
1073 DEFUN("gtk-plug-socket-window", Fgtk_plug_socket_window, 1, 1, 0, /*
1074 Access the `socket_window' slot of OBJ, a GtkPlug object.
1078 GtkPlug *the_obj = NULL;
1081 CHECK_GTK_OBJECT(obj);
1083 if (!GTK_IS_PLUG(XGTK_OBJECT(obj)->object)) {
1084 signal_simple_error("Object is not a GtkPlug", obj);
1087 the_obj = GTK_PLUG(XGTK_OBJECT(obj)->object);
1088 arg.type = gtk_type_from_name("GdkWindow");
1089 GTK_VALUE_BOXED(arg) = (void *)the_obj->socket_window;
1090 return (gtk_type_to_lisp(&arg));
1093 DEFUN("gtk-plug-same-app", Fgtk_plug_same_app, 1, 1, 0, /*
1094 Access the `same_app' slot of OBJ, a GtkPlug object.
1098 GtkPlug *the_obj = NULL;
1101 CHECK_GTK_OBJECT(obj);
1103 if (!GTK_IS_PLUG(XGTK_OBJECT(obj)->object)) {
1104 signal_simple_error("Object is not a GtkPlug", obj);
1107 the_obj = GTK_PLUG(XGTK_OBJECT(obj)->object);
1108 arg.type = gtk_type_from_name("gint");
1109 GTK_VALUE_INT(arg) = the_obj->same_app;
1110 return (gtk_type_to_lisp(&arg));
1113 DEFUN("gtk-object-flags", Fgtk_object_flags, 1, 1, 0, /*
1114 Access the `flags' slot of OBJ, a GtkObject object.
1118 GtkObject *the_obj = NULL;
1121 CHECK_GTK_OBJECT(obj);
1123 if (!GTK_IS_OBJECT(XGTK_OBJECT(obj)->object)) {
1124 signal_simple_error("Object is not a GtkObject", obj);
1127 the_obj = GTK_OBJECT(XGTK_OBJECT(obj)->object);
1128 arg.type = gtk_type_from_name("guint");
1129 GTK_VALUE_UINT(arg) = the_obj->flags;
1130 return (gtk_type_to_lisp(&arg));
1133 DEFUN("gtk-object-ref-count", Fgtk_object_ref_count, 1, 1, 0, /*
1134 Access the `ref_count' slot of OBJ, a GtkObject object.
1138 GtkObject *the_obj = NULL;
1141 CHECK_GTK_OBJECT(obj);
1143 if (!GTK_IS_OBJECT(XGTK_OBJECT(obj)->object)) {
1144 signal_simple_error("Object is not a GtkObject", obj);
1147 the_obj = GTK_OBJECT(XGTK_OBJECT(obj)->object);
1148 arg.type = gtk_type_from_name("guint");
1149 GTK_VALUE_UINT(arg) = the_obj->ref_count;
1150 return (gtk_type_to_lisp(&arg));
1153 DEFUN("gtk-paned-child1", Fgtk_paned_child1, 1, 1, 0, /*
1154 Access the `child1' slot of OBJ, a GtkPaned object.
1158 GtkPaned *the_obj = NULL;
1161 CHECK_GTK_OBJECT(obj);
1163 if (!GTK_IS_PANED(XGTK_OBJECT(obj)->object)) {
1164 signal_simple_error("Object is not a GtkPaned", obj);
1167 the_obj = GTK_PANED(XGTK_OBJECT(obj)->object);
1168 arg.type = gtk_type_from_name("GtkWidget");
1169 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->child1);
1170 return (gtk_type_to_lisp(&arg));
1173 DEFUN("gtk-paned-child2", Fgtk_paned_child2, 1, 1, 0, /*
1174 Access the `child2' slot of OBJ, a GtkPaned object.
1178 GtkPaned *the_obj = NULL;
1181 CHECK_GTK_OBJECT(obj);
1183 if (!GTK_IS_PANED(XGTK_OBJECT(obj)->object)) {
1184 signal_simple_error("Object is not a GtkPaned", obj);
1187 the_obj = GTK_PANED(XGTK_OBJECT(obj)->object);
1188 arg.type = gtk_type_from_name("GtkWidget");
1189 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->child2);
1190 return (gtk_type_to_lisp(&arg));
1193 DEFUN("gtk-paned-child1-resize", Fgtk_paned_child1_resize, 1, 1, 0, /*
1194 Access the `child1_resize' slot of OBJ, a GtkPaned object.
1198 GtkPaned *the_obj = NULL;
1201 CHECK_GTK_OBJECT(obj);
1203 if (!GTK_IS_PANED(XGTK_OBJECT(obj)->object)) {
1204 signal_simple_error("Object is not a GtkPaned", obj);
1207 the_obj = GTK_PANED(XGTK_OBJECT(obj)->object);
1208 arg.type = gtk_type_from_name("gboolean");
1209 GTK_VALUE_BOOL(arg) = the_obj->child1_resize;
1210 return (gtk_type_to_lisp(&arg));
1213 DEFUN("gtk-paned-child2-resize", Fgtk_paned_child2_resize, 1, 1, 0, /*
1214 Access the `child2_resize' slot of OBJ, a GtkPaned object.
1218 GtkPaned *the_obj = NULL;
1221 CHECK_GTK_OBJECT(obj);
1223 if (!GTK_IS_PANED(XGTK_OBJECT(obj)->object)) {
1224 signal_simple_error("Object is not a GtkPaned", obj);
1227 the_obj = GTK_PANED(XGTK_OBJECT(obj)->object);
1228 arg.type = gtk_type_from_name("gboolean");
1229 GTK_VALUE_BOOL(arg) = the_obj->child2_resize;
1230 return (gtk_type_to_lisp(&arg));
1233 DEFUN("gtk-paned-child1-shrink", Fgtk_paned_child1_shrink, 1, 1, 0, /*
1234 Access the `child1_shrink' slot of OBJ, a GtkPaned object.
1238 GtkPaned *the_obj = NULL;
1241 CHECK_GTK_OBJECT(obj);
1243 if (!GTK_IS_PANED(XGTK_OBJECT(obj)->object)) {
1244 signal_simple_error("Object is not a GtkPaned", obj);
1247 the_obj = GTK_PANED(XGTK_OBJECT(obj)->object);
1248 arg.type = gtk_type_from_name("gboolean");
1249 GTK_VALUE_BOOL(arg) = the_obj->child1_shrink;
1250 return (gtk_type_to_lisp(&arg));
1253 DEFUN("gtk-paned-child2-shrink", Fgtk_paned_child2_shrink, 1, 1, 0, /*
1254 Access the `child2_shrink' slot of OBJ, a GtkPaned object.
1258 GtkPaned *the_obj = NULL;
1261 CHECK_GTK_OBJECT(obj);
1263 if (!GTK_IS_PANED(XGTK_OBJECT(obj)->object)) {
1264 signal_simple_error("Object is not a GtkPaned", obj);
1267 the_obj = GTK_PANED(XGTK_OBJECT(obj)->object);
1268 arg.type = gtk_type_from_name("gboolean");
1269 GTK_VALUE_BOOL(arg) = the_obj->child2_shrink;
1270 return (gtk_type_to_lisp(&arg));
1273 DEFUN("gtk-clist-rows", Fgtk_clist_rows, 1, 1, 0, /*
1274 Access the `rows' slot of OBJ, a GtkCList object.
1278 GtkCList *the_obj = NULL;
1281 CHECK_GTK_OBJECT(obj);
1283 if (!GTK_IS_CLIST(XGTK_OBJECT(obj)->object)) {
1284 signal_simple_error("Object is not a GtkCList", obj);
1287 the_obj = GTK_CLIST(XGTK_OBJECT(obj)->object);
1288 arg.type = gtk_type_from_name("gint");
1289 GTK_VALUE_INT(arg) = the_obj->rows;
1290 return (gtk_type_to_lisp(&arg));
1293 DEFUN("gtk-clist-columns", Fgtk_clist_columns, 1, 1, 0, /*
1294 Access the `columns' slot of OBJ, a GtkCList object.
1298 GtkCList *the_obj = NULL;
1301 CHECK_GTK_OBJECT(obj);
1303 if (!GTK_IS_CLIST(XGTK_OBJECT(obj)->object)) {
1304 signal_simple_error("Object is not a GtkCList", obj);
1307 the_obj = GTK_CLIST(XGTK_OBJECT(obj)->object);
1308 arg.type = gtk_type_from_name("gint");
1309 GTK_VALUE_INT(arg) = the_obj->columns;
1310 return (gtk_type_to_lisp(&arg));
1313 DEFUN("gtk-clist-hadjustment", Fgtk_clist_hadjustment, 1, 1, 0, /*
1314 Access the `hadjustment' slot of OBJ, a GtkCList object.
1318 GtkCList *the_obj = NULL;
1321 CHECK_GTK_OBJECT(obj);
1323 if (!GTK_IS_CLIST(XGTK_OBJECT(obj)->object)) {
1324 signal_simple_error("Object is not a GtkCList", obj);
1327 the_obj = GTK_CLIST(XGTK_OBJECT(obj)->object);
1328 arg.type = gtk_type_from_name("GtkAdjustment");
1329 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->hadjustment);
1330 return (gtk_type_to_lisp(&arg));
1333 DEFUN("gtk-clist-vadjustment", Fgtk_clist_vadjustment, 1, 1, 0, /*
1334 Access the `vadjustment' slot of OBJ, a GtkCList object.
1338 GtkCList *the_obj = NULL;
1341 CHECK_GTK_OBJECT(obj);
1343 if (!GTK_IS_CLIST(XGTK_OBJECT(obj)->object)) {
1344 signal_simple_error("Object is not a GtkCList", obj);
1347 the_obj = GTK_CLIST(XGTK_OBJECT(obj)->object);
1348 arg.type = gtk_type_from_name("GtkAdjustment");
1349 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->vadjustment);
1350 return (gtk_type_to_lisp(&arg));
1353 DEFUN("gtk-clist-sort-type", Fgtk_clist_sort_type, 1, 1, 0, /*
1354 Access the `sort_type' slot of OBJ, a GtkCList object.
1358 GtkCList *the_obj = NULL;
1361 CHECK_GTK_OBJECT(obj);
1363 if (!GTK_IS_CLIST(XGTK_OBJECT(obj)->object)) {
1364 signal_simple_error("Object is not a GtkCList", obj);
1367 the_obj = GTK_CLIST(XGTK_OBJECT(obj)->object);
1368 arg.type = gtk_type_from_name("GtkSortType");
1369 GTK_VALUE_ENUM(arg) = the_obj->sort_type;
1370 return (gtk_type_to_lisp(&arg));
1373 DEFUN("gtk-clist-focus-row", Fgtk_clist_focus_row, 1, 1, 0, /*
1374 Access the `focus_row' slot of OBJ, a GtkCList object.
1378 GtkCList *the_obj = NULL;
1381 CHECK_GTK_OBJECT(obj);
1383 if (!GTK_IS_CLIST(XGTK_OBJECT(obj)->object)) {
1384 signal_simple_error("Object is not a GtkCList", obj);
1387 the_obj = GTK_CLIST(XGTK_OBJECT(obj)->object);
1388 arg.type = gtk_type_from_name("gint");
1389 GTK_VALUE_INT(arg) = the_obj->focus_row;
1390 return (gtk_type_to_lisp(&arg));
1393 DEFUN("gtk-clist-sort-column", Fgtk_clist_sort_column, 1, 1, 0, /*
1394 Access the `sort_column' slot of OBJ, a GtkCList object.
1398 GtkCList *the_obj = NULL;
1401 CHECK_GTK_OBJECT(obj);
1403 if (!GTK_IS_CLIST(XGTK_OBJECT(obj)->object)) {
1404 signal_simple_error("Object is not a GtkCList", obj);
1407 the_obj = GTK_CLIST(XGTK_OBJECT(obj)->object);
1408 arg.type = gtk_type_from_name("gint");
1409 GTK_VALUE_INT(arg) = the_obj->sort_column;
1410 return (gtk_type_to_lisp(&arg));
1413 DEFUN("gtk-list-children", Fgtk_list_children, 1, 1, 0, /*
1414 Access the `children' slot of OBJ, a GtkList object.
1418 GtkList *the_obj = NULL;
1421 CHECK_GTK_OBJECT(obj);
1423 if (!GTK_IS_LIST(XGTK_OBJECT(obj)->object)) {
1424 signal_simple_error("Object is not a GtkList", obj);
1427 the_obj = GTK_LIST(XGTK_OBJECT(obj)->object);
1428 arg.type = gtk_type_from_name("GtkListOfObject");
1429 GTK_VALUE_POINTER(arg) = the_obj->children;
1430 return (gtk_type_to_lisp(&arg));
1433 DEFUN("gtk-list-selection", Fgtk_list_selection, 1, 1, 0, /*
1434 Access the `selection' slot of OBJ, a GtkList object.
1438 GtkList *the_obj = NULL;
1441 CHECK_GTK_OBJECT(obj);
1443 if (!GTK_IS_LIST(XGTK_OBJECT(obj)->object)) {
1444 signal_simple_error("Object is not a GtkList", obj);
1447 the_obj = GTK_LIST(XGTK_OBJECT(obj)->object);
1448 arg.type = gtk_type_from_name("GtkListOfObject");
1449 GTK_VALUE_POINTER(arg) = the_obj->selection;
1450 return (gtk_type_to_lisp(&arg));
1453 DEFUN("gtk-tree-children", Fgtk_tree_children, 1, 1, 0, /*
1454 Access the `children' slot of OBJ, a GtkTree object.
1458 GtkTree *the_obj = NULL;
1461 CHECK_GTK_OBJECT(obj);
1463 if (!GTK_IS_TREE(XGTK_OBJECT(obj)->object)) {
1464 signal_simple_error("Object is not a GtkTree", obj);
1467 the_obj = GTK_TREE(XGTK_OBJECT(obj)->object);
1468 arg.type = gtk_type_from_name("GtkListOfObject");
1469 GTK_VALUE_POINTER(arg) = the_obj->children;
1470 return (gtk_type_to_lisp(&arg));
1473 DEFUN("gtk-tree-root-tree", Fgtk_tree_root_tree, 1, 1, 0, /*
1474 Access the `root_tree' slot of OBJ, a GtkTree object.
1478 GtkTree *the_obj = NULL;
1481 CHECK_GTK_OBJECT(obj);
1483 if (!GTK_IS_TREE(XGTK_OBJECT(obj)->object)) {
1484 signal_simple_error("Object is not a GtkTree", obj);
1487 the_obj = GTK_TREE(XGTK_OBJECT(obj)->object);
1488 arg.type = gtk_type_from_name("GtkTree");
1489 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->root_tree);
1490 return (gtk_type_to_lisp(&arg));
1493 DEFUN("gtk-tree-tree-owner", Fgtk_tree_tree_owner, 1, 1, 0, /*
1494 Access the `tree_owner' slot of OBJ, a GtkTree object.
1498 GtkTree *the_obj = NULL;
1501 CHECK_GTK_OBJECT(obj);
1503 if (!GTK_IS_TREE(XGTK_OBJECT(obj)->object)) {
1504 signal_simple_error("Object is not a GtkTree", obj);
1507 the_obj = GTK_TREE(XGTK_OBJECT(obj)->object);
1508 arg.type = gtk_type_from_name("GtkWidget");
1509 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->tree_owner);
1510 return (gtk_type_to_lisp(&arg));
1513 DEFUN("gtk-tree-selection", Fgtk_tree_selection, 1, 1, 0, /*
1514 Access the `selection' slot of OBJ, a GtkTree object.
1518 GtkTree *the_obj = NULL;
1521 CHECK_GTK_OBJECT(obj);
1523 if (!GTK_IS_TREE(XGTK_OBJECT(obj)->object)) {
1524 signal_simple_error("Object is not a GtkTree", obj);
1527 the_obj = GTK_TREE(XGTK_OBJECT(obj)->object);
1528 arg.type = gtk_type_from_name("GtkListOfObject");
1529 GTK_VALUE_POINTER(arg) = the_obj->selection;
1530 return (gtk_type_to_lisp(&arg));
1533 DEFUN("gtk-tree-item-subtree", Fgtk_tree_item_subtree, 1, 1, 0, /*
1534 Access the `subtree' slot of OBJ, a GtkTreeItem object.
1538 GtkTreeItem *the_obj = NULL;
1541 CHECK_GTK_OBJECT(obj);
1543 if (!GTK_IS_TREE_ITEM(XGTK_OBJECT(obj)->object)) {
1544 signal_simple_error("Object is not a GtkTreeItem", obj);
1547 the_obj = GTK_TREE_ITEM(XGTK_OBJECT(obj)->object);
1548 arg.type = gtk_type_from_name("GtkWidget");
1549 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->subtree);
1550 return (gtk_type_to_lisp(&arg));
1553 DEFUN("gtk-scrolled-window-hscrollbar", Fgtk_scrolled_window_hscrollbar, 1, 1, 0, /*
1554 Access the `hscrollbar' slot of OBJ, a GtkScrolledWindow object.
1558 GtkScrolledWindow *the_obj = NULL;
1561 CHECK_GTK_OBJECT(obj);
1563 if (!GTK_IS_SCROLLED_WINDOW(XGTK_OBJECT(obj)->object)) {
1564 signal_simple_error("Object is not a GtkScrolledWindow", obj);
1567 the_obj = GTK_SCROLLED_WINDOW(XGTK_OBJECT(obj)->object);
1568 arg.type = gtk_type_from_name("GtkWidget");
1569 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->hscrollbar);
1570 return (gtk_type_to_lisp(&arg));
1573 DEFUN("gtk-scrolled-window-vscrollbar", Fgtk_scrolled_window_vscrollbar, 1, 1, 0, /*
1574 Access the `vscrollbar' slot of OBJ, a GtkScrolledWindow object.
1578 GtkScrolledWindow *the_obj = NULL;
1581 CHECK_GTK_OBJECT(obj);
1583 if (!GTK_IS_SCROLLED_WINDOW(XGTK_OBJECT(obj)->object)) {
1584 signal_simple_error("Object is not a GtkScrolledWindow", obj);
1587 the_obj = GTK_SCROLLED_WINDOW(XGTK_OBJECT(obj)->object);
1588 arg.type = gtk_type_from_name("GtkWidget");
1589 GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->vscrollbar);
1590 return (gtk_type_to_lisp(&arg));
1593 DEFUN("gtk-scrolled-window-hscrollbar-visible", Fgtk_scrolled_window_hscrollbar_visible, 1, 1, 0, /*
1594 Access the `hscrollbar_visible' slot of OBJ, a GtkScrolledWindow object.
1598 GtkScrolledWindow *the_obj = NULL;
1601 CHECK_GTK_OBJECT(obj);
1603 if (!GTK_IS_SCROLLED_WINDOW(XGTK_OBJECT(obj)->object)) {
1604 signal_simple_error("Object is not a GtkScrolledWindow", obj);
1607 the_obj = GTK_SCROLLED_WINDOW(XGTK_OBJECT(obj)->object);
1608 arg.type = gtk_type_from_name("gboolean");
1609 GTK_VALUE_BOOL(arg) = the_obj->hscrollbar_visible;
1610 return (gtk_type_to_lisp(&arg));
1613 DEFUN("gtk-scrolled-window-vscrollbar-visible", Fgtk_scrolled_window_vscrollbar_visible, 1, 1, 0, /*
1614 Access the `vscrollbar_visible' slot of OBJ, a GtkScrolledWindow object.
1618 GtkScrolledWindow *the_obj = NULL;
1621 CHECK_GTK_OBJECT(obj);
1623 if (!GTK_IS_SCROLLED_WINDOW(XGTK_OBJECT(obj)->object)) {
1624 signal_simple_error("Object is not a GtkScrolledWindow", obj);
1627 the_obj = GTK_SCROLLED_WINDOW(XGTK_OBJECT(obj)->object);
1628 arg.type = gtk_type_from_name("gboolean");
1629 GTK_VALUE_BOOL(arg) = the_obj->vscrollbar_visible;
1630 return (gtk_type_to_lisp(&arg));
1633 void syms_of_widget_accessors(void)
1635 DEFSUBR(Fgtk_scrolled_window_vscrollbar_visible);
1636 DEFSUBR(Fgtk_scrolled_window_hscrollbar_visible);
1637 DEFSUBR(Fgtk_scrolled_window_vscrollbar);
1638 DEFSUBR(Fgtk_scrolled_window_hscrollbar);
1639 DEFSUBR(Fgtk_tree_item_subtree);
1640 DEFSUBR(Fgtk_tree_selection);
1641 DEFSUBR(Fgtk_tree_tree_owner);
1642 DEFSUBR(Fgtk_tree_root_tree);
1643 DEFSUBR(Fgtk_tree_children);
1644 DEFSUBR(Fgtk_list_selection);
1645 DEFSUBR(Fgtk_list_children);
1646 DEFSUBR(Fgtk_clist_sort_column);
1647 DEFSUBR(Fgtk_clist_focus_row);
1648 DEFSUBR(Fgtk_clist_sort_type);
1649 DEFSUBR(Fgtk_clist_vadjustment);
1650 DEFSUBR(Fgtk_clist_hadjustment);
1651 DEFSUBR(Fgtk_clist_columns);
1652 DEFSUBR(Fgtk_clist_rows);
1653 DEFSUBR(Fgtk_paned_child2_shrink);
1654 DEFSUBR(Fgtk_paned_child1_shrink);
1655 DEFSUBR(Fgtk_paned_child2_resize);
1656 DEFSUBR(Fgtk_paned_child1_resize);
1657 DEFSUBR(Fgtk_paned_child2);
1658 DEFSUBR(Fgtk_paned_child1);
1659 DEFSUBR(Fgtk_object_ref_count);
1660 DEFSUBR(Fgtk_object_flags);
1661 DEFSUBR(Fgtk_plug_same_app);
1662 DEFSUBR(Fgtk_plug_socket_window);
1663 DEFSUBR(Fgtk_input_dialog_save_button);
1664 DEFSUBR(Fgtk_input_dialog_close_button);
1665 DEFSUBR(Fgtk_dialog_action_area);
1666 DEFSUBR(Fgtk_dialog_vbox);
1667 DEFSUBR(Fgtk_color_selection_dialog_help_button);
1668 DEFSUBR(Fgtk_color_selection_dialog_cancel_button);
1669 DEFSUBR(Fgtk_color_selection_dialog_reset_button);
1670 DEFSUBR(Fgtk_color_selection_dialog_ok_button);
1671 DEFSUBR(Fgtk_color_selection_dialog_main_vbox);
1672 DEFSUBR(Fgtk_color_selection_dialog_colorsel);
1673 DEFSUBR(Fgtk_font_selection_dialog_cancel_button);
1674 DEFSUBR(Fgtk_font_selection_dialog_apply_button);
1675 DEFSUBR(Fgtk_font_selection_dialog_ok_button);
1676 DEFSUBR(Fgtk_font_selection_dialog_action_area);
1677 DEFSUBR(Fgtk_font_selection_dialog_main_vbox);
1678 DEFSUBR(Fgtk_font_selection_dialog_fontsel);
1679 DEFSUBR(Fgtk_file_selection_action_area);
1680 DEFSUBR(Fgtk_file_selection_help_button);
1681 DEFSUBR(Fgtk_file_selection_cancel_button);
1682 DEFSUBR(Fgtk_file_selection_ok_button);
1683 DEFSUBR(Fgtk_file_selection_main_vbox);
1684 DEFSUBR(Fgtk_file_selection_selection_text);
1685 DEFSUBR(Fgtk_file_selection_selection_entry);
1686 DEFSUBR(Fgtk_file_selection_file_list);
1687 DEFSUBR(Fgtk_file_selection_dir_list);
1688 DEFSUBR(Fgtk_text_vadj);
1689 DEFSUBR(Fgtk_text_hadj);
1690 DEFSUBR(Fgtk_notebook_tab_pos);
1691 DEFSUBR(Fgtk_check_menu_item_active);
1692 DEFSUBR(Fgtk_gamma_curve_gamma_text);
1693 DEFSUBR(Fgtk_gamma_curve_gamma_dialog);
1694 DEFSUBR(Fgtk_gamma_curve_gamma);
1695 DEFSUBR(Fgtk_gamma_curve_curve);
1696 DEFSUBR(Fgtk_gamma_curve_table);
1697 DEFSUBR(Fgtk_combo_list);
1698 DEFSUBR(Fgtk_combo_popwin);
1699 DEFSUBR(Fgtk_combo_popup);
1700 DEFSUBR(Fgtk_combo_button);
1701 DEFSUBR(Fgtk_combo_entry);
1702 DEFSUBR(Fgtk_button_button_down);
1703 DEFSUBR(Fgtk_button_in_button);
1704 DEFSUBR(Fgtk_button_child);
1705 DEFSUBR(Fgtk_widget_parent);
1706 DEFSUBR(Fgtk_widget_name);
1707 DEFSUBR(Fgtk_widget_state);
1708 DEFSUBR(Fgtk_widget_window);
1709 DEFSUBR(Fgtk_widget_style);
1710 DEFSUBR(Fgtk_adjustment_page_size);
1711 DEFSUBR(Fgtk_adjustment_page_increment);
1712 DEFSUBR(Fgtk_adjustment_step_increment);
1713 DEFSUBR(Fgtk_adjustment_value);
1714 DEFSUBR(Fgtk_adjustment_upper);
1715 DEFSUBR(Fgtk_adjustment_lower);