From b65e4cb442591964671d1d8a35863cd2d97810c0 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 1 Nov 2001 00:32:44 +0000 Subject: [PATCH] ... original commit: d5085ab0904f0b7a5ecbc6e81a8235962af667ec --- collects/framework/private/scheme.ss | 7 +++++++ 1 file changed, 7 insertions(+) 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)