summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2008-05-13 13:17:25 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2008-05-13 13:17:25 (GMT)
commit5455d198e07230942a6c8a35927cbf2ac91afa0f (patch)
tree5a849a28a1bcd90fe0a431c5ad654dc4b478e8d0
parent921798aef46a0298ce087f8dccf1f5b9f624512a (diff)
downloadtk-5455d198e07230942a6c8a35927cbf2ac91afa0f.zip
tk-5455d198e07230942a6c8a35927cbf2ac91afa0f.tar.gz
tk-5455d198e07230942a6c8a35927cbf2ac91afa0f.tar.bz2
-activestyle default is underline on windows
-rw-r--r--ChangeLog1
-rw-r--r--tests/listbox.test9
2 files changed, 8 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index ea9571d..8846f59 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,6 @@
2008-05-13 Pat Thoyts <patthoyts@users.sourceforge.net>
+ * tests/listbox.test: -activestyle default is underline on windows.
* tests/winDialog.test: Fixed hanging tk_chooseColor tests.
2008-05-11 Pat Thoyts <patthoyts@users.sourceforge.net>
diff --git a/tests/listbox.test b/tests/listbox.test
index a123363..e291735 100644
--- a/tests/listbox.test
+++ b/tests/listbox.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: listbox.test,v 1.28 2007/12/13 15:27:54 dgp Exp $
+# RCS: @(#) $Id: listbox.test,v 1.29 2008/05/13 13:17:26 patthoyts Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -2131,11 +2131,16 @@ test listbox-28.1 {listbox -activestyle} {
listbox .l -activ non
.l cget -activestyle
} none
-test listbox-28.2 {listbox -activestyle} {
+test listbox-28.2 {listbox -activestyle} {!win} {
destroy .l
listbox .l
.l cget -activestyle
} dotbox
+test listbox-28.2 {listbox -activestyle} {win} {
+ destroy .l
+ listbox .l
+ .l cget -activestyle
+} underline
test listbox-28.3 {listbox -activestyle} {
destroy .l
listbox .l -activestyle und