mingw/lib/tk8.5/unsupported.tcl

   1 # unsupported.tcl --
   2 #
   3 # Commands provided by Tk without official support.  Use them at your
   4 # own risk.  They may change or go away without notice.
   5 #
   6 # RCS: @(#) $Id: unsupported.tcl,v 1.5 2005/11/25 15:58:15 dkf Exp $
   7 #
   8 # See the file "license.terms" for information on usage and redistribution
   9 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  10
  11 # ----------------------------------------------------------------------
  12 # Unsupported compatibility interface for folks accessing Tk's private
  13 # commands and variable against recommended usage.
  14 # ----------------------------------------------------------------------
  15
  16 namespace eval ::tk::unsupported {
  17
  18     # Map from the old global names of Tk private commands to their
  19     # new namespace-encapsulated names.
  20
  21     variable PrivateCommands
  22     array set PrivateCommands {
  23         tkButtonAutoInvoke              ::tk::ButtonAutoInvoke
  24         tkButtonDown                    ::tk::ButtonDown
  25         tkButtonEnter                   ::tk::ButtonEnter
  26         tkButtonInvoke                  ::tk::ButtonInvoke
  27         tkButtonLeave                   ::tk::ButtonLeave
  28         tkButtonUp                      ::tk::ButtonUp
  29         tkCancelRepeat                  ::tk::CancelRepeat
  30         tkCheckRadioDown                ::tk::CheckRadioDown
  31         tkCheckRadioEnter               ::tk::CheckRadioEnter
  32         tkCheckRadioInvoke              ::tk::CheckRadioInvoke
  33         tkColorDialog                   ::tk::dialog::color::
  34         tkColorDialog_BuildDialog       ::tk::dialog::color::BuildDialog
  35         tkColorDialog_CancelCmd         ::tk::dialog::color::CancelCmd
  36         tkColorDialog_Config            ::tk::dialog::color::Config
  37         tkColorDialog_CreateSelector    ::tk::dialog::color::CreateSelector
  38         tkColorDialog_DrawColorScale    ::tk::dialog::color::DrawColorScale
  39         tkColorDialog_EnterColorBar     ::tk::dialog::color::EnterColorBar
  40         tkColorDialog_InitValues        ::tk::dialog::color::InitValues
  41         tkColorDialog_HandleRGBEntry    ::tk::dialog::color::HandleRGBEntry
  42         tkColorDialog_HandleSelEntry    ::tk::dialog::color::HandleSelEntry
  43         tkColorDialog_LeaveColorBar     ::tk::dialog::color::LeaveColorBar
  44         tkColorDialog_MoveSelector      ::tk::dialog::color::MoveSelector
  45         tkColorDialog_OkCmd             ::tk::dialog::color::OkCmd
  46         tkColorDialog_RedrawColorBars   ::tk::dialog::color::RedrawColorBars
  47         tkColorDialog_RedrawFinalColor  ::tk::dialog::color::RedrawFinalColor
  48         tkColorDialog_ReleaseMouse      ::tk::dialog::color::ReleaseMouse
  49         tkColorDialog_ResizeColorBars   ::tk::dialog::color::ResizeColorBars
  50         tkColorDialog_RgbToX            ::tk::dialog::color::RgbToX
  51         tkColorDialog_SetRGBValue       ::tk::dialog::color::SetRGBValue
  52         tkColorDialog_StartMove         ::tk::dialog::color::StartMove
  53         tkColorDialog_XToRgb            ::tk::dialog::color::XToRGB
  54         tkConsoleAbout                  ::tk::ConsoleAbout
  55         tkConsoleBind                   ::tk::ConsoleBind
  56         tkConsoleExit                   ::tk::ConsoleExit
  57         tkConsoleHistory                ::tk::ConsoleHistory
  58         tkConsoleInit                   ::tk::ConsoleInit
  59         tkConsoleInsert                 ::tk::ConsoleInsert
  60         tkConsoleInvoke                 ::tk::ConsoleInvoke
  61         tkConsoleOutput                 ::tk::ConsoleOutput
  62         tkConsolePrompt                 ::tk::ConsolePrompt
  63         tkConsoleSource                 ::tk::ConsoleSource
  64         tkDarken                        ::tk::Darken
  65         tkEntryAutoScan                 ::tk::EntryAutoScan
  66         tkEntryBackspace                ::tk::EntryBackspace
  67         tkEntryButton1                  ::tk::EntryButton1
  68         tkEntryClosestGap               ::tk::EntryClosestGap
  69         tkEntryGetSelection             ::tk::EntryGetSelection
  70         tkEntryInsert                   ::tk::EntryInsert
  71         tkEntryKeySelect                ::tk::EntryKeySelect
  72         tkEntryMouseSelect              ::tk::EntryMouseSelect
  73         tkEntryNextWord                 ::tk::EntryNextWord
  74         tkEntryPaste                    ::tk::EntryPaste
  75         tkEntryPreviousWord             ::tk::EntryPreviousWord
  76         tkEntrySeeInsert                ::tk::EntrySeeInsert
  77         tkEntrySetCursor                ::tk::EntrySetCursor
  78         tkEntryTranspose                ::tk::EntryTranspose
  79         tkEventMotifBindings            ::tk::EventMotifBindings
  80         tkFDGetFileTypes                ::tk::FDGetFileTypes
  81         tkFirstMenu                     ::tk::FirstMenu
  82         tkFocusGroup_BindIn             ::tk::FocusGroup_BindIn
  83         tkFocusGroup_BindOut            ::tk::FocusGroup_BindOut
  84         tkFocusGroup_Create             ::tk::FocusGroup_Create
  85         tkFocusGroup_Destroy            ::tk::FocusGroup_Destroy
  86         tkFocusGroup_In                 ::tk::FocusGroup_In
  87         tkFocusGroup_Out                ::tk::FocusGroup_Out
  88         tkFocusOK                       ::tk::FocusOK
  89         tkGenerateMenuSelect            ::tk::GenerateMenuSelect
  90         tkIconList                      ::tk::IconList
  91         tkIconList_Add                  ::tk::IconList_Add
  92         tkIconList_Arrange              ::tk::IconList_Arrange
  93         tkIconList_AutoScan             ::tk::IconList_AutoScan
  94         tkIconList_Btn1                 ::tk::IconList_Btn1
  95         tkIconList_Config               ::tk::IconList_Config
  96         tkIconList_Create               ::tk::IconList_Create
  97         tkIconList_CtrlBtn1             ::tk::IconList_CtrlBtn1
  98         tkIconList_Curselection         ::tk::IconList_CurSelection
  99         tkIconList_DeleteAll            ::tk::IconList_DeleteAll
 100         tkIconList_Double1              ::tk::IconList_Double1
 101         tkIconList_DrawSelection        ::tk::IconList_DrawSelection
 102         tkIconList_FocusIn              ::tk::IconList_FocusIn
 103         tkIconList_FocusOut             ::tk::IconList_FocusOut
 104         tkIconList_Get                  ::tk::IconList_Get
 105         tkIconList_Goto                 ::tk::IconList_Goto
 106         tkIconList_Index                ::tk::IconList_Index
 107         tkIconList_Invoke               ::tk::IconList_Invoke
 108         tkIconList_KeyPress             ::tk::IconList_KeyPress
 109         tkIconList_Leave1               ::tk::IconList_Leave1
 110         tkIconList_LeftRight            ::tk::IconList_LeftRight
 111         tkIconList_Motion1              ::tk::IconList_Motion1
 112         tkIconList_Reset                ::tk::IconList_Reset
 113         tkIconList_ReturnKey            ::tk::IconList_ReturnKey
 114         tkIconList_See                  ::tk::IconList_See
 115         tkIconList_Select               ::tk::IconList_Select
 116         tkIconList_Selection            ::tk::IconList_Selection
 117         tkIconList_ShiftBtn1            ::tk::IconList_ShiftBtn1
 118         tkIconList_UpDown               ::tk::IconList_UpDown
 119         tkListbox                       ::tk::Listbox
 120         tkListboxAutoScan               ::tk::ListboxAutoScan
 121         tkListboxBeginExtend            ::tk::ListboxBeginExtend
 122         tkListboxBeginSelect            ::tk::ListboxBeginSelect
 123         tkListboxBeginToggle            ::tk::ListboxBeginToggle
 124         tkListboxCancel                 ::tk::ListboxCancel
 125         tkListboxDataExtend             ::tk::ListboxDataExtend
 126         tkListboxExtendUpDown           ::tk::ListboxExtendUpDown
 127         tkListboxKeyAccel_Goto          ::tk::ListboxKeyAccel_Goto
 128         tkListboxKeyAccel_Key           ::tk::ListboxKeyAccel_Key
 129         tkListboxKeyAccel_Reset         ::tk::ListboxKeyAccel_Reset
 130         tkListboxKeyAccel_Set           ::tk::ListboxKeyAccel_Set
 131         tkListboxKeyAccel_Unset         ::tk::ListboxKeyAccel_Unxet
 132         tkListboxMotion                 ::tk::ListboxMotion
 133         tkListboxSelectAll              ::tk::ListboxSelectAll
 134         tkListboxUpDown                 ::tk::ListboxUpDown
 135         tkListboxBeginToggle            ::tk::ListboxBeginToggle
 136         tkMbButtonUp                    ::tk::MbButtonUp
 137         tkMbEnter                       ::tk::MbEnter
 138         tkMbLeave                       ::tk::MbLeave
 139         tkMbMotion                      ::tk::MbMotion
 140         tkMbPost                        ::tk::MbPost
 141         tkMenuButtonDown                ::tk::MenuButtonDown
 142         tkMenuDownArrow                 ::tk::MenuDownArrow
 143         tkMenuDup                       ::tk::MenuDup
 144         tkMenuEscape                    ::tk::MenuEscape
 145         tkMenuFind                      ::tk::MenuFind
 146         tkMenuFindName                  ::tk::MenuFindName
 147         tkMenuFirstEntry                ::tk::MenuFirstEntry
 148         tkMenuInvoke                    ::tk::MenuInvoke
 149         tkMenuLeave                     ::tk::MenuLeave
 150         tkMenuLeftArrow                 ::tk::MenuLeftArrow
 151         tkMenuMotion                    ::tk::MenuMotion
 152         tkMenuNextEntry                 ::tk::MenuNextEntry
 153         tkMenuNextMenu                  ::tk::MenuNextMenu
 154         tkMenuRightArrow                ::tk::MenuRightArrow
 155         tkMenuUnpost                    ::tk::MenuUnpost
 156         tkMenuUpArrow                   ::tk::MenuUpArrow
 157         tkMessageBox                    ::tk::MessageBox
 158         tkMotifFDialog                  ::tk::MotifFDialog
 159         tkMotifFDialog_ActivateDList    ::tk::MotifFDialog_ActivateDList
 160         tkMotifFDialog_ActivateFList    ::tk::MotifFDialog_ActivateFList
 161         tkMotifFDialog_ActivateFEnt     ::tk::MotifFDialog_ActivateFEnt
 162         tkMotifFDialog_ActivateSEnt     ::tk::MotifFDialog_ActivateSEnt
 163         tkMotifFDialog                  ::tk::MotifFDialog
 164         tkMotifFDialog_BrowseDList      ::tk::MotifFDialog_BrowseDList
 165         tkMotifFDialog_BrowseFList      ::tk::MotifFDialog_BrowseFList
 166         tkMotifFDialog_BuildUI          ::tk::MotifFDialog_BuildUI
 167         tkMotifFDialog_CancelCmd        ::tk::MotifFDialog_CancelCmd
 168         tkMotifFDialog_Config           ::tk::MotifFDialog_Config
 169         tkMotifFDialog_Create           ::tk::MotifFDialog_Create
 170         tkMotifFDialog_FileTypes        ::tk::MotifFDialog_FileTypes
 171         tkMotifFDialog_FilterCmd        ::tk::MotifFDialog_FilterCmd
 172         tkMotifFDialog_InterpFilter     ::tk::MotifFDialog_InterpFilter
 173         tkMotifFDialog_LoadFiles        ::tk::MotifFDialog_LoadFiles
 174         tkMotifFDialog_MakeSList        ::tk::MotifFDialog_MakeSList
 175         tkMotifFDialog_OkCmd            ::tk::MotifFDialog_OkCmd
 176         tkMotifFDialog_SetFilter        ::tk::MotifFDialog_SetFilter
 177         tkMotifFDialog_SetListMode      ::tk::MotifFDialog_SetListMode
 178         tkMotifFDialog_Update           ::tk::MotifFDialog_Update
 179         tkPostOverPoint                 ::tk::PostOverPoint
 180         tkRecolorTree                   ::tk::RecolorTree
 181         tkRestoreOldGrab                ::tk::RestoreOldGrab
 182         tkSaveGrabInfo                  ::tk::SaveGrabInfo
 183         tkScaleActivate                 ::tk::ScaleActivate
 184         tkScaleButtonDown               ::tk::ScaleButtonDown
 185         tkScaleButton2Down              ::tk::ScaleButton2Down
 186         tkScaleControlPress             ::tk::ScaleControlPress
 187         tkScaleDrag                     ::tk::ScaleDrag
 188         tkScaleEndDrag                  ::tk::ScaleEndDrag
 189         tkScaleIncrement                ::tk::ScaleIncrement
 190         tkScreenChanged                 ::tk::ScreenChanged
 191         tkScrollButtonDown              ::tk::ScrollButtonDown
 192         tkScrollButton2Down             ::tk::ScrollButton2Down
 193         tkScrollButtonDrag              ::tk::ScrollButtonDrag
 194         tkScrollButtonUp                ::tk::ScrollButtonUp
 195         tkScrollByPages                 ::tk::ScrollByPages
 196         tkScrollByUnits                 ::tk::ScrollByUnits
 197         tkScrollEndDrag                 ::tk::ScrollEndDrag
 198         tkScrollSelect                  ::tk::ScrollSelect
 199         tkScrollStartDrag               ::tk::ScrollStartDrag
 200         tkScrollTopBottom               ::tk::ScrollTopBottom
 201         tkScrollToPos                   ::tk::ScrollToPos
 202         tkTabToWindow                   ::tk::TabToWindow
 203         tkTearOffMenu                   ::tk::TearOffMenu
 204         tkTextAutoScan                  ::tk::TextAutoScan
 205         tkTextButton1                   ::tk::TextButton1
 206         tkTextClosestGap                ::tk::TextClosestGap
 207         tkTextInsert                    ::tk::TextInsert
 208         tkTextKeyExtend                 ::tk::TextKeyExtend
 209         tkTextKeySelect                 ::tk::TextKeySelect
 210         tkTextNextPara                  ::tk::TextNextPara
 211         tkTextNextPos                   ::tk::TextNextPos
 212         tkTextNextWord                  ::tk::TextNextWord
 213         tkTextPaste                     ::tk::TextPaste
 214         tkTextPrevPara                  ::tk::TextPrevPara
 215         tkTextPrevPos                   ::tk::TextPrevPos
 216         tkTextPrevWord                  ::tk::TextPrevWord
 217         tkTextResetAnchor               ::tk::TextResetAnchor
 218         tkTextScrollPages               ::tk::TextScrollPages
 219         tkTextSelectTo                  ::tk::TextSelectTo
 220         tkTextSetCursor                 ::tk::TextSetCursor
 221         tkTextTranspose                 ::tk::TextTranspose
 222         tkTextUpDownLine                ::tk::TextUpDownLine
 223         tkTraverseToMenu                ::tk::TraverseToMenu
 224         tkTraverseWithinMenu            ::tk::TraverseWithinMenu
 225         unsupported1                    ::tk::unsupported::MacWindowStyle
 226     }
 227
 228     # Map from the old global names of Tk private variable to their
 229     # new namespace-encapsulated names.
 230
 231     variable PrivateVariables
 232     array set PrivateVariables {
 233         droped_to_start         ::tk::mac::Droped_to_start
 234         histNum                 ::tk::HistNum
 235         stub_location           ::tk::mac::Stub_location
 236         tkFocusIn               ::tk::FocusIn
 237         tkFocusOut              ::tk::FocusOut
 238         tkPalette               ::tk::Palette
 239         tkPriv                  ::tk::Priv
 240         tkPrivMsgBox            ::tk::PrivMsgBox
 241     }
 242 }
 243
 244 # ::tk::unsupported::ExposePrivateCommand --
 245 #
 246 #       Expose one of Tk's private commands to be visible under its
 247 #       old global name
 248 #
 249 # Arguments:
 250 #       cmd     Global name by which the command was once known,
 251 #               or a glob-style pattern.
 252 #
 253 # Results:
 254 #       None.
 255 #
 256 # Side effects:
 257 #       The old command name in the global namespace is aliased to the
 258 #       new private name.
 259
 260 proc ::tk::unsupported::ExposePrivateCommand {cmd} {
 261     variable PrivateCommands
 262     set cmds [array get PrivateCommands $cmd]
 263     if {[llength $cmds] == 0} {
 264         return -code error "No compatibility support for \[$cmd]"
 265     }
 266     foreach {old new} $cmds {
 267         namespace eval :: [list interp alias {} $old {}] $new
 268     }
 269 }
 270
 271 # ::tk::unsupported::ExposePrivateVariable --
 272 #
 273 #       Expose one of Tk's private variables to be visible under its
 274 #       old global name
 275 #
 276 # Arguments:
 277 #       var     Global name by which the variable was once known,
 278 #               or a glob-style pattern.
 279 #
 280 # Results:
 281 #       None.
 282 #
 283 # Side effects:
 284 #       The old variable name in the global namespace is aliased to the
 285 #       new private name.
 286
 287 proc ::tk::unsupported::ExposePrivateVariable {var} {
 288     variable PrivateVariables
 289     set vars [array get PrivateVariables $var]
 290     if {[llength $vars] == 0} {
 291         return -code error "No compatibility support for \$$var"
 292     }
 293     namespace eval ::tk::mac {}
 294     foreach {old new} $vars {
 295         namespace eval :: [list upvar "#0" $new $old]
 296     }
 297 }