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

  1. Index: apps/tkchat/tkchat.vfs/bin/tkchat_console.tcl
  2. ==================================================================
  3. --- apps/tkchat/tkchat.vfs/bin/tkchat_console.tcl
  4. +++ apps/tkchat/tkchat.vfs/bin/tkchat_console.tcl
  5. @@ -164,16 +164,18 @@
  6. # Evaluate the Tk library script console.tcl in the console interpreter
  7. ########################################################################
  8. $consoleInterp eval source [list [file join $tk_library console.tcl]]
  9. $consoleInterp eval {
  10. if {![llength [info commands ::tkConsoleExit]]} {
  11. - tk::unsupported::ExposePrivateCommand tkConsoleExit
  12. + #tk::unsupported::ExposePrivateCommand tkConsoleExit
  13. + interp alias {} ::tkConsoleExit {} ::tk::ConsoleExit
  14. }
  15. }
  16. $consoleInterp eval {
  17. if {![llength [info commands ::tkConsoleOutput]]} {
  18. - tk::unsupported::ExposePrivateCommand tkConsoleOutput
  19. + #tk::unsupported::ExposePrivateCommand tkConsoleOutput
  20. + interp alias {} ::tkConsoleOutput {} ::tk::ConsoleOutput
  21. }
  22. }
  23. # Restore normal [puts] if console widget goes away...
  24. proc ::Oc_RestorePuts {slave} {
  25. rename ::puts {}
  26.  
  27.