From 1a05a53b6f75470e6cea060609eae1151e1b63a3 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Wed, 25 Feb 2026 00:55:25 +0100
Subject: [PATCH] -

---
 gui.rkt        | 2 +-
 gui/styles.css | 8 ++++++++
 rktplayer.rkt  | 1 +
 3 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/gui.rkt b/gui.rkt
index 62920e2..8f3659e 100644
--- a/gui.rkt
+++ b/gui.rkt
@@ -70,7 +70,7 @@
               (send el-at set-inner-html! as-str)
               (send el-length set-inner-html! ls-str)
               (let ((seeker (exact->inexact (/ (* 100 as) ls))))
-                (displayln (format "seeker = ~a" seeker))
+                ;(displayln (format "seeker = ~a" seeker))
                 (send el-seeker set! (format "~a" seeker)))
               )
             )
diff --git a/gui/styles.css b/gui/styles.css
index 5ecc0a6..69daf3b 100644
--- a/gui/styles.css
+++ b/gui/styles.css
@@ -167,6 +167,14 @@ table.tracks td.number {
 	text-align: right;
 }
 
+table.tracks tr {
+	cursor: default;
+}
+
+table.tracks tr:hover {
+   background: #e0e0e0;
+}
+
 table.tracks tr.current {
 	font-weight: bold;
 	color: blue;
diff --git a/rktplayer.rkt b/rktplayer.rkt
index 43ea952..ff1d14a 100644
--- a/rktplayer.rkt
+++ b/rktplayer.rkt
@@ -21,6 +21,7 @@
 (ww-set-log-level 'warning)
 ;(ww-tail-log)
 ;(ww-tail-log)
+(ao-set-async-mode! 'scheme)
 
 (define (run)
   (let* ((ini (new ini% [file 'rktplayer]))