cgit.sxemacs.org Git - sxemacs/blob - lisp/gnome.el

   1 (globally-declare-fboundp
   2  '(gtk-type-from-name
   3    gtk-import-function-internal
   4    gtk-call-function))
   5
   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)