From e6dd947fce78731b3c3fecfd9cd27a7c19058462 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 26 May 2003 14:17:01 +0000 Subject: [PATCH] . original commit: 06b7f284cd0dc6dc1e663ca4343967cb2ef46432 --- collects/hierlist/hierlist-unit.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/hierlist/hierlist-unit.ss b/collects/hierlist/hierlist-unit.ss index a3dcbe62..385b5785 100644 --- a/collects/hierlist/hierlist-unit.ss +++ b/collects/hierlist/hierlist-unit.ss @@ -302,7 +302,7 @@ (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? + (unless (or filled? ((- right left) . < . 2) ((- bottom top_) . < . 2)) (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))))])