Documentation and refinement

private/racket-webview.rkt

@@ -110,8 +110,9 @@
 
          wv-context-base-url
          wv-win-window-nr
+         wv-context?
 
-         test
+         ;test
          )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

private/wv-context.rkt

@@ -14,7 +14,7 @@
      [file-getter (webview-standard-file-getter base-path)]
      [context-js  (λ () "")]
      [boilerplate-js (webview-default-boilerplate-js context-js)]
-     [ini (error "You need to provide a 'ini' file settings interface for settings, e.g. simple-ini")]
+     [ini (error "You need to provide a 'ini' file settings interface for settings, e.g. simple-ini/class")]
      )
      
     (define wv-context #f)

private/wv-settings.rkt

@@ -31,6 +31,9 @@
     (define/public (clone context)
       (new wv-settings% [ini ini] [wv-context context]))
 
+    (define/public (context)
+      wv-context)
+
     (super-new)
     )
   )

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