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

add files to list-box in one operation

Browse Source 
svn: r2228
This commit is contained in:
Eli Barzilay 2006-02-15 06:19:46 +00:00
parent 23249ced6f
commit 466c885eca
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/handin-client/handin-multi.ss
View File

@ -187,8 +187,7 @@
(send t set-value dir) (send t set-value dir)
(send (send t get-editor) select-all)) (send (send t get-editor) select-all))
(preferences:set last-dir-key dir) (preferences:set last-dir-key dir)
(send files-list clear) (send files-list set
(for-each (lambda (f) (send files-list append f))
(mergesort (map ->string (mergesort (map ->string
(filter file-exists? (directory-list))) (filter file-exists? (directory-list)))
string<?)) string<?))