diff --git a/racket-webview-qt.rkt b/racket-webview-qt.rkt index a61344b..3841ea4 100644 --- a/racket-webview-qt.rkt +++ b/racket-webview-qt.rkt @@ -892,8 +892,10 @@ (if (wv-menu-empty? menu) #f (wv-menu->json menu)) - (error "rkt-webview-tray-set-menu! must be called with a wv-menu") - )) + (if (eq? menu #f) + #f + (error "rkt-webview-tray-set-menu! must be called with a wv-menu or #f") + ))) ) (rkt_webview_tray_set_menu (rkt-wv-win tray) json)))