luke
/
magic
mirror of https://github.com/RTimothyEdwards/magic.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

HACK tkcon.tcl to get it running

This commit is contained in:
Darryl L. Miles 2024-10-21 09:30:16 +01:00 committed by Tim Edwards
parent c2a5a84a03
commit 76a515ca25
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tcltk/tkcon.tcl
View File

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