-

private/menu.rkt

@@ -10,6 +10,8 @@
            menu-set-title!
            menu->json
            with-menu-item
+           menu-for-each
+           ww-menu-item-callback
            )
 
 
@@ -81,6 +83,21 @@
         (hash-set! h 'menu r)
         h)))
 
+  (define (menu-for-each menu cb)
+    (let ((items (ww-menu-items menu)))
+      (letrec ((f (λ (items)
+                    (if (null? items)
+                        #t
+                        (let ((item (car items)))
+                          (let ((submenu (ww-menu-item-submenu item)))
+                            (if (eq? submenu #f)
+                                (cb item)
+                                (menu-for-each submenu cb))))
+                        )
+                    )
+                  ))
+        (f items))))
+
   (define (menu->json menu)
     (let ((o (open-output-string)))
       (write-json (menu->hash menu) o)

private/web-racket.rkt

@@ -609,6 +609,20 @@
 
       (define/public (popup-menu menu-def x y)
         (ww-popup-menu win-id menu-def x y)
+        (let* ((ids (list))
+               (clear-connections (λ ()
+                                   (for-each (λ (id)
+                                               (send this disconnect-menu! id))
+                                             ids))))
+          (menu-for-each menu-def
+                         (λ (item)
+                           (let ((cb (ww-menu-item-callback item))
+                                 (id (ww-menu-item-id item)))
+                             (set! ids (cons id ids))
+                             (send this connect-menu! id (λ ()
+                                                           (clear-connections)
+                                                           (cb))))))
+          )
         )
 
       ; files and directories