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

*** empty log message ***

Browse Source 
original commit: ea41c29685b070c890f54425aebf0280ebcc81ca
This commit is contained in:
Scott Owens 2002-07-22 21:51:58 +00:00
parent e1a39e6efc
commit b68264024d
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/gui-utils.ss
View File

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