-

private/racket-wv.rkt

@@ -0,0 +1,37 @@
+#lang racket/base
+
+(require "racket-webview.rkt"
+         racket/class
+         )
+
+(provide wv-window%
+         )
+
+
+(define wv-window%
+  (class object%
+
+    (init-field profile
+                base-dir
+                [settings #f]
+                [parent #f]
+                [title "Racket Webview Window"]
+                [file-not-found-handler (λ (file base-path path) path)]
+                )
+
+    (define wv #f)
+    
+    (define (event-handler wv evt)
+      (displayln evt))
+
+    (super-new)
+    
+    (begin
+      (set! wv (webview-create
+                profile
+                (webview-standard-file-getter base-dir
+                                              file-not-found-handler)
+                event-handler)))
+    )
+  )
+