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

fixed bug (that no one will ever care about, probably)

Browse Source 
svn: r5893
This commit is contained in:
Robby Findler 2007-04-08 23:56:08 +00:00
parent d688a1f9e3
commit bdcb50603b
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/framework/private/color-prefs.ss
View File

@ -354,7 +354,16 @@
(cond (cond
[(is-a? c color%) c] [(is-a? c color%) c]
[(is-a? c style-delta%) [(is-a? c style-delta%)
(send c get-delta-foreground)] (let ([m (send c get-foreground-mult)])
(unless (and (= 0 (send m get-r))
(= 0 (send m get-g))
(= 0 (send m get-b)))
(error 'register-color-scheme "expected a style delta with foreground-mult that is all zeros"))
(let ([add (send c get-foreground-add)])
(make-object color%
(send add get-r)
(send add get-g)
(send add get-b))))]
[(string? c) [(string? c)
(or (send the-color-database find-color c) (or (send the-color-database find-color c)
(error 'register-color-scheme (error 'register-color-scheme