gtk.lisp

(cffi:defcallback callybacky :void ((source-object :pointer)
                                    (result :pointer)
                                    (user-data :pointer))
  (let* ((np (cffi:null-pointer))
         (js-result
          (webkit2:webkit-web-view-run-javascript-finish
           (current-view *next-interface*) result))
         (context (webkit2:webkit-javascript-result-get-global-context js-result))
         (value (webkit2:webkit-javascript-result-get-value js-result))
         (js-str-value (jscore:js-value-to-string-copy context value np)))
    (print js-result)
    (print context)
    (print value)
    (print js-str-value))
  (break)
  nil)