-

gui.rkt

@@ -9,7 +9,7 @@
          "playlist.rkt"
          "player.rkt"
          )
-
+ 
 (provide
  (all-from-out web-racket)
  rktplayer%
@@ -204,9 +204,11 @@
       (send this close))
 
     (define/public (select-library)
+      ;(set! music-library "c:\\Users\\Hans")
       (let ((handle (send this choose-dir
                        (tr "Choose the folder containing your music library")
-                       (format "~a" music-library))))
+                       (if (string? music-library) music-library (path->string music-library))
+                       )))
         (displayln (format "Selecting Music Library with handle: ~a" handle))
         )
       )