From e44f51a772a7dfd61ed5fdc3912825e0aa644d83 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Tue, 21 Apr 2026 15:07:59 +0200
Subject: [PATCH] creating delayed reactor

---
 js/boilerplate.css | 23 +++++++++++++++++++++++
 racket-webview.rkt |  6 ++++--
 2 files changed, 27 insertions(+), 2 deletions(-)

diff --git a/js/boilerplate.css b/js/boilerplate.css
index a326381..8447bb8 100644
--- a/js/boilerplate.css
+++ b/js/boilerplate.css
@@ -1,3 +1,26 @@
 body {
 	font-family: sans-serif;
 }
+
+
+[tip] .tooltip {
+  position: fixed;
+  font-size: 16px;
+  line-height: 20px;
+  padding: 5px;
+  background: #444;
+  border: 1px solid #222;
+  visibility: hidden;
+  opacity: 0;
+  box-shadow: -2px 2px 5px rgba(0, 0, 0, 0.2);
+  transition: opacity 0.3s, visibility 0s;
+  color: white;
+  min-width: 120px;
+}
+
+[tip]:hover .tooltip {
+  visibility: visible;
+  opacity: 1;
+}
+
+
diff --git a/racket-webview.rkt b/racket-webview.rkt
index e23e389..6271a26 100644
--- a/racket-webview.rkt
+++ b/racket-webview.rkt
@@ -1025,8 +1025,9 @@
 ;; delayed reactor
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(define/contract (webview-delayed-reactor seconds value-callback)
-  (-> number? procedure? procedure?)
+(define/contract (webview-delayed-reactor seconds value-callback
+                                          #:update [update-callback (λ (val) #t)])
+  (->* (number? procedure?) (#:update procedure?) procedure?)
   (let ((value-set-at -1)
         (value 'none)
         (wait-thread #f)
@@ -1035,6 +1036,7 @@
     (λ (val)
       (set! value val)
       (set! value-set-at (current-milliseconds))
+      (update-callback val)
       (when (eq? wait-thread #f)
         (set! wait-thread (thread (λ ()
                                     (let loop ((vsa value-set-at))