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

.

Browse Source 
original commit: 598f24ad484e75a4629b48006908749a011e64de
This commit is contained in:
Matthew Flatt 2004-11-26 17:14:47 +00:00
parent 4cb36688c0
commit 41b385f0e1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/mred.ss
View File

@ -3587,7 +3587,7 @@
[abox (box 0)])
; To bottom of first line
(send (send e get-admin) get-dc #f ybox)
(set! dy (+ -2 (abs (unbox ybox)) (send e line-location 0 #f))) ; -2 is fudge factor
(set! dy (+ (abs (unbox ybox)) (send e line-location 0 #f)))
; Add diff for client size
(send c get-client-size wbox hbox)