add files to list-box in one operation

svn: r2228
2006-02-15 06:19:46 +00:00 · 2006-02-15 06:19:46 +00:00 · 466c885eca
commit 466c885eca
parent 23249ced6f
1 changed files with 4 additions and 5 deletions
--- a/collects/handin-client/handin-multi.ss
+++ b/collects/handin-client/handin-multi.ss
@ -187,8 +187,7 @@
              (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))
+            (send files-list set
                  (mergesort (map ->string
                                  (filter file-exists? (directory-list)))
                             string<?))