update the focus when deleting a snip that has the focus

racket · Jan 7, 2024 · 8409105 · 8409105
1 parent 8109de9
commit 8409105
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/gui-lib/mred/private/wxme/text.rkt b/gui-lib/mred/private/wxme/text.rkt
@@ -2025,8 +2025,10 @@
                                                         (let ([rl? read-locked?])
                                                           (set! read-locked? #t)
                                                           (send s-caret-snip own-caret #f)
+                                                          (do-own-caret #t)
                                                           (set! read-locked? rl?)
                                                           (set! s-caret-snip #f)
+                                                          (on-focus #t)
                                                           #t))
                                                    update-cursor?)])