fix editor-canvas%' internal on-size' handling

The `on-size' method is called in atomic mode,
and we can't call into the editor's sizing functions
in atomic mode.

Watch out for refresh and/or window-sizing problems.

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

@@ -292,16 +292,19 @@
   
   (define/override (on-size)
     (unless noloop?
-      (unless (and media
+      (queue-window-callback
-                   (send media get-printing))
+       this
-        (begin-refresh-sequence)
+       (lambda ()
-        (let-boxes ([w 0]
+         (unless (and media
-                    [h 0])
+                      (send media get-printing))
-            (get-size w h)
+           (begin-refresh-sequence)
-          (unless (and (= w lastwidth)
+           (let-boxes ([w 0]
-                       (= h lastheight))
+                       [h 0])
-            (reset-size)))
+               (get-size w h)
-        (end-refresh-sequence))))
+             (unless (and (= w lastwidth)
+                          (= h lastheight))
+               (reset-size)))
+           (end-refresh-sequence))))))
 
   (define/private (reset-size)
     (reset-visual #f)