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

removed unused get-extent

Browse Source 
original commit: c51662dff68a6fbebbeeee32e05b76c005e7a8bf
This commit is contained in:
Matthew Flatt 2003-10-07 15:03:53 +00:00
parent 99d76649aa
commit 98435829d3
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -206,11 +206,10 @@
(when label
(send dc set-font button-label-font)
(let-values ([(tw th _2 _3) (send dc get-text-extent label)])
;; 1 is for the outer drop shadow box
(send dc draw-text label
(+ button-label-inset
(if inverted? drop-shadow-size 1))
(+ button-label-inset
(if inverted? drop-shadow-size 1)))))))
;; 1 is for the outer drop shadow box
(send dc draw-text label
(+ button-label-inset
(if inverted? drop-shadow-size 1))
(+ button-label-inset
(if inverted? drop-shadow-size 1))))))