suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Macro stepper: show error message for interrupted expansion

Browse Source 
svn: r7891
This commit is contained in:
Ryan Culpepper 2007-12-03 13:43:31 +00:00
parent c68035079f
commit 1608a90ab0
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/macro-debugger/syntax-browser/widget.ss
View File

@ -93,6 +93,13 @@
(with-unlock -text (with-unlock -text
(send -text insert 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) (define/public (add-clickback text handler)
(with-unlock -text (with-unlock -text
(let ([a (send -text last-position)]) (let ([a (send -text last-position)])
@ -200,6 +207,12 @@
(send sd set-delta-foreground "blue") (send sd set-delta-foreground "blue")
sd)) 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 ;; Specialized classes for widget
(define widget-keymap% (define widget-keymap%