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

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-02-18 10:42:29 +01:00
parent 5a0ad597a3
commit 018fbe14ef
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
info.rkt
View File

@@ -1,7 +1,7 @@
#lang info #lang info
(define pkg-authors '(hnmdijkema)) (define pkg-authors '(hnmdijkema))
(define version "0.2.4") (define version "0.2.5")
(define license 'MIT) (define license 'MIT)
(define collection "web-racket") (define collection "web-racket")
(define pkg-desc "web-racket - A Web Based GUI library, based on webui-wire") (define pkg-desc "web-racket - A Web Based GUI library, based on webui-wire")

4
private/web-racket.rkt
View File

@@ -220,9 +220,9 @@
(inp-set! val (ww-get-value (send this get-win-id) (inp-set! val (ww-get-value (send this get-win-id)
(send this get-id))) (send this get-id)))
(send this connect 'input (λ (data) (send this connect 'input (λ (data)
(ww-debug data) (ww-debug "WW-INPUT% 'input event:" data)
(let ((js-evt (hash-ref data 'js_evt #f))) (let ((js-evt (hash-ref data 'js_evt #f)))
(ww-debug js-evt) (ww-debug "WW-INPUT% 'input event, js-evt = " js-evt)
(unless (eq? js-evt #f) (unless (eq? js-evt #f)
(when (hash-has-key? js-evt 'value) (when (hash-has-key? js-evt 'value)
(let ((v (hash-ref js-evt 'value))) (let ((v (hash-ref js-evt 'value)))