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

Documentation and some other stuff.

Browse Source
This commit is contained in:
Hans Dijkema
2026-03-30 11:03:56 +02:00
parent 8349b65a83
commit 9dd8b895ae
13 changed files with 2619 additions and 1607 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
private/racket-webview-qt.rkt
View File

@@ -164,8 +164,11 @@
([eq? os 'linux]
(error (format
(string-append "Cannot load ~a.\n"
"Make sure you installed Qt6on your system\n"
"e.g. on debian 'sudo apt install libqt6webenginewidgets6'\n"
"Make sure you installed Qt6 on your system\n"
"NB. the minimum Qt version that is supported is Qt 6.10.\n"
"This probably means you will need to install it separately from\n"
"the standard distro packages (e.g. libqt6webenginewidgets6 on\n"
"debian based systems).\n"
"\n"
"Exception:\n\n~a")
ffi-library exp)))
@@ -260,9 +263,7 @@
)
(define-cstruct _rkt_version_t
([qt-major _int]
[qt-minor _int]
[qt-patch _int]
(
[api-major _int]
[api-minor _int]
[api-patch _int]
@@ -711,16 +712,12 @@
(define (rkt-webview-version)
(let ((d (rkt_webview_version)))
(let ((v (union-ref (rkt_data_t-data d) 0)))
(let ((qt-major (rkt_version_t-qt-major v))
(qt-minor (rkt_version_t-qt-minor v))
(qt-patch (rkt_version_t-qt-patch v))
(api-major (rkt_version_t-api-major v))
(let ((api-major (rkt_version_t-api-major v))
(api-minor (rkt_version_t-api-minor v))
(api-patch (rkt_version_t-api-patch v))
)
(rkt_webview_free_data d)
(list (list 'webview-c-api api-major api-minor api-patch)
(list 'qt qt-major qt-minor qt-patch))
(list (list 'webview-c-api api-major api-minor api-patch))
)
)
)

2
private/racket-webview.rkt
View File

@@ -663,7 +663,7 @@
p)))))
(define (webview-call-js wv js)
(define/contract (webview-call-js wv js)
(-> wv-win? string? (or/c string? list? boolean? hash?))
(let ((result (rkt-webview-call-js (wv-win-handle wv) js)))
;(displayln result)

16
private/wv-element.rkt
View File

@@ -63,28 +63,28 @@
(define/public (unset-style! styles)
(webview-unset-style! wv element-id styles))
(define (set-attr! attr-entries)
(define/public (set-attr! attr-entries)
(webview-set-attr! wv element-id attr-entries))
(define (attr attr)
(define/public (attr attr)
(webview-attr wv element-id attr))
(define (attr/number attr)
(define/public (attr/number attr)
(webview-attr/number wv element-id attr))
(define (attr/symbol attr)
(define/public (attr/symbol attr)
(webview-attr/symbol wv element-id attr))
(define (attr/boolean attr)
(define/public (attr/boolean attr)
(webview-attr/boolean wv element-id attr))
(define (attr/date attr)
(define/public (attr/date attr)
(webview-attr/date wv element-id attr))
(define (attr/time attr)
(define/public (attr/time attr)
(webview-attr/time wv element-id attr))
(define (attr/datetime attr)
(define/public (attr/datetime attr)
(webview-attr/datetime wv element-id attr))
(super-new)