From 9807a0d67b269d8afff8e31f8b63ef369121e15f Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 29 Aug 2008 13:27:17 +0000
Subject: [PATCH] clicking in the overview window now moves the insertion point

svn: r11481
---
 collects/framework/private/frame.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index 9f6fff3fb9..bbee565fb6 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -1634,7 +1634,8 @@
                   (- (unbox by) (/ ch 2))
                   cw
                   ch
-                  #t)))))
+                  #t)
+            (send d-text set-position pos)))))
     
     (define/public (delegate-moved)
       (let ([startb (box 0)]