From 16e8008db85bde2b5052c45df133d760f6fb11e7 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 20 Sep 1997 22:05:27 +0000 Subject: [PATCH] last change before drscheme ii!!! original commit: 857137b6d0757f11641d54c70636445b9e562a11 --- collects/mred/edit.ss | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss index ef8ea319..7ebcca65 100644 --- a/collects/mred/edit.ss +++ b/collects/mred/edit.ss @@ -424,8 +424,13 @@ (super-on-paint before dc left top right bottom dx dy draw-caret) (for-each (lambda (rectangle) - (let ([pen (make-object wx:pen% "black" 1 wx:const-stipple)] - [brush (make-object wx:brush% "black" wx:const-stipple)] + (let ([pen (make-object wx:pen% + "BLACK" + 0 + wx:const-stipple)] + [brush (make-object wx:brush% + "black" + wx:const-stipple)] [old-pen (send dc get-pen)] [old-brush (send dc get-brush)] [old-logical-function (send dc get-logical-function)]