restore focus ring on text-field% (by chaining to superclass on-set/kill-fpcus in editor-canvas%)

svn: r15846 original commit: 941d8c47c388871123b2edd4861987ec6ddf6666
2009-09-01 14:31:58 +00:00 · 2009-09-01 14:31:58 +00:00 · 92510640c5
commit 92510640c5
parent 47154400b4
1 changed files with 2 additions and 0 deletions
--- 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