-

private/racket-webview.rkt

@@ -18,10 +18,12 @@
          webview-devtools
          webview-close
          webview-run-js
+         webview-call-js
          webview-move
          webview-resize
          webview-bind!
          webview-standard-file-getter
+         
          )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -113,7 +115,7 @@
                         #:parent [p 0])
   (let* ((h (make-wv #f current-servlet-port -1 file-getter bj #f))
          (server (let ((s (start-web-server h)))
-                   (sleep 1)
+                   (sleep 1) ;;; TODO: Check if web server is up. 
                    s))
          (event-processor (λ (wv evt)
                             (event-callback h (util-parse-event evt))))
@@ -166,9 +168,9 @@
             (on-not-exist file base-path p)
             p)))))
 
-;(define (webview-call-js wv js)
-;  (let ((result (rkt_webview_call_js (wv-handle wv) js)))
-;    result))
+(define (webview-call-js wv js)
+  (let ((result (rkt_webview_call_js (wv-handle wv) js)))
+    result))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; testing