From c29e4964e180f07a6fa2050e3a34d2d6bab69068 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 1 Nov 2001 03:24:45 +0000 Subject: [PATCH] added get-text method implementation for collapsed snips original commit: 8d5bc3daea7d4f8ea774aa2ce5d89b3838f13d33 --- collects/framework/private/scheme.ss | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss index 538de81a..ffe59891 100644 --- a/collects/framework/private/scheme.ss +++ b/collects/framework/private/scheme.ss @@ -49,13 +49,15 @@ (define/public (get-saved-snips) saved-snips) (field [sizing-text (format "~a ~a" left-bracket right-bracket)]) + (rename [super-get-text get-text]) (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))) + (if flattened? + (apply string-append + (map (lambda (snip) + (send snip get-text 0 (send snip get-count) flattened?)) + saved-snips)) + (super-get-text offset num flattened?))) - (define/override (copy) (instantiate (get-sexp-snip-class) () (left-bracket left-bracket)