From 5455d198e07230942a6c8a35927cbf2ac91afa0f Mon Sep 17 00:00:00 2001 From: patthoyts Date: Tue, 13 May 2008 13:17:25 +0000 Subject: -activestyle default is underline on windows --- ChangeLog | 1 + tests/listbox.test | 9 +++++++-- 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 + * tests/listbox.test: -activestyle default is underline on windows. * tests/winDialog.test: Fixed hanging tk_chooseColor tests. 2008-05-11 Pat Thoyts 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 -- cgit v0.12