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

OO interface growing

Browse Source
This commit is contained in:
Hans Dijkema
2026-03-09 18:04:08 +01:00
parent d45dade325
commit 587c306218
5 changed files with 125 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
example/index.html
View File

@@ -13,6 +13,10 @@ Please press this <button id="btn">Button</button> for something to happen.
<p>
Some input text: <input type="Text" id="inp1" value="Default input value" />
</p>
<p>
Some input date: <input type="Date" id="inp2" value="2026-01-01" />
</p>
<div id="test" class="yellow">
<p> Hi there! <a href="/">Click here to load this page again</a></p>
<p> To <a href="page2.html">page 2</a></p>

10
example/page2.html
View File

@@ -10,6 +10,16 @@
<div id="test" class="yellow">
<p> Hi there! <a href="/">Click here to load this main page again</a></p>
</div>
<td>
<table>
<tr><th>Label</th><th>Value</th></tr>
<tr id="item-1"><td>Hi! One</td><td>10</td></tr>
<tr id="item-2"><td>Ohw!</td><td>12</td></tr>
<tr id="item-3"><td>Oh no!</td><td>1330</td></tr>
<tr id="item-4"><td>Right</td><td>102</td></tr>
<tr id="item-5"><td>Left</td><td>1013</td></tr>
<tr id="item-6"><td>FLOP</td><td>33</td></tr>
</table>
<div class="image">
<img src="test.jpg" />
</div>

79
js/boilerplate.js
View File

@@ -44,7 +44,33 @@ window.rkt_event_info = function(e, id, evt) {
return obj;
};
window.rkt_bind_evt_ids = function(win_nr, selector, event_kind) {
window.rkt_bounds = new Map();
window.rkt_get_evt_handler = function(event_kind, el_id, selector, win_nr)
{
let handler_key = "h-" + event_kind + "-" + el_id + "-" + selector + "-" + win_nr;
if (window.rkt_bounds.has(handler_key)) {
return window.rkt_bounds.get(handler_key);
} else {
let handler = {
handleEvent: function(e) {
let obj = {evt: event_kind, id: el_id, selector: selector, window: win_nr,
js_evt: window.rkt_event_info(event_kind, el_id, e) };
window.rkt_put_evt(obj);
}
};
window.rkt_bounds.set(handler_key, handler);
return handler;
}
}
window.rkt_rm_evt_handler = function(event_kind, el_id, selector, win_nr)
{
let handler_key = "h-" + event_kind + "-" + el_id + "-" + selector + "-" + win_nr;
window.rkt_bounds.delete(handler_key);
}
window.rkt_bind_evt_ids = function(win_nr, selector, event_kinds) {
try {
let nodelist = document.querySelectorAll(selector);
if (nodelist === undefined || nodelist === null) {
@@ -57,15 +83,48 @@ window.rkt_bind_evt_ids = function(win_nr, selector, event_kind) {
let el_type = el.getAttribute('type');
if (el_type === null) { el_type = ''; }
if (el_id !== null) {
el.addEventListener(event_kind,
function(e) {
let obj = {evt: event_kind, id: el_id, selector: selector, window: win_nr,
js_evt: window.rkt_event_info(event_kind, el_id, e) };
window.rkt_put_evt(obj);
}
);
let info = [ el_id, el_tag, el_type ];
ids.push(info);
if (event_kinds.length > 0) {
let i;
for(i = 0; i < event_kinds.length; i++) {
let event_kind = event_kinds[i];
el.addEventListener(event_kind, window.rkt_get_evt_handler(event_kind, el_id, selector, win_nr));
}
let info = [ el_id, el_tag, el_type ];
ids.push(info);
}
}
});
return ids;
} catch(e) {
return [];
}
};
window.rkt_unbind_evt_ids = function(win_nr, selector, event_kinds) {
console.log("unbind: " + selector);
console.log(event_kinds);
try {
let nodelist = document.querySelectorAll(selector);
if (nodelist === undefined || nodelist === null) {
return [];
}
let ids = [];
nodelist.forEach(function(el) {
let el_id = el.getAttribute('id');
let el_tag = el.nodeName;
let el_type = el.getAttribute('type');
if (el_type === null) { el_type = ''; }
if (el_id !== null) {
if (event_kinds.length > 0) {
let i;
for(i = 0; i < event_kinds.length; i++) {
let event_kind = event_kinds[i];
el.removeEventListener(event_kind, window.rkt_get_evt_handler(event_kind, el_id, selector, win_nr));
window.rkt_rm_evt_handler(event_kind, el_id, selector, win_nr);
}
let info = [ el_id, el_tag, el_type ];
ids.push(info);
}
}
});
return ids;

42
private/racket-webview.rkt
View File

@@ -59,6 +59,7 @@
wv-list-of-permitted-exts?
webview-bind!
webview-unbind!
webview-set-url!
webview-navigate!
@@ -156,7 +157,7 @@
(if (eq? cookie-header #f)
#f
(let ((cookies (c:cookie-header->alist (header-value cookie-header))))
(displayln (format "Cookies: ~a" cookies))
;(displayln (format "Cookies: ~a" cookies))
(let ((sec-token (findf (λ (c)
(eq? (string->symbol
(format "~a" (car c)))
@@ -169,7 +170,6 @@
(define (make-sec-header sec-cache)
(let ((tok (make-security-token)))
(lru-add! sec-cache tok)
(displayln (format "new sec-token: ~a" tok))
(make-header #"Set-Cookie"
(string->bytes/utf-8
(format "rkt-webview-token=~a" tok)))
@@ -264,8 +264,10 @@
(f1 (build-path cert-path (format "self-signed-~a.cert" window-nr)))
(f2 (build-path cert-path (format "self-signed-~a.key" window-nr)))
)
(delete-file f1)
(delete-file f2)
(when (file-exists? f1)
(delete-file f1))
(when (file-exists? f2)
(delete-file f2))
)
)
@@ -275,7 +277,10 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (util-parse-event evt)
(let ((wv-d0 (with-input-from-string evt read-json)))
(let ((wv-d0 (hash-copy (with-input-from-string evt read-json))))
(hash-set! wv-d0 'event
(string->symbol
(format "~a" (hash-ref wv-d0 'event 'nil))))
wv-d0))
(define (webview-call-js-result? x)
@@ -530,13 +535,32 @@
'oke))
(define/contract (webview-bind! wv selector event)
(-> wv? (or/c symbol? string?) symbol? list?)
(let ((sel (if (symbol? selector)
(-> wv? (or/c symbol? string?) (or/c symbol? list-of-symbol?) list?)
(let* ((sel (if (symbol? selector)
(format "#~a" selector)
selector))
(event* (if (symbol? event) (list event) event))
(evt (format "[ ~a ]" (string-join
(map (λ (e) (format "'~a'" e)) event*) ", ")))
)
(let ((r (webview-call-js wv
(format "return window.rkt_bind_evt_ids(~a, '~a', ~a)"
(wv-window-nr wv) sel evt))))
(map (λ (el)
(list (string->symbol (car el)) (cadr el) (caddr el)))
r))))
(define/contract (webview-unbind! wv selector event)
(-> wv? (or/c symbol? string?) (or/c symbol? list-of-symbol?) list?)
(let* ((sel (if (symbol? selector)
(format "#~a" selector)
selector))
(evt (format "~a" event)))
(event* (if (symbol? event) (list event) event))
(evt (format "[ ~a ]" (string-join
(map (λ (e) (format "'~a'" e)) event*) ", ")))
)
(let ((r (webview-call-js wv
(format "return window.rkt_bind_evt_ids(~a, '~a', '~a')"
(format "return window.rkt_unbind_evt_ids(~a, '~a', ~a)"
(wv-window-nr wv) sel evt))))
(map (λ (el)
(list (string->symbol (car el)) (cadr el) (caddr el)))

36
private/racket-wv.rkt
View File

@@ -2,36 +2,18 @@
(require "racket-webview.rkt"
racket/class
simple-ini/class
"wv-window.rkt"
)
(provide wv-window%
(provide (all from out "wv-window.rkt")
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Classes
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define wv-window%
(define wv-element%
(class object%
(init-field profile
base-dir
[settings #f]
[parent #f]
[title "Racket Webview Window"]
[file-not-found-handler (λ (file base-path path) path)]
)
(define wv #f)
(define (event-handler wv evt)
(displayln evt))
(super-new)
(begin
(set! wv (webview-create
profile
(webview-standard-file-getter base-dir
file-not-found-handler)
event-handler)))
)
)
(init-field element-id