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

typo

Browse Source 
svn: r2212
This commit is contained in:
Eli Barzilay 2006-02-13 17:50:46 +00:00
parent 57b6a92506
commit 2161d9b6aa
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/handin-client/client-gui.ss
View File

@ -29,16 +29,19 @@
(values (cadr m) (string->number (caddr m))))
(values #f #f)))
(define handin-name (#%info-lookup 'name))
(define handin-name (#%info-lookup 'name))
(define this-collection (#%info-lookup 'collection))
(define web-menu-name (#%info-lookup 'web-menu-name (lambda () #f)))
(define web-address (#%info-lookup 'web-address (lambda () #f)))
(define web-menu-name (#%info-lookup 'web-menu-name (lambda () #f)))
(define web-address (#%info-lookup 'web-address (lambda () #f)))
(define handin-dialog-name (string-append handin-name " Handin"))
(define button-label/h (string-append handin-name " Handin"))
(define button-label/r (string-append handin-name " Retrieve"))
(define manage-dialog-name (string-append handin-name " Handin Account"))
(define multifile?
(#%info-lookup 'enable-multifile-handin (lambda () #f)))
(define preference-key
(string->symbol (format "submit:username:~a" this-collection)))
@ -299,9 +302,6 @@
[parent this]
[stretchable-width #t]))
(define multifile?
(#%info-lookup 'enable-multifile-handin (lambda () #f)))
(define tabs
(new tab-panel%
[parent this]