From 7b8e8add19049fae8cc46b55106eadf32b5702e8 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 25 Jul 2006 06:59:47 +0000 Subject: [PATCH] alow using tab to get to the buttons svn: r3803 --- collects/setup/plt-installer-unit.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/setup/plt-installer-unit.ss b/collects/setup/plt-installer-unit.ss index aa7b229735..2d87a8de5a 100644 --- a/collects/setup/plt-installer-unit.ss +++ b/collects/setup/plt-installer-unit.ss @@ -74,12 +74,13 @@ (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) - + ;; still do this even tho we aren't in the eventspace main thread (thread (lambda () (send dlg show #t))) - + (parameterize ([current-custodian installer-cust]) (parameterize ([current-eventspace (make-eventspace)]) (queue-callback