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 "libgio-2.0-0")
(ffi-lib "libgdk_pixbuf-2.0-0") (ffi-lib "libgdk_pixbuf-2.0-0")
(ffi-lib "libgdk-win32-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 (define gdk_pixbuf-lib
(case (system-type) (case (system-type)
[(windows) [(windows)
(ffi-lib "libgdk_pixbuf-2.0-0")] (ffi-lib "libgdk_pixbuf-2.0-0")]
[(unix) [(unix)
(ffi-lib "libgdk_pixbuf-2.0" '("0"))] (ffi-lib "libgdk_pixbuf-2.0" '("0" ""))]
[else gdk-lib])) [else gdk-lib]))
(define gtk-lib (define gtk-lib
(case (system-type) (case (system-type)
[(windows) [(windows)
(ffi-lib "libgtk-win32-2.0-0")] (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-gtk gtk-lib)
(define-ffi-definer define-gdk gdk-lib) (define-ffi-definer define-gdk gdk-lib)