.

original commit: ce523772d603a91dbbf87711503fba57603189b9

collects/framework/private/canvas.ss

@@ -13,11 +13,19 @@
 	      [preferences : framework:preferences^]
 	      [frame : framework:frame^])
       
+      (rename [-color% color%])
+      
       (define basic<%> (interface ((class->interface editor-canvas%))))
       (define basic-mixin
 	(mixin ((class->interface editor-canvas%)) (basic<%>)
-          (super-new)
+          (super-new)))
+      
+      (define color<%> (interface (basic<%>)))
+      
+      (define color-mixin
+        (mixin (basic<%>) (color<%>)
           (define callback (lambda (p v) (set-canvas-background v)))
+          (super-new)
           (inherit set-canvas-background)
           (set-canvas-background (preferences:get 'framework:basic-canvas-background))
           (preferences:add-callback 'framework:basic-canvas-background callback #t)))
@@ -174,6 +182,7 @@
           (super-new)))
 
       (define basic% (basic-mixin editor-canvas%))
+      (define -color% (color-mixin basic%))
       (define info% (info-mixin basic%))
-      (define delegat% (delegate-mixin basic%))
+      (define delegate% (delegate-mixin basic%))
       (define wide-snip% (wide-snip-mixin basic%)))))

collects/framework/private/color-prefs.ss

@@ -37,7 +37,7 @@
                                               style-name)])
                              (change-style style pos (+ pos offset) #f)))
                          (super-new))))
-        (define c (new canvas:basic%
+        (define c (new canvas:color%
                        (parent hp)
                        (editor e)
                        (style '(hide-hscroll

collects/framework/private/sig.ss

@@ -338,14 +338,19 @@
 
   (define-signature framework:canvas-class^
     (basic<%>
+     color<%>
      delegate<%>
      info<%>
      wide-snip<%>
-     wide-snip%   
+     
      basic%
+     color%
      info%
+     delegate%
+     wide-snip%
 
      basic-mixin
+     color-mixin
      delegate-mixin
      info-mixin
      wide-snip-mixin))