Working on linux now, better logging

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?)