From 5f3ad44447241b09dab870b83c9abda867097862 Mon Sep 17 00:00:00 2001
From: griffin <briang42@easystreet.net>
Date: Mon, 6 Feb 2023 02:24:12 +0000
Subject: Fix for Ticket [c936def7d38]. Filter out Indicator images generated
 and used by checkbutton and radiobutton widgets.

---
 tests/constraints.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/constraints.tcl b/tests/constraints.tcl
index 92b23a3..8a5717b 100644
--- a/tests/constraints.tcl
+++ b/tests/constraints.tcl
@@ -148,7 +148,7 @@ namespace eval tk {
         proc imageInit {} {
             variable ImageNames
             if {![info exists ImageNames]} {
-                set ImageNames [lsort [image names]]
+                set ImageNames [lsearch -all -inline -glob -not [lsort [image names]] ::tk::icons::indicator*]
             }
             imageCleanup
             if {[lsort [image names]] ne $ImageNames} {
@@ -157,7 +157,8 @@ namespace eval tk {
         }
         proc imageFinish {} {
             variable ImageNames
-            if {[lsort [image names]] ne $ImageNames} {
+	    set imgs [lsearch -all -inline -glob -not [lsort [image names]] ::tk::icons::indicator*]
+            if {$imgs ne $ImageNames} {
                 return -code error "images remaining: [image names] != $ImageNames"
             }
             imageCleanup
@@ -397,4 +398,3 @@ namespace import -force tcltest::cleanupTests
 deleteWindows
 wm geometry . {}
 raise .
-
-- 
cgit v0.12