diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-15 16:48:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-15 16:48:13 (GMT) |
| commit | 8e0a6fe1295f4a12ac40780c4b18e7f26d54f341 (patch) | |
| tree | 7da4ab4af7a9789043e70df26fe6d1cfe2547c15 /tests/font.test | |
| parent | 3439a87d5bbd51a5b91c7dff22cef8bdf1efa3f0 (diff) | |
| download | tk-8e0a6fe1295f4a12ac40780c4b18e7f26d54f341.zip tk-8e0a6fe1295f4a12ac40780c4b18e7f26d54f341.tar.gz tk-8e0a6fe1295f4a12ac40780c4b18e7f26d54f341.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.
Diffstat (limited to 'tests/font.test')
| -rw-r--r-- | tests/font.test | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/tests/font.test b/tests/font.test index 94953b1..2479334 100644 --- a/tests/font.test +++ b/tests/font.test @@ -49,10 +49,13 @@ proc csetup {{str ""}} { setup -case $tcl_platform(platform) { - unix {set fixed "fixed"} - windows {set fixed "courier 12"} +switch [tk windowingsystem] { + x11 {set fixed "fixed"} + win32 {set fixed "courier 12"} + aqua {set fixed "monaco 9"} } + + set times [font actual {times 0} -family] test font-1.1 {TkFontPkgInit} { |