summaryrefslogtreecommitdiffstats
path: root/tests/font.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-15 16:58:13 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-15 16:58:13 (GMT)
commitfac19b4be19cadfe6aa84116dbdd20a3052e6af8 (patch)
treea3814ae175937a50238675da89530a4df2430c83 /tests/font.test
parent43d95f224b683fa86c4b4620c750bd4b73a41e14 (diff)
parente2b504bf3a2dc5aabd16dd640f75e87553dcf25a (diff)
downloadtk-fac19b4be19cadfe6aa84116dbdd20a3052e6af8.zip
tk-fac19b4be19cadfe6aa84116dbdd20a3052e6af8.tar.gz
tk-fac19b4be19cadfe6aa84116dbdd20a3052e6af8.tar.bz2
Don't use deprecated "case" any more.
Don't do unnecessary Tcl_PkgRequire(..., "Tcl", ...), the preceding Tcl_InitStubs() call already does that, both for dynamic loaded as wel as the static case. Disallow Tk 8.5.x to be loaded in any Tcl 8.5 alpha release.
Diffstat (limited to 'tests/font.test')
-rw-r--r--tests/font.test3
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/font.test b/tests/font.test
index 34e4b83..82af541 100644
--- a/tests/font.test
+++ b/tests/font.test
@@ -46,10 +46,9 @@ proc csetup {{str ""}} {
setup
-case [tk windowingsystem] {
+switch [tk windowingsystem] {
x11 {set fixed "fixed"}
win32 {set fixed "courier 12"}
- classic -
aqua {set fixed "monaco 9"}
}