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

alow using tab to get to the buttons

Browse Source 
svn: r3803
This commit is contained in:
Eli Barzilay 2006-07-25 06:59:47 +00:00
parent d5294823a2
commit 7b8e8add19
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/setup/plt-installer-unit.ss
View File

@ -74,12 +74,13 @@
(custodian-shutdown-all installer-cust))] (custodian-shutdown-all installer-cust))]
[installer-cust (make-custodian)]) [installer-cust (make-custodian)])
(send done enable #f) (send done enable #f)
(send canvas allow-tab-exit #t)
((current-text-keymap-initializer) (send text get-keymap)) ((current-text-keymap-initializer) (send text get-keymap))
(send text lock #t) (send text lock #t)
;; still do this even tho we aren't in the eventspace main thread ;; still do this even tho we aren't in the eventspace main thread
(thread (lambda () (send dlg show #t))) (thread (lambda () (send dlg show #t)))
(parameterize ([current-custodian installer-cust]) (parameterize ([current-custodian installer-cust])
(parameterize ([current-eventspace (make-eventspace)]) (parameterize ([current-eventspace (make-eventspace)])
(queue-callback (queue-callback