log
graph
tags
bookmarks
branches
changeset
browse
file
latest
diff
comparison
annotate
file log
raw
help
Mercurial
>
hg
>
xemacs-beta
annotate lisp/gnome.el @ 4470:
c76b1bc6bd28
Find changesets by keywords (author, files, the commit message), revision number or hash, or
revset expression
.
Correct a thinko in the #'translate-region docstring 2008-05-27 Aidan Kehoe <kehoea@parhasard.net> * editfns.c (Ftranslate_region): Correct a thinko in the last commit; I meant #'get-char-table, not #'put-char-table.
author
Aidan Kehoe <kehoea@parhasard.net>
date
Tue, 27 May 2008 12:01:29 +0200 (2008-05-27)
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)