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

.

Browse Source 
original commit: ad17f00f2ad3a076671b64c2b4e04c7c55d94b78
This commit is contained in:
Matthew Flatt 2004-11-30 21:40:11 +00:00
parent cf94c7f944
commit 3c39db4deb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mrlib/name-message.ss
View File

@ -143,7 +143,7 @@
(define black-color (make-object color% "BLACK")) (define black-color (make-object color% "BLACK"))
(define triangle-width 10) (define triangle-width 10)
(define triangle-height 16) (define triangle-height 14)
(define triangle-color (make-object color% 50 50 50)) (define triangle-color (make-object color% 50 50 50))
(define border-inset 1) (define border-inset 1)
@ -219,7 +219,7 @@
1 'solid)) 1 'solid))
(let ([x (- w triangle-width circle-spacer)] (let ([x (- w triangle-width circle-spacer)]
[y (- (/ h 2) (/ triangle-height 2))]) [y (- (/ h 2) (/ triangle-height 2))])
(let loop ([dx 0][dy 6]) (let loop ([dx 0][dy 5])
(unless (= 5 dx) (unless (= 5 dx)
(send dc draw-line (send dc draw-line
(+ x 1 dx) (+ y dy) (+ x 1 dx) (+ y dy)