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

.

Browse Source 
original commit: b3c058d88de7900879bb4b644928844c5bf9d703
This commit is contained in:
Matthew Flatt 2005-02-10 16:59:44 +00:00
parent 0836d7a841
commit a56bb83974
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/const.ss
View File

@ -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))