From b166c166e76a0d2ec5d49f94b6fba90385eabab2 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 18 Aug 2025 13:56:44 +0000
Subject: Assume that - one day - MacOS 26.5 will be there

---
 library/platform/platform.tcl | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/library/platform/platform.tcl b/library/platform/platform.tcl
index b142ed1..8e97b94 100644
--- a/library/platform/platform.tcl
+++ b/library/platform/platform.tcl
@@ -366,6 +366,17 @@ proc ::platform::patterns {id} {
 		    foreach {major minor} [split $v .] break
 
 		    set res {}
+		    if {$major gt 26} {
+			# Add x.0 to x.minor to patterns.
+			for {set j $minor} {$j >= 0} {incr j -1} {
+			    lappend res macosx${major}.${j}-${cpu}
+			    foreach a $alt {
+				lappend res macosx${major}.${j}-$a
+			    }
+			}
+			incr major -1
+			set minor 5; # Assume that (major-1).5 will be there one day. 
+		    }
 		    if {$major eq 26} {
 			# Add 26.0 to 26.minor to patterns.
 			for {set j $minor} {$j >= 0} {incr j -1} {
-- 
cgit v0.12