commit 6167d3b5a736d53af9409956e0044cfd0bc8be5d parent 5f02ff4a7d04d0227f6218037189f23415fcd115 Author: Ryan Culpepper <ryanc@racket-lang.org> Date: Mon, 3 Dec 2007 13:43:31 +0000 Macro stepper: show error message for interrupted expansion svn: r7891 original commit: 1608a90ab031b590a4e5b9432d511efcf9e1898f Diffstat:
| M | collects/macro-debugger/syntax-browser/widget.ss | | | 13 | +++++++++++++ |
1 file changed, 13 insertions(+), 0 deletions(-)
diff --git a/collects/macro-debugger/syntax-browser/widget.ss b/collects/macro-debugger/syntax-browser/widget.ss @@ -93,6 +93,13 @@ (with-unlock -text (send -text insert text))) + (define/public (add-error-text text) + (with-unlock -text + (let ([a (send -text last-position)]) + (send -text insert text) + (let ([b (send -text last-position)]) + (send -text change-style error-text-style a b))))) + (define/public (add-clickback text handler) (with-unlock -text (let ([a (send -text last-position)]) @@ -200,6 +207,12 @@ (send sd set-delta-foreground "blue") sd)) + (define error-text-style + (let ([sd (new style-delta%)]) + (send sd set-delta 'change-italic) + (send sd set-delta-foreground "red") + sd)) + ;; Specialized classes for widget (define widget-keymap%