Documentation and refinement

private/wv-window.rkt

@@ -57,9 +57,10 @@
                 [height #f]
                 [x #f]
                 [y #f]
-                [wv #f]
                 )
 
+    (define wv #f)
+
     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     ;; Administration
     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -304,6 +305,9 @@
         )
       )
 
+    (define/public (set-title! title)
+      (webview-set-title! wv title))
+
     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     ;; Files / Directories
     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -418,14 +422,16 @@
       ;; Create window
       (write (list wv-context html-path event-handler parent))
       (newline)
-      (set! wv (webview-create
-                (send wv-context context)
-                html-path
-                event-handler
-                #:parent (if (eq? parent #f)
-                             #f
-                             (get-field wv parent))))
+      (let ((wv-parent (if (eq? parent #f) #f (hash-ref (send parent info) 'wv))))
+        (set! wv (webview-create
+                  (send wv-context context)
+                  html-path
+                  event-handler
+                  #:parent wv-parent)))
 
+      ;; Set title
+      (send this set-title! title)
+      
       ;; Move and resize window to settings
       (send this init-size)
       )