Mercurial > hg > xemacs-beta
annotate lisp/gnome.el @ 1218:ceedb6eeaba8
[xemacs-hg @ 2003-01-16 08:59:47 by michaels]
2003-01-13 Mike Sperber <mike@xemacs.org>
* packages.el:
* find-paths.el: Revert this change
2000-04-01 Mike Sperber <mike@xemacs.org>
* packages.el (packages-find-package-directories): Added support
for external package hierarchies with in-place installations.
* find-paths.el (paths-root-in-place-p): Added.
(paths-find-emacs-directory): Added support for external
directories with in-place installations.
(paths-find-site-directory): Ditto.
| author | michaels |
|---|---|
| date | Thu, 16 Jan 2003 08:59:47 +0000 |
| parents | 7039e6323819 |
| children | db7068430402 |
| rev | line source |
|---|---|
| 502 | 1 (globally-declare-fboundp |
| 2 '(gtk-type-from-name | |
| 3 gtk-import-function-internal | |
| 4 gtk-call-function)) | |
| 5 | |
| 462 | 6 (defvar gnome-init-called nil) |
| 7 | |
| 8 (defun gnome-init (app-id app-version argv) | |
| 9 (mapc 'dll-load | |
| 10 '("libgnomesupport.so" | |
| 11 "libgnome.so" | |
| 12 "libgnomeui.so" | |
| 13 "libesd.so" | |
| 14 "libaudiofile.so" | |
| 15 "libart_lgpl.so")) | |
| 16 (if (and (not (noninteractive)) (not gnome-init-called) | |
| 17 (= (gtk-type-from-name "GnomeApp") 0)) | |
| 18 (prog1 | |
| 19 (gtk-call-function (gtk-import-function-internal | |
| 20 'gint "gnome_init" '(GtkString GtkString gint GtkArrayOfString)) | |
| 21 (list app-id app-version (length argv) argv)) | |
| 22 (setq gnome-init-called t)))) | |
| 23 | |
| 24 (require 'gnome-widgets) | |
| 25 (provide 'gnome) |