From 1716b75825ac782b3290dc72a1cfc7cb82100f4a Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 1 Jul 2024 12:25:11 +0000
Subject: [PATCH] Disable entry-3.24 testcase on XQuartz. See: [36e379c01b],
 which is now visible in GITHUB.

---
 tests/entry.test | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/entry.test b/tests/entry.test
index 145410499..30f19b464 100644
--- a/tests/entry.test
+++ b/tests/entry.test
@@ -11,6 +11,8 @@ namespace import ::tcltest::*
 eval tcltest::configure $argv
 tcltest::loadTestedCommands
 
+testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
+
 # For xscrollcommand
 set scrollInfo {}
 proc scroll args {
@@ -891,7 +893,7 @@ test entry-3.23 {EntryWidgetCmd procedure, "delete" widget command} -setup {
 } -cleanup {
     destroy .e
 } -result 0123457890
-test entry-3.24 {EntryWidgetCmd procedure, "delete" widget command} -setup {
+test entry-3.24 {EntryWidgetCmd procedure, "delete" widget command} -constraints failsOnXQuarz -setup {
     entry .e
     pack .e ; update idletasks
     update