suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix clickback action, make get-file accept only existing files

Browse Source 
svn: r3140
This commit is contained in:
Eli Barzilay 2006-05-30 22:06:44 +00:00
parent 44a83b946c
commit 684d69710c
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/mred/private/filedialog.ss
View File

@ -50,6 +50,7 @@
[put? put?] [put? put?]
[dir? dir?] [dir? dir?]
[multi? multi?] [multi? multi?]
[existing? (not put?)]
[message message] [message message]
[parent parent] [parent parent]
[directory directory] [directory directory]

4
collects/mred/private/path-dialog.ss
View File

@ -205,7 +205,9 @@
(when m (when m
(send edit change-style path-up-delta (caadr m) (cdadr m)) (send edit change-style path-up-delta (caadr m) (cdadr m))
(send edit set-clickback (caar m) (cdar m) (send edit set-clickback (caar m) (cdar m)
(lambda _ (enter-text (substring dir 0 (cdar m))))) (lambda _
(enter-text (substring dir 0 (cdar m)))
(do-enter)))
(loop (cdar m))))) (loop (cdar m)))))
(send dir-text lock)) (send dir-text lock))
(if (directory-exists? dir) (if (directory-exists? dir)