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

..

Browse Source 
original commit: bdfadd5b93eee2bea2e718c585b1b1e2d01b99bf
This commit is contained in:
Robby Findler 2002-11-14 15:24:39 +00:00
parent 2c81e1738e
commit d28c89f50e
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/drscheme/private/syntax-browser.ss
View File

@ -150,8 +150,15 @@ needed to really make this work:
(pretty-print (replace-syntaxes info) info-port))
(optional-newline)
(newline info-port))
(small-newline info-port info-text))
(define (small-newline port text)
(let ([before-newline (send text last-position)])
(newline port)
(send info-text change-style small-style before-newline (+ before-newline 1))))
(define small-style (make-object style-delta% 'change-size 4))
(define (replace-syntaxes obj)
(cond
[(cons? obj) (cons (replace-syntaxes (car obj))