overrides on-new-image-snip to create images with masks, by default

svn: r10672

original commit: 8de7171a378f675572e2a365d2dbe6ffa2a6b1b1

collects/framework/private/editor.ss

@@ -302,12 +302,16 @@
                (for-each (λ (t) (t)) queue)])))
         (inner (void) after-edit-sequence))
       
-      [define/override on-new-box
+      (define/override (on-new-box type)
-        (λ (type)
+        (cond
-          (cond
+          [(eq? type 'text) (make-object editor-snip% (make-object text:basic%))]
-            [(eq? type 'text) (make-object editor-snip% (make-object text:basic%))]
+          [else (make-object editor-snip% (make-object pasteboard:basic%))]))
-            [else (make-object editor-snip% (make-object pasteboard:basic%))]))]
       
+      (define/override (on-new-image-snip filename kind relative-path? inline?)
+        (super on-new-image-snip 
+               (if (eq? kind 'unknown) 'unknown/mask kind) 
+               relative-path? 
+               inline?))
       
       (define/override (get-file d)
         (parameterize ([finder:dialog-parent-parameter

collects/scribblings/framework/editor.scrbl

@@ -200,6 +200,18 @@
     @scheme[text%]
     classes. 
   }
+  @defmethod[#:mode override (on-new-image-snip [filname (or/c path? false/c)]
+  		    	                         [kind (one-of/c 'unknown 'gif 'jpeg 'xbm 'xpm 'bmp 'pict)]
+                                                 [relative-path? any/c]
+                                                 [inline? any/c])
+                             (is-a?/c image-snip%)]{
+    @schemeblock[
+        (super on-new-image-snip 
+               (if (eq? kind 'unknown) 'unknown/mask kind) 
+               relative-path? 
+               inline?)]
+  }
+
   @defmethod*[#:mode override (((get-file (directory (or/c path-string? false/c))) string))]{
 
     Uses