Added select support.

2026-08-06 00:08:24 +02:00
parent 3d4deed94a
commit 963fec5df5
6 changed files with 100 additions and 5 deletions
@@ -235,6 +235,17 @@
        (send this update-counter)
        (send this set-folder my-dir)

+        (when (eq? my-page 'first)
+          (let ((language-select
+                 (send this element 'sel-lang)))
+            (send language-select
+                  on-change!
+                  (λ (value)
+                    (displayln
+                     (format
+                      "Selected language: ~a"
+                      (send language-select get)))))))
+
        (ww-debug "CONNECTING BUTTONS")
        (send this bind! 'dialog-button 'click (λ (el evt data)
                                                 (send this prefs)))