From 1547d31790a7e1fa4f88df3ae105e06dba30291a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 5 Oct 2006 22:15:48 +0000 Subject: [PATCH] fixed bug noticed by Corey Sweeney with long lines & 20,000 ft overview svn: r4497 --- collects/framework/private/frame.ss | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index d21aa16306..856f2c1391 100644 --- a/collects/framework/private/frame.ss +++ b/collects/framework/private/frame.ss @@ -1379,13 +1379,19 @@ [start-pos (send text paragraph-start-position para)] [end-pos (send text paragraph-end-position para)]) (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 (send delegate-frame update-status-line 'plt:delegate #f)])))] [(send evt leaving?) (send delegate-frame update-status-line 'plt:delegate #f)]))))) (super-instantiate ()))) + (define (at-most-200 s) + (cond + [(<= (string-length s) 200) + s] + [else (substring s 0 200)])) + (define delegatee-text<%> (interface () set-start/end-para))