From 8fd391391c964a2848342bce3439290ce4f73e28 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sat, 23 Mar 2024 22:01:48 +0000
Subject: Update genStubs.tcl, making it usable for Tcl 9 as well

---
 tools/genStubs.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl
index 28138e2..3c99645 100644
--- a/tools/genStubs.tcl
+++ b/tools/genStubs.tcl
@@ -822,9 +822,9 @@ proc genStubs::forAllStubs {name slotProc onAll textVar
 			# TkIntStubs entry 113 for aqua is in fact at position
 			# 114 in the table, entry 114 at position 116 etc).
 			eval {append temp} $skipString
-			set temp "[string range $temp 0 end-1] /*\
+			set temp "# if TCL_MAJOR_VERSION < 9\n[string range $temp 0 end-1] /*\
 				Dummy entry for stubs table backwards\
-				compatibility */\n"
+				compatibility */\n# endif /* TCL_MAJOR_VERSION < 9 */\n"
 		    }
 		    if {$slot($plat)} {
 			append temp [$slotProc $name $stubs($name,$plat,$i) $i]
-- 
cgit v0.12