-

info.rkt

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

private/web-racket.rkt

@@ -395,6 +395,11 @@
                                                                       'navigation-type)))
                                       )
                                 (send this handle-navigate url type kind)))
+          ([eq? evt 'choose-dir] (let* ((handle (hash-ref content 'handle))
+                                        (choosen (hash-ref content 'choosen))
+                                        (dir (hash-ref content 'dir))
+                                        )
+                                   (send this dir-choosen handle choosen dir)))
           )
         )
 
@@ -620,6 +625,10 @@
               #f
               r)))
 
+      (define/public (dir-choosen handle choosen dir)
+        (ww-debug (format "dir-choosen: handle=~a, choosen=~a, dir=~a" handle choosen dir))
+        )
+
       (define/public (inherit-checks)
         #t)