#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)))
    )
  )