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

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

@ -187,11 +187,10 @@
(send t set-value dir)
(send (send t get-editor) select-all))
(preferences:set last-dir-key dir)
(send files-list clear)
(for-each (lambda (f) (send files-list append f))
(mergesort (map ->string
(filter file-exists? (directory-list)))
string<?))
(send files-list set
(mergesort (map ->string
(filter file-exists? (directory-list)))
string<?))
(if (< 0 (send files-list get-number))
(begin (apply do-selections sel+unsel)
(send files-list enable #t)