Working on linux now, better logging

private/racket-webview-qt.rkt

@@ -44,6 +44,7 @@
          rkt-webview-file-save
          rkt-webview-messagebox
          rkt-webview-version
+         rkt-webview-set-loglevel
          )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -193,6 +194,14 @@
 ;; Types / Functions
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+(define _rkt_loglevel_t
+  (_enum '(error = 1
+           warning = 2
+           info = 3
+           debug = 4)
+         )
+  )
+
 (define _rkt_result_t
   (_enum '(no_result_yet = -1
            oke = 0
@@ -286,6 +295,9 @@
 (define-rktwebview rkt_webview_cleanup
   (_fun -> _void))
 
+;RKTWEBVIEW_EXPORT void rkt_webview_set_loglevel(rkt_webview_loglevel_t l);
+(define-rktwebview rkt_webview_set_loglevel
+  (_fun _rkt_loglevel_t -> _void))
 
 ;RKTWEBVIEW_EXPORT int rkt_webview_events_waiting();
 (define-rktwebview rkt_webview_events_waiting
@@ -580,6 +592,9 @@
   ((rkt-wv-close-callback handle))
   #t)
 
+(define (rkt-webview-set-loglevel l)
+  (rkt_webview_set_loglevel l))
+
 (define (rkt-webview-set-ou-token handle token)
   (rkt_webview_set_ou_token (rkt-wv-win handle) token)
   #t)