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

change handin label when retrieving

Browse Source 
svn: r1306
This commit is contained in:
Eli Barzilay 2005-11-14 05:21:14 +00:00
parent f5c3b8aa6c
commit f14d795240
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -35,7 +35,8 @@
(define web-address (#%info-lookup 'web-address (lambda () #f)))
(define handin-dialog-name (string-append handin-name " Handin"))
(define button-label (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 preference-key
@ -90,7 +91,11 @@
(define retrieve?
(new check-box%
[label "Retrieve"]
[parent button-panel]))
[parent button-panel]
[callback (lambda _
(define r? (send retrieve? get-value))
(send ok set-label
(if r? button-label/r button-label/h)))]))
(define (submit-file)
(define final-message "Handin successful.")
@ -130,7 +135,8 @@
(define ok
(new button%
[label button-label]
[label ; can change to button-label/r, so use extra spaces
(string-append " " button-label/h " ")]
[parent button-panel]
[style '(border)]
[callback
@ -587,7 +593,7 @@
(define phase1 void)
(define phase2 void)
(define tool-button-label (bitmap-label-maker button-label handin-icon))
(define tool-button-label (bitmap-label-maker button-label/h handin-icon))
(define (make-new-unit-frame% super%)
(class super%