...

original commit: c9c9ce1020b744feffe71665b0e1b81e0ba1f6e5
1998-12-10 16:53:40 +00:00 · 1998-12-10 16:53:40 +00:00 · 8ea163e340
commit 8ea163e340
parent a025b211e0
1 changed files with 3 additions and 1 deletions
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@ -3987,7 +3987,9 @@
 			    (semaphore-post semaphore))
 			  (lambda () 'nothing-to-do)))))

-  (define user-output-port (make-user-output-port #f))
+  (define user-output-port (make-user-output-port
+			    (send (make-object wx:style-delta%)
+				  set-delta-foreground "PURPLE")))
  (define user-error-port (make-user-output-port
 			    (send (make-object wx:style-delta% 'change-style 'slant)
 				  set-delta-foreground "RED")))