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

improve the gui for specifying the submodules to run

Browse Source
This commit is contained in:
Robby Findler 2012-03-31 22:46:44 -05:00
parent 033536e746
commit 4360e62c22
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/drracket/private/module-language.rkt
View File

@ -600,7 +600,11 @@
(new separator-menu-item% [parent menu])
(new menu-item%
[parent menu]
[callback (λ (a b) (add-another-possible-submodule parent))]
[callback (λ (a b)
(define new-submod (add-another-possible-submodule parent))
(when new-submod
(set! submodules-to-run (cons new-submod submodules-to-run))
(sort-submodules-to-run!)))]
[label (string-constant add-submodule)]))
(super-new
[font normal-control-font]
@ -813,10 +817,13 @@
(define submods
(and msg
(get-sexp msg)))
(when submods
(preferences:set 'drracket:submodules-to-choose-from
(append (preferences:get 'drracket:submodules-to-choose-from)
(list submods)))))
(cond
[submods
(preferences:set 'drracket:submodules-to-choose-from
(append (preferences:get 'drracket:submodules-to-choose-from)
(list submods)))
submods]
[else #f]))
;; get-filename : port -> (union string #f)
;; extracts the file the definitions window is being saved in, if any.