Fix internal lock issue in snip canvas by wrapping erase+insert in an edit sequence

2014-04-05 14:07:44 -06:00 · 2014-04-05 14:07:44 -06:00 · f939725950
commit f939725950
parent 6a73b6b9ec
1 changed files with 2 additions and 0 deletions
--- a/pkgs/unstable-pkgs/unstable-lib/gui/snip.rkt
+++ b/pkgs/unstable-pkgs/unstable-lib/gui/snip.rkt
@ -41,8 +41,10 @@
        (raise-type-error 'set-snip "snip%" s))
      (set! snip s)
      (send text set-writable #t)
+      (send text begin-edit-sequence #f)
      (send text erase)
      (send text insert snip)
+      (send text end-edit-sequence)
      (send text set-writable #f))
    
    (super-new [parent parent]