blob: 72171c34f2981adeb22ca36b6572367f1746a054 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
|
# 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]
}
}
|
