Foutafhandeling

2026-10-22 21:37:45 +02:00
parent f7f4d440b8
commit 5f0d835501
3 changed files with 155 additions and 5 deletions
@@ -98,6 +98,7 @@
        (download-panel #f)
        (download-message #f)
        (download-gauge #f)
+        (error-message #f)
        (name-field #f)
        (server-field #f)
        (connect-button #f)
@@ -214,6 +215,11 @@
                           (not (string=? format-name "")))
                      format-name
                      "")))))
+          (when error-message
+            (let ((message (hash-ref snapshot 'error 'null)))
+              (send error-message show (string? message))
+              (send error-message set-label
+                    (if (string? message) (cap200 message) ""))))
          (when download-panel
            (send download-panel show (hash? download))
            (when (hash? download)
@@ -431,6 +437,12 @@
                 (range 100)
                 (stretchable-width #t)))
      (send download-panel show #f)
+      (set! error-message
+            (new ellipsis-msg%
+                 (parent playback-panel)
+                 (label "")
+                 [ellipsis 'right] [auto-resize #t] [stretchable-width #t]))
+      (send error-message show #f)
      (set! quit-button
            (new button%
                 (parent controls)