hans/web-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ok

Browse Source
This commit is contained in:
Hans Dijkema
2025-08-17 20:31:50 +02:00
parent 8414a1a0c4
commit 30e95c5a64
1 changed files with 6 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
private/web-wire.rkt
View File

@@ -14,19 +14,14 @@
ww-set-icon 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) (define (ww-start)
(if (eq? ww-thread #f)
(let ((cwd (current-directory)
(let* ((cwd (current-directory)) (let* ((cwd (current-directory))
(bin (build-path cwd ".." "bin" "linux" "web-wire")) (bin (build-path cwd ".." "bin" "linux" "web-wire"))
(ww (make-ww)) (ww (make-ww))