From db761b70ca4a22474c0241cf30eca4dce612385f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 20 May 2003 20:58:38 +0000 Subject: [PATCH] . original commit: 1c97e808f8cd0efad55e1d531da1ca95a57ad73e --- collects/hierlist/hierlist-unit.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/hierlist/hierlist-unit.ss b/collects/hierlist/hierlist-unit.ss index d385c905..a3dcbe62 100644 --- a/collects/hierlist/hierlist-unit.ss +++ b/collects/hierlist/hierlist-unit.ss @@ -20,7 +20,7 @@ (define transparent (make-object brush% "WHITE" 'transparent)) (define transparent-pen (make-object pen% "WHITE" 1 'transparent)) - (define black-xor-pen (make-object pen% "BLACK" 2 'hilite)) + (define black-xor-pen (make-object pen% "BLACK" 1 'hilite)) (define red (make-object brush% "RED" 'solid)) (define blue (make-object brush% "BLUE" 'solid)) (define black-xor (make-object brush% "BLACK" 'hilite)) @@ -302,6 +302,8 @@ (send dc set-brush (if filled? black-xor transparent)) (send dc set-pen (if filled? transparent-pen black-xor-pen)) (send dc draw-rectangle (+ dx left) (+ dy top_) (- right left) (- bottom top_)) + (unless filled? + (send dc draw-rectangle (+ dx left 1) (+ dy top_ 1) (- right left 2) (- bottom top_ 2))) (send dc set-pen p) (send dc set-brush b))))]) (public