handle problems.
This commit is contained in:
+4
-4
@@ -1074,19 +1074,19 @@
|
||||
|
||||
(define/contract (webview-tray-set-icon! tray icon-file)
|
||||
(-> 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)
|
||||
(-> 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)
|
||||
(-> 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)
|
||||
(-> 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
|
||||
|
||||
Reference in New Issue
Block a user