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

Added more features to this example.

Browse Source 
Signed-off-by: Hans Dijkema <hans@dijkewijk.nl>
This commit is contained in:
Hans Dijkema
2025-11-13 11:00:19 +01:00
parent b412f797e0
commit 2aa6db7423
4 changed files with 116 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
private/web-racket.rkt
View File

@@ -155,10 +155,10 @@
(define/public (show-inline)
(send this display "inline-block"))
(define/public (set-inner-html html-or-sexpr)
(define/public (set-inner-html! html-or-sexpr)
(if (string? html-or-sexpr)
(ww-set-inner-html win-id id html-or-sexpr)
(set-inner-html (xexpr->html5 html-or-sexpr))))
(set-inner-html! (xexpr->html5 html-or-sexpr))))
(super-new)
)
@@ -342,7 +342,7 @@
(set! x x*)
(set! y y*)
))
([eq? evt 'request-close] (when (send this can-close?)
([eq? evt 'close-request] (when (send this can-close?)
(send this close)))
([eq? evt 'menu-item-choosen] (let* ((menu-id (string->symbol (hash-ref content 'item)))
(cb (hash-ref menu-cbs menu-id #f)))