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