-

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))))
 

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")

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))))
         )
       )