Skip to content

Commit b64c7f0

Browse files
committed
Rename the fallback proc menubarheight to testmenubarheight. In [d5e602691a], in branch less_tests_constraints created off core-8-6-branch, I have renamed proc menubarheight to testmenubarheight to conform to how other such procs are named in the test suite. Later, in [e78b5c12b6] in trunk, I have added a fallback for that proc to be used by platforms other than macOS. And again later in [49fdd4b212] I have merged trunk in less_tests_constraints. This last commit created the inconsistency.
1 parent d6ed083 commit b64c7f0

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

tests/constraints.tcl

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -246,21 +246,21 @@ namespace eval tk {
246246
# got moved to the requested location should use a y coordinate larger than the
247247
# height of the menubar (normally 23 pixels) and an x coordinate larger than the
248248
# width of the dock, if it happens to be on the left.
249-
# menubarheight deals with this issue but may not be available from the test
249+
# testmenubarheight deals with this issue but may not be available from the test
250250
# environment, therefore provide a fallback here
251-
if {[llength [info procs menubarheight]] == 0} {
251+
if {[llength [info procs testmenubarheight]] == 0} {
252252
if {[tk windowingsystem] ne "aqua"} {
253253
# Windows may overlap the menubar
254-
proc menubarheight {} {
254+
proc testmenubarheight {} {
255255
return 0
256256
}
257257
} else {
258258
# Windows may not overlap the menubar
259-
proc menubarheight {} {
259+
proc testmenubarheight {} {
260260
return 30 ; # arbitrary value known to be larger than the menubar height
261261
}
262262
}
263-
namespace export menubarheight
263+
namespace export testmenubarheight
264264
}
265265
}
266266
}

0 commit comments

Comments
 (0)