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 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<?))
(if (< 0 (send files-list get-number)) (if (< 0 (send files-list get-number))
(begin (apply do-selections sel+unsel) (begin (apply do-selections sel+unsel)
(send files-list enable #t) (send files-list enable #t)