# Commands provided by Tk without official support. Use them at your
# own risk. They may change or go away without notice.
# RCS: @(#) $Id: unsupported.tcl,v 1.4 2002/07/17 16:51:53 rmax Exp $
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
# ----------------------------------------------------------------------
# Unsupported compatibility interface for folks accessing Tk's private
# commands and variable against recommended usage.
# ----------------------------------------------------------------------
namespace eval ::tk::unsupported {
# Map from the old global names of Tk private commands to their
# new namespace-encapsulated names.
array set PrivateCommands
{
tkButtonAutoInvoke
::tk::ButtonAutoInvoke
tkButtonDown
::tk::ButtonDown
tkButtonEnter
::tk::ButtonEnter
tkButtonInvoke
::tk::ButtonInvoke
tkButtonLeave
::tk::ButtonLeave
tkButtonUp
::tk::ButtonUp
tkCancelRepeat
::tk::CancelRepeat
tkCheckRadioDown
::tk::CheckRadioDown
tkCheckRadioEnter
::tk::CheckRadioEnter
tkCheckRadioInvoke
::tk::CheckRadioInvoke
tkColorDialog
::tk::dialog::color::
tkColorDialog_BuildDialog
::tk::dialog::color::BuildDialog
tkColorDialog_CancelCmd
::tk::dialog::color::CancelCmd
tkColorDialog_Config
::tk::dialog::color::Config
tkColorDialog_CreateSelector
::tk::dialog::color::CreateSelector
tkColorDialog_DrawColorScale
::tk::dialog::color::DrawColorScale
tkColorDialog_EnterColorBar
::tk::dialog::color::EnterColorBar
tkColorDialog_InitValues
::tk::dialog::color::InitValues
tkColorDialog_HandleRGBEntry
::tk::dialog::color::HandleRGBEntry
tkColorDialog_HandleSelEntry
::tk::dialog::color::HandleSelEntry
tkColorDialog_LeaveColorBar
::tk::dialog::color::LeaveColorBar
tkColorDialog_MoveSelector
::tk::dialog::color::MoveSelector
tkColorDialog_OkCmd
::tk::dialog::color::OkCmd
tkColorDialog_RedrawColorBars
::tk::dialog::color::RedrawColorBars
tkColorDialog_RedrawFinalColor
::tk::dialog::color::RedrawFinalColor
tkColorDialog_ReleaseMouse
::tk::dialog::color::ReleaseMouse
tkColorDialog_ResizeColorBars
::tk::dialog::color::ResizeColorBars
tkColorDialog_RgbToX
::tk::dialog::color::RgbToX
tkColorDialog_SetRGBValue
::tk::dialog::color::SetRGBValue
tkColorDialog_StartMove
::tk::dialog::color::StartMove
tkColorDialog_XToRgb
::tk::dialog::color::XToRGB
tkConsoleAbout
::tk::ConsoleAbout
tkConsoleBind
::tk::ConsoleBind
tkConsoleExit
::tk::ConsoleExit
tkConsoleHistory
::tk::ConsoleHistory
tkConsoleInit
::tk::ConsoleInit
tkConsoleInsert
::tk::ConsoleInsert
tkConsoleInvoke
::tk::ConsoleInvoke
tkConsoleOutput
::tk::ConsoleOutput
tkConsolePrompt
::tk::ConsolePrompt
tkConsoleSource
::tk::ConsoleSource
tkEntryAutoScan
::tk::EntryAutoScan
tkEntryBackspace
::tk::EntryBackspace
tkEntryButton1
::tk::EntryButton1
tkEntryClosestGap
::tk::EntryClosestGap
tkEntryGetSelection
::tk::EntryGetSelection
tkEntryInsert
::tk::EntryInsert
tkEntryKeySelect
::tk::EntryKeySelect
tkEntryMouseSelect
::tk::EntryMouseSelect
tkEntryNextWord
::tk::EntryNextWord
tkEntryPaste
::tk::EntryPaste
tkEntryPreviousWord
::tk::EntryPreviousWord
tkEntrySeeInsert
::tk::EntrySeeInsert
tkEntrySetCursor
::tk::EntrySetCursor
tkEntryTranspose
::tk::EntryTranspose
tkEventMotifBindings
::tk::EventMotifBindings
tkFDGetFileTypes
::tk::FDGetFileTypes
tkFirstMenu
::tk::FirstMenu
tkFocusGroup_BindIn
::tk::FocusGroup_BindIn
tkFocusGroup_BindOut
::tk::FocusGroup_BindOut
tkFocusGroup_Create
::tk::FocusGroup_Create
tkFocusGroup_Destroy
::tk::FocusGroup_Destroy
tkFocusGroup_In
::tk::FocusGroup_In
tkFocusGroup_Out
::tk::FocusGroup_Out
tkGenerateMenuSelect
::tk::GenerateMenuSelect
tkIconList
::tk::IconList
tkIconList_Add
::tk::IconList_Add
tkIconList_Arrange
::tk::IconList_Arrange
tkIconList_AutoScan
::tk::IconList_AutoScan
tkIconList_Btn1
::tk::IconList_Btn1
tkIconList_Config
::tk::IconList_Config
tkIconList_Create
::tk::IconList_Create
tkIconList_CtrlBtn1
::tk::IconList_CtrlBtn1
tkIconList_Curselection
::tk::IconList_Curselection
tkIconList_DeleteAll
::tk::IconList_DeleteAll
tkIconList_Double1
::tk::IconList_Double1
tkIconList_DrawSelection
::tk::IconList_DrawSelection
tkIconList_FocusIn
::tk::IconList_FocusIn
tkIconList_FocusOut
::tk::IconList_FocusOut
tkIconList_Get
::tk::IconList_Get
tkIconList_Goto
::tk::IconList_Goto
tkIconList_Index
::tk::IconList_Index
tkIconList_Invoke
::tk::IconList_Invoke
tkIconList_KeyPress
::tk::IconList_KeyPress
tkIconList_Leave1
::tk::IconList_Leave1
tkIconList_LeftRight
::tk::IconList_LeftRight
tkIconList_Motion1
::tk::IconList_Motion1
tkIconList_Reset
::tk::IconList_Reset
tkIconList_ReturnKey
::tk::IconList_ReturnKey
tkIconList_See
::tk::IconList_See
tkIconList_Select
::tk::IconList_Select
tkIconList_Selection
::tk::IconList_Selection
tkIconList_ShiftBtn1
::tk::IconList_ShiftBtn1
tkIconList_UpDown
::tk::IconList_UpDown
tkListboxAutoScan
::tk::ListboxAutoScan
tkListboxBeginExtend
::tk::ListboxBeginExtend
tkListboxBeginSelect
::tk::ListboxBeginSelect
tkListboxBeginToggle
::tk::ListboxBeginToggle
tkListboxCancel
::tk::ListboxCancel
tkListboxDataExtend
::tk::ListboxDataExtend
tkListboxExtendUpDown
::tk::ListboxExtendUpDown
tkListboxKeyAccel_Goto
::tk::ListboxKeyAccel_Goto
tkListboxKeyAccel_Key
::tk::ListboxKeyAccel_Key
tkListboxKeyAccel_Reset
::tk::ListboxKeyAccel_Reset
tkListboxKeyAccel_Set
::tk::ListboxKeyAccel_Set
tkListboxKeyAccel_Unset
::tk::ListboxKeyAccel_Unxet
tkListboxMotion
::tk::ListboxMotion
tkListboxSelectAll
::tk::ListboxSelectAll
tkListboxUpDown
::tk::ListboxUpDown
tkListboxBeginToggle
::tk::ListboxBeginToggle
tkMbButtonUp
::tk::MbButtonUp
tkMbMotion
::tk::MbMotion
tkMenuButtonDown
::tk::MenuButtonDown
tkMenuDownArrow
::tk::MenuDownArrow
tkMenuEscape
::tk::MenuEscape
tkMenuFind
::tk::MenuFind
tkMenuFindName
::tk::MenuFindName
tkMenuFirstEntry
::tk::MenuFirstEntry
tkMenuInvoke
::tk::MenuInvoke
tkMenuLeave
::tk::MenuLeave
tkMenuLeftArrow
::tk::MenuLeftArrow
tkMenuMotion
::tk::MenuMotion
tkMenuNextEntry
::tk::MenuNextEntry
tkMenuNextMenu
::tk::MenuNextMenu
tkMenuRightArrow
::tk::MenuRightArrow
tkMenuUnpost
::tk::MenuUnpost
tkMenuUpArrow
::tk::MenuUpArrow
tkMessageBox
::tk::MessageBox
tkMotifFDialog
::tk::MotifFDialog
tkMotifFDialog_ActivateDList
::tk::MotifFDialog_ActivateDList
tkMotifFDialog_ActivateFList
::tk::MotifFDialog_ActivateFList
tkMotifFDialog_ActivateFEnt
::tk::MotifFDialog_ActivateFEnt
tkMotifFDialog_ActivateSEnt
::tk::MotifFDialog_ActivateSEnt
tkMotifFDialog
::tk::MotifFDialog
tkMotifFDialog_BrowseDList
::tk::MotifFDialog_BrowseDList
tkMotifFDialog_BrowseFList
::tk::MotifFDialog_BrowseFList
tkMotifFDialog_BuildUI
::tk::MotifFDialog_BuildUI
tkMotifFDialog_CancelCmd
::tk::MotifFDialog_CancelCmd
tkMotifFDialog_Config
::tk::MotifFDialog_Config
tkMotifFDialog_Create
::tk::MotifFDialog_Create
tkMotifFDialog_FileTypes
::tk::MotifFDialog_FileTypes
tkMotifFDialog_FilterCmd
::tk::MotifFDialog_FilterCmd
tkMotifFDialog_InterpFilter
::tk::MotifFDialog_InterpFilter
tkMotifFDialog_LoadFiles
::tk::MotifFDialog_LoadFiles
tkMotifFDialog_MakeSList
::tk::MotifFDialog_MakeSList
tkMotifFDialog_OkCmd
::tk::MotifFDialog_OkCmd
tkMotifFDialog_SetFilter
::tk::MotifFDialog_SetFilter
tkMotifFDialog_SetListMode
::tk::MotifFDialog_SetListMode
tkMotifFDialog_Update
::tk::MotifFDialog_Update
tkPostOverPoint
::tk::PostOverPoint
tkRecolorTree
::tk::RecolorTree
tkRestoreOldGrab
::tk::RestoreOldGrab
tkSaveGrabInfo
::tk::SaveGrabInfo
tkScaleActivate
::tk::ScaleActivate
tkScaleButtonDown
::tk::ScaleButtonDown
tkScaleButton2Down
::tk::ScaleButton2Down
tkScaleControlPress
::tk::ScaleControlPress
tkScaleDrag
::tk::ScaleDrag
tkScaleEndDrag
::tk::ScaleEndDrag
tkScaleIncrement
::tk::ScaleIncrement
tkScreenChanged
::tk::ScreenChanged
tkScrollButtonDown
::tk::ScrollButtonDown
tkScrollButton2Down
::tk::ScrollButton2Down
tkScrollButtonDrag
::tk::ScrollButtonDrag
tkScrollButtonUp
::tk::ScrollButtonUp
tkScrollByPages
::tk::ScrollByPages
tkScrollByUnits
::tk::ScrollByUnits
tkScrollEndDrag
::tk::ScrollEndDrag
tkScrollSelect
::tk::ScrollSelect
tkScrollStartDrag
::tk::ScrollStartDrag
tkScrollTopBottom
::tk::ScrollTopBottom
tkScrollToPos
::tk::ScrollToPos
tkTabToWindow
::tk::TabToWindow
tkTearOffMenu
::tk::TearOffMenu
tkTextAutoScan
::tk::TextAutoScan
tkTextButton1
::tk::TextButton1
tkTextClosestGap
::tk::TextClosestGap
tkTextInsert
::tk::TextInsert
tkTextKeyExtend
::tk::TextKeyExtend
tkTextKeySelect
::tk::TextKeySelect
tkTextNextPara
::tk::TextNextPara
tkTextNextPos
::tk::TextNextPos
tkTextNextWord
::tk::TextNextWord
tkTextPaste
::tk::TextPaste
tkTextPrevPara
::tk::TextPrevPara
tkTextPrevPos
::tk::TextPrevPos
tkTextPrevWord
::tk::TextPrevWord
tkTextResetAnchor
::tk::TextResetAnchor
tkTextScrollPages
::tk::TextScrollPages
tkTextSelectTo
::tk::TextSelectTo
tkTextSetCursor
::tk::TextSetCursor
tkTextTranspose
::tk::TextTranspose
tkTextUpDownLine
::tk::TextUpDownLine
tkTraverseToMenu
::tk::TraverseToMenu
tkTraverseWithinMenu
::tk::TraverseWithinMenu
unsupported1
::tk::unsupported::MacWindowStyle
# Map from the old global names of Tk private variable to their
# new namespace-encapsulated names.
variable PrivateVariables
array set PrivateVariables
{
droped_to_start
::tk::mac::Droped_to_start
stub_location
::tk::mac::Stub_location
tkFocusOut
::tk::FocusOut
tkPrivMsgBox
::tk::PrivMsgBox
# ::tk::unsupported::ExposePrivateCommand --
# Expose one of Tk's private commands to be visible under its
# cmd Global name by which the command was once known,
# or a glob-style pattern.
# The old command name in the global namespace is aliased to the
proc ::tk::unsupported::ExposePrivateCommand {cmd
} {
set cmds
[array get PrivateCommands
$cmd]
if {[llength $cmds] == 0} {
return -code error "No compatibility support for \[$cmd]"
foreach {old new
} $cmds {
namespace eval :: [list interp alias
{} $old {}] $new
# ::tk::unsupported::ExposePrivateVariable --
# Expose one of Tk's private variables to be visible under its
# var Global name by which the variable was once known,
# or a glob-style pattern.
# The old variable name in the global namespace is aliased to the
proc ::tk::unsupported::ExposePrivateVariable {var
} {
variable PrivateVariables
set vars
[array get PrivateVariables
$var]
if {[llength $vars] == 0} {
return -code error "No compatibility support for \$$var"
namespace eval ::tk::mac {}
foreach {old new
} $vars {
namespace eval :: [list upvar "#0" $new $old]