From 8ea163e34086b0858f2c9d7442c228307bef9580 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 10 Dec 1998 16:53:40 +0000 Subject: [PATCH] ... original commit: c9c9ce1020b744feffe71665b0e1b81e0ba1f6e5 --- src/mred/wrap/mred.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss index ba61c24d..52c5d5dc 100644 --- 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")))