suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adapt better to available drawing and GUI libraries on Unix variants

Browse Source 
original commit: df2351f90fbf13d69622b4ab2d376db0a61e9ee0
This commit is contained in:
Matthew Flatt 2011-01-02 19:18:57 -07:00
parent a8ff33af5e
commit 62a573c5a7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/private/wx/gtk/utils.rkt
View File

@ -56,19 +56,19 @@
(ffi-lib "libgio-2.0-0")
(ffi-lib "libgdk_pixbuf-2.0-0")
(ffi-lib "libgdk-win32-2.0-0")]
[else (ffi-lib "libgdk-x11-2.0" '("0"))]))
[else (ffi-lib "libgdk-x11-2.0" '("0" ""))]))
(define gdk_pixbuf-lib
(case (system-type)
[(windows)
(ffi-lib "libgdk_pixbuf-2.0-0")]
[(unix)
(ffi-lib "libgdk_pixbuf-2.0" '("0"))]
(ffi-lib "libgdk_pixbuf-2.0" '("0" ""))]
[else gdk-lib]))
(define gtk-lib
(case (system-type)
[(windows)
(ffi-lib "libgtk-win32-2.0-0")]
[else (ffi-lib "libgtk-x11-2.0" '("0"))]))
[else (ffi-lib "libgtk-x11-2.0" '("0" ""))]))
(define-ffi-definer define-gtk gtk-lib)
(define-ffi-definer define-gdk gdk-lib)