Better logging small bug in wv-dialog, conversion to stdio.

2026-08-03 13:44:01 +02:00
parent 1ecb678e38
commit dbf108a601
8 changed files with 78 additions and 19 deletions
@@ -1042,7 +1042,7 @@
                          (return (list (list 'id id)
                                        (list 'style (send Object entries r))))))))
          )
-      (displayln js-code)
+      ;(displayln js-code)
      (let ((r (webview-call-js wv js-code)))
      ;                       (format
      ;                        (js-code
@@ -1056,7 +1056,7 @@
      ;                         "  return { id: id, style: r };"
      ;                         "}") cl))
      ;                     )))
-        (display "Result: ") (write r) (newline)
+      ;  (display "Result: ") (write r) (newline)
        (if (eq? r #f)
            #f
            (let ((h (hash-ref r 'with-ids)))
@@ -1067,8 +1067,8 @@
                                       (make-hash (map (λ (e) (cons (to-symbol (car e)) (cadr e))) (cadr style-rec)))
                                       )
                                 )) h)))
-                (displayln (format "l = ~a" l))
-                (write l)(newline)
+                ;(displayln (format "l = ~a" l))
+                ;(write l)(newline)
              ; l = ((volume-meter . #hash((display . none))))
              ; ((volume-meter . #hash(("display" . "none"))))
                (if (symbol? selector)