From 469e6f65ccfa7e753a97ce98568f011903cb6d15 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 23 Feb 2007 22:02:40 +0000 Subject: [PATCH] Macro stepper: changed apparent binding arrow color to match syncheck svn: r5679 --- collects/macro-debugger/syntax-browser/widget.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/macro-debugger/syntax-browser/widget.ss b/collects/macro-debugger/syntax-browser/widget.ss index 7fa33df9fd..938fd928a4 100644 --- a/collects/macro-debugger/syntax-browser/widget.ss +++ b/collects/macro-debugger/syntax-browser/widget.ss @@ -114,12 +114,12 @@ (send -text add-arrow (car id-r) (cdr id-r) (car binder-r) (cdr binder-r) - "blue")) + "purple")) (send range get-ranges id))) (send range get-ranges binder))))) (send colorer get-identifier-list)))) colorer))) - + (define/public (add-separator) (with-unlock -text (send* -text