icon

wv-window.rkt

@@ -54,6 +54,7 @@
                 [html-path   (error "html path is mandatory")]
                 [settings    (send wv-context settings (string->symbol (format "~a" html-path)))]
                 [title "Racket Webview Window"]
+                [icon #f]
                 [width #f]
                 [height #f]
                 [x #f]
@@ -327,6 +328,9 @@
     (define/public (set-title! title)
       (webview-set-title! wv title))
 
+    (define/public (set-icon! icon-file)
+      (webview-set-icon! wv icon-file))
+
     (define/public (popup-menu! menu-def x y)
       (webview-popup-menu! wv menu-def x y)
       (let* ((ids (list))
@@ -468,8 +472,11 @@
                   event-handler
                   #:parent wv-parent)))
 
-      ;; Set title
+      ;; Set title / icon
       (send this set-title! title)
+      (unless (eq? icon #f)
+        (send this set-icon! icon))
+      
       
       ;; Move and resize window to settings
       (send this init-size)