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