Fix [c8c52b9d6a]: OS X - Lots of menu.test tests fail (items are off by one). 84 failing tests now pass. The only one still failing (in menu.test) is menu-3.66

1 files changed, 14 insertions, 14 deletions

diff --git a/tests/menu.test b/tests/menu.test
index 86ed86c..2e738b8 100644
--- a/tests/menu.test
+++ b/tests/menu.test
@@ -279,9 +279,9 @@ destroy .m1
 # index 0 is tearoff, 1 command, 2 cascade, 3 separator, 4 checkbutton, 
 # 5 radiobutton
 deleteWindows
-menu .m1
+menu .m1 -tearoff 1
 .m1 add command -label "command"
-menu .m2
+menu .m2 -tearoff 1
 .m2 add command -label "test"
 .m1 add cascade -label "cascade" -menu .m2
 .m1 add separator
@@ -1398,7 +1398,7 @@ test menu-3.23 {MenuWidgetCmd procedure, "delete" option} -setup {
 test menu-3.24 {MenuWidgetCmd procedure, "delete" option} -setup {
 	destroy .m1
 } -body {
-    menu .m1
+    menu .m1 -tearoff 1
     .m1 delete 0 "foo"
 } -returnCodes error -result {bad menu entry index "foo"}
 test menu-3.25 {MenuWidgetCmd procedure, "delete" option} -setup {
@@ -1546,7 +1546,7 @@ test menu-3.40 {MenuWidgetCmd procedure, "index" option} -setup {
 test menu-3.41 {MenuWidgetCmd procedure, "index" option} -setup {
 	destroy .m1
 } -body {
-    menu .m1
+    menu .m1 -tearoff 1
     .m1 add command -label "test"
     .m1 add command -label "3"
     .m1 add command -label "another label"
@@ -1739,7 +1739,7 @@ test menu-3.61 {MenuWidgetCmd procedure, "type" option} -setup {
 test menu-3.62 {MenuWidgetCmd procedure, "type" option} -setup {
 	destroy .m1
 } -body {
-    menu .m1
+    menu .m1 -tearoff 1
     .m1 type 0
 } -cleanup {
 	destroy .m1
@@ -1775,7 +1775,7 @@ test menu-3.65 {MenuWidgetCmd procedure, "yposition" option} -setup {
 test menu-3.66 {MenuWidgetCmd procedure, "yposition" option} -setup {
 	destroy .m1
 } -body {
-    menu .m1
+    menu .m1 -tearoff 1
     .m1 yposition 1
 } -cleanup {
 	destroy .m1
@@ -1883,7 +1883,7 @@ test menu-4.6 {TkInvokeMenu: radiobutton} -setup {
     destroy .m1
 } -body {
     catch {unset foo}
-    menu .m1
+    menu .m1 -tearoff 1
     .m1 add radiobutton -label "1" -variable foo -value one
     .m1 add radiobutton -label "2" -variable foo -value two
     .m1 add radiobutton -label "3" -variable foo -value three
@@ -1895,7 +1895,7 @@ test menu-4.7 {TkInvokeMenu: radiobutton} -setup {
     destroy .m1
 } -body {
     catch {unset foo}
-    menu .m1
+    menu .m1 -tearoff 1
     .m1 add radiobutton -label "1" -variable foo -value one
     .m1 add radiobutton -label "2" -variable foo -value two
     .m1 add radiobutton -label "3" -variable foo -value three
@@ -1949,7 +1949,7 @@ test menu-4.11 {TkInvokeMenu} -setup {
 test menu-4.12 {TkInvokeMenu} -setup {
     destroy .m1
 } -body {
-    menu .m1
+    menu .m1 -tearoff 1
     .m1 add command -label "test" -command ".m1 delete 1"
     list [catch {.m1 invoke 1} msg] $msg [catch {.m1 type "test"} msg2] $msg2
 } -cleanup {
@@ -2337,7 +2337,7 @@ test menu-8.5 {DestroyMenuEntry} -setup {
 test menu-8.6 {DestroyMenuEntry} -setup {
     destroy .m1
 } -body {
-    menu .m1
+    menu .m1 -tearoff 1
     .m1 add command -label "one"
     .m1 add command -label "two"
     list [.m1 delete 1] [.m1 entrycget 1 -label] [destroy .m1]
@@ -2737,7 +2737,7 @@ test menu-12.4 {ConfigureMenuCloneEntries} -setup {
 test menu-13.1 {TkGetMenuIndex} -setup {
     deleteWindows
 } -body {
-    menu .m1
+    menu .m1 -tearoff 1
     .m1 add command -label "active"
     .m1 add command -label "test2"
     .m1 add command -label "test3"
@@ -2804,7 +2804,7 @@ test menu-13.6 {TkGetMenuIndex} -setup {
 test menu-13.7 {TkGetMenuIndex} -setup {
     deleteWindows
 } -body {
-    menu .m1
+    menu .m1 -tearoff 1
     .m1 add command -label "active"
     .m1 add command -label "test2"
     .m1 add command -label "test3"
@@ -2937,7 +2937,7 @@ test menu-16.3 {MenuAddOrInsert} -setup {
 test menu-16.4 {MenuAddOrInsert} -setup {
 	deleteWindows
 } -body {
-    menu .m1
+    menu .m1 -tearoff 1
     .m1 add command -label "test"
     .m1 insert 0 command -label "test2"
     .m1 entrycget 1 -label
@@ -3277,7 +3277,7 @@ test menu-20.9 {CloneMenu - cascades entries} -setup {
 test menu-20.10 {CloneMenu - tearoff fields} -setup {
 	deleteWindows
 } -body {
-    menu .m1
+    menu .m1 -tearoff 1
     list [.m1 clone .m2 normal] [.m2 cget -tearoff]
 } -cleanup {
 	deleteWindows