Posted to tcl by emiliano at Fri Dec 29 19:27:47 GMT 2023view pretty

Index: apps/tkchat/tkchat.vfs/bin/tkchat_console.tcl
==================================================================
--- apps/tkchat/tkchat.vfs/bin/tkchat_console.tcl
+++ apps/tkchat/tkchat.vfs/bin/tkchat_console.tcl
@@ -164,16 +164,18 @@
         # Evaluate the Tk library script console.tcl in the console interpreter
         ########################################################################
         $consoleInterp eval source [list [file join $tk_library console.tcl]]
         $consoleInterp eval {
             if {![llength [info commands ::tkConsoleExit]]} {
-                tk::unsupported::ExposePrivateCommand tkConsoleExit
+                #tk::unsupported::ExposePrivateCommand tkConsoleExit
+                interp alias {} ::tkConsoleExit {} ::tk::ConsoleExit
             }
         }
         $consoleInterp eval {
             if {![llength [info commands ::tkConsoleOutput]]} {
-                tk::unsupported::ExposePrivateCommand tkConsoleOutput
+                #tk::unsupported::ExposePrivateCommand tkConsoleOutput
+                interp alias {} ::tkConsoleOutput {} ::tk::ConsoleOutput
             }
         }
         # Restore normal [puts] if console widget goes away...
         proc ::Oc_RestorePuts {slave} {
             rename ::puts {}