From ac8b5a7d038666f525be2056cf9e6697f3aef967 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 6 Sep 2011 14:38:29 -0500 Subject: [PATCH] fix up the teachpack code to be friendly to the drracket test suites --- collects/lang/htdp-langs.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/lang/htdp-langs.rkt b/collects/lang/htdp-langs.rkt index bf1973e3fe..5b01566eb2 100644 --- a/collects/lang/htdp-langs.rkt +++ b/collects/lang/htdp-langs.rkt @@ -591,7 +591,8 @@ (begin (message-box (string-constant drscheme) (format (string-constant already-added-teachpack) - (cadr teachpack))) + (cadr teachpack)) + #:dialog-mixin frame:focus-table-mixin) settings) (let ([new-tps (append old-tps (list teachpack))]) @@ -686,7 +687,7 @@ tp-dirs)) (define sort-order (λ (x y) (string<=? (path->string x) (path->string y)))) (define pre-installed-tpss (map (λ (tps) (sort tps sort-order)) tpss)) - (define dlg (new dialog% [parent parent] [label (string-constant drscheme)])) + (define dlg (new (frame:focus-table-mixin dialog%) [parent parent] [label (string-constant drscheme)])) (define hp (new horizontal-panel% [parent dlg])) (define answer #f) (define compiling? #f)