Example further and also message box preparation.

NB. does not work currently with the linux flatpak stuff.

Signed-off-by: Hans Dijkema <hans@dijkewijk.nl>

private/web-wire.rkt

@@ -43,7 +43,7 @@
 
            ww-set-menu
 
-           ww-set-html
+           ww-set-html-file
            ww-set-url
            
            ww-set-inner-html
@@ -98,8 +98,9 @@
           #f)))
 
   (define (as-string s)
-    (let ((s* (format "~a" s)))
-      (with-output-to-string (lambda () (write s*)))))
+    (format "~a" s))
+    ;(let ((s* (format "~a" s)))
+    ;  (with-output-to-string (lambda () (write s*)))))
 
   (define (ww-from-string s)
     (let ((s* (substring s 1 (- (string-length s) 1))))
@@ -814,13 +815,12 @@
     set-url ((win-id ww-win?)
              (url string?)) () -> void)
   
-  ;; Set html of window
-  (def-cmd ww-set-html
+  ;; Set html of window to file 
+  (def-cmd ww-set-html-file
     set-html ((win-id ww-win?)
               (html-file html-file-exists?)) ()
     -> number)
 
-
   ;; Set inner html of an Id of the HTML in the window
   (def-cmd ww-set-inner-html
     set-inner-html ((win-id ww-win?)