From cac2d2f174363f3dc28b49dc468a76c9675d5281 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 10 Apr 2007 18:17:48 +0000
Subject: [PATCH] undid previous commit (oops!)

svn: r5914
---
 collects/framework/decorated-editor-snip.ss | 8 +++-----
 collects/framework/doc.txt                  | 7 ++-----
 collects/framework/preferences.ss           | 4 +++-
 collects/framework/private/main.ss          | 2 +-
 4 files changed, 9 insertions(+), 12 deletions(-)

diff --git a/collects/framework/decorated-editor-snip.ss b/collects/framework/decorated-editor-snip.ss
index 923daf5491..10c8f1c200 100644
--- a/collects/framework/decorated-editor-snip.ss
+++ b/collects/framework/decorated-editor-snip.ss
@@ -173,9 +173,6 @@
           (top-margin top-margin)
           (left-margin left-margin)))
       
-      (inherit use-style-background)
-      (use-style-background #t)
-      
       (reset-min-sizes)))
   
   (define decorated-editor-snip%
@@ -193,14 +190,15 @@
       (define/override write
         (λ (stream-out)
           (send (get-editor) write-to-file stream-out 0 'eof)))
-      
+
       (define/override (copy)
         (let ([snip (make-snip)])
           (send snip set-editor (send (get-editor) copy-self))
           (send snip set-style (get-style))
           snip))
       
-      (super-new [editor (make-editor)])))
+        (super-new
+          (editor (make-editor)))))
   
   (define decorated-editor-snipclass%
     (class snip-class%
diff --git a/collects/framework/doc.txt b/collects/framework/doc.txt
index 145a8a3b87..8f65c12840 100644
--- a/collects/framework/doc.txt
+++ b/collects/framework/doc.txt
@@ -7,11 +7,8 @@ _hierlist-editor-snip.ss_ defines two classes:
 
 > decorated-editor-snip%, derived from editor-snip%
    
-This class operated just like a regular editor snip, except:
-
-  - it has a color and an icon in the top right hand corner
-  - it calls the use-style-background with #t when it
-    is initialized.
+This class operated just like a regular editor snip, except
+that it has a color and an icon in the top right hand corner.
 
 Overridable methods:
 
diff --git a/collects/framework/preferences.ss b/collects/framework/preferences.ss
index 462e822943..4d8cf83c64 100644
--- a/collects/framework/preferences.ss
+++ b/collects/framework/preferences.ss
@@ -228,7 +228,9 @@ the state transitions / contracts are:
                            (begin 
                              (v p value)
                              (cons callback (loop (cdr callbacks))))
-                           (loop (cdr callbacks))))]
+                           (begin
+                             (printf "lost a ~s callback\n" p)
+                             (loop (cdr callbacks)))))]
                     [else
                      (cb p value)
                      (cons callback (loop (cdr callbacks)))]))]))])
diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss
index 3b9bfbb26d..b342c821fe 100644
--- a/collects/framework/private/main.ss
+++ b/collects/framework/private/main.ss
@@ -86,7 +86,7 @@
               (* 3/4 256)
               (- (* 7/8 256) 1))])
      (make-object color% gray-level gray-level gray-level))
-   (make-object color% 30 30 30))
+   (make-object color% 50 50 50))
   
   (preferences:set-default 'framework:recently-opened-files/pos 
                            null