From bdcb50603b58b21d3ea31bf01e90ec7bd19e8683 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 8 Apr 2007 23:56:08 +0000 Subject: [PATCH] fixed bug (that no one will ever care about, probably) svn: r5893 --- collects/framework/private/color-prefs.ss | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/color-prefs.ss b/collects/framework/private/color-prefs.ss index c40ccabb6b..d23a05d5a3 100644 --- a/collects/framework/private/color-prefs.ss +++ b/collects/framework/private/color-prefs.ss @@ -354,7 +354,16 @@ (cond [(is-a? c color%) c] [(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) (or (send the-color-database find-color c) (error 'register-color-scheme