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

gui fix?

Browse Source 
svn: r1838
This commit is contained in:
Eli Barzilay 2006-01-16 07:39:35 +00:00
parent 48a8dac067
commit af997454e0
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -526,6 +526,7 @@
(send old-user-box show #f) (send old-user-box show #f)
(send uninstall-box show #f) (send uninstall-box show #f)
(let ([new? (equal? "" (remembered-user))]) (let ([new? (equal? "" (remembered-user))])
(send single active-child (if new? old-user-box new-user-box))
(send single active-child (if new? new-user-box old-user-box)) (send single active-child (if new? new-user-box old-user-box))
(send tabs set-selection (if new? 0 1))) (send tabs set-selection (if new? 0 1)))
(activate-new) (activate-new)