racket webview qt finalizer next

playlist.rkt

@@ -5,7 +5,7 @@
          racket-sound
          "utils.rkt"
          racket-sprintf
-         "keystore.rkt"
+         keystore/class
          )
 
 (provide track%
@@ -165,7 +165,7 @@
      [settings #f]
      )
 
-    (define store (new keystore% [filename "rktplayer.store"]))
+    (define store (new keystore% [file 'rktplayer]))
     (define tracks '())
 
     (define (can-add? file)
@@ -274,12 +274,12 @@
       (let* ((entry id)
              (idx (send this tab-index entry))
              )
-        (displayln (format "entry id = ~a, ~a" entry idx))
+        (dbg-rktplayer "entry id = ~a, ~a" entry idx)
         (if (eq? idx #f)
           (err-rktplayer "Cannot get tab for id ~a" entry)
           (let ((value (list (send this get-tab-name idx)
                              (map (λ (track)
-                                    (format "~a" (send track get-file)))
+                                    (send track get-file))
                                   tracks))))
             (send store set! entry value)
             )
@@ -291,7 +291,7 @@
       (let* ((t (tabs))
              (entry (list-ref t idx))
              )
-        (displayln (format "loading ~a" entry))
+        (dbg-rktplayer "loading ~a" entry)
         (set! id entry)
         (set! tracks '())
         (let ((value (send store get entry (list "Default" '()))))