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

Windows build and config repairs

Browse Source 
original commit: 0709870ef92396afe505439eb65daf797e7e71c7
This commit is contained in:
Matthew Flatt 2010-06-12 09:56:01 -06:00
parent c0dfb70144
commit bfef0ad308
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mred/private/wx/gtk/init.rkt
View File

@ -7,6 +7,16 @@
(define-gtk gtk_init (_fun (_ptr io _int) (_ptr io _pointer) -> _void))
(define-gtk gtk_rc_parse_string (_fun _string -> _void))
(define-gtk gtk_rc_add_default_file (_fun _path -> _void))
(define-gtk gtk_rc_find_module_in_path (_fun _path -> _path))
(define-gtk gtk_rc_get_module_dir (_fun -> _path))
(when (eq? 'windows (system-type))
(let ([dir (simplify-path (build-path (collection-path "scheme") 'up 'up "lib"))])
(gtk_rc_parse_string (format "module_path \"~a\"\n" dir))
(gtk_rc_add_default_file (build-path dir "gtkrc"))))
(gtk_init 0 #f)
(define pump-thread (gtk-start-event-pump))

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

@ -99,10 +99,7 @@
(define (set-gtk-object-flags! gtk v)
(set-GtkObject-flags! (cast gtk _pointer _GtkObject-pointer) v))
(define-gtk gtk_rc_parse (_fun _path -> _void))
(define-gmodule g_module_open (_fun _path _int -> _pointer))
(when (eq? 'windows (system-type))
(gtk_rc_parse (build-path (collection-path "scheme") 'up 'up "lib" "gtkrc")))
(define-gmodule g_module_open (_fun _path _int -> _pointer))
(define-syntax-rule (define-signal-handler
connect-name