fixed a bug

svn: r13119
2009-01-14 19:26:03 +00:00 · 2009-01-14 19:26:03 +00:00 · 074be235b4
commit 074be235b4
parent 8f3547e311
1 changed files with 1 additions and 1 deletions
--- a/collects/redex/private/traces.ss
+++ b/collects/redex/private/traces.ss
@ -549,8 +549,8 @@
              (list bottom-panel)
              null)))
  (out-of-dot-state) ;; make sure the state is initialized right
+  (set-font-size (initial-font-size)) ;; have to call this before 'insert-into' or else it triggers resizing
  (insert-into init-rightmost-x 0 graph-pb frontier)
-  (set-font-size (initial-font-size))
  (cond
    [no-show-frame?
     (let ([s (make-semaphore)])