From 918b445578b01a85367933d8f7de2431bedfbc03 Mon Sep 17 00:00:00 2001
From: "Darryl L. Miles" <darryl.miles@darrylmiles.org>
Date: Mon, 21 Oct 2024 09:30:16 +0100
Subject: [PATCH] HACK tkcon.tcl to get it running

---
 tcltk/tkcon.tcl | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/tcltk/tkcon.tcl b/tcltk/tkcon.tcl
index 3e76fa6e..8c9e67f2 100755
--- a/tcltk/tkcon.tcl
+++ b/tcltk/tkcon.tcl
@@ -64,14 +64,14 @@ catch {unset pkg file name version}
 # Tk 8.4 makes previously exposed stuff private.
 # FIX: Update tkcon to not rely on the private Tk code.
 #
-if {![llength [info globals tkPriv]]} {
-    ::tk::unsupported::ExposePrivateVariable tkPriv
-}
-foreach cmd {SetCursor UpDownLine Transpose ScrollPages} {
-    if {![llength [info commands tkText$cmd]]} {
-        ::tk::unsupported::ExposePrivateCommand tkText$cmd
-    }
-}
+#if {![llength [info globals tkPriv]]} {
+#    ::tk::unsupported::ExposePrivateVariable tkPriv
+#}
+#foreach cmd {SetCursor UpDownLine Transpose ScrollPages} {
+#    if {![llength [info commands tkText$cmd]]} {
+#        ::tk::unsupported::ExposePrivateCommand tkText$cmd
+#    }
+#}
 
 # Initialize the ::tkcon namespace
 #