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

added more options

Browse Source 
svn: r7868
This commit is contained in:
Robby Findler 2007-11-30 17:39:50 +00:00
parent 8f5492ddb9
commit 73bc0e2d52
1 changed files with 30 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
collects/framework/private/color.ss
View File

@ -751,29 +751,29 @@
(define (get-parenthesis-colors)
(unless parenthesis-colors
(set! parenthesis-colors
(vector (preferences:get 'framework:paren-match-color))
;; shades of blue
#;
(let ([size 4])
(build-vector
4
(lambda (x)
(let* (
;; start with a pale blue
[start-r 204]
[start-g 204]
[start-b 255]
(between 204 204 255
153 153 255)
;; shades of yellow (too pale)
#;
(between 255 255 204
255 255 153)
;; springtime
#;
(between 255 255 153
204 255 153)
;; fall
#;
(between 255 204 153
204 153 102)
;; end with a pale cyan
[end-r 153]
[end-g 153]
[end-b 255]
[between (λ (start end) (+ start (* (- end start) (/ x (- size 1)))))])
(make-object color%
(between start-r end-r)
(between start-g end-g)
(between start-b end-b))))))
;; shades of grey
#;
@ -785,6 +785,17 @@
(make-object color% grey-amount grey-amount grey-amount)))))))
parenthesis-colors)
(define (between start-r start-g start-b end-r end-g end-b)
(let ([size 4])
(build-vector
4
(lambda (x)
(let ([between (λ (start end) (+ start (* (- end start) (/ x (- size 1)))))])
(make-object color%
(between start-r end-r)
(between start-g end-g)
(between start-b end-b)))))))
(define -text% (text-mixin text:keymap%))
(define -text-mode<%> (interface ()))