From 4f292a95c5fd8c2d63efb6a541cc84061af8a53c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@cs.utah.edu>
Date: Thu, 13 Jan 2011 18:53:48 -0700
Subject: [PATCH] win64: fix PrintDlg alignment

---
 collects/mred/private/wx/win32/printer-dc.rkt | 2 +-
 collects/mred/private/wx/win32/utils.rkt      | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mred/private/wx/win32/printer-dc.rkt b/collects/mred/private/wx/win32/printer-dc.rkt
index 598ea09381..18dda0f9cd 100644
--- a/collects/mred/private/wx/win32/printer-dc.rkt
+++ b/collects/mred/private/wx/win32/printer-dc.rkt
@@ -56,7 +56,7 @@
    [lpSetupTemplateName _pointer]
    [hPrintTemplate _HGLOBAL]
    [hSetupTemplate _HGLOBAL])
-  #:alignment 2)
+  #:alignment (if is-win64? #f 2))
 
 (define-cstruct _DOCINFO
   ([cbSize _int]
diff --git a/collects/mred/private/wx/win32/utils.rkt b/collects/mred/private/wx/win32/utils.rkt
index bf9020a1da..ccff4d19be 100644
--- a/collects/mred/private/wx/win32/utils.rkt
+++ b/collects/mred/private/wx/win32/utils.rkt
@@ -16,6 +16,7 @@
               define-uxtheme
               define-winmm
               failed
+	      is-win64?
 
               GetLastError