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

..

Browse Source 
original commit: cfe865e0d7bd3cbe419a7acf8367d11e26f4222f
This commit is contained in:
Robby Findler 2003-08-11 18:08:13 +00:00
parent 0a14e7b5b3
commit f2f3a24268
2 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/private/main.ss
View File

@ -34,11 +34,9 @@
(preferences:set-default
'framework:standard-style-list:font-smoothing
(case (system-type)
[(macosx) 'partly-smoothed]
[else 'unsmoothed])
'default
(lambda (x)
(memq x '(unsmoothed partly-smoothed smoothed))))
(memq x '(unsmoothed partly-smoothed smoothed default))))
(editor:set-standard-style-list-pref-callbacks)

22
collects/framework/private/scheme.ss
View File

@ -847,16 +847,18 @@
[first-para (position-paragraph start-pos)]
[last-para (calc-last-para end-pos)])
(let para-loop ([curr-para first-para])
(if (<= curr-para last-para)
(let ([first-on-para
(paren:skip-whitespace
this
(paragraph-start-position curr-para)
'forward)])
(when (and (< first-on-para last-pos)
(char=? #\; (get-character first-on-para)))
(delete first-on-para (+ first-on-para 1)))
(para-loop (add1 curr-para))))))])
(when (<= curr-para last-para)
(let ([first-on-para
(paren:skip-whitespace
this
(paragraph-start-position curr-para)
'forward)])
(split-snip first-on-para)
(when (and (< first-on-para last-pos)
(char=? #\; (get-character first-on-para))
(is-a? (find-snip first-on-para 'after-or-none) string-snip%))
(delete first-on-para (+ first-on-para 1)))
(para-loop (add1 curr-para))))))])
(end-edit-sequence))
#t))