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

Rewind the canvas to the beginning after inserting text.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-07-13 15:25:50 -04:00
parent 90ae7bc25f
commit 869df45881
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21,7 +21,8 @@
(define win (new dialog% [label "Performance Report"] (define win (new dialog% [label "Performance Report"]
[width popup-width] [height popup-height])) [width popup-width] [height popup-height]))
(define pane (new text% [auto-wrap #t])) (define pane (new text% [auto-wrap #t]))
(new editor-canvas% [parent win] [editor pane] [style '(no-hscroll)]) (define canvas
(new editor-canvas% [parent win] [editor pane] [style '(no-hscroll)]))
(for ([s (in-list subs)]) (for ([s (in-list subs)])
(match-define (sub-report-entry stx msg) s) (match-define (sub-report-entry stx msg) s)
(define-values (message stx-start) (format-message stx msg)) (define-values (message stx-start) (format-message stx msg))
@ -33,6 +34,7 @@
(send pane insert (new editor-snip% [editor text] [max-width popup-width] (send pane insert (new editor-snip% [editor text] [max-width popup-width]
[with-border? #f] [bottom-margin 10])) [with-border? #f] [bottom-margin 10]))
(send pane insert-port (open-input-string "\n"))) (send pane insert-port (open-input-string "\n")))
(send canvas scroll-to 0 0 0 0 #t) ; display the beginning
(send win show #t)) (send win show #t))
(define lowest-badness-color (make-object color% "pink")) (define lowest-badness-color (make-object color% "pink"))