documentation

2026-04-01 16:23:56 +02:00
parent 5ee62d0064
commit ab666368b1
27 changed files with 1080 additions and 164 deletions
--- a/private/wv-dialog.rkt
+++ b/private/wv-dialog.rkt
@@ -38,9 +38,9 @@
            (let ((x (inexact->exact (round (exact->inexact (+ px xx)))))
                  (y (inexact->exact (round (exact->inexact (+ py yy)))))
                  )
-              (displayln "move")
+              (displayln (format "move ~a ~a" x y))
              (send this move x y)
-              (displayln "resize")
+              (displayln (format "resize ~a ~a" x y))
              (send this resize dw dh)
              )
            )