From c98e4e0881d17075776cefede0d865c42ff27cd3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 11 Apr 2009 13:37:14 +0000 Subject: [PATCH] pasteboard printing fix svn: r14489 --- collects/mred/private/wxme/pasteboard.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/wxme/pasteboard.ss b/collects/mred/private/wxme/pasteboard.ss index b7bb324ca6..6b8ae00769 100644 --- a/collects/mred/private/wxme/pasteboard.ss +++ b/collects/mred/private/wxme/pasteboard.ss @@ -2081,7 +2081,7 @@ (when (or (zero? (unbox w)) (zero? (unbox 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))] [H (- h (* 2 vm))]) (let-boxes ([w 0.0]