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

* output-style in horizontal layout

Browse Source 
* case-sensitive can be given as a keyword arrrgument to drop it from
  the panel

svn: r10537
This commit is contained in:
Eli Barzilay 2008-07-01 18:30:54 +00:00
parent 6e2022b4c2
commit 37b4cfde7a
1 changed files with 21 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
collects/drscheme/private/language.ss
View File

@ -197,15 +197,18 @@
(define simple-settings->vector (make-->vector simple-settings)) (define simple-settings->vector (make-->vector simple-settings))
;; simple-module-based-language-config-panel : parent -> (case-> (-> settings) (settings -> void)) ;; simple-module-based-language-config-panel : parent -> (case-> (-> settings) (settings -> void))
(define (simple-module-based-language-config-panel _parent) (define (simple-module-based-language-config-panel
_parent
#:case-sensitive [*case-sensitive '?])
(letrec ([parent (instantiate vertical-panel% () (letrec ([parent (instantiate vertical-panel% ()
(parent _parent) (parent _parent)
(alignment '(center center)))] (alignment '(center center)))]
[input-panel (instantiate group-box-panel% () [input-panel (and (eq? *case-sensitive '?)
(label (string-constant input-syntax)) (instantiate group-box-panel% ()
(parent parent) (label (string-constant input-syntax))
(alignment '(left center)))] (parent parent)
(alignment '(left center))))]
[dynamic-panel (instantiate group-box-panel% () [dynamic-panel (instantiate group-box-panel% ()
(label (string-constant dynamic-properties)) (label (string-constant dynamic-properties))
@ -217,10 +220,11 @@
(parent parent) (parent parent)
(alignment '(left center)))] (alignment '(left center)))]
[case-sensitive (make-object check-box% [case-sensitive (and input-panel
(string-constant case-sensitive-label) (make-object check-box%
input-panel (string-constant case-sensitive-label)
void)] input-panel
void))]
[debugging (instantiate radio-box% () [debugging (instantiate radio-box% ()
(label #f) (label #f)
(choices (choices
@ -240,7 +244,8 @@
(let ([on? (not (= (send rb get-selection) 3))]) (let ([on? (not (= (send rb get-selection) 3))])
(send fraction-style enable on?) (send fraction-style enable on?)
(send show-sharing enable on?) (send show-sharing enable on?)
(send insert-newlines enable on?))))] (send insert-newlines enable on?)))
'(horizontal vertical-label))]
[fraction-style [fraction-style
(make-object check-box% (string-constant decimal-notation-for-rationals) (make-object check-box% (string-constant decimal-notation-for-rationals)
output-panel output-panel
@ -257,7 +262,9 @@
(case-lambda (case-lambda
[() [()
(make-simple-settings (make-simple-settings
(send case-sensitive get-value) (if case-sensitive
(send case-sensitive get-value)
(and *case-sensitive #t))
(case (send output-style get-selection) (case (send output-style get-selection)
[(0) 'constructor] [(0) 'constructor]
[(1) 'quasiquote] [(1) 'quasiquote]
@ -273,7 +280,9 @@
[(2) 'debug/profile] [(2) 'debug/profile]
[(3) 'test-coverage]))] [(3) 'test-coverage]))]
[(settings) [(settings)
(send case-sensitive set-value (simple-settings-case-sensitive settings)) (when case-sensitive
(send case-sensitive set-value
(simple-settings-case-sensitive settings)))
(send output-style set-selection (send output-style set-selection
(case (simple-settings-printing-style settings) (case (simple-settings-printing-style settings)
[(constructor) 0] [(constructor) 0]