alow using tab to get to the buttons

svn: r3803
2006-07-25 06:59:47 +00:00 · 2006-07-25 06:59:47 +00:00 · 7b8e8add19
commit 7b8e8add19
parent d5294823a2
1 changed files with 3 additions and 2 deletions
--- a/collects/setup/plt-installer-unit.ss
+++ b/collects/setup/plt-installer-unit.ss
@ -74,6 +74,7 @@
                        (custodian-shutdown-all installer-cust))]
                     [installer-cust (make-custodian)])
              (send done enable #f)
+              (send canvas allow-tab-exit #t)
              ((current-text-keymap-initializer) (send text get-keymap))
              (send text lock #t)