From 2161d9b6aafc9f20d3338fce0633e98698fd97ef Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 13 Feb 2006 17:50:46 +0000 Subject: [PATCH] typo svn: r2212 --- collects/handin-client/client-gui.ss | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/handin-client/client-gui.ss b/collects/handin-client/client-gui.ss index 906d5884bd..2b02ca7185 100644 --- a/collects/handin-client/client-gui.ss +++ b/collects/handin-client/client-gui.ss @@ -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]