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:42:08 +02:00
parent 798e8c8c43
commit 10a9f4b431
2 changed files with 33 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
wv-window.rkt
View File

@@ -266,6 +266,9 @@
(send this bind! (string->symbol (format "~a" id)) 'menu-item-choosen
(λ (el evt data)
(callback))))
(define/public (disconnect-menu! id)
(send this unbind! id 'menu-item-choosen))
(define/public (devtools)
(webview-devtools wv)
@@ -323,6 +326,26 @@
(define/public (set-title! title)
(webview-set-title! wv title))
(define/public (popup-menu menu-def x y)
(webview-popup-menu wv 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))))))
(connect-menu! (ww-menu-id menu-def) (λ () (clear-connections)))
(set! ids (cons (ww-menu-id menu-def) ids))
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Files / Directories
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;