From 072d0880d78890aaea6a3b44d3623fb766c8462d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 22 May 2003 17:00:21 +0000 Subject: [PATCH] .. original commit: 10e3c32a0ae7712aa545de1c01b6e829cba47073 --- collects/hierlist/hierlist-unit.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/hierlist/hierlist-unit.ss b/collects/hierlist/hierlist-unit.ss index a3dcbe62..2c0170fe 100644 --- a/collects/hierlist/hierlist-unit.ss +++ b/collects/hierlist/hierlist-unit.ss @@ -20,10 +20,10 @@ (define transparent (make-object brush% "WHITE" 'transparent)) (define transparent-pen (make-object pen% "WHITE" 1 'transparent)) - (define black-xor-pen (make-object pen% "BLACK" 1 'hilite)) + (define black-xor-pen (make-object pen% "BLACK" 1 'solid #|'hilite|#)) (define red (make-object brush% "RED" 'solid)) (define blue (make-object brush% "BLUE" 'solid)) - (define black-xor (make-object brush% "BLACK" 'hilite)) + (define black-xor (make-object brush% "BLACK" 'solid #|'hilite|#)) (define arrow-cursor (make-object cursor% 'arrow)) (define-values (up-bitmap down-bitmap up-click-bitmap down-click-bitmap)