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

..

Browse Source 
original commit: 601e9e1aa9e558d8d5dbd171fdc6b2da6d127088
This commit is contained in:
Robby Findler 2002-08-23 21:04:29 +00:00
parent 79f1d6441a
commit 86510aabd8
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/framework/private/comment-box.ss
View File

@ -40,12 +40,13 @@
(define/override (get-corner-bitmap) bm)
(rename [super-get-text get-text])
(define/override (get-text . args)
(let* ([super-res (super-get-text . args)]
[replaced (string-append "; " (regexp-replace* "\n" super-res "\n; "))])
(if (char=? #\newline (string-ref replaced (- (string-length replaced) 1)))
replaced
(string-append replaced "\n"))))
(define/override get-text
(opt-lambda (offset num [flattened? #t])
(let* ([super-res (super-get-text offset num flattened?)]
[replaced (string-append "; " (regexp-replace* "\n" super-res "\n; "))])
(if (char=? #\newline (string-ref replaced (- (string-length replaced) 1)))
replaced
(string-append replaced "\n")))))
(define/override (get-menu)