summaryrefslogtreecommitdiffstats
path: root/tests/listbox.test
diff options
context:
space:
mode:
authorpatthoyts@users.sourceforge.net <patthoyts>2008-11-12 22:43:25 (GMT)
committerpatthoyts@users.sourceforge.net <patthoyts>2008-11-12 22:43:25 (GMT)
commitc5677938ded79b8fd2d5a02a717ef16b9ec7ef9b (patch)
treea3747eea844696e78e092f24d64bc4abbf1d605a /tests/listbox.test
parent62ab5e5ca570b95c56d8ef51ead3501a8995fb56 (diff)
downloadtk-c5677938ded79b8fd2d5a02a717ef16b9ec7ef9b.zip
tk-c5677938ded79b8fd2d5a02a717ef16b9ec7ef9b.tar.gz
tk-c5677938ded79b8fd2d5a02a717ef16b9ec7ef9b.tar.bz2
backported listbox test fix from head - the default activestyle on windows is 'underline'
Diffstat (limited to 'tests/listbox.test')
-rw-r--r--tests/listbox.test9
1 files changed, 7 insertions, 2 deletions
diff --git a/tests/listbox.test b/tests/listbox.test
index 339c62d..d7b7da0 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.2.1 2008/10/09 21:20:45 dgp Exp $
+# RCS: @(#) $Id: listbox.test,v 1.28.2.2 2008/11/12 22:43:25 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-nonwin {listbox -activestyle} {nonwin} {
destroy .l
listbox .l
.l cget -activestyle
} dotbox
+test listbox-28.2-win {listbox -activestyle} {win} {
+ destroy .l
+ listbox .l
+ .l cget -activestyle
+} underline
test listbox-28.3 {listbox -activestyle} {
destroy .l
listbox .l -activestyle und