-

gui.rkt

@@ -239,18 +239,21 @@
       (displayln (format "Open booklet ~a" path)))
 
     (define/public (open-folder path)
-      (displayln (format "open folder ~a" path)))
+      (displayln path)
+      (let ((folder (if (file-exists? path) (path-only path) path)))
+        (open-file-manager folder)))
+        ;(shell-execute #f folder #f #f 'sw_show)))
 
     (define/public (play)
       (displayln "Play button clicked")
       )
 
     (define/public (next-track)
-      (displayln "Next track")
+      (send player next)
       )
 
     (define/public (previous-track)
-      (displayln "Previous track")
+      (send player previous)
       )
 
     (define/public (repeat)