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

popup-menu

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-07 23:44:19 +02:00
parent 10a9f4b431
commit 27c2ae89da
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
wv-window.rkt
View File

@@ -7,6 +7,7 @@
"wv-input.rkt" "wv-input.rkt"
"wv-settings.rkt" "wv-settings.rkt"
"rgba.rkt" "rgba.rkt"
"menu.rkt"
net/url net/url
net/sendurl net/sendurl
racket/string racket/string
@@ -326,23 +327,23 @@
(define/public (set-title! title) (define/public (set-title! title)
(webview-set-title! wv title)) (webview-set-title! wv title))
(define/public (popup-menu menu-def x y) (define/public (popup-menu! menu-def x y)
(webview-popup-menu wv menu-def x y) (webview-popup-menu! wv menu-def x y)
(let* ((ids (list)) (let* ((ids (list))
(clear-connections (λ () (clear-connections (λ ()
(for-each (λ (id) (for-each (λ (id)
(send this disconnect-menu! id)) (send this disconnect-menu! id))
ids)))) ids))))
(menu-for-each menu-def (wv-menu-for-each menu-def
(λ (item) (λ (item)
(let ((cb (ww-menu-item-callback item)) (let ((cb (wv-menu-item-callback item))
(id (ww-menu-item-id item))) (id (wv-menu-item-id item)))
(set! ids (cons id ids)) (set! ids (cons id ids))
(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))) (connect-menu! (wv-menu-id menu-def) (λ () (clear-connections)))
(set! ids (cons (ww-menu-id menu-def) ids)) (set! ids (cons (wv-menu-id menu-def) ids))
) )
) )