diff options
| author | hobbs <hobbs> | 1999-11-30 00:02:20 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 1999-11-30 00:02:20 (GMT) |
| commit | fa508cfba7a6de9a8d9be3365346817c2f7ffb77 (patch) | |
| tree | 828e4536f96a4f099689e5e77d13260fccfe6936 /tests/clrpick.test | |
| parent | 0c44d9f04d5692595e2366ea5122981663358f4b (diff) | |
| download | tk-fa508cfba7a6de9a8d9be3365346817c2f7ffb77.zip tk-fa508cfba7a6de9a8d9be3365346817c2f7ffb77.tar.gz tk-fa508cfba7a6de9a8d9be3365346817c2f7ffb77.tar.bz2 | |
minor whitespace cleanup
Diffstat (limited to 'tests/clrpick.test')
| -rw-r--r-- | tests/clrpick.test | 21 |
1 files changed, 4 insertions, 17 deletions
diff --git a/tests/clrpick.test b/tests/clrpick.test index db101b8..e06d67d 100644 --- a/tests/clrpick.test +++ b/tests/clrpick.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: clrpick.test,v 1.3 1999/04/16 01:51:35 stanton Exp $ +# RCS: @(#) $Id: clrpick.test,v 1.4 1999/11/30 00:02:20 hobbs Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -174,7 +174,7 @@ test clrpick-2.1 {tk_chooseColor command} \ tk_chooseColor -title "Press Ok $verylongstring" -initialcolor $color \ -parent $parent } "$color" - + set color #808040 test clrpick-2.2 {tk_chooseColor command} \ {nonUnixUserInteraction colorsLeftover} { @@ -186,13 +186,13 @@ test clrpick-2.2 {tk_chooseColor command} \ ToChooseColorByKey $parent 128 128 64 tk_chooseColor -parent $parent -title "choose $colors" } "$color" - + test clrpick-2.3 {tk_chooseColor command} \ {nonUnixUserInteraction colorsLeftover} { ToPressButton $parent ok tk_chooseColor -parent $parent -title "Press OK" } "$color" - + test clrpick-2.4 {tk_chooseColor command} {nonUnixUserInteraction} { ToPressButton $parent cancel tk_chooseColor -parent $parent -title "Press Cancel" @@ -213,16 +213,3 @@ test clrpick-3.2 {tk_chooseColor: background events} {nonUnixUserInteraction} { # cleanup ::tcltest::cleanupTests return - - - - - - - - - - - - - |