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

pasteboard printing fix

Browse Source 
svn: r14489
This commit is contained in:
Matthew Flatt 2009-04-11 13:37:14 +00:00
parent ae7b6c6716
commit c98e4e0881
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/private/wxme/pasteboard.ss
View File

@ -2081,7 +2081,7 @@
(when (or (zero? (unbox w)) (when (or (zero? (unbox w))
(zero? (unbox h))) (zero? (unbox h)))
(get-default-print-size w h)) (get-default-print-size w h))
(send (current-ps-setup) get-editor-marginhm vm)) (send (current-ps-setup) get-editor-margin hm vm))
(let ([W (- w (* 2 hm))] (let ([W (- w (* 2 hm))]
[H (- h (* 2 vm))]) [H (- h (* 2 vm))])
(let-boxes ([w 0.0] (let-boxes ([w 0.0]