clicking in the overview window now moves the insertion point

svn: r11481
2008-08-29 13:27:17 +00:00 · 2008-08-29 13:27:17 +00:00 · 9807a0d67b
commit 9807a0d67b
parent 6230ed7ed7
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)]