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

improvements to the preferences dialog

Browse Source 
svn: r14670
This commit is contained in:
Robby Findler 2009-04-30 23:15:10 +00:00
parent 60db480a8d
commit 1cb53bdf2a
3 changed files with 19 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/preferences.ss
View File

@ -467,7 +467,8 @@ the state transitions / contracts are:
(string-constant automatically-to-ps)
(λ (b)
(if b 'postscript 'standard))
(λ (n) (eq? 'postscript n)))))))])
(λ (n) (eq? 'postscript n))))
(general-panel-procs editor-panel))))])
(add-general-checkbox-panel)))
(define (add-warnings-checkbox-panel)

33
collects/profj/tool.ss
View File

@ -96,23 +96,17 @@
;; extend-preferences-panel : vertical-panel -> void
;; adds in the configuration for the Java colors to the prefs panel
(define (extend-preferences-panel parent)
(let ((standard-color-prefs
(make-object group-box-panel% (string-constant profj-java-mode-color-heading) parent))
(coverage-color-panel
(make-object group-box-panel% (string-constant profj-coverage-color-heading) parent))
(put
(lambda (p)
(lambda (line)
(let ([sym (car line)]
[str (caddr line)])
(color-prefs:build-color-selection-panel
p
(short-sym->pref-name sym)
(short-sym->style-name sym)
str))))))
(for-each (put standard-color-prefs) color-prefs-table)
(for-each (put coverage-color-panel) coverage-color-prefs)))
(define ((extend-preferences-panel color-table) parent)
(let ((put
(lambda (line)
(let ([sym (car line)]
[str (caddr line)])
(color-prefs:build-color-selection-panel
parent
(short-sym->pref-name sym)
(short-sym->style-name sym)
str)))))
(for-each put color-table)))
(define mode-surrogate%
(class color:text-mode%
@ -1230,7 +1224,10 @@
;;
(drscheme:modes:add-mode (string-constant profj-java-mode) mode-surrogate repl-submit matches-language)
(color-prefs:add-to-preferences-panel (string-constant profj-java) extend-preferences-panel)
(color-prefs:add-to-preferences-panel (string-constant profj-java)
(extend-preferences-panel color-prefs-table))
(color-prefs:add-to-preferences-panel (string-constant profj-java-coverage)
(extend-preferences-panel coverage-color-prefs))
(define (register line)
(let ([sym (car line)]

3
collects/string-constants/english-string-constants.ss
View File

@ -1292,7 +1292,8 @@ please adhere to these guidelines:
;; Profj
(profj-java "Java")
(profj-java-mode "Java mode")
(profj-java-coverage "Java Coverage") ;; shows up in the preferences dialog under 'Color'
(profj-beginner-lang "Beginner")
(profj-beginner-lang-one-line-summary "Java-like Beginner teaching language")
(profj-full-lang "Full")