wrong contract
This commit is contained in:
+1
-1
@@ -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)
|
||||||
|
|||||||
Reference in New Issue
Block a user