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

Fix a bug where retrieving a submission would get appended to the default #lang line.

Browse Source
This commit is contained in:
Eli Barzilay 2012-02-10 00:43:26 -05:00
parent 284ba01db6
commit fc0fd4b537
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/handin-client/client-gui.rkt
View File

@ -201,7 +201,7 @@
[label (case mode [label (case mode
[(submit) button-label/h] [(submit) button-label/h]
[(retrieve) button-label/r] [(retrieve) button-label/r]
[else (string-append " " button-label/h " ")])] ; can change [else (string-append " " button-label/h " ")])] ; can change
[parent button-panel] [parent button-panel]
[style '(border)] [style '(border)]
[callback [callback
@ -722,7 +722,9 @@
[stream (make-object editor-stream-in% base)]) [stream (make-object editor-stream-in% base)])
(read-editor-version stream base #t) (read-editor-version stream base #t)
(read-editor-global-header stream) (read-editor-global-header stream)
(send defs read-from-file stream) (send* defs (begin-edit-sequence #f)
(erase) (read-from-file stream)
(end-edit-sequence))
(read-editor-global-footer stream))) (read-editor-global-footer stream)))
(define tool@ (define tool@