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

change the way scrolling works so that canvases that are 'primary-owner's are respected when calling scroll-to on an admin

Browse Source 
This change may also affect other attempts to scroll, however, so watch for strange scrollings when multiple editor-canvaess are displaying the same text% object.
  closes PR 10853

original commit: 5eec85a5a259ce2c461f3fce2eed1f5a017cb8c5
This commit is contained in:
Robby Findler 2010-12-28 16:31:56 -06:00
parent 243761a92e
commit 6d348a2114
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mred/private/wxme/editor-canvas.rkt
View File

@ -1131,17 +1131,17 @@
(define/public (do-scroll-to localx localy w h refresh? bias prev? next? only-focus?)
(and canvas
(or (and (not (send canvas is-focus-on?))
(or (and (or (send canvas is-focus-on?)
(not only-focus?))
(list (send canvas scroll-to localx localy w h refresh? bias)))
(and (not (send canvas is-focus-on?))
(or
(and prev?
prevadmin
(send prevadmin do-scroll-to localx localy w h refresh? bias #t #f #t))
(and next?
nextadmin
(send nextadmin do-scroll-to localx localy w h refresh? bias #f #t #t))))
(and (or (not only-focus?)
(send canvas is-focus-on?))
(list (send canvas scroll-to localx localy w h refresh? bias))))))
(send nextadmin do-scroll-to localx localy w h refresh? bias #f #t #t)))))))
(def/override (grab-caret [(symbol-in immediate display global) dist])
(when canvas