hans/racket-webview
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

handle problems.

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-29 14:52:34 +02:00
parent 8710435d50
commit 267884c7c3
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
racket-webview.rkt
+4 -4
View File
@@ -1074,19 +1074,19 @@
(define/contract (webview-tray-set-icon! tray icon-file) (define/contract (webview-tray-set-icon! tray icon-file)
(-> wv-tray? (or/c string? path?) symbol?) (-> wv-tray? (or/c string? path?) symbol?)
(rkt-webview-tray-set-icon! tray (format "~a" icon-file))) (rkt-webview-tray-set-icon! (wv-win-handle tray) (format "~a" icon-file)))
(define/contract (webview-tray-set-tooltip! tray tooltip) (define/contract (webview-tray-set-tooltip! tray tooltip)
(-> wv-tray? string? symbol?) (-> wv-tray? string? symbol?)
(rkt-webview-tray-set-tooltip! tray tooltip)) (rkt-webview-tray-set-tooltip! (wv-win-handle tray) tooltip))
(define/contract (webview-tray-show-message tray title message) (define/contract (webview-tray-show-message tray title message)
(-> wv-tray? string? string? symbol?) (-> wv-tray? string? string? symbol?)
(rkt-webview-tray-show-message tray title message)) (rkt-webview-tray-show-message (wv-win-handle tray) title message))
(define/contract (webview-tray-set-menu! tray menu) (define/contract (webview-tray-set-menu! tray menu)
(-> wv-tray? is-wv-menu? symbol?) (-> wv-tray? is-wv-menu? symbol?)
(rkt-webview-tray-set-menu! tray (wv-menu->json menu))) (rkt-webview-tray-set-menu! (wv-win-handle tray) (wv-menu->json menu)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; delayed reactor ;; delayed reactor