wrong contract

This commit is contained in:
2026-04-29 14:41:24 +02:00
parent 97acd18a88
commit 8710435d50
+1 -1
View File
@@ -1059,7 +1059,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define/contract (webview-tray-create icon-file event-callback #:tooltip [tooltip ""]) (define/contract (webview-tray-create icon-file event-callback #:tooltip [tooltip ""])
(->* ((or/c string? path?) procedure?) (#:tooltip string?) wv-win?) (->* ((or/c string? path?) procedure?) (#:tooltip string?) wv-tray?)
(let* ((h (make-wv-win #f #f -1 'tray)) (let* ((h (make-wv-win #f #f -1 'tray))
(event-processor (event-processor
(lambda (wv evt) (lambda (wv evt)