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)

private/racket-webview.rkt

@@ -112,6 +112,8 @@
          wv-win-window-nr
          wv-context?
 
+         webview-set-loglevel
+
          ;test
          )
 
@@ -493,6 +495,14 @@
       (rkt-webview-set-html! (wv-win-handle wv) (xexpr->string html))
       )
   )
+
+(define (loglevel? x)
+  (and (symbol? x)
+       (or (eq? x 'error) (eq? x 'info) (eq? x 'debug) (eq? x 'warning))))
+
+(define/contract (webview-set-loglevel l)
+  (-> loglevel? void?)
+  (rkt-webview-set-loglevel l))
   
 (define/contract (webview-set-url! wv url)
   (-> wv-win? (or/c string? url?) symbol?)