removed printf

svn: r5913

original commit: 4133afdd437e8fa64b7558deedbba838020a56ac

collects/framework/decorated-editor-snip.ss

@@ -173,6 +173,9 @@
           (top-margin top-margin)
           (left-margin left-margin)))
       
+      (inherit use-style-background)
+      (use-style-background #t)
+      
       (reset-min-sizes)))
   
   (define decorated-editor-snip%
@@ -190,15 +193,14 @@
       (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,8 +7,11 @@ _hierlist-editor-snip.ss_ defines two classes:
 
 > decorated-editor-snip%, derived from editor-snip%
    
-This class operated just like a regular editor snip, except
-that it has a color and an icon in the top right hand corner.
+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.
 
 Overridable methods:
 

collects/framework/preferences.ss

@@ -228,9 +228,7 @@ the state transitions / contracts are:
                            (begin 
                              (v p value)
                              (cons callback (loop (cdr callbacks))))
-                           (begin
-                             (printf "lost a ~s callback\n" p)
-                             (loop (cdr callbacks)))))]
+                           (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% 50 50 50))
+   (make-object color% 30 30 30))
   
   (preferences:set-default 'framework:recently-opened-files/pos 
                            null