annotate lisp/gnome.el @ 2536:7edc33019aa4
[xemacs-hg @ 2005-01-31 20:01:49 by ben]
Documentation updates
GETTING.GNU.SOFTWARE, Makefile.in.in: Delete GETTING.GNU.SOFTWARE from SOURCES.
PROBLEMS: Delete reference to check_cygwin_setup.sh.
Delete stuff that is irrelevant, mislocated or woefully out-of-date.
GNU, SERVICE: Delete.
* ORDERS, ORDERS.EUROPE, ORDERS.JAPAN: Delete.
* CHARSETS, CODINGS: Delete.
* DEBUG, LPF, MORE.STUFF, MOTIVATION: Delete.
aliases.ksh: Delete. (moved to xemacs-builds/steve)
* README.HYPERBOLE, README.OO-BROWSER: Delete.
* chr.png, chrm.png: Move to photos/.
check_cygwin_setup.sh: Delete.
* gnu.xpm, gnu.xbm, sink.xbm: Delete.
* ms-kermit, ms-kermit-7bit: Delete.
TERMS: Delete.
* DISTRIB, FTP, MACHINES, MAILINGLISTS, PACKAGES:
Delete and move to FAQ.
BETA: Delete and move to man/beta.texi.
README: Update.
help.el: Removed.
xemacs/help.texi: Delete references to DISTRIB. Point to FAQ.
xemacs/new.texi: Update sample code for version checking.
xemacs/xemacs.texi: Delete references to DISTRIB. Point directly to web site.
Update stuff referring to GNU Emacs. Delete references to Win-Emacs.
Makefile: Add beta.texi and built files.
xemacs-faq.texi: Major overhaul of section 1. Add mailing list info, update
downloading info, add info on CVS, etc.
xemacs.mak: Also copy BUGS, README, COPYING and Installation.
| author |
ben |
| date |
Mon, 31 Jan 2005 20:01:50 +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)
|