diff options
| author | fvogel <fvogelnew1@free.fr> | 2016-05-12 21:35:47 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2016-05-12 21:35:47 (GMT) |
| commit | 496aa58fc7b28242708064b4bd4f75a055ded9e2 (patch) | |
| tree | 06b645cb9b262bd7e9ca6daf4507f91dd4702a14 | |
| parent | 7a226093c601aa9aed761133e3a03a3b98d839a4 (diff) | |
| download | tk-496aa58fc7b28242708064b4bd4f75a055ded9e2.zip tk-496aa58fc7b28242708064b4bd4f75a055ded9e2.tar.gz tk-496aa58fc7b28242708064b4bd4f75a055ded9e2.tar.bz2 | |
Added test for the <<UndoStack>> event
| -rw-r--r-- | tests/text.test | 43 |
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 { |