undid previous commit (oops!)

svn: r5914

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%

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:
 

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)))]))]))])

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