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

.

Browse Source 
original commit: 2945ed7edcd1e87a0ce69906d5e89c65e29c66d2
This commit is contained in:
Robby Findler 2005-01-05 00:38:01 +00:00
parent 4af9f35e9e
commit 88c33c2c03
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -212,19 +212,24 @@
[xh (- h (* 2 border-inset))])
(case (system-type)
[(macosx)
(send dc set-pen (send the-pen-list find-or-create-pen color 1 'solid))
(send dc set-brush (send the-brush-list find-or-create-brush color 'solid))
(send dc draw-ellipse (+ dx border-inset) (+ dy border-inset) xh xh)
(send dc draw-ellipse (+ dx (- w xh)) (+ dy border-inset) xh xh)
(send dc set-pen (send the-pen-list find-or-create-pen "black" 1 'transparent))
(send dc draw-rectangle (+ dx (quotient xh 2)) (+ dy border-inset) (- w xh) xh)
(send dc set-pen (send the-pen-list find-or-create-pen color 1 'solid))
(send dc draw-line
(send dc set-pen (send the-pen-list find-or-create-pen color 1 'solid))
(send dc set-brush (send the-brush-list find-or-create-brush color 'solid))
(let ([old-smooth (send dc get-smoothing)])
(send dc set-smoothing 'aligned)
(send dc draw-ellipse (+ dx border-inset) (+ dy border-inset) xh xh)
(send dc draw-ellipse (+ dx (- w xh)) (+ dy border-inset) xh xh)
(send dc set-smoothing old-smooth))
(send dc set-pen (send the-pen-list find-or-create-pen "black" 1 'transparent))
(send dc draw-rectangle (+ dx (quotient xh 2)) (+ dy border-inset) (- w xh) xh)
(send dc set-pen (send the-pen-list find-or-create-pen color 1 'solid))
(send dc draw-line
(+ dx (quotient xh 2))
(+ dy border-inset)
(+ dx (- w (quotient xh 2)))
(+ dy border-inset))
(send dc draw-line
(send dc draw-line
(+ dx (quotient xh 2))
(+ dy (- h 1 border-inset))
(+ dx (- w (quotient xh 2)))