diff --git a/collects/framework/private/editor.ss b/collects/framework/private/editor.ss index d4887ea9..4b7eb415 100644 --- a/collects/framework/private/editor.ss +++ b/collects/framework/private/editor.ss @@ -302,12 +302,16 @@ (for-each (λ (t) (t)) queue)]))) (inner (void) after-edit-sequence)) - [define/override on-new-box - (λ (type) - (cond - [(eq? type 'text) (make-object editor-snip% (make-object text:basic%))] - [else (make-object editor-snip% (make-object pasteboard:basic%))]))] + (define/override (on-new-box type) + (cond + [(eq? type 'text) (make-object editor-snip% (make-object text: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 diff --git a/collects/scribblings/framework/editor.scrbl b/collects/scribblings/framework/editor.scrbl index 04755375..6b1d41a6 100644 --- a/collects/scribblings/framework/editor.scrbl +++ b/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