tray icon behaviour

racket-webview-qt.rkt

@@ -16,6 +16,7 @@
          racket/path
          "private/utils.rkt"
          "racket-webview-downloader.rkt"
+         "menu.rkt"
          openssl/libssl
          )
 
@@ -886,8 +887,15 @@
 (define (rkt-webview-tray-show-message tray title message)
   (rkt_webview_tray_show_message (rkt-wv-win tray) title message))
 
-(define (rkt-webview-tray-set-menu! tray menu-json)
-  (rkt_webview_tray_set_menu (rkt-wv-win tray) menu-json))
+(define (rkt-webview-tray-set-menu! tray menu)
+  (let ((json (if (wv-menu? menu)
+                  (if (wv-menu-empty? menu)
+                      #f
+                      (wv-menu->json menu))
+                  (error "rkt-webview-tray-set-menu! must be called with a wv-menu")
+                  ))
+        )
+    (rkt_webview_tray_set_menu (rkt-wv-win tray) json)))
 
 ;; Furthermore: rkt-webview-close, rkt-webview-valid?, rkt-webview-show and rkt-webview-hide apply also to tray