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 16:37:12 +01:00
parent e97d7eb410
commit a9a7d799d0
3 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
example1/example.rkt
View File

@@ -18,20 +18,21 @@
(define-runtime-path html-start "example-1.html") (define-runtime-path html-start "example-1.html")
(define-runtime-path dialog-html "example-1-dialog.html") (define-runtime-path dialog-html "example-1-dialog.html")
(define test-menu (menu (menu-item 'm-file "File" (define test-menu (menu 'main-menu
(menu-item 'm-file "File"
#:submenu #:submenu
(menu (menu-item 'm-open "Open File") (menu (menu-item 'm-open "Open File")
(menu-item 'm-close "Close File") (menu-item 'm-close "Close File")
(menu-item 'm-select-dir "Select Folder" #:separator #t) (menu-item 'm-select-dir "Select Folder" #:separator #t)
(menu-item 'm-quit "Quit" #:separator #t))) (menu-item 'm-quit "Quit" #:separator #t)))
(menu-item 'm-edit "Edit" (menu-item 'm-edit "Edit"
#:submenu #:submenu
(menu (menu-item 'm-copy "Copy") (menu (menu-item 'm-copy "Copy")
(menu-item 'm-cut "Cut") (menu-item 'm-cut "Cut")
(menu-item 'm-paste "Paste") (menu-item 'm-paste "Paste")
(menu-item 'm-prefs "Preferences" #:separator #t) (menu-item 'm-prefs "Preferences" #:separator #t)
)) ))
(menu-item 'm-auto "Processes" (menu-item 'm-auto "Processes"
#:submenu #:submenu
(menu (menu-item 'm-start "Start counter") (menu (menu-item 'm-start "Start counter")
(menu-item 'm-sub "Submenu" (menu-item 'm-sub "Submenu"

2
private/menu.rkt
View File

@@ -21,7 +21,7 @@
#:transparent) #:transparent)
(define-struct ww-menu (define-struct ww-menu
([items #:mutable]) (id [items #:mutable])
#:transparent #:transparent
) )

5
private/web-racket.rkt
View File

@@ -608,7 +608,8 @@
(hash-set! menu-cbs id cb)) (hash-set! menu-cbs id cb))
(define/public (disconnect-menu! id) (define/public (disconnect-menu! id)
(hash-remove! menu-cbs id)) (hash-remove! menu-cbs id)
)
(define/public (popup-menu menu-def x y) (define/public (popup-menu menu-def x y)
(ww-popup-menu win-id menu-def x y) (ww-popup-menu win-id menu-def x y)
@@ -625,6 +626,8 @@
(send this connect-menu! id (λ () (send this connect-menu! id (λ ()
(clear-connections) (clear-connections)
(cb)))))) (cb))))))
(connect-menu! (ww-menu-id menu-def) (λ () (clear-connections)))
(set! ids (cons (ww-menu-id menu-def) ids))
) )
) )