Hans Dijkema
f8057fccc5
NB. does not work currently with the linux flatpak stuff. Signed-off-by: Hans Dijkema <hans@dijkewijk.nl>
40 lines
1014 B
Racket
40 lines
1014 B
Racket
(module web-racket-ini racket/gui
|
|
|
|
(require simple-ini/class
|
|
"../private/web-racket.rkt"
|
|
)
|
|
|
|
(provide ww-simple-ini%)
|
|
|
|
|
|
(define ww-simple-ini%
|
|
(class ww-settings%
|
|
(init-field [ini (error "Initialize this ww-simple-ini% with a ini% object of the simple-ini package")]
|
|
[section (error "Initialize this ww-simple-ini% with a section to use in the ini")]
|
|
)
|
|
|
|
(super-new)
|
|
|
|
(define/override (set key value)
|
|
(send ini set! section key value)
|
|
this
|
|
)
|
|
|
|
(define/override (get key . default)
|
|
(let ((d (if (null? default) #f (car default))))
|
|
(send ini get section key d)))
|
|
|
|
(define/override (clone new-section)
|
|
(new ww-simple-ini% [ini ini] [section new-section]))
|
|
|
|
(begin
|
|
(unless (is-a? ini ini%)
|
|
(error "ini must be of type ini%"))
|
|
(unless (symbol? section)
|
|
(error "section must be a symbol"))
|
|
))
|
|
)
|
|
|
|
|
|
) ; end of module
|