You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
343 B
15 lines
343 B
|
|
(define atomic-webview (make-atomic-box #f))
|
|
|
|
(define (open-page url)
|
|
(cond
|
|
((atomic-box-ref atomic-webview)
|
|
(open-page-with-webview (atomic-box-ref atomic-webview) url))
|
|
(else #f)))
|
|
|
|
(call-with-new-thread
|
|
(lambda ()
|
|
(define webview (make-webview))
|
|
|
|
(atomic-box-set! atomic-webview webview)
|
|
(launch-webkit-blocking webview)))
|
|
|