Mercurial > hg > xemacs-beta
annotate lisp/gtk-widget-accessors.el @ 4953:304aebb79cd3
function renamings to track names of char typedefs
-------------------- ChangeLog entries follow: --------------------
man/ChangeLog addition:
2010-01-27 Ben Wing <ben@xemacs.org>
* internals/internals.texi (lrecords):
* internals/internals.texi (The DFC API):
* internals/internals.texi (Conversion to and from External Data):
* internals/internals.texi (Mule-izing Code):
* internals/internals.texi (Pervasive changes throughout XEmacs sources):
* internals/internals.texi (Ben's README):
* internals/internals.texi (Future Work -- Localized Text/Messages):
* emodules.texi (Defining Variables):
Rename:
write_c_string -> write_cistring
build_intstring -> build_istring
build_string -> build_cistring
build_ext_string -> build_extstring
make_ext_string -> make_extstring
buffer_insert_c_string -> buffer_insert_ascstring
intern_int -> intern_istring
See comment in src/ChangeLog about this.
modules/ChangeLog addition:
2010-01-27 Ben Wing <ben@xemacs.org>
* postgresql/postgresql.c (print_pgconn):
* postgresql/postgresql.c (print_pgresult):
* postgresql/postgresql.c (Fpq_conn_defaults):
* postgresql/postgresql.c (Fpq_pgconn):
* postgresql/postgresql.c (Fpq_res_status):
* postgresql/postgresql.c (Fpq_result_error_message):
* postgresql/postgresql.c (Fpq_fname):
* postgresql/postgresql.c (Fpq_get_value):
* postgresql/postgresql.c (Fpq_cmd_status):
* postgresql/postgresql.c (Fpq_cmd_tuples):
* postgresql/postgresql.c (Fpq_notifies):
* postgresql/postgresql.c (Fpq_get_line):
* postgresql/postgresql.c (Fpq_get_line_async):
* postgresql/postgresql.c (FROB):
* postgresql/postgresql.c (init_postgresql_from_environment):
* ldap/eldap.c:
* ldap/eldap.c (Fldap_open):
* ldap/eldap.c (Fldap_search_basic):
* canna/canna_api.c:
* canna/canna_api.c (make_euc_string):
Rename:
write_c_string -> write_cistring
build_intstring -> build_istring
build_string -> build_cistring
build_ext_string -> build_extstring
make_ext_string -> make_extstring
buffer_insert_c_string -> buffer_insert_ascstring
intern_int -> intern_istring
See comment in src/ChangeLog about this.
src/ChangeLog addition:
2010-01-27 Ben Wing <ben@xemacs.org>
* .gdbinit.in.in:
* README:
* abbrev.c (write_abbrev):
* abbrev.c (describe_abbrev):
* alloc.c (make_extstring):
* alloc.c (build_istring):
* alloc.c (build_cistring):
* alloc.c (build_ascstring):
* alloc.c (build_extstring):
* alloc.c (build_msg_istring):
* alloc.c (build_defer_istring):
* buffer.c (Fgenerate_new_buffer_name):
* buffer.c (init_buffer_2):
* console-tty.c (tty_init_console):
* console-x.c (get_display_arg_connection):
* console-x.c (x_perhaps_init_unseen_key_defaults):
* database.c (dbm_map):
* database.c (dbm_get):
* database.c (berkdb_get):
* database.c (berkdb_map):
* device-gtk.c (FROB_PIXMAP):
* device-gtk.c (Fgtk_style_info):
* device-msw.c (msprinter_default_printer):
* device-msw.c (sync_printer_with_devmode):
* device-x.c (coding_system_of_xrm_database):
* device-x.c (x_init_device):
* device-x.c (signal_if_x_error):
* device-x.c (Fx_get_resource):
* device-x.c (Fx_server_vendor):
* device-x.c (Fx_get_font_path):
* dialog-x.c (maybe_run_dbox_text_callback):
* doc.c (extract_object_file_name):
* doc.c (unparesseuxify_doc_string):
* doc.c (get_doc_string):
* doc.c (get_object_file_name):
* doc.c (Fdocumentation):
* doc.c (Fsnarf_documentation):
* doc.c (Fsubstitute_command_keys):
* editfns.c (init_editfns):
* editfns.c (Ftemp_directory):
* editfns.c (Fuser_login_name):
* editfns.c (Fuser_real_login_name):
* editfns.c (Fuser_home_directory):
* editfns.c (Fformat_time_string):
* editfns.c (Fcurrent_time_string):
* editfns.c (Fcurrent_time_zone):
* emacs.c:
* emacs.c (main_1):
* emodules.c (Flist_modules):
* emodules.c (emodules_load):
* emodules.c (emodules_doc_sym):
* emodules.c (vars_of_module):
* event-Xt.c (x_has_keysym):
* event-gtk.c (emacs_gtk_format_magic_event):
* event-gtk.c (dragndrop_data_received):
* event-gtk.c (gtk_reset_key_mapping):
* event-msw.c (mswindows_dde_callback):
* event-msw.c (mswindows_wnd_proc):
* faces.c (complex_vars_of_faces):
* file-coding.c (find_coding_system):
* file-coding.c (setup_eol_coding_systems):
* file-coding.c (make_coding_system_1):
* file-coding.c (snarf_coding_system):
* fileio.c:
* fileio.c (lisp_strerror):
* fileio.c (Ffile_name_directory):
* fileio.c (Ffile_name_as_directory):
* fileio.c (Fdirectory_file_name):
* fileio.c (if):
* fileio.c (Ffile_symlink_p):
* fileio.c (Fencrypt_string):
* fileio.c (Fdecrypt_string):
* filelock.c (lock_file):
* filelock.c (Ffile_locked_p):
* floatfns.c (matherr):
* font-mgr.c (build_fcapi_string):
* font-mgr.c (make_xlfd_font_regexp):
* frame-msw.c (mswindows_window_id):
* frame-msw.c (mswindows_frame_property):
* frame-x.c:
* frame-x.c (color_to_string):
* frame-x.c (maybe_set_frame_title_format):
* frame-x.c (x_cde_transfer_callback):
* frame-x.c (Fx_window_id):
* glade.c (connector):
* glade.c (Fglade_xml_textdomain):
* glade.c (syms_of_glade):
* glyphs-eimage.c (jpeg_instantiate):
* glyphs-eimage.c (png_instantiate):
* glyphs-eimage.c (tiff_instantiate):
* glyphs-gtk.c (font_instantiate):
* glyphs-gtk.c (BUILD_GLYPH_INST):
* glyphs-x.c (x_locate_pixmap_file):
* glyphs-x.c (font_instantiate):
* glyphs-x.c (x_widget_property):
* glyphs-x.c (BUILD_GLYPH_INST):
* glyphs.c (print_image_instance):
* glyphs.c (bitmap_to_lisp_data):
* glyphs.c (pixmap_to_lisp_data):
* gpmevent.c (turn_off_gpm):
* gpmevent.c (Fgpm_enabled_p):
* gpmevent.c (Fgpm_enable):
* gtk-glue.c (__make_string_mapper):
* gtk-glue.c (xemacs_gtklist_to_list):
* gtk-xemacs.c (FROB_FACE):
* gtk-xemacs.c (xemacs_gtk_convert_color):
* hpplay.c (player_error_internal):
* hpplay.c (myHandler):
* insdel.c (buffer_insert_ascstring_1):
* insdel.h:
* insdel.h (buffer_insert_ascstring):
* intl.c (Fcurrent_locale):
* intl.c (Fset_current_locale):
* keymap.c (make_key_description):
* keymap.c (Ftext_char_description):
* keymap.c (describe_command):
* keymap.c (describe_map):
* lisp.h:
* lread.c:
* lread.c (locate_file_in_directory_mapper):
* lread.c (locate_file_construct_suffixed_files_mapper):
* mule-charset.c (Fmake_charset):
* nt.c (Fmswindows_short_file_name):
* nt.c (Fmswindows_long_file_name):
* objects-gtk.c (__get_gtk_font_truename):
* objects-gtk.c (__gtk_font_list_internal):
* objects-msw.c (font_enum_callback_2):
* objects-msw.c (create_hfont_from_font_spec):
* objects-msw.c (mswindows_font_list):
* objects-msw.c (mswindows_font_spec_matches_charset_stage_2):
* objects-tty.c (tty_initialize_font_instance):
* objects-x.c (x_font_truename):
* objects-x.c (x_font_instance_truename):
* objects-x.c (x_font_instance_properties):
* objects-x.c (x_font_list):
* print.c (write_cistring):
* print.c (print_vector_internal):
* print.c (print_cons):
* process-nt.c (nt_canonicalize_host_name):
* process-unix.c (unix_create_process):
* process-unix.c (unix_canonicalize_host_name):
* process.c (status_message):
* process.c (status_notify):
* process.c (init_xemacs_process):
* process.c (syms_of_process):
* redisplay-tty.c (term_get_fkeys_1):
* redisplay-tty.c (CONDITIONAL_REASSIGN):
* search.c (compile_pattern_1):
* select-common.h (selection_data_to_lisp_data):
* select-gtk.c (atom_to_symbol):
* select-gtk.c (PROCESSING_GTK_CODE):
* select-msw.c (mswindows_get_foreign_selection):
* select-x.c (x_atom_to_symbol):
* select-x.c (Fx_get_cutbuffer_internal):
* symbols.c (intern_istring):
* symbols.c (intern):
* symbols.c (intern_converting_underscores_to_dashes):
* symbols.c (Fintern):
* sysdep.c (init_system_name):
* sysdll.c (dll_error):
* sysdll.c (dll_open):
* syswindows.h:
* syswindows.h (build_tstr_string):
* tests.c (DFC_CHECK_LENGTH):
* tests.c (DFC_CHECK_CONTENT):
* tests.c (DFC_RESULT_PASS):
* tests.c (Ftest_data_format_conversion):
* text.c:
* text.c (new_dfc_convert_now_damn_it):
* text.h:
* text.h (build_wext_string):
* tooltalk.c (tt_build_c_string):
* tooltalk.c (Ftooltalk_default_procid):
* tooltalk.c (Ftooltalk_default_session):
* tooltalk.c (init_tooltalk):
* ui-byhand.c (Fgtk_clist_get_text):
* ui-byhand.c (Fgtk_clist_get_pixtext):
* ui-byhand.c (Fgtk_label_get):
* ui-byhand.c (Fgtk_notebook_query_tab_label_packing):
* ui-gtk.c (emacs_gtk_object_printer):
* ui-gtk.c (emacs_gtk_boxed_printer):
* ui-gtk.c (gtk_type_to_lisp):
* ui-gtk.c (symbol_to_enum):
* ui-gtk.c (enum_to_symbol):
* unexaix.c (report_error):
* unexaix.c (ERROR0):
* unexec.c (report_error):
* unexec.c (ERROR0):
* unicode.c (unicode_to_ichar):
* win32.c (tstr_to_local_file_format):
* win32.c (Fmswindows_cygwin_to_win32_path):
* win32.c (struct read_link_hash):
* xemacs.def.in.in:
Rename:
write_c_string -> write_cistring
build_intstring -> build_istring
build_string -> build_cistring
build_ext_string -> build_extstring
make_ext_string -> make_extstring
buffer_insert_c_string -> buffer_insert_ascstring
intern_int -> intern_istring
These functions have been renamed so that the naming harmonizes
with the typedefs for strings: `cistring' along with CIbyte *,
`istring' along with Ibyte *, `extstring' along with Extbyte *,
`ascstring' along with Ascbyte *.
Also make buffer_insert_ascstring take Ascbyte * and assert
that its argument is ASCII.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Wed, 27 Jan 2010 00:35:36 -0600 |
parents | db7068430402 |
children | ba07c880114a |
rev | line source |
---|---|
4709
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
1 ;; This file is part of XEmacs. |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
2 ;; |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
3 ;; XEmacs is free software; you can redistribute it and/or modify it |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
4 ;; under the terms of the GNU General Public License as published by the |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
5 ;; Free Software Foundation; either version 2, or (at your option) any |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
6 ;; later version. |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
7 ;; |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
8 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
9 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
10 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
11 ;; for more details. |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
12 ;; |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
13 ;; You should have received a copy of the GNU General Public License |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
14 ;; along with XEmacs; see the file COPYING. If not, write to |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
15 ;; the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor, |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
16 ;; Boston, MA 02111-1301, USA. */ |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
622
diff
changeset
|
17 |
622 | 18 (globally-declare-fboundp |
502 | 19 '(gtk-fundamental-type)) |
20 | |
462 | 21 (require 'gtk-ffi) |
22 | |
23 (defconst GTK_TYPE_INVALID 0) | |
24 (defconst GTK_TYPE_NONE 1) | |
25 (defconst GTK_TYPE_CHAR 2) | |
26 (defconst GTK_TYPE_UCHAR 3) | |
27 (defconst GTK_TYPE_BOOL 4) | |
28 (defconst GTK_TYPE_INT 5) | |
29 (defconst GTK_TYPE_UINT 6) | |
30 (defconst GTK_TYPE_LONG 7) | |
31 (defconst GTK_TYPE_ULONG 8) | |
32 (defconst GTK_TYPE_FLOAT 9) | |
33 (defconst GTK_TYPE_DOUBLE 10) | |
34 (defconst GTK_TYPE_STRING 11) | |
35 (defconst GTK_TYPE_ENUM 12) | |
36 (defconst GTK_TYPE_FLAGS 13) | |
37 (defconst GTK_TYPE_BOXED 14) | |
38 (defconst GTK_TYPE_POINTER 15) | |
39 (defconst GTK_TYPE_SIGNAL 16) | |
40 (defconst GTK_TYPE_ARGS 17) | |
41 (defconst GTK_TYPE_CALLBACK 18) | |
42 (defconst GTK_TYPE_C_CALLBACK 19) | |
43 (defconst GTK_TYPE_FOREIGN 20) | |
44 (defconst GTK_TYPE_OBJECT 21) | |
45 | |
46 (defconst gtk-value-accessor-names | |
47 '("INVALID" "NONE" "CHAR" "UCHAR" "BOOL" "INT" "UINT" "LONG" "ULONG" "FLOAT" "DOUBLE" | |
48 "STRING" "ENUM" "FLAGS" "BOXED" "POINTER" "SIGNAL" "ARGS" "CALLBACK" "C_CALLBACK" | |
49 "FOREIGN" "OBJECT")) | |
50 | |
51 (defun define-widget-accessors (gtk-class | |
52 wrapper | |
53 prefix args) | |
54 "Output stub C code to access parts of a widget from lisp. | |
55 GTK-CLASS is the GTK class to grant access to. | |
56 WRAPPER is a fragment to construct GTK C macros for typechecking/etc. (ie: WIDGET) | |
57 ARGS is a list of (type . name) cons cells. | |
58 Defines a whole slew of functions to access & set the slots in the | |
59 structure." | |
60 (set-buffer (get-buffer-create "emacs-widget-accessors.c")) | |
61 (goto-char (point-max)) | |
62 (let ((arg) | |
63 (base-arg-type nil) | |
64 (lisp-func-name nil) | |
65 (c-func-name nil) | |
66 (func-names nil)) | |
67 (setq gtk-class (symbol-name gtk-class) | |
68 wrapper (upcase wrapper)) | |
69 (while (setq arg (pop args)) | |
70 (setq lisp-func-name (format "gtk-%s-%s" prefix (cdr arg)) | |
71 lisp-func-name (replace-in-string lisp-func-name "_" "-") | |
72 c-func-name (concat "F" (replace-in-string lisp-func-name "-" "_"))) | |
73 (insert | |
74 "DEFUN (\"" lisp-func-name "\", " c-func-name ", 1, 1, 0, /*\n" | |
75 "Access the `" (symbol-name (cdr arg)) "' slot of OBJ, a " gtk-class " object.\n" | |
76 "*/\n" | |
77 "\t(obj))\n" | |
78 "{\n" | |
79 (format "\t%s *the_obj = NULL;\n" gtk-class) | |
80 "\tGtkArg arg;\n" | |
81 "\n" | |
82 "\tCHECK_GTK_OBJECT (obj);\n" | |
83 "\n" | |
84 (format "\tif (!GTK_IS_%s (XGTK_OBJECT (obj)->object))\n" wrapper) | |
85 "\t{\n" | |
591 | 86 (format "\t\twtaerror (\"Object is not a %s\", obj);\n" gtk-class) |
462 | 87 "\t};\n" |
88 "\n" | |
89 (format "\tthe_obj = GTK_%s (XGTK_OBJECT (obj)->object);\n" wrapper) | |
90 | |
91 (format "\targ.type = gtk_type_from_name (\"%s\");\n" (symbol-name (car arg)))) | |
92 ; (format "\targ.type = GTK_TYPE_%s;\n" (or | |
93 ; (nth (gtk-fundamental-type (car arg)) | |
94 ; gtk-value-accessor-names) | |
95 ; (case (car arg) | |
96 ; (GtkListOfString "STRING_LIST") | |
97 ; (GtkListOfObject "OBJECT_LIST") | |
98 ; (otherwise | |
99 ; "POINTER"))))) | |
100 | |
101 (setq base-arg-type (gtk-fundamental-type (car arg))) | |
102 (cond | |
103 ((= base-arg-type GTK_TYPE_OBJECT) | |
104 (insert | |
105 (format "\tGTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->%s);" | |
106 (cdr arg)))) | |
107 ((or (= base-arg-type GTK_TYPE_POINTER) | |
108 (= base-arg-type GTK_TYPE_BOXED)) | |
109 (insert | |
110 (format "\tGTK_VALUE_%s (arg) = (void *)the_obj->%s;" | |
111 (nth (gtk-fundamental-type (car arg)) gtk-value-accessor-names) | |
112 (cdr arg)))) | |
113 (t | |
114 (insert | |
115 (format "\tGTK_VALUE_%s (arg) = the_obj->%s;" | |
116 (or (nth (gtk-fundamental-type (car arg)) gtk-value-accessor-names) "POINTER") | |
117 (cdr arg))))) | |
118 (insert | |
119 "\n" | |
120 "\treturn (gtk_type_to_lisp (&arg));\n" | |
121 "}\n\n") | |
122 (push c-func-name func-names)) | |
123 func-names)) | |
124 | |
125 (defun import-widget-accessors (file syms-function-name &rest description) | |
126 "Import multiple widgets, and emit a suitable vars_of_foo() function for them.\n" | |
523 | 127 (declare (special c-mode-common-hook c-mode-hook)) |
462 | 128 (let ((c-mode-common-hook nil) |
129 (c-mode-hook nil)) | |
130 (find-file file)) | |
131 (erase-buffer) | |
591 | 132 (insert "/* This file was automatically generated by ../lisp/gtk-widget-accessors.el */\n" |
133 "/* DO NOT EDIT BY HAND!!! */\n") | |
462 | 134 (let ((c-funcs nil)) |
135 (while description | |
136 (setq c-funcs (nconc (define-widget-accessors | |
137 (pop description) (pop description) | |
138 (pop description) (pop description)) c-funcs))) | |
139 (goto-char (point-max)) | |
140 (insert "void " syms-function-name " (void)\n" | |
141 "{\n\t" | |
142 (mapconcat (lambda (x) | |
143 (concat "DEFSUBR (" x ");")) c-funcs "\n\t") | |
144 "\n}")) | |
145 (save-buffer)) | |
146 | |
147 ;; Because the new FFI layer imports GTK types lazily, we need to load | |
148 ;; up all of the gtk types we know about, or we get errors about | |
149 ;; unknown GTK types later on. | |
150 (mapatoms (lambda (sym) | |
151 (if (string-match "gtk-[^-]+-get-type" (symbol-name sym)) | |
152 (funcall sym)))) | |
153 | |
154 (import-widget-accessors | |
591 | 155 "../src/emacs-widget-accessors.c" |
462 | 156 "syms_of_widget_accessors " |
157 | |
158 'GtkAdjustment "ADJUSTMENT" "adjustment" | |
159 '((gfloat . lower) | |
160 (gfloat . upper) | |
161 (gfloat . value) | |
162 (gfloat . step_increment) | |
163 (gfloat . page_increment) | |
164 (gfloat . page_size)) | |
165 | |
166 'GtkWidget "WIDGET" "widget" | |
167 '((GtkStyle . style) | |
168 (GdkWindow . window) | |
169 (GtkStateType . state) | |
170 (GtkString . name) | |
171 (GtkWidget . parent)) | |
172 | |
173 'GtkButton "BUTTON" "button" | |
174 '((GtkWidget . child) | |
175 (gboolean . in_button) | |
176 (gboolean . button_down)) | |
177 | |
178 'GtkCombo "COMBO" "combo" | |
179 '((GtkWidget . entry) | |
180 (GtkWidget . button) | |
181 (GtkWidget . popup) | |
182 (GtkWidget . popwin) | |
183 (GtkWidget . list)) | |
184 | |
185 'GtkGammaCurve "GAMMA_CURVE" "gamma-curve" | |
186 '((GtkWidget . table) | |
187 (GtkWidget . curve) | |
188 (gfloat . gamma) | |
189 (GtkWidget . gamma_dialog) | |
190 (GtkWidget . gamma_text)) | |
191 | |
192 'GtkCheckMenuItem "CHECK_MENU_ITEM" "check-menu-item" | |
193 '((gboolean . active)) | |
194 | |
195 'GtkNotebook "NOTEBOOK" "notebook" | |
196 '((GtkPositionType . tab_pos)) | |
197 | |
198 'GtkText "TEXT" "text" | |
199 '((GtkAdjustment . hadj) | |
200 (GtkAdjustment . vadj)) | |
201 | |
202 'GtkFileSelection "FILE_SELECTION" "file-selection" | |
203 '((GtkWidget . dir_list) | |
204 (GtkWidget . file_list) | |
205 (GtkWidget . selection_entry) | |
206 (GtkWidget . selection_text) | |
207 (GtkWidget . main_vbox) | |
208 (GtkWidget . ok_button) | |
209 (GtkWidget . cancel_button) | |
210 (GtkWidget . help_button) | |
211 (GtkWidget . action_area)) | |
212 | |
213 'GtkFontSelectionDialog "FONT_SELECTION_DIALOG" "font-selection-dialog" | |
214 '((GtkWidget . fontsel) | |
215 (GtkWidget . main_vbox) | |
216 (GtkWidget . action_area) | |
217 (GtkWidget . ok_button) | |
218 (GtkWidget . apply_button) | |
219 (GtkWidget . cancel_button)) | |
220 | |
221 'GtkColorSelectionDialog "COLOR_SELECTION_DIALOG" "color-selection-dialog" | |
222 '((GtkWidget . colorsel) | |
223 (GtkWidget . main_vbox) | |
224 (GtkWidget . ok_button) | |
225 (GtkWidget . reset_button) | |
226 (GtkWidget . cancel_button) | |
227 (GtkWidget . help_button)) | |
228 | |
229 'GtkDialog "DIALOG" "dialog" | |
230 '((GtkWidget . vbox) | |
231 (GtkWidget . action_area)) | |
232 | |
233 'GtkInputDialog "INPUT_DIALOG" "input-dialog" | |
234 '((GtkWidget . close_button) | |
235 (GtkWidget . save_button)) | |
236 | |
237 'GtkPlug "PLUG" "plug" | |
238 '((GdkWindow . socket_window) | |
239 (gint . same_app)) | |
240 | |
241 'GtkObject "OBJECT" "object" | |
242 '((guint . flags) | |
243 (guint . ref_count)) | |
244 | |
245 'GtkPaned "PANED" "paned" | |
246 '((GtkWidget . child1) | |
247 (GtkWidget . child2) | |
248 (gboolean . child1_resize) | |
249 (gboolean . child2_resize) | |
250 (gboolean . child1_shrink) | |
251 (gboolean . child2_shrink)) | |
252 | |
253 'GtkCList "CLIST" "clist" | |
254 '((gint . rows) | |
255 (gint . columns) | |
256 (GtkAdjustment . hadjustment) | |
257 (GtkAdjustment . vadjustment) | |
258 (GtkSortType . sort_type) | |
259 (gint . focus_row) | |
260 (gint . sort_column)) | |
261 | |
262 'GtkList "LIST" "list" | |
263 '((GtkListOfObject . children) | |
264 (GtkListOfObject . selection)) | |
265 | |
266 'GtkTree "TREE" "tree" | |
267 '((GtkListOfObject . children) | |
268 (GtkTree . root_tree) | |
269 (GtkWidget . tree_owner) | |
270 (GtkListOfObject . selection)) | |
271 | |
272 'GtkTreeItem "TREE_ITEM" "tree-item" | |
273 '((GtkWidget . subtree)) | |
274 | |
275 'GtkScrolledWindow "SCROLLED_WINDOW" "scrolled-window" | |
276 '((GtkWidget . hscrollbar) | |
277 (GtkWidget . vscrollbar) | |
278 (gboolean . hscrollbar_visible) | |
279 (gboolean . vscrollbar_visible)) | |
280 | |
281 ) |