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.
# 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
#