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

fixes for Windows

Browse Source 
original commit: aabc1cf5a7e3362854777f09a7bf59d4d403dddb
This commit is contained in:
Matthew Flatt 2010-05-31 19:31:40 -06:00
parent 7b32ac2065
commit 9ff3ba5fa1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/private/wx/gtk/list-box.rkt
View File

@ -1,5 +1,6 @@
#lang scheme/base
(require scheme/foreign
(require ffi/unsafe
ffi/unsafe/define
scheme/class
"../../syntax.rkt"
"../../lock.rkt"
@ -9,7 +10,6 @@
"window.rkt"
"const.rkt"
"../common/event.rkt")
(unsafe!)
(provide list-box%)
@ -38,8 +38,8 @@
(define-gtk gtk_tree_view_get_selection (_fun _GtkWidget -> _GtkWidget))
(define _GList (_cpointer 'List))
(define-gdk g_list_foreach (_fun _GList (_fun _pointer -> _void) _pointer -> _void))
(define-gdk g_list_free (_fun _GList -> _void))
(define-glib g_list_foreach (_fun _GList (_fun _pointer -> _void) _pointer -> _void))
(define-glib g_list_free (_fun _GList -> _void))
(define-gtk gtk_tree_selection_get_selected_rows (_fun _GtkWidget _pointer -> (_or-null _GList)))
(define-gtk gtk_tree_path_free (_fun _pointer -> _void))
(define-gtk gtk_tree_path_get_indices (_fun _pointer -> _pointer))