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

use the same colors as in the docs for the text & label in the blue boxes

Browse Source
This commit is contained in:
Robby Findler 2013-11-17 15:59:16 -06:00
parent 4c65ee6d58
commit fac70aa121
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/drracket-pkgs/drracket/drracket/private/syncheck/blueboxes-gui.rkt
View File

@ -26,7 +26,8 @@
(define corner-radius 48)
(define blue-box-color (make-object color% 232 240 252))
(define blue-box-gradient-stop-color (make-object color% 252 252 252))
(define var-color (send the-color-database find-color "black"))
(define var-color (make-object color% 68 68 68))
(define blue-box-label-text-color (make-object color% 128 128 128))
(define blue-box-margin 5)
(define stops (list (list 0 blue-box-color)
@ -717,7 +718,7 @@
(draw-blue-box-shadow dc (- dx+br box-width) dy+bt box-width box-height)
(send dc set-text-foreground "gray")
(send dc set-text-foreground blue-box-label-text-color)
(send dc set-font label-font)
(send dc draw-text (list-ref strs 0)
(- dx+br blue-box-margin label-w)