annotate lisp/gtk-widget-accessors.el @ 502:7039e6323819

[xemacs-hg @ 2001-05-04 22:41:46 by ben] ----------------------- byte-comp warning fixes ----------------- New functions for cleanly eliminating byte-compiler warnings. Their definitions require no changes at all in bytecomp.el, meaning that any package that wants to use them and be compatible with older versions of XEmacs need only copy the code and rename the functions (i.e. prefix them with the package name). Eliminate byte-compiler warnings using the new functions in bytecomp-runtime.el. Move coding-system-put,get,category, since they're not Mule-specific and are used in prefer-coding-system. font.el was incredibly ugly. Clean it up. Avoid using defsubst for any exported functions, to avoid possible compatibility problems if we later change the internal interface. (It happened before, with face accessors, between 19.8 and 19.9). Fix tons of warnings. Clean up (new function gpm-is-supported-p eliminates duplicate code in gpm-create/delete-device-hook) and eliminate warnings. ---------- make byte-recompile-directory work in the --------- core `lisp' dir, even in the absence of a Mule XEmacs (i.e. make it skip the Mule files rather than trying to compile them). now you should be able to do `touch *.el' in the `lisp' dir, then M-x byte-recompile-directory, and get no warnings. Avoid trying to compile Mule files in byte-recompile-directory when we're not in a Mule XEmacs, since we're highly likely to get syntax errors. Add a coding-system cookie to all Mule files so that byte-recompile-directory ignores them. Magic cookie function moved to files.el from code-files.el (for use by bytecomp even in a non-coding-system XEmacs), and changed names and semantics for use by bytecomp. NOTE: IMO this is an internal function that we can change as we like (and there is absolutely no code anywhere else using the function). ---------------- GUI improvements: menus, help ------------------- Rearrange order of keymap declarations to be alphabetical. Improve help on help to include all bindings, and group by category. Add bindings for new Info commands. Remove warnings. Use command-hyper-apropos in place of command-apropos. Add a function to do the equivalent of command-apropos. Evals its help-text argument so you can put expressions there. Used now by help-for-help. Add binding to continue text searches. Expand index searches to work over multiple info documents. Add commands to search text/index in User and Lispref. Add new entry, "Uncomment Region" (parallels "Comment Out Region"). Redo Help menu; add bindings for new Info commands to search the index or text of the User and Lispref manuals. Add command for mark-paragraph, activate-region. Make Edit->R accelerator be rectangle, not register (more commonly used), and put rectangle first. Fix the Edit Init File entry to never load the .elc file. Simplify the default-popup-menu. Add Cmds->Tabs menu. Use kp-left not kp_left, etc. ---------------- Miscellaneous bug fixes/cleanup ------------------- byte-compiler-options: Correct doc string. easy-menu-do-define: fix extra quote. fill-paragraph-or-region:Rewrite to be more correct -- use call-interactively so that we always get exactly the same behavior as if the functions were called directly. No need to fiddle with zmacs-region-stays, now that bogus clearing of it (2001-04-28 src/ChangeLog) is removed. Put dialog titles back in -- this time correctly. Fix various other problems with leaks and such. key-sequence-list-description: Clean up fun to always correctly canonicalize. Clean up Kinsoku comments, synch comment-region with FSF 20.7. * simple.el (region-exists-p): * simple.el (region-active-p): Add comment about which one is correct to use in menu specs. * sound.el (load-sound-file): Minor code clean up. * startup.el: * startup.el (command-line-early): * startup.el (initial-scratch-message): Comment changes. Add info about sample.init.el to splash screen. Improve initial-scratch-message and clarify purpose of Scratch buffer. Fix byte-compile warning. ------------------------ Added features ------------------------- Add new variable to control whether etags checks all parent directories for tag files. (On by default.) * hash-table.el: New file, useful utility functions. * dumped-lisp.el (preloaded-file-list): Dump hash-table.el. ------------ notable bug fix: Windows event code -------------- Get critical quit working. ------------ notable bug fix and new feature: regex code -------------- Shy groups were implemented in a horrible, half-assed way that would cause them to screw up regex searching in most cases. Fixed to work correctly. Also extended back-reference syntax past 9. Only is recognized as such if there are at least that many non-shy groups; and optionally will warn about such uses, to catch old code that might be using them differently. (Added variable to control this in search.c -- `warn-about-possibly-incompatible-back- references', on by default for the moment. Declared in lisp.h. ---------------- process/SIGIO improvements ------------------- define USE_GETADDRINFO to replace more complex conditional, and use it. the code conditionalized on this in unix_open_network_stream had *serious* problems handling errors. it's now fixed, and major amounts of duplicate code between the two versions were combined. don't disable SIGIO and other interrupts unless CONNECT_NEEDS_SLOWED_INTERRUPTS is defined -- don't penalize OS's without bugs. similarly for a freebsd bug that was affecting all OS's. * s\ultrix.h: define CONNECT_NEEDS_SLOWED_INTERRUPTS, since that's the OS mentioned as having a kernel bug. * sysdep.c (request_sigio_on_device): * sysdep.c (unrequest_sigio_on_device): fix SIGIO problems on Linux. add check for O_ASYNC in case it's defined and FASYNC isn't. add comment about other ways to do SIGIO on Linux. * callproc.c (Fold_call_process_internal): * process.c (Fstart_process_internal): Deal with the possibility that `default-directory' doesn't have terminating slash. Correct comments about vfork. ---------------- Miscellaneous bug fixes/cleanup ------------------- * callint.c (Finteractive): Add lots of documentation -- exactly what the Lisp equivalents of all the interactive specs are. * console.h (struct console): change type of quit_char to Emchar. * event-msw.c (lstream_type_create_mswindows_selectable): spacing change. Eliminate events-mod.h and combine into events.h. * emacs.c: * emacs.c (make_arg_list_1): * emacs.c (main_1): A couple of char->Extbyte changes, add a comment. * glyphs-msw.c: Correct indentation of function defns to not exceed 80 cols. Try (sort of) to fix some code that sets the colors of the progress gauge. (Commented out) * keymap.c (syms_of_keymap): use DEFSYMBOL. * process.c (read_process_output): No need to fiddle with zmacs_region_stays, now that bogus clearing of it (see below) is removed. * search.c (Freplace_match): warning fix.
author ben
date Fri, 04 May 2001 22:42:35 +0000
parents 0784d089fdc9
children cd662ad69f40
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1 (globally-declare-fboundp
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
2 '(gtk-fundamental-type))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
3
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
4 (require 'gtk-ffi)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
5
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
6 (defconst GTK_TYPE_INVALID 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
7 (defconst GTK_TYPE_NONE 1)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
8 (defconst GTK_TYPE_CHAR 2)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
9 (defconst GTK_TYPE_UCHAR 3)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
10 (defconst GTK_TYPE_BOOL 4)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
11 (defconst GTK_TYPE_INT 5)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
12 (defconst GTK_TYPE_UINT 6)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
13 (defconst GTK_TYPE_LONG 7)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
14 (defconst GTK_TYPE_ULONG 8)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
15 (defconst GTK_TYPE_FLOAT 9)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
16 (defconst GTK_TYPE_DOUBLE 10)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
17 (defconst GTK_TYPE_STRING 11)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
18 (defconst GTK_TYPE_ENUM 12)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
19 (defconst GTK_TYPE_FLAGS 13)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
20 (defconst GTK_TYPE_BOXED 14)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
21 (defconst GTK_TYPE_POINTER 15)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
22 (defconst GTK_TYPE_SIGNAL 16)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
23 (defconst GTK_TYPE_ARGS 17)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
24 (defconst GTK_TYPE_CALLBACK 18)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
25 (defconst GTK_TYPE_C_CALLBACK 19)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
26 (defconst GTK_TYPE_FOREIGN 20)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
27 (defconst GTK_TYPE_OBJECT 21)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
28
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
29 (defconst gtk-value-accessor-names
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
30 '("INVALID" "NONE" "CHAR" "UCHAR" "BOOL" "INT" "UINT" "LONG" "ULONG" "FLOAT" "DOUBLE"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
31 "STRING" "ENUM" "FLAGS" "BOXED" "POINTER" "SIGNAL" "ARGS" "CALLBACK" "C_CALLBACK"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
32 "FOREIGN" "OBJECT"))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
33
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
34 (defun define-widget-accessors (gtk-class
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
35 wrapper
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
36 prefix args)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
37 "Output stub C code to access parts of a widget from lisp.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
38 GTK-CLASS is the GTK class to grant access to.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
39 WRAPPER is a fragment to construct GTK C macros for typechecking/etc. (ie: WIDGET)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
40 ARGS is a list of (type . name) cons cells.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
41 Defines a whole slew of functions to access & set the slots in the
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
42 structure."
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
43 (set-buffer (get-buffer-create "emacs-widget-accessors.c"))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
44 (goto-char (point-max))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
45 (let ((arg)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
46 (base-arg-type nil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
47 (lisp-func-name nil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
48 (c-func-name nil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
49 (func-names nil))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
50 (setq gtk-class (symbol-name gtk-class)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
51 wrapper (upcase wrapper))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
52 (while (setq arg (pop args))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
53 (setq lisp-func-name (format "gtk-%s-%s" prefix (cdr arg))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
54 lisp-func-name (replace-in-string lisp-func-name "_" "-")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
55 c-func-name (concat "F" (replace-in-string lisp-func-name "-" "_")))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
56 (insert
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
57 "DEFUN (\"" lisp-func-name "\", " c-func-name ", 1, 1, 0, /*\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
58 "Access the `" (symbol-name (cdr arg)) "' slot of OBJ, a " gtk-class " object.\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
59 "*/\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
60 "\t(obj))\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
61 "{\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
62 (format "\t%s *the_obj = NULL;\n" gtk-class)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
63 "\tGtkArg arg;\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
64 "\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
65 "\tCHECK_GTK_OBJECT (obj);\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
66 "\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
67 (format "\tif (!GTK_IS_%s (XGTK_OBJECT (obj)->object))\n" wrapper)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
68 "\t{\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
69 (format "\t\tsignal_simple_error (\"Object is not a %s\", obj);\n" gtk-class)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
70 "\t};\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
71 "\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
72 (format "\tthe_obj = GTK_%s (XGTK_OBJECT (obj)->object);\n" wrapper)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
73
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
74 (format "\targ.type = gtk_type_from_name (\"%s\");\n" (symbol-name (car arg))))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
75 ; (format "\targ.type = GTK_TYPE_%s;\n" (or
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
76 ; (nth (gtk-fundamental-type (car arg))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
77 ; gtk-value-accessor-names)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
78 ; (case (car arg)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
79 ; (GtkListOfString "STRING_LIST")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
80 ; (GtkListOfObject "OBJECT_LIST")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
81 ; (otherwise
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
82 ; "POINTER")))))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
83
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
84 (setq base-arg-type (gtk-fundamental-type (car arg)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
85 (cond
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
86 ((= base-arg-type GTK_TYPE_OBJECT)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
87 (insert
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
88 (format "\tGTK_VALUE_OBJECT (arg) = GTK_OBJECT (the_obj->%s);"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
89 (cdr arg))))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
90 ((or (= base-arg-type GTK_TYPE_POINTER)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
91 (= base-arg-type GTK_TYPE_BOXED))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
92 (insert
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
93 (format "\tGTK_VALUE_%s (arg) = (void *)the_obj->%s;"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
94 (nth (gtk-fundamental-type (car arg)) gtk-value-accessor-names)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
95 (cdr arg))))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
96 (t
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
97 (insert
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
98 (format "\tGTK_VALUE_%s (arg) = the_obj->%s;"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
99 (or (nth (gtk-fundamental-type (car arg)) gtk-value-accessor-names) "POINTER")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
100 (cdr arg)))))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
101 (insert
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
102 "\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
103 "\treturn (gtk_type_to_lisp (&arg));\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
104 "}\n\n")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
105 (push c-func-name func-names))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
106 func-names))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
107
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
108 (defun import-widget-accessors (file syms-function-name &rest description)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
109 "Import multiple widgets, and emit a suitable vars_of_foo() function for them.\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
110 (let ((c-mode-common-hook nil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
111 (c-mode-hook nil))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
112 (find-file file))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
113 (erase-buffer)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
114 (let ((c-funcs nil))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
115 (while description
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
116 (setq c-funcs (nconc (define-widget-accessors
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
117 (pop description) (pop description)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
118 (pop description) (pop description)) c-funcs)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
119 (goto-char (point-max))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
120 (insert "void " syms-function-name " (void)\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
121 "{\n\t"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
122 (mapconcat (lambda (x)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
123 (concat "DEFSUBR (" x ");")) c-funcs "\n\t")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
124 "\n}"))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
125 (save-buffer))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
126
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
127 ;; Because the new FFI layer imports GTK types lazily, we need to load
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
128 ;; up all of the gtk types we know about, or we get errors about
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
129 ;; unknown GTK types later on.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
130 (mapatoms (lambda (sym)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
131 (if (string-match "gtk-[^-]+-get-type" (symbol-name sym))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
132 (funcall sym))))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
133
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
134 (import-widget-accessors
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
135 "../../src/emacs-widget-accessors.c"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
136 "syms_of_widget_accessors "
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
137
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
138 'GtkAdjustment "ADJUSTMENT" "adjustment"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
139 '((gfloat . lower)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
140 (gfloat . upper)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
141 (gfloat . value)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
142 (gfloat . step_increment)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
143 (gfloat . page_increment)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
144 (gfloat . page_size))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
145
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
146 'GtkWidget "WIDGET" "widget"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
147 '((GtkStyle . style)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
148 (GdkWindow . window)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
149 (GtkStateType . state)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
150 (GtkString . name)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
151 (GtkWidget . parent))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
152
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
153 'GtkButton "BUTTON" "button"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
154 '((GtkWidget . child)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
155 (gboolean . in_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
156 (gboolean . button_down))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
157
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
158 'GtkCombo "COMBO" "combo"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
159 '((GtkWidget . entry)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
160 (GtkWidget . button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
161 (GtkWidget . popup)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
162 (GtkWidget . popwin)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
163 (GtkWidget . list))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
164
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
165 'GtkGammaCurve "GAMMA_CURVE" "gamma-curve"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
166 '((GtkWidget . table)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
167 (GtkWidget . curve)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
168 (gfloat . gamma)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
169 (GtkWidget . gamma_dialog)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
170 (GtkWidget . gamma_text))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
171
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
172 'GtkCheckMenuItem "CHECK_MENU_ITEM" "check-menu-item"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
173 '((gboolean . active))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
174
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
175 'GtkNotebook "NOTEBOOK" "notebook"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
176 '((GtkPositionType . tab_pos))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
177
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
178 'GtkText "TEXT" "text"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
179 '((GtkAdjustment . hadj)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
180 (GtkAdjustment . vadj))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
181
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
182 'GtkFileSelection "FILE_SELECTION" "file-selection"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
183 '((GtkWidget . dir_list)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
184 (GtkWidget . file_list)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
185 (GtkWidget . selection_entry)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
186 (GtkWidget . selection_text)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
187 (GtkWidget . main_vbox)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
188 (GtkWidget . ok_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
189 (GtkWidget . cancel_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
190 (GtkWidget . help_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
191 (GtkWidget . action_area))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
192
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
193 'GtkFontSelectionDialog "FONT_SELECTION_DIALOG" "font-selection-dialog"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
194 '((GtkWidget . fontsel)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
195 (GtkWidget . main_vbox)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
196 (GtkWidget . action_area)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
197 (GtkWidget . ok_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
198 (GtkWidget . apply_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
199 (GtkWidget . cancel_button))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
200
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
201 'GtkColorSelectionDialog "COLOR_SELECTION_DIALOG" "color-selection-dialog"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
202 '((GtkWidget . colorsel)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
203 (GtkWidget . main_vbox)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
204 (GtkWidget . ok_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
205 (GtkWidget . reset_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
206 (GtkWidget . cancel_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
207 (GtkWidget . help_button))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
208
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
209 'GtkDialog "DIALOG" "dialog"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
210 '((GtkWidget . vbox)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
211 (GtkWidget . action_area))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
212
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
213 'GtkInputDialog "INPUT_DIALOG" "input-dialog"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
214 '((GtkWidget . close_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
215 (GtkWidget . save_button))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
216
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
217 'GtkPlug "PLUG" "plug"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
218 '((GdkWindow . socket_window)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
219 (gint . same_app))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
220
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
221 'GtkObject "OBJECT" "object"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
222 '((guint . flags)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
223 (guint . ref_count))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
224
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
225 'GtkPaned "PANED" "paned"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
226 '((GtkWidget . child1)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
227 (GtkWidget . child2)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
228 (gboolean . child1_resize)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
229 (gboolean . child2_resize)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
230 (gboolean . child1_shrink)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
231 (gboolean . child2_shrink))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
232
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
233 'GtkCList "CLIST" "clist"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
234 '((gint . rows)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
235 (gint . columns)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
236 (GtkAdjustment . hadjustment)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
237 (GtkAdjustment . vadjustment)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
238 (GtkSortType . sort_type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
239 (gint . focus_row)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
240 (gint . sort_column))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
241
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
242 'GtkList "LIST" "list"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
243 '((GtkListOfObject . children)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
244 (GtkListOfObject . selection))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
245
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
246 'GtkTree "TREE" "tree"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
247 '((GtkListOfObject . children)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
248 (GtkTree . root_tree)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
249 (GtkWidget . tree_owner)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
250 (GtkListOfObject . selection))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
251
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
252 'GtkTreeItem "TREE_ITEM" "tree-item"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
253 '((GtkWidget . subtree))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
254
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
255 'GtkScrolledWindow "SCROLLED_WINDOW" "scrolled-window"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
256 '((GtkWidget . hscrollbar)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
257 (GtkWidget . vscrollbar)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
258 (gboolean . hscrollbar_visible)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
259 (gboolean . vscrollbar_visible))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
260
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
261 )