-

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)))
               )
             )

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;

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]))