1#lang racket/base 2(require ffi/unsafe 3 "utils.rkt" 4 "types.rkt" 5 "queue.rkt") 6 7(define-gtk gtk_rc_parse_string (_fun _string -> _void)) 8(define-gtk gtk_rc_add_default_file (_fun _path -> _void)) 9 10(when (eq? 'windows (system-type)) 11 (let ([dir (simplify-path (build-path (collection-path "racket") 'up 'up "lib"))]) 12 (gtk_rc_parse_string (format "module_path \"~a\"\n" dir)) 13 (gtk_rc_add_default_file (build-path dir "gtkrc")))) 14 15(define pump-thread (gtk-start-event-pump)) 16 17