From 7aa6153da1ef77508de5d8405eba78c013b7f813 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 7 Oct 2011 14:00:37 -0500 Subject: [PATCH] adjust the calls to paragraph-{start,end}-position to specify the default argument --- collects/framework/private/frame.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/framework/private/frame.rkt b/collects/framework/private/frame.rkt index 37928b236a..6d0243d614 100644 --- a/collects/framework/private/frame.rkt +++ b/collects/framework/private/frame.rkt @@ -1519,8 +1519,8 @@ (define ed (get-editor)) (define (line-len p) (define ans - (- (send ed paragraph-end-position p) - (send ed paragraph-start-position p))) + (- (send ed paragraph-end-position p #f) + (send ed paragraph-start-position p #f))) ans) (when ed (let loop ([p (- (send ed last-paragraph) 1)] @@ -1529,8 +1529,8 @@ (cond [(= p -1) (send ed set-position - (send ed paragraph-start-position longest) - (send ed paragraph-end-position longest))] + (send ed paragraph-start-position longest #f) + (send ed paragraph-end-position longest #f))] [else (define this-size (line-len p)) (cond