clicking in the overview window now moves the insertion point

svn: r11481 original commit: 9807a0d67b269d8afff8e31f8b63ef369121e15f
2008-08-29 13:27:17 +00:00 · 2008-08-29 13:27:17 +00:00 · 7e6032052d
commit 7e6032052d
parent fbe1a57f34
1 changed files with 2 additions and 1 deletions
--- 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)]