diff options
author | patthoyts@users.sourceforge.net <patthoyts> | 2008-11-12 22:43:25 (GMT) |
---|---|---|
committer | patthoyts@users.sourceforge.net <patthoyts> | 2008-11-12 22:43:25 (GMT) |
commit | c5677938ded79b8fd2d5a02a717ef16b9ec7ef9b (patch) | |
tree | a3747eea844696e78e092f24d64bc4abbf1d605a /tests/listbox.test | |
parent | 62ab5e5ca570b95c56d8ef51ead3501a8995fb56 (diff) | |
download | tk-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.test | 9 |
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 |