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

choose-dir

Browse Source
This commit is contained in:
Hans Dijkema
2026-02-23 23:47:52 +01:00
parent 6ada260fef
commit 3b07bfb16d
3 changed files with 22 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
example1/example.rkt
View File

@@ -157,10 +157,15 @@
)
(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))))
(let ((handle (super choose-dir "Select a folder" my-dir)))
(displayln (format "choosen dir handle: ~a" handle))
)
)
(define/override (dir-choosen handle choosen dir)
(displayln (format "dir-choosen: ~a ~a ~a" handle choosen dir))
(when choosen
(send this set-folder dir)))
(define/public (prefs)
(new example-1-dialog% [parent this] [settings (send this clone-settings 'example-1-dialog)]))