diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss index fda08e51..538de81a 100644 --- a/collects/framework/private/scheme.ss +++ b/collects/framework/private/scheme.ss @@ -49,6 +49,13 @@ (define/public (get-saved-snips) saved-snips) (field [sizing-text (format "~a ~a" left-bracket right-bracket)]) + (define/override (get-text offset num flattened?) + (apply string-append + (map (lambda (snip) + (send snip get-text 0 (send snip get-count) flattened?)) + saved-snips))) + + (define/override (copy) (instantiate (get-sexp-snip-class) () (left-bracket left-bracket)