summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-05-12 21:35:47 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-05-12 21:35:47 (GMT)
commit496aa58fc7b28242708064b4bd4f75a055ded9e2 (patch)
tree06b645cb9b262bd7e9ca6daf4507f91dd4702a14
parent7a226093c601aa9aed761133e3a03a3b98d839a4 (diff)
downloadtk-496aa58fc7b28242708064b4bd4f75a055ded9e2.zip
tk-496aa58fc7b28242708064b4bd4f75a055ded9e2.tar.gz
tk-496aa58fc7b28242708064b4bd4f75a055ded9e2.tar.bz2
Added test for the <<UndoStack>> event
-rw-r--r--tests/text.test43
1 files changed, 43 insertions, 0 deletions
diff --git a/tests/text.test b/tests/text.test
index 9be243d..0ec69d0 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -6519,6 +6519,49 @@ test text-27.24 {TextEditCmd procedure, canundo and canredo} -setup {
} -cleanup {
destroy .t
} -result {0 0 0 0 1 0 1 1 0 0 1 1 1 0}
+test text-27.25 {<<UndoStack>> virtual event} -setup {
+ destroy .t
+ set res {}
+ set nbUS 0
+} -body {
+ text .t -undo false -autoseparators false
+ bind .t <<UndoStack>> {incr nbUS}
+ update ; lappend res $nbUS
+ .t configure -undo true
+ update ; lappend res $nbUS
+ .t insert end "DO\n"
+ .t edit separator
+ .t insert end "IT\n"
+ .t insert end "YOURSELF\n"
+ .t edit separator
+ .t insert end "MAN\n"
+ .t edit separator
+ update ; lappend res $nbUS
+ .t edit undo
+ update ; lappend res $nbUS
+ .t edit redo
+ update ; lappend res $nbUS
+ .t edit undo
+ update ; lappend res $nbUS
+ .t edit undo
+ update ; lappend res $nbUS
+ .t edit undo
+ update ; lappend res $nbUS
+ .t edit redo
+ update ; lappend res $nbUS
+ .t edit redo
+ update ; lappend res $nbUS
+ .t edit redo
+ update ; lappend res $nbUS
+ .t edit undo
+ update ; lappend res $nbUS
+ .t edit undo
+ update ; lappend res $nbUS
+ .t edit reset
+ update ; lappend res $nbUS
+} -cleanup {
+ destroy .t
+} -result {0 0 1 2 3 4 4 5 6 6 7 8 8 9}
test text-28.1 {bug fix - 624372, ControlUtfProc long lines} -body {