From 14b133296f39532f12b51fb4bb259cd947c24d1a Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Thu, 14 Nov 2013 13:29:55 -0500 Subject: [PATCH] Fix editor canvas admin bug found by TR The `grab-caret` method's argument is supposed to be optional according to the documentation. --- pkgs/gui-pkgs/gui-lib/mred/private/wxme/editor-canvas.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/gui-pkgs/gui-lib/mred/private/wxme/editor-canvas.rkt b/pkgs/gui-pkgs/gui-lib/mred/private/wxme/editor-canvas.rkt index 30cf301283..9dd7def561 100644 --- a/pkgs/gui-pkgs/gui-lib/mred/private/wxme/editor-canvas.rkt +++ b/pkgs/gui-pkgs/gui-lib/mred/private/wxme/editor-canvas.rkt @@ -1192,7 +1192,7 @@ (send canvas is-focus-on?)) (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 (eq? dist 'global) (send canvas set-focus))))