.
original commit: 06b7f284cd0dc6dc1e663ca4343967cb2ef46432
This commit is contained in:
parent
259c4cc53b
commit
e6dd947fce
|
@ -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))))])
|
||||
|
|
Loading…
Reference in New Issue
Block a user