Mercurial > hg > xemacs-beta

diff lisp/gnome.el @ 462:0784d089fdc9 r21-2-46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-46
author cvs
date Mon, 13 Aug 2007 11:44:37 +0200
parents
children 7039e6323819
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/gnome.el	Mon Aug 13 11:44:37 2007 +0200
@@ -0,0 +1,20 @@
+(defvar gnome-init-called nil)
+
+(defun gnome-init (app-id app-version argv)
+  (mapc 'dll-load
+	'("libgnomesupport.so"
+	  "libgnome.so"
+	  "libgnomeui.so"
+	  "libesd.so"
+	  "libaudiofile.so"
+	  "libart_lgpl.so"))
+  (if (and (not (noninteractive)) (not gnome-init-called)
+	   (= (gtk-type-from-name "GnomeApp") 0))      
+      (prog1
+	  (gtk-call-function (gtk-import-function-internal
+			      'gint "gnome_init" '(GtkString GtkString gint GtkArrayOfString))
+			     (list app-id app-version (length argv) argv))
+	(setq gnome-init-called t))))
+
+(require 'gnome-widgets)
+(provide 'gnome)