diff --git a/private/racket-wv.rkt b/private/racket-wv.rkt new file mode 100644 index 0000000..0042a33 --- /dev/null +++ b/private/racket-wv.rkt @@ -0,0 +1,37 @@ +#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))) + ) + ) + \ No newline at end of file diff --git a/racket-wv.rkt b/racket-wv.rkt deleted file mode 100644 index f909c81..0000000 --- a/racket-wv.rkt +++ /dev/null @@ -1,21 +0,0 @@ -#lang racket/base - -(require "racket-webview.rkt" - racket/class - ) - -(provide wv-window% - ) - - -(define wv-window% - (class object% - - (init-field profile - [settings #f] - [parent #f] - [title "Racket Webview Window"] - ) - - - \ No newline at end of file