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

Popup formatting.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-07-14 12:23:24 -04:00
parent 72975a4e1c
commit f788f8c4c7
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

@ -37,6 +37,7 @@
;; add to the main editor ;; add to the main editor
(send pane insert (send pane insert
(new editor-snip% [editor location-text] [with-border? #f])) (new editor-snip% [editor location-text] [with-border? #f]))
(send pane insert-port (open-input-string "\n"))
(define syntax-text (new text:basic%)) (define syntax-text (new text:basic%))
;; typeset the syntax as code ;; typeset the syntax as code
@ -60,6 +61,7 @@
(send pane insert (send pane insert
(new editor-snip% [editor syntax-text] [max-width popup-width] (new editor-snip% [editor syntax-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"))
(define message-text (new text:basic% [auto-wrap #t])) (define message-text (new text:basic% [auto-wrap #t]))
(send message-text insert-port (open-input-string msg)) (send message-text insert-port (open-input-string msg))
@ -72,7 +74,7 @@
[with-border? #f] [top-margin 10] [bottom-margin 15])) [with-border? #f] [top-margin 10] [bottom-margin 15]))
;; to place the next sub-entry below ;; to place the next sub-entry below
(send pane insert-port (open-input-string "\n"))) (send pane insert-port (open-input-string "\n\n")))
(define lowest-badness-color (make-object color% "pink")) (define lowest-badness-color (make-object color% "pink"))
(define highest-badness-color (make-object color% "red")) (define highest-badness-color (make-object color% "red"))