HACK tkcon.tcl to get it running

RTimothyEdwards · Oct 21, 2024 · 918b445 · 918b445
1 parent 99921a9
commit 918b445
Showing 1 changed file with 8 additions and 8 deletions.
diff --git 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
 #