summaryrefslogtreecommitdiffstats
path: root/tests/font.test
diff options
context:
space:
mode:
authorjan.nijtmans <jan.nijtmans@noemail.net>2013-01-15 16:58:13 (GMT)
committerjan.nijtmans <jan.nijtmans@noemail.net>2013-01-15 16:58:13 (GMT)
commit155911ada3db6490e4413302bdc6e435360b2122 (patch)
treea3814ae175937a50238675da89530a4df2430c83 /tests/font.test
parenta9c94af6ca87cdb88642e06cb61e5f8ca5ee5136 (diff)
parentbcbbd496e01a2fc1b556db9a3391dc4f631d9cc4 (diff)
downloadtk-155911ada3db6490e4413302bdc6e435360b2122.zip
tk-155911ada3db6490e4413302bdc6e435360b2122.tar.gz
tk-155911ada3db6490e4413302bdc6e435360b2122.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. FossilOrigin-Name: 4487567aa7d5dc994541fc74436d645fbe7cbe22
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"}
}