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

patch from Kathy

Browse Source 
svn: r6159
This commit is contained in:
Eli Barzilay 2007-05-06 14:20:39 +00:00
parent 0a22386d0b
commit 7537babe99
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/profj/tester.scm
View File

@ -506,8 +506,8 @@
(unless (null? covered) (unless (null? covered)
(let* ([editor (get-editor (car covered) #f)] (let* ([editor (get-editor (car covered) #f)]
[style-list (editor:get-standard-style-list)] [style-list (editor:get-standard-style-list)]
[uncover-color (send style-list find-named-style "profj:syntax-coloring:scheme:uncovered")] [uncover-color (send style-list find-named-style "profj:syntax-colors:scheme:uncovered")]
[cover-color (send style-list find-named-style "profj:syntax-coloring:scheme:covered")]) [cover-color (send style-list find-named-style "profj:syntax-colors:scheme:covered")])
(when editor (when editor
;(send cover-color set-delta-foreground "darkmagenta") ;(send cover-color set-delta-foreground "darkmagenta")
;(send uncover-color set-delta-foreground "black") ;(send uncover-color set-delta-foreground "black")