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

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

Browse Source
This commit is contained in:
Neil Toronto 2014-04-05 14:07:44 -06:00
parent 6a73b6b9ec
commit f939725950
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/unstable-pkgs/unstable-lib/gui/snip.rkt
View File

@ -41,8 +41,10 @@
(raise-type-error 'set-snip "snip%" s)) (raise-type-error 'set-snip "snip%" s))
(set! snip s) (set! snip s)
(send text set-writable #t) (send text set-writable #t)
(send text begin-edit-sequence #f)
(send text erase) (send text erase)
(send text insert snip) (send text insert snip)
(send text end-edit-sequence)
(send text set-writable #f)) (send text set-writable #f))
(super-new [parent parent] (super-new [parent parent]