diff options
| -rw-r--r-- | tests/clrpick.test | 21 | ||||
| -rw-r--r-- | tests/filebox.test | 25 |
2 files changed, 8 insertions, 38 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 - - - - - - - - - - - - - diff --git a/tests/filebox.test b/tests/filebox.test index 8e848ca..5aa2050 100644 --- a/tests/filebox.test +++ b/tests/filebox.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: filebox.test,v 1.7 1999/11/12 23:55:16 wart Exp $ +# RCS: @(#) $Id: filebox.test,v 1.8 1999/11/30 00:02:20 hobbs Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -275,14 +275,10 @@ foreach mode $modes { } $pathName } - # - # The rest of the tests need to be executed on Unix only. The test whether - # the dialog box widgets were implemented correctly. These tests are not + # The rest of the tests need to be executed on Unix only. + # The test whether the dialog box widgets were implemented correctly. + # These tests are not # needed on the other platforms because they use native file dialogs. - # - - - # end inner if } @@ -295,16 +291,3 @@ set tk_strictMotif $tk_strictMotif_old # cleanup ::tcltest::cleanupTests return - - - - - - - - - - - - - |