ok

2025-08-17 20:31:50 +02:00
parent 8414a1a0c4
commit 30e95c5a64
1 changed files with 6 additions and 11 deletions
--- a/private/web-wire.rkt
+++ b/private/web-wire.rkt
@@ -14,19 +14,14 @@
           ww-set-icon
   )

+  (define current-win-release "
+
+  (define ww-thread #f);
  
-  (define-struct ww
-    (
-     [win #:auto #:mutable]
-     [process-handler #:auto #:mutable]
-     [cb-move #:auto #:mutable]
-     [cb-resize #:auto #:mutable]
-     
-     )
-    #:auto-value #f
-    )
-  
+
  (define (ww-start)
+    (if (eq? ww-thread #f)
+        (let ((cwd (current-directory)
    (let* ((cwd (current-directory))
           (bin (build-path cwd ".." "bin" "linux" "web-wire"))
           (ww  (make-ww))