Mercurial > hg > xemacs-beta
view src/emacs-widget-accessors.c @ 5652:cc6f0266bc36
Avoid #'delq in core Lisp, for the sake of style, a very slightly smaller binary
lisp/ChangeLog addition:
2012-05-01 Aidan Kehoe <kehoea@parhasard.net>
Avoid #'delq in core code, for the sake of style and a (very
slightly) smaller binary.
* behavior.el (disable-behavior):
* behavior.el (compute-behavior-group-children):
* buff-menu.el (buffers-tab-items):
* byte-optimize.el (byte-optimize-delay-constants-math):
* byte-optimize.el (byte-optimize-logmumble):
* byte-optimize.el (byte-decompile-bytecode-1):
* byte-optimize.el (byte-optimize-lapcode):
* bytecomp.el:
* bytecomp.el (byte-compile-arglist-warn):
* bytecomp.el (byte-compile-warn-about-unresolved-functions):
* bytecomp.el (byte-compile-lambda):
* bytecomp.el (byte-compile-out-toplevel):
* bytecomp.el (byte-compile-insert):
* bytecomp.el (byte-compile-defalias-warn):
* cl-macs.el (cl-upcase-arg):
* cl-macs.el (cl-transform-lambda):
* cl-macs.el (cl-do-proclaim):
* cl-macs.el (defstruct):
* cl-macs.el (cl-make-type-test):
* cl-macs.el (define-compiler-macro):
* cl-macs.el (delete-duplicates):
* cus-edit.el (widget-face-value-delete):
* cus-edit.el (face-history):
* easymenu.el (easy-menu-remove):
* files.el (files-fetch-hook-value):
* files.el (file-expand-wildcards):
* font-lock.el (font-lock-update-removed-keyword-alist):
* font-lock.el (font-lock-remove-keywords):
* frame.el (frame-initialize):
* frame.el (frame-notice-user-settings):
* frame.el (set-frame-font):
* frame.el (delete-other-frames):
* frame.el (get-frame-for-buffer-noselect):
* gnuserv.el (gnuserv-kill-buffer-function):
* gnuserv.el (gnuserv-check-device):
* gnuserv.el (gnuserv-kill-client):
* gnuserv.el (gnuserv-buffer-done-1):
* gtk-font-menu.el (gtk-reset-device-font-menus):
* gutter-items.el (buffers-tab-items):
* gutter.el (set-gutter-element-visible-p):
* info.el (Info-find-file-node):
* info.el (Info-history-add):
* info.el (Info-build-annotation-completions):
* info.el (Info-index):
* info.el (Info-reannotate-node):
* itimer.el (delete-itimer):
* itimer.el (start-itimer):
* lib-complete.el (lib-complete:cache-completions):
* loadhist.el (unload-feature):
* menubar-items.el (build-buffers-menu-internal):
* menubar.el (delete-menu-item):
* menubar.el (relabel-menu-item):
* msw-font-menu.el (mswindows-reset-device-font-menus):
* mule/make-coding-system.el (fixed-width-generate-helper):
* next-error.el (next-error-find-buffer):
* obsolete.el:
* obsolete.el (find-non-ascii-charset-string):
* obsolete.el (find-non-ascii-charset-region):
* occur.el (multi-occur-by-filename-regexp):
* occur.el (occur-1):
* packages.el (packages-package-hierarchy-directory-names):
* packages.el (package-get-key-1):
* process.el (setenv):
* simple.el (undo):
* simple.el (handle-pre-motion-command-current-command-is-motion):
* sound.el (load-sound-file):
* wid-edit.el (widget-field-value-delete):
* wid-edit.el (widget-checklist-match-inline):
* wid-edit.el (widget-checklist-match-find):
* wid-edit.el (widget-editable-list-delete-at):
* wid-edit.el (widget-editable-list-entry-create):
* window.el (quit-window):
* x-font-menu.el (x-reset-device-font-menus-core):
1. Replace (delq nil (mapcar ....)) with analogous (mapcan ...)
forms; this is in non-dumped files, it was done previously in
dumped files.
2. Replace (delq FOO (copy-sequence BAR)) with (remove* FOO BAR),
where #'eq and #'eql are equivalent
3. Replace (delq FOO BAR) with (delete* FOO BAR), where FOO is not
a non-fixnum number. Saves a little space in the dumped file
(since the compiler macro adds :test #'eq to the delete* call if
it's not clear that FOO is not a non-fixnum number).
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Tue, 01 May 2012 16:17:42 +0100 |
parents | 37fe04af1590 |
children |
line wrap: on
line source
/* This file was automatically generated by ../lisp/gtk-widget-accessors.el */ /* DO NOT EDIT BY HAND!!! */ DEFUN ("gtk-adjustment-lower", Fgtk_adjustment_lower, 1, 1, 0, /* Access the `lower' slot of OBJ, a GtkAdjustment object. */ (obj)) { GtkAdjustment *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_ADJUSTMENT (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkAdjustment", obj); }; the_obj = GTK_ADJUSTMENT (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gfloat"); GTK_VALUE_FLOAT (arg) = the_obj->lower; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-adjustment-upper", Fgtk_adjustment_upper, 1, 1, 0, /* Access the `upper' slot of OBJ, a GtkAdjustment object. */ (obj)) { GtkAdjustment *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_ADJUSTMENT (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkAdjustment", obj); }; the_obj = GTK_ADJUSTMENT (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gfloat"); GTK_VALUE_FLOAT (arg) = the_obj->upper; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-adjustment-value", Fgtk_adjustment_value, 1, 1, 0, /* Access the `value' slot of OBJ, a GtkAdjustment object. */ (obj)) { GtkAdjustment *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_ADJUSTMENT (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkAdjustment", obj); }; the_obj = GTK_ADJUSTMENT (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gfloat"); GTK_VALUE_FLOAT (arg) = the_obj->value; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-adjustment-step-increment", Fgtk_adjustment_step_increment, 1, 1, 0, /* Access the `step_increment' slot of OBJ, a GtkAdjustment object. */ (obj)) { GtkAdjustment *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_ADJUSTMENT (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkAdjustment", obj); }; the_obj = GTK_ADJUSTMENT (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gfloat"); GTK_VALUE_FLOAT (arg) = the_obj->step_increment; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-adjustment-page-increment", Fgtk_adjustment_page_increment, 1, 1, 0, /* Access the `page_increment' slot of OBJ, a GtkAdjustment object. */ (obj)) { GtkAdjustment *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_ADJUSTMENT (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkAdjustment", obj); }; the_obj = GTK_ADJUSTMENT (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gfloat"); GTK_VALUE_FLOAT (arg) = the_obj->page_increment; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-adjustment-page-size", Fgtk_adjustment_page_size, 1, 1, 0, /* Access the `page_size' slot of OBJ, a GtkAdjustment object. */ (obj)) { GtkAdjustment *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_ADJUSTMENT (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkAdjustment", obj); }; the_obj = GTK_ADJUSTMENT (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gfloat"); GTK_VALUE_FLOAT (arg) = the_obj->page_size; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-widget-style", Fgtk_widget_style, 1, 1, 0, /* Access the `style' slot of OBJ, a GtkWidget object. */ (obj)) { GtkWidget *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_WIDGET (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkWidget", obj); }; the_obj = GTK_WIDGET (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkStyle"); GTK_VALUE_BOXED (arg) = (void *)the_obj->style; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-widget-window", Fgtk_widget_window, 1, 1, 0, /* Access the `window' slot of OBJ, a GtkWidget object. */ (obj)) { GtkWidget *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_WIDGET (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkWidget", obj); }; the_obj = GTK_WIDGET (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GdkWindow"); GTK_VALUE_BOXED (arg) = (void *)the_obj->window; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-widget-state", Fgtk_widget_state, 1, 1, 0, /* Access the `state' slot of OBJ, a GtkWidget object. */ (obj)) { GtkWidget *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_WIDGET (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkWidget", obj); }; the_obj = GTK_WIDGET (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkStateType"); GTK_VALUE_ENUM (arg) = the_obj->state; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-widget-name", Fgtk_widget_name, 1, 1, 0, /* Access the `name' slot of OBJ, a GtkWidget object. */ (obj)) { GtkWidget *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_WIDGET (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkWidget", obj); }; the_obj = GTK_WIDGET (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkString"); GTK_VALUE_STRING (arg) = the_obj->name; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-widget-parent", Fgtk_widget_parent, 1, 1, 0, /* Access the `parent' slot of OBJ, a GtkWidget object. */ (obj)) { GtkWidget *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_WIDGET (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkWidget", obj); }; the_obj = GTK_WIDGET (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->parent); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-button-child", Fgtk_button_child, 1, 1, 0, /* Access the `child' slot of OBJ, a GtkButton object. */ (obj)) { GtkButton *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_BUTTON (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkButton", obj); }; the_obj = GTK_BUTTON (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->child); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-button-in-button", Fgtk_button_in_button, 1, 1, 0, /* Access the `in_button' slot of OBJ, a GtkButton object. */ (obj)) { GtkButton *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_BUTTON (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkButton", obj); }; the_obj = GTK_BUTTON (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gboolean"); GTK_VALUE_BOOL (arg) = the_obj->in_button; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-button-button-down", Fgtk_button_button_down, 1, 1, 0, /* Access the `button_down' slot of OBJ, a GtkButton object. */ (obj)) { GtkButton *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_BUTTON (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkButton", obj); }; the_obj = GTK_BUTTON (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gboolean"); GTK_VALUE_BOOL (arg) = the_obj->button_down; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-combo-entry", Fgtk_combo_entry, 1, 1, 0, /* Access the `entry' slot of OBJ, a GtkCombo object. */ (obj)) { GtkCombo *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_COMBO (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkCombo", obj); }; the_obj = GTK_COMBO (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->entry); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-combo-button", Fgtk_combo_button, 1, 1, 0, /* Access the `button' slot of OBJ, a GtkCombo object. */ (obj)) { GtkCombo *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_COMBO (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkCombo", obj); }; the_obj = GTK_COMBO (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->button); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-combo-popup", Fgtk_combo_popup, 1, 1, 0, /* Access the `popup' slot of OBJ, a GtkCombo object. */ (obj)) { GtkCombo *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_COMBO (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkCombo", obj); }; the_obj = GTK_COMBO (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->popup); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-combo-popwin", Fgtk_combo_popwin, 1, 1, 0, /* Access the `popwin' slot of OBJ, a GtkCombo object. */ (obj)) { GtkCombo *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_COMBO (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkCombo", obj); }; the_obj = GTK_COMBO (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->popwin); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-combo-list", Fgtk_combo_list, 1, 1, 0, /* Access the `list' slot of OBJ, a GtkCombo object. */ (obj)) { GtkCombo *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_COMBO (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkCombo", obj); }; the_obj = GTK_COMBO (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->list); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-gamma-curve-table", Fgtk_gamma_curve_table, 1, 1, 0, /* Access the `table' slot of OBJ, a GtkGammaCurve object. */ (obj)) { GtkGammaCurve *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_GAMMA_CURVE (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkGammaCurve", obj); }; the_obj = GTK_GAMMA_CURVE (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->table); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-gamma-curve-curve", Fgtk_gamma_curve_curve, 1, 1, 0, /* Access the `curve' slot of OBJ, a GtkGammaCurve object. */ (obj)) { GtkGammaCurve *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_GAMMA_CURVE (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkGammaCurve", obj); }; the_obj = GTK_GAMMA_CURVE (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->curve); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-gamma-curve-gamma", Fgtk_gamma_curve_gamma, 1, 1, 0, /* Access the `gamma' slot of OBJ, a GtkGammaCurve object. */ (obj)) { GtkGammaCurve *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_GAMMA_CURVE (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkGammaCurve", obj); }; the_obj = GTK_GAMMA_CURVE (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gfloat"); GTK_VALUE_FLOAT (arg) = the_obj->gamma; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-gamma-curve-gamma-dialog", Fgtk_gamma_curve_gamma_dialog, 1, 1, 0, /* Access the `gamma_dialog' slot of OBJ, a GtkGammaCurve object. */ (obj)) { GtkGammaCurve *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_GAMMA_CURVE (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkGammaCurve", obj); }; the_obj = GTK_GAMMA_CURVE (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->gamma_dialog); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-gamma-curve-gamma-text", Fgtk_gamma_curve_gamma_text, 1, 1, 0, /* Access the `gamma_text' slot of OBJ, a GtkGammaCurve object. */ (obj)) { GtkGammaCurve *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_GAMMA_CURVE (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkGammaCurve", obj); }; the_obj = GTK_GAMMA_CURVE (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->gamma_text); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-check-menu-item-active", Fgtk_check_menu_item_active, 1, 1, 0, /* Access the `active' slot of OBJ, a GtkCheckMenuItem object. */ (obj)) { GtkCheckMenuItem *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_CHECK_MENU_ITEM (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkCheckMenuItem", obj); }; the_obj = GTK_CHECK_MENU_ITEM (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gboolean"); GTK_VALUE_BOOL (arg) = the_obj->active; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-notebook-tab-pos", Fgtk_notebook_tab_pos, 1, 1, 0, /* Access the `tab_pos' slot of OBJ, a GtkNotebook object. */ (obj)) { GtkNotebook *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_NOTEBOOK (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkNotebook", obj); }; the_obj = GTK_NOTEBOOK (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkPositionType"); GTK_VALUE_ENUM (arg) = the_obj->tab_pos; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-text-hadj", Fgtk_text_hadj, 1, 1, 0, /* Access the `hadj' slot of OBJ, a GtkText object. */ (obj)) { GtkText *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_TEXT (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkText", obj); }; the_obj = GTK_TEXT (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkAdjustment"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->hadj); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-text-vadj", Fgtk_text_vadj, 1, 1, 0, /* Access the `vadj' slot of OBJ, a GtkText object. */ (obj)) { GtkText *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_TEXT (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkText", obj); }; the_obj = GTK_TEXT (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkAdjustment"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->vadj); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-file-selection-dir-list", Fgtk_file_selection_dir_list, 1, 1, 0, /* Access the `dir_list' slot of OBJ, a GtkFileSelection object. */ (obj)) { GtkFileSelection *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkFileSelection", obj); }; the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->dir_list); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-file-selection-file-list", Fgtk_file_selection_file_list, 1, 1, 0, /* Access the `file_list' slot of OBJ, a GtkFileSelection object. */ (obj)) { GtkFileSelection *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkFileSelection", obj); }; the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->file_list); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-file-selection-selection-entry", Fgtk_file_selection_selection_entry, 1, 1, 0, /* Access the `selection_entry' slot of OBJ, a GtkFileSelection object. */ (obj)) { GtkFileSelection *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkFileSelection", obj); }; the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->selection_entry); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-file-selection-selection-text", Fgtk_file_selection_selection_text, 1, 1, 0, /* Access the `selection_text' slot of OBJ, a GtkFileSelection object. */ (obj)) { GtkFileSelection *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkFileSelection", obj); }; the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->selection_text); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-file-selection-main-vbox", Fgtk_file_selection_main_vbox, 1, 1, 0, /* Access the `main_vbox' slot of OBJ, a GtkFileSelection object. */ (obj)) { GtkFileSelection *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkFileSelection", obj); }; the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->main_vbox); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-file-selection-ok-button", Fgtk_file_selection_ok_button, 1, 1, 0, /* Access the `ok_button' slot of OBJ, a GtkFileSelection object. */ (obj)) { GtkFileSelection *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkFileSelection", obj); }; the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->ok_button); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-file-selection-cancel-button", Fgtk_file_selection_cancel_button, 1, 1, 0, /* Access the `cancel_button' slot of OBJ, a GtkFileSelection object. */ (obj)) { GtkFileSelection *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkFileSelection", obj); }; the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->cancel_button); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-file-selection-help-button", Fgtk_file_selection_help_button, 1, 1, 0, /* Access the `help_button' slot of OBJ, a GtkFileSelection object. */ (obj)) { GtkFileSelection *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkFileSelection", obj); }; the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->help_button); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-file-selection-action-area", Fgtk_file_selection_action_area, 1, 1, 0, /* Access the `action_area' slot of OBJ, a GtkFileSelection object. */ (obj)) { GtkFileSelection *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_FILE_SELECTION (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkFileSelection", obj); }; the_obj = GTK_FILE_SELECTION (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->action_area); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-font-selection-dialog-fontsel", Fgtk_font_selection_dialog_fontsel, 1, 1, 0, /* Access the `fontsel' slot of OBJ, a GtkFontSelectionDialog object. */ (obj)) { GtkFontSelectionDialog *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkFontSelectionDialog", obj); }; the_obj = GTK_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->fontsel); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-font-selection-dialog-main-vbox", Fgtk_font_selection_dialog_main_vbox, 1, 1, 0, /* Access the `main_vbox' slot of OBJ, a GtkFontSelectionDialog object. */ (obj)) { GtkFontSelectionDialog *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkFontSelectionDialog", obj); }; the_obj = GTK_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->main_vbox); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-font-selection-dialog-action-area", Fgtk_font_selection_dialog_action_area, 1, 1, 0, /* Access the `action_area' slot of OBJ, a GtkFontSelectionDialog object. */ (obj)) { GtkFontSelectionDialog *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkFontSelectionDialog", obj); }; the_obj = GTK_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->action_area); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-font-selection-dialog-ok-button", Fgtk_font_selection_dialog_ok_button, 1, 1, 0, /* Access the `ok_button' slot of OBJ, a GtkFontSelectionDialog object. */ (obj)) { GtkFontSelectionDialog *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkFontSelectionDialog", obj); }; the_obj = GTK_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->ok_button); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-font-selection-dialog-apply-button", Fgtk_font_selection_dialog_apply_button, 1, 1, 0, /* Access the `apply_button' slot of OBJ, a GtkFontSelectionDialog object. */ (obj)) { GtkFontSelectionDialog *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkFontSelectionDialog", obj); }; the_obj = GTK_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->apply_button); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-font-selection-dialog-cancel-button", Fgtk_font_selection_dialog_cancel_button, 1, 1, 0, /* Access the `cancel_button' slot of OBJ, a GtkFontSelectionDialog object. */ (obj)) { GtkFontSelectionDialog *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkFontSelectionDialog", obj); }; the_obj = GTK_FONT_SELECTION_DIALOG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->cancel_button); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-color-selection-dialog-colorsel", Fgtk_color_selection_dialog_colorsel, 1, 1, 0, /* Access the `colorsel' slot of OBJ, a GtkColorSelectionDialog object. */ (obj)) { GtkColorSelectionDialog *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkColorSelectionDialog", obj); }; the_obj = GTK_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->colorsel); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-color-selection-dialog-main-vbox", Fgtk_color_selection_dialog_main_vbox, 1, 1, 0, /* Access the `main_vbox' slot of OBJ, a GtkColorSelectionDialog object. */ (obj)) { GtkColorSelectionDialog *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkColorSelectionDialog", obj); }; the_obj = GTK_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->main_vbox); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-color-selection-dialog-ok-button", Fgtk_color_selection_dialog_ok_button, 1, 1, 0, /* Access the `ok_button' slot of OBJ, a GtkColorSelectionDialog object. */ (obj)) { GtkColorSelectionDialog *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkColorSelectionDialog", obj); }; the_obj = GTK_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->ok_button); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-color-selection-dialog-reset-button", Fgtk_color_selection_dialog_reset_button, 1, 1, 0, /* Access the `reset_button' slot of OBJ, a GtkColorSelectionDialog object. */ (obj)) { GtkColorSelectionDialog *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkColorSelectionDialog", obj); }; the_obj = GTK_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->reset_button); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-color-selection-dialog-cancel-button", Fgtk_color_selection_dialog_cancel_button, 1, 1, 0, /* Access the `cancel_button' slot of OBJ, a GtkColorSelectionDialog object. */ (obj)) { GtkColorSelectionDialog *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkColorSelectionDialog", obj); }; the_obj = GTK_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->cancel_button); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-color-selection-dialog-help-button", Fgtk_color_selection_dialog_help_button, 1, 1, 0, /* Access the `help_button' slot of OBJ, a GtkColorSelectionDialog object. */ (obj)) { GtkColorSelectionDialog *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkColorSelectionDialog", obj); }; the_obj = GTK_COLOR_SELECTION_DIALOG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->help_button); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-dialog-vbox", Fgtk_dialog_vbox, 1, 1, 0, /* Access the `vbox' slot of OBJ, a GtkDialog object. */ (obj)) { GtkDialog *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_DIALOG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkDialog", obj); }; the_obj = GTK_DIALOG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->vbox); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-dialog-action-area", Fgtk_dialog_action_area, 1, 1, 0, /* Access the `action_area' slot of OBJ, a GtkDialog object. */ (obj)) { GtkDialog *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_DIALOG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkDialog", obj); }; the_obj = GTK_DIALOG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->action_area); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-input-dialog-close-button", Fgtk_input_dialog_close_button, 1, 1, 0, /* Access the `close_button' slot of OBJ, a GtkInputDialog object. */ (obj)) { GtkInputDialog *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_INPUT_DIALOG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkInputDialog", obj); }; the_obj = GTK_INPUT_DIALOG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->close_button); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-input-dialog-save-button", Fgtk_input_dialog_save_button, 1, 1, 0, /* Access the `save_button' slot of OBJ, a GtkInputDialog object. */ (obj)) { GtkInputDialog *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_INPUT_DIALOG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkInputDialog", obj); }; the_obj = GTK_INPUT_DIALOG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->save_button); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-plug-socket-window", Fgtk_plug_socket_window, 1, 1, 0, /* Access the `socket_window' slot of OBJ, a GtkPlug object. */ (obj)) { GtkPlug *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_PLUG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkPlug", obj); }; the_obj = GTK_PLUG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GdkWindow"); GTK_VALUE_BOXED (arg) = (void *)the_obj->socket_window; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-plug-same-app", Fgtk_plug_same_app, 1, 1, 0, /* Access the `same_app' slot of OBJ, a GtkPlug object. */ (obj)) { GtkPlug *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_PLUG (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkPlug", obj); }; the_obj = GTK_PLUG (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gint"); GTK_VALUE_INT (arg) = the_obj->same_app; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-object-flags", Fgtk_object_flags, 1, 1, 0, /* Access the `flags' slot of OBJ, a GtkObject object. */ (obj)) { GtkObject *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_OBJECT (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkObject", obj); }; the_obj = GTK_OBJECT (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("guint"); GTK_VALUE_UINT (arg) = the_obj->flags; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-object-ref-count", Fgtk_object_ref_count, 1, 1, 0, /* Access the `ref_count' slot of OBJ, a GtkObject object. */ (obj)) { GtkObject *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_OBJECT (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkObject", obj); }; the_obj = GTK_OBJECT (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("guint"); GTK_VALUE_UINT (arg) = the_obj->ref_count; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-paned-child1", Fgtk_paned_child1, 1, 1, 0, /* Access the `child1' slot of OBJ, a GtkPaned object. */ (obj)) { GtkPaned *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_PANED (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkPaned", obj); }; the_obj = GTK_PANED (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->child1); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-paned-child2", Fgtk_paned_child2, 1, 1, 0, /* Access the `child2' slot of OBJ, a GtkPaned object. */ (obj)) { GtkPaned *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_PANED (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkPaned", obj); }; the_obj = GTK_PANED (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->child2); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-paned-child1-resize", Fgtk_paned_child1_resize, 1, 1, 0, /* Access the `child1_resize' slot of OBJ, a GtkPaned object. */ (obj)) { GtkPaned *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_PANED (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkPaned", obj); }; the_obj = GTK_PANED (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gboolean"); GTK_VALUE_BOOL (arg) = the_obj->child1_resize; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-paned-child2-resize", Fgtk_paned_child2_resize, 1, 1, 0, /* Access the `child2_resize' slot of OBJ, a GtkPaned object. */ (obj)) { GtkPaned *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_PANED (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkPaned", obj); }; the_obj = GTK_PANED (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gboolean"); GTK_VALUE_BOOL (arg) = the_obj->child2_resize; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-paned-child1-shrink", Fgtk_paned_child1_shrink, 1, 1, 0, /* Access the `child1_shrink' slot of OBJ, a GtkPaned object. */ (obj)) { GtkPaned *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_PANED (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkPaned", obj); }; the_obj = GTK_PANED (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gboolean"); GTK_VALUE_BOOL (arg) = the_obj->child1_shrink; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-paned-child2-shrink", Fgtk_paned_child2_shrink, 1, 1, 0, /* Access the `child2_shrink' slot of OBJ, a GtkPaned object. */ (obj)) { GtkPaned *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_PANED (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkPaned", obj); }; the_obj = GTK_PANED (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gboolean"); GTK_VALUE_BOOL (arg) = the_obj->child2_shrink; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-clist-rows", Fgtk_clist_rows, 1, 1, 0, /* Access the `rows' slot of OBJ, a GtkCList object. */ (obj)) { GtkCList *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_CLIST (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkCList", obj); }; the_obj = GTK_CLIST (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gint"); GTK_VALUE_INT (arg) = the_obj->rows; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-clist-columns", Fgtk_clist_columns, 1, 1, 0, /* Access the `columns' slot of OBJ, a GtkCList object. */ (obj)) { GtkCList *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_CLIST (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkCList", obj); }; the_obj = GTK_CLIST (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gint"); GTK_VALUE_INT (arg) = the_obj->columns; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-clist-hadjustment", Fgtk_clist_hadjustment, 1, 1, 0, /* Access the `hadjustment' slot of OBJ, a GtkCList object. */ (obj)) { GtkCList *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_CLIST (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkCList", obj); }; the_obj = GTK_CLIST (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkAdjustment"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->hadjustment); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-clist-vadjustment", Fgtk_clist_vadjustment, 1, 1, 0, /* Access the `vadjustment' slot of OBJ, a GtkCList object. */ (obj)) { GtkCList *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_CLIST (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkCList", obj); }; the_obj = GTK_CLIST (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkAdjustment"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->vadjustment); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-clist-sort-type", Fgtk_clist_sort_type, 1, 1, 0, /* Access the `sort_type' slot of OBJ, a GtkCList object. */ (obj)) { GtkCList *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_CLIST (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkCList", obj); }; the_obj = GTK_CLIST (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkSortType"); GTK_VALUE_ENUM (arg) = the_obj->sort_type; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-clist-focus-row", Fgtk_clist_focus_row, 1, 1, 0, /* Access the `focus_row' slot of OBJ, a GtkCList object. */ (obj)) { GtkCList *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_CLIST (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkCList", obj); }; the_obj = GTK_CLIST (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gint"); GTK_VALUE_INT (arg) = the_obj->focus_row; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-clist-sort-column", Fgtk_clist_sort_column, 1, 1, 0, /* Access the `sort_column' slot of OBJ, a GtkCList object. */ (obj)) { GtkCList *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_CLIST (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkCList", obj); }; the_obj = GTK_CLIST (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gint"); GTK_VALUE_INT (arg) = the_obj->sort_column; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-list-children", Fgtk_list_children, 1, 1, 0, /* Access the `children' slot of OBJ, a GtkList object. */ (obj)) { GtkList *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_LIST (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkList", obj); }; the_obj = GTK_LIST (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkListOfObject"); GTK_VALUE_POINTER (arg) = the_obj->children; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-list-selection", Fgtk_list_selection, 1, 1, 0, /* Access the `selection' slot of OBJ, a GtkList object. */ (obj)) { GtkList *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_LIST (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkList", obj); }; the_obj = GTK_LIST (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkListOfObject"); GTK_VALUE_POINTER (arg) = the_obj->selection; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-tree-children", Fgtk_tree_children, 1, 1, 0, /* Access the `children' slot of OBJ, a GtkTree object. */ (obj)) { GtkTree *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_TREE (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkTree", obj); }; the_obj = GTK_TREE (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkListOfObject"); GTK_VALUE_POINTER (arg) = the_obj->children; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-tree-root-tree", Fgtk_tree_root_tree, 1, 1, 0, /* Access the `root_tree' slot of OBJ, a GtkTree object. */ (obj)) { GtkTree *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_TREE (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkTree", obj); }; the_obj = GTK_TREE (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkTree"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->root_tree); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-tree-tree-owner", Fgtk_tree_tree_owner, 1, 1, 0, /* Access the `tree_owner' slot of OBJ, a GtkTree object. */ (obj)) { GtkTree *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_TREE (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkTree", obj); }; the_obj = GTK_TREE (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->tree_owner); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-tree-selection", Fgtk_tree_selection, 1, 1, 0, /* Access the `selection' slot of OBJ, a GtkTree object. */ (obj)) { GtkTree *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_TREE (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkTree", obj); }; the_obj = GTK_TREE (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkListOfObject"); GTK_VALUE_POINTER (arg) = the_obj->selection; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-tree-item-subtree", Fgtk_tree_item_subtree, 1, 1, 0, /* Access the `subtree' slot of OBJ, a GtkTreeItem object. */ (obj)) { GtkTreeItem *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_TREE_ITEM (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkTreeItem", obj); }; the_obj = GTK_TREE_ITEM (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->subtree); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-scrolled-window-hscrollbar", Fgtk_scrolled_window_hscrollbar, 1, 1, 0, /* Access the `hscrollbar' slot of OBJ, a GtkScrolledWindow object. */ (obj)) { GtkScrolledWindow *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_SCROLLED_WINDOW (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkScrolledWindow", obj); }; the_obj = GTK_SCROLLED_WINDOW (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->hscrollbar); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-scrolled-window-vscrollbar", Fgtk_scrolled_window_vscrollbar, 1, 1, 0, /* Access the `vscrollbar' slot of OBJ, a GtkScrolledWindow object. */ (obj)) { GtkScrolledWindow *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_SCROLLED_WINDOW (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkScrolledWindow", obj); }; the_obj = GTK_SCROLLED_WINDOW (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("GtkWidget"); GTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->vscrollbar); return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-scrolled-window-hscrollbar-visible", Fgtk_scrolled_window_hscrollbar_visible, 1, 1, 0, /* Access the `hscrollbar_visible' slot of OBJ, a GtkScrolledWindow object. */ (obj)) { GtkScrolledWindow *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_SCROLLED_WINDOW (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkScrolledWindow", obj); }; the_obj = GTK_SCROLLED_WINDOW (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gboolean"); GTK_VALUE_BOOL (arg) = the_obj->hscrollbar_visible; return (gtk_type_to_lisp (&arg)); } DEFUN ("gtk-scrolled-window-vscrollbar-visible", Fgtk_scrolled_window_vscrollbar_visible, 1, 1, 0, /* Access the `vscrollbar_visible' slot of OBJ, a GtkScrolledWindow object. */ (obj)) { GtkScrolledWindow *the_obj = NULL; GtkArg arg; CHECK_GTK_OBJECT (obj); if (!GTK_IS_SCROLLED_WINDOW (XGTK_OBJECT (obj)->object)) { wtaerror ("Object is not a GtkScrolledWindow", obj); }; the_obj = GTK_SCROLLED_WINDOW (XGTK_OBJECT (obj)->object); arg.type = gtk_type_from_name ("gboolean"); GTK_VALUE_BOOL (arg) = the_obj->vscrollbar_visible; return (gtk_type_to_lisp (&arg)); } void syms_of_widget_accessors (void) { DEFSUBR (Fgtk_scrolled_window_vscrollbar_visible); DEFSUBR (Fgtk_scrolled_window_hscrollbar_visible); DEFSUBR (Fgtk_scrolled_window_vscrollbar); DEFSUBR (Fgtk_scrolled_window_hscrollbar); DEFSUBR (Fgtk_tree_item_subtree); DEFSUBR (Fgtk_tree_selection); DEFSUBR (Fgtk_tree_tree_owner); DEFSUBR (Fgtk_tree_root_tree); DEFSUBR (Fgtk_tree_children); DEFSUBR (Fgtk_list_selection); DEFSUBR (Fgtk_list_children); DEFSUBR (Fgtk_clist_sort_column); DEFSUBR (Fgtk_clist_focus_row); DEFSUBR (Fgtk_clist_sort_type); DEFSUBR (Fgtk_clist_vadjustment); DEFSUBR (Fgtk_clist_hadjustment); DEFSUBR (Fgtk_clist_columns); DEFSUBR (Fgtk_clist_rows); DEFSUBR (Fgtk_paned_child2_shrink); DEFSUBR (Fgtk_paned_child1_shrink); DEFSUBR (Fgtk_paned_child2_resize); DEFSUBR (Fgtk_paned_child1_resize); DEFSUBR (Fgtk_paned_child2); DEFSUBR (Fgtk_paned_child1); DEFSUBR (Fgtk_object_ref_count); DEFSUBR (Fgtk_object_flags); DEFSUBR (Fgtk_plug_same_app); DEFSUBR (Fgtk_plug_socket_window); DEFSUBR (Fgtk_input_dialog_save_button); DEFSUBR (Fgtk_input_dialog_close_button); DEFSUBR (Fgtk_dialog_action_area); DEFSUBR (Fgtk_dialog_vbox); DEFSUBR (Fgtk_color_selection_dialog_help_button); DEFSUBR (Fgtk_color_selection_dialog_cancel_button); DEFSUBR (Fgtk_color_selection_dialog_reset_button); DEFSUBR (Fgtk_color_selection_dialog_ok_button); DEFSUBR (Fgtk_color_selection_dialog_main_vbox); DEFSUBR (Fgtk_color_selection_dialog_colorsel); DEFSUBR (Fgtk_font_selection_dialog_cancel_button); DEFSUBR (Fgtk_font_selection_dialog_apply_button); DEFSUBR (Fgtk_font_selection_dialog_ok_button); DEFSUBR (Fgtk_font_selection_dialog_action_area); DEFSUBR (Fgtk_font_selection_dialog_main_vbox); DEFSUBR (Fgtk_font_selection_dialog_fontsel); DEFSUBR (Fgtk_file_selection_action_area); DEFSUBR (Fgtk_file_selection_help_button); DEFSUBR (Fgtk_file_selection_cancel_button); DEFSUBR (Fgtk_file_selection_ok_button); DEFSUBR (Fgtk_file_selection_main_vbox); DEFSUBR (Fgtk_file_selection_selection_text); DEFSUBR (Fgtk_file_selection_selection_entry); DEFSUBR (Fgtk_file_selection_file_list); DEFSUBR (Fgtk_file_selection_dir_list); DEFSUBR (Fgtk_text_vadj); DEFSUBR (Fgtk_text_hadj); DEFSUBR (Fgtk_notebook_tab_pos); DEFSUBR (Fgtk_check_menu_item_active); DEFSUBR (Fgtk_gamma_curve_gamma_text); DEFSUBR (Fgtk_gamma_curve_gamma_dialog); DEFSUBR (Fgtk_gamma_curve_gamma); DEFSUBR (Fgtk_gamma_curve_curve); DEFSUBR (Fgtk_gamma_curve_table); DEFSUBR (Fgtk_combo_list); DEFSUBR (Fgtk_combo_popwin); DEFSUBR (Fgtk_combo_popup); DEFSUBR (Fgtk_combo_button); DEFSUBR (Fgtk_combo_entry); DEFSUBR (Fgtk_button_button_down); DEFSUBR (Fgtk_button_in_button); DEFSUBR (Fgtk_button_child); DEFSUBR (Fgtk_widget_parent); DEFSUBR (Fgtk_widget_name); DEFSUBR (Fgtk_widget_state); DEFSUBR (Fgtk_widget_window); DEFSUBR (Fgtk_widget_style); DEFSUBR (Fgtk_adjustment_page_size); DEFSUBR (Fgtk_adjustment_page_increment); DEFSUBR (Fgtk_adjustment_step_increment); DEFSUBR (Fgtk_adjustment_value); DEFSUBR (Fgtk_adjustment_upper); DEFSUBR (Fgtk_adjustment_lower); }