From b5ddb1a5a80b323a9ff33bc1919b39c9be46d09f Mon Sep 17 00:00:00 2001
From: hobbs <hobbs@noemail.net>
Date: Thu, 8 Aug 2002 01:43:43 +0000
Subject: 	* tests/panedwindow.test: added -text foobar to some test
 buttons 	to enable correct testing of panedwindow across platforms. 
 [Bug #582370]

FossilOrigin-Name: b96bae21b33ed199de4ceed0d91b36135365a4fa
---
 tests/panedwindow.test | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/tests/panedwindow.test b/tests/panedwindow.test
index 1a25487..6185b67 100644
--- a/tests/panedwindow.test
+++ b/tests/panedwindow.test
@@ -6,7 +6,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: panedwindow.test,v 1.3 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: panedwindow.test,v 1.4 2002/08/08 01:43:44 hobbs Exp $
 
 package require tcltest 2.1
 namespace import -force tcltest::configure
@@ -337,7 +337,7 @@ test panedwindow-9.5 {sash dragto subcommand, errors} {
     
 test panedwindow-10.1 {sash mark/sash dragto interaction} {
     panedwindow .p -borderwidth 0 -sashpad 0 -sashwidth 4 -showhandle false
-    .p add [frame .f -width 20 -height 20] [button .c]
+    .p add [frame .f -width 20 -height 20] [button .c -text foobar]
     .p sash mark 0 10 10
     .p sash dragto 0 20 10
     set result [.p sash coord 0]
@@ -347,7 +347,7 @@ test panedwindow-10.1 {sash mark/sash dragto interaction} {
 test panedwindow-10.2 {sash mark/sash dragto interaction} {
     panedwindow .p -borderwidth 0 -sashpad 0 -sashwidth 4 -orient vertical \
             -showhandle false
-    .p add [frame .p.f -width 20 -height 20] [button .p.c]
+    .p add [frame .p.f -width 20 -height 20] [button .p.c -text foobar]
     .p sash mark 0 10 10
     .p sash dragto 0 10 20
     set result [.p sash coord 0]
@@ -423,7 +423,7 @@ test panedwindow-11.8 {sash place subcommand, respects minsize} {
 
 test panedwindow-12.1 {moving sash changes size of pane to left} {
     panedwindow .p -borderwidth 0 -sashpad 0 -sashwidth 4 -showhandle false
-    .p add [frame .f -width 20 -height 20] [button .c] -sticky nsew
+    .p add [frame .f -width 20 -height 20] [button .c -text foobar] -sticky nsew
     .p sash place 0 30 0
     pack .p
     update
@@ -454,7 +454,7 @@ test panedwindow-12.3 {moving sash does not change reqsize of panedwindow} {
 test panedwindow-12.4 {moving sash changes size of pane above} {
     panedwindow .p -showhandle false -borderwidth 0 -sashpad 0 -sashwidth 4 \
             -orient vertical
-    .p add [frame .f -width 20 -height 10] [button .c] -sticky nsew
+    .p add [frame .f -width 20 -height 10] [button .c -text foobar] -sticky nsew
     .p sash place 0 0 20
     pack .p
     update
-- 
cgit v0.12