From 84eb4bc5a1c29cd2126423468545db5869d715c5 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Wed, 18 Feb 2026 20:30:16 +0100 Subject: [PATCH] - --- example1/example.rkt | 1 + info.rkt | 2 +- private/web-wire.rkt | 4 ++-- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/example1/example.rkt b/example1/example.rkt index e37d8fb..7fe71bd 100644 --- a/example1/example.rkt +++ b/example1/example.rkt @@ -149,6 +149,7 @@ (define/override (choose-dir) (let ((new-dir (super choose-dir "Select a folder" my-dir))) + (displayln (format "choosen dir: ~a" new-dir)) (unless (eq? new-dir #f) (send this set-folder new-dir)))) diff --git a/info.rkt b/info.rkt index a68f296..d322ca9 100644 --- a/info.rkt +++ b/info.rkt @@ -1,7 +1,7 @@ #lang info (define pkg-authors '(hnmdijkema)) -(define version "0.2.8") +(define version "0.2.9") (define license 'MIT) (define collection "web-racket") (define pkg-desc "web-racket - A Web Based GUI library, based on webui-wire") diff --git a/private/web-wire.rkt b/private/web-wire.rkt index a3a70fd..ac90b6e 100644 --- a/private/web-wire.rkt +++ b/private/web-wire.rkt @@ -214,7 +214,7 @@ (define (process-event h evt) (let* ((m (regexp-match re-event evt))) - (ww-debug evt) + (ww-debug (format "process-event: ~a" evt)) (let* ((e (string->symbol (string-downcase (list-ref m 1)))) (win-id (if (eq? (list-ref m 3) #f) #f (string->number (list-ref m 3)))) (evt-handler (hash-ref windows-evt-handlers win-id #f)) @@ -224,7 +224,7 @@ (with-input-from-string (substring payload* 1) read-json))) ) (if (eq? evt-handler #f) - (ww-error (format "no event handler to handle event ~a" evt)) + (ww-error (format "process-event: no event handler to handle event ~a" evt)) (queue-callback (lambda () (evt-handler e payload)))) ) )