original commit: 06b7f284cd0dc6dc1e663ca4343967cb2ef46432
This commit is contained in:
Matthew Flatt 2003-05-26 14:17:01 +00:00
parent 259c4cc53b
commit e6dd947fce

View File

@ -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))))])