(defun test ()
  (loadLibrary "libgtk-x11-2.0.so")
  (callFun "gtk_init" "void" "pointer" "0" "pointer" "0")
  (let ((window (callFun "gtk_window_new" "pointer" "int" "0"))
        (button (callFun "gtk_button_new_with_label" "pointer"
                         "cstring" "Click me!")))
    (callFun "gtk_window_set_title" "void"
             "pointer" window
             "cstring" "RFFi: Lisp <--> C")
    (callFun "gtk_container_add" "void"
             "pointer" window "pointer" button)
    (callFun "gtk_widget_show_all" "void" "pointer" window)
    #|
    (createCallback "my-callback" "unsigned int" "cstring")
    
    (callFun "g_signal_connect_data" "unsigned long"
             "cstring" "clicked"
             "pointer" button
             "pointer" (saddr-of "callback")
             "cstring" "my-callback"
             "pointer" "0"
             "int" "0")|#
    (callFun "gtk_main" "void" "void" "")))