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