suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

clicking in the overview window now moves the insertion point

Browse Source 
svn: r11481
This commit is contained in:
Robby Findler 2008-08-29 13:27:17 +00:00
parent 6230ed7ed7
commit 9807a0d67b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/frame.ss
View File

@ -1634,7 +1634,8 @@
(- (unbox by) (/ ch 2)) (- (unbox by) (/ ch 2))
cw cw
ch ch
#t))))) #t)
(send d-text set-position pos)))))
(define/public (delegate-moved) (define/public (delegate-moved)
(let ([startb (box 0)] (let ([startb (box 0)]