setting html text works

Author: soapdog

demo/demo.rkt

@@ -1,8 +1,7 @@
-#lang racket/gui
+#lang at-exp racket/gui
 
 (require web-view)
 
-
 (define frame
   (new frame% 
        [label "Demo Browser"]   
@@ -20,6 +19,15 @@
 (define (go-to-url button event)
   (send web-view set-url (send address-bar get-value)))
 
+(define test-html @string-append{
+<h1>It Works</h1>
+<p>This is a test of setting the HTML text of the browser to a string
+instead of a URL.</p>
+})
+
+(define (test-text button event)
+  (send web-view set-html-text test-html ""))
+
 (define (go-forward button event)
   (send web-view go-forward))
 
@@ -59,6 +67,12 @@
        [label "reload"]
        [callback reload]))
 
+(define test-text-button
+  (new button%
+       [parent toolbar]
+       [label "text"]
+       [callback test-text]))
+
 (define panel
   (new panel%
        [parent frame]))

private/web-view.rkt

@@ -48,6 +48,9 @@
 
     (define/public (reload)
       (send webview reload))
+
+    (define/public (set-html-text text base-url)
+      (send webview set-html-text text base-url))
 
     ))
 

private/wkwebview.rkt

@@ -23,8 +23,6 @@
 
     (init parent [on-status-change #f])
 
-    (define current-url #f)
-
     (define-cstruct _NSPoint ([x _double*]
                               [y _double*]))
 
@@ -79,7 +77,6 @@
       (tell #:type _NSString url absoluteString))
 
     (define/public (set-url given-url)
-      (set! current-url given-url)
       (let* ([url-string (tell (tell NSString alloc)
                                initWithUTF8String: #:type _string given-url)]
              [url (tell NSURL URLWithString: url-string)]
@@ -102,7 +99,15 @@
 
     (define/public (reload)
       (tell webview reload))
-    
+
+    (define/public (set-html-text text base-url)
+      (let* ([url-string (tell (tell NSString alloc)
+                               initWithUTF8String: #:type _string base-url)]
+             [url (tell NSURL URLWithString: url-string)]
+             [html (tell (tell NSString alloc)
+                               initWithUTF8String: #:type _string text)])
+      (tell webview loadHTMLString: html baseURL: url)))
+
     ))
 
 (provide wk-web-view%)