From a56bb83974040b7d8e0686ebc3e1bef2f8b1ac54 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 10 Feb 2005 16:59:44 +0000 Subject: [PATCH] . original commit: b3c058d88de7900879bb4b644928844c5bf9d703 --- collects/mred/private/const.ss | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/collects/mred/private/const.ss b/collects/mred/private/const.ss index 5fd7912a..23b58c73 100644 --- a/collects/mred/private/const.ss +++ b/collects/mred/private/const.ss @@ -44,8 +44,12 @@ (min 255 (floor (* f (send c green)))) (min 255 (floor (* f (send c blue)))))) + (define black-color (make-object wx:color% 0 0 0)) + (define disabled-color (make-object wx:color% 150 150 150)) + (define trans-pen (send (wx:get-the-pen-list) find-or-create-pen "white" 0 'transparent)) (define light-pen (send (wx:get-the-pen-list) find-or-create-pen (scale-color bg-color #e1.35) 0 'solid)) + (define border-pen (send (wx:get-the-pen-list) find-or-create-pen (scale-color bg-color #e0.85) 0 'solid)) (define dark-pen (send (wx:get-the-pen-list) find-or-create-pen (scale-color bg-color #e0.6) 0 'solid)) (define dark-brush (send (wx:get-the-brush-list) find-or-create-brush (scale-color bg-color #e0.8) 'solid))