diff options
| author | fvogel <fvogelnew1@free.fr> | 2017-11-03 21:32:27 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2017-11-03 21:32:27 (GMT) |
| commit | cef9891d219596eba88dad0ddee7cac6a77fad9e (patch) | |
| tree | 31b12c58cc18ad474d037ac10233c749e1971d2f /tests/menu.test | |
| parent | 76dc9b182361b23b6cc2437b3b41f275f28369f2 (diff) | |
| download | tk-cef9891d219596eba88dad0ddee7cac6a77fad9e.zip tk-cef9891d219596eba88dad0ddee7cac6a77fad9e.tar.gz tk-cef9891d219596eba88dad0ddee7cac6a77fad9e.tar.bz2 | |
Fix error in menu item labels (they should reflect interactive tests numbering)
Diffstat (limited to 'tests/menu.test')
| -rw-r--r-- | tests/menu.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/menu.test b/tests/menu.test index af78947..e1c722f 100644 --- a/tests/menu.test +++ b/tests/menu.test @@ -1629,7 +1629,7 @@ test menu-3.50 {MenuWidgetCmd procedure, "post" option} -constraints { destroy .m1 } -body { menu .m1 - .m1 add command -label "menu-3.53: hit Escape" -command "puts hello" + .m1 add command -label "menu-3.50: hit Escape" -command "puts hello" .m1 post 40 40 } -cleanup { destroy .m1 @@ -1656,7 +1656,7 @@ test menu-3.53 {MenuWidgetCmd procedure, "postcascade" option} -constraints { destroy .m1 .m2 } -body { menu .m1 - .m1 add command -label "menu-3.56 - hit Escape" + .m1 add command -label "menu-3.53 - hit Escape" menu .m2 .m1 post 40 40 .m1 add cascade -menu .m2 @@ -1758,7 +1758,7 @@ test menu-3.64 {MenuWidgetCmd procedure, "unpost" option} -constraints { destroy .m1 } -body { menu .m1 - .m1 add command -label "menu-3.68 - hit Escape" + .m1 add command -label "menu-3.64 - hit Escape" .m1 post 40 40 .m1 unpost } -cleanup { |