From fa508cfba7a6de9a8d9be3365346817c2f7ffb77 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 30 Nov 1999 00:02:20 +0000
Subject: minor whitespace cleanup

---
 tests/clrpick.test | 21 ++++-----------------
 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
-
-
-
-
-
-
-
-
-
-
-
-
-
-- 
cgit v0.12