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

fixed bug noticed by Corey Sweeney with long lines & 20,000 ft overview

Browse Source 
svn: r4497
This commit is contained in:
Robby Findler 2006-10-05 22:15:48 +00:00
parent c1350ef9d8
commit 1547d31790
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/framework/private/frame.ss
View File

@ -1379,13 +1379,19 @@
[start-pos (send text paragraph-start-position para)] [start-pos (send text paragraph-start-position para)]
[end-pos (send text paragraph-end-position para)]) [end-pos (send text paragraph-end-position para)])
(send delegate-frame update-status-line 'plt:delegate (send delegate-frame update-status-line 'plt:delegate
(send text get-text start-pos end-pos)))] (at-most-200 (send text get-text start-pos end-pos))))]
[else [else
(send delegate-frame update-status-line 'plt:delegate #f)])))] (send delegate-frame update-status-line 'plt:delegate #f)])))]
[(send evt leaving?) [(send evt leaving?)
(send delegate-frame update-status-line 'plt:delegate #f)]))))) (send delegate-frame update-status-line 'plt:delegate #f)])))))
(super-instantiate ()))) (super-instantiate ())))
(define (at-most-200 s)
(cond
[(<= (string-length s) 200)
s]
[else (substring s 0 200)]))
(define delegatee-text<%> (define delegatee-text<%>
(interface () (interface ()
set-start/end-para)) set-start/end-para))