From 9545330d53e05b7f9a3fb0ed26b7764eace68f1b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 15 Oct 2009 19:24:46 +0000 Subject: [PATCH] fixed the #:scheme-colors? argument to traces svn: r16328 --- collects/redex/private/traces.ss | 3 ++- collects/redex/redex.scrbl | 5 ++++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/redex/private/traces.ss b/collects/redex/private/traces.ss index 42ba9b4cad..519fd2267b 100644 --- a/collects/redex/private/traces.ss +++ b/collects/redex/private/traces.ss @@ -855,7 +855,8 @@ (send text set-autowrap-bitmap #f) (send text set-max-width 'none) (send text freeze-colorer) - (send text stop-colorer (not scheme-colors?)) + (unless scheme-colors? + (send text stop-colorer #t)) (send es format-expr) es)) diff --git a/collects/redex/redex.scrbl b/collects/redex/redex.scrbl index c277c38b9b..8688a30e38 100644 --- a/collects/redex/redex.scrbl +++ b/collects/redex/redex.scrbl @@ -1349,7 +1349,10 @@ filled in for the remaining colors. The @scheme[scheme-colors?] argument, if @scheme[#t] causes @scheme[traces] to color the contents of each of the windows according to DrScheme's Scheme mode color Scheme. If it is @scheme[#f], -@scheme[traces] just uses black for the color scheme. +@scheme[traces] just uses black for the color scheme. +In addition, Scheme-mode parenthesis highlighting is +enabled when @scheme[scheme-colors?] +is @scheme[#t] and not when it is @scheme[#f]. The @scheme[term-filter] function is called each time a new node is about to be inserted into the graph. If the filter returns false, the