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

fix bug in the handling of the colors of the line numbers

Browse Source 
closes racket/drracket#83
This commit is contained in:
Robby Findler 2016-11-16 09:23:15 -06:00
parent e6a4865a74
commit 83a679d7f5
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gui-lib/framework/private/text.rkt
View File

@ -4428,7 +4428,15 @@ designates the character that triggers autocompletion
show-line-numbers?) show-line-numbers?)
(define/public (set-line-numbers-color color) (define/public (set-line-numbers-color color)
(set! line-numbers-color color)) (define new-line-numbers-color
(cond
[(string? color) (send the-color-database find-color color)]
[(is-a? color color%) color]
[else
(raise-argument-error 'line-numbers-mixin::set-line-numbers-color
(format "~s" '(or/c string? (is-a?/c color%)))
color)]))
(set! line-numbers-color new-line-numbers-color))
(define notify-registered-in-list #f) (define notify-registered-in-list #f)
@ -4474,9 +4482,7 @@ designates the character that triggers autocompletion
(send dc set-text-mode (saved-dc-state-text-mode dc-state))) (send dc set-text-mode (saved-dc-state-text-mode dc-state)))
(define/private (get-foreground) (define/private (get-foreground)
(if line-numbers-color (or line-numbers-color (get-style-foreground)))
(make-object color% line-numbers-color)
(get-style-foreground)))
;; set the dc stuff to values we want ;; set the dc stuff to values we want
(define/private (setup-dc dc) (define/private (setup-dc dc)