summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/clrpick.test21
-rw-r--r--tests/filebox.test25
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
-
-
-
-
-
-
-
-
-
-
-
-
-