documentation

2026-03-16 20:04:30 +01:00
parent a7257a3492
commit 7c3b780ae9
14 changed files with 2424 additions and 583 deletions
--- a/example1/example.rkt
+++ b/example1/example.rkt
@@ -169,7 +169,7 @@
               (letrec ((f (λ ()
                             (when go-on-counter
                               (send this inc-counter)
-                               (sleep 0.1)
+                               (sleep 0.01)
                               (f)))))
                 (set! go-on-counter #t)
                 (f)))))
@@ -197,8 +197,8 @@
      )

    (define/public (prefs)
-      (stop-counter)
-      (set! go-on-counter #f)
+      ;(stop-counter)
+      ;(set! go-on-counter #f)
      (new example-1-dialog%
           [parent this]
           )