37 lines
742 B
Racket
37 lines
742 B
Racket
#lang racket/base
|
|
|
|
(require "racket-webview.rkt"
|
|
racket/class
|
|
)
|
|
|
|
(provide wv-window%
|
|
)
|
|
|
|
|
|
(define wv-window%
|
|
(class object%
|
|
|
|
(init-field profile
|
|
base-dir
|
|
[settings #f]
|
|
[parent #f]
|
|
[title "Racket Webview Window"]
|
|
[file-not-found-handler (λ (file base-path path) path)]
|
|
)
|
|
|
|
(define wv #f)
|
|
|
|
(define (event-handler wv evt)
|
|
(displayln evt))
|
|
|
|
(super-new)
|
|
|
|
(begin
|
|
(set! wv (webview-create
|
|
profile
|
|
(webview-standard-file-getter base-dir
|
|
file-not-found-handler)
|
|
event-handler)))
|
|
)
|
|
)
|
|
|