#2 Wavesurfer doesn't list all ttk::themes available.

[Géballin]

Wavesurfer doesn't list all ttk::themes available.
This is because it is using [ttk::style theme names] instead of [ttk::themes] .

Patch file :

--- /usr/lib/wavesurfer/src/wsurf/wsurf.tcl 2018-11-05 18:05:38.000000000 +0100
+++ src/wsurf/wsurf.tcl 2023-05-10 20:47:48.570149991 +0200
@@ -331,10 +331,10 @@
     set Info(Prefs,rawFormats) {.alw 8000 Alaw 1 "" 0}


-    set Info(themes) [ttk::style theme names]
+    set Info(themes) [ttk::themes]

     list {  
-   foreach name [ttk::style theme names] {
+   foreach name [ttk::themes] {
        if {![info exists THEMES($name)]} {
        lappend THEMELIST $name [set THEMES($name) [string totitle $name]]
        }