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

minor bug on directory selections

Browse Source 
svn: r4454

original commit: 477528c805d7f3c5c92d55730cab0cefca486dff
This commit is contained in:
Eli Barzilay 2006-09-28 20:48:25 +00:00
commit 843a74c61d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -430,7 +430,7 @@
[selections (send path-list get-selections)]
[many? (and multi? (equal? "" sel)
(<= 1 (length selections)))])
(cond [(and isdir? (or (not (equal? "" sel)) (root? sel0)))
(cond [(and isdir? (not (equal? "" sel0)))
;; chose a directory -- go there
(set-dir path) (send* text* (erase) (select-all)) (set-ok?)]
[(and /? isfile?)