(o-UU+95B7): Unify o-CU+2F9F0 and A-CU+2F9F0 instead of o-IU+2F9F0 and
[chise/xemacs-chise.git.1] / lisp / gtk.el
1 (gtk-import-function nil "gdk_flush")
2
3 (defun gtk-describe-enumerations ()
4   "Show a list of all GtkEnum or GtkFlags objects available from lisp."
5   (interactive)
6   (set-buffer (get-buffer-create "*GTK Enumerations*"))
7   (erase-buffer)
8   (let ((separator (make-string (- (window-width) 3) ?-)))
9     (maphash (lambda (key val)
10                (insert
11                 separator "\n"
12                 (if (stringp key)
13                     key
14                   (gtk-type-name key)) "\n")
15                (mapc (lambda (cell)
16                        (insert (format "\t%40s == %d\n" (car cell) (cdr cell)))) val))
17              gtk-enumeration-info))
18   (goto-char (point-min))
19   (display-buffer (current-buffer)))