369.9

svn: r5902

original commit: 34d00a000cef03e898d68ce139539d255a544004

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%

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

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