From 6167d3b5a736d53af9409956e0044cfd0bc8be5d Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Mon, 3 Dec 2007 13:43:31 +0000 Subject: [PATCH] Macro stepper: show error message for interrupted expansion svn: r7891 original commit: 1608a90ab031b590a4e5b9432d511efcf9e1898f --- collects/macro-debugger/syntax-browser/widget.ss | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/collects/macro-debugger/syntax-browser/widget.ss b/collects/macro-debugger/syntax-browser/widget.ss index 1843fe3..6442606 100644 --- 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%