suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

stop telling the traces windows to re-format expressions when the font size changes

Browse Source 
I'm not sure why it was doing this before, but in addition to fixing PR
14644, this should also make the font size slider a lot more responsive.

also, redraw the editor after changing the font size to make sure
the blue arrows get redrawn properly.

closes PR 14644
This commit is contained in:
Robby Findler 2014-07-18 08:17:09 -05:00
parent 5168764293
commit 3333d92652
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/redex-pkgs/redex-gui-lib/redex/private/traces.rkt
View File

@ -296,7 +296,8 @@
(callback (lambda (slider evt)
(send graph-pb begin-edit-sequence)
(set-font-size (send slider get-value))
(send graph-pb end-edit-sequence)))))
(send graph-pb end-edit-sequence)
(send ec refresh)))))
(define lower-panel (instantiate horizontal-panel% ()
(parent bottom-panel)
(stretchable-height #f)))
@ -385,12 +386,7 @@
(send standard get-delta delta)
(send delta set-size-mult 0)
(send delta set-size-add size)
(send standard set-delta delta)
(let loop ([snip (send graph-pb find-first-snip)])
(when snip
(when (is-a? snip reflowing-snip<%>)
(send snip reflow-program))
(loop (send snip next))))))
(send standard set-delta delta)))
;; fill-out : (listof X) (listof X) -> (listof X)
;; produces a list whose length matches defaults but