Mercurial > hg > xemacs-beta
comparison lisp/gtk.el @ 462:0784d089fdc9 r21-2-46
Import from CVS: tag r21-2-46
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:44:37 +0200 |
| parents | |
| children | 7039e6323819 |
comparison
equal
deleted
inserted
replaced
| 461:120ed4009e51 | 462:0784d089fdc9 |
|---|---|
| 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))) |