suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added get-text method implementation for collapsed snips

Browse Source 
original commit: 8d5bc3daea7d4f8ea774aa2ce5d89b3838f13d33
This commit is contained in:
Robby Findler 2001-11-01 03:24:45 +00:00
parent b65e4cb442
commit c29e4964e1
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/framework/private/scheme.ss
View File

@ -49,13 +49,15 @@
(define/public (get-saved-snips) saved-snips) (define/public (get-saved-snips) saved-snips)
(field [sizing-text (format "~a ~a" left-bracket right-bracket)]) (field [sizing-text (format "~a ~a" left-bracket right-bracket)])
(rename [super-get-text get-text])
(define/override (get-text offset num flattened?) (define/override (get-text offset num flattened?)
(apply string-append (if flattened?
(map (lambda (snip) (apply string-append
(send snip get-text 0 (send snip get-count) flattened?)) (map (lambda (snip)
saved-snips))) (send snip get-text 0 (send snip get-count) flattened?))
saved-snips))
(super-get-text offset num flattened?)))
(define/override (copy) (define/override (copy)
(instantiate (get-sexp-snip-class) () (instantiate (get-sexp-snip-class) ()
(left-bracket left-bracket) (left-bracket left-bracket)