under Windows, editor-canvas% needs to set its own focus on mouse clicks

svn: r14516

original commit: 8001b11c03cee29dc3e8518bd8f85b3164b5e848

collects/mred/private/wxme/editor-canvas.ss

@@ -152,7 +152,8 @@
            get-scroll-page set-scroll-page
            get-scroll-range set-scroll-range
            is-shown-to-root?
-           show-scrollbars)
+           show-scrollbars
+	   set-focus)
 
   (define blink-timer #f)
   (define noloop? #f)
@@ -374,6 +375,12 @@
       (set! last-x x)
       (set! last-y y)
 
+      (when (and (eq? 'windows (system-type))
+		 (not focuson?)
+		 (send event button-down?))
+	(set-focus)
+	(on-focus #t))
+      
       (when (and media
                  (not (send media get-printing)))
         (using-admin