annotate lisp/gnome.el @ 622:11502791fc1c

[xemacs-hg @ 2001-06-22 01:49:57 by ben] dired-msw.c: Fix problem noted by Michael Sperber with directories containing [] and code that destructively modifies an existing string. term\AT386.el: Fix warnings. term\apollo.el: Removed. Kill kill kill. Sync with FSF and remove most crap. term\linux.el: Removed. Sync with FSF. Don't define most defns, because they are automatically defined by termcap. But do add defns for keys that normally get defined as f13, f14, etc. and really ought to be shift-f3, shift-f4, etc. (NOTE: I did this based on Cygwin, which emulates the Linux console. I would appreciate it if someone on Linux could verify.) term\cygwin.el: New. Load term/linux. term\lk201.el, term\news.el, term\vt100.el: Sync with FSF. Fix warnings. dialog-gtk.el: Fix warning. For 21.4: help.el, update-elc.el: Compile in proper order. Maybe for 21.4: keydefs.el: Add a defn for M-?, previously undefined, to access help -- in case the terminal is not set up right, or f1 gets redefined. README: Rewrite.
author ben
date Fri, 22 Jun 2001 01:50:04 +0000
parents 7039e6323819
children db7068430402
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
1 (globally-declare-fboundp
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
2 '(gtk-type-from-name
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
3 gtk-import-function-internal
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
4 gtk-call-function))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
5
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
6 (defvar gnome-init-called nil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
7
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
8 (defun gnome-init (app-id app-version argv)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
9 (mapc 'dll-load
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
10 '("libgnomesupport.so"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
11 "libgnome.so"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
12 "libgnomeui.so"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
13 "libesd.so"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
14 "libaudiofile.so"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
15 "libart_lgpl.so"))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
16 (if (and (not (noninteractive)) (not gnome-init-called)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
17 (= (gtk-type-from-name "GnomeApp") 0))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
18 (prog1
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
19 (gtk-call-function (gtk-import-function-internal
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
20 'gint "gnome_init" '(GtkString GtkString gint GtkArrayOfString))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
21 (list app-id app-version (length argv) argv))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
22 (setq gnome-init-called t))))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
23
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
24 (require 'gnome-widgets)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
25 (provide 'gnome)