schemelib/bindings/gtk3.scm
2020-07-02 17:27:52 +02:00

23 lines
1.2 KiB
Scheme

(load-shared-object "libgtk-3.so.0"))
(define (gtk-init argc argv)
((foreign-procedure "gtk_init" (ptr void*) void) argc argv))
(define (gtk-builder-new)
((foreign-procedure "gtk_builder_new" () void*)))
(define (gtk-builder-add-from-file builder filename err)
((foreign-procedure "gtk_builder_add_from_file" (void* string void*) void) builder filename err))
(define (gtk-builder-get-object builder name)
((foreign-procedure "gtk_builder_get_object" (void* string) void*) builder name))
(define (gtk-builder-connect-signals builder user-data)
((foreign-procedure "gtk_builder_connect_signals" (void* void*) void) builder user-data))
(define (gtk-builder-add-callback-symbol builder cb-name cb-symbol)
((foreign-procedure "gtk_builder_add_callback_symbol" (void* string void*) void) builder cb-name cb-symbol))
(define (gtk-widget-show widget)
((foreign-procedure "gtk_widget_show" (void*) void) widget))
(define (gtk-widget-set-visible widget visibility)
((foreign-procedure "gtk_widget_set_visible" (void* boolean) void) widget visibility))
(define (gtk-main)
((foreign-procedure "gtk_main" () void)))
(define (gtk-main-quit)
((foreign-procedure "gtk_main_quit" () void)))