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

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-03-09 10:14:18 +01:00
parent 3d3c4946c3
commit 2b617cf4f5
1 changed files with 16 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
private/racket-webview.rkt
View File

@@ -116,6 +116,7 @@
[request-count #:mutable] [request-count #:mutable]
[sec-token-cache #:mutable] [sec-token-cache #:mutable]
[cert-ou-token #:mutable] [cert-ou-token #:mutable]
[context #:mutable]
) )
#:transparent) #:transparent)
@@ -225,10 +226,13 @@
) )
) )
) )
(let* ((f1 "c:/tmp/my.crt") (let* ((cert-path (let ((p (build-path (find-system-path 'pref-dir) "racket-webview" (wv-context h))))
(f2 "c:/tmp/my.key") (make-directory* p)
(fh1 (open-output-file f1 #:exists 'replace)) p))
(fh2 (open-output-file f2 #:exists 'replace))) (f1 (build-path cert-path "self-signed.cert"))
(f2 (build-path cert-path "self-signed.key"))
(fh1 (open-output-file f1 #:exists 'replace #:permissions #o600))
(fh2 (open-output-file f2 #:exists 'replace #:permissions #o600)))
(display (certificate cert) fh1) (display (certificate cert) fh1)
(display (private-key cert) fh2) (display (private-key cert) fh2)
(close-output-port fh1) (close-output-port fh1)
@@ -353,11 +357,14 @@
;; Webview functions ;; Webview functions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (webview-create file-getter event-callback (define/contract (webview-create context file-getter event-callback
#:boilerplate-js [bj (λ () (default-boilerplate-js))] #:boilerplate-js [bj (λ () (default-boilerplate-js))]
#:parent [p #f]) #:parent [p #f])
(->* ((or/c symbol? string?) procedure? procedure?)
(#:boilerplate-js procedure? #:parent (or/c wv? #f))
wv?)
(let* ((h (make-wv #f 0 -1 file-getter bj #f 0 (make-lru 250 #:cmp eq?) (let* ((h (make-wv #f 0 -1 file-getter bj #f 0 (make-lru 250 #:cmp eq?)
(symbol->string (make-security-token)))) (symbol->string (make-security-token)) (symbol->string context)))
(cert (generate-self-signed-cert 2048 365 '("127.0.0.1" "localhost") (cert (generate-self-signed-cert 2048 365 '("127.0.0.1" "localhost")
"NL" "Dijkema" "NL" "Dijkema"
#:ou (wv-cert-ou-token h))) #:ou (wv-cert-ou-token h)))
@@ -771,7 +778,7 @@
(define (test) (define (test)
(let* ((cb (λ (handle evt) (let* ((cb (λ (handle evt)
(displayln evt))) (displayln evt)))
(h (webview-create file-getter cb)) (h (webview-create 'test file-getter cb))
) )
(webview-set-title! h "This is a test window") (webview-set-title! h "This is a test window")
(webview-resize h 800 600) (webview-resize h 800 600)