From 30e95c5a647c9c88fd5544485db6d3001a904b2b Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Sun, 17 Aug 2025 20:31:50 +0200
Subject: [PATCH] ok

---
 private/web-wire.rkt | 17 ++++++-----------
 1 file changed, 6 insertions(+), 11 deletions(-)

diff --git a/private/web-wire.rkt b/private/web-wire.rkt
index 4643064..e532075 100644
--- 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))