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

removed the (useless) mouse-over-the-overview-window-and-it-shows-you-one-line-of-text feature because it made the window jump around in annoying ways and made clicking on the overview window not work properly

Browse Source 
svn: r11907
This commit is contained in:
Robby Findler 2008-09-29 18:44:27 +00:00
parent 3f4c0997e3
commit 025c1d2637
1 changed files with 1 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1435,29 +1435,7 @@
(send evt get-x) (send evt get-x)
(send evt get-y))]) (send evt get-y))])
(send delegate-frame click-in-overview (send delegate-frame click-in-overview
(send text find-position editor-x editor-y)))] (send text find-position editor-x editor-y)))])))))
[(or (send evt entering?)
(send evt moving?))
(when (send evt entering?)
(send delegate-frame open-status-line 'plt:delegate))
(let-values ([(editor-x editor-y)
(send text dc-location-to-editor-location
(send evt get-x)
(send evt get-y))])
(let* ([b (box #f)]
[pos (send text find-position editor-x editor-y #f b)])
(cond
[(unbox b)
(let* ([para (send text position-paragraph pos)]
[start-pos (send text paragraph-start-position para)]
[end-pos (send text paragraph-end-position para)])
(send delegate-frame update-status-line 'plt:delegate
(at-most-200 (send text get-text start-pos end-pos))))]
[else
(send delegate-frame update-status-line 'plt:delegate #f)])))]
[(send evt leaving?)
(send delegate-frame update-status-line 'plt:delegate #f)
(send delegate-frame close-status-line 'plt:delegate)])))))
(super-new))) (super-new)))
(define (at-most-200 s) (define (at-most-200 s)