Example further and also message box preparation.

NB. does not work currently with the linux flatpak stuff.

Signed-off-by: Hans Dijkema <hans@dijkewijk.nl>

settings/web-racket-ini.rkt

@@ -0,0 +1,39 @@
+(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