From b7e384d6d034320a3573364f6201ac43b6d5c984 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Thu, 30 Jun 2022 19:57:58 +0000
Subject: Instrument to understand why panedwindow-23.30 is still failing
 (unstable_tests branch, macOS, xcode).

---
 tests/constraints.tcl  |  5 +++++
 tests/panedwindow.test | 19 ++++++++++++++++++-
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/tests/constraints.tcl b/tests/constraints.tcl
index 2918351..0ad3779 100644
--- a/tests/constraints.tcl
+++ b/tests/constraints.tcl
@@ -257,7 +257,9 @@ namespace eval tk {
 		puts "waitForMap $w: timeout!"
 		puts "  exists state is [winfo exists $w]"
 		catch {puts "  mapping state is [winfo ismapped $w]"}
+		return true
 	    }
+	   return false
 	}
 	proc waitForUnmap {w} {
 	    set count 0
@@ -268,7 +270,10 @@ namespace eval tk {
 	    }
 	    if {$count > 19} {
 		puts "waitForUnmap $w: timeout! mapping state is [winfo ismapped $w]"
+		return true
 	    }
+#	   return false
+		return true
 	}
 
     }
diff --git a/tests/panedwindow.test b/tests/panedwindow.test
index 1fb4f99..9f16d94 100644
--- a/tests/panedwindow.test
+++ b/tests/panedwindow.test
@@ -4942,7 +4942,24 @@ test panedwindow-23.30 {ConfigurePanes, -hide works} -setup {
     pack .p
     waitForMap .p
     waitForMap .f3
-    waitForUnmap .f4
+    if {[waitForUnmap .f4]} {
+        puts "winfo exists .f4:    [winfo exists .f4]"
+        puts "winfo geometry .f4:  [winfo geometry .f4]"
+        puts "winfo x .f4:         [winfo x .f4]"
+        puts "winfo y .f4:         [winfo y .f4]"
+        puts "winfo width .f4:     [winfo width .f4]"
+        puts "winfo height .f4:    [winfo height .f4]"
+        puts "winfo reqwidth .f4:  [winfo reqwidth .f4]"
+        puts "winfo reqheight .f4: [winfo reqheight .f4]"
+        puts "winfo viewable .f4:  [winfo viewable .f4]"
+        puts "winfo rootx .f4:     [winfo rootx .f4]"
+        puts "winfo rooty .f4:     [winfo rooty .f4]"
+        puts "winfo rootx .f3:     [winfo rootx .f3]"
+        puts "winfo rooty .f3:     [winfo rooty .f3]"
+        puts "winfo width .f3:     [winfo width .f3]"
+        puts "winfo height .f3:    [winfo height .f3]"
+        puts ".p configure:        [.p configure]"
+    }
     set result [list]
     lappend result [winfo ismapped .f1] [winfo ismapped .f2] \
             [winfo ismapped .f3] [winfo ismapped .f4]
-- 
cgit v0.12