From b0245395b760d73666ad65b25d146a73cb20bba4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 26 Aug 2011 06:07:18 -0600
Subject: [PATCH] add a test for undo-clickback repair

---
 collects/tests/gracket/editor.rktl | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/collects/tests/gracket/editor.rktl b/collects/tests/gracket/editor.rktl
index 7486250afd..a36aae409e 100644
--- a/collects/tests/gracket/editor.rktl
+++ b/collects/tests/gracket/editor.rktl
@@ -539,6 +539,16 @@
   (send t end-edit-sequence)
   (send t undo)
   (st "" t get-text))
+
+;; ----------------------------------------
+;; undo and clickbacks
+
+(let ([t (new text%)])
+  (send t set-max-undo-history 100)
+  (send t insert "abcdef")
+  (send t set-clickback 1 3 void)
+  (send t delete 0 5)
+  (send t undo))
   
 ;; ----------------------------------------