-

2026-02-19 14:49:31 +01:00
parent bb3d4ead51
commit 5a4f9a3334
4 changed files with 41 additions and 2 deletions
--- a/example1/example.rkt
+++ b/example1/example.rkt
@@ -34,8 +34,16 @@
                        (menu-item 'm-auto "Processes"
                                   #:submenu
                                   (menu (menu-item 'm-start "Start counter")
+                                         (menu-item 'm-sub "Submenu"
+                                                    #:submenu
+                                                    (menu (menu-item 'm-sub1 "Submenu 1")
+                                                          (menu-item 'm-sub2 "Submenu 2")
+                                                          (menu-item 'm-sub3 "Submenu 3")
+                                                          )
+                                                    )
                                         (menu-item 'm-stop "Stop counter")
-                                         ))
+                                         )
+                                   )
                        ))

 (define example-1-dialog%