Wijzigingen.

rktplayer.rkt

@@ -17,10 +17,12 @@
 (define-runtime-path rkt-gui-dir "gui")
 
 (define log-file (build-path (find-system-path 'cache-dir) ".rktplayer.log"))
+
 (displayln log-file)
 (sl-log-to-file log-file)
+(define store (sl-log-to-store))
+
 (void (current-opusfile-output-format 's24))
-;(sl-log-to-display)
 
 (define (my-file-getter url)
   (dbg-rktplayer "my-file-getter - url = ~a" url)
@@ -62,6 +64,7 @@
                        [file-getter my-file-getter]
                        ))
          )
+    (displayln (format "ini file: ~a" (send ini get-file)))
     (set-lang! (send ini get 'settings 'language 'en))
     (let* ((window (new rktplayer% [wv-context context] [log-file log-file]))
            (tray (new rktplayer-tray% [rktplayer-gui window]))
@@ -107,7 +110,8 @@
         (webview-wait-for-quit)
         (send rktplayer-tray close)
         (webview-exit)
-        (exit))
+        ;(exit)
+        )
       )
     )
   )