From 77f2c1e62ab0760dc6ee615d6bbcb81b11d76a6f Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Fri, 10 Sep 2004 06:58:41 +0000
Subject: bulletproof 23.2 result [Bug #1019100]

---
 ChangeLog              | 2 ++
 tests/panedwindow.test | 6 +++---
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 5460b20..365d3b6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-09-09  Jeff Hobbs  <jeffh@ActiveState.com>
 
+	* tests/panedwindow.test: bulletproof 23.2 result [Bug #1019100]
+
 	* win/tkWinWm.c (ReadIconFromFile): when using SHGetFileInfo to
 	retrieve icon, get regular icon as well for correct Alt-Tab icon.
 
diff --git a/tests/panedwindow.test b/tests/panedwindow.test
index f746719..1ca995d 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.14 2004/05/23 17:34:49 dkf Exp $
+# RCS: @(#) $Id: panedwindow.test,v 1.15 2004/09/10 06:58:42 hobbs Exp $
 
 package require tcltest 2.1
 eval tcltest::configure $argv
@@ -1911,8 +1911,8 @@ test panedwindow-23.2 {PanedWindowReqProc, react to slave geometry changes} {
     .f1 configure -width 20
     lappend result [winfo reqwidth .p]
     destroy .p .f1 .f2
-    set result
-} {32 42}
+    expr {[lindex $result 1] - [lindex $result 0]}
+} {10}
 
 
 test panedwindow-24.1 {ConfigurePanes, can't add panedwindow to itself} {
-- 
cgit v0.12