1 (globally-declare-fboundp
3 gtk-import-function-internal
6 (defvar gnome-init-called nil)
8 (defun gnome-init (app-id app-version argv)
10 '("libgnomesupport.so"
16 (if (and (not (noninteractive)) (not gnome-init-called)
17 (= (gtk-type-from-name "GnomeApp") 0))
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))))
24 (require 'gnome-widgets)