[cl-gtk2-devel] Dll loading patch for window

[Seth Burleigh]

The following should be changed to allow the loading of dlls on windows.

GDK Folder

 

gdk.package.lisp

 

(eval-when (:compile-toplevel :load-toplevel :execute)

  (define-foreign-library gdk

      (:unix (:or "libgdk-x11-2.0.so.0" "libgdk-x11-2.0.so"))

    (:win32 "libgdk-win32-2.0-0.dll")

    (t (:default "libgdk-2.0")))

  #+win32

    (define-foreign-library gdk-pixbuf

        (:win32 (:or 

                  "libgdk-pixbuf-win32-2.0-0" 

                  "libgdk-pixbuf-2.0-0.dll"))))

 

(use-foreign-library gdk)

#+win32 (use-foreign-library gdk-pixbuf)

 

GLIB FOLDER

glib.lisp

 

(eval-when (:compile-toplevel :load-toplevel :execute)

  (define-foreign-library glib

    (:unix (:or "libglib-2.0.so.0" "libglib-2.0.so"))

    (:win32 "libglib-2.0-0.dll")

    (t (:default "libglib-2.0"))))

 

(eval-when (:compile-toplevel :load-toplevel :execute)

  (define-foreign-library gthread

      (:unix (:or "libgthread-2.0.so.0"  "libgthread-2.0.so"))

    (:win32 "libgthread-2.0-0.dll")

    (t (:default "libgthread-2.0"))))

 

gobject.init.lisp

(eval-when (:compile-toplevel :load-toplevel :execute)

  (cffi:define-foreign-library gobject

                               (:unix (:or "libgobject-2.0.so.0"
"libgobject-2.0.so"))

                               (:win32 "libgobject-2.0-0.dll")

    (t (:default "libgobject-2.0"))))

 

 

GTK FOLDER

gk.package.lisp

(eval-when (:compile-toplevel :load-toplevel :execute)

  (define-foreign-library gtk

      (:unix (:or "libgtk-x11-2.0.so.0" "libgtk-x11-2.0.so"))

    (:win32 (:or "libgtk-2.0-0.dll" "libgtk-win32-2.0-0.dll"))

    (t (:default "libgtk-2.0"))))

 

 

GTK GLEXT FOLDER

(eval-when (:compile-toplevel :load-toplevel :execute)

  (define-foreign-library gtkglext

      (:unix (:or "libgtkglext-x11-1.0.so.0" "libgtkglext-x11-1.0.so"))

    (:win32 "libgtkglext-win32-1.0-0.dll")

    (t (:default "libgtkglext-1.0")))

  (define-foreign-library gdkglext

      (:unix (:or "libgdkglext-x11-1.0.so.0" "libgdkglext-x11-1.0.so"))

    (:win32 "libgtkglext-win32-1.0-0.dll")

    (t (:default "libgdkglext-1.0"))))

 

 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cl-gtk2-devel/attachments/20090912/1f710195/attachment.html>