From 83a679d7f5d662782d843a1de361129614386df2 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 16 Nov 2016 09:23:15 -0600 Subject: [PATCH] fix bug in the handling of the colors of the line numbers closes racket/drracket#83 --- gui-lib/framework/private/text.rkt | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/gui-lib/framework/private/text.rkt b/gui-lib/framework/private/text.rkt index b6da283d..1b0c08d8 100644 --- a/gui-lib/framework/private/text.rkt +++ b/gui-lib/framework/private/text.rkt @@ -4428,7 +4428,15 @@ designates the character that triggers autocompletion show-line-numbers?) (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) @@ -4474,9 +4482,7 @@ designates the character that triggers autocompletion (send dc set-text-mode (saved-dc-state-text-mode dc-state))) (define/private (get-foreground) - (if line-numbers-color - (make-object color% line-numbers-color) - (get-style-foreground))) + (or line-numbers-color (get-style-foreground))) ;; set the dc stuff to values we want (define/private (setup-dc dc)