-

racket-webview-qt.rkt

@@ -572,7 +572,7 @@
                   (hash-remove! rkt-wv-store (rkt-wv-win handle))
                   'quit)
                 (begin
-                  (displayln (format "Unexpected data in event queue: ~a" evt))
+                  (warn-webview "Unexpected data in event queue: ~a" evt)
                   (rkt-process-events handle)))
             (begin
               ((rkt-wv-callback handle) handle evt)
@@ -605,7 +605,7 @@
                                 (if (eq? r 'quit)
                                     (begin
                                       (set-rkt-wv-valid! handle #f)
-                                      (displayln "Quitting event loop")
+                                      (info-webview "Quitting event loop")
                                       'done)
                                     (begin
                                       ;(displayln "Waiting for events.")