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

enable/disable the retrieve box too

Browse Source 
svn: r1022
This commit is contained in:
Eli Barzilay 2005-10-08 00:40:37 +00:00
parent 7b6f89f066
commit f9455176b7
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -181,17 +181,12 @@
(set! continue-abort? #t) (set! continue-abort? #t)
(send d show #f)))))) (send d show #f))))))
(define interface-widgets
(list ok username passwd assignment retrieve?))
(define (disable-interface) (define (disable-interface)
(send ok enable #f) (for-each (lambda (x) (send x enable #f)) interface-widgets))
(send username enable #f)
(send passwd enable #f)
(send assignment enable #f))
(define (enable-interface) (define (enable-interface)
(send ok enable #t) (for-each (lambda (x) (send x enable #t)) interface-widgets))
(send username enable #t)
(send passwd enable #t)
(send assignment enable #t)
(send passwd focus))
(define (done-interface) (define (done-interface)
(send cancel set-label "Close") (send cancel set-label "Close")
(send cancel focus)) (send cancel focus))