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:54:38 +01:00
parent 018fbe14ef
commit b4364bc88a
2 changed files with 3 additions and 2 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.5") (define version "0.2.6")
(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")

3
private/web-racket.rkt
View File

@@ -96,7 +96,7 @@
(define connected-callbacks (make-hash)) (define connected-callbacks (make-hash))
(define/public (callback evt . args) (define/public (callback evt . args)
(ww-debug (format "Callback for ~a - ~a - ~a" id evt args)) (ww-debug (format "WW-ELEMENT%: Callback for ~a - ~a - ~a" id evt args))
(let ((cb (hash-ref connected-callbacks evt #f))) (let ((cb (hash-ref connected-callbacks evt #f)))
(unless (eq? cb #f) (unless (eq? cb #f)
(with-handlers ([exn:fail? (with-handlers ([exn:fail?
@@ -428,6 +428,7 @@
([eq? type 'text] ww-input%) ([eq? type 'text] ww-input%)
([eq? type 'date] ww-input-date%) ([eq? type 'date] ww-input-date%)
([eq? type 'datetime-local] ww-input-datetime%) ([eq? type 'datetime-local] ww-input-datetime%)
([eq? type 'range] ww-input-range%)
(else ww-input%))) (else ww-input%)))
(else ww-element%))) (else ww-element%)))