17 lines
339 B
Racket
17 lines
339 B
Racket
#lang racket/base
|
|
(require ffi/unsafe)
|
|
|
|
(provide gtk3?
|
|
get-gdk3-lib
|
|
get-gtk3-lib)
|
|
|
|
(define (get-gdk3-lib)
|
|
(ffi-lib "libgdk-3" '("0" "") #:fail (lambda () #f)))
|
|
(define (get-gtk3-lib)
|
|
(ffi-lib "libgtk-3" '("0" "") #:fail (lambda () #f)))
|
|
|
|
(define gtk3?
|
|
(and (not (getenv "PLT_GTK2"))
|
|
(get-gdk3-lib)
|
|
(get-gtk3-lib)))
|