Commit | Line | Data |
---|---|---|
920dae64 AT |
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.4 2002/07/17 16:51:53 rmax 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 | } |