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

fix up the teachpack code to be friendly to the drracket test suites

Browse Source
This commit is contained in:
Robby Findler 2011-09-06 14:38:29 -05:00
parent a74ce9d7b2
commit ac8b5a7d03
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/lang/htdp-langs.rkt
View File

@ -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)