-

wv-window.rkt

@@ -8,6 +8,7 @@
          "wv-settings.rkt"
          "rgba.rkt"
          "menu.rkt"
+         "private/utils.rkt"
          net/url
          net/sendurl
          racket/string
@@ -147,7 +148,7 @@
     (define (event-handler wv evt)
       (let ((event (hash-ref evt 'event 'unknown-event))
             )
-        (displayln evt)
+        (dbg-webview "event-handler - evt = ~a" evt)
         (cond
         ((eq? event 'resize)
          (send this resized (hash-ref evt 'w) (hash-ref evt 'h)))
@@ -170,7 +171,7 @@
            (hash-set! e 'data (hash-ref je 'js_evt (make-hash)))
            (hash-set! e 'event 'js-evt)
            (when (eq? (send this js-event e) 'wv-unhandled-js-event)
-             (displayln (format "Unhandled javascript event: ~a" e)))
+             (warn-webview "Unhandled javascript event: ~a" e))
            ))
         ((eq? event 'navigation-request)
          (let ((type (string->symbol (hash-ref evt 'type)))
@@ -193,7 +194,7 @@
              (eq? event 'msgbox-no))
          (send this message-done event))
         (else
-         (displayln (format "Unhandled event: ~a (~a)" event evt)))
+         (err-webview "Unhandled event: ~a (~a)" event evt))
         ))
       )