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

Fix editor canvas admin bug found by TR

Browse Source 
The `grab-caret` method's argument is supposed
to be optional according to the documentation.
This commit is contained in:
Asumu Takikawa 2013-11-14 13:29:55 -05:00
parent 7eb1a4ba42
commit 14b133296f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/gui-pkgs/gui-lib/mred/private/wxme/editor-canvas.rkt
View File

@ -1192,7 +1192,7 @@
(send canvas is-focus-on?)) (send canvas is-focus-on?))
(list (send canvas scroll-to localx localy w h refresh? bias)))))) (list (send canvas scroll-to localx localy w h refresh? bias))))))
(def/override (grab-caret [(symbol-in immediate display global) dist]) (def/override (grab-caret [(symbol-in immediate display global) [dist 'global]])
(when canvas (when canvas
(when (eq? dist 'global) (when (eq? dist 'global)
(send canvas set-focus)))) (send canvas set-focus))))