From 1703e06c3d07bb34c4bb033bfb89628d19b97a1b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 9 Apr 2007 08:34:00 +0000
Subject: [PATCH] 369.9

svn: r5902

original commit: 34d00a000cef03e898d68ce139539d255a544004
---
 collects/mred/private/editor.ss | 16 ++++++++--------
 collects/mred/private/kernel.ss |  2 ++
 doc/release-notes/mred/HISTORY  |  5 +++++
 3 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/collects/mred/private/editor.ss b/collects/mred/private/editor.ss
index 29a135aa..e56cebfb 100644
--- a/collects/mred/private/editor.ss
+++ b/collects/mred/private/editor.ss
@@ -356,14 +356,14 @@
 		 (unless (memq type '(text pasteboard))
 		   (raise-type-error (who->name '(method editor<%> on-new-box)) "symbol: text or pasteboard" type))
 		 (make-object editor-snip%
-			      (let ([e (make-object (cond
-						     [(eq? type 'pasteboard) pasteboard%]
-						     [else text%]))])
-				(send e set-keymap (get-keymap))
-				(send e set-style-list (get-style-list))
-				(send e set-max-undo-history (get-max-undo-history))
-				e))))])
-
+                              (let ([e (make-object (cond
+                                                     [(eq? type 'pasteboard) pasteboard%]
+                                                     [else text%]))])
+                                (send e set-keymap (get-keymap))
+                                (send e set-style-list (get-style-list))
+                                (send e set-max-undo-history (get-max-undo-history))
+                                e))))])
+               
 	    (apply super-make-object args)))
 
   (define text%
diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss
index 8138ad88..56c8fd42 100644
--- a/collects/mred/private/kernel.ss
+++ b/collects/mred/private/kernel.ss
@@ -1336,6 +1336,8 @@
     set-inset
     get-margin
     set-margin
+    style-background-used?
+    use-style-background
     border-visible?
     show-border
     set-align-top-line
diff --git a/doc/release-notes/mred/HISTORY b/doc/release-notes/mred/HISTORY
index 8d975558..cf5dda2d 100644
--- a/doc/release-notes/mred/HISTORY
+++ b/doc/release-notes/mred/HISTORY
@@ -1,3 +1,8 @@
+Version 369.9
+
+Added use-background-style and background-style-used? methods
+ to editor-snip%; changes the editor-snip WXME format
+
 Version 369.6
 
 WXME file format changed to include a #reader() prefix