hans/web-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-02-19 17:15:12 +01:00
parent f56e31ddcd
commit 296f2aedad
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
private/menu.rkt
View File

@@ -44,8 +44,12 @@
#f) #f)
#f)) #f))
(define (menu id . items) (define (menu . items)
(make-ww-menu id 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 (define (menu-item id title
#:icon-file [icon-file #f] #:icon-file [icon-file #f]