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;
9 CHECK_GTK_OBJECT (obj);
11 if (!GTK_IS_ADJUSTMENT (XGTK_OBJECT (obj)->object))
13 signal_simple_error ("Object is not a GtkAdjustment", obj);
16 the_obj = GTK_ADJUSTMENT (XGTK_OBJECT (obj)->object);
17 arg.type = gtk_type_from_name ("gfloat");
18 GTK_VALUE_FLOAT (arg) = the_obj->lower;
19 return (gtk_type_to_lisp (&arg));
22 DEFUN ("gtk-adjustment-upper", Fgtk_adjustment_upper, 1, 1, 0, /*
23 Access the `upper' slot of OBJ, a GtkAdjustment object.
27 GtkAdjustment *the_obj = NULL;
30 CHECK_GTK_OBJECT (obj);
32 if (!GTK_IS_ADJUSTMENT (XGTK_OBJECT (obj)->object))
34 signal_simple_error ("Object is not a GtkAdjustment", obj);
37 the_obj = GTK_ADJUSTMENT (XGTK_OBJECT (obj)->object);
38 arg.type = gtk_type_from_name ("gfloat");
39 GTK_VALUE_FLOAT (arg) = the_obj->upper;
40 return (gtk_type_to_lisp (&arg));
43 DEFUN ("gtk-adjustment-value", Fgtk_adjustment_value, 1, 1, 0, /*
44 Access the `value' slot of OBJ, a GtkAdjustment object.
48 GtkAdjustment *the_obj = NULL;
51 CHECK_GTK_OBJECT (obj);
53 if (!GTK_IS_ADJUSTMENT (XGTK_OBJECT (obj)->object))
55 signal_simple_error ("Object is not a GtkAdjustment", obj);
58 the_obj = GTK_ADJUSTMENT (XGTK_OBJECT (obj)->object);
59 arg.type = gtk_type_from_name ("gfloat");
60 GTK_VALUE_FLOAT (arg) = the_obj->value;
61 return (gtk_type_to_lisp (&arg));
64 DEFUN ("gtk-adjustment-step-increment", Fgtk_adjustment_step_increment, 1, 1, 0, /*
65 Access the `step_increment' slot of OBJ, a GtkAdjustment object.
69 GtkAdjustment *the_obj = NULL;
72 CHECK_GTK_OBJECT (obj);
74 if (!GTK_IS_ADJUSTMENT (XGTK_OBJECT (obj)->object))
76 signal_simple_error ("Object is not a GtkAdjustment", obj);
79 the_obj = GTK_ADJUSTMENT (XGTK_OBJECT (obj)->object);
80 arg.type = gtk_type_from_name ("gfloat");
81 GTK_VALUE_FLOAT (arg) = the_obj->step_increment;
82 return (gtk_type_to_lisp (&arg));
85 DEFUN ("gtk-adjustment-page-increment", Fgtk_adjustment_page_increment, 1, 1, 0, /*
86 Access the `page_increment' slot of OBJ, a GtkAdjustment object.
90 GtkAdjustment *the_obj = NULL;
93 CHECK_GTK_OBJECT (obj);
95 if (!GTK_IS_ADJUSTMENT (XGTK_OBJECT (obj)->object))
97 signal_simple_error ("Object is not a GtkAdjustment", obj);
100 the_obj = GTK_ADJUSTMENT (XGTK_OBJECT (obj)->object);
101 arg.type = gtk_type_from_name ("gfloat");
102 GTK_VALUE_FLOAT (arg) = the_obj->page_increment;
103 return (gtk_type_to_lisp (&arg));
106 DEFUN ("gtk-adjustment-page-size", Fgtk_adjustment_page_size, 1, 1, 0, /*
107 Access the `page_size' slot of OBJ, a GtkAdjustment object.
111 GtkAdjustment *the_obj = NULL;
114 CHECK_GTK_OBJECT (obj);
116 if (!GTK_IS_ADJUSTMENT (XGTK_OBJECT (obj)->object))
118 signal_simple_error ("Object is not a GtkAdjustment", obj);
121 the_obj = GTK_ADJUSTMENT (XGTK_OBJECT (obj)->object);
122 arg.type = gtk_type_from_name ("gfloat");
123 GTK_VALUE_FLOAT (arg) = the_obj->page_size;
124 return (gtk_type_to_lisp (&arg));
127 DEFUN ("gtk-widget-style", Fgtk_widget_style, 1, 1, 0, /*
128 Access the `style' slot of OBJ, a GtkWidget object.
132 GtkWidget *the_obj = NULL;
135 CHECK_GTK_OBJECT (obj);
137 if (!GTK_IS_WIDGET (XGTK_OBJECT (obj)->object))
139 signal_simple_error ("Object is not a GtkWidget", obj);
142 the_obj = GTK_WIDGET (XGTK_OBJECT (obj)->object);
143 arg.type = gtk_type_from_name ("GtkStyle");
144 GTK_VALUE_BOXED (arg) = (void *)the_obj->style;
145 return (gtk_type_to_lisp (&arg));
148 DEFUN ("gtk-widget-window", Fgtk_widget_window, 1, 1, 0, /*
149 Access the `window' slot of OBJ, a GtkWidget object.
153 GtkWidget *the_obj = NULL;
156 CHECK_GTK_OBJECT (obj);
158 if (!GTK_IS_WIDGET (XGTK_OBJECT (obj)->object))
160 signal_simple_error ("Object is not a GtkWidget", obj);
163 the_obj = GTK_WIDGET (XGTK_OBJECT (obj)->object);
164 arg.type = gtk_type_from_name ("GdkWindow");
165 GTK_VALUE_BOXED (arg) = (void *)the_obj->window;
166 return (gtk_type_to_lisp (&arg));
169 DEFUN ("gtk-widget-state", Fgtk_widget_state, 1, 1, 0, /*
170 Access the `state' slot of OBJ, a GtkWidget object.
174 GtkWidget *the_obj = NULL;
177 CHECK_GTK_OBJECT (obj);
179 if (!GTK_IS_WIDGET (XGTK_OBJECT (obj)->object))
181 signal_simple_error ("Object is not a GtkWidget", obj);
184 the_obj = GTK_WIDGET (XGTK_OBJECT (obj)->object);
185 arg.type = gtk_type_from_name ("GtkStateType");
186 GTK_VALUE_ENUM (arg) = the_obj->state;
187 return (gtk_type_to_lisp (&arg));
190 DEFUN ("gtk-widget-name", Fgtk_widget_name, 1, 1, 0, /*
191 Access the `name' slot of OBJ, a GtkWidget object.
195 GtkWidget *the_obj = NULL;
198 CHECK_GTK_OBJECT (obj);
200 if (!GTK_IS_WIDGET (XGTK_OBJECT (obj)->object))
202 signal_simple_error ("Object is not a GtkWidget", obj);
205 the_obj = GTK_WIDGET (XGTK_OBJECT (obj)->object);
206 arg.type = gtk_type_from_name ("GtkString");
207 GTK_VALUE_STRING (arg) = the_obj->name;
208 return (gtk_type_to_lisp (&arg));
211 DEFUN ("gtk-widget-parent", Fgtk_widget_parent, 1, 1, 0, /*
212 Access the `parent' slot of OBJ, a GtkWidget object.
216 GtkWidget *the_obj = NULL;
219 CHECK_GTK_OBJECT (obj);
221 if (!GTK_IS_WIDGET (XGTK_OBJECT (obj)->object))
223 signal_simple_error ("Object is not a GtkWidget", obj);
226 the_obj = GTK_WIDGET (XGTK_OBJECT (obj)->object);
227 arg.type = gtk_type_from_name ("GtkWidget");
228 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->parent);
229 return (gtk_type_to_lisp (&arg));
232 DEFUN ("gtk-button-child", Fgtk_button_child, 1, 1, 0, /*
233 Access the `child' slot of OBJ, a GtkButton object.
237 GtkButton *the_obj = NULL;
240 CHECK_GTK_OBJECT (obj);
242 if (!GTK_IS_BUTTON (XGTK_OBJECT (obj)->object))
244 signal_simple_error ("Object is not a GtkButton", obj);
247 the_obj = GTK_BUTTON (XGTK_OBJECT (obj)->object);
248 arg.type = gtk_type_from_name ("GtkWidget");
249 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->child);
250 return (gtk_type_to_lisp (&arg));
253 DEFUN ("gtk-button-in-button", Fgtk_button_in_button, 1, 1, 0, /*
254 Access the `in_button' slot of OBJ, a GtkButton object.
258 GtkButton *the_obj = NULL;
261 CHECK_GTK_OBJECT (obj);
263 if (!GTK_IS_BUTTON (XGTK_OBJECT (obj)->object))
265 signal_simple_error ("Object is not a GtkButton", obj);
268 the_obj = GTK_BUTTON (XGTK_OBJECT (obj)->object);
269 arg.type = gtk_type_from_name ("gboolean");
270 GTK_VALUE_BOOL (arg) = the_obj->in_button;
271 return (gtk_type_to_lisp (&arg));
274 DEFUN ("gtk-button-button-down", Fgtk_button_button_down, 1, 1, 0, /*
275 Access the `button_down' slot of OBJ, a GtkButton object.
279 GtkButton *the_obj = NULL;
282 CHECK_GTK_OBJECT (obj);
284 if (!GTK_IS_BUTTON (XGTK_OBJECT (obj)->object))
286 signal_simple_error ("Object is not a GtkButton", obj);
289 the_obj = GTK_BUTTON (XGTK_OBJECT (obj)->object);
290 arg.type = gtk_type_from_name ("gboolean");
291 GTK_VALUE_BOOL (arg) = the_obj->button_down;
292 return (gtk_type_to_lisp (&arg));
295 DEFUN ("gtk-combo-entry", Fgtk_combo_entry, 1, 1, 0, /*
296 Access the `entry' slot of OBJ, a GtkCombo object.
300 GtkCombo *the_obj = NULL;
303 CHECK_GTK_OBJECT (obj);
305 if (!GTK_IS_COMBO (XGTK_OBJECT (obj)->object))
307 signal_simple_error ("Object is not a GtkCombo", obj);
310 the_obj = GTK_COMBO (XGTK_OBJECT (obj)->object);
311 arg.type = gtk_type_from_name ("GtkWidget");
312 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->entry);
313 return (gtk_type_to_lisp (&arg));
316 DEFUN ("gtk-combo-button", Fgtk_combo_button, 1, 1, 0, /*
317 Access the `button' slot of OBJ, a GtkCombo object.
321 GtkCombo *the_obj = NULL;
324 CHECK_GTK_OBJECT (obj);
326 if (!GTK_IS_COMBO (XGTK_OBJECT (obj)->object))
328 signal_simple_error ("Object is not a GtkCombo", obj);
331 the_obj = GTK_COMBO (XGTK_OBJECT (obj)->object);
332 arg.type = gtk_type_from_name ("GtkWidget");
333 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->button);
334 return (gtk_type_to_lisp (&arg));
337 DEFUN ("gtk-combo-popup", Fgtk_combo_popup, 1, 1, 0, /*
338 Access the `popup' slot of OBJ, a GtkCombo object.
342 GtkCombo *the_obj = NULL;
345 CHECK_GTK_OBJECT (obj);
347 if (!GTK_IS_COMBO (XGTK_OBJECT (obj)->object))
349 signal_simple_error ("Object is not a GtkCombo", obj);
352 the_obj = GTK_COMBO (XGTK_OBJECT (obj)->object);
353 arg.type = gtk_type_from_name ("GtkWidget");
354 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->popup);
355 return (gtk_type_to_lisp (&arg));
358 DEFUN ("gtk-combo-popwin", Fgtk_combo_popwin, 1, 1, 0, /*
359 Access the `popwin' slot of OBJ, a GtkCombo object.
363 GtkCombo *the_obj = NULL;
366 CHECK_GTK_OBJECT (obj);
368 if (!GTK_IS_COMBO (XGTK_OBJECT (obj)->object))
370 signal_simple_error ("Object is not a GtkCombo", obj);
373 the_obj = GTK_COMBO (XGTK_OBJECT (obj)->object);
374 arg.type = gtk_type_from_name ("GtkWidget");
375 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->popwin);
376 return (gtk_type_to_lisp (&arg));
379 DEFUN ("gtk-combo-list", Fgtk_combo_list, 1, 1, 0, /*
380 Access the `list' slot of OBJ, a GtkCombo object.
384 GtkCombo *the_obj = NULL;
387 CHECK_GTK_OBJECT (obj);
389 if (!GTK_IS_COMBO (XGTK_OBJECT (obj)->object))
391 signal_simple_error ("Object is not a GtkCombo", obj);
394 the_obj = GTK_COMBO (XGTK_OBJECT (obj)->object);
395 arg.type = gtk_type_from_name ("GtkWidget");
396 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->list);
397 return (gtk_type_to_lisp (&arg));
400 DEFUN ("gtk-gamma-curve-table", Fgtk_gamma_curve_table, 1, 1, 0, /*
401 Access the `table' slot of OBJ, a GtkGammaCurve object.
405 GtkGammaCurve *the_obj = NULL;
408 CHECK_GTK_OBJECT (obj);
410 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->table);
418 return (gtk_type_to_lisp (&arg));
421 DEFUN ("gtk-gamma-curve-curve", Fgtk_gamma_curve_curve, 1, 1, 0, /*
422 Access the `curve' 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))
433 signal_simple_error ("Object is not a GtkGammaCurve", obj);
436 the_obj = GTK_GAMMA_CURVE (XGTK_OBJECT (obj)->object);
437 arg.type = gtk_type_from_name ("GtkWidget");
438 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->curve);
439 return (gtk_type_to_lisp (&arg));
442 DEFUN ("gtk-gamma-curve-gamma", Fgtk_gamma_curve_gamma, 1, 1, 0, /*
443 Access the `gamma' slot of OBJ, a GtkGammaCurve object.
447 GtkGammaCurve *the_obj = NULL;
450 CHECK_GTK_OBJECT (obj);
452 if (!GTK_IS_GAMMA_CURVE (XGTK_OBJECT (obj)->object))
454 signal_simple_error ("Object is not a GtkGammaCurve", obj);
457 the_obj = GTK_GAMMA_CURVE (XGTK_OBJECT (obj)->object);
458 arg.type = gtk_type_from_name ("gfloat");
459 GTK_VALUE_FLOAT (arg) = the_obj->gamma;
460 return (gtk_type_to_lisp (&arg));
463 DEFUN ("gtk-gamma-curve-gamma-dialog", Fgtk_gamma_curve_gamma_dialog, 1, 1, 0, /*
464 Access the `gamma_dialog' slot of OBJ, a GtkGammaCurve object.
468 GtkGammaCurve *the_obj = NULL;
471 CHECK_GTK_OBJECT (obj);
473 if (!GTK_IS_GAMMA_CURVE (XGTK_OBJECT (obj)->object))
475 signal_simple_error ("Object is not a GtkGammaCurve", obj);
478 the_obj = GTK_GAMMA_CURVE (XGTK_OBJECT (obj)->object);
479 arg.type = gtk_type_from_name ("GtkWidget");
480 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->gamma_dialog);
481 return (gtk_type_to_lisp (&arg));
484 DEFUN ("gtk-gamma-curve-gamma-text", Fgtk_gamma_curve_gamma_text, 1, 1, 0, /*
485 Access the `gamma_text' slot of OBJ, a GtkGammaCurve object.
489 GtkGammaCurve *the_obj = NULL;
492 CHECK_GTK_OBJECT (obj);
494 if (!GTK_IS_GAMMA_CURVE (XGTK_OBJECT (obj)->object))
496 signal_simple_error ("Object is not a GtkGammaCurve", obj);
499 the_obj = GTK_GAMMA_CURVE (XGTK_OBJECT (obj)->object);
500 arg.type = gtk_type_from_name ("GtkWidget");
501 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->gamma_text);
502 return (gtk_type_to_lisp (&arg));
505 DEFUN ("gtk-check-menu-item-active", Fgtk_check_menu_item_active, 1, 1, 0, /*
506 Access the `active' slot of OBJ, a GtkCheckMenuItem object.
510 GtkCheckMenuItem *the_obj = NULL;
513 CHECK_GTK_OBJECT (obj);
515 if (!GTK_IS_CHECK_MENU_ITEM (XGTK_OBJECT (obj)->object))
517 signal_simple_error ("Object is not a GtkCheckMenuItem", obj);
520 the_obj = GTK_CHECK_MENU_ITEM (XGTK_OBJECT (obj)->object);
521 arg.type = gtk_type_from_name ("gboolean");
522 GTK_VALUE_BOOL (arg) = the_obj->active;
523 return (gtk_type_to_lisp (&arg));
526 DEFUN ("gtk-notebook-tab-pos", Fgtk_notebook_tab_pos, 1, 1, 0, /*
527 Access the `tab_pos' slot of OBJ, a GtkNotebook object.
531 GtkNotebook *the_obj = NULL;
534 CHECK_GTK_OBJECT (obj);
536 if (!GTK_IS_NOTEBOOK (XGTK_OBJECT (obj)->object))
538 signal_simple_error ("Object is not a GtkNotebook", obj);
541 the_obj = GTK_NOTEBOOK (XGTK_OBJECT (obj)->object);
542 arg.type = gtk_type_from_name ("GtkPositionType");
543 GTK_VALUE_ENUM (arg) = the_obj->tab_pos;
544 return (gtk_type_to_lisp (&arg));
547 DEFUN ("gtk-text-hadj", Fgtk_text_hadj, 1, 1, 0, /*
548 Access the `hadj' slot of OBJ, a GtkText object.
552 GtkText *the_obj = NULL;
555 CHECK_GTK_OBJECT (obj);
557 if (!GTK_IS_TEXT (XGTK_OBJECT (obj)->object))
559 signal_simple_error ("Object is not a GtkText", obj);
562 the_obj = GTK_TEXT (XGTK_OBJECT (obj)->object);
563 arg.type = gtk_type_from_name ("GtkAdjustment");
564 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->hadj);
565 return (gtk_type_to_lisp (&arg));
568 DEFUN ("gtk-text-vadj", Fgtk_text_vadj, 1, 1, 0, /*
569 Access the `vadj' slot of OBJ, a GtkText object.
573 GtkText *the_obj = NULL;
576 CHECK_GTK_OBJECT (obj);
578 if (!GTK_IS_TEXT (XGTK_OBJECT (obj)->object))
580 signal_simple_error ("Object is not a GtkText", obj);
583 the_obj = GTK_TEXT (XGTK_OBJECT (obj)->object);
584 arg.type = gtk_type_from_name ("GtkAdjustment");
585 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->vadj);
586 return (gtk_type_to_lisp (&arg));
589 DEFUN ("gtk-file-selection-dir-list", Fgtk_file_selection_dir_list, 1, 1, 0, /*
590 Access the `dir_list' slot of OBJ, a GtkFileSelection object.
594 GtkFileSelection *the_obj = NULL;
597 CHECK_GTK_OBJECT (obj);
599 if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object))
601 signal_simple_error ("Object is not a GtkFileSelection", obj);
604 the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object);
605 arg.type = gtk_type_from_name ("GtkWidget");
606 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->dir_list);
607 return (gtk_type_to_lisp (&arg));
610 DEFUN ("gtk-file-selection-file-list", Fgtk_file_selection_file_list, 1, 1, 0, /*
611 Access the `file_list' slot of OBJ, a GtkFileSelection object.
615 GtkFileSelection *the_obj = NULL;
618 CHECK_GTK_OBJECT (obj);
620 if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object))
622 signal_simple_error ("Object is not a GtkFileSelection", obj);
625 the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object);
626 arg.type = gtk_type_from_name ("GtkWidget");
627 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->file_list);
628 return (gtk_type_to_lisp (&arg));
631 DEFUN ("gtk-file-selection-selection-entry", Fgtk_file_selection_selection_entry, 1, 1, 0, /*
632 Access the `selection_entry' slot of OBJ, a GtkFileSelection object.
636 GtkFileSelection *the_obj = NULL;
639 CHECK_GTK_OBJECT (obj);
641 if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object))
643 signal_simple_error ("Object is not a GtkFileSelection", obj);
646 the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object);
647 arg.type = gtk_type_from_name ("GtkWidget");
648 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->selection_entry);
649 return (gtk_type_to_lisp (&arg));
652 DEFUN ("gtk-file-selection-selection-text", Fgtk_file_selection_selection_text, 1, 1, 0, /*
653 Access the `selection_text' slot of OBJ, a GtkFileSelection object.
657 GtkFileSelection *the_obj = NULL;
660 CHECK_GTK_OBJECT (obj);
662 if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object))
664 signal_simple_error ("Object is not a GtkFileSelection", obj);
667 the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object);
668 arg.type = gtk_type_from_name ("GtkWidget");
669 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->selection_text);
670 return (gtk_type_to_lisp (&arg));
673 DEFUN ("gtk-file-selection-main-vbox", Fgtk_file_selection_main_vbox, 1, 1, 0, /*
674 Access the `main_vbox' slot of OBJ, a GtkFileSelection object.
678 GtkFileSelection *the_obj = NULL;
681 CHECK_GTK_OBJECT (obj);
683 if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object))
685 signal_simple_error ("Object is not a GtkFileSelection", obj);
688 the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object);
689 arg.type = gtk_type_from_name ("GtkWidget");
690 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->main_vbox);
691 return (gtk_type_to_lisp (&arg));
694 DEFUN ("gtk-file-selection-ok-button", Fgtk_file_selection_ok_button, 1, 1, 0, /*
695 Access the `ok_button' slot of OBJ, a GtkFileSelection object.
699 GtkFileSelection *the_obj = NULL;
702 CHECK_GTK_OBJECT (obj);
704 if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object))
706 signal_simple_error ("Object is not a GtkFileSelection", obj);
709 the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object);
710 arg.type = gtk_type_from_name ("GtkWidget");
711 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->ok_button);
712 return (gtk_type_to_lisp (&arg));
715 DEFUN ("gtk-file-selection-cancel-button", Fgtk_file_selection_cancel_button, 1, 1, 0, /*
716 Access the `cancel_button' slot of OBJ, a GtkFileSelection object.
720 GtkFileSelection *the_obj = NULL;
723 CHECK_GTK_OBJECT (obj);
725 if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object))
727 signal_simple_error ("Object is not a GtkFileSelection", obj);
730 the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object);
731 arg.type = gtk_type_from_name ("GtkWidget");
732 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->cancel_button);
733 return (gtk_type_to_lisp (&arg));
736 DEFUN ("gtk-file-selection-help-button", Fgtk_file_selection_help_button, 1, 1, 0, /*
737 Access the `help_button' slot of OBJ, a GtkFileSelection object.
741 GtkFileSelection *the_obj = NULL;
744 CHECK_GTK_OBJECT (obj);
746 if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object))
748 signal_simple_error ("Object is not a GtkFileSelection", obj);
751 the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object);
752 arg.type = gtk_type_from_name ("GtkWidget");
753 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->help_button);
754 return (gtk_type_to_lisp (&arg));
757 DEFUN ("gtk-file-selection-action-area", Fgtk_file_selection_action_area, 1, 1, 0, /*
758 Access the `action_area' slot of OBJ, a GtkFileSelection object.
762 GtkFileSelection *the_obj = NULL;
765 CHECK_GTK_OBJECT (obj);
767 if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object))
769 signal_simple_error ("Object is not a GtkFileSelection", obj);
772 the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object);
773 arg.type = gtk_type_from_name ("GtkWidget");
774 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->action_area);
775 return (gtk_type_to_lisp (&arg));
778 DEFUN ("gtk-font-selection-dialog-fontsel", Fgtk_font_selection_dialog_fontsel, 1, 1, 0, /*
779 Access the `fontsel' slot of OBJ, a GtkFontSelectionDialog object.
783 GtkFontSelectionDialog *the_obj = NULL;
786 CHECK_GTK_OBJECT (obj);
788 if (!GTK_IS_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object))
790 signal_simple_error ("Object is not a GtkFontSelectionDialog", obj);
793 the_obj = GTK_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object);
794 arg.type = gtk_type_from_name ("GtkWidget");
795 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->fontsel);
796 return (gtk_type_to_lisp (&arg));
799 DEFUN ("gtk-font-selection-dialog-main-vbox", Fgtk_font_selection_dialog_main_vbox, 1, 1, 0, /*
800 Access the `main_vbox' slot of OBJ, a GtkFontSelectionDialog object.
804 GtkFontSelectionDialog *the_obj = NULL;
807 CHECK_GTK_OBJECT (obj);
809 if (!GTK_IS_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object))
811 signal_simple_error ("Object is not a GtkFontSelectionDialog", obj);
814 the_obj = GTK_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object);
815 arg.type = gtk_type_from_name ("GtkWidget");
816 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->main_vbox);
817 return (gtk_type_to_lisp (&arg));
820 DEFUN ("gtk-font-selection-dialog-action-area", Fgtk_font_selection_dialog_action_area, 1, 1, 0, /*
821 Access the `action_area' slot of OBJ, a GtkFontSelectionDialog object.
825 GtkFontSelectionDialog *the_obj = NULL;
828 CHECK_GTK_OBJECT (obj);
830 if (!GTK_IS_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object))
832 signal_simple_error ("Object is not a GtkFontSelectionDialog", obj);
835 the_obj = GTK_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object);
836 arg.type = gtk_type_from_name ("GtkWidget");
837 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->action_area);
838 return (gtk_type_to_lisp (&arg));
841 DEFUN ("gtk-font-selection-dialog-ok-button", Fgtk_font_selection_dialog_ok_button, 1, 1, 0, /*
842 Access the `ok_button' slot of OBJ, a GtkFontSelectionDialog object.
846 GtkFontSelectionDialog *the_obj = NULL;
849 CHECK_GTK_OBJECT (obj);
851 if (!GTK_IS_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object))
853 signal_simple_error ("Object is not a GtkFontSelectionDialog", obj);
856 the_obj = GTK_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object);
857 arg.type = gtk_type_from_name ("GtkWidget");
858 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->ok_button);
859 return (gtk_type_to_lisp (&arg));
862 DEFUN ("gtk-font-selection-dialog-apply-button", Fgtk_font_selection_dialog_apply_button, 1, 1, 0, /*
863 Access the `apply_button' slot of OBJ, a GtkFontSelectionDialog object.
867 GtkFontSelectionDialog *the_obj = NULL;
870 CHECK_GTK_OBJECT (obj);
872 if (!GTK_IS_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object))
874 signal_simple_error ("Object is not a GtkFontSelectionDialog", obj);
877 the_obj = GTK_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object);
878 arg.type = gtk_type_from_name ("GtkWidget");
879 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->apply_button);
880 return (gtk_type_to_lisp (&arg));
883 DEFUN ("gtk-font-selection-dialog-cancel-button", Fgtk_font_selection_dialog_cancel_button, 1, 1, 0, /*
884 Access the `cancel_button' slot of OBJ, a GtkFontSelectionDialog object.
888 GtkFontSelectionDialog *the_obj = NULL;
891 CHECK_GTK_OBJECT (obj);
893 if (!GTK_IS_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object))
895 signal_simple_error ("Object is not a GtkFontSelectionDialog", obj);
898 the_obj = GTK_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object);
899 arg.type = gtk_type_from_name ("GtkWidget");
900 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->cancel_button);
901 return (gtk_type_to_lisp (&arg));
904 DEFUN ("gtk-color-selection-dialog-colorsel", Fgtk_color_selection_dialog_colorsel, 1, 1, 0, /*
905 Access the `colorsel' slot of OBJ, a GtkColorSelectionDialog object.
909 GtkColorSelectionDialog *the_obj = NULL;
912 CHECK_GTK_OBJECT (obj);
914 if (!GTK_IS_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object))
916 signal_simple_error ("Object is not a GtkColorSelectionDialog", obj);
919 the_obj = GTK_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object);
920 arg.type = gtk_type_from_name ("GtkWidget");
921 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->colorsel);
922 return (gtk_type_to_lisp (&arg));
925 DEFUN ("gtk-color-selection-dialog-main-vbox", Fgtk_color_selection_dialog_main_vbox, 1, 1, 0, /*
926 Access the `main_vbox' slot of OBJ, a GtkColorSelectionDialog object.
930 GtkColorSelectionDialog *the_obj = NULL;
933 CHECK_GTK_OBJECT (obj);
935 if (!GTK_IS_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object))
937 signal_simple_error ("Object is not a GtkColorSelectionDialog", obj);
940 the_obj = GTK_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object);
941 arg.type = gtk_type_from_name ("GtkWidget");
942 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->main_vbox);
943 return (gtk_type_to_lisp (&arg));
946 DEFUN ("gtk-color-selection-dialog-ok-button", Fgtk_color_selection_dialog_ok_button, 1, 1, 0, /*
947 Access the `ok_button' slot of OBJ, a GtkColorSelectionDialog object.
951 GtkColorSelectionDialog *the_obj = NULL;
954 CHECK_GTK_OBJECT (obj);
956 if (!GTK_IS_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object))
958 signal_simple_error ("Object is not a GtkColorSelectionDialog", obj);
961 the_obj = GTK_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object);
962 arg.type = gtk_type_from_name ("GtkWidget");
963 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->ok_button);
964 return (gtk_type_to_lisp (&arg));
967 DEFUN ("gtk-color-selection-dialog-reset-button", Fgtk_color_selection_dialog_reset_button, 1, 1, 0, /*
968 Access the `reset_button' slot of OBJ, a GtkColorSelectionDialog object.
972 GtkColorSelectionDialog *the_obj = NULL;
975 CHECK_GTK_OBJECT (obj);
977 if (!GTK_IS_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object))
979 signal_simple_error ("Object is not a GtkColorSelectionDialog", obj);
982 the_obj = GTK_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object);
983 arg.type = gtk_type_from_name ("GtkWidget");
984 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->reset_button);
985 return (gtk_type_to_lisp (&arg));
988 DEFUN ("gtk-color-selection-dialog-cancel-button", Fgtk_color_selection_dialog_cancel_button, 1, 1, 0, /*
989 Access the `cancel_button' slot of OBJ, a GtkColorSelectionDialog object.
993 GtkColorSelectionDialog *the_obj = NULL;
996 CHECK_GTK_OBJECT (obj);
998 if (!GTK_IS_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object))
1000 signal_simple_error ("Object is not a GtkColorSelectionDialog", obj);
1003 the_obj = GTK_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object);
1004 arg.type = gtk_type_from_name ("GtkWidget");
1005 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->cancel_button);
1006 return (gtk_type_to_lisp (&arg));
1009 DEFUN ("gtk-color-selection-dialog-help-button", Fgtk_color_selection_dialog_help_button, 1, 1, 0, /*
1010 Access the `help_button' slot of OBJ, a GtkColorSelectionDialog object.
1014 GtkColorSelectionDialog *the_obj = NULL;
1017 CHECK_GTK_OBJECT (obj);
1019 if (!GTK_IS_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object))
1021 signal_simple_error ("Object is not a GtkColorSelectionDialog", obj);
1024 the_obj = GTK_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object);
1025 arg.type = gtk_type_from_name ("GtkWidget");
1026 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->help_button);
1027 return (gtk_type_to_lisp (&arg));
1030 DEFUN ("gtk-dialog-vbox", Fgtk_dialog_vbox, 1, 1, 0, /*
1031 Access the `vbox' slot of OBJ, a GtkDialog object.
1035 GtkDialog *the_obj = NULL;
1038 CHECK_GTK_OBJECT (obj);
1040 if (!GTK_IS_DIALOG (XGTK_OBJECT (obj)->object))
1042 signal_simple_error ("Object is not a GtkDialog", obj);
1045 the_obj = GTK_DIALOG (XGTK_OBJECT (obj)->object);
1046 arg.type = gtk_type_from_name ("GtkWidget");
1047 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->vbox);
1048 return (gtk_type_to_lisp (&arg));
1051 DEFUN ("gtk-dialog-action-area", Fgtk_dialog_action_area, 1, 1, 0, /*
1052 Access the `action_area' slot of OBJ, a GtkDialog object.
1056 GtkDialog *the_obj = NULL;
1059 CHECK_GTK_OBJECT (obj);
1061 if (!GTK_IS_DIALOG (XGTK_OBJECT (obj)->object))
1063 signal_simple_error ("Object is not a GtkDialog", obj);
1066 the_obj = GTK_DIALOG (XGTK_OBJECT (obj)->object);
1067 arg.type = gtk_type_from_name ("GtkWidget");
1068 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->action_area);
1069 return (gtk_type_to_lisp (&arg));
1072 DEFUN ("gtk-input-dialog-close-button", Fgtk_input_dialog_close_button, 1, 1, 0, /*
1073 Access the `close_button' slot of OBJ, a GtkInputDialog object.
1077 GtkInputDialog *the_obj = NULL;
1080 CHECK_GTK_OBJECT (obj);
1082 if (!GTK_IS_INPUT_DIALOG (XGTK_OBJECT (obj)->object))
1084 signal_simple_error ("Object is not a GtkInputDialog", obj);
1087 the_obj = GTK_INPUT_DIALOG (XGTK_OBJECT (obj)->object);
1088 arg.type = gtk_type_from_name ("GtkWidget");
1089 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->close_button);
1090 return (gtk_type_to_lisp (&arg));
1093 DEFUN ("gtk-input-dialog-save-button", Fgtk_input_dialog_save_button, 1, 1, 0, /*
1094 Access the `save_button' slot of OBJ, a GtkInputDialog object.
1098 GtkInputDialog *the_obj = NULL;
1101 CHECK_GTK_OBJECT (obj);
1103 if (!GTK_IS_INPUT_DIALOG (XGTK_OBJECT (obj)->object))
1105 signal_simple_error ("Object is not a GtkInputDialog", obj);
1108 the_obj = GTK_INPUT_DIALOG (XGTK_OBJECT (obj)->object);
1109 arg.type = gtk_type_from_name ("GtkWidget");
1110 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->save_button);
1111 return (gtk_type_to_lisp (&arg));
1114 DEFUN ("gtk-plug-socket-window", Fgtk_plug_socket_window, 1, 1, 0, /*
1115 Access the `socket_window' slot of OBJ, a GtkPlug object.
1119 GtkPlug *the_obj = NULL;
1122 CHECK_GTK_OBJECT (obj);
1124 if (!GTK_IS_PLUG (XGTK_OBJECT (obj)->object))
1126 signal_simple_error ("Object is not a GtkPlug", obj);
1129 the_obj = GTK_PLUG (XGTK_OBJECT (obj)->object);
1130 arg.type = gtk_type_from_name ("GdkWindow");
1131 GTK_VALUE_BOXED (arg) = (void *)the_obj->socket_window;
1132 return (gtk_type_to_lisp (&arg));
1135 DEFUN ("gtk-plug-same-app", Fgtk_plug_same_app, 1, 1, 0, /*
1136 Access the `same_app' slot of OBJ, a GtkPlug object.
1140 GtkPlug *the_obj = NULL;
1143 CHECK_GTK_OBJECT (obj);
1145 if (!GTK_IS_PLUG (XGTK_OBJECT (obj)->object))
1147 signal_simple_error ("Object is not a GtkPlug", obj);
1150 the_obj = GTK_PLUG (XGTK_OBJECT (obj)->object);
1151 arg.type = gtk_type_from_name ("gint");
1152 GTK_VALUE_INT (arg) = the_obj->same_app;
1153 return (gtk_type_to_lisp (&arg));
1156 DEFUN ("gtk-object-flags", Fgtk_object_flags, 1, 1, 0, /*
1157 Access the `flags' slot of OBJ, a GtkObject object.
1161 GtkObject *the_obj = NULL;
1164 CHECK_GTK_OBJECT (obj);
1166 if (!GTK_IS_OBJECT (XGTK_OBJECT (obj)->object))
1168 signal_simple_error ("Object is not a GtkObject", obj);
1171 the_obj = GTK_OBJECT (XGTK_OBJECT (obj)->object);
1172 arg.type = gtk_type_from_name ("guint");
1173 GTK_VALUE_UINT (arg) = the_obj->flags;
1174 return (gtk_type_to_lisp (&arg));
1177 DEFUN ("gtk-object-ref-count", Fgtk_object_ref_count, 1, 1, 0, /*
1178 Access the `ref_count' slot of OBJ, a GtkObject object.
1182 GtkObject *the_obj = NULL;
1185 CHECK_GTK_OBJECT (obj);
1187 if (!GTK_IS_OBJECT (XGTK_OBJECT (obj)->object))
1189 signal_simple_error ("Object is not a GtkObject", obj);
1192 the_obj = GTK_OBJECT (XGTK_OBJECT (obj)->object);
1193 arg.type = gtk_type_from_name ("guint");
1194 GTK_VALUE_UINT (arg) = the_obj->ref_count;
1195 return (gtk_type_to_lisp (&arg));
1198 DEFUN ("gtk-paned-child1", Fgtk_paned_child1, 1, 1, 0, /*
1199 Access the `child1' slot of OBJ, a GtkPaned object.
1203 GtkPaned *the_obj = NULL;
1206 CHECK_GTK_OBJECT (obj);
1208 if (!GTK_IS_PANED (XGTK_OBJECT (obj)->object))
1210 signal_simple_error ("Object is not a GtkPaned", obj);
1213 the_obj = GTK_PANED (XGTK_OBJECT (obj)->object);
1214 arg.type = gtk_type_from_name ("GtkWidget");
1215 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->child1);
1216 return (gtk_type_to_lisp (&arg));
1219 DEFUN ("gtk-paned-child2", Fgtk_paned_child2, 1, 1, 0, /*
1220 Access the `child2' slot of OBJ, a GtkPaned object.
1224 GtkPaned *the_obj = NULL;
1227 CHECK_GTK_OBJECT (obj);
1229 if (!GTK_IS_PANED (XGTK_OBJECT (obj)->object))
1231 signal_simple_error ("Object is not a GtkPaned", obj);
1234 the_obj = GTK_PANED (XGTK_OBJECT (obj)->object);
1235 arg.type = gtk_type_from_name ("GtkWidget");
1236 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->child2);
1237 return (gtk_type_to_lisp (&arg));
1240 DEFUN ("gtk-paned-child1-resize", Fgtk_paned_child1_resize, 1, 1, 0, /*
1241 Access the `child1_resize' slot of OBJ, a GtkPaned object.
1245 GtkPaned *the_obj = NULL;
1248 CHECK_GTK_OBJECT (obj);
1250 if (!GTK_IS_PANED (XGTK_OBJECT (obj)->object))
1252 signal_simple_error ("Object is not a GtkPaned", obj);
1255 the_obj = GTK_PANED (XGTK_OBJECT (obj)->object);
1256 arg.type = gtk_type_from_name ("gboolean");
1257 GTK_VALUE_BOOL (arg) = the_obj->child1_resize;
1258 return (gtk_type_to_lisp (&arg));
1261 DEFUN ("gtk-paned-child2-resize", Fgtk_paned_child2_resize, 1, 1, 0, /*
1262 Access the `child2_resize' slot of OBJ, a GtkPaned object.
1266 GtkPaned *the_obj = NULL;
1269 CHECK_GTK_OBJECT (obj);
1271 if (!GTK_IS_PANED (XGTK_OBJECT (obj)->object))
1273 signal_simple_error ("Object is not a GtkPaned", obj);
1276 the_obj = GTK_PANED (XGTK_OBJECT (obj)->object);
1277 arg.type = gtk_type_from_name ("gboolean");
1278 GTK_VALUE_BOOL (arg) = the_obj->child2_resize;
1279 return (gtk_type_to_lisp (&arg));
1282 DEFUN ("gtk-paned-child1-shrink", Fgtk_paned_child1_shrink, 1, 1, 0, /*
1283 Access the `child1_shrink' slot of OBJ, a GtkPaned object.
1287 GtkPaned *the_obj = NULL;
1290 CHECK_GTK_OBJECT (obj);
1292 if (!GTK_IS_PANED (XGTK_OBJECT (obj)->object))
1294 signal_simple_error ("Object is not a GtkPaned", obj);
1297 the_obj = GTK_PANED (XGTK_OBJECT (obj)->object);
1298 arg.type = gtk_type_from_name ("gboolean");
1299 GTK_VALUE_BOOL (arg) = the_obj->child1_shrink;
1300 return (gtk_type_to_lisp (&arg));
1303 DEFUN ("gtk-paned-child2-shrink", Fgtk_paned_child2_shrink, 1, 1, 0, /*
1304 Access the `child2_shrink' slot of OBJ, a GtkPaned object.
1308 GtkPaned *the_obj = NULL;
1311 CHECK_GTK_OBJECT (obj);
1313 if (!GTK_IS_PANED (XGTK_OBJECT (obj)->object))
1315 signal_simple_error ("Object is not a GtkPaned", obj);
1318 the_obj = GTK_PANED (XGTK_OBJECT (obj)->object);
1319 arg.type = gtk_type_from_name ("gboolean");
1320 GTK_VALUE_BOOL (arg) = the_obj->child2_shrink;
1321 return (gtk_type_to_lisp (&arg));
1324 DEFUN ("gtk-clist-rows", Fgtk_clist_rows, 1, 1, 0, /*
1325 Access the `rows' slot of OBJ, a GtkCList object.
1329 GtkCList *the_obj = NULL;
1332 CHECK_GTK_OBJECT (obj);
1334 if (!GTK_IS_CLIST (XGTK_OBJECT (obj)->object))
1336 signal_simple_error ("Object is not a GtkCList", obj);
1339 the_obj = GTK_CLIST (XGTK_OBJECT (obj)->object);
1340 arg.type = gtk_type_from_name ("gint");
1341 GTK_VALUE_INT (arg) = the_obj->rows;
1342 return (gtk_type_to_lisp (&arg));
1345 DEFUN ("gtk-clist-columns", Fgtk_clist_columns, 1, 1, 0, /*
1346 Access the `columns' slot of OBJ, a GtkCList object.
1350 GtkCList *the_obj = NULL;
1353 CHECK_GTK_OBJECT (obj);
1355 if (!GTK_IS_CLIST (XGTK_OBJECT (obj)->object))
1357 signal_simple_error ("Object is not a GtkCList", obj);
1360 the_obj = GTK_CLIST (XGTK_OBJECT (obj)->object);
1361 arg.type = gtk_type_from_name ("gint");
1362 GTK_VALUE_INT (arg) = the_obj->columns;
1363 return (gtk_type_to_lisp (&arg));
1366 DEFUN ("gtk-clist-hadjustment", Fgtk_clist_hadjustment, 1, 1, 0, /*
1367 Access the `hadjustment' slot of OBJ, a GtkCList object.
1371 GtkCList *the_obj = NULL;
1374 CHECK_GTK_OBJECT (obj);
1376 if (!GTK_IS_CLIST (XGTK_OBJECT (obj)->object))
1378 signal_simple_error ("Object is not a GtkCList", obj);
1381 the_obj = GTK_CLIST (XGTK_OBJECT (obj)->object);
1382 arg.type = gtk_type_from_name ("GtkAdjustment");
1383 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->hadjustment);
1384 return (gtk_type_to_lisp (&arg));
1387 DEFUN ("gtk-clist-vadjustment", Fgtk_clist_vadjustment, 1, 1, 0, /*
1388 Access the `vadjustment' slot of OBJ, a GtkCList object.
1392 GtkCList *the_obj = NULL;
1395 CHECK_GTK_OBJECT (obj);
1397 if (!GTK_IS_CLIST (XGTK_OBJECT (obj)->object))
1399 signal_simple_error ("Object is not a GtkCList", obj);
1402 the_obj = GTK_CLIST (XGTK_OBJECT (obj)->object);
1403 arg.type = gtk_type_from_name ("GtkAdjustment");
1404 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->vadjustment);
1405 return (gtk_type_to_lisp (&arg));
1408 DEFUN ("gtk-clist-sort-type", Fgtk_clist_sort_type, 1, 1, 0, /*
1409 Access the `sort_type' slot of OBJ, a GtkCList object.
1413 GtkCList *the_obj = NULL;
1416 CHECK_GTK_OBJECT (obj);
1418 if (!GTK_IS_CLIST (XGTK_OBJECT (obj)->object))
1420 signal_simple_error ("Object is not a GtkCList", obj);
1423 the_obj = GTK_CLIST (XGTK_OBJECT (obj)->object);
1424 arg.type = gtk_type_from_name ("GtkSortType");
1425 GTK_VALUE_ENUM (arg) = the_obj->sort_type;
1426 return (gtk_type_to_lisp (&arg));
1429 DEFUN ("gtk-clist-focus-row", Fgtk_clist_focus_row, 1, 1, 0, /*
1430 Access the `focus_row' slot of OBJ, a GtkCList object.
1434 GtkCList *the_obj = NULL;
1437 CHECK_GTK_OBJECT (obj);
1439 if (!GTK_IS_CLIST (XGTK_OBJECT (obj)->object))
1441 signal_simple_error ("Object is not a GtkCList", obj);
1444 the_obj = GTK_CLIST (XGTK_OBJECT (obj)->object);
1445 arg.type = gtk_type_from_name ("gint");
1446 GTK_VALUE_INT (arg) = the_obj->focus_row;
1447 return (gtk_type_to_lisp (&arg));
1450 DEFUN ("gtk-clist-sort-column", Fgtk_clist_sort_column, 1, 1, 0, /*
1451 Access the `sort_column' slot of OBJ, a GtkCList object.
1455 GtkCList *the_obj = NULL;
1458 CHECK_GTK_OBJECT (obj);
1460 if (!GTK_IS_CLIST (XGTK_OBJECT (obj)->object))
1462 signal_simple_error ("Object is not a GtkCList", obj);
1465 the_obj = GTK_CLIST (XGTK_OBJECT (obj)->object);
1466 arg.type = gtk_type_from_name ("gint");
1467 GTK_VALUE_INT (arg) = the_obj->sort_column;
1468 return (gtk_type_to_lisp (&arg));
1471 DEFUN ("gtk-list-children", Fgtk_list_children, 1, 1, 0, /*
1472 Access the `children' slot of OBJ, a GtkList object.
1476 GtkList *the_obj = NULL;
1479 CHECK_GTK_OBJECT (obj);
1481 if (!GTK_IS_LIST (XGTK_OBJECT (obj)->object))
1483 signal_simple_error ("Object is not a GtkList", obj);
1486 the_obj = GTK_LIST (XGTK_OBJECT (obj)->object);
1487 arg.type = gtk_type_from_name ("GtkListOfObject");
1488 GTK_VALUE_POINTER (arg) = the_obj->children;
1489 return (gtk_type_to_lisp (&arg));
1492 DEFUN ("gtk-list-selection", Fgtk_list_selection, 1, 1, 0, /*
1493 Access the `selection' slot of OBJ, a GtkList object.
1497 GtkList *the_obj = NULL;
1500 CHECK_GTK_OBJECT (obj);
1502 if (!GTK_IS_LIST (XGTK_OBJECT (obj)->object))
1504 signal_simple_error ("Object is not a GtkList", obj);
1507 the_obj = GTK_LIST (XGTK_OBJECT (obj)->object);
1508 arg.type = gtk_type_from_name ("GtkListOfObject");
1509 GTK_VALUE_POINTER (arg) = the_obj->selection;
1510 return (gtk_type_to_lisp (&arg));
1513 DEFUN ("gtk-tree-children", Fgtk_tree_children, 1, 1, 0, /*
1514 Access the `children' 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))
1525 signal_simple_error ("Object is not a GtkTree", obj);
1528 the_obj = GTK_TREE (XGTK_OBJECT (obj)->object);
1529 arg.type = gtk_type_from_name ("GtkListOfObject");
1530 GTK_VALUE_POINTER (arg) = the_obj->children;
1531 return (gtk_type_to_lisp (&arg));
1534 DEFUN ("gtk-tree-root-tree", Fgtk_tree_root_tree, 1, 1, 0, /*
1535 Access the `root_tree' slot of OBJ, a GtkTree object.
1539 GtkTree *the_obj = NULL;
1542 CHECK_GTK_OBJECT (obj);
1544 if (!GTK_IS_TREE (XGTK_OBJECT (obj)->object))
1546 signal_simple_error ("Object is not a GtkTree", obj);
1549 the_obj = GTK_TREE (XGTK_OBJECT (obj)->object);
1550 arg.type = gtk_type_from_name ("GtkTree");
1551 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->root_tree);
1552 return (gtk_type_to_lisp (&arg));
1555 DEFUN ("gtk-tree-tree-owner", Fgtk_tree_tree_owner, 1, 1, 0, /*
1556 Access the `tree_owner' slot of OBJ, a GtkTree object.
1560 GtkTree *the_obj = NULL;
1563 CHECK_GTK_OBJECT (obj);
1565 if (!GTK_IS_TREE (XGTK_OBJECT (obj)->object))
1567 signal_simple_error ("Object is not a GtkTree", obj);
1570 the_obj = GTK_TREE (XGTK_OBJECT (obj)->object);
1571 arg.type = gtk_type_from_name ("GtkWidget");
1572 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->tree_owner);
1573 return (gtk_type_to_lisp (&arg));
1576 DEFUN ("gtk-tree-selection", Fgtk_tree_selection, 1, 1, 0, /*
1577 Access the `selection' slot of OBJ, a GtkTree object.
1581 GtkTree *the_obj = NULL;
1584 CHECK_GTK_OBJECT (obj);
1586 if (!GTK_IS_TREE (XGTK_OBJECT (obj)->object))
1588 signal_simple_error ("Object is not a GtkTree", obj);
1591 the_obj = GTK_TREE (XGTK_OBJECT (obj)->object);
1592 arg.type = gtk_type_from_name ("GtkListOfObject");
1593 GTK_VALUE_POINTER (arg) = the_obj->selection;
1594 return (gtk_type_to_lisp (&arg));
1597 DEFUN ("gtk-tree-item-subtree", Fgtk_tree_item_subtree, 1, 1, 0, /*
1598 Access the `subtree' slot of OBJ, a GtkTreeItem object.
1602 GtkTreeItem *the_obj = NULL;
1605 CHECK_GTK_OBJECT (obj);
1607 if (!GTK_IS_TREE_ITEM (XGTK_OBJECT (obj)->object))
1609 signal_simple_error ("Object is not a GtkTreeItem", obj);
1612 the_obj = GTK_TREE_ITEM (XGTK_OBJECT (obj)->object);
1613 arg.type = gtk_type_from_name ("GtkWidget");
1614 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->subtree);
1615 return (gtk_type_to_lisp (&arg));
1618 DEFUN ("gtk-scrolled-window-hscrollbar", Fgtk_scrolled_window_hscrollbar, 1, 1, 0, /*
1619 Access the `hscrollbar' slot of OBJ, a GtkScrolledWindow object.
1623 GtkScrolledWindow *the_obj = NULL;
1626 CHECK_GTK_OBJECT (obj);
1628 if (!GTK_IS_SCROLLED_WINDOW (XGTK_OBJECT (obj)->object))
1630 signal_simple_error ("Object is not a GtkScrolledWindow", obj);
1633 the_obj = GTK_SCROLLED_WINDOW (XGTK_OBJECT (obj)->object);
1634 arg.type = gtk_type_from_name ("GtkWidget");
1635 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->hscrollbar);
1636 return (gtk_type_to_lisp (&arg));
1639 DEFUN ("gtk-scrolled-window-vscrollbar", Fgtk_scrolled_window_vscrollbar, 1, 1, 0, /*
1640 Access the `vscrollbar' slot of OBJ, a GtkScrolledWindow object.
1644 GtkScrolledWindow *the_obj = NULL;
1647 CHECK_GTK_OBJECT (obj);
1649 if (!GTK_IS_SCROLLED_WINDOW (XGTK_OBJECT (obj)->object))
1651 signal_simple_error ("Object is not a GtkScrolledWindow", obj);
1654 the_obj = GTK_SCROLLED_WINDOW (XGTK_OBJECT (obj)->object);
1655 arg.type = gtk_type_from_name ("GtkWidget");
1656 GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->vscrollbar);
1657 return (gtk_type_to_lisp (&arg));
1660 DEFUN ("gtk-scrolled-window-hscrollbar-visible", Fgtk_scrolled_window_hscrollbar_visible, 1, 1, 0, /*
1661 Access the `hscrollbar_visible' slot of OBJ, a GtkScrolledWindow object.
1665 GtkScrolledWindow *the_obj = NULL;
1668 CHECK_GTK_OBJECT (obj);
1670 if (!GTK_IS_SCROLLED_WINDOW (XGTK_OBJECT (obj)->object))
1672 signal_simple_error ("Object is not a GtkScrolledWindow", obj);
1675 the_obj = GTK_SCROLLED_WINDOW (XGTK_OBJECT (obj)->object);
1676 arg.type = gtk_type_from_name ("gboolean");
1677 GTK_VALUE_BOOL (arg) = the_obj->hscrollbar_visible;
1678 return (gtk_type_to_lisp (&arg));
1681 DEFUN ("gtk-scrolled-window-vscrollbar-visible", Fgtk_scrolled_window_vscrollbar_visible, 1, 1, 0, /*
1682 Access the `vscrollbar_visible' slot of OBJ, a GtkScrolledWindow object.
1686 GtkScrolledWindow *the_obj = NULL;
1689 CHECK_GTK_OBJECT (obj);
1691 if (!GTK_IS_SCROLLED_WINDOW (XGTK_OBJECT (obj)->object))
1693 signal_simple_error ("Object is not a GtkScrolledWindow", obj);
1696 the_obj = GTK_SCROLLED_WINDOW (XGTK_OBJECT (obj)->object);
1697 arg.type = gtk_type_from_name ("gboolean");
1698 GTK_VALUE_BOOL (arg) = the_obj->vscrollbar_visible;
1699 return (gtk_type_to_lisp (&arg));
1702 void syms_of_widget_accessors (void)
1704 DEFSUBR (Fgtk_scrolled_window_vscrollbar_visible);
1705 DEFSUBR (Fgtk_scrolled_window_hscrollbar_visible);
1706 DEFSUBR (Fgtk_scrolled_window_vscrollbar);
1707 DEFSUBR (Fgtk_scrolled_window_hscrollbar);
1708 DEFSUBR (Fgtk_tree_item_subtree);
1709 DEFSUBR (Fgtk_tree_selection);
1710 DEFSUBR (Fgtk_tree_tree_owner);
1711 DEFSUBR (Fgtk_tree_root_tree);
1712 DEFSUBR (Fgtk_tree_children);
1713 DEFSUBR (Fgtk_list_selection);
1714 DEFSUBR (Fgtk_list_children);
1715 DEFSUBR (Fgtk_clist_sort_column);
1716 DEFSUBR (Fgtk_clist_focus_row);
1717 DEFSUBR (Fgtk_clist_sort_type);
1718 DEFSUBR (Fgtk_clist_vadjustment);
1719 DEFSUBR (Fgtk_clist_hadjustment);
1720 DEFSUBR (Fgtk_clist_columns);
1721 DEFSUBR (Fgtk_clist_rows);
1722 DEFSUBR (Fgtk_paned_child2_shrink);
1723 DEFSUBR (Fgtk_paned_child1_shrink);
1724 DEFSUBR (Fgtk_paned_child2_resize);
1725 DEFSUBR (Fgtk_paned_child1_resize);
1726 DEFSUBR (Fgtk_paned_child2);
1727 DEFSUBR (Fgtk_paned_child1);
1728 DEFSUBR (Fgtk_object_ref_count);
1729 DEFSUBR (Fgtk_object_flags);
1730 DEFSUBR (Fgtk_plug_same_app);
1731 DEFSUBR (Fgtk_plug_socket_window);
1732 DEFSUBR (Fgtk_input_dialog_save_button);
1733 DEFSUBR (Fgtk_input_dialog_close_button);
1734 DEFSUBR (Fgtk_dialog_action_area);
1735 DEFSUBR (Fgtk_dialog_vbox);
1736 DEFSUBR (Fgtk_color_selection_dialog_help_button);
1737 DEFSUBR (Fgtk_color_selection_dialog_cancel_button);
1738 DEFSUBR (Fgtk_color_selection_dialog_reset_button);
1739 DEFSUBR (Fgtk_color_selection_dialog_ok_button);
1740 DEFSUBR (Fgtk_color_selection_dialog_main_vbox);
1741 DEFSUBR (Fgtk_color_selection_dialog_colorsel);
1742 DEFSUBR (Fgtk_font_selection_dialog_cancel_button);
1743 DEFSUBR (Fgtk_font_selection_dialog_apply_button);
1744 DEFSUBR (Fgtk_font_selection_dialog_ok_button);
1745 DEFSUBR (Fgtk_font_selection_dialog_action_area);
1746 DEFSUBR (Fgtk_font_selection_dialog_main_vbox);
1747 DEFSUBR (Fgtk_font_selection_dialog_fontsel);
1748 DEFSUBR (Fgtk_file_selection_action_area);
1749 DEFSUBR (Fgtk_file_selection_help_button);
1750 DEFSUBR (Fgtk_file_selection_cancel_button);
1751 DEFSUBR (Fgtk_file_selection_ok_button);
1752 DEFSUBR (Fgtk_file_selection_main_vbox);
1753 DEFSUBR (Fgtk_file_selection_selection_text);
1754 DEFSUBR (Fgtk_file_selection_selection_entry);
1755 DEFSUBR (Fgtk_file_selection_file_list);
1756 DEFSUBR (Fgtk_file_selection_dir_list);
1757 DEFSUBR (Fgtk_text_vadj);
1758 DEFSUBR (Fgtk_text_hadj);
1759 DEFSUBR (Fgtk_notebook_tab_pos);
1760 DEFSUBR (Fgtk_check_menu_item_active);
1761 DEFSUBR (Fgtk_gamma_curve_gamma_text);
1762 DEFSUBR (Fgtk_gamma_curve_gamma_dialog);
1763 DEFSUBR (Fgtk_gamma_curve_gamma);
1764 DEFSUBR (Fgtk_gamma_curve_curve);
1765 DEFSUBR (Fgtk_gamma_curve_table);
1766 DEFSUBR (Fgtk_combo_list);
1767 DEFSUBR (Fgtk_combo_popwin);
1768 DEFSUBR (Fgtk_combo_popup);
1769 DEFSUBR (Fgtk_combo_button);
1770 DEFSUBR (Fgtk_combo_entry);
1771 DEFSUBR (Fgtk_button_button_down);
1772 DEFSUBR (Fgtk_button_in_button);
1773 DEFSUBR (Fgtk_button_child);
1774 DEFSUBR (Fgtk_widget_parent);
1775 DEFSUBR (Fgtk_widget_name);
1776 DEFSUBR (Fgtk_widget_state);
1777 DEFSUBR (Fgtk_widget_window);
1778 DEFSUBR (Fgtk_widget_style);
1779 DEFSUBR (Fgtk_adjustment_page_size);
1780 DEFSUBR (Fgtk_adjustment_page_increment);
1781 DEFSUBR (Fgtk_adjustment_step_increment);
1782 DEFSUBR (Fgtk_adjustment_value);
1783 DEFSUBR (Fgtk_adjustment_upper);
1784 DEFSUBR (Fgtk_adjustment_lower);