-

private/racket-webview-qt.rkt

@@ -35,6 +35,7 @@
          rkt-webview-exit
          rkt-webview-valid?
          rkt-webview-open-devtools
+         rkt-webview-choose-dir
          )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -265,6 +266,10 @@
 (define-rktwebview rkt_webview_set_title
   (_fun _int _string/utf-8 -> _rkt_result_t))
 
+;RKTWEBVIEW_QT_EXPORT rkt_js_result_t *rkt_webview_choose_dir(rktwebview_t w, const char *title, const char *base_dir);
+(define-rktwebview rkt_webview_choose_dir
+  (_fun _int _string/utf-8 _string/utf-8 -> _rkt_js_result_t-pointer))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Initialize and start library
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -317,8 +322,10 @@
       'done))
 
 (define (rkt-webview-create parent evt-callback)
-  (let ((evt-queue (make-queue)))
-    (let ((wv (rkt_webview_create parent
+  (let* ((evt-queue (make-queue))
+         (parent-win (if (eq? parent #f) 0 (rkt-wv-win parent)))
+         )
+    (let ((wv (rkt_webview_create parent-win
                                   (λ (rkt-evt)
                                     (enqueue! evt-queue rkt-evt)))))
       (let ((handle (make-rkt-wv wv evt-queue evt-callback #t)))
@@ -386,6 +393,17 @@
 (define (rkt-webview-open-devtools wv)
   (rkt_webview_open_devtools (rkt-wv-win wv)))
 
+(define (rkt-webview-choose-dir wv title base-dir)
+  (let* ((r (rkt_webview_choose_dir (rkt-wv-win wv) title base-dir))
+         (value (cast (rkt_js_result_t-value r) _pointer _string*/utf-8))
+         (result (rkt_js_result_t-result r)))
+    (rkt_webview_destroy_js_result r)
+    (list result value)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Administration
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
 (define (rkt-webview-valid? wv)
   (if (eq? (rkt-wv-valid wv) #f)
       #f
@@ -402,6 +420,9 @@
               open-windows))
   (stop-event-processing))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Cleanup on exit
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (plumber-add-flush! (current-plumber)
                     (λ (handle)