Adding settings.

2026-07-08 00:09:45 +02:00
parent 5e332522e3
commit f949e2dbb3
10 changed files with 438 additions and 75 deletions
@@ -20,10 +20,10 @@
      (let ((mnu (wv-menu 'tray-menu
                          (wv-menu-item 'm-hide-show
                                        (if (eq? (send rktplayer-gui window-state) 'hidden)
-                                            (tr "Show window")
-                                            (tr "Hide window")))
-                          (wv-menu-item 'm-pause-play (tr "Pause / Play"))
-                          (wv-menu-item 'm-quit (tr "Quit"))
+                                            (tr 'show-window)
+                                            (tr 'hide-window)))
+                          (wv-menu-item 'm-pause-play (tr 'pause-play))
+                          (wv-menu-item 'm-quit (tr 'quit))
                          )
                 )
            )
@@ -49,7 +49,7 @@
      #t)

    (super-new [icon (build-path rkt-gui-dir "rktplayer.png")]
-               [tooltip (tr "Racket Music Player")])
+               [tooltip (tr 'racket-music-player)])

    (begin
      (send rktplayer-gui set-window-state-change-callback!