From b68264024d920e62d2a13510dbb14c4688479641 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Mon, 22 Jul 2002 21:51:58 +0000 Subject: [PATCH] *** empty log message *** original commit: ea41c29685b070c890f54425aebf0280ebcc81ca --- collects/framework/gui-utils.ss | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/collects/framework/gui-utils.ss b/collects/framework/gui-utils.ss index 36a26494..5cfe552d 100644 --- a/collects/framework/gui-utils.ss +++ b/collects/framework/gui-utils.ss @@ -487,11 +487,7 @@ (define selected-text-color (make-object color% "black")) ;; unselected-text-color : color - (define unselected-text-color (let ([bkg (get-panel-background)]) - (make-object color% - (floor (/ (send bkg red) 2)) - (floor (/ (send bkg green) 2)) - (floor (/ (send bkg blue) 2))))) + (define unselected-text-color (make-object color% "black")) ;; selected-brush : brush (define selected-brush (send the-brush-list find-or-create-brush "WHITE" 'solid))