icon

2026-04-08 16:39:46 +02:00
parent de8930cd2a
commit 0e23acdfb3
4 changed files with 28 additions and 1 deletions
--- a/racket-webview.rkt
+++ b/racket-webview.rkt
@@ -48,6 +48,7 @@
         webview-minimize
         webview-window-state
         webview-set-title!
+         webview-set-icon!

         webview-messagebox
         
@@ -658,6 +659,10 @@
  (-> wv-win? string? symbol?)
  (rkt-webview-set-title! (wv-win-handle wv) title))

+(define/contract (webview-set-icon! wv icon-file)
+  (-> wv-win? (or/c string? path?) symbol?)
+  (rkt-webview-set-icon! (wv-win-handle wv) (format "~a" icon-file)))
+
 (define/contract (webview-close wv)
  (-> wv-win? symbol?)
  (begin