annotate lisp/gtk-widget-accessors.el @ 2362:6aa56b089139

[xemacs-hg @ 2004-11-02 09:51:04 by ben] To: xemacs-patches@xemacs.org internals/index.texi: Deleted. Incorporated into internals.texi. Having a separate index file messes up texinfo-master-menu. internals/internals.texi: Add bunches and bunches and bunches and bunches of stuff, taken from documentation floating around in various places -- text.c, file-coding.c, other .c and .h files, stuff that I wrote up for an old XEmacs contract, proposals written up in the process of an e-mail discussion, etc. Fix up some mistakes, esp. in CCL. Extra crap from CCL, duplicated with Lispref, removed. Sections on Old Future Work and Future Work Discussion added. Bunches of other work. Add bunches of documentation taken from the source code. Fixup various places to use @strong{}, @code{}, @file{}. Create new Text chapter, split off from Buffers and Textual Representation. Create new chapter for MS Windows, mostly written from scratch. Consolidate all Mule info under "Multilingual Support". Break up chapter on modules and move some parts to the sections discussing the modules, for consolidation purposes. Add a big cross-reference table for all the modules to where they're discussed (or not). New chapter Asynchronous Events; Quit Checking. (Taken from various parts of the code.) New Introduction. New section on Focus Handling (from the code). NOTE that in the process, I discovered that we essentially have FOUR redundant introductions to Mule issues! Someone really needs to go through and clean them up and integrate them (sjt?).
author ben
date Tue, 02 Nov 2004 09:51:18 +0000
parents 11502791fc1c
children db7068430402
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
622
11502791fc1c [xemacs-hg @ 2001-06-22 01:49:57 by ben]
ben
parents: 591
diff changeset
1 (globally-declare-fboundp
502
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"
591
ec73ae6e772b [xemacs-hg @ 2001-05-31 02:05:16 by wmperry]
wmperry
parents: 523
diff changeset
69 (format "\t\twtaerror (\"Object is not a %s\", obj);\n" gtk-class)
462
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"
523
cd662ad69f40 [xemacs-hg @ 2001-05-09 13:43:49 by ben]
ben
parents: 502
diff changeset
110 (declare (special c-mode-common-hook c-mode-hook))
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
111 (let ((c-mode-common-hook nil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
112 (c-mode-hook nil))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
113 (find-file file))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
114 (erase-buffer)
591
ec73ae6e772b [xemacs-hg @ 2001-05-31 02:05:16 by wmperry]
wmperry
parents: 523
diff changeset
115 (insert "/* This file was automatically generated by ../lisp/gtk-widget-accessors.el */\n"
ec73ae6e772b [xemacs-hg @ 2001-05-31 02:05:16 by wmperry]
wmperry
parents: 523
diff changeset
116 "/* DO NOT EDIT BY HAND!!! */\n")
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
117 (let ((c-funcs nil))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
118 (while description
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
119 (setq c-funcs (nconc (define-widget-accessors
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
120 (pop description) (pop description)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
121 (pop description) (pop description)) c-funcs)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
122 (goto-char (point-max))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
123 (insert "void " syms-function-name " (void)\n"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
124 "{\n\t"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
125 (mapconcat (lambda (x)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
126 (concat "DEFSUBR (" x ");")) c-funcs "\n\t")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
127 "\n}"))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
128 (save-buffer))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
129
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
130 ;; 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
131 ;; 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
132 ;; unknown GTK types later on.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
133 (mapatoms (lambda (sym)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
134 (if (string-match "gtk-[^-]+-get-type" (symbol-name sym))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
135 (funcall sym))))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
136
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
137 (import-widget-accessors
591
ec73ae6e772b [xemacs-hg @ 2001-05-31 02:05:16 by wmperry]
wmperry
parents: 523
diff changeset
138 "../src/emacs-widget-accessors.c"
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
139 "syms_of_widget_accessors "
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
140
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
141 'GtkAdjustment "ADJUSTMENT" "adjustment"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
142 '((gfloat . lower)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
143 (gfloat . upper)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
144 (gfloat . value)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
145 (gfloat . step_increment)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
146 (gfloat . page_increment)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
147 (gfloat . page_size))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
148
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
149 'GtkWidget "WIDGET" "widget"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
150 '((GtkStyle . style)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
151 (GdkWindow . window)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
152 (GtkStateType . state)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
153 (GtkString . name)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
154 (GtkWidget . parent))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
155
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
156 'GtkButton "BUTTON" "button"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
157 '((GtkWidget . child)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
158 (gboolean . in_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
159 (gboolean . button_down))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
160
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
161 'GtkCombo "COMBO" "combo"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
162 '((GtkWidget . entry)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
163 (GtkWidget . button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
164 (GtkWidget . popup)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
165 (GtkWidget . popwin)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
166 (GtkWidget . list))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
167
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
168 'GtkGammaCurve "GAMMA_CURVE" "gamma-curve"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
169 '((GtkWidget . table)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
170 (GtkWidget . curve)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
171 (gfloat . gamma)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
172 (GtkWidget . gamma_dialog)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
173 (GtkWidget . gamma_text))
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 'GtkCheckMenuItem "CHECK_MENU_ITEM" "check-menu-item"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
176 '((gboolean . active))
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 'GtkNotebook "NOTEBOOK" "notebook"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
179 '((GtkPositionType . tab_pos))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
180
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
181 'GtkText "TEXT" "text"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
182 '((GtkAdjustment . hadj)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
183 (GtkAdjustment . vadj))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
184
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
185 'GtkFileSelection "FILE_SELECTION" "file-selection"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
186 '((GtkWidget . dir_list)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
187 (GtkWidget . file_list)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
188 (GtkWidget . selection_entry)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
189 (GtkWidget . selection_text)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
190 (GtkWidget . main_vbox)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
191 (GtkWidget . ok_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
192 (GtkWidget . cancel_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
193 (GtkWidget . help_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
194 (GtkWidget . action_area))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
195
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
196 'GtkFontSelectionDialog "FONT_SELECTION_DIALOG" "font-selection-dialog"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
197 '((GtkWidget . fontsel)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
198 (GtkWidget . main_vbox)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
199 (GtkWidget . action_area)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
200 (GtkWidget . ok_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
201 (GtkWidget . apply_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
202 (GtkWidget . cancel_button))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
203
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
204 'GtkColorSelectionDialog "COLOR_SELECTION_DIALOG" "color-selection-dialog"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
205 '((GtkWidget . colorsel)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
206 (GtkWidget . main_vbox)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
207 (GtkWidget . ok_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
208 (GtkWidget . reset_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
209 (GtkWidget . cancel_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
210 (GtkWidget . help_button))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
211
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
212 'GtkDialog "DIALOG" "dialog"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
213 '((GtkWidget . vbox)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
214 (GtkWidget . action_area))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
215
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
216 'GtkInputDialog "INPUT_DIALOG" "input-dialog"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
217 '((GtkWidget . close_button)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
218 (GtkWidget . save_button))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
219
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
220 'GtkPlug "PLUG" "plug"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
221 '((GdkWindow . socket_window)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
222 (gint . same_app))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
223
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
224 'GtkObject "OBJECT" "object"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
225 '((guint . flags)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
226 (guint . ref_count))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
227
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
228 'GtkPaned "PANED" "paned"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
229 '((GtkWidget . child1)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
230 (GtkWidget . child2)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
231 (gboolean . child1_resize)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
232 (gboolean . child2_resize)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
233 (gboolean . child1_shrink)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
234 (gboolean . child2_shrink))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
235
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
236 'GtkCList "CLIST" "clist"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
237 '((gint . rows)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
238 (gint . columns)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
239 (GtkAdjustment . hadjustment)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
240 (GtkAdjustment . vadjustment)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
241 (GtkSortType . sort_type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
242 (gint . focus_row)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
243 (gint . sort_column))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
244
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
245 'GtkList "LIST" "list"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
246 '((GtkListOfObject . children)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
247 (GtkListOfObject . selection))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
248
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
249 'GtkTree "TREE" "tree"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
250 '((GtkListOfObject . children)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
251 (GtkTree . root_tree)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
252 (GtkWidget . tree_owner)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
253 (GtkListOfObject . selection))
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 'GtkTreeItem "TREE_ITEM" "tree-item"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
256 '((GtkWidget . subtree))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
257
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
258 'GtkScrolledWindow "SCROLLED_WINDOW" "scrolled-window"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
259 '((GtkWidget . hscrollbar)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
260 (GtkWidget . vscrollbar)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
261 (gboolean . hscrollbar_visible)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
262 (gboolean . vscrollbar_visible))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
263
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
264 )