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

.

Browse Source 
original commit: 4803c58d051e632dcc364e67a70042458b3a5fdd
This commit is contained in:
Matthew Flatt 2003-04-04 15:25:47 +00:00
parent f6bb5014c0
commit 95bf680dc8
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

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