# unsupported.tcl --

#

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

    variable PrivateCommands 

    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

	tkDarken			::tk::Darken

	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

	tkFocusOK			::tk::FocusOK

	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

	tkListbox			::tk::Listbox

	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

	tkMbEnter			::tk::MbEnter

	tkMbLeave			::tk::MbLeave

	tkMbMotion			::tk::MbMotion

	tkMbPost			::tk::MbPost

	tkMenuButtonDown		::tk::MenuButtonDown

	tkMenuDownArrow			::tk::MenuDownArrow

	tkMenuDup			::tk::MenuDup

	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

	histNum			::tk::HistNum

	stub_location		::tk::mac::Stub_location

	tkFocusIn		::tk::FocusIn

	tkFocusOut		::tk::FocusOut

	tkPalette		::tk::Palette

	tkPriv			::tk::Priv

	tkPrivMsgBox		::tk::PrivMsgBox

    }

}

# ::tk::unsupported::ExposePrivateCommand --

#

#	Expose one of Tk's private commands to be visible under its

#	old global name

#

# Arguments:

#	cmd	Global name by which the command was once known,

#               or a glob-style pattern.

#

# Results:

#	None.

#

# Side effects:

#	The old command name in the global namespace is aliased to the

#	new private name.

proc ::tk::unsupported::ExposePrivateCommand {cmd} {

    variable PrivateCommands

    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

#	old global name

#

# Arguments:

#	var	Global name by which the variable was once known,

#               or a glob-style pattern.

#

# Results:

#	None.

#

# Side effects:

#	The old variable name in the global namespace is aliased to the

#	new private name.

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]

    }

}