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

fix text part of label when it goes to the edge (or slightly outside) the bounding box

Browse Source 
svn: r1466

original commit: 3e46c52c2c40154027b23dbd549508030b514066
This commit is contained in:
Matthew Flatt 2005-12-01 20:49:45 +00:00
parent 382ee43994
commit 6157ff3fe2
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mrlib/bitmap-label.ss
View File

@ -86,10 +86,11 @@
(send bitmap-dc clear) (send bitmap-dc clear)
(send bitmap-dc set-pen (send the-pen-list find-or-create-pen "black" 1 'solid)) (send bitmap-dc set-pen (send the-pen-list find-or-create-pen "black" 1 'solid))
(send bitmap-dc set-brush (send the-brush-list find-or-create-brush "black" 'solid)) (send bitmap-dc set-brush (send the-brush-list find-or-create-brush "black" 'solid))
;; Black rectangle to be masked by text:
(send bitmap-dc draw-rectangle (send bitmap-dc draw-rectangle
(+ outside-margin img-width middle-margin) (sub1 (+ outside-margin img-width middle-margin))
(- (/ new-height 2) (/ height 2)) 0
width height) (add1 width) new-height)
(send bitmap-dc draw-bitmap (send bitmap-dc draw-bitmap
img-bitmap img-bitmap
outside-margin outside-margin