From 721784aa776b4a2cbd7725c806a1205dd7ea4ca8 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 10 Aug 2004 20:47:24 +0000 Subject: [PATCH] . original commit: 2ab7c1f5622ad396fafe4cf9aff5708e69d3f963 --- collects/framework/private/frame.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index 708cbb4e..7c6d552e 100644 --- a/collects/framework/private/frame.ss +++ b/collects/framework/private/frame.ss @@ -579,7 +579,7 @@ (lambda () (lock-status-changed))] - (super-instantiate ()) + (super-new) (set! outer-info-panel (make-object horizontal-panel% super-root)) (send outer-info-panel stretchable-height #f) @@ -749,7 +749,7 @@ ;; given a line number and a position, finds the ;; column number for that position (define/private (find-col text line pos) - (let ([line-start (send text line-start-position line)]) + (let ([line-start (send text paragraph-start-position line)]) (if (= line-start pos) 0 (let loop ([col 0]