-

2026-02-18 20:30:16 +01:00
parent b0a7917ecc
commit 84eb4bc5a1
3 changed files with 4 additions and 3 deletions
--- a/example1/example.rkt
+++ b/example1/example.rkt
@@ -149,6 +149,7 @@

    (define/override (choose-dir)
      (let ((new-dir (super choose-dir "Select a folder" my-dir)))
+        (displayln (format "choosen dir: ~a" new-dir))
        (unless (eq? new-dir #f)
          (send this set-folder new-dir))))