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

fix gobj vs. glib imports

Browse Source 
original commit: b6a31a2d7d0bd52698b755b3ddab020d328747ee
This commit is contained in:
Matthew Flatt 2010-08-12 06:06:50 -06:00
parent ae649f506b
commit 5f125ac987
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -82,7 +82,7 @@
(define-gobj g_object_ref (_fun _pointer -> _void))
(define-gobj g_object_unref (_fun _pointer -> _void))
(define-gobj g_free (_fun _pointer -> _void))
(define-glib g_free (_fun _pointer -> _void))
(define-gobj g_object_set_data (_fun _GtkWidget _string _pointer -> _void))
(define-gobj g_object_get_data (_fun _GtkWidget _string -> _pointer))
@ -136,7 +136,7 @@
([data _pointer]
[next (_or-null _g-slist-pointer)]))
(define-gobj g_slist_free (_fun _g-slist-pointer -> _void))
(define-glib g_slist_free (_fun _g-slist-pointer -> _void))
;; This should probably be provided by Racket
(define make-byte-string
(get-ffi-obj 'scheme_make_byte_string #f (_fun _pointer -> _racket)))