From 941d8c47c388871123b2edd4861987ec6ddf6666 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 1 Sep 2009 14:31:58 +0000 Subject: [PATCH] restore focus ring on text-field% (by chaining to superclass on-set/kill-fpcus in editor-canvas%) svn: r15846 --- collects/mred/private/wxme/editor-canvas.ss | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/mred/private/wxme/editor-canvas.ss b/collects/mred/private/wxme/editor-canvas.ss index 51e862a49f..fddd00c085 100644 --- a/collects/mred/private/wxme/editor-canvas.ss +++ b/collects/mred/private/wxme/editor-canvas.ss @@ -356,12 +356,14 @@ (thunk))) (define/override (on-set-focus) + (super on-set-focus) (if (eq? 'windows (system-type)) (queue-window-callback this (lambda () (on-focus #t))) (on-focus #t))) (define/override (on-kill-focus) + (super on-kill-focus) (if (eq? 'windows (system-type)) (queue-window-callback this