summaryrefslogtreecommitdiffstats
path: root/tests/menubut.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/menubut.test')
-rw-r--r--tests/menubut.test32
1 files changed, 16 insertions, 16 deletions
diff --git a/tests/menubut.test b/tests/menubut.test
index 028341f..f997e55 100644
--- a/tests/menubut.test
+++ b/tests/menubut.test
@@ -98,7 +98,7 @@ test menubutton-1.15 {configuration options} -body {
.mb cget -borderwidth
} -cleanup {
.mb configure -borderwidth [lindex [.mb configure -borderwidth] 3]
-} -result 1
+} -result 1.3
test menubutton-1.16 {configuration options} -body {
.mb configure -borderwidth badValue
} -returnCodes error -result {expected screen distance but got "badValue"}
@@ -207,7 +207,7 @@ test menubutton-1.37 {configuration options} -setup {
.mb configure -image bogus
} -cleanup {
.mb configure -image [lindex [.mb configure -image] 3]
-} -returnCodes error -result {image "bogus" doesn't exist}
+} -returnCodes error -result {image "bogus" does not exist}
test menubutton-1.38 {configuration options} -body {
.mb configure -indicatoron yes
.mb cget -indicatoron
@@ -593,7 +593,7 @@ test menubutton-7.4 {ComputeMenuButtonGeometry procedure} -constraints {
image create test image1
} -body {
menubutton .mb -image image1 -bd 2 -relief raised -width 40 \
- -highlightthickness 2
+ -highlightthickness 2
pack .mb
list [winfo reqwidth .mb] [winfo reqheight .mb]
} -cleanup {
@@ -607,7 +607,7 @@ test menubutton-7.5 {ComputeMenuButtonGeometry procedure} -constraints {
image create test image1
} -body {
menubutton .mb -image image1 -bd 2 -relief raised -height 30 \
- -highlightthickness 2
+ -highlightthickness 2
pack .mb
list [winfo reqwidth .mb] [winfo reqheight .mb]
} -cleanup {
@@ -618,7 +618,7 @@ test menubutton-7.6 {ComputeMenuButtonGeometry procedure} -setup {
deleteWindows
} -body {
menubutton .mb -bitmap question -bd 2 -relief raised \
- -highlightthickness 2
+ -highlightthickness 2
pack .mb
list [winfo reqwidth .mb] [winfo reqheight .mb]
} -cleanup {
@@ -628,7 +628,7 @@ test menubutton-7.7 {ComputeMenuButtonGeometry procedure} -setup {
deleteWindows
} -body {
menubutton .mb -bitmap question -bd 2 -relief raised -width 40 \
- -highlightthickness 1
+ -highlightthickness 1
pack .mb
list [winfo reqwidth .mb] [winfo reqheight .mb]
} -cleanup {
@@ -638,7 +638,7 @@ test menubutton-7.8 {ComputeMenuButtonGeometry procedure} -setup {
deleteWindows
} -body {
menubutton .mb -bitmap question -bd 2 -relief raised -height 50 \
- -highlightthickness 1
+ -highlightthickness 1
pack .mb
list [winfo reqwidth .mb] [winfo reqheight .mb]
} -cleanup {
@@ -650,7 +650,7 @@ test menubutton-7.9 {ComputeMenuButtonGeometry procedure} -constraints {
deleteWindows
} -body {
menubutton .mb -text String -bd 2 -relief raised -padx 0 -pady 0 \
- -highlightthickness 1
+ -highlightthickness 1
pack .mb
list [winfo reqwidth .mb] [winfo reqheight .mb]
} -cleanup {
@@ -662,7 +662,7 @@ test menubutton-7.10 {ComputeMenuButtonGeometry procedure} -constraints {
deleteWindows
} -body {
menubutton .mb -text String -bd 2 -relief raised -width 20 \
- -padx 0 -pady 0 -highlightthickness 1
+ -padx 0 -pady 0 -highlightthickness 1
pack .mb
list [winfo reqwidth .mb] [winfo reqheight .mb]
} -cleanup {
@@ -674,7 +674,7 @@ test menubutton-7.11 {ComputeMenuButtonGeometry procedure} -constraints {
deleteWindows
} -body {
menubutton .mb -text String -bd 2 -relief raised -height 2 \
- -padx 0 -pady 0 -highlightthickness 1
+ -padx 0 -pady 0 -highlightthickness 1
pack .mb
list [winfo reqwidth .mb] [winfo reqheight .mb]
} -cleanup {
@@ -686,7 +686,7 @@ test menubutton-7.12 {ComputeMenuButtonGeometry procedure} -constraints {
deleteWindows
} -body {
menubutton .mb -text String -bd 2 -relief raised -padx 10 -pady 5 \
- -highlightthickness 1
+ -highlightthickness 1
pack .mb
list [winfo reqwidth .mb] [winfo reqheight .mb]
} -cleanup {
@@ -698,7 +698,7 @@ test menubutton-7.13 {ComputeMenuButtonGeometry procedure} -constraints {
deleteWindows
} -body {
menubutton .mb -text String -bd 2 -relief raised \
- -highlightthickness 1 -indicatoron 1
+ -highlightthickness 1 -indicatoron 1
pack .mb
list [winfo reqwidth .mb] [winfo reqheight .mb]
} -cleanup {
@@ -714,7 +714,7 @@ test menubutton-7.14 {ComputeMenuButtonGeometry procedure} -constraints {
# size varies to maintain constant absolute size.
menubutton .mb -image image1 -bd 2 -relief raised \
- -highlightthickness 2 -indicatoron 1
+ -highlightthickness 2 -indicatoron 1
pack .mb
list [winfo reqwidth .mb] [winfo reqheight .mb]
} -cleanup {
@@ -731,7 +731,7 @@ test menubutton-7.15 {ComputeMenuButtonGeometry procedure} -constraints {
# size varies to maintain constant absolute size.
menubutton .mb -image image1 -bd 2 -relief raised \
- -highlightthickness 2 -indicatoron 1
+ -highlightthickness 2 -indicatoron 1
pack .mb
list [winfo reqwidth .mb] [winfo reqheight .mb]
} -cleanup {
@@ -757,7 +757,7 @@ test menubutton-9.1 {Bug [5d991b822e]} {
set var INIT
menubutton .b -textvariable var
trace add variable var unset {apply {args {
- .b configure -textvariable {}
+ .b configure -textvariable {}
}}}
pack .b
bind .b <Configure> {unset var}
@@ -770,7 +770,7 @@ test menubutton-9.2 {Bug [5d991b822e]} {
set var INIT
menubutton .b -textvariable var
trace add variable var unset {apply {args {
- .b configure -textvariable new
+ .b configure -textvariable new
}}}
pack .b
bind .b <Configure> {unset -nocomplain var}