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

Add comments.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-07-13 16:20:48 -04:00
parent baab138252
commit 2b9d035045
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/typed-scheme/optimizer/tool/display.rkt
View File

@ -32,15 +32,21 @@
(send canvas scroll-to 0 0 0 0 #t) ; display the beginning
(send win show #t))
;; each sub-entry is displayed in its own text%, contained in the main
;; editor, to simplify irritant highlighting
(define ((format-sub-report-entry pane) s)
(match-define (sub-report-entry stx msg) s)
(define-values (message stx-start stx-end) (format-message stx msg))
(define text (new text% [auto-wrap #t]))
(send text set-max-width (- popup-width 20)) ; minus the scrollbar
;; display the message, which includes source location and syntax
(send text insert-port (open-input-string message))
;; typeset the syntax as code
(send text change-style tt-style-delta stx-start stx-end)
;; adjust display
(send text set-max-width (- popup-width 20)) ; minus the scrollbar
(send text auto-wrap #t)
(send text lock #t)
;; add to the main editor
(send pane insert (new editor-snip% [editor text] [max-width popup-width]
[with-border? #f] [bottom-margin 10]))
(send pane insert-port (open-input-string "\n")))