suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 1c97e808f8cd0efad55e1d531da1ca95a57ad73e
This commit is contained in:
Matthew Flatt 2003-05-20 20:58:38 +00:00
parent 946cc09c62
commit db761b70ca
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/hierlist/hierlist-unit.ss
View File

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