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

use the basic-style method instead of the name of the basic style

Browse Source 
svn: r17921
This commit is contained in:
Robby Findler 2010-02-01 15:15:22 +00:00
parent db0ec3eb07
commit 9d34139659
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/editor.ss
View File

@ -350,7 +350,7 @@
(send style set-delta delta)
(send standard-style-list new-named-style "Standard"
(send standard-style-list find-or-create-style
(send standard-style-list find-named-style "Basic")
(send standard-style-list basic-style)
delta)))))
(let ([delta (make-object style-delta%)]

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

@ -771,7 +771,7 @@ WARNING: printf is rebound in the body of the unit to always
(define/private (get-font)
(let* ([style-list (get-style-list)]
[std (or (send style-list find-named-style "Standard")
(send style-list find-named-style "Basic"))])
(send style-list basic-style))])
(send std get-font)))
(super-new)))
@ -2395,13 +2395,13 @@ WARNING: printf is rebound in the body of the unit to always
(let ([style-list (get-style-list)])
(or (send style-list find-named-style sd)
(send style-list find-named-style "Standard")
(send style-list find-named-style "Basic")))]
(send style-list basic-style)))]
[sd
(let* ([style-list (get-style-list)]
[std (send style-list find-named-style "Standard")])
(if std
(send style-list find-or-create-style std sd)
(let ([basic (send style-list find-named-style "Basic")])
(let ([basic (send style-list basic-style)])
(send style-list find-or-create-style basic sd))))]))]
[out-style (add-standard (get-out-style-delta))]
[err-style (add-standard (get-err-style-delta))]