From 06f925e50a3826b5afda9b792150fa84f602cfa7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 12 Jun 2007 07:54:26 +0000
Subject: [PATCH] improved CSS for IE

svn: r6588
---
 collects/scribble/html-render.ss       |  2 +-
 collects/scribble/scribble.css         | 11 ++++++++---
 collects/scribblings/guide/apply.scrbl |  4 ++--
 3 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
index 56f02ec678..5e350338bf 100644
--- a/collects/scribble/html-render.ss
+++ b/collects/scribble/html-render.ss
@@ -77,7 +77,7 @@
                                     (type "text/css")
                                     (href "scribble.css")
                                     (title "default"))))
-                            (body ,@(render-part d ht)))])
+                            (body (div ((class "main")) ,@(render-part d ht))))])
             (install-file scribble-css)
             (xml:write-xml/content (xml:xexpr->xml xpr)))))
 
diff --git a/collects/scribble/scribble.css b/collects/scribble/scribble.css
index f0eeb46478..3765a966fe 100644
--- a/collects/scribble/scribble.css
+++ b/collects/scribble/scribble.css
@@ -2,11 +2,16 @@
                body {
                color: black;
                background-color: #ffffff;
-               max-width: 35em;
+               font-family: Times;
+               text-align: center;
+               width: 35em;
                margin-left: auto;
                margin-right: auto;
-               padding-left: 0.5em;
-               font-family: Times;
+               }
+
+               .main {
+               width: 35em;
+               text-align: left;
                }
 
                .refpara { 
diff --git a/collects/scribblings/guide/apply.scrbl b/collects/scribblings/guide/apply.scrbl
index cbec70e0bd..4fae4b8321 100644
--- a/collects/scribblings/guide/apply.scrbl
+++ b/collects/scribblings/guide/apply.scrbl
@@ -113,7 +113,7 @@ procedure to the arguments:
 (avg '(1 2 3 4))
 ]
 
-As a convenience, the @scheme[apply] produce accepts additional
+As a convenience, the @scheme[apply] procedure accepts additional
 arguments between the procedure and the list. The additional arguments
 are effectively @scheme[cons]ed onto the argument list:
 
@@ -126,7 +126,7 @@ are effectively @scheme[cons]ed onto the argument list:
 The @scheme[apply] procedure supports only by-position arguments. To
 apply a procedure with keyword arguments, use the
 @scheme[keyword-apply] procedure, which accepts a procedure to apply
-and two lists. The first list contains contains pairs, each matching a
+and two lists. The first list contains pairs, each matching a
 keyword with its corresponding value. The second list contains
 by-position procedure arguments, as for @scheme[apply].