-

racket-webview.rkt

@@ -28,6 +28,7 @@
          gregor-utils
          lru-cache
          racket-self-signed-cert
+         simple-log
          )
 
 (provide webview-new-context
@@ -626,21 +627,9 @@
 (define (file-open-save wv title base-dir permitted-exts open-save-f)
   (let* ((bd (if (path? base-dir) (path->string base-dir) base-dir))
          (ext-filter (make-exts-filter permitted-exts)))
-    (displayln ext-filter);
+    (dbg-webview "file-open-save - filters: ~a" ext-filter)
     (let ((res (open-save-f (wv-win-handle wv) title bd ext-filter)))
       res)))
-;      (if (eq? res #f)
-;          #f
-;          (cond ((eq? (car res) 'oke)
-;                 (let* ((h (make-hash (hash->list (fromJson (cadr res))))))
-;                   (hash-set! h 'state (string->symbol (hash-ref h 'state)))
-;                   (hash-set! h 'used-filter (filter->exts (hash-ref h 'used-filter)))
-;                   h))
-;                (else #f))
-;          )
-;      )
-;    )
-;  )
 
 
 (define/contract (webview-file-open wv title base-dir permitted-exts)
@@ -724,7 +713,6 @@
 (define/contract (webview-call-js wv js)
   (-> wv-win? string? (or/c string? list? boolean? hash? symbol?))
   (let ((result (rkt-webview-call-js (wv-win-handle wv) js)))
-    ;(displayln result)
     (if (webview-call-js-result? result)
         (if (eq? (car result) 'oke)
             (hash-ref (fromJson (cadr result)) 'result #f)
@@ -1020,29 +1008,20 @@
 ;; testing
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(define-runtime-path example-path "../example")
-
-(define file-getter (webview-standard-file-getter example-path))
-
-(define test-context (webview-new-context file-getter))
+(define-runtime-path example-path "example")
 
 (define (test)
-  (let* ((cb (λ (handle evt)
-               (displayln evt)))
+  (let* ((file-getter (webview-standard-file-getter example-path))
+         (test-context (webview-new-context file-getter))
+         (cb (λ (handle evt)
+               (dbg-webview "~a" evt)))
          (h (webview-create test-context "index.html" cb))
          )
-    (displayln h)
+    (sl-log-to-display)
+    (dbg-webview "~a" h)
     (webview-set-title! h "This is a test window")
     (webview-resize h 800 600)
     (webview-move h 350 220)
-    ;(webview-present h)
     h))
+
   
-    
-;    (while (not (webview-has-events? h))
-;           (displayln "Waiting...")
-;           (sleep 1))
-;    (let ((evt (webview-get-event h)))
-;      (when (string=? (hash-ref evt 'evt) "html-loaded")
-;        (webview-bind h "button" "click")))
-;    h))