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

removed an unused style

Browse Source
This commit is contained in:
Robby Findler 2010-06-22 15:22:45 -05:00
parent 3fb5dbd1d3
commit b286673c69
1 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/drracket/private/main.rkt
View File

@ -563,17 +563,6 @@
(preferences:set 'framework:exit-when-no-frames #t)]) (preferences:set 'framework:exit-when-no-frames #t)])
;; is this used anywhere?
(let* ([sl (editor:get-standard-style-list)]
[sd (make-object style-delta%)])
(send sd set-delta-foreground (make-object color% 255 0 0))
(send sl new-named-style
"drscheme:text:ports err"
(send sl find-or-create-style
(send sl find-named-style "text:ports err")
sd)))
(define repl-error-pref 'drracket:read-eval-print-loop:error-color) (define repl-error-pref 'drracket:read-eval-print-loop:error-color)
(define repl-out-pref 'drracket:read-eval-print-loop:out-color) (define repl-out-pref 'drracket:read-eval-print-loop:out-color)
(define repl-value-pref 'drracket:read-eval-print-loop:value-color) (define repl-value-pref 'drracket:read-eval-print-loop:value-color)