git.chise.org Git - chise/xemacs-chise.git-/blob - 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)))