-

2026-02-19 17:15:12 +01:00
parent f56e31ddcd
commit 296f2aedad
1 changed files with 6 additions and 2 deletions
--- a/private/menu.rkt
+++ b/private/menu.rkt
@@ -44,8 +44,12 @@
            #f)
        #f))

-  (define (menu id . items)
-    (make-ww-menu id items))
+  (define (menu . items)
+    (let ((menu-id #f))
+      (when (symbol? (car items))
+        (set! menu-id (car items))
+        (set! items (cdr items)))
+      (make-ww-menu menu-id items)))

  (define (menu-item id title
                     #:icon-file [icon-file #f]