summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/site/lib/auto
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-03-10 21:56:14 +0000
committerKarl Berry <karl@freefriends.org>2019-03-10 21:56:14 +0000
commite0a2a718e89f9700d627f1e6a8eea8f21d2fbeb8 (patch)
tree39972f65008b0d70f306a5f976494d29411bc41e /Master/tlpkg/tlperl/site/lib/auto
parentb206fdc77d81ed1600949062f08de5690a4bf66f (diff)
tl19 perl 5.28.1 for Windows, from Siep
git-svn-id: svn://tug.org/texlive/trunk@50322 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/auto')
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Cpanel/JSON/XS/.packlist12
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Cpanel/JSON/XS/XS.dllbin82944 -> 83456 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Date/Parse/.packlist74
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Digest/SHA1/.packlist4
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Digest/SHA1/SHA1.dllbin26112 -> 24064 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Encode/Locale/.packlist2
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Encode/compat/.packlist8
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/File/Listing/.packlist2
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/File/Which/.packlist2
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/HTML/Parser/.packlist16
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/HTML/Parser/Parser.dllbin54784 -> 52736 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/HTML/Tagset/.packlist2
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/HTTP/Cookies/.packlist6
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/HTTP/Daemon/.packlist2
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/HTTP/Date/.packlist2
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/HTTP/Message/.packlist20
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/HTTP/Negotiate/.packlist2
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/IO/HTML/.packlist2
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/IO/String/.packlist2
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/JSON/MaybeXS/.packlist2
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/LWP/MediaTypes/.packlist4
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Math/Int64/.packlist10
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Math/Int64/Int64.dllbin73216 -> 70656 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Mozilla/CA/.packlist6
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Net/HTTP/.packlist8
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Socket/.packlist4
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Socket/Socket.dllbin43008 -> 40448 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Test/Fatal/.packlist2
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Test/Needs/.packlist2
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Test/RequiresInternet/.packlist2
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/.packlist645
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/CancelRepeat.al15
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/Canvas/Canvas.dllbin204800 -> 0 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Clipboard/autosplit.ix6
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Clipboard/getSelected.al15
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/Compound/Compound.dllbin30208 -> 0 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/DirSelect/.packlist1
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dllbin20480 -> 0 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/EnterFocus.al27
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/Entry/Entry.dllbin52736 -> 0 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Error.al20
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/Event/Event.dllbin65024 -> 0 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/FirstMenu.al21
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/FocusChildren.al35
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/FocusOK.al36
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/AddScrollbars.al52
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/FindMenu.al22
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/autosplit.ix24
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/freeze_on_map.al18
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/label.al24
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/labelPack.al50
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/labelVariable.al27
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/packscrollbars.al86
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/queuePack.al18
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/sbset.al15
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/scrollbars.al24
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/HList/HList.dllbin68096 -> 0 bytes
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/IO/IO.dllbin18432 -> 0 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/ImageNames.al13
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/ImageTypes.al13
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/JPEG/JPEG.dllbin144384 -> 0 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/AutoScan.al49
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/BeginExtend.al34
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/BeginSelect.al46
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/BeginToggle.al40
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/ButtonRelease_1.al16
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/CLEAR.al16
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cancel.al42
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cntrl_End.al19
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cntrl_Home.al19
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cntrl_backslash.al19
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/DELETE.al19
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/DataExtend.al39
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/EXISTS.al16
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/EXTEND.al16
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/ExtendUpDown.al36
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/FETCH.al56
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/FETCHSIZE.al16
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Listbox.dllbin40448 -> 0 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Motion.al77
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/POP.al19
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/PUSH.al13
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SHIFT.al19
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SPLICE.al84
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/STORE.al80
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SelectAll.al32
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SetList.al16
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/TIEARRAY.al15
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/TIESCALAR.al15
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/UNSHIFT.al16
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/UpDown.al41
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/autosplit.ix56
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/clipboardPaste.al21
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/deleteSelected.al18
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/getSelected.al24
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/xyIndex.al29
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/Menubutton/Menubutton.dllbin30720 -> 0 bytes
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/NBFrame/NBFrame.dllbin31232 -> 0 bytes
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/PNG/PNG.dllbin242688 -> 0 bytes
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/Pixmap/Pixmap.dllbin35840 -> 0 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Receive.al23
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/RepeatId.al16
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Activate.al33
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/ButtonDown.al40
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/ButtonUp.al16
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/ControlPress.al31
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Drag.al29
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/EndDrag.al23
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Enter.al19
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Increment.al61
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Leave.al15
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/Scale/Scale.dllbin34304 -> 0 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/autosplit.ix22
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ButtonDown.al55
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ButtonUp.al26
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Drag.al43
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/EndDrag.al28
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Enter.al21
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Leave.al18
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Motion.al15
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlByPages.al38
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlByUnits.al37
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlToPos.al35
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlTopBottom.al32
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Scrollbar.dllbin31232 -> 0 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Select.al59
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/StartDrag.al38
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/autosplit.ix30
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Selection.al18
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/TList/TList.dllbin40448 -> 0 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Table/Create.al17
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Table/Posn.al15
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Table/autosplit.ix14
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Table/see.al46
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Table/totalColumns.al13
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Table/totalRows.al13
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/Text/Text.dllbin132096 -> 0 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Text/autosplit.ix3
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/TextEdit/autosplit.ix3
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/TextUndo/autosplit.ix3
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/TixGrid/TixGrid.dllbin87552 -> 0 bytes
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/Tk.dllbin937472 -> 0 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_BindIn.al19
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_BindOut.al20
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_Create.al56
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_Destroy.al29
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_In.al24
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_Out.al32
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/autosplit.ix10
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/TraverseToMenu.al27
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/ASkludge.al30
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/AltKeyInDialog.al20
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/AmpWidget.al36
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/FindAltKeyTarget.al38
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/MasterMenu.al14
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/RestoreFocusGrab.al59
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/SetAmpText.al19
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/SetFocusGrab.al38
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/UnderlineAmpersand.al29
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/autosplit.ix27
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/bindDump.al87
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/clipboardKeysyms.al51
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/pathname.al15
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/AnchorAdjust.al17
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/FullScreen.al29
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/Popup.al50
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/Post.al20
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/autosplit.ix14
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/iconposition.al24
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/X/X.dllbin35840 -> 0 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/X/autosplit.ix3
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Tk/Xlib/Xlib.dllbin35840 -> 0 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/autosplit.ix49
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/break.al13
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/focusFollowsMouse.al14
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/focusNext.al18
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/focusPrev.al28
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/getEncoding.al43
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/getNextFocus.al44
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/getPrevFocus.al54
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/interps.al14
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/lsearch.al19
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/pTk/extralibs.ld1
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/tabFocus.al13
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Tk/updateWidgets.al17
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Try/Tiny/.packlist2
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/URI/.packlist106
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/WWW/RobotRules/.packlist4
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Win32/API/.packlist14
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Win32/API/API.dllbin33792 -> 31744 bytes
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Win32/API/Callback/Callback.dllbin28160 -> 25600 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Win32/Console/.packlist4
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Win32/Console/Console.dllbin51712 -> 50176 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Win32/OLE/.packlist22
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Win32/OLE/OLE.dllbin137728 -> 135680 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Win32/Shortcut/.packlist4
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Win32/Shortcut/Shortcut.dllbin54784 -> 52224 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Win32/TieRegistry/.packlist4
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/Win32API/Registry/.packlist6
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/auto/Win32API/Registry/Registry.dllbin168448 -> 157184 bytes
-rw-r--r--Master/tlpkg/tlperl/site/lib/auto/libwww/perl/.packlist66
201 files changed, 215 insertions, 4607 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Cpanel/JSON/XS/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Cpanel/JSON/XS/.packlist
index 593f334bc1a..9cb00193a55 100755
--- a/Master/tlpkg/tlperl/site/lib/auto/Cpanel/JSON/XS/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Cpanel/JSON/XS/.packlist
@@ -1,6 +1,6 @@
-C:\tlperl526\bin\cpanel_json_xs
-C:\tlperl526\bin\cpanel_json_xs.bat
-C:\tlperl526\site\lib\Cpanel\JSON\XS.pm
-C:\tlperl526\site\lib\Cpanel\JSON\XS\Boolean.pm
-C:\tlperl526\site\lib\Cpanel\JSON\XS\Type.pm
-C:\tlperl526\site\lib\auto\Cpanel\JSON\XS\XS.dll
+C:\tlperl\bin\cpanel_json_xs
+C:\tlperl\bin\cpanel_json_xs.bat
+C:\tlperl\site\lib\Cpanel\JSON\XS.pm
+C:\tlperl\site\lib\Cpanel\JSON\XS\Boolean.pm
+C:\tlperl\site\lib\Cpanel\JSON\XS\Type.pm
+C:\tlperl\site\lib\auto\Cpanel\JSON\XS\XS.dll
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Cpanel/JSON/XS/XS.dll b/Master/tlpkg/tlperl/site/lib/auto/Cpanel/JSON/XS/XS.dll
index 8b7acb53851..90c4962b77a 100755
--- a/Master/tlpkg/tlperl/site/lib/auto/Cpanel/JSON/XS/XS.dll
+++ b/Master/tlpkg/tlperl/site/lib/auto/Cpanel/JSON/XS/XS.dll
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Date/Parse/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Date/Parse/.packlist
index f6cf37a197b..5e66e1a6615 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Date/Parse/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Date/Parse/.packlist
@@ -1,37 +1,37 @@
-C:\tlperl526\site\lib\Date\Format.pm
-C:\tlperl526\site\lib\Date\Language.pm
-C:\tlperl526\site\lib\Date\Language\Afar.pm
-C:\tlperl526\site\lib\Date\Language\Amharic.pm
-C:\tlperl526\site\lib\Date\Language\Austrian.pm
-C:\tlperl526\site\lib\Date\Language\Brazilian.pm
-C:\tlperl526\site\lib\Date\Language\Bulgarian.pm
-C:\tlperl526\site\lib\Date\Language\Chinese.pm
-C:\tlperl526\site\lib\Date\Language\Chinese_GB.pm
-C:\tlperl526\site\lib\Date\Language\Czech.pm
-C:\tlperl526\site\lib\Date\Language\Danish.pm
-C:\tlperl526\site\lib\Date\Language\Dutch.pm
-C:\tlperl526\site\lib\Date\Language\English.pm
-C:\tlperl526\site\lib\Date\Language\Finnish.pm
-C:\tlperl526\site\lib\Date\Language\French.pm
-C:\tlperl526\site\lib\Date\Language\Gedeo.pm
-C:\tlperl526\site\lib\Date\Language\German.pm
-C:\tlperl526\site\lib\Date\Language\Greek.pm
-C:\tlperl526\site\lib\Date\Language\Hungarian.pm
-C:\tlperl526\site\lib\Date\Language\Icelandic.pm
-C:\tlperl526\site\lib\Date\Language\Italian.pm
-C:\tlperl526\site\lib\Date\Language\Norwegian.pm
-C:\tlperl526\site\lib\Date\Language\Oromo.pm
-C:\tlperl526\site\lib\Date\Language\Romanian.pm
-C:\tlperl526\site\lib\Date\Language\Russian.pm
-C:\tlperl526\site\lib\Date\Language\Russian_cp1251.pm
-C:\tlperl526\site\lib\Date\Language\Russian_koi8r.pm
-C:\tlperl526\site\lib\Date\Language\Sidama.pm
-C:\tlperl526\site\lib\Date\Language\Somali.pm
-C:\tlperl526\site\lib\Date\Language\Spanish.pm
-C:\tlperl526\site\lib\Date\Language\Swedish.pm
-C:\tlperl526\site\lib\Date\Language\Tigrinya.pm
-C:\tlperl526\site\lib\Date\Language\TigrinyaEritrean.pm
-C:\tlperl526\site\lib\Date\Language\TigrinyaEthiopian.pm
-C:\tlperl526\site\lib\Date\Language\Turkish.pm
-C:\tlperl526\site\lib\Date\Parse.pm
-C:\tlperl526\site\lib\Time\Zone.pm
+C:\tlperl\site\lib\Date\Format.pm
+C:\tlperl\site\lib\Date\Language.pm
+C:\tlperl\site\lib\Date\Language\Afar.pm
+C:\tlperl\site\lib\Date\Language\Amharic.pm
+C:\tlperl\site\lib\Date\Language\Austrian.pm
+C:\tlperl\site\lib\Date\Language\Brazilian.pm
+C:\tlperl\site\lib\Date\Language\Bulgarian.pm
+C:\tlperl\site\lib\Date\Language\Chinese.pm
+C:\tlperl\site\lib\Date\Language\Chinese_GB.pm
+C:\tlperl\site\lib\Date\Language\Czech.pm
+C:\tlperl\site\lib\Date\Language\Danish.pm
+C:\tlperl\site\lib\Date\Language\Dutch.pm
+C:\tlperl\site\lib\Date\Language\English.pm
+C:\tlperl\site\lib\Date\Language\Finnish.pm
+C:\tlperl\site\lib\Date\Language\French.pm
+C:\tlperl\site\lib\Date\Language\Gedeo.pm
+C:\tlperl\site\lib\Date\Language\German.pm
+C:\tlperl\site\lib\Date\Language\Greek.pm
+C:\tlperl\site\lib\Date\Language\Hungarian.pm
+C:\tlperl\site\lib\Date\Language\Icelandic.pm
+C:\tlperl\site\lib\Date\Language\Italian.pm
+C:\tlperl\site\lib\Date\Language\Norwegian.pm
+C:\tlperl\site\lib\Date\Language\Oromo.pm
+C:\tlperl\site\lib\Date\Language\Romanian.pm
+C:\tlperl\site\lib\Date\Language\Russian.pm
+C:\tlperl\site\lib\Date\Language\Russian_cp1251.pm
+C:\tlperl\site\lib\Date\Language\Russian_koi8r.pm
+C:\tlperl\site\lib\Date\Language\Sidama.pm
+C:\tlperl\site\lib\Date\Language\Somali.pm
+C:\tlperl\site\lib\Date\Language\Spanish.pm
+C:\tlperl\site\lib\Date\Language\Swedish.pm
+C:\tlperl\site\lib\Date\Language\Tigrinya.pm
+C:\tlperl\site\lib\Date\Language\TigrinyaEritrean.pm
+C:\tlperl\site\lib\Date\Language\TigrinyaEthiopian.pm
+C:\tlperl\site\lib\Date\Language\Turkish.pm
+C:\tlperl\site\lib\Date\Parse.pm
+C:\tlperl\site\lib\Time\Zone.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Digest/SHA1/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Digest/SHA1/.packlist
index 51511a0523b..45cf93670f0 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Digest/SHA1/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Digest/SHA1/.packlist
@@ -1,2 +1,2 @@
-C:\tlperl526\site\lib\Digest\SHA1.pm
-C:\tlperl526\site\lib\auto\Digest\SHA1\SHA1.dll
+C:\tlperl\site\lib\Digest\SHA1.pm
+C:\tlperl\site\lib\auto\Digest\SHA1\SHA1.dll
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Digest/SHA1/SHA1.dll b/Master/tlpkg/tlperl/site/lib/auto/Digest/SHA1/SHA1.dll
index ae674565775..6c5491ba86c 100755
--- a/Master/tlpkg/tlperl/site/lib/auto/Digest/SHA1/SHA1.dll
+++ b/Master/tlpkg/tlperl/site/lib/auto/Digest/SHA1/SHA1.dll
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Encode/Locale/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Encode/Locale/.packlist
index 85a292d73fa..fca67c3c703 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Encode/Locale/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Encode/Locale/.packlist
@@ -1 +1 @@
-C:\tlperl526\site\lib\Encode\Locale.pm
+C:\tlperl\site\lib\Encode\Locale.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Encode/compat/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Encode/compat/.packlist
index e166fbd0d85..d4a2e08bb74 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Encode/compat/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Encode/compat/.packlist
@@ -1,4 +1,4 @@
-C:\tlperl526\site\lib\Encode\compat.pm
-C:\tlperl526\site\lib\Encode\compat\5006001.pm
-C:\tlperl526\site\lib\Encode\compat\Alias.pm
-C:\tlperl526\site\lib\Encode\compat\common.pm
+C:\tlperl\site\lib\Encode\compat.pm
+C:\tlperl\site\lib\Encode\compat\5006001.pm
+C:\tlperl\site\lib\Encode\compat\Alias.pm
+C:\tlperl\site\lib\Encode\compat\common.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/File/Listing/.packlist b/Master/tlpkg/tlperl/site/lib/auto/File/Listing/.packlist
index e5d5275c93b..0d31ba57a1f 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/File/Listing/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/File/Listing/.packlist
@@ -1 +1 @@
-C:\tlperl526\site\lib\File\Listing.pm
+C:\tlperl\site\lib\File\Listing.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/File/Which/.packlist b/Master/tlpkg/tlperl/site/lib/auto/File/Which/.packlist
index b23af3d246b..3ba10e7c5e4 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/File/Which/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/File/Which/.packlist
@@ -1 +1 @@
-C:\tlperl526\site\lib\File\Which.pm
+C:\tlperl\site\lib\File\Which.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/HTML/Parser/.packlist b/Master/tlpkg/tlperl/site/lib/auto/HTML/Parser/.packlist
index 1a017c7808f..6ce7b6a07a9 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/HTML/Parser/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/HTML/Parser/.packlist
@@ -1,8 +1,8 @@
-C:\tlperl526\site\lib\HTML\Entities.pm
-C:\tlperl526\site\lib\HTML\Filter.pm
-C:\tlperl526\site\lib\HTML\HeadParser.pm
-C:\tlperl526\site\lib\HTML\LinkExtor.pm
-C:\tlperl526\site\lib\HTML\Parser.pm
-C:\tlperl526\site\lib\HTML\PullParser.pm
-C:\tlperl526\site\lib\HTML\TokeParser.pm
-C:\tlperl526\site\lib\auto\HTML\Parser\Parser.dll
+C:\tlperl\site\lib\HTML\Entities.pm
+C:\tlperl\site\lib\HTML\Filter.pm
+C:\tlperl\site\lib\HTML\HeadParser.pm
+C:\tlperl\site\lib\HTML\LinkExtor.pm
+C:\tlperl\site\lib\HTML\Parser.pm
+C:\tlperl\site\lib\HTML\PullParser.pm
+C:\tlperl\site\lib\HTML\TokeParser.pm
+C:\tlperl\site\lib\auto\HTML\Parser\Parser.dll
diff --git a/Master/tlpkg/tlperl/site/lib/auto/HTML/Parser/Parser.dll b/Master/tlpkg/tlperl/site/lib/auto/HTML/Parser/Parser.dll
index 3684545322b..a2f658366ca 100755
--- a/Master/tlpkg/tlperl/site/lib/auto/HTML/Parser/Parser.dll
+++ b/Master/tlpkg/tlperl/site/lib/auto/HTML/Parser/Parser.dll
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/HTML/Tagset/.packlist b/Master/tlpkg/tlperl/site/lib/auto/HTML/Tagset/.packlist
index 3ae37c67991..b0836c2d778 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/HTML/Tagset/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/HTML/Tagset/.packlist
@@ -1 +1 @@
-C:\tlperl526\site\lib\HTML\Tagset.pm
+C:\tlperl\site\lib\HTML\Tagset.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/HTTP/Cookies/.packlist b/Master/tlpkg/tlperl/site/lib/auto/HTTP/Cookies/.packlist
index be4bc19f2bd..c1f0a862133 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/HTTP/Cookies/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/HTTP/Cookies/.packlist
@@ -1,3 +1,3 @@
-C:\tlperl526\site\lib\HTTP\Cookies.pm
-C:\tlperl526\site\lib\HTTP\Cookies\Microsoft.pm
-C:\tlperl526\site\lib\HTTP\Cookies\Netscape.pm
+C:\tlperl\site\lib\HTTP\Cookies.pm
+C:\tlperl\site\lib\HTTP\Cookies\Microsoft.pm
+C:\tlperl\site\lib\HTTP\Cookies\Netscape.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/HTTP/Daemon/.packlist b/Master/tlpkg/tlperl/site/lib/auto/HTTP/Daemon/.packlist
index 23d299ddaba..20fe206daaa 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/HTTP/Daemon/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/HTTP/Daemon/.packlist
@@ -1 +1 @@
-C:\tlperl526\site\lib\HTTP\Daemon.pm
+C:\tlperl\site\lib\HTTP\Daemon.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/HTTP/Date/.packlist b/Master/tlpkg/tlperl/site/lib/auto/HTTP/Date/.packlist
index 330bcc3a5bb..8a98075d656 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/HTTP/Date/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/HTTP/Date/.packlist
@@ -1 +1 @@
-C:\tlperl526\site\lib\HTTP\Date.pm
+C:\tlperl\site\lib\HTTP\Date.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/HTTP/Message/.packlist b/Master/tlpkg/tlperl/site/lib/auto/HTTP/Message/.packlist
index 2692fdd9bd8..80f40bf932d 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/HTTP/Message/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/HTTP/Message/.packlist
@@ -1,10 +1,10 @@
-C:\tlperl526\site\lib\HTTP\Config.pm
-C:\tlperl526\site\lib\HTTP\Headers.pm
-C:\tlperl526\site\lib\HTTP\Headers\Auth.pm
-C:\tlperl526\site\lib\HTTP\Headers\ETag.pm
-C:\tlperl526\site\lib\HTTP\Headers\Util.pm
-C:\tlperl526\site\lib\HTTP\Message.pm
-C:\tlperl526\site\lib\HTTP\Request.pm
-C:\tlperl526\site\lib\HTTP\Request\Common.pm
-C:\tlperl526\site\lib\HTTP\Response.pm
-C:\tlperl526\site\lib\HTTP\Status.pm
+C:\tlperl\site\lib\HTTP\Config.pm
+C:\tlperl\site\lib\HTTP\Headers.pm
+C:\tlperl\site\lib\HTTP\Headers\Auth.pm
+C:\tlperl\site\lib\HTTP\Headers\ETag.pm
+C:\tlperl\site\lib\HTTP\Headers\Util.pm
+C:\tlperl\site\lib\HTTP\Message.pm
+C:\tlperl\site\lib\HTTP\Request.pm
+C:\tlperl\site\lib\HTTP\Request\Common.pm
+C:\tlperl\site\lib\HTTP\Response.pm
+C:\tlperl\site\lib\HTTP\Status.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/HTTP/Negotiate/.packlist b/Master/tlpkg/tlperl/site/lib/auto/HTTP/Negotiate/.packlist
index be79540d3d5..9d7d8f27c96 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/HTTP/Negotiate/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/HTTP/Negotiate/.packlist
@@ -1 +1 @@
-C:\tlperl526\site\lib\HTTP\Negotiate.pm
+C:\tlperl\site\lib\HTTP\Negotiate.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/IO/HTML/.packlist b/Master/tlpkg/tlperl/site/lib/auto/IO/HTML/.packlist
index 48c2f1abf39..6cb34ec6af1 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/IO/HTML/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/IO/HTML/.packlist
@@ -1 +1 @@
-C:\tlperl526\site\lib\IO\HTML.pm
+C:\tlperl\site\lib\IO\HTML.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/IO/String/.packlist b/Master/tlpkg/tlperl/site/lib/auto/IO/String/.packlist
index 8b552c38689..301a4c1067d 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/IO/String/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/IO/String/.packlist
@@ -1 +1 @@
-C:\tlperl526\site\lib\IO\String.pm
+C:\tlperl\site\lib\IO\String.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/JSON/MaybeXS/.packlist b/Master/tlpkg/tlperl/site/lib/auto/JSON/MaybeXS/.packlist
index 0c59eeb1248..255fd5c433b 100755
--- a/Master/tlpkg/tlperl/site/lib/auto/JSON/MaybeXS/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/JSON/MaybeXS/.packlist
@@ -1 +1 @@
-C:\tlperl526\site\lib\JSON\MaybeXS.pm
+C:\tlperl\site\lib\JSON\MaybeXS.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/LWP/MediaTypes/.packlist b/Master/tlpkg/tlperl/site/lib/auto/LWP/MediaTypes/.packlist
index a37eb82a5a2..ad241200dcf 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/LWP/MediaTypes/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/LWP/MediaTypes/.packlist
@@ -1,2 +1,2 @@
-C:\tlperl526\site\lib\LWP\MediaTypes.pm
-C:\tlperl526\site\lib\LWP\media.types
+C:\tlperl\site\lib\LWP\MediaTypes.pm
+C:\tlperl\site\lib\LWP\media.types
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Math/Int64/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Math/Int64/.packlist
index fcabca98f26..5c97b8b3279 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Math/Int64/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Math/Int64/.packlist
@@ -1,5 +1,5 @@
-C:\tlperl526\site\lib\Math\Int64.pm
-C:\tlperl526\site\lib\Math\Int64\die_on_overflow.pm
-C:\tlperl526\site\lib\Math\Int64\native_if_available.pm
-C:\tlperl526\site\lib\Math\UInt64.pm
-C:\tlperl526\site\lib\auto\Math\Int64\Int64.dll
+C:\tlperl\site\lib\Math\Int64.pm
+C:\tlperl\site\lib\Math\Int64\die_on_overflow.pm
+C:\tlperl\site\lib\Math\Int64\native_if_available.pm
+C:\tlperl\site\lib\Math\UInt64.pm
+C:\tlperl\site\lib\auto\Math\Int64\Int64.dll
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Math/Int64/Int64.dll b/Master/tlpkg/tlperl/site/lib/auto/Math/Int64/Int64.dll
index 6e4b16bd979..8856f379aa8 100755
--- a/Master/tlpkg/tlperl/site/lib/auto/Math/Int64/Int64.dll
+++ b/Master/tlpkg/tlperl/site/lib/auto/Math/Int64/Int64.dll
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Mozilla/CA/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Mozilla/CA/.packlist
index a0e6c90db30..a91ad79eaec 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Mozilla/CA/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Mozilla/CA/.packlist
@@ -1,3 +1,3 @@
-C:\tlperl526\site\lib\Mozilla\CA.pm
-C:\tlperl526\site\lib\Mozilla\CA\cacert.pem
-C:\tlperl526\site\lib\Mozilla\mk-ca-bundle.pl
+C:\tlperl\site\lib\Mozilla\CA.pm
+C:\tlperl\site\lib\Mozilla\CA\cacert.pem
+C:\tlperl\site\lib\Mozilla\mk-ca-bundle.pl
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Net/HTTP/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Net/HTTP/.packlist
index 9c3a3338a2c..e71697e4233 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Net/HTTP/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Net/HTTP/.packlist
@@ -1,4 +1,4 @@
-C:\tlperl526\site\lib\Net\HTTP.pm
-C:\tlperl526\site\lib\Net\HTTPS.pm
-C:\tlperl526\site\lib\Net\HTTP\Methods.pm
-C:\tlperl526\site\lib\Net\HTTP\NB.pm
+C:\tlperl\site\lib\Net\HTTP.pm
+C:\tlperl\site\lib\Net\HTTPS.pm
+C:\tlperl\site\lib\Net\HTTP\Methods.pm
+C:\tlperl\site\lib\Net\HTTP\NB.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Socket/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Socket/.packlist
index f097d1671a7..87d1fe32b26 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Socket/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Socket/.packlist
@@ -1,2 +1,2 @@
-C:\tlperl526\site\lib\Socket.pm
-C:\tlperl526\site\lib\auto\Socket\Socket.dll
+C:\tlperl\site\lib\Socket.pm
+C:\tlperl\site\lib\auto\Socket\Socket.dll
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Socket/Socket.dll b/Master/tlpkg/tlperl/site/lib/auto/Socket/Socket.dll
index 0c7a8b23b1c..2b8c6eb8799 100755
--- a/Master/tlpkg/tlperl/site/lib/auto/Socket/Socket.dll
+++ b/Master/tlpkg/tlperl/site/lib/auto/Socket/Socket.dll
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Test/Fatal/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Test/Fatal/.packlist
index 65a7c2f4262..f8b34dfe0f7 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Test/Fatal/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Test/Fatal/.packlist
@@ -1 +1 @@
-C:\tlperl526\site\lib\Test\Fatal.pm
+C:\tlperl\site\lib\Test\Fatal.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Test/Needs/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Test/Needs/.packlist
index a50f8443dcf..740b7c46c27 100755
--- a/Master/tlpkg/tlperl/site/lib/auto/Test/Needs/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Test/Needs/.packlist
@@ -1 +1 @@
-C:\tlperl526\site\lib\Test\Needs.pm
+C:\tlperl\site\lib\Test\Needs.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Test/RequiresInternet/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Test/RequiresInternet/.packlist
index 2ae7c08129e..2236c52f855 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Test/RequiresInternet/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Test/RequiresInternet/.packlist
@@ -1 +1 @@
-C:\tlperl526\site\lib\Test\RequiresInternet.pm
+C:\tlperl\site\lib\Test\RequiresInternet.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Tk/.packlist
deleted file mode 100644
index 6c54955e9eb..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/.packlist
+++ /dev/null
@@ -1,645 +0,0 @@
-C:\tlperl526\bin\gedi
-C:\tlperl526\bin\gedi.bat
-C:\tlperl526\bin\ptked
-C:\tlperl526\bin\ptked.bat
-C:\tlperl526\bin\ptksh
-C:\tlperl526\bin\ptksh.bat
-C:\tlperl526\bin\tkjpeg
-C:\tlperl526\bin\tkjpeg.bat
-C:\tlperl526\bin\widget
-C:\tlperl526\bin\widget.bat
-C:\tlperl526\site\lib\Tie\Watch.pm
-C:\tlperl526\site\lib\Tk.pm
-C:\tlperl526\site\lib\Tk.pod
-C:\tlperl526\site\lib\Tk\804delta.pod
-C:\tlperl526\site\lib\Tk\Adjuster.pm
-C:\tlperl526\site\lib\Tk\Adjuster.pod
-C:\tlperl526\site\lib\Tk\After.pm
-C:\tlperl526\site\lib\Tk\Animation.pm
-C:\tlperl526\site\lib\Tk\Animation.pod
-C:\tlperl526\site\lib\Tk\Balloon.pm
-C:\tlperl526\site\lib\Tk\Balloon.pod
-C:\tlperl526\site\lib\Tk\Bitmap.pm
-C:\tlperl526\site\lib\Tk\Bitmap.pod
-C:\tlperl526\site\lib\Tk\BrowseEntry.pm
-C:\tlperl526\site\lib\Tk\BrowseEntry.pod
-C:\tlperl526\site\lib\Tk\Button.pm
-C:\tlperl526\site\lib\Tk\Button.pod
-C:\tlperl526\site\lib\Tk\Camel.xpm
-C:\tlperl526\site\lib\Tk\Canvas.pm
-C:\tlperl526\site\lib\Tk\Canvas.pod
-C:\tlperl526\site\lib\Tk\Checkbutton.pm
-C:\tlperl526\site\lib\Tk\Checkbutton.pod
-C:\tlperl526\site\lib\Tk\Clipboard.pm
-C:\tlperl526\site\lib\Tk\Clipboard.pod
-C:\tlperl526\site\lib\Tk\CmdLine.pm
-C:\tlperl526\site\lib\Tk\CmdLine.pod
-C:\tlperl526\site\lib\Tk\ColorDialog.pm
-C:\tlperl526\site\lib\Tk\ColorEdit.xpm
-C:\tlperl526\site\lib\Tk\ColorEditor.pm
-C:\tlperl526\site\lib\Tk\ColorEditor.pod
-C:\tlperl526\site\lib\Tk\ColorSelect.pm
-C:\tlperl526\site\lib\Tk\Compound.pm
-C:\tlperl526\site\lib\Tk\Compound.pod
-C:\tlperl526\site\lib\Tk\Config.pm
-C:\tlperl526\site\lib\Tk\ConfigSpecs.pod
-C:\tlperl526\site\lib\Tk\Configure.pm
-C:\tlperl526\site\lib\Tk\Credits
-C:\tlperl526\site\lib\Tk\DItem.pod
-C:\tlperl526\site\lib\Tk\Derived.pm
-C:\tlperl526\site\lib\Tk\Derived.pod
-C:\tlperl526\site\lib\Tk\Dialog.pm
-C:\tlperl526\site\lib\Tk\Dialog.pod
-C:\tlperl526\site\lib\Tk\DialogBox.pm
-C:\tlperl526\site\lib\Tk\DialogBox.pod
-C:\tlperl526\site\lib\Tk\DirTree.pm
-C:\tlperl526\site\lib\Tk\DirTree.pod
-C:\tlperl526\site\lib\Tk\Dirlist.pm
-C:\tlperl526\site\lib\Tk\DragDrop.pm
-C:\tlperl526\site\lib\Tk\DragDrop\Common.pm
-C:\tlperl526\site\lib\Tk\DragDrop\Common.pod
-C:\tlperl526\site\lib\Tk\DragDrop\LocalDrop.pm
-C:\tlperl526\site\lib\Tk\DragDrop\Rect.pm
-C:\tlperl526\site\lib\Tk\DragDrop\SunConst.pm
-C:\tlperl526\site\lib\Tk\DragDrop\SunConst.pod
-C:\tlperl526\site\lib\Tk\DragDrop\SunDrop.pm
-C:\tlperl526\site\lib\Tk\DragDrop\SunSite.pm
-C:\tlperl526\site\lib\Tk\DragDrop\Win32Drop.pm
-C:\tlperl526\site\lib\Tk\DragDrop\Win32Site.pm
-C:\tlperl526\site\lib\Tk\DragDrop\XDNDDrop.pm
-C:\tlperl526\site\lib\Tk\DragDrop\XDNDSite.pm
-C:\tlperl526\site\lib\Tk\DropSite.pm
-C:\tlperl526\site\lib\Tk\DropSite.pod
-C:\tlperl526\site\lib\Tk\DummyEncode.pm
-C:\tlperl526\site\lib\Tk\English.pm
-C:\tlperl526\site\lib\Tk\Entry.pm
-C:\tlperl526\site\lib\Tk\Entry.pod
-C:\tlperl526\site\lib\Tk\Error.pod
-C:\tlperl526\site\lib\Tk\ErrorDialog.pm
-C:\tlperl526\site\lib\Tk\ErrorDialog.pod
-C:\tlperl526\site\lib\Tk\Event.pm
-C:\tlperl526\site\lib\Tk\Event\IO.pm
-C:\tlperl526\site\lib\Tk\Eventloop.pod
-C:\tlperl526\site\lib\Tk\FBox.pm
-C:\tlperl526\site\lib\Tk\FBox.pod
-C:\tlperl526\site\lib\Tk\FileSelect.pm
-C:\tlperl526\site\lib\Tk\FileSelect.pod
-C:\tlperl526\site\lib\Tk\FloatEntry.pm
-C:\tlperl526\site\lib\Tk\Font.pm
-C:\tlperl526\site\lib\Tk\Font.pod
-C:\tlperl526\site\lib\Tk\Frame.pm
-C:\tlperl526\site\lib\Tk\Frame.pod
-C:\tlperl526\site\lib\Tk\HList.pm
-C:\tlperl526\site\lib\Tk\HList.pod
-C:\tlperl526\site\lib\Tk\IO.pm
-C:\tlperl526\site\lib\Tk\IO.pod
-C:\tlperl526\site\lib\Tk\IconList.pm
-C:\tlperl526\site\lib\Tk\IconList.pod
-C:\tlperl526\site\lib\Tk\Image.pm
-C:\tlperl526\site\lib\Tk\Image.pod
-C:\tlperl526\site\lib\Tk\InputO.pod
-C:\tlperl526\site\lib\Tk\Internals.pod
-C:\tlperl526\site\lib\Tk\ItemStyle.pm
-C:\tlperl526\site\lib\Tk\JPEG.pm
-C:\tlperl526\site\lib\Tk\LabEntry.pm
-C:\tlperl526\site\lib\Tk\LabFrame.pm
-C:\tlperl526\site\lib\Tk\LabFrame.pod
-C:\tlperl526\site\lib\Tk\LabRadio.pm
-C:\tlperl526\site\lib\Tk\Label.pm
-C:\tlperl526\site\lib\Tk\Label.pod
-C:\tlperl526\site\lib\Tk\Labelframe.pm
-C:\tlperl526\site\lib\Tk\Labelframe.pod
-C:\tlperl526\site\lib\Tk\Listbox.pm
-C:\tlperl526\site\lib\Tk\Listbox.pod
-C:\tlperl526\site\lib\Tk\MMtry.pm
-C:\tlperl526\site\lib\Tk\MMutil.pm
-C:\tlperl526\site\lib\Tk\MainWindow.pm
-C:\tlperl526\site\lib\Tk\MainWindow.pod
-C:\tlperl526\site\lib\Tk\MakeDepend.pm
-C:\tlperl526\site\lib\Tk\Menu.pm
-C:\tlperl526\site\lib\Tk\Menu.pod
-C:\tlperl526\site\lib\Tk\Menu\Item.pm
-C:\tlperl526\site\lib\Tk\Menu\Item.pod
-C:\tlperl526\site\lib\Tk\Menubar.pm
-C:\tlperl526\site\lib\Tk\Menubutton.pm
-C:\tlperl526\site\lib\Tk\Menubutton.pod
-C:\tlperl526\site\lib\Tk\Message.pm
-C:\tlperl526\site\lib\Tk\Message.pod
-C:\tlperl526\site\lib\Tk\MsgBox.pm
-C:\tlperl526\site\lib\Tk\MsgBox.pod
-C:\tlperl526\site\lib\Tk\Mwm.pod
-C:\tlperl526\site\lib\Tk\NBFrame.pm
-C:\tlperl526\site\lib\Tk\NoteBook.pm
-C:\tlperl526\site\lib\Tk\NoteBook.pod
-C:\tlperl526\site\lib\Tk\Optionmenu.pm
-C:\tlperl526\site\lib\Tk\Optionmenu.pod
-C:\tlperl526\site\lib\Tk\PNG.pm
-C:\tlperl526\site\lib\Tk\Pane.pm
-C:\tlperl526\site\lib\Tk\Panedwindow.pm
-C:\tlperl526\site\lib\Tk\Panedwindow.pod
-C:\tlperl526\site\lib\Tk\Photo.pm
-C:\tlperl526\site\lib\Tk\Photo.pod
-C:\tlperl526\site\lib\Tk\Pixmap.pm
-C:\tlperl526\site\lib\Tk\Pixmap.pod
-C:\tlperl526\site\lib\Tk\Popup.pod
-C:\tlperl526\site\lib\Tk\Pretty.pm
-C:\tlperl526\site\lib\Tk\ProgressBar.pm
-C:\tlperl526\site\lib\Tk\README.Adjust
-C:\tlperl526\site\lib\Tk\ROText.pm
-C:\tlperl526\site\lib\Tk\ROText.pod
-C:\tlperl526\site\lib\Tk\Radiobutton.pm
-C:\tlperl526\site\lib\Tk\Radiobutton.pod
-C:\tlperl526\site\lib\Tk\Region.pm
-C:\tlperl526\site\lib\Tk\Reindex.pm
-C:\tlperl526\site\lib\Tk\ReindexedROText.pm
-C:\tlperl526\site\lib\Tk\ReindexedText.pm
-C:\tlperl526\site\lib\Tk\Scale.pm
-C:\tlperl526\site\lib\Tk\Scale.pod
-C:\tlperl526\site\lib\Tk\Scrollbar.pm
-C:\tlperl526\site\lib\Tk\Scrollbar.pod
-C:\tlperl526\site\lib\Tk\Scrolled.pod
-C:\tlperl526\site\lib\Tk\Spinbox.pm
-C:\tlperl526\site\lib\Tk\Spinbox.pod
-C:\tlperl526\site\lib\Tk\Stats.pm
-C:\tlperl526\site\lib\Tk\Submethods.pm
-C:\tlperl526\site\lib\Tk\Submethods.pod
-C:\tlperl526\site\lib\Tk\TList.pm
-C:\tlperl526\site\lib\Tk\TList.pod
-C:\tlperl526\site\lib\Tk\Table.pm
-C:\tlperl526\site\lib\Tk\Table.pod
-C:\tlperl526\site\lib\Tk\Tcl-perl.pod
-C:\tlperl526\site\lib\Tk\Text.pm
-C:\tlperl526\site\lib\Tk\Text.pod
-C:\tlperl526\site\lib\Tk\TextEdit.pm
-C:\tlperl526\site\lib\Tk\TextList.pm
-C:\tlperl526\site\lib\Tk\TextUndo.pm
-C:\tlperl526\site\lib\Tk\TextUndo.pod
-C:\tlperl526\site\lib\Tk\Text\Tag.pm
-C:\tlperl526\site\lib\Tk\Tiler.pm
-C:\tlperl526\site\lib\Tk\Tiler.pod
-C:\tlperl526\site\lib\Tk\TixGrid.pm
-C:\tlperl526\site\lib\Tk\TixGrid.pod
-C:\tlperl526\site\lib\Tk\Tk.xbm
-C:\tlperl526\site\lib\Tk\Tk.xpm
-C:\tlperl526\site\lib\Tk\TkXSUB.def
-C:\tlperl526\site\lib\Tk\Toplevel.pm
-C:\tlperl526\site\lib\Tk\Toplevel.pod
-C:\tlperl526\site\lib\Tk\Trace.pm
-C:\tlperl526\site\lib\Tk\Tree.pm
-C:\tlperl526\site\lib\Tk\Tree.pod
-C:\tlperl526\site\lib\Tk\UserGuide.pod
-C:\tlperl526\site\lib\Tk\Widget.pm
-C:\tlperl526\site\lib\Tk\Widget.pod
-C:\tlperl526\site\lib\Tk\WidgetDemo.pod
-C:\tlperl526\site\lib\Tk\Wm.pm
-C:\tlperl526\site\lib\Tk\Wm.pod
-C:\tlperl526\site\lib\Tk\X.pm
-C:\tlperl526\site\lib\Tk\X.pod
-C:\tlperl526\site\lib\Tk\X11Font.pm
-C:\tlperl526\site\lib\Tk\X11Font.pod
-C:\tlperl526\site\lib\Tk\X11\X.h
-C:\tlperl526\site\lib\Tk\X11\Xatom.h
-C:\tlperl526\site\lib\Tk\X11\Xfuncproto.h
-C:\tlperl526\site\lib\Tk\X11\Xlib.h
-C:\tlperl526\site\lib\Tk\X11\Xutil.h
-C:\tlperl526\site\lib\Tk\X11\cursorfont.h
-C:\tlperl526\site\lib\Tk\X11\keysym.h
-C:\tlperl526\site\lib\Tk\X11\keysymdef.h
-C:\tlperl526\site\lib\Tk\X11\license.terms
-C:\tlperl526\site\lib\Tk\Xcamel.gif
-C:\tlperl526\site\lib\Tk\Xlib.pm
-C:\tlperl526\site\lib\Tk\Xrm.pm
-C:\tlperl526\site\lib\Tk\Xrm.pod
-C:\tlperl526\site\lib\Tk\act_folder.xbm
-C:\tlperl526\site\lib\Tk\act_folder.xpm
-C:\tlperl526\site\lib\Tk\after.pod
-C:\tlperl526\site\lib\Tk\anim.gif
-C:\tlperl526\site\lib\Tk\arrowdownwin.xbm
-C:\tlperl526\site\lib\Tk\balArrow.xbm
-C:\tlperl526\site\lib\Tk\bind.pod
-C:\tlperl526\site\lib\Tk\bindtags.pod
-C:\tlperl526\site\lib\Tk\callbacks.pod
-C:\tlperl526\site\lib\Tk\cbxarrow.xbm
-C:\tlperl526\site\lib\Tk\chooseColor.pod
-C:\tlperl526\site\lib\Tk\chooseDirectory.pod
-C:\tlperl526\site\lib\Tk\composite.pod
-C:\tlperl526\site\lib\Tk\demos\LabEnLabRad.pm
-C:\tlperl526\site\lib\Tk\demos\images\QuitPB.xpm
-C:\tlperl526\site\lib\Tk\demos\images\QuitPBa.xpm
-C:\tlperl526\site\lib\Tk\demos\images\c.icon
-C:\tlperl526\site\lib\Tk\demos\images\cursor.cur
-C:\tlperl526\site\lib\Tk\demos\images\cursor.mask
-C:\tlperl526\site\lib\Tk\demos\images\cursor.xbm
-C:\tlperl526\site\lib\Tk\demos\images\dir.icon
-C:\tlperl526\site\lib\Tk\demos\images\dir.mask
-C:\tlperl526\site\lib\Tk\demos\images\earth.gif
-C:\tlperl526\site\lib\Tk\demos\images\earthris.gif
-C:\tlperl526\site\lib\Tk\demos\images\face
-C:\tlperl526\site\lib\Tk\demos\images\flagdown
-C:\tlperl526\site\lib\Tk\demos\images\flagup
-C:\tlperl526\site\lib\Tk\demos\images\grey.25
-C:\tlperl526\site\lib\Tk\demos\images\grey.5
-C:\tlperl526\site\lib\Tk\demos\images\letters
-C:\tlperl526\site\lib\Tk\demos\images\mickey.gif
-C:\tlperl526\site\lib\Tk\demos\images\ned.xpm
-C:\tlperl526\site\lib\Tk\demos\images\noletters
-C:\tlperl526\site\lib\Tk\demos\images\page.icon
-C:\tlperl526\site\lib\Tk\demos\images\page.mask
-C:\tlperl526\site\lib\Tk\demos\images\pattern
-C:\tlperl526\site\lib\Tk\demos\images\teapot.ppm
-C:\tlperl526\site\lib\Tk\demos\widget_lib\Ball.pm
-C:\tlperl526\site\lib\Tk\demos\widget_lib\HList.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\HList2.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\Plot.pm
-C:\tlperl526\site\lib\Tk\demos\widget_lib\WidgetDemo.pm
-C:\tlperl526\site\lib\Tk\demos\widget_lib\arrows.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\balloon.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\bind.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\bitmaps.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\bounce.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\browseentry.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\browseentry2.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\button.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\check.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\choosedir.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\clrpick.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\colors.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\cscroll.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\ctext.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\dialog1.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\dialog2.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\dirtree.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\entry1.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\entry2.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\entry3.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\filebox.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\floor.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\form.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\form_mgr.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\hello.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\hscale.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\icon.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\image1.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\image2.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\items.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\keysyms.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\labelframe.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\labels.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\labframe.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\mega.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\menbut.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\menus.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\menus2.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\msgBox.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\notebook.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\paned1.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\paned2.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\photo1.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\photo2.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\plot.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\progress.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\puzzle.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\radio.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\ruler.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\sayings.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\search.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\showVars.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\slide.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\spin.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\states.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\style.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\texts.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\trace1.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\trace2.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\transtile.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\twind.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\unicodeout.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\virtevents1.pl
-C:\tlperl526\site\lib\Tk\demos\widget_lib\vscale.pl
-C:\tlperl526\site\lib\Tk\demos\widtrib\Gedi.pl
-C:\tlperl526\site\lib\Tk\demos\widtrib\TEMPLATE.pl
-C:\tlperl526\site\lib\Tk\demos\widtrib\Tiler.pl
-C:\tlperl526\site\lib\Tk\demos\widtrib\all.pl
-C:\tlperl526\site\lib\Tk\demos\widtrib\cursor.pl
-C:\tlperl526\site\lib\Tk\demos\widtrib\lib\npuz\Xcamel.npuz
-C:\tlperl526\site\lib\Tk\demos\widtrib\npuz.pl
-C:\tlperl526\site\lib\Tk\demos\widtrib\plop.pl
-C:\tlperl526\site\lib\Tk\event.pod
-C:\tlperl526\site\lib\Tk\exit.pod
-C:\tlperl526\site\lib\Tk\file.xbm
-C:\tlperl526\site\lib\Tk\file.xpm
-C:\tlperl526\site\lib\Tk\fileevent.pod
-C:\tlperl526\site\lib\Tk\focus.pod
-C:\tlperl526\site\lib\Tk\folder.xbm
-C:\tlperl526\site\lib\Tk\folder.xpm
-C:\tlperl526\site\lib\Tk\form.pod
-C:\tlperl526\site\lib\Tk\getOpenFile.pod
-C:\tlperl526\site\lib\Tk\getSaveFile.pod
-C:\tlperl526\site\lib\Tk\grab.pod
-C:\tlperl526\site\lib\Tk\grid.pod
-C:\tlperl526\site\lib\Tk\icon.gif
-C:\tlperl526\site\lib\Tk\install.pm
-C:\tlperl526\site\lib\Tk\license.terms
-C:\tlperl526\site\lib\Tk\mega.pod
-C:\tlperl526\site\lib\Tk\messageBox.pod
-C:\tlperl526\site\lib\Tk\openfile.xbm
-C:\tlperl526\site\lib\Tk\openfolder.xbm
-C:\tlperl526\site\lib\Tk\openfolder.xpm
-C:\tlperl526\site\lib\Tk\option.pod
-C:\tlperl526\site\lib\Tk\options.pod
-C:\tlperl526\site\lib\Tk\overview.pod
-C:\tlperl526\site\lib\Tk\pTk.pod
-C:\tlperl526\site\lib\Tk\pTk\Lang.h
-C:\tlperl526\site\lib\Tk\pTk\Lang.m
-C:\tlperl526\site\lib\Tk\pTk\Lang.t
-C:\tlperl526\site\lib\Tk\pTk\Lang_f.h
-C:\tlperl526\site\lib\Tk\pTk\Tcl-pTk
-C:\tlperl526\site\lib\Tk\pTk\Xlib.h
-C:\tlperl526\site\lib\Tk\pTk\Xlib.m
-C:\tlperl526\site\lib\Tk\pTk\Xlib.t
-C:\tlperl526\site\lib\Tk\pTk\Xlib_f.h
-C:\tlperl526\site\lib\Tk\pTk\compat\limits.h
-C:\tlperl526\site\lib\Tk\pTk\compat\stdlib.h
-C:\tlperl526\site\lib\Tk\pTk\compat\unistd.h
-C:\tlperl526\site\lib\Tk\pTk\default.h
-C:\tlperl526\site\lib\Tk\pTk\img.h
-C:\tlperl526\site\lib\Tk\pTk\imgInt.h
-C:\tlperl526\site\lib\Tk\pTk\imgInt.m
-C:\tlperl526\site\lib\Tk\pTk\imgInt.t
-C:\tlperl526\site\lib\Tk\pTk\imgInt_f.h
-C:\tlperl526\site\lib\Tk\pTk\ks_names.h
-C:\tlperl526\site\lib\Tk\pTk\mkVFunc
-C:\tlperl526\site\lib\Tk\pTk\moredefs.h
-C:\tlperl526\site\lib\Tk\pTk\port.h
-C:\tlperl526\site\lib\Tk\pTk\tcl.h
-C:\tlperl526\site\lib\Tk\pTk\tclDecls.h
-C:\tlperl526\site\lib\Tk\pTk\tclDecls.m
-C:\tlperl526\site\lib\Tk\pTk\tclDecls.t
-C:\tlperl526\site\lib\Tk\pTk\tclDecls_f.h
-C:\tlperl526\site\lib\Tk\pTk\tclIntDecls.h
-C:\tlperl526\site\lib\Tk\pTk\tclIntPlatDecls.h
-C:\tlperl526\site\lib\Tk\pTk\tclMath.h
-C:\tlperl526\site\lib\Tk\pTk\tclPlatDecls.h
-C:\tlperl526\site\lib\Tk\pTk\tclWinInt.h
-C:\tlperl526\site\lib\Tk\pTk\tix.h
-C:\tlperl526\site\lib\Tk\pTk\tix.m
-C:\tlperl526\site\lib\Tk\pTk\tix.t
-C:\tlperl526\site\lib\Tk\pTk\tixBitmaps.h
-C:\tlperl526\site\lib\Tk\pTk\tixDef.h
-C:\tlperl526\site\lib\Tk\pTk\tixForm.h
-C:\tlperl526\site\lib\Tk\pTk\tixGrData.h
-C:\tlperl526\site\lib\Tk\pTk\tixGrid.h
-C:\tlperl526\site\lib\Tk\pTk\tixHList.h
-C:\tlperl526\site\lib\Tk\pTk\tixImgXpm.h
-C:\tlperl526\site\lib\Tk\pTk\tixImgXpm.m
-C:\tlperl526\site\lib\Tk\pTk\tixImgXpm.t
-C:\tlperl526\site\lib\Tk\pTk\tixImgXpm_f.h
-C:\tlperl526\site\lib\Tk\pTk\tixInt.h
-C:\tlperl526\site\lib\Tk\pTk\tixInt.m
-C:\tlperl526\site\lib\Tk\pTk\tixInt.t
-C:\tlperl526\site\lib\Tk\pTk\tixInt_f.h
-C:\tlperl526\site\lib\Tk\pTk\tixPort.h
-C:\tlperl526\site\lib\Tk\pTk\tixTList.h
-C:\tlperl526\site\lib\Tk\pTk\tixWinInt.h
-C:\tlperl526\site\lib\Tk\pTk\tixWinPort.h
-C:\tlperl526\site\lib\Tk\pTk\tix_f.h
-C:\tlperl526\site\lib\Tk\pTk\tk.h
-C:\tlperl526\site\lib\Tk\pTk\tk.m
-C:\tlperl526\site\lib\Tk\pTk\tk.t
-C:\tlperl526\site\lib\Tk\pTk\tk3d.h
-C:\tlperl526\site\lib\Tk\pTk\tkButton.h
-C:\tlperl526\site\lib\Tk\pTk\tkCanvas.h
-C:\tlperl526\site\lib\Tk\pTk\tkCanvases.h
-C:\tlperl526\site\lib\Tk\pTk\tkColor.h
-C:\tlperl526\site\lib\Tk\pTk\tkConfig.h
-C:\tlperl526\site\lib\Tk\pTk\tkDecls.h
-C:\tlperl526\site\lib\Tk\pTk\tkDecls.m
-C:\tlperl526\site\lib\Tk\pTk\tkDecls.t
-C:\tlperl526\site\lib\Tk\pTk\tkDecls_f.h
-C:\tlperl526\site\lib\Tk\pTk\tkEvent.h
-C:\tlperl526\site\lib\Tk\pTk\tkEvent.m
-C:\tlperl526\site\lib\Tk\pTk\tkEvent.t
-C:\tlperl526\site\lib\Tk\pTk\tkEvent_f.h
-C:\tlperl526\site\lib\Tk\pTk\tkFileFilter.h
-C:\tlperl526\site\lib\Tk\pTk\tkFont.h
-C:\tlperl526\site\lib\Tk\pTk\tkImgPhoto.h
-C:\tlperl526\site\lib\Tk\pTk\tkImgPhoto.m
-C:\tlperl526\site\lib\Tk\pTk\tkImgPhoto.t
-C:\tlperl526\site\lib\Tk\pTk\tkImgPhoto_f.h
-C:\tlperl526\site\lib\Tk\pTk\tkInitScript.h
-C:\tlperl526\site\lib\Tk\pTk\tkInt.h
-C:\tlperl526\site\lib\Tk\pTk\tkInt.m
-C:\tlperl526\site\lib\Tk\pTk\tkInt.t
-C:\tlperl526\site\lib\Tk\pTk\tkIntDecls.h
-C:\tlperl526\site\lib\Tk\pTk\tkIntDecls.m
-C:\tlperl526\site\lib\Tk\pTk\tkIntDecls.t
-C:\tlperl526\site\lib\Tk\pTk\tkIntDecls_f.h
-C:\tlperl526\site\lib\Tk\pTk\tkIntPlatDecls.h
-C:\tlperl526\site\lib\Tk\pTk\tkIntPlatDecls.m
-C:\tlperl526\site\lib\Tk\pTk\tkIntPlatDecls.t
-C:\tlperl526\site\lib\Tk\pTk\tkIntPlatDecls_f.h
-C:\tlperl526\site\lib\Tk\pTk\tkIntXlibDecls.h
-C:\tlperl526\site\lib\Tk\pTk\tkIntXlibDecls.m
-C:\tlperl526\site\lib\Tk\pTk\tkIntXlibDecls.t
-C:\tlperl526\site\lib\Tk\pTk\tkIntXlibDecls_f.h
-C:\tlperl526\site\lib\Tk\pTk\tkInt_f.h
-C:\tlperl526\site\lib\Tk\pTk\tkMenu.h
-C:\tlperl526\site\lib\Tk\pTk\tkMenubutton.h
-C:\tlperl526\site\lib\Tk\pTk\tkOption.h
-C:\tlperl526\site\lib\Tk\pTk\tkOption.m
-C:\tlperl526\site\lib\Tk\pTk\tkOption.t
-C:\tlperl526\site\lib\Tk\pTk\tkOption_f.h
-C:\tlperl526\site\lib\Tk\pTk\tkPlatDecls.h
-C:\tlperl526\site\lib\Tk\pTk\tkPlatDecls.m
-C:\tlperl526\site\lib\Tk\pTk\tkPlatDecls.t
-C:\tlperl526\site\lib\Tk\pTk\tkPlatDecls_f.h
-C:\tlperl526\site\lib\Tk\pTk\tkPort.h
-C:\tlperl526\site\lib\Tk\pTk\tkScale.h
-C:\tlperl526\site\lib\Tk\pTk\tkScrollbar.h
-C:\tlperl526\site\lib\Tk\pTk\tkSelect.h
-C:\tlperl526\site\lib\Tk\pTk\tkText.h
-C:\tlperl526\site\lib\Tk\pTk\tkUndo.h
-C:\tlperl526\site\lib\Tk\pTk\tkVMacro.h
-C:\tlperl526\site\lib\Tk\pTk\tkWin.h
-C:\tlperl526\site\lib\Tk\pTk\tkWinDefault.h
-C:\tlperl526\site\lib\Tk\pTk\tkWinInt.h
-C:\tlperl526\site\lib\Tk\pTk\tkWinPort.h
-C:\tlperl526\site\lib\Tk\pTk\tkXrm.h
-C:\tlperl526\site\lib\Tk\pTk\tk_f.h
-C:\tlperl526\site\lib\Tk\pTk\xbytes.h
-C:\tlperl526\site\lib\Tk\pack.pod
-C:\tlperl526\site\lib\Tk\palette.pod
-C:\tlperl526\site\lib\Tk\place.pod
-C:\tlperl526\site\lib\Tk\prolog.ps
-C:\tlperl526\site\lib\Tk\selection.pod
-C:\tlperl526\site\lib\Tk\send.pod
-C:\tlperl526\site\lib\Tk\srcfile.xpm
-C:\tlperl526\site\lib\Tk\textfile.xpm
-C:\tlperl526\site\lib\Tk\tixWm.pod
-C:\tlperl526\site\lib\Tk\tkGlue.def
-C:\tlperl526\site\lib\Tk\tkGlue.h
-C:\tlperl526\site\lib\Tk\tkGlue.m
-C:\tlperl526\site\lib\Tk\tkGlue.t
-C:\tlperl526\site\lib\Tk\tkGlue_f.h
-C:\tlperl526\site\lib\Tk\tkvars.pod
-C:\tlperl526\site\lib\Tk\tranicon.gif
-C:\tlperl526\site\lib\Tk\typemap
-C:\tlperl526\site\lib\Tk\vtab.def
-C:\tlperl526\site\lib\Tk\widgets.pm
-C:\tlperl526\site\lib\Tk\widgets.pod
-C:\tlperl526\site\lib\Tk\win.xbm
-C:\tlperl526\site\lib\Tk\winfolder.xpm
-C:\tlperl526\site\lib\Tk\wintext.xpm
-C:\tlperl526\site\lib\auto\Tk\CancelRepeat.al
-C:\tlperl526\site\lib\auto\Tk\Canvas\Canvas.dll
-C:\tlperl526\site\lib\auto\Tk\Clipboard\autosplit.ix
-C:\tlperl526\site\lib\auto\Tk\Clipboard\getSelected.al
-C:\tlperl526\site\lib\auto\Tk\Compound\Compound.dll
-C:\tlperl526\site\lib\auto\Tk\DragDrop\Win32Site\Win32Site.dll
-C:\tlperl526\site\lib\auto\Tk\EnterFocus.al
-C:\tlperl526\site\lib\auto\Tk\Entry\Entry.dll
-C:\tlperl526\site\lib\auto\Tk\Error.al
-C:\tlperl526\site\lib\auto\Tk\Event\Event.dll
-C:\tlperl526\site\lib\auto\Tk\FirstMenu.al
-C:\tlperl526\site\lib\auto\Tk\FocusChildren.al
-C:\tlperl526\site\lib\auto\Tk\FocusOK.al
-C:\tlperl526\site\lib\auto\Tk\Frame\AddScrollbars.al
-C:\tlperl526\site\lib\auto\Tk\Frame\FindMenu.al
-C:\tlperl526\site\lib\auto\Tk\Frame\autosplit.ix
-C:\tlperl526\site\lib\auto\Tk\Frame\freeze_on_map.al
-C:\tlperl526\site\lib\auto\Tk\Frame\label.al
-C:\tlperl526\site\lib\auto\Tk\Frame\labelPack.al
-C:\tlperl526\site\lib\auto\Tk\Frame\labelVariable.al
-C:\tlperl526\site\lib\auto\Tk\Frame\packscrollbars.al
-C:\tlperl526\site\lib\auto\Tk\Frame\queuePack.al
-C:\tlperl526\site\lib\auto\Tk\Frame\sbset.al
-C:\tlperl526\site\lib\auto\Tk\Frame\scrollbars.al
-C:\tlperl526\site\lib\auto\Tk\HList\HList.dll
-C:\tlperl526\site\lib\auto\Tk\IO\IO.dll
-C:\tlperl526\site\lib\auto\Tk\ImageNames.al
-C:\tlperl526\site\lib\auto\Tk\ImageTypes.al
-C:\tlperl526\site\lib\auto\Tk\JPEG\JPEG.dll
-C:\tlperl526\site\lib\auto\Tk\Listbox\AutoScan.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\BeginExtend.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\BeginSelect.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\BeginToggle.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\ButtonRelease_1.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\CLEAR.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\Cancel.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\Cntrl_End.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\Cntrl_Home.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\Cntrl_backslash.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\DELETE.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\DataExtend.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\EXISTS.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\EXTEND.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\ExtendUpDown.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\FETCH.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\FETCHSIZE.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\Listbox.dll
-C:\tlperl526\site\lib\auto\Tk\Listbox\Motion.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\POP.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\PUSH.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\SHIFT.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\SPLICE.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\STORE.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\SelectAll.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\SetList.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\TIEARRAY.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\TIESCALAR.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\UNSHIFT.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\UpDown.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\autosplit.ix
-C:\tlperl526\site\lib\auto\Tk\Listbox\clipboardPaste.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\deleteSelected.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\getSelected.al
-C:\tlperl526\site\lib\auto\Tk\Listbox\xyIndex.al
-C:\tlperl526\site\lib\auto\Tk\Menubutton\Menubutton.dll
-C:\tlperl526\site\lib\auto\Tk\NBFrame\NBFrame.dll
-C:\tlperl526\site\lib\auto\Tk\PNG\PNG.dll
-C:\tlperl526\site\lib\auto\Tk\Pixmap\Pixmap.dll
-C:\tlperl526\site\lib\auto\Tk\Receive.al
-C:\tlperl526\site\lib\auto\Tk\RepeatId.al
-C:\tlperl526\site\lib\auto\Tk\Scale\Activate.al
-C:\tlperl526\site\lib\auto\Tk\Scale\ButtonDown.al
-C:\tlperl526\site\lib\auto\Tk\Scale\ButtonUp.al
-C:\tlperl526\site\lib\auto\Tk\Scale\ControlPress.al
-C:\tlperl526\site\lib\auto\Tk\Scale\Drag.al
-C:\tlperl526\site\lib\auto\Tk\Scale\EndDrag.al
-C:\tlperl526\site\lib\auto\Tk\Scale\Enter.al
-C:\tlperl526\site\lib\auto\Tk\Scale\Increment.al
-C:\tlperl526\site\lib\auto\Tk\Scale\Leave.al
-C:\tlperl526\site\lib\auto\Tk\Scale\Scale.dll
-C:\tlperl526\site\lib\auto\Tk\Scale\autosplit.ix
-C:\tlperl526\site\lib\auto\Tk\Scrollbar\ButtonDown.al
-C:\tlperl526\site\lib\auto\Tk\Scrollbar\ButtonUp.al
-C:\tlperl526\site\lib\auto\Tk\Scrollbar\Drag.al
-C:\tlperl526\site\lib\auto\Tk\Scrollbar\EndDrag.al
-C:\tlperl526\site\lib\auto\Tk\Scrollbar\Enter.al
-C:\tlperl526\site\lib\auto\Tk\Scrollbar\Leave.al
-C:\tlperl526\site\lib\auto\Tk\Scrollbar\Motion.al
-C:\tlperl526\site\lib\auto\Tk\Scrollbar\ScrlByPages.al
-C:\tlperl526\site\lib\auto\Tk\Scrollbar\ScrlByUnits.al
-C:\tlperl526\site\lib\auto\Tk\Scrollbar\ScrlToPos.al
-C:\tlperl526\site\lib\auto\Tk\Scrollbar\ScrlTopBottom.al
-C:\tlperl526\site\lib\auto\Tk\Scrollbar\Scrollbar.dll
-C:\tlperl526\site\lib\auto\Tk\Scrollbar\Select.al
-C:\tlperl526\site\lib\auto\Tk\Scrollbar\StartDrag.al
-C:\tlperl526\site\lib\auto\Tk\Scrollbar\autosplit.ix
-C:\tlperl526\site\lib\auto\Tk\Selection.al
-C:\tlperl526\site\lib\auto\Tk\TList\TList.dll
-C:\tlperl526\site\lib\auto\Tk\Table\Create.al
-C:\tlperl526\site\lib\auto\Tk\Table\Posn.al
-C:\tlperl526\site\lib\auto\Tk\Table\autosplit.ix
-C:\tlperl526\site\lib\auto\Tk\Table\see.al
-C:\tlperl526\site\lib\auto\Tk\Table\totalColumns.al
-C:\tlperl526\site\lib\auto\Tk\Table\totalRows.al
-C:\tlperl526\site\lib\auto\Tk\TextEdit\autosplit.ix
-C:\tlperl526\site\lib\auto\Tk\TextUndo\autosplit.ix
-C:\tlperl526\site\lib\auto\Tk\Text\Text.dll
-C:\tlperl526\site\lib\auto\Tk\Text\autosplit.ix
-C:\tlperl526\site\lib\auto\Tk\TixGrid\TixGrid.dll
-C:\tlperl526\site\lib\auto\Tk\Tk.dll
-C:\tlperl526\site\lib\auto\Tk\Toplevel\FG_BindIn.al
-C:\tlperl526\site\lib\auto\Tk\Toplevel\FG_BindOut.al
-C:\tlperl526\site\lib\auto\Tk\Toplevel\FG_Create.al
-C:\tlperl526\site\lib\auto\Tk\Toplevel\FG_Destroy.al
-C:\tlperl526\site\lib\auto\Tk\Toplevel\FG_In.al
-C:\tlperl526\site\lib\auto\Tk\Toplevel\FG_Out.al
-C:\tlperl526\site\lib\auto\Tk\Toplevel\autosplit.ix
-C:\tlperl526\site\lib\auto\Tk\TraverseToMenu.al
-C:\tlperl526\site\lib\auto\Tk\Widget\ASkludge.al
-C:\tlperl526\site\lib\auto\Tk\Widget\AltKeyInDialog.al
-C:\tlperl526\site\lib\auto\Tk\Widget\AmpWidget.al
-C:\tlperl526\site\lib\auto\Tk\Widget\FindAltKeyTarget.al
-C:\tlperl526\site\lib\auto\Tk\Widget\MasterMenu.al
-C:\tlperl526\site\lib\auto\Tk\Widget\RestoreFocusGrab.al
-C:\tlperl526\site\lib\auto\Tk\Widget\SetAmpText.al
-C:\tlperl526\site\lib\auto\Tk\Widget\SetFocusGrab.al
-C:\tlperl526\site\lib\auto\Tk\Widget\UnderlineAmpersand.al
-C:\tlperl526\site\lib\auto\Tk\Widget\autosplit.ix
-C:\tlperl526\site\lib\auto\Tk\Widget\bindDump.al
-C:\tlperl526\site\lib\auto\Tk\Widget\clipboardKeysyms.al
-C:\tlperl526\site\lib\auto\Tk\Widget\pathname.al
-C:\tlperl526\site\lib\auto\Tk\Wm\AnchorAdjust.al
-C:\tlperl526\site\lib\auto\Tk\Wm\FullScreen.al
-C:\tlperl526\site\lib\auto\Tk\Wm\Popup.al
-C:\tlperl526\site\lib\auto\Tk\Wm\Post.al
-C:\tlperl526\site\lib\auto\Tk\Wm\autosplit.ix
-C:\tlperl526\site\lib\auto\Tk\Wm\iconposition.al
-C:\tlperl526\site\lib\auto\Tk\X\X.dll
-C:\tlperl526\site\lib\auto\Tk\X\autosplit.ix
-C:\tlperl526\site\lib\auto\Tk\Xlib\Xlib.dll
-C:\tlperl526\site\lib\auto\Tk\autosplit.ix
-C:\tlperl526\site\lib\auto\Tk\break.al
-C:\tlperl526\site\lib\auto\Tk\focusFollowsMouse.al
-C:\tlperl526\site\lib\auto\Tk\focusNext.al
-C:\tlperl526\site\lib\auto\Tk\focusPrev.al
-C:\tlperl526\site\lib\auto\Tk\getEncoding.al
-C:\tlperl526\site\lib\auto\Tk\getNextFocus.al
-C:\tlperl526\site\lib\auto\Tk\getPrevFocus.al
-C:\tlperl526\site\lib\auto\Tk\interps.al
-C:\tlperl526\site\lib\auto\Tk\lsearch.al
-C:\tlperl526\site\lib\auto\Tk\pTk\extralibs.ld
-C:\tlperl526\site\lib\auto\Tk\tabFocus.al
-C:\tlperl526\site\lib\auto\Tk\updateWidgets.al
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/CancelRepeat.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/CancelRepeat.al
deleted file mode 100644
index 371b1b88ebb..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/CancelRepeat.al
+++ /dev/null
@@ -1,15 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 509 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\CancelRepeat.al)"
-sub CancelRepeat
-{
- my $w = shift->MainWindow;
- my $id = delete $w->{_afterId_};
- $w->after('cancel',$id) if (defined $id);
-}
-
-# end of Tk::CancelRepeat
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Canvas/Canvas.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/Canvas/Canvas.dll
deleted file mode 100755
index 75ca2ab9a20..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Canvas/Canvas.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Clipboard/autosplit.ix b/Master/tlpkg/tlperl/site/lib/auto/Tk/Clipboard/autosplit.ix
deleted file mode 100644
index ad3c5c534b3..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Clipboard/autosplit.ix
+++ /dev/null
@@ -1,6 +0,0 @@
-# Index created by AutoSplit for blib\lib\Tk\Clipboard.pm
-# (file acts as timestamp)
-package Tk::Clipboard;
-sub getSelected
-;
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Clipboard/getSelected.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Clipboard/getSelected.al
deleted file mode 100644
index 516cfe00d90..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Clipboard/getSelected.al
+++ /dev/null
@@ -1,15 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Clipboard.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Clipboard;
-
-#line 115 "blib\lib\Tk\Clipboard.pm (autosplit into blib\lib\auto\Tk\Clipboard\getSelected.al)"
-sub getSelected
-{
- my $w = shift;
- my $val = Tk::catch { $w->get('sel.first','sel.last') };
- return $val;
-}
-
-1;
-# end of Tk::Clipboard::getSelected
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Compound/Compound.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/Compound/Compound.dll
deleted file mode 100755
index 79d7cfc45d9..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Compound/Compound.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/DirSelect/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Tk/DirSelect/.packlist
deleted file mode 100644
index 19c42c1367a..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/DirSelect/.packlist
+++ /dev/null
@@ -1 +0,0 @@
-C:\tlperl526\site\lib\Tk\DirSelect.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll
deleted file mode 100755
index f13fe393efe..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/EnterFocus.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/EnterFocus.al
deleted file mode 100644
index d11080bfff9..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/EnterFocus.al
+++ /dev/null
@@ -1,27 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 693 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\EnterFocus.al)"
-# focusFollowsMouse
-#
-# If this procedure is invoked, Tk will enter "focus-follows-mouse"
-# mode, where the focus is always on whatever window contains the
-# mouse. If this procedure isn't invoked, then the user typically
-# has to click on a window to give it the focus.
-#
-# Arguments:
-# None.
-
-sub EnterFocus
-{
- my $w = shift;
- return unless $w;
- my $Ev = $w->XEvent;
- my $d = $Ev->d;
- $w->Tk::focus() if ($d eq 'NotifyAncestor' || $d eq 'NotifyNonlinear' || $d eq 'NotifyInferior');
-}
-
-# end of Tk::EnterFocus
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Entry/Entry.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/Entry/Entry.dll
deleted file mode 100755
index a20841f1a97..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Entry/Entry.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Error.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Error.al
deleted file mode 100644
index 350be960bf5..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Error.al
+++ /dev/null
@@ -1,20 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 497 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\Error.al)"
-sub Error
-{my $w = shift;
- my $error = shift;
- if (Exists($w))
- {
- my $grab = $w->grab('current');
- $grab->Unbusy if (defined $grab);
- }
- chomp($error);
- warn "Tk::Error: $error\n " . join("\n ",@_)."\n";
-}
-
-# end of Tk::Error
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Event/Event.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/Event/Event.dll
deleted file mode 100755
index 12ed3947cbd..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Event/Event.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/FirstMenu.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/FirstMenu.al
deleted file mode 100644
index 737ad2f301f..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/FirstMenu.al
+++ /dev/null
@@ -1,21 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 741 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\FirstMenu.al)"
-# tkFirstMenu --
-# This procedure traverses to the first menubutton in the toplevel
-# for a given window, and posts that menubutton's menu.
-#
-# Arguments:
-# w - Name of a window. Selects which toplevel
-# to search for menubuttons.
-sub FirstMenu
-{
- my $w = shift;
- $w = $w->toplevel->FindMenu('');
-}
-
-# end of Tk::FirstMenu
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/FocusChildren.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/FocusChildren.al
deleted file mode 100644
index 968dffdc941..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/FocusChildren.al
+++ /dev/null
@@ -1,35 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 526 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\FocusChildren.al)"
-#----------------------------------------------------------------------------
-# focus.tcl --
-#
-# This file defines several procedures for managing the input
-# focus.
-#
-# @(#) focus.tcl 1.6 94/12/19 17:06:46
-#
-# Copyright (c) 1994 Sun Microsystems, Inc.
-#
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-
-sub FocusChildren { shift->children }
-
-#
-# focusNext --
-# This procedure is invoked to move the input focus to the next window
-# after a given one. "Next" is defined in terms of the window
-# stacking order, with all the windows underneath a given top-level
-# (no matter how deeply nested in the hierarchy) considered except
-# for frames and toplevels.
-#
-# Arguments:
-# w - Name of a window: the procedure will set the focus
-# to the next window after this one in the traversal
-# order.
-# end of Tk::FocusChildren
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/FocusOK.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/FocusOK.al
deleted file mode 100644
index 723eeb22409..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/FocusOK.al
+++ /dev/null
@@ -1,36 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 664 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\FocusOK.al)"
-sub FocusOK
-{
- my $w = shift;
- my $value;
- catch { $value = $w->cget('-takefocus') };
- if (!$@ && defined($value))
- {
- return 0 if ($value eq '0');
- return $w->viewable if ($value eq '1');
- if ($value)
- {
- $value = $w->$value();
- return $value if (defined $value);
- }
- }
- if (!$w->viewable)
- {
- return 0;
- }
- catch { $value = $w->cget('-state') } ;
- if (!$@ && defined($value) && $value eq 'disabled')
- {
- return 0;
- }
- $value = grep(/Key|Focus/,$w->Tk::bind(),$w->Tk::bind(ref($w)));
- return $value;
-}
-
-# end of Tk::FocusOK
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/AddScrollbars.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/AddScrollbars.al
deleted file mode 100644
index 7a62259d4bb..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/AddScrollbars.al
+++ /dev/null
@@ -1,52 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Frame.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Frame;
-
-#line 225 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\AddScrollbars.al)"
-sub AddScrollbars
-{
- require Tk::Scrollbar;
- my ($cw,$w) = @_;
- my $def = '';
- my ($x,$y) = ('','');
- my $s = 0;
- my $c;
- $cw->freeze_on_map;
- foreach $c ($w->configure)
- {
- my $opt = $c->[0];
- if ($opt eq '-yscrollcommand')
- {
- my $slice = Tk::Frame->new($cw,Name => 'ysbslice');
- my $ysb = Tk::Scrollbar->new($slice,-orient => 'vertical', -command => [ 'yview', $w ]);
- my $size = $ysb->cget('-width');
- my $corner = Tk::Frame->new($slice,Name=>'corner','-relief' => 'raised',
- '-width' => $size, '-height' => $size);
- $ysb->pack(-side => 'left', -fill => 'y');
- $cw->Advertise('yscrollbar' => $ysb);
- $cw->Advertise('corner' => $corner);
- $cw->Advertise('ysbslice' => $slice);
- $corner->{'before'} = $ysb->PathName;
- $slice->{'before'} = $w->PathName;
- $y = 'w';
- $s = 1;
- }
- elsif ($opt eq '-xscrollcommand')
- {
- my $xsb = Tk::Scrollbar->new($cw,-orient => 'horizontal', -command => [ 'xview', $w ]);
- $cw->Advertise('xscrollbar' => $xsb);
- $xsb->{'before'} = $w->PathName;
- $x = 's';
- $s = 1;
- }
- }
- if ($s)
- {
- $cw->Advertise('scrolled' => $w);
- $cw->ConfigSpecs('-scrollbars' => ['METHOD','scrollbars','Scrollbars',$x.$y]);
- }
-}
-
-# end of Tk::Frame::AddScrollbars
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/FindMenu.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/FindMenu.al
deleted file mode 100644
index 6081d51b77b..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/FindMenu.al
+++ /dev/null
@@ -1,22 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Frame.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Frame;
-
-#line 363 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\FindMenu.al)"
-sub FindMenu
-{
- my ($w,$char) = @_;
- my $child;
- my $match;
- foreach $child ($w->children)
- {
- next unless (ref $child);
- $match = $child->FindMenu($char);
- return $match if (defined $match);
- }
- return undef;
-}
-
-1;
-# end of Tk::Frame::FindMenu
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/autosplit.ix b/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/autosplit.ix
deleted file mode 100644
index 07223b8a9b5..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/autosplit.ix
+++ /dev/null
@@ -1,24 +0,0 @@
-# Index created by AutoSplit for blib\lib\Tk\Frame.pm
-# (file acts as timestamp)
-package Tk::Frame;
-sub labelPack
-;
-sub labelVariable
-;
-sub label
-;
-sub queuePack
-;
-sub sbset
-;
-sub freeze_on_map
-;
-sub AddScrollbars
-;
-sub packscrollbars
-;
-sub scrollbars
-;
-sub FindMenu
-;
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/freeze_on_map.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/freeze_on_map.al
deleted file mode 100644
index 0be727d7066..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/freeze_on_map.al
+++ /dev/null
@@ -1,18 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Frame.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Frame;
-
-#line 215 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\freeze_on_map.al)"
-sub freeze_on_map
-{
- my ($w) = @_;
- unless ($w->Tk::bind('Freeze','<Map>'))
- {
- $w->Tk::bind('Freeze','<Map>',['packPropagate' => 0])
- }
- $w->AddBindTag('Freeze');
-}
-
-# end of Tk::Frame::freeze_on_map
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/label.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/label.al
deleted file mode 100644
index 50c8d38c8e5..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/label.al
+++ /dev/null
@@ -1,24 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Frame.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Frame;
-
-#line 182 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\label.al)"
-sub label
-{
- my ($cw,$val) = @_;
- my $var = $cw->cget('-labelVariable');
- if (@_ > 1 && defined $val)
- {
- if (!defined $var)
- {
- $var = \$cw->{Configure}{'-label'};
- $cw->labelVariable($var);
- }
- $$var = $val;
- }
- return (defined $var) ? $$var : undef;;
-}
-
-# end of Tk::Frame::label
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/labelPack.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/labelPack.al
deleted file mode 100644
index 3142aae7f19..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/labelPack.al
+++ /dev/null
@@ -1,50 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Frame.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Frame;
-
-#line 121 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\labelPack.al)"
-sub labelPack
-{
- my ($cw,$val) = @_;
- my $w = $cw->Subwidget('label');
- my @result = ();
- if (@_ > 1)
- {
- if (defined($w) && !defined($val))
- {
- $w->packForget;
- }
- elsif (defined($val) && !defined ($w))
- {
- require Tk::Label;
- $w = Tk::Label->new($cw,-textvariable => $cw->labelVariable);
- $cw->Advertise('label' => $w);
- $cw->ConfigDelegate('label',qw(-text -textvariable));
- }
- if (defined($val) && defined($w))
- {
- my %pack = @$val;
- unless (exists $pack{-side})
- {
- $pack{-side} = 'top' unless (exists $pack{-side});
- }
- unless (exists $pack{-fill})
- {
- $pack{-fill} = 'x' if ($pack{-side} =~ /(top|bottom)/);
- $pack{-fill} = 'y' if ($pack{-side} =~ /(left|right)/);
- }
- unless (exists($pack{'-before'}) || exists($pack{'-after'}))
- {
- my $before = ($cw->packSlaves)[0];
- $pack{'-before'} = $before if (defined $before);
- }
- $w->pack(%pack);
- }
- }
- @result = $w->packInfo if (defined $w);
- return (wantarray) ? @result : \@result;
-}
-
-# end of Tk::Frame::labelPack
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/labelVariable.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/labelVariable.al
deleted file mode 100644
index c1d3cb48fa5..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/labelVariable.al
+++ /dev/null
@@ -1,27 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Frame.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Frame;
-
-#line 163 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\labelVariable.al)"
-sub labelVariable
-{
- my ($cw,$val) = @_;
- my $var = \$cw->{Configure}{'-labelVariable'};
- if (@_ > 1 && defined $val)
- {
- $$var = $val;
- $$val = '' unless (defined $$val);
- my $w = $cw->Subwidget('label');
- unless (defined $w)
- {
- $cw->labelPack([]);
- $w = $cw->Subwidget('label');
- }
- $w->configure(-textvariable => $val);
- }
- return $$var;
-}
-
-# end of Tk::Frame::labelVariable
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/packscrollbars.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/packscrollbars.al
deleted file mode 100644
index d0be49a95c1..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/packscrollbars.al
+++ /dev/null
@@ -1,86 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Frame.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Frame;
-
-#line 269 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\packscrollbars.al)"
-sub packscrollbars
-{
- my ($cw) = @_;
- my $opt = $cw->cget('-scrollbars');
- my $slice = $cw->Subwidget('ysbslice');
- my $xsb = $cw->Subwidget('xscrollbar');
- my $corner = $cw->Subwidget('corner');
- my $w = $cw->Subwidget('scrolled');
- my $xside = (($opt =~ /n/) ? 'top' : 'bottom');
- my $havex = 0;
- my $havey = 0;
- $opt =~ s/r//;
- $cw->{'pack_pending'} = 0;
- if (defined $slice)
- {
- my $reqy;
- my $ysb = $cw->Subwidget('yscrollbar');
- if ($opt =~ /(o)?[we]/ && (($reqy = !defined($1)) || $ysb->Needed))
- {
- my $yside = (($opt =~ /w/) ? 'left' : 'right');
- $slice->pack(-side => $yside, -fill => 'y',-before => $slice->{'before'});
- $havey = 1;
- if ($reqy)
- {
- $w->configure(-yscrollcommand => ['set', $ysb]);
- }
- else
- {
- $w->configure(-yscrollcommand => ['sbset', $cw, $ysb, \$cw->{'packysb'}]);
- }
- }
- else
- {
- $w->configure(-yscrollcommand => undef) unless $opt =~ s/[we]//;
- $slice->packForget;
- }
- $cw->{'packysb'} = $havey;
- }
- if (defined $xsb)
- {
- my $reqx;
- if ($opt =~ /(o)?[ns]/ && (($reqx = !defined($1)) || $xsb->Needed))
- {
- $xsb->pack(-side => $xside, -fill => 'x',-before => $xsb->{'before'});
- $havex = 1;
- if ($reqx)
- {
- $w->configure(-xscrollcommand => ['set', $xsb]);
- }
- else
- {
- $w->configure(-xscrollcommand => ['sbset', $cw, $xsb, \$cw->{'packxsb'}]);
- }
- }
- else
- {
- $w->configure(-xscrollcommand => undef) unless $opt =~ s/[ns]//;
- $xsb->packForget;
- }
- $cw->{'packxsb'} = $havex;
- }
- if (defined $corner)
- {
- if ($havex && $havey && defined $corner->{'before'})
- {
- my $anchor = $opt;
- $anchor =~ s/o//g;
- $corner->configure(-height => $xsb->ReqHeight);
- $corner->pack(-before => $corner->{'before'}, -side => $xside,
- -anchor => $anchor, -fill => 'x');
- }
- else
- {
- $corner->packForget;
- }
- }
-}
-
-# end of Tk::Frame::packscrollbars
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/queuePack.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/queuePack.al
deleted file mode 100644
index acdb182db9f..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/queuePack.al
+++ /dev/null
@@ -1,18 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Frame.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Frame;
-
-#line 198 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\queuePack.al)"
-sub queuePack
-{
- my ($cw) = @_;
- unless ($cw->{'pack_pending'})
- {
- $cw->{'pack_pending'} = 1;
- $cw->afterIdle([$cw,'packscrollbars']);
- }
-}
-
-# end of Tk::Frame::queuePack
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/sbset.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/sbset.al
deleted file mode 100644
index 36995c64e08..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/sbset.al
+++ /dev/null
@@ -1,15 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Frame.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Frame;
-
-#line 208 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\sbset.al)"
-sub sbset
-{
- my ($cw,$sb,$ref,@args) = @_;
- $sb->set(@args);
- $cw->queuePack if (@args == 2 && $sb->Needed != $$ref);
-}
-
-# end of Tk::Frame::sbset
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/scrollbars.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/scrollbars.al
deleted file mode 100644
index 0858f82bdf2..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/scrollbars.al
+++ /dev/null
@@ -1,24 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Frame.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Frame;
-
-#line 347 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\scrollbars.al)"
-sub scrollbars
-{
- my ($cw,$opt) = @_;
- my $var = \$cw->{'-scrollbars'};
- if (@_ > 1)
- {
- my $old = $$var;
- if (!defined $old || $old ne $opt)
- {
- $$var = $opt;
- $cw->queuePack;
- }
- }
- return $$var;
-}
-
-# end of Tk::Frame::scrollbars
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/HList/HList.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/HList/HList.dll
deleted file mode 100755
index c2b28964077..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/HList/HList.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/IO/IO.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/IO/IO.dll
deleted file mode 100755
index 4985b7270df..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/IO/IO.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/ImageNames.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/ImageNames.al
deleted file mode 100644
index 942eea99b3e..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/ImageNames.al
+++ /dev/null
@@ -1,13 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 793 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\ImageNames.al)"
-sub ImageNames
-{
- image('names');
-}
-
-# end of Tk::ImageNames
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/ImageTypes.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/ImageTypes.al
deleted file mode 100644
index d5c03499006..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/ImageTypes.al
+++ /dev/null
@@ -1,13 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 798 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\ImageTypes.al)"
-sub ImageTypes
-{
- image('types');
-}
-
-# end of Tk::ImageTypes
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/JPEG/JPEG.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/JPEG/JPEG.dll
deleted file mode 100755
index 21212646b93..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/JPEG/JPEG.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/AutoScan.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/AutoScan.al
deleted file mode 100644
index 027455a35fa..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/AutoScan.al
+++ /dev/null
@@ -1,49 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 676 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\AutoScan.al)"
-# AutoScan --
-# This procedure is invoked when the mouse leaves an entry window
-# with button 1 down. It scrolls the window up, down, left, or
-# right, depending on where the mouse left the window, and reschedules
-# itself as an "after" command so that the window continues to scroll until
-# the mouse moves back into the window or the mouse button is released.
-#
-# Arguments:
-# w - The entry window.
-# x - The x-coordinate of the mouse when it left the window.
-# y - The y-coordinate of the mouse when it left the window.
-sub AutoScan
-{
- my $w = shift;
- return if !Tk::Exists($w);
- my $x = shift;
- my $y = shift;
- if ($y >= $w->height)
- {
- $w->yview('scroll',1,'units')
- }
- elsif ($y < 0)
- {
- $w->yview('scroll',-1,'units')
- }
- elsif ($x >= $w->width)
- {
- $w->xview('scroll',2,'units')
- }
- elsif ($x < 0)
- {
- $w->xview('scroll',-2,'units')
- }
- else
- {
- return;
- }
- $w->Motion($w->index("@" . $x . ',' . $y));
- $w->RepeatId($w->after(50,'AutoScan',$w,$x,$y));
-}
-
-# end of Tk::Listbox::AutoScan
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/BeginExtend.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/BeginExtend.al
deleted file mode 100644
index c340fcfd228..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/BeginExtend.al
+++ /dev/null
@@ -1,34 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 620 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\BeginExtend.al)"
-# BeginExtend --
-#
-# This procedure is typically invoked on shift-button-1 presses. It
-# begins the process of extending a selection in the listbox. Its
-# exact behavior depends on the selection mode currently in effect
-# for the listbox; see the Motif documentation for details.
-#
-# Arguments:
-# w - The listbox widget.
-# el - The element for the selection operation (typically the
-# one under the pointer). Must be in numerical form.
-sub BeginExtend
-{
- my $w = shift;
- my $el = shift;
- if ($w->cget('-selectmode') eq 'extended' && $w->selectionIncludes('anchor'))
- {
- $w->Motion($el)
- }
- else
- {
- # No selection yet; simulate the begin-select operation.
- $w->BeginSelect($el);
- }
-}
-
-# end of Tk::Listbox::BeginExtend
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/BeginSelect.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/BeginSelect.al
deleted file mode 100644
index fefcafec388..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/BeginSelect.al
+++ /dev/null
@@ -1,46 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 515 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\BeginSelect.al)"
-# BeginSelect --
-#
-# This procedure is typically invoked on button-1 presses. It begins
-# the process of making a selection in the listbox. Its exact behavior
-# depends on the selection mode currently in effect for the listbox;
-# see the Motif documentation for details.
-#
-# Arguments:
-# w - The listbox widget.
-# el - The element for the selection operation (typically the
-# one under the pointer). Must be in numerical form.
-sub BeginSelect
-{
- my $w = shift;
- my $el = shift;
- if ($w->cget('-selectmode') eq 'multiple')
- {
- if ($w->selectionIncludes($el))
- {
- $w->selectionClear($el)
- }
- else
- {
- $w->selectionSet($el)
- }
- }
- else
- {
- $w->selectionClear(0,'end');
- $w->selectionSet($el);
- $w->selectionAnchor($el);
- @Selection = ();
- $Prev = $el
- }
- $w->focus if ($w->cget('-takefocus'));
- $w->eventGenerate("<<ListboxSelect>>");
-}
-
-# end of Tk::Listbox::BeginSelect
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/BeginToggle.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/BeginToggle.al
deleted file mode 100644
index d95561d2a34..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/BeginToggle.al
+++ /dev/null
@@ -1,40 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 645 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\BeginToggle.al)"
-# BeginToggle --
-#
-# This procedure is typically invoked on control-button-1 presses. It
-# begins the process of toggling a selection in the listbox. Its
-# exact behavior depends on the selection mode currently in effect
-# for the listbox; see the Motif documentation for details.
-#
-# Arguments:
-# w - The listbox widget.
-# el - The element for the selection operation (typically the
-# one under the pointer). Must be in numerical form.
-sub BeginToggle
-{
- my $w = shift;
- my $el = shift;
- if ($w->cget('-selectmode') eq 'extended')
- {
- @Selection = $w->curselection();
- $Prev = $el;
- $w->selectionAnchor($el);
- if ($w->selectionIncludes($el))
- {
- $w->selectionClear($el)
- }
- else
- {
- $w->selectionSet($el)
- }
- $w->eventGenerate("<<ListboxSelect>>");
- }
-}
-
-# end of Tk::Listbox::BeginToggle
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/ButtonRelease_1.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/ButtonRelease_1.al
deleted file mode 100644
index 5c7615a023c..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/ButtonRelease_1.al
+++ /dev/null
@@ -1,16 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 471 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\ButtonRelease_1.al)"
-sub ButtonRelease_1
-{
- my $w = shift;
- my $Ev = $w->XEvent;
- $w->CancelRepeat;
- $w->activate($Ev->xy);
-}
-
-# end of Tk::Listbox::ButtonRelease_1
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/CLEAR.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/CLEAR.al
deleted file mode 100644
index 8682d7bb124..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/CLEAR.al
+++ /dev/null
@@ -1,16 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 304 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\CLEAR.al)"
-# CLEAR
-# -----
-# Empty the Listbox of contents if tied to an array
-sub CLEAR {
- my $class = shift;
- ${$class->{OBJECT}}->delete(0, 'end');
-}
-
-# end of Tk::Listbox::CLEAR
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cancel.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cancel.al
deleted file mode 100644
index 490e5d27ce9..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cancel.al
+++ /dev/null
@@ -1,42 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 805 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\Cancel.al)"
-# Cancel
-#
-# This procedure is invoked to cancel an extended selection in
-# progress. If there is an extended selection in progress, it
-# restores all of the items between the active one and the anchor
-# to their previous selection state.
-#
-# Arguments:
-# w - The listbox widget.
-sub Cancel
-{
- my $w = shift;
- if ($w->cget('-selectmode') ne 'extended' || !defined $Prev)
- {
- return;
- }
- my $first = $w->index('anchor');
- my $last = $Prev;
- if ($first > $last)
- {
- ($first, $last) = ($last, $first);
- }
- $w->selectionClear($first,$last);
- while ($first <= $last)
- {
- if (Tk::lsearch(\@Selection,$first) >= 0)
- {
- $w->selectionSet($first)
- }
- $first++
- }
- $w->eventGenerate("<<ListboxSelect>>");
-}
-
-# end of Tk::Listbox::Cancel
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cntrl_End.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cntrl_End.al
deleted file mode 100644
index ece973f1ee9..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cntrl_End.al
+++ /dev/null
@@ -1,19 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 492 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\Cntrl_End.al)"
-sub Cntrl_End
-{
- my $w = shift;
- my $Ev = $w->XEvent;
- $w->activate('end');
- $w->see('end');
- $w->selectionClear(0,'end');
- $w->selectionSet('end');
- $w->eventGenerate("<<ListboxSelect>>");
-}
-
-# end of Tk::Listbox::Cntrl_End
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cntrl_Home.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cntrl_Home.al
deleted file mode 100644
index ca0ab895d83..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cntrl_Home.al
+++ /dev/null
@@ -1,19 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 480 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\Cntrl_Home.al)"
-sub Cntrl_Home
-{
- my $w = shift;
- my $Ev = $w->XEvent;
- $w->activate(0);
- $w->see(0);
- $w->selectionClear(0,'end');
- $w->selectionSet(0);
- $w->eventGenerate("<<ListboxSelect>>");
-}
-
-# end of Tk::Listbox::Cntrl_Home
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cntrl_backslash.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cntrl_backslash.al
deleted file mode 100644
index 7b6cd16df94..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cntrl_backslash.al
+++ /dev/null
@@ -1,19 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 504 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\Cntrl_backslash.al)"
-sub Cntrl_backslash
-{
- my $w = shift;
- my $Ev = $w->XEvent;
- if ($w->cget('-selectmode') ne 'browse')
- {
- $w->selectionClear(0,'end');
- $w->eventGenerate("<<ListboxSelect>>");
- }
-}
-
-# end of Tk::Listbox::Cntrl_backslash
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/DELETE.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/DELETE.al
deleted file mode 100644
index d7f73faca1c..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/DELETE.al
+++ /dev/null
@@ -1,19 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 355 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\DELETE.al)"
-# DELETE
-# ------
-# Delete element at specified index
-sub DELETE {
- my ( $class, @list ) = @_;
-
- my $value = ${$class->{OBJECT}}->get(@list);
- ${$class->{OBJECT}}->delete(@list);
- return $value;
-}
-
-# end of Tk::Listbox::DELETE
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/DataExtend.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/DataExtend.al
deleted file mode 100644
index f2ce68b00ee..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/DataExtend.al
+++ /dev/null
@@ -1,39 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 775 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\DataExtend.al)"
-# DataExtend
-#
-# This procedure is called for key-presses such as Shift-KEndData.
-# If the selection mode isn't multiple or extend then it does nothing.
-# Otherwise it moves the active element to el and, if we're in
-# extended mode, extends the selection to that point.
-#
-# Arguments:
-# w - The listbox widget.
-# el - An integer element number.
-sub DataExtend
-{
- my $w = shift;
- my $el = shift;
- my $mode = $w->cget('-selectmode');
- if ($mode eq 'extended')
- {
- $w->activate($el);
- $w->see($el);
- if ($w->selectionIncludes('anchor'))
- {
- $w->Motion($el)
- }
- }
- elsif ($mode eq 'multiple')
- {
- $w->activate($el);
- $w->see($el)
- }
-}
-
-# end of Tk::Listbox::DataExtend
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/EXISTS.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/EXISTS.al
deleted file mode 100644
index 070b9c13b2b..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/EXISTS.al
+++ /dev/null
@@ -1,16 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 366 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\EXISTS.al)"
-# EXISTS
-# ------
-# Returns true if the index exist, and undef if not
-sub EXISTS {
- my ( $class, $index ) = @_;
- return undef unless ${$class->{OBJECT}}->get($index);
-}
-
-# end of Tk::Listbox::EXISTS
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/EXTEND.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/EXTEND.al
deleted file mode 100644
index 7b21799cf46..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/EXTEND.al
+++ /dev/null
@@ -1,16 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 312 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\EXTEND.al)"
-# EXTEND
-# ------
-# Do nothing and be happy about it
-sub EXTEND { }
-
-# PUSH
-# ----
-# Append elements onto the Listbox contents
-# end of Tk::Listbox::EXTEND
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/ExtendUpDown.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/ExtendUpDown.al
deleted file mode 100644
index c5081704efc..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/ExtendUpDown.al
+++ /dev/null
@@ -1,36 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 748 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\ExtendUpDown.al)"
-# ExtendUpDown --
-#
-# Does nothing unless we're in extended selection mode; in this
-# case it moves the location cursor (active element) up or down by
-# one element, and extends the selection to that point.
-#
-# Arguments:
-# w - The listbox widget.
-# amount - +1 to move down one item, -1 to move back one item.
-sub ExtendUpDown
-{
- my $w = shift;
- my $amount = shift;
- if ($w->cget('-selectmode') ne 'extended')
- {
- return;
- }
- my $active = $w->index('active');
- if (!@Selection)
- {
- $w->selectionSet($active);
- @Selection = $w->curselection;
- }
- $w->activate($active + $amount);
- $w->see('active');
- $w->Motion($w->index('active'))
-}
-
-# end of Tk::Listbox::ExtendUpDown
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/FETCH.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/FETCH.al
deleted file mode 100644
index 65200f117c3..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/FETCH.al
+++ /dev/null
@@ -1,56 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 176 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\FETCH.al)"
-# FETCH
-# -----
-# Return either the full contents or only the selected items in the
-# box depending on whether we tied it to an array or scalar respectively
-sub FETCH {
- my $class = shift;
-
- my $self = ${$class->{OBJECT}};
- my %options = %{$class->{OPTION}} if defined $class->{OPTION};;
-
- # Define the return variable
- my $result;
-
- # Check whether we are have a tied array or scalar quantity
- if ( @_ ) {
- my $i = shift;
- # The Tk:: Listbox has been tied to an array, we are returning
- # an array list of the current items in the Listbox
- $result = $self->get($i);
- } else {
- # The Tk::Listbox has been tied to a scalar, we are returning a
- # reference to an array or hash containing the currently selected items
- my ( @array, %hash );
-
- if ( defined $options{ReturnType} ) {
-
- # THREE-WAY SWITCH
- if ( $options{ReturnType} eq "index" ) {
- $result = [$self->curselection];
- } elsif ( $options{ReturnType} eq "element" ) {
- foreach my $selection ( $self->curselection ) {
- push(@array,$self->get($selection)); }
- $result = \@array;
- } elsif ( $options{ReturnType} eq "both" ) {
- foreach my $selection ( $self->curselection ) {
- %hash = ( %hash, $selection => $self->get($selection)); }
- $result = \%hash;
- }
- } else {
- # return elements (default)
- foreach my $selection ( $self->curselection ) {
- push(@array,$self->get($selection)); }
- $result = \@array;
- }
- }
- return $result;
-}
-
-# end of Tk::Listbox::FETCH
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/FETCHSIZE.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/FETCHSIZE.al
deleted file mode 100644
index 73a34069b3b..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/FETCHSIZE.al
+++ /dev/null
@@ -1,16 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 224 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\FETCHSIZE.al)"
-# FETCHSIZE
-# ---------
-# Return the number of elements in the Listbox when tied to an array
-sub FETCHSIZE {
- my $class = shift;
- return ${$class->{OBJECT}}->size();
-}
-
-# end of Tk::Listbox::FETCHSIZE
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Listbox.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Listbox.dll
deleted file mode 100755
index 02d31f43326..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Listbox.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Motion.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Motion.al
deleted file mode 100644
index 6b9c75bced3..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Motion.al
+++ /dev/null
@@ -1,77 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 552 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\Motion.al)"
-# Motion --
-#
-# This procedure is called to process mouse motion events while
-# button 1 is down. It may move or extend the selection, depending
-# on the listbox's selection mode.
-#
-# Arguments:
-# w - The listbox widget.
-# el - The element under the pointer (must be a number).
-sub Motion
-{
- my $w = shift;
- my $el = shift;
- if (defined($Prev) && $el == $Prev)
- {
- return;
- }
- my $anchor = $w->index('anchor');
- my $mode = $w->cget('-selectmode');
- if ($mode eq 'browse')
- {
- $w->selectionClear(0,'end');
- $w->selectionSet($el);
- $Prev = $el;
- $w->eventGenerate("<<ListboxSelect>>");
- }
- elsif ($mode eq 'extended')
- {
- my $i = $Prev;
- if (!defined $i || $i eq '')
- {
- $i = $el;
- $w->selectionSet($el);
- }
- if ($w->selectionIncludes('anchor'))
- {
- $w->selectionClear($i,$el);
- $w->selectionSet('anchor',$el)
- }
- else
- {
- $w->selectionClear($i,$el);
- $w->selectionClear('anchor',$el)
- }
- if (!@Selection)
- {
- @Selection = $w->curselection;
- }
- while ($i < $el && $i < $anchor)
- {
- if (Tk::lsearch(\@Selection,$i) >= 0)
- {
- $w->selectionSet($i)
- }
- $i++
- }
- while ($i > $el && $i > $anchor)
- {
- if (Tk::lsearch(\@Selection,$i) >= 0)
- {
- $w->selectionSet($i)
- }
- $i--
- }
- $Prev = $el;
- $w->eventGenerate("<<ListboxSelect>>");
- }
-}
-
-# end of Tk::Listbox::Motion
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/POP.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/POP.al
deleted file mode 100644
index b20d282d154..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/POP.al
+++ /dev/null
@@ -1,19 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 325 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\POP.al)"
-# POP
-# ---
-# Remove last element of the array and return it
-sub POP {
- my $class = shift;
-
- my $value = ${$class->{OBJECT}}->get('end');
- ${$class->{OBJECT}}->delete('end');
- return $value;
-}
-
-# end of Tk::Listbox::POP
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/PUSH.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/PUSH.al
deleted file mode 100644
index ba681cb6f78..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/PUSH.al
+++ /dev/null
@@ -1,13 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 320 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\PUSH.al)"
-sub PUSH {
- my ( $class, @list ) = @_;
- ${$class->{OBJECT}}->insert('end', @list);
-}
-
-# end of Tk::Listbox::PUSH
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SHIFT.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SHIFT.al
deleted file mode 100644
index 223d943dbac..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SHIFT.al
+++ /dev/null
@@ -1,19 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 336 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\SHIFT.al)"
-# SHIFT
-# -----
-# Removes the first element and returns it
-sub SHIFT {
- my $class = shift;
-
- my $value = ${$class->{OBJECT}}->get(0);
- ${$class->{OBJECT}}->delete(0);
- return $value
-}
-
-# end of Tk::Listbox::SHIFT
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SPLICE.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SPLICE.al
deleted file mode 100644
index 0a50af175b2..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SPLICE.al
+++ /dev/null
@@ -1,84 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 374 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\SPLICE.al)"
-# SPLICE
-# ------
-# Performs equivalent of splice on the listbox contents
-sub SPLICE {
- my $class = shift;
-
- my $self = ${$class->{OBJECT}};
-
- # check for arguments
- my @elements;
- if ( scalar(@_) == 0 ) {
- # none
- @elements = $self->get(0,'end');
- $self->delete(0,'end');
- return wantarray ? @elements : $elements[scalar(@elements)-1];;
-
- } elsif ( scalar(@_) == 1 ) {
- # $offset
- my ( $offset ) = @_;
- if ( $offset < 0 ) {
- my $start = $self->size() + $offset;
- if ( $start > 0 ) {
- @elements = $self->get($start,'end');
- $self->delete($start,'end');
- return wantarray ? @elements : $elements[scalar(@elements)-1];
- } else {
- return undef;
- }
- } else {
- @elements = $self->get($offset,'end');
- $self->delete($offset,'end');
- return wantarray ? @elements : $elements[scalar(@elements)-1];
- }
-
- } elsif ( scalar(@_) == 2 ) {
- # $offset and $length
- my ( $offset, $length ) = @_;
- if ( $offset < 0 ) {
- my $start = $self->size() + $offset;
- my $end = $self->size() + $offset + $length - 1;
- if ( $start > 0 ) {
- @elements = $self->get($start,$end);
- $self->delete($start,$end);
- return wantarray ? @elements : $elements[scalar(@elements)-1];
- } else {
- return undef;
- }
- } else {
- @elements = $self->get($offset,$offset+$length-1);
- $self->delete($offset,$offset+$length-1);
- return wantarray ? @elements : $elements[scalar(@elements)-1];
- }
-
- } else {
- # $offset, $length and @list
- my ( $offset, $length, @list ) = @_;
- if ( $offset < 0 ) {
- my $start = $self->size() + $offset;
- my $end = $self->size() + $offset + $length - 1;
- if ( $start > 0 ) {
- @elements = $self->get($start,$end);
- $self->delete($start,$end);
- $self->insert($start,@list);
- return wantarray ? @elements : $elements[scalar(@elements)-1];
- } else {
- return undef;
- }
- } else {
- @elements = $self->get($offset,$offset+$length-1);
- $self->delete($offset,$offset+$length-1);
- $self->insert($offset,@list);
- return wantarray ? @elements : $elements[scalar(@elements)-1];
- }
- }
-}
-
-# end of Tk::Listbox::SPLICE
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/STORE.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/STORE.al
deleted file mode 100644
index e11db585d8f..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/STORE.al
+++ /dev/null
@@ -1,80 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 232 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\STORE.al)"
-# STORE
-# -----
-# If tied to an array we will modify the Listbox contents, while if tied
-# to a scalar we will select and clear elements.
-sub STORE {
-
- if ( scalar(@_) == 2 ) {
- # we have a tied scalar
- my ( $class, $selected ) = @_;
- my $self = ${$class->{OBJECT}};
- my %options = %{$class->{OPTION}} if defined $class->{OPTION};;
-
- # clear currently selected elements
- $self->selectionClear(0,'end');
-
- # set selected elements
- if ( defined $options{ReturnType} ) {
-
- # THREE-WAY SWITCH
- if ( $options{ReturnType} eq "index" ) {
- for ( my $i=0; $i < scalar(@$selected) ; $i++ ) {
- for ( my $j=0; $j < $self->size() ; $j++ ) {
- if( $j == $$selected[$i] ) {
- $self->selectionSet($j); last; }
- }
- }
- } elsif ( $options{ReturnType} eq "element" ) {
- for ( my $k=0; $k < scalar(@$selected) ; $k++ ) {
- for ( my $l=0; $l < $self->size() ; $l++ ) {
- if( $self->get($l) eq $$selected[$k] ) {
- $self->selectionSet($l); last; }
- }
- }
- } elsif ( $options{ReturnType} eq "both" ) {
- foreach my $key ( keys %$selected ) {
- $self->selectionSet($key)
- if $$selected{$key} eq $self->get($key);
- }
- }
- } else {
- # return elements (default)
- for ( my $k=0; $k < scalar(@$selected) ; $k++ ) {
- for ( my $l=0; $l < $self->size() ; $l++ ) {
- if( $self->get($l) eq $$selected[$k] ) {
- $self->selectionSet($l); last; }
- }
- }
- }
-
- } else {
- # we have a tied array
- my ( $class, $index, $value ) = @_;
- my $self = ${$class->{OBJECT}};
-
- # check size of current contents list
- my $sizeof = $self->size();
-
- if ( $index <= $sizeof ) {
- # Change a current listbox entry
- $self->delete($index);
- $self->insert($index, $value);
- } else {
- # Add a new value
- if ( defined $index ) {
- $self->insert($index, $value);
- } else {
- $self->insert("end", $value);
- }
- }
- }
-}
-
-# end of Tk::Listbox::STORE
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SelectAll.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SelectAll.al
deleted file mode 100644
index 9467b9f1607..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SelectAll.al
+++ /dev/null
@@ -1,32 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 838 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\SelectAll.al)"
-# SelectAll
-#
-# This procedure is invoked to handle the "select all" operation.
-# For single and browse mode, it just selects the active element.
-# Otherwise it selects everything in the widget.
-#
-# Arguments:
-# w - The listbox widget.
-sub SelectAll
-{
- my $w = shift;
- my $mode = $w->cget('-selectmode');
- if ($mode eq 'single' || $mode eq 'browse')
- {
- $w->selectionClear(0,'end');
- $w->selectionSet('active')
- }
- else
- {
- $w->selectionSet(0,'end')
- }
- $w->eventGenerate("<<ListboxSelect>>");
-}
-
-# end of Tk::Listbox::SelectAll
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SetList.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SetList.al
deleted file mode 100644
index f3dfff6a70b..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SetList.al
+++ /dev/null
@@ -1,16 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 862 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\SetList.al)"
-# Perl/Tk extensions:
-sub SetList
-{
- my $w = shift;
- $w->delete(0,'end');
- $w->insert('end',@_);
-}
-
-# end of Tk::Listbox::SetList
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/TIEARRAY.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/TIEARRAY.al
deleted file mode 100644
index e3ce2708a28..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/TIEARRAY.al
+++ /dev/null
@@ -1,15 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 160 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\TIEARRAY.al)"
-sub TIEARRAY {
- my ( $class, $obj, %options ) = @_;
- return bless {
- OBJECT => \$obj,
- OPTION => \%options }, $class;
-}
-
-# end of Tk::Listbox::TIEARRAY
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/TIESCALAR.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/TIESCALAR.al
deleted file mode 100644
index 1f0b7948028..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/TIESCALAR.al
+++ /dev/null
@@ -1,15 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 169 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\TIESCALAR.al)"
-sub TIESCALAR {
- my ( $class, $obj, %options ) = @_;
- return bless {
- OBJECT => \$obj,
- OPTION => \%options }, $class;
-}
-
-# end of Tk::Listbox::TIESCALAR
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/UNSHIFT.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/UNSHIFT.al
deleted file mode 100644
index 958cc1872bd..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/UNSHIFT.al
+++ /dev/null
@@ -1,16 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 347 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\UNSHIFT.al)"
-# UNSHIFT
-# -------
-# Insert elements at the beginning of the Listbox
-sub UNSHIFT {
- my ( $class, @list ) = @_;
- ${$class->{OBJECT}}->insert(0, @list);
-}
-
-# end of Tk::Listbox::UNSHIFT
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/UpDown.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/UpDown.al
deleted file mode 100644
index 505485d930b..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/UpDown.al
+++ /dev/null
@@ -1,41 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 716 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\UpDown.al)"
-# UpDown --
-#
-# Moves the location cursor (active element) up or down by one element,
-# and changes the selection if we're in browse or extended selection
-# mode.
-#
-# Arguments:
-# w - The listbox widget.
-# amount - +1 to move down one item, -1 to move back one item.
-sub UpDown
-{
- my $w = shift;
- my $amount = shift;
- $w->activate($w->index('active')+$amount);
- $w->see('active');
- my $mode = $w->cget('-selectmode');
- if ($mode eq 'browse')
- {
- $w->selectionClear(0,'end');
- $w->selectionSet('active');
- $w->eventGenerate("<<ListboxSelect>>");
- }
- elsif ($mode eq 'extended')
- {
- $w->selectionClear(0,'end');
- $w->selectionSet('active');
- $w->selectionAnchor('active');
- $Prev = $w->index('active');
- @Selection = ();
- $w->eventGenerate("<<ListboxSelect>>");
- }
-}
-
-# end of Tk::Listbox::UpDown
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/autosplit.ix b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/autosplit.ix
deleted file mode 100644
index 04969494ab4..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/autosplit.ix
+++ /dev/null
@@ -1,56 +0,0 @@
-# Index created by AutoSplit for ..\blib\lib\Tk\Listbox.pm
-# (file acts as timestamp)
-package Tk::Listbox;
-sub TIEARRAY ;
-sub TIESCALAR ;
-sub FETCH ;
-sub FETCHSIZE ;
-sub STORE ;
-sub CLEAR ;
-sub EXTEND ;
-sub PUSH ;
-sub POP ;
-sub SHIFT ;
-sub UNSHIFT ;
-sub DELETE ;
-sub EXISTS ;
-sub SPLICE ;
-sub xyIndex
-;
-sub ButtonRelease_1
-;
-sub Cntrl_Home
-;
-sub Cntrl_End
-;
-sub Cntrl_backslash
-;
-sub BeginSelect
-;
-sub Motion
-;
-sub BeginExtend
-;
-sub BeginToggle
-;
-sub AutoScan
-;
-sub UpDown
-;
-sub ExtendUpDown
-;
-sub DataExtend
-;
-sub Cancel
-;
-sub SelectAll
-;
-sub SetList
-;
-sub deleteSelected
-;
-sub clipboardPaste
-;
-sub getSelected
-;
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/clipboardPaste.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/clipboardPaste.al
deleted file mode 100644
index a9582d018a8..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/clipboardPaste.al
+++ /dev/null
@@ -1,21 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 880 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\clipboardPaste.al)"
-sub clipboardPaste
-{
- my $w = shift;
- my $index = $w->index('active') || $w->index($w->XEvent->xy);
- my $str;
- eval {local $SIG{__DIE__}; $str = $w->clipboardGet };
- return if $@;
- foreach (split("\n",$str))
- {
- $w->insert($index++,$_);
- }
-}
-
-# end of Tk::Listbox::clipboardPaste
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/deleteSelected.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/deleteSelected.al
deleted file mode 100644
index f57eca9de68..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/deleteSelected.al
+++ /dev/null
@@ -1,18 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 870 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\deleteSelected.al)"
-sub deleteSelected
-{
- my $w = shift;
- my $i;
- foreach $i (reverse $w->curselection)
- {
- $w->delete($i);
- }
-}
-
-# end of Tk::Listbox::deleteSelected
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/getSelected.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/getSelected.al
deleted file mode 100644
index fba174e2de4..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/getSelected.al
+++ /dev/null
@@ -1,24 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 893 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\getSelected.al)"
-sub getSelected
-{
- my ($w) = @_;
- my $i;
- my (@result) = ();
- foreach $i ($w->curselection)
- {
- push(@result,$w->get($i));
- }
- return (wantarray) ? @result : $result[0];
-}
-
-1;
-__END__
-
-
-1;
-# end of Tk::Listbox::getSelected
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/xyIndex.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/xyIndex.al
deleted file mode 100644
index 44ae09b2bad..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/xyIndex.al
+++ /dev/null
@@ -1,29 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Listbox.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Listbox;
-
-#line 450 "..\blib\lib\Tk\Listbox.pm (autosplit into ..\blib\lib\auto\Tk\Listbox\xyIndex.al)"
-# ----
-
-#
-# Bind --
-# This procedure is invoked the first time the mouse enters a listbox
-# widget or a listbox widget receives the input focus. It creates
-# all of the class bindings for listboxes.
-#
-# Arguments:
-# event - Indicates which event caused the procedure to be invoked
-# (Enter or FocusIn). It is used so that we can carry out
-# the functions of that event in addition to setting up
-# bindings.
-
-sub xyIndex
-{
- my $w = shift;
- my $Ev = $w->XEvent;
- return $w->index($Ev->xy);
-}
-
-# end of Tk::Listbox::xyIndex
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Menubutton/Menubutton.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/Menubutton/Menubutton.dll
deleted file mode 100755
index 685874a6ec4..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Menubutton/Menubutton.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/NBFrame/NBFrame.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/NBFrame/NBFrame.dll
deleted file mode 100755
index c003318840a..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/NBFrame/NBFrame.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/PNG/PNG.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/PNG/PNG.dll
deleted file mode 100755
index 9260f4a7b77..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/PNG/PNG.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Pixmap/Pixmap.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/Pixmap/Pixmap.dll
deleted file mode 100755
index b2859bafcef..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Pixmap/Pixmap.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Receive.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Receive.al
deleted file mode 100644
index c226b4545bc..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Receive.al
+++ /dev/null
@@ -1,23 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 764 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\Receive.al)"
-# If we have sub Clipboard in Tk then use base qw(Tk::Clipboard ....)
-# calls it when it does its eval "require $base"
-#sub Clipboard
-#{my $w = shift;
-# my $cmd = shift;
-# croak "Use clipboard\u$cmd()";
-#}
-
-sub Receive
-{
- my $w = shift;
- warn 'Receive(' . join(',',@_) .')';
- die 'Tk rejects send(' . join(',',@_) .")\n";
-}
-
-# end of Tk::Receive
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/RepeatId.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/RepeatId.al
deleted file mode 100644
index 1560d9281e8..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/RepeatId.al
+++ /dev/null
@@ -1,16 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 516 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\RepeatId.al)"
-sub RepeatId
-{
- my ($w,$id) = @_;
- $w = $w->MainWindow;
- $w->CancelRepeat;
- $w->{_afterId_} = $id;
-}
-
-# end of Tk::RepeatId
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Activate.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Activate.al
deleted file mode 100644
index 2ca15840591..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Activate.al
+++ /dev/null
@@ -1,33 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scale.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scale;
-
-#line 86 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Activate.al)"
-# Activate --
-# This procedure is invoked to check a given x-y position in the
-# scale and activate the slider if the x-y position falls within
-# the slider.
-#
-# Arguments:
-# w - The scale widget.
-# x, y - Mouse coordinates.
-sub Activate
-{
- my $w = shift;
- my $x = shift;
- my $y = shift;
- return if ($w->cget('-state') eq 'disabled');
- my $ident = $w->identify($x,$y);
- if (defined($ident) && $ident eq 'slider')
- {
- $w->configure(-state => 'active')
- }
- else
- {
- $w->configure(-state => 'normal')
- }
-}
-
-# end of Tk::Scale::Activate
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/ButtonDown.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/ButtonDown.al
deleted file mode 100644
index c8897521392..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/ButtonDown.al
+++ /dev/null
@@ -1,40 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scale.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scale;
-
-#line 138 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\ButtonDown.al)"
-# ButtonDown --
-# This procedure is invoked when a button is pressed in a scale. It
-# takes different actions depending on where the button was pressed.
-#
-# Arguments:
-# w - The scale widget.
-# x, y - Mouse coordinates of button press.
-sub ButtonDown
-{
- my $w = shift;
- my $x = shift;
- my $y = shift;
- $Tk::dragging = 0;
- $el = $w->identify($x,$y);
- return unless ($el);
- if ($el eq 'trough1')
- {
- $w->Increment('up','little','initial')
- }
- elsif ($el eq 'trough2')
- {
- $w->Increment('down','little','initial')
- }
- elsif ($el eq 'slider')
- {
- $Tk::dragging = 1;
- my @coords = $w->coords();
- $Tk::deltaX = $x-$coords[0];
- $Tk::deltaY = $y-$coords[1];
- }
-}
-
-# end of Tk::Scale::ButtonDown
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/ButtonUp.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/ButtonUp.al
deleted file mode 100644
index 4c1e6cc48f0..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/ButtonUp.al
+++ /dev/null
@@ -1,16 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scale.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scale;
-
-#line 129 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\ButtonUp.al)"
-sub ButtonUp
-{
- my ($w,$x,$y) = @_;
- $w->CancelRepeat();
- $w->EndDrag();
- $w->Activate($x,$y)
-}
-
-# end of Tk::Scale::ButtonUp
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/ControlPress.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/ControlPress.al
deleted file mode 100644
index 2819560c510..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/ControlPress.al
+++ /dev/null
@@ -1,31 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scale.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scale;
-
-#line 255 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\ControlPress.al)"
-# ControlPress --
-# This procedure handles button presses that are made with the Control
-# key down. Depending on the mouse position, it adjusts the scale
-# value to one end of the range or the other.
-#
-# Arguments:
-# w - The scale widget.
-# x, y - Mouse coordinates where the button was pressed.
-sub ControlPress
-{
- my ($w,$x,$y) = @_;
- my $el = $w->identify($x,$y);
- return unless ($el);
- if ($el eq 'trough1')
- {
- $w->set($w->cget('-from'))
- }
- elsif ($el eq 'trough2')
- {
- $w->set($w->cget('-to'))
- }
-}
-
-1;
-# end of Tk::Scale::ControlPress
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Drag.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Drag.al
deleted file mode 100644
index 78d121fc0d6..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Drag.al
+++ /dev/null
@@ -1,29 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scale.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scale;
-
-#line 169 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Drag.al)"
-# Drag --
-# This procedure is called when the mouse is dragged with
-# mouse button 1 down. If the drag started inside the slider
-# (i.e. the scale is active) then the scale's value is adjusted
-# to reflect the mouse's position.
-#
-# Arguments:
-# w - The scale widget.
-# x, y - Mouse coordinates.
-sub Drag
-{
- my $w = shift;
- my $x = shift;
- my $y = shift;
- if (!$Tk::dragging)
- {
- return;
- }
- $w->set($w->get($x-$Tk::deltaX,$y-$Tk::deltaY))
-}
-
-# end of Tk::Scale::Drag
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/EndDrag.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/EndDrag.al
deleted file mode 100644
index e806a2508ce..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/EndDrag.al
+++ /dev/null
@@ -1,23 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scale.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scale;
-
-#line 189 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\EndDrag.al)"
-# EndDrag --
-# This procedure is called to end an interactive drag of the
-# slider. It just marks the drag as over.
-# Arguments:
-# w - The scale widget.
-sub EndDrag
-{
- my $w = shift;
- if (!$Tk::dragging)
- {
- return;
- }
- $Tk::dragging = 0;
-}
-
-# end of Tk::Scale::EndDrag
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Enter.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Enter.al
deleted file mode 100644
index 83de3aea693..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Enter.al
+++ /dev/null
@@ -1,19 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scale.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scale;
-
-#line 118 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Enter.al)"
-sub Enter
-{
- my ($w,$x,$y) = @_;
- if ($Tk::strictMotif)
- {
- $w->{'activeBg'} = $w->cget('-activebackground');
- $w->configure('-activebackground',$w->cget('-background'));
- }
- $w->Activate($x,$y);
-}
-
-# end of Tk::Scale::Enter
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Increment.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Increment.al
deleted file mode 100644
index a25950add7c..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Increment.al
+++ /dev/null
@@ -1,61 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scale.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scale;
-
-#line 203 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Increment.al)"
-# Increment --
-# This procedure is invoked to increment the value of a scale and
-# to set up auto-repeating of the action if that is desired. The
-# way the value is incremented depends on the "dir" and "big"
-# arguments.
-#
-# Arguments:
-# w - The scale widget.
-# dir - "up" means move value towards -from, "down" means
-# move towards -to.
-# big - Size of increments: "big" or "little".
-# repeat - Whether and how to auto-repeat the action: "noRepeat"
-# means don't auto-repeat, "initial" means this is the
-# first action in an auto-repeat sequence, and "again"
-# means this is the second repetition or later.
-sub Increment
-{
- my $w = shift;
- my $dir = shift;
- my $big = shift;
- my $repeat = shift;
- my $inc;
- if ($big eq 'big')
- {
- $inc = $w->cget('-bigincrement');
- if ($inc == 0)
- {
- $inc = abs(($w->cget('-to')-$w->cget('-from')))/10.0
- }
- if ($inc < $w->cget('-resolution'))
- {
- $inc = $w->cget('-resolution')
- }
- }
- else
- {
- $inc = $w->cget('-resolution')
- }
- if (($w->cget('-from') > $w->cget('-to')) ^ ($dir eq 'up'))
- {
- $inc = -$inc
- }
- $w->set($w->get()+$inc);
- if ($repeat eq 'again')
- {
- $w->RepeatId($w->after($w->cget('-repeatinterval'),'Increment',$w,$dir,$big,'again'));
- }
- elsif ($repeat eq 'initial')
- {
- $w->RepeatId($w->after($w->cget('-repeatdelay'),'Increment',$w,$dir,$big,'again'));
- }
-}
-
-# end of Tk::Scale::Increment
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Leave.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Leave.al
deleted file mode 100644
index ed26447586a..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Leave.al
+++ /dev/null
@@ -1,15 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scale.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scale;
-
-#line 111 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\Leave.al)"
-sub Leave
-{
- my ($w) = @_;
- $w->configure('-activebackground',$w->{'activeBg'}) if ($Tk::strictMotif);
- $w->configure('-state','normal') if ($w->cget('-state') eq 'active');
-}
-
-# end of Tk::Scale::Leave
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Scale.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Scale.dll
deleted file mode 100755
index 9a29cd449e6..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Scale.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/autosplit.ix b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/autosplit.ix
deleted file mode 100644
index b1a9504ed76..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/autosplit.ix
+++ /dev/null
@@ -1,22 +0,0 @@
-# Index created by AutoSplit for ..\blib\lib\Tk\Scale.pm
-# (file acts as timestamp)
-package Tk::Scale;
-sub Activate
-;
-sub Leave
-;
-sub Enter
-;
-sub ButtonUp
-;
-sub ButtonDown
-;
-sub Drag
-;
-sub EndDrag
-;
-sub Increment
-;
-sub ControlPress
-;
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ButtonDown.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ButtonDown.al
deleted file mode 100644
index 1d55c12efd6..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ButtonDown.al
+++ /dev/null
@@ -1,55 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scrollbar;
-
-#line 116 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ButtonDown.al)"
-# tkScrollButtonDown --
-# This procedure is invoked when a button is pressed in a scrollbar.
-# It changes the way the scrollbar is displayed and takes actions
-# depending on where the mouse is.
-#
-# Arguments:
-# w - The scrollbar widget.
-# x, y - Mouse coordinates.
-
-sub ButtonDown
-{my $w = shift;
- my $e = $w->XEvent;
- my $element = $w->identify($e->x,$e->y);
- $w->configure('-activerelief' => 'sunken');
- if ($e->b == 1 and
- (defined($element) && $element eq 'slider'))
- {
- $w->StartDrag($e->x,$e->y);
- }
- elsif ($e->b == 2 and
- (defined($element) && $element =~ /^(trough[12]|slider)$/o))
- {
- my $pos = $w->fraction($e->x, $e->y);
- my($head, $tail) = $w->get;
- my $len = $tail - $head;
-
- $head = $pos - $len/2;
- $tail = $pos + $len/2;
- if ($head < 0) {
- $head = 0;
- $tail = $len;
- }
- elsif ($tail > 1) {
- $head = 1 - $len;
- $tail = 1;
- }
- $w->ScrlToPos($head);
- $w->set($head, $tail);
-
- $w->StartDrag($e->x,$e->y);
- }
- else
- {
- $w->Select($element,'initial');
- }
-}
-
-# end of Tk::Scrollbar::ButtonDown
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ButtonUp.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ButtonUp.al
deleted file mode 100644
index 9a99727a375..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ButtonUp.al
+++ /dev/null
@@ -1,26 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scrollbar;
-
-#line 163 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ButtonUp.al)"
-# tkScrollButtonUp --
-# This procedure is invoked when a button is released in a scrollbar.
-# It cancels scans and auto-repeats that were in progress, and restores
-# the way the active element is displayed.
-#
-# Arguments:
-# w - The scrollbar widget.
-# x, y - Mouse coordinates.
-
-sub ButtonUp
-{my $w = shift;
- my $e = $w->XEvent;
- $w->CancelRepeat;
- $w->configure('-activerelief' => 'raised');
- $w->EndDrag($e->x,$e->y);
- $w->activate($w->identify($e->x,$e->y));
-}
-
-# end of Tk::Scrollbar::ButtonUp
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Drag.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Drag.al
deleted file mode 100644
index 0baa3053ee4..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Drag.al
+++ /dev/null
@@ -1,43 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scrollbar;
-
-#line 262 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\Drag.al)"
-# tkScrollDrag --
-# This procedure is called for each mouse motion even when the slider
-# is being dragged. It notifies the associated widget if we're not
-# jump scrolling, and it just updates the scrollbar if we are jump
-# scrolling.
-#
-# Arguments:
-# w - The scrollbar widget.
-# x, y - The current mouse position.
-
-sub Drag
-{
- my($w,$x,$y) = @_;
- return if !defined $initPos;
- my $delta = $w->delta($x-$pressX, $y-$pressY);
- if ($w->cget('-jump'))
- {
- if (@initValues == 2)
- {
- $w->set($initValues[0]+$delta, $initValues[1]+$delta);
- }
- else
- {
- $delta = sprintf "%d", $delta * $initValues[0]; # round()
- $initValues[2] += $delta;
- $initValues[3] += $delta;
- $w->set(@initValues[2,3]);
- }
- }
- else
- {
- $w->ScrlToPos($initPos+$delta);
- }
-}
-
-# end of Tk::Scrollbar::Drag
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/EndDrag.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/EndDrag.al
deleted file mode 100644
index 2c440bd8379..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/EndDrag.al
+++ /dev/null
@@ -1,28 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scrollbar;
-
-#line 297 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\EndDrag.al)"
-# tkScrollEndDrag --
-# This procedure is called to end an interactive drag of the slider.
-# It scrolls the window if we're in jump mode, otherwise it does nothing.
-#
-# Arguments:
-# w - The scrollbar widget.
-# x, y - The mouse position at the end of the drag operation.
-
-sub EndDrag
-{
- my($w,$x,$y) = @_;
- return if (!defined $initPos);
- if ($w->cget('-jump'))
- {
- my $delta = $w->delta($x-$pressX, $y-$pressY);
- $w->ScrlToPos($initPos+$delta);
- }
- undef $initPos;
-}
-
-# end of Tk::Scrollbar::EndDrag
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Enter.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Enter.al
deleted file mode 100644
index d99c164cd19..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Enter.al
+++ /dev/null
@@ -1,21 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scrollbar;
-
-#line 86 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\Enter.al)"
-sub Enter
-{
- my $w = shift;
- my $e = $w->XEvent;
- if ($Tk::strictMotif)
- {
- my $bg = $w->cget('-background');
- $activeBg = $w->cget('-activebackground');
- $w->configure('-activebackground' => $bg);
- }
- $w->activate($w->identify($e->x,$e->y));
-}
-
-# end of Tk::Scrollbar::Enter
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Leave.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Leave.al
deleted file mode 100644
index da93c152108..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Leave.al
+++ /dev/null
@@ -1,18 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scrollbar;
-
-#line 99 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\Leave.al)"
-sub Leave
-{
- my $w = shift;
- if ($Tk::strictMotif)
- {
- $w->configure('-activebackground' => $activeBg) if (defined $activeBg) ;
- }
- $w->activate('');
-}
-
-# end of Tk::Scrollbar::Leave
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Motion.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Motion.al
deleted file mode 100644
index 3aa05333bf1..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Motion.al
+++ /dev/null
@@ -1,15 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scrollbar;
-
-#line 109 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\Motion.al)"
-sub Motion
-{
- my $w = shift;
- my $e = $w->XEvent;
- $w->activate($w->identify($e->x,$e->y));
-}
-
-# end of Tk::Scrollbar::Motion
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlByPages.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlByPages.al
deleted file mode 100644
index ac0315a47ec..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlByPages.al
+++ /dev/null
@@ -1,38 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scrollbar;
-
-#line 346 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ScrlByPages.al)"
-# tkScrlByPages --
-# This procedure tells the scrollbar's associated widget to scroll up
-# or down by a given number of screenfuls. It notifies the associated
-# widget in different ways for old and new command syntaxes.
-#
-# Arguments:
-# w - The scrollbar widget.
-# orient - Which kinds of scrollbars this applies to: "h" for
-# horizontal, "v" for vertical, "hv" for both.
-# amount - How many screens to scroll: typically 1 or -1.
-
-sub ScrlByPages
-{
- my $w = shift;
- my $orient = shift;
- my $amount = shift;
- my $cmd = $w->cget('-command');
- return unless (defined $cmd);
- return if (index($orient,substr($w->cget('-orient'),0,1)) < 0);
- my @info = $w->get;
- if (@info == 2)
- {
- $cmd->Call('scroll',$amount,'pages');
- }
- else
- {
- $cmd->Call($info[2]+$amount*($info[1]-1));
- }
-}
-
-# end of Tk::Scrollbar::ScrlByPages
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlByUnits.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlByUnits.al
deleted file mode 100644
index 1b38c5e5515..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlByUnits.al
+++ /dev/null
@@ -1,37 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scrollbar;
-
-#line 317 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ScrlByUnits.al)"
-# tkScrlByUnits --
-# This procedure tells the scrollbar's associated widget to scroll up
-# or down by a given number of units. It notifies the associated widget
-# in different ways for old and new command syntaxes.
-#
-# Arguments:
-# w - The scrollbar widget.
-# orient - Which kinds of scrollbars this applies to: "h" for
-# horizontal, "v" for vertical, "hv" for both.
-# amount - How many units to scroll: typically 1 or -1.
-
-sub ScrlByUnits
-{my $w = shift;
- my $orient = shift;
- my $amount = shift;
- my $cmd = $w->cget('-command');
- return unless (defined $cmd);
- return if (index($orient,substr($w->cget('-orient'),0,1)) < 0);
- my @info = $w->get;
- if (@info == 2)
- {
- $cmd->Call('scroll',$amount,'units');
- }
- else
- {
- $cmd->Call($info[2]+$amount);
- }
-}
-
-# end of Tk::Scrollbar::ScrlByUnits
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlToPos.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlToPos.al
deleted file mode 100644
index 16680ea5f39..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlToPos.al
+++ /dev/null
@@ -1,35 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scrollbar;
-
-#line 376 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ScrlToPos.al)"
-# tkScrlToPos --
-# This procedure tells the scrollbar's associated widget to scroll to
-# a particular location, given by a fraction between 0 and 1. It notifies
-# the associated widget in different ways for old and new command syntaxes.
-#
-# Arguments:
-# w - The scrollbar widget.
-# pos - A fraction between 0 and 1 indicating a desired position
-# in the document.
-
-sub ScrlToPos
-{
- my $w = shift;
- my $pos = shift;
- my $cmd = $w->cget('-command');
- return unless (defined $cmd);
- my @info = $w->get;
- if (@info == 2)
- {
- $cmd->Call('moveto',$pos);
- }
- else
- {
- $cmd->Call(int($info[0]*$pos));
- }
-}
-
-# end of Tk::Scrollbar::ScrlToPos
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlTopBottom.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlTopBottom.al
deleted file mode 100644
index fc1060a885e..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlTopBottom.al
+++ /dev/null
@@ -1,32 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scrollbar;
-
-#line 403 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\ScrlTopBottom.al)"
-# tkScrlTopBottom
-# Scroll to the top or bottom of the document, depending on the mouse
-# position.
-#
-# Arguments:
-# w - The scrollbar widget.
-# x, y - Mouse coordinates within the widget.
-
-sub ScrlTopBottom
-{
- my $w = shift;
- my $e = $w->XEvent;
- my $element = $w->identify($e->x,$e->y);
- return unless ($element);
- if ($element =~ /1$/)
- {
- $w->ScrlToPos(0);
- }
- elsif ($element =~ /2$/)
- {
- $w->ScrlToPos(1);
- }
-}
-
-1;
-# end of Tk::Scrollbar::ScrlTopBottom
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Scrollbar.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Scrollbar.dll
deleted file mode 100755
index 63b9ae958d1..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Scrollbar.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Select.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Select.al
deleted file mode 100644
index 4053bc4d3bc..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Select.al
+++ /dev/null
@@ -1,59 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scrollbar;
-
-#line 181 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\Select.al)"
-# tkScrollSelect --
-# This procedure is invoked when button 1 is pressed over the scrollbar.
-# It invokes one of several scrolling actions depending on where in
-# the scrollbar the button was pressed.
-#
-# Arguments:
-# w - The scrollbar widget.
-# element - The element of the scrollbar that was selected, such
-# as "arrow1" or "trough2". Shouldn't be "slider".
-# repeat - Whether and how to auto-repeat the action: "noRepeat"
-# means don't auto-repeat, "initial" means this is the
-# first action in an auto-repeat sequence, and "again"
-# means this is the second repetition or later.
-
-sub Select
-{
- my $w = shift;
- my $element = shift;
- my $repeat = shift;
- return unless defined ($element);
- if ($element eq 'arrow1')
- {
- $w->ScrlByUnits('hv',-1);
- }
- elsif ($element eq 'trough1')
- {
- $w->ScrlByPages('hv',-1);
- }
- elsif ($element eq 'trough2')
- {
- $w->ScrlByPages('hv', 1);
- }
- elsif ($element eq 'arrow2')
- {
- $w->ScrlByUnits('hv', 1);
- }
- else
- {
- return;
- }
-
- if ($repeat eq 'again')
- {
- $w->RepeatId($w->after($w->cget('-repeatinterval'),['Select',$w,$element,'again']));
- }
- elsif ($repeat eq 'initial')
- {
- $w->RepeatId($w->after($w->cget('-repeatdelay'),['Select',$w,$element,'again']));
- }
-}
-
-# end of Tk::Scrollbar::Select
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/StartDrag.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/StartDrag.al
deleted file mode 100644
index d96def85504..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/StartDrag.al
+++ /dev/null
@@ -1,38 +0,0 @@
-# NOTE: Derived from ..\blib\lib\Tk\Scrollbar.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Scrollbar;
-
-#line 232 "..\blib\lib\Tk\Scrollbar.pm (autosplit into ..\blib\lib\auto\Tk\Scrollbar\StartDrag.al)"
-# tkScrollStartDrag --
-# This procedure is called to initiate a drag of the slider. It just
-# remembers the starting position of the slider.
-#
-# Arguments:
-# w - The scrollbar widget.
-# x, y - The mouse position at the start of the drag operation.
-
-sub StartDrag
-{
- my($w,$x,$y) = @_;
- return unless (defined ($w->cget('-command')));
- $pressX = $x;
- $pressY = $y;
- @initValues = $w->get;
- my $iv0 = $initValues[0];
- if (@initValues == 2)
- {
- $initPos = $iv0;
- }
- elsif ($iv0 == 0)
- {
- $initPos = 0;
- }
- else
- {
- $initPos = $initValues[2]/$initValues[0];
- }
-}
-
-# end of Tk::Scrollbar::StartDrag
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/autosplit.ix b/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/autosplit.ix
deleted file mode 100644
index f95b7790171..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/autosplit.ix
+++ /dev/null
@@ -1,30 +0,0 @@
-# Index created by AutoSplit for ..\blib\lib\Tk\Scrollbar.pm
-# (file acts as timestamp)
-package Tk::Scrollbar;
-sub Enter
-;
-sub Leave
-;
-sub Motion
-;
-sub ButtonDown
-;
-sub ButtonUp
-;
-sub Select
-;
-sub StartDrag
-;
-sub Drag
-;
-sub EndDrag
-;
-sub ScrlByUnits
-;
-sub ScrlByPages
-;
-sub ScrlToPos
-;
-sub ScrlTopBottom
-;
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Selection.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Selection.al
deleted file mode 100644
index b20ec1cc780..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Selection.al
+++ /dev/null
@@ -1,18 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 754 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\Selection.al)"
-# These wrappers don't use method syntax so need to live
-# in same package as raw Tk routines are newXS'ed into.
-
-sub Selection
-{my $widget = shift;
- my $cmd = shift;
- croak 'Use SelectionOwn/SelectionOwner' if ($cmd eq 'own');
- croak "Use Selection\u$cmd()";
-}
-
-# end of Tk::Selection
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/TList/TList.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/TList/TList.dll
deleted file mode 100755
index 07a4dc6daf1..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/TList/TList.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/Create.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/Create.al
deleted file mode 100644
index 227abc591dd..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/Create.al
+++ /dev/null
@@ -1,17 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Table.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Table;
-
-#line 534 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\Create.al)"
-sub Create
-{
- my $t = shift;
- my $r = shift;
- my $c = shift;
- my $kind = shift;
- $t->put($r,$c,$t->$kind(@_));
-}
-
-# end of Tk::Table::Create
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/Posn.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/Posn.al
deleted file mode 100644
index 66cb7b255f7..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/Posn.al
+++ /dev/null
@@ -1,15 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Table.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Table;
-
-#line 553 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\Posn.al)"
-sub Posn
-{
- my ($t,$s) = @_;
- my $info = $t->{Slave}{$s->PathName};
- return (wantarray) ? @$info : $info;
-}
-
-# end of Tk::Table::Posn
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/autosplit.ix b/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/autosplit.ix
deleted file mode 100644
index 489326dff77..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/autosplit.ix
+++ /dev/null
@@ -1,14 +0,0 @@
-# Index created by AutoSplit for blib\lib\Tk\Table.pm
-# (file acts as timestamp)
-package Tk::Table;
-sub Create
-;
-sub totalColumns
-;
-sub totalRows
-;
-sub Posn
-;
-sub see
-;
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/see.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/see.al
deleted file mode 100644
index aa5eb5c39e7..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/see.al
+++ /dev/null
@@ -1,46 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Table.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Table;
-
-#line 560 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\see.al)"
-sub see
-{
- my $t = shift;
- my ($row,$col) = (@_ == 2) ? @_ : @{$t->{Slave}{$_[0]->PathName}};
- my $see = 1;
- if (($row -= $t->cget('-fixedrows')) >= 0)
- {
- if ($row < $t->{Top})
- {
- $t->{Top} = $row;
- $t->QueueLayout(_ViewChange);
- $see = 0;
- }
- elsif ($row >= $t->{Bottom})
- {
- $t->{Top} += ($row - $t->{Bottom}+1);
- $t->QueueLayout(_ViewChange);
- $see = 0;
- }
- }
- if (($col -= $t->cget('-fixedcolumns')) >= 0)
- {
- if ($col < $t->{Left})
- {
- $t->{Left} = $col;
- $t->QueueLayout(_ViewChange);
- $see = 0;
- }
- elsif ($col >= $t->{Right})
- {
- $t->{Left} += ($col - $t->{Right}+1);
- $t->QueueLayout(_ViewChange);
- $see = 0;
- }
- }
- return $see;
-}
-
-1;
-# end of Tk::Table::see
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/totalColumns.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/totalColumns.al
deleted file mode 100644
index 850a5e06b1e..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/totalColumns.al
+++ /dev/null
@@ -1,13 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Table.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Table;
-
-#line 543 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\totalColumns.al)"
-sub totalColumns
-{
- scalar @{shift->{'Width'}};
-}
-
-# end of Tk::Table::totalColumns
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/totalRows.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/totalRows.al
deleted file mode 100644
index ad2a26da87d..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Table/totalRows.al
+++ /dev/null
@@ -1,13 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Table.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Table;
-
-#line 548 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\totalRows.al)"
-sub totalRows
-{
- scalar @{shift->{'Height'}};
-}
-
-# end of Tk::Table::totalRows
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Text/Text.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/Text/Text.dll
deleted file mode 100755
index c14323ccc9c..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Text/Text.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Text/autosplit.ix b/Master/tlpkg/tlperl/site/lib/auto/Tk/Text/autosplit.ix
deleted file mode 100644
index a1915a94d86..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Text/autosplit.ix
+++ /dev/null
@@ -1,3 +0,0 @@
-# Index created by AutoSplit for ..\blib\lib\Tk\Text.pm
-# (file acts as timestamp)
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/TextEdit/autosplit.ix b/Master/tlpkg/tlperl/site/lib/auto/Tk/TextEdit/autosplit.ix
deleted file mode 100644
index bf14133c9a7..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/TextEdit/autosplit.ix
+++ /dev/null
@@ -1,3 +0,0 @@
-# Index created by AutoSplit for blib\lib\Tk\TextEdit.pm
-# (file acts as timestamp)
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/TextUndo/autosplit.ix b/Master/tlpkg/tlperl/site/lib/auto/Tk/TextUndo/autosplit.ix
deleted file mode 100644
index aad4fb45e6c..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/TextUndo/autosplit.ix
+++ /dev/null
@@ -1,3 +0,0 @@
-# Index created by AutoSplit for blib\lib\Tk\TextUndo.pm
-# (file acts as timestamp)
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/TixGrid/TixGrid.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/TixGrid/TixGrid.dll
deleted file mode 100755
index d68c98bf2a4..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/TixGrid/TixGrid.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Tk.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/Tk.dll
deleted file mode 100755
index 7e135378ed1..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Tk.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_BindIn.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_BindIn.al
deleted file mode 100644
index e6be04f701f..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_BindIn.al
+++ /dev/null
@@ -1,19 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Toplevel.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Toplevel;
-
-#line 128 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_BindIn.al)"
-# tkFocusGroup_BindIn --
-#
-# Add a widget into the "FocusIn" list of the focus group. The $cmd will be
-# called when the widget is focused on by the user.
-#
-sub FG_BindIn {
- my($t, $w, $cmd) = @_;
- $t->Error("focus group \"$t\" doesn't exist") unless (exists $t->{'_fg'});
- $t->{'_FocusIn'}{$w} = Tk::Callback->new($cmd);
-}
-
-# end of Tk::Toplevel::FG_BindIn
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_BindOut.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_BindOut.al
deleted file mode 100644
index 5f34327fbac..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_BindOut.al
+++ /dev/null
@@ -1,20 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Toplevel.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Toplevel;
-
-#line 139 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_BindOut.al)"
-# tkFocusGroup_BindOut --
-#
-# Add a widget into the "FocusOut" list of the focus group. The
-# $cmd will be called when the widget loses the focus (User
-# types Tab or click on another widget).
-#
-sub FG_BindOut {
- my($t, $w, $cmd) = @_;
- $t->Error("focus group \"$t\" doesn't exist") unless (exists $t->{'_fg'});
- $t->{'_FocusOut'}{$w} = Tk::Callback->new($cmd);
-}
-
-# end of Tk::Toplevel::FG_BindOut
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_Create.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_Create.al
deleted file mode 100644
index dfdfa0ab02f..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_Create.al
+++ /dev/null
@@ -1,56 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Toplevel.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Toplevel;
-
-#line 80 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_Create.al)"
-#----------------------------------------------------------------------
-#
-# Focus Group
-#
-# Focus groups are used to handle the user's focusing actions inside a
-# toplevel.
-#
-# One example of using focus groups is: when the user focuses on an
-# entry, the text in the entry is highlighted and the cursor is put to
-# the end of the text. When the user changes focus to another widget,
-# the text in the previously focused entry is validated.
-#
-
-#----------------------------------------------------------------------
-# tkFocusGroup_Create --
-#
-# Create a focus group. All the widgets in a focus group must be
-# within the same focus toplevel. Each toplevel can have only
-# one focus group, which is identified by the name of the
-# toplevel widget.
-#
-sub FG_Create {
- my $t = shift;
- unless (exists $t->{'_fg'}) {
- $t->{'_fg'} = 1;
- $t->bind('<FocusIn>', sub {
- my $w = shift;
- my $Ev = $w->XEvent;
- $t->FG_In($w, $Ev->d);
- }
- );
- $t->bind('<FocusOut>', sub {
- my $w = shift;
- my $Ev = $w->XEvent;
- $t->FG_Out($w, $Ev->d);
- }
- );
- $t->bind('<Destroy>', sub {
- my $w = shift;
- my $Ev = $w->XEvent;
- $t->FG_Destroy($w);
- }
- );
- # <Destroy> is not sufficient to break loops if never mapped.
- $t->OnDestroy([$t,'FG_Destroy']);
- }
-}
-
-# end of Tk::Toplevel::FG_Create
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_Destroy.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_Destroy.al
deleted file mode 100644
index 7aa5bfe5444..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_Destroy.al
+++ /dev/null
@@ -1,29 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Toplevel.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Toplevel;
-
-#line 151 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_Destroy.al)"
-# tkFocusGroup_Destroy --
-#
-# Cleans up when members of the focus group is deleted, or when the
-# toplevel itself gets deleted.
-#
-sub FG_Destroy {
- my($t, $w) = @_;
- if (!defined($w) || $t == $w) {
- delete $t->{'_fg'};
- delete $t->{'_focus'};
- delete $t->{'_FocusOut'};
- delete $t->{'_FocusIn'};
- } else {
- if (exists $t->{'_focus'}) {
- delete $t->{'_focus'} if ($t->{'_focus'} == $w);
- }
- delete $t->{'_FocusIn'}{$w};
- delete $t->{'_FocusOut'}{$w};
- }
-}
-
-# end of Tk::Toplevel::FG_Destroy
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_In.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_In.al
deleted file mode 100644
index 7c6e54d12d9..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_In.al
+++ /dev/null
@@ -1,24 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Toplevel.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Toplevel;
-
-#line 172 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_In.al)"
-# tkFocusGroup_In --
-#
-# Handles the <FocusIn> event. Calls the FocusIn command for the newly
-# focused widget in the focus group.
-#
-sub FG_In {
- my($t, $w, $detail) = @_;
- if (defined $t->{'_focus'} and $t->{'_focus'} eq $w) {
- # This is already in focus
- return;
- } else {
- $t->{'_focus'} = $w;
- $t->{'_FocusIn'}{$w}->Call if exists $t->{'_FocusIn'}{$w};
- }
-}
-
-# end of Tk::Toplevel::FG_In
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_Out.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_Out.al
deleted file mode 100644
index f7c876f37bd..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_Out.al
+++ /dev/null
@@ -1,32 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Toplevel.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Toplevel;
-
-#line 188 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_Out.al)"
-# tkFocusGroup_Out --
-#
-# Handles the <FocusOut> event. Checks if this is really a lose
-# focus event, not one generated by the mouse moving out of the
-# toplevel window. Calls the FocusOut command for the widget
-# who loses its focus.
-#
-sub FG_Out {
- my($t, $w, $detail) = @_;
- if ($detail ne 'NotifyNonlinear' and $detail ne 'NotifyNonlinearVirtual') {
- # This is caused by mouse moving out of the window
- return;
- }
- unless (exists $t->{'_FocusOut'}{$w}) {
- return;
- } else {
- $t->{'_FocusOut'}{$w}->Call;
- delete $t->{'_focus'};
- }
-}
-
-1;
-
-__END__
-1;
-# end of Tk::Toplevel::FG_Out
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/autosplit.ix b/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/autosplit.ix
deleted file mode 100644
index d19d7e287b9..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/autosplit.ix
+++ /dev/null
@@ -1,10 +0,0 @@
-# Index created by AutoSplit for blib\lib\Tk\Toplevel.pm
-# (file acts as timestamp)
-package Tk::Toplevel;
-sub FG_Create ;
-sub FG_BindIn ;
-sub FG_BindOut ;
-sub FG_Destroy ;
-sub FG_In ;
-sub FG_Out ;
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/TraverseToMenu.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/TraverseToMenu.al
deleted file mode 100644
index 7682028c21a..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/TraverseToMenu.al
+++ /dev/null
@@ -1,27 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 723 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\TraverseToMenu.al)"
-# tkTraverseToMenu --
-# This procedure implements keyboard traversal of menus. Given an
-# ASCII character "char", it looks for a menubutton with that character
-# underlined. If one is found, it posts the menubutton's menu
-#
-# Arguments:
-# w - Window in which the key was typed (selects
-# a toplevel window).
-# char - Character that selects a menu. The case
-# is ignored. If an empty string, nothing
-# happens.
-sub TraverseToMenu
-{
- my $w = shift;
- my $char = shift;
- return unless(defined $char && $char ne '');
- $w = $w->toplevel->FindMenu($char);
-}
-
-# end of Tk::TraverseToMenu
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/ASkludge.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/ASkludge.al
deleted file mode 100644
index 11001c4a895..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/ASkludge.al
+++ /dev/null
@@ -1,30 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Widget.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Widget;
-
-#line 1512 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\ASkludge.al)"
-sub ASkludge
-{
- my ($hash,$sense) = @_;
- foreach my $key (%$hash)
- {
- if ($key =~ /-.*variable/ && ref($hash->{$key}) eq 'SCALAR')
- {
- if ($sense)
- {
- my $val = ${$hash->{$key}};
- require Tie::Scalar;
- tie ${$hash->{$key}},'Tie::StdScalar';
- ${$hash->{$key}} = $val;
- }
- else
- {
- untie ${$hash->{$key}};
- }
- }
- }
-}
-
-# end of Tk::Widget::ASkludge
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/AltKeyInDialog.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/AltKeyInDialog.al
deleted file mode 100644
index ef70b756b69..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/AltKeyInDialog.al
+++ /dev/null
@@ -1,20 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Widget.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Widget;
-
-#line 1676 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\AltKeyInDialog.al)"
-# ::tk::AltKeyInDialog --
-# <Alt-Key> event handler for standard dialogs. Sends <<AltUnderlined>>
-# to button or label which has appropriate underlined character
-#
-sub AltKeyInDialog
-{
- my ($w, $key) = @_;
- my $target = $w->FindAltKeyTarget($key);
- return if !$target;
- $target->eventGenerate('<<AltUnderlined>>');
-}
-
-# end of Tk::Widget::AltKeyInDialog
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/AmpWidget.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/AmpWidget.al
deleted file mode 100644
index 19b7695065c..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/AmpWidget.al
+++ /dev/null
@@ -1,36 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Widget.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Widget;
-
-#line 1618 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\AmpWidget.al)"
-# ::tk::AmpWidget --
-# Creates new widget, turning -text option into -text and
-# -underline options, returned by ::tk::UnderlineAmpersand.
-#
-sub AmpWidget
-{
- my ($w,$class,%args) = @_;
- my @options;
- while(my($opt,$val) = each %args)
- {
- if ($opt eq "-text")
- {
- my ($newtext,$under) = $w->UnderlineAmpersand($val);
- push @options, -text => $newtext, -underline => $under;
- }
- else
- {
- push @options, $opt, $val;
- }
- }
- my $result = $w->$class(@options);
- if ($result->can('AmpWidgetPostHook'))
- {
- $result->AmpWidgetPostHook;
- }
- return $result;
-}
-
-# end of Tk::Widget::AmpWidget
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/FindAltKeyTarget.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/FindAltKeyTarget.al
deleted file mode 100644
index 5e74c5096b4..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/FindAltKeyTarget.al
+++ /dev/null
@@ -1,38 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Widget.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Widget;
-
-#line 1646 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\FindAltKeyTarget.al)"
-# ::tk::FindAltKeyTarget --
-# search recursively through the hierarchy of visible widgets
-# to find button or label which has $char as underlined character
-#
-sub FindAltKeyTarget
-{
- my ($w,$char) = @_;
- $char = lc $char;
- if ($w->isa('Tk::Button') || $w->isa('Tk::Label'))
- {
- if ($char eq lc substr($w->cget(-text), $w->cget(-underline), 1))
- {
- return $w;
- }
- else
- {
- return undef;
- }
- }
- else
- {
- for my $cw ($w->gridSlaves, $w->packSlaves, $w->placeSlaves) # Cannot handle $w->formSlaves here?
- {
- my $target = $cw->FindAltKeyTarget($char);
- return $target if ($target);
- }
- }
- undef;
-}
-
-# end of Tk::Widget::FindAltKeyTarget
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/MasterMenu.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/MasterMenu.al
deleted file mode 100644
index f9961bc8092..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/MasterMenu.al
+++ /dev/null
@@ -1,14 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Widget.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Widget;
-
-#line 1769 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\MasterMenu.al)"
-# See http://rt.cpan.org/Ticket/Display.html?id=30929 and
-# http://rt.cpan.org/Ticket/Display.html?id=31016
-sub MasterMenu
- {
- }
-
-1;
-# end of Tk::Widget::MasterMenu
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/RestoreFocusGrab.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/RestoreFocusGrab.al
deleted file mode 100644
index 018d0b13246..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/RestoreFocusGrab.al
+++ /dev/null
@@ -1,59 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Widget.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Widget;
-
-#line 1718 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\RestoreFocusGrab.al)"
-# ::tk::RestoreFocusGrab --
-# restore old focus and grab (for dialogs)
-# Arguments:
-# grab window that had taken grab
-# focus window that had taken focus
-# destroy destroy|withdraw - how to handle the old grabbed window
-# Results:
-# Returns nothing
-#
-sub RestoreFocusGrab
-{
- my ($grab, $focus, $destroy) = @_;
- $destroy = 'destroy' if !$destroy;
- my $index = "$grab,$focus";
- my ($oldFocus, $oldGrab, $oldStatus);
- if (exists $Tk::FocusGrab{$index})
- {
- ($oldFocus, $oldGrab, $oldStatus) = $Tk::FocusGrab{$index};
- delete $Tk::FocusGrab{$index};
- }
- else
- {
- $oldGrab = "";
- }
-
- Tk::catch { $oldFocus->focus };
- if (Tk::Exists($grab))
- {
- $grab->grabRelease;
- if ($destroy eq "withdraw")
- {
- $grab->withdraw;
- }
- else
- {
- $grab->destroy;
- }
- }
- if (Tk::Exists($oldGrab) && $oldGrab->ismapped)
- {
- if ($oldStatus eq "global")
- {
- $oldGrab->grabGlobal;
- }
- else
- {
- $oldGrab->grab;
- }
- }
-}
-
-# end of Tk::Widget::RestoreFocusGrab
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/SetAmpText.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/SetAmpText.al
deleted file mode 100644
index a99fd487114..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/SetAmpText.al
+++ /dev/null
@@ -1,19 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Widget.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Widget;
-
-#line 1607 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\SetAmpText.al)"
-# ::tk::SetAmpText --
-# Given widget path and text with "magic ampersands",
-# sets -text and -underline options for the widget
-#
-sub SetAmpText
-{
- my ($w,$text) = @_;
- my ($newtext,$under) = $w->UnderlineAmpersand($text);
- $w->configure(-text => $newtext, -underline => $under);
-}
-
-# end of Tk::Widget::SetAmpText
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/SetFocusGrab.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/SetFocusGrab.al
deleted file mode 100644
index 5198ddef0f6..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/SetFocusGrab.al
+++ /dev/null
@@ -1,38 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Widget.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Widget;
-
-#line 1688 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\SetFocusGrab.al)"
-# ::tk::SetFocusGrab --
-# swap out current focus and grab temporarily (for dialogs)
-# Arguments:
-# grab new window to grab
-# focus window to give focus to
-# Results:
-# Returns nothing
-#
-sub SetFocusGrab
-{
- my ($grab,$focus) = @_;
- my $index = "$grab,$focus";
- $Tk::FocusGrab{$index} ||= [];
- my $data = $Tk::FocusGrab{$index};
- push @$data, $grab->focusCurrent;
- my $oldGrab = $grab->grabCurrent;
- push @$data, $oldGrab;
- if (Tk::Exists($oldGrab))
- {
- push @$data, $oldGrab->grabStatus;
- }
- # The "grab" command will fail if another application
- # already holds the grab. So catch it.
- Tk::catch { $grab->grab };
- if (Tk::Exists($focus))
- {
- $focus->focus;
- }
-}
-
-# end of Tk::Widget::SetFocusGrab
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/UnderlineAmpersand.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/UnderlineAmpersand.al
deleted file mode 100644
index d627665b363..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/UnderlineAmpersand.al
+++ /dev/null
@@ -1,29 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Widget.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Widget;
-
-#line 1586 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\UnderlineAmpersand.al)"
-# ::tk::UnderlineAmpersand --
-# This procedure takes some text with ampersand and returns
-# text w/o ampersand and position of the ampersand.
-# Double ampersands are converted to single ones.
-# Position returned is -1 when there is no ampersand.
-#
-sub UnderlineAmpersand
-{
- my (undef,$text) = @_;
- if ($text =~ m{(?<!&)&(?!&)}g)
- {
- my $idx = pos $text;
- $text =~ s{(?<!&)&(?!&)}{};
- ($text, $idx);
- }
- else
- {
- ($text, -1);
- }
-}
-
-# end of Tk::Widget::UnderlineAmpersand
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/autosplit.ix b/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/autosplit.ix
deleted file mode 100644
index d299c211afb..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/autosplit.ix
+++ /dev/null
@@ -1,27 +0,0 @@
-# Index created by AutoSplit for blib\lib\Tk\Widget.pm
-# (file acts as timestamp)
-package Tk::Widget;
-sub bindDump ;
-sub ASkludge
-;
-sub clipboardKeysyms
-;
-sub pathname
-;
-sub UnderlineAmpersand
-;
-sub SetAmpText
-;
-sub AmpWidget
-;
-sub FindAltKeyTarget
-;
-sub AltKeyInDialog
-;
-sub SetFocusGrab
-;
-sub RestoreFocusGrab
-;
-sub MasterMenu
-;
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/bindDump.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/bindDump.al
deleted file mode 100644
index e5ee6071ea7..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/bindDump.al
+++ /dev/null
@@ -1,87 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Widget.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Widget;
-
-#line 1432 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\bindDump.al)"
-sub bindDump {
-
- # Dump lots of good binding information. This pretty-print subroutine
- # is, essentially, the following code in disguise:
- #
- # print "Binding information for $w\n";
- # foreach my $tag ($w->bindtags) {
- # printf "\n Binding tag '$tag' has these bindings:\n";
- # foreach my $binding ($w->Tk::bind($tag)) {
- # printf " $binding\n";
- # }
- # }
-
- my ($w) = @_;
-
- my (@bindtags) = $w->bindtags;
- my $digits = length( scalar @bindtags );
- my ($spc1, $spc2) = ($digits + 33, $digits + 35);
- my $format1 = "%${digits}d.";
- my $format2 = ' ' x ($digits + 2);
- my $n = 0;
-
- my @out;
- push @out, sprintf( "\n## Binding information for '%s', %s ##", $w->PathName, $w );
-
- foreach my $tag (@bindtags) {
- my (@bindings) = $w->Tk::bind($tag);
- $n++; # count this bindtag
-
- if ($#bindings == -1) {
- push @out, sprintf( "\n$format1 Binding tag '$tag' has no bindings.\n", $n );
- } else {
- push @out, sprintf( "\n$format1 Binding tag '$tag' has these bindings:\n", $n );
-
- foreach my $binding ( @bindings ) {
- my $callback = $w->Tk::bind($tag, $binding);
- push @out, sprintf( "$format2%27s : %-40s\n", $binding, $callback );
-
- if ($callback =~ /SCALAR/) {
- if (ref $$callback) {
- push @out, sprintf( "%s %s\n", ' ' x $spc1, $$callback );
- } else {
- push @out, sprintf( "%s '%s'\n", ' ' x $spc1, $$callback );
- }
- } elsif ($callback =~ /ARRAY/) {
- if (ref $callback->[0]) {
- push @out, sprintf( "%s %s\n", ' ' x $spc1, $callback->[0] );
- } else {
- push @out, sprintf( "%s '%s'\n", ' ' x $spc1, $callback->[0] );
- }
- foreach my $arg (@$callback[1 .. $#$callback]) {
- if (ref $arg) {
- push @out, sprintf( "%s %-40s", ' ' x $spc2, $arg );
- } else {
- push @out, sprintf( "%s '%s'", ' ' x $spc2, $arg );
- }
-
- if (ref $arg eq 'Tk::Ev') {
- if ($arg =~ /SCALAR/) {
- push @out, sprintf( ": '$$arg'" );
- } else {
- push @out, sprintf( ": '%s'", join("' '", @$arg) );
- }
- }
-
- push @out, sprintf( "\n" );
- } # forend callback arguments
- } # ifend callback
-
- } # forend all bindings for one tag
-
- } # ifend have bindings
-
- } # forend all tags
- push @out, sprintf( "\n" );
- return @out;
-
-} # end bindDump
-
-# end of Tk::Widget::bindDump
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/clipboardKeysyms.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/clipboardKeysyms.al
deleted file mode 100644
index d506e1fa18d..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/clipboardKeysyms.al
+++ /dev/null
@@ -1,51 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Widget.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Widget;
-
-#line 1536 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\clipboardKeysyms.al)"
-# clipboardKeysyms --
-# This procedure is invoked to identify the keys that correspond to
-# the "copy", "cut", and "paste" functions for the clipboard.
-#
-# Arguments:
-# copy - Name of the key (keysym name plus modifiers, if any,
-# such as "Meta-y") used for the copy operation.
-# cut - Name of the key used for the cut operation.
-# paste - Name of the key used for the paste operation.
-#
-# This method is obsolete use clipboardOperations and abstract
-# event types instead. See Clipboard.pm and Mainwindow.pm
-
-sub clipboardKeysyms
-{
- my @class = ();
- my $mw = shift;
- if (ref $mw)
- {
- $mw = $mw->DelegateFor('bind');
- }
- else
- {
- push(@class,$mw);
- $mw = shift;
- }
- if (@_)
- {
- my $copy = shift;
- $mw->Tk::bind(@class,"<$copy>",'clipboardCopy') if (defined $copy);
- }
- if (@_)
- {
- my $cut = shift;
- $mw->Tk::bind(@class,"<$cut>",'clipboardCut') if (defined $cut);
- }
- if (@_)
- {
- my $paste = shift;
- $mw->Tk::bind(@class,"<$paste>",'clipboardPaste') if (defined $paste);
- }
-}
-
-# end of Tk::Widget::clipboardKeysyms
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/pathname.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/pathname.al
deleted file mode 100644
index 3228ef9890e..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/pathname.al
+++ /dev/null
@@ -1,15 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Widget.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Widget;
-
-#line 1579 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\pathname.al)"
-sub pathname
-{
- my ($w,$id) = @_;
- my $x = $w->winfo('pathname',-displayof => oct($id));
- return $x->PathName;
-}
-
-# end of Tk::Widget::pathname
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/AnchorAdjust.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/AnchorAdjust.al
deleted file mode 100644
index 9d18b1b7084..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/AnchorAdjust.al
+++ /dev/null
@@ -1,17 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Wm.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Wm;
-
-#line 87 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\AnchorAdjust.al)"
-sub AnchorAdjust
-{
- my ($anchor,$X,$Y,$w,$h) = @_;
- $anchor = 'c' unless (defined $anchor);
- $Y += ($anchor =~ /s/) ? $h : ($anchor =~ /n/) ? 0 : $h/2;
- $X += ($anchor =~ /e/) ? $w : ($anchor =~ /w/) ? 0 : $w/2;
- return ($X,$Y);
-}
-
-# end of Tk::Wm::AnchorAdjust
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/FullScreen.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/FullScreen.al
deleted file mode 100644
index 9df5e7add84..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/FullScreen.al
+++ /dev/null
@@ -1,29 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Wm.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Wm;
-
-#line 138 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\FullScreen.al)"
-sub FullScreen
-{
- my $w = shift;
- my $over = (@_) ? shift : 0;
- my $width = $w->screenwidth;
- my $height = $w->screenheight;
- $w->GeometryRequest($width,$height);
- $w->overrideredirect($over & 1);
- $w->Post(0,0);
- $w->update;
- if ($over & 2)
- {
- my $x = $w->rootx;
- my $y = $w->rooty;
- $width -= 2*$x;
- $height -= $x + $y;
- $w->GeometryRequest($width,$height);
- $w->update;
- }
-}
-
-# end of Tk::Wm::FullScreen
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/Popup.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/Popup.al
deleted file mode 100644
index 2d433c96127..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/Popup.al
+++ /dev/null
@@ -1,50 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Wm.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Wm;
-
-#line 96 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\Popup.al)"
-sub Popup
-{
- my $w = shift;
- $w->configure(@_) if @_;
- $w->idletasks;
- my ($mw,$mh) = ($w->reqwidth,$w->reqheight);
- my ($rx,$ry,$rw,$rh) = (0,0,0,0);
- my $base = $w->cget('-popover');
- my $outside = 0;
- if (defined $base)
- {
- if ($base eq 'cursor')
- {
- ($rx,$ry) = $w->pointerxy;
- }
- else
- {
- $rx = $base->rootx;
- $ry = $base->rooty;
- $rw = $base->Width;
- $rh = $base->Height;
- }
- }
- else
- {
- my $sc = ($w->parent) ? $w->parent->toplevel : $w;
- $rx = -$sc->vrootx;
- $ry = -$sc->vrooty;
- $rw = $w->screenwidth;
- $rh = $w->screenheight;
- }
- my ($X,$Y) = AnchorAdjust($w->cget('-overanchor'),$rx,$ry,$rw,$rh);
- ($X,$Y) = AnchorAdjust($w->cget('-popanchor'),$X,$Y,-$mw,-$mh);
- # adjust to not cross screen borders
- if ($X < 0) { $X = 0 }
- if ($Y < 0) { $Y = 0 }
- if ($mw > $w->screenwidth) { $X = 0 }
- if ($mh > $w->screenheight) { $Y = 0 }
- $w->Post($X,$Y);
- $w->waitVisibility;
-}
-
-# end of Tk::Wm::Popup
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/Post.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/Post.al
deleted file mode 100644
index 9c8b0b3c688..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/Post.al
+++ /dev/null
@@ -1,20 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Wm.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Wm;
-
-#line 75 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\Post.al)"
-sub Post
-{
- my ($w,$X,$Y) = @_;
- $X = int($X);
- $Y = int($Y);
- $w->positionfrom('user');
- $w->geometry("+$X+$Y");
- # $w->MoveToplevelWindow($X,$Y);
- $w->deiconify;
- $w->raise;
-}
-
-# end of Tk::Wm::Post
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/autosplit.ix b/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/autosplit.ix
deleted file mode 100644
index 9fdc59ce9ef..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/autosplit.ix
+++ /dev/null
@@ -1,14 +0,0 @@
-# Index created by AutoSplit for blib\lib\Tk\Wm.pm
-# (file acts as timestamp)
-package Tk::Wm;
-sub Post
-;
-sub AnchorAdjust
-;
-sub Popup
-;
-sub FullScreen
-;
-sub iconposition
-;
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/iconposition.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/iconposition.al
deleted file mode 100644
index dbc73a63983..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/iconposition.al
+++ /dev/null
@@ -1,24 +0,0 @@
-# NOTE: Derived from blib\lib\Tk\Wm.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk::Wm;
-
-#line 159 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\iconposition.al)"
-sub iconposition
-{
- my $w = shift;
- if (@_ == 1)
- {
- return $w->wm('iconposition',$1,$2) if $_[0] =~ /^(\d+),(\d+)$/;
- if ($_[0] =~ /^([+-])(\d+)([+-])(\d+)$/)
- {
- my $x = ($1 eq '-') ? $w->screenwidth-$2 : $2;
- my $y = ($3 eq '-') ? $w->screenheight-$4 : $4;
- return $w->wm('iconposition',$x,$y);
- }
- }
- $w->wm('iconposition',@_);
-}
-
-1;
-# end of Tk::Wm::iconposition
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/X/X.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/X/X.dll
deleted file mode 100755
index 485c772a0d0..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/X/X.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/X/autosplit.ix b/Master/tlpkg/tlperl/site/lib/auto/Tk/X/autosplit.ix
deleted file mode 100644
index b1d888bb3f2..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/X/autosplit.ix
+++ /dev/null
@@ -1,3 +0,0 @@
-# Index created by AutoSplit for ..\..\blib\lib\Tk\X.pm
-# (file acts as timestamp)
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/Xlib/Xlib.dll b/Master/tlpkg/tlperl/site/lib/auto/Tk/Xlib/Xlib.dll
deleted file mode 100755
index 4e8d1614b59..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/Xlib/Xlib.dll
+++ /dev/null
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/autosplit.ix b/Master/tlpkg/tlperl/site/lib/auto/Tk/autosplit.ix
deleted file mode 100644
index 9a836cddc39..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/autosplit.ix
+++ /dev/null
@@ -1,49 +0,0 @@
-# Index created by AutoSplit for blib\lib\Tk.pm
-# (file acts as timestamp)
-package Tk;
-sub Error
-;
-sub CancelRepeat
-;
-sub RepeatId
-;
-sub FocusChildren ;
-sub focusNext
-;
-sub getNextFocus
-;
-sub focusPrev
-;
-sub getPrevFocus
-;
-sub FocusOK
-;
-sub EnterFocus
-;
-sub tabFocus
-;
-sub focusFollowsMouse
-;
-sub TraverseToMenu
-;
-sub FirstMenu
-;
-sub Selection
-;
-sub Receive
-;
-sub break
-;
-sub updateWidgets
-;
-sub ImageNames
-;
-sub ImageTypes
-;
-sub interps
-;
-sub lsearch
-;
-sub getEncoding
-;
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/break.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/break.al
deleted file mode 100644
index e4bf6e1e04b..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/break.al
+++ /dev/null
@@ -1,13 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 779 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\break.al)"
-sub break
-{
- die "_TK_BREAK_\n";
-}
-
-# end of Tk::break
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/focusFollowsMouse.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/focusFollowsMouse.al
deleted file mode 100644
index 7a23f0bcab6..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/focusFollowsMouse.al
+++ /dev/null
@@ -1,14 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 717 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\focusFollowsMouse.al)"
-sub focusFollowsMouse
-{
- my $widget = shift;
- $widget->bind('all','<Enter>','EnterFocus');
-}
-
-# end of Tk::focusFollowsMouse
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/focusNext.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/focusNext.al
deleted file mode 100644
index fd99ae7c1cf..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/focusNext.al
+++ /dev/null
@@ -1,18 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 553 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\focusNext.al)"
-sub focusNext
-{
- my $w = shift;
- my $cur = $w->getNextFocus;
- if ($cur)
- {
- $cur->tabFocus;
- }
-}
-
-# end of Tk::focusNext
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/focusPrev.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/focusPrev.al
deleted file mode 100644
index 1f3494b46ee..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/focusPrev.al
+++ /dev/null
@@ -1,28 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 598 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\focusPrev.al)"
-# focusPrev --
-# This procedure is invoked to move the input focus to the previous
-# window before a given one. "Previous" is defined in terms of the
-# window stacking order, with all the windows underneath a given
-# top-level (no matter how deeply nested in the hierarchy) considered.
-#
-# Arguments:
-# w - Name of a window: the procedure will set the focus
-# to the previous window before this one in the traversal
-# order.
-sub focusPrev
-{
- my $w = shift;
- my $cur = $w->getPrevFocus;
- if ($cur)
- {
- $cur->tabFocus;
- }
-}
-
-# end of Tk::focusPrev
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/getEncoding.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/getEncoding.al
deleted file mode 100644
index 4af0e51bfb1..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/getEncoding.al
+++ /dev/null
@@ -1,43 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 821 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\getEncoding.al)"
-sub getEncoding
-{
- my ($class,$name) = @_;
- eval { require Encode };
- if ($@)
- {
- require Tk::DummyEncode;
- return Tk::DummyEncode->getEncoding($name);
- }
- $name = $Tk::font_encoding{$name} if exists $Tk::font_encoding{$name};
- my $enc = Encode::find_encoding($name);
-
- unless ($enc)
- {
- $enc = Encode::find_encoding($name) if ($name =~ s/[-_]\d+$//)
- }
-# if ($enc)
-# {
-# print STDERR "Lookup '$name' => ".$enc->name."\n";
-# }
-# else
-# {
-# print STDERR "Failed '$name'\n";
-# }
- unless ($enc)
- {
- if ($name eq 'X11ControlChars')
- {
- require Tk::DummyEncode;
- $Encode::encoding{$name} = $enc = Tk::DummyEncode->getEncoding($name);
- }
- }
- return $enc;
-}
-
-1;
-# end of Tk::getEncoding
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/getNextFocus.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/getNextFocus.al
deleted file mode 100644
index 418dbdd1104..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/getNextFocus.al
+++ /dev/null
@@ -1,44 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 563 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\getNextFocus.al)"
-sub getNextFocus
-{
- my $w = shift;
- my $cur = $w;
- while (1)
- {
- # Descend to just before the first child of the current widget.
- my $parent = $cur;
- my @children = $cur->FocusChildren();
- my $i = -1;
- # Look for the next sibling that isn't a top-level.
- while (1)
- {
- $i += 1;
- if ($i < @children)
- {
- $cur = $children[$i];
- next if ($cur->toplevel == $cur);
- last
- }
- # No more siblings, so go to the current widget's parent.
- # If it's a top-level, break out of the loop, otherwise
- # look for its next sibling.
- $cur = $parent;
- last if ($cur->toplevel() == $cur);
- $parent = $parent->parent();
- @children = $parent->FocusChildren();
- $i = lsearch(\@children,$cur);
- }
- if ($cur == $w || $cur->FocusOK)
- {
- return $cur;
- }
- }
-}
-
-# end of Tk::getNextFocus
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/getPrevFocus.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/getPrevFocus.al
deleted file mode 100644
index 9b50b3075c9..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/getPrevFocus.al
+++ /dev/null
@@ -1,54 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 618 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\getPrevFocus.al)"
-sub getPrevFocus
-{
- my $w = shift;
- my $cur = $w;
- my @children;
- my $i;
- my $parent;
- while (1)
- {
- # Collect information about the current window's position
- # among its siblings. Also, if the window is a top-level,
- # then reposition to just after the last child of the window.
- if ($cur->toplevel() == $cur)
- {
- $parent = $cur;
- @children = $cur->FocusChildren();
- $i = @children;
- }
- else
- {
- $parent = $cur->parent();
- @children = $parent->FocusChildren();
- $i = lsearch(\@children,$cur);
- }
- # Go to the previous sibling, then descend to its last descendant
- # (highest in stacking order. While doing this, ignore top-levels
- # and their descendants. When we run out of descendants, go up
- # one level to the parent.
- while ($i > 0)
- {
- $i--;
- $cur = $children[$i];
- next if ($cur->toplevel() == $cur);
- $parent = $cur;
- @children = $parent->FocusChildren();
- $i = @children;
- }
- $cur = $parent;
- if ($cur == $w || $cur->FocusOK)
- {
- return $cur;
- }
- }
-
-}
-
-# end of Tk::getPrevFocus
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/interps.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/interps.al
deleted file mode 100644
index 7ed65e705bc..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/interps.al
+++ /dev/null
@@ -1,14 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 803 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\interps.al)"
-sub interps
-{
- my $w = shift;
- return $w->winfo('interps','-displayof');
-}
-
-# end of Tk::interps
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/lsearch.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/lsearch.al
deleted file mode 100644
index 28a951d3ecb..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/lsearch.al
+++ /dev/null
@@ -1,19 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 809 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\lsearch.al)"
-sub lsearch
-{my $ar = shift;
- my $x = shift;
- my $i;
- for ($i = 0; $i < scalar @$ar; $i++)
- {
- return $i if ($$ar[$i] eq $x);
- }
- return -1;
-}
-
-# end of Tk::lsearch
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/pTk/extralibs.ld b/Master/tlpkg/tlperl/site/lib/auto/Tk/pTk/extralibs.ld
deleted file mode 100644
index 8b137891791..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/pTk/extralibs.ld
+++ /dev/null
@@ -1 +0,0 @@
-
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/tabFocus.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/tabFocus.al
deleted file mode 100644
index 5d221224e78..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/tabFocus.al
+++ /dev/null
@@ -1,13 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 712 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\tabFocus.al)"
-sub tabFocus
-{
- shift->Tk::focus;
-}
-
-# end of Tk::tabFocus
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Tk/updateWidgets.al b/Master/tlpkg/tlperl/site/lib/auto/Tk/updateWidgets.al
deleted file mode 100644
index 6221e6bdec3..00000000000
--- a/Master/tlpkg/tlperl/site/lib/auto/Tk/updateWidgets.al
+++ /dev/null
@@ -1,17 +0,0 @@
-# NOTE: Derived from blib\lib\Tk.pm.
-# Changes made here will be lost when autosplit is run again.
-# See AutoSplit.pm.
-package Tk;
-
-#line 784 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\updateWidgets.al)"
-sub updateWidgets
-{
- my ($w) = @_;
- while ($w->DoOneEvent(DONT_WAIT|IDLE_EVENTS|WINDOW_EVENTS))
- {
- }
- $w;
-}
-
-# end of Tk::updateWidgets
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Try/Tiny/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Try/Tiny/.packlist
index c0f914d4fb7..44c33603fa6 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Try/Tiny/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Try/Tiny/.packlist
@@ -1 +1 @@
-C:\tlperl526\site\lib\Try\Tiny.pm
+C:\tlperl\site\lib\Try\Tiny.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/URI/.packlist b/Master/tlpkg/tlperl/site/lib/auto/URI/.packlist
index ff40cb104cf..9213ecb7b1d 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/URI/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/URI/.packlist
@@ -1,53 +1,53 @@
-C:\tlperl526\site\lib\URI.pm
-C:\tlperl526\site\lib\URI\Escape.pm
-C:\tlperl526\site\lib\URI\Heuristic.pm
-C:\tlperl526\site\lib\URI\IRI.pm
-C:\tlperl526\site\lib\URI\QueryParam.pm
-C:\tlperl526\site\lib\URI\Split.pm
-C:\tlperl526\site\lib\URI\URL.pm
-C:\tlperl526\site\lib\URI\WithBase.pm
-C:\tlperl526\site\lib\URI\_foreign.pm
-C:\tlperl526\site\lib\URI\_generic.pm
-C:\tlperl526\site\lib\URI\_idna.pm
-C:\tlperl526\site\lib\URI\_ldap.pm
-C:\tlperl526\site\lib\URI\_login.pm
-C:\tlperl526\site\lib\URI\_punycode.pm
-C:\tlperl526\site\lib\URI\_query.pm
-C:\tlperl526\site\lib\URI\_segment.pm
-C:\tlperl526\site\lib\URI\_server.pm
-C:\tlperl526\site\lib\URI\_userpass.pm
-C:\tlperl526\site\lib\URI\data.pm
-C:\tlperl526\site\lib\URI\file.pm
-C:\tlperl526\site\lib\URI\file\Base.pm
-C:\tlperl526\site\lib\URI\file\FAT.pm
-C:\tlperl526\site\lib\URI\file\Mac.pm
-C:\tlperl526\site\lib\URI\file\OS2.pm
-C:\tlperl526\site\lib\URI\file\QNX.pm
-C:\tlperl526\site\lib\URI\file\Unix.pm
-C:\tlperl526\site\lib\URI\file\Win32.pm
-C:\tlperl526\site\lib\URI\ftp.pm
-C:\tlperl526\site\lib\URI\gopher.pm
-C:\tlperl526\site\lib\URI\http.pm
-C:\tlperl526\site\lib\URI\https.pm
-C:\tlperl526\site\lib\URI\ldap.pm
-C:\tlperl526\site\lib\URI\ldapi.pm
-C:\tlperl526\site\lib\URI\ldaps.pm
-C:\tlperl526\site\lib\URI\mailto.pm
-C:\tlperl526\site\lib\URI\mms.pm
-C:\tlperl526\site\lib\URI\news.pm
-C:\tlperl526\site\lib\URI\nntp.pm
-C:\tlperl526\site\lib\URI\pop.pm
-C:\tlperl526\site\lib\URI\rlogin.pm
-C:\tlperl526\site\lib\URI\rsync.pm
-C:\tlperl526\site\lib\URI\rtsp.pm
-C:\tlperl526\site\lib\URI\rtspu.pm
-C:\tlperl526\site\lib\URI\sftp.pm
-C:\tlperl526\site\lib\URI\sip.pm
-C:\tlperl526\site\lib\URI\sips.pm
-C:\tlperl526\site\lib\URI\snews.pm
-C:\tlperl526\site\lib\URI\ssh.pm
-C:\tlperl526\site\lib\URI\telnet.pm
-C:\tlperl526\site\lib\URI\tn3270.pm
-C:\tlperl526\site\lib\URI\urn.pm
-C:\tlperl526\site\lib\URI\urn\isbn.pm
-C:\tlperl526\site\lib\URI\urn\oid.pm
+C:\tlperl\site\lib\URI.pm
+C:\tlperl\site\lib\URI\Escape.pm
+C:\tlperl\site\lib\URI\Heuristic.pm
+C:\tlperl\site\lib\URI\IRI.pm
+C:\tlperl\site\lib\URI\QueryParam.pm
+C:\tlperl\site\lib\URI\Split.pm
+C:\tlperl\site\lib\URI\URL.pm
+C:\tlperl\site\lib\URI\WithBase.pm
+C:\tlperl\site\lib\URI\_foreign.pm
+C:\tlperl\site\lib\URI\_generic.pm
+C:\tlperl\site\lib\URI\_idna.pm
+C:\tlperl\site\lib\URI\_ldap.pm
+C:\tlperl\site\lib\URI\_login.pm
+C:\tlperl\site\lib\URI\_punycode.pm
+C:\tlperl\site\lib\URI\_query.pm
+C:\tlperl\site\lib\URI\_segment.pm
+C:\tlperl\site\lib\URI\_server.pm
+C:\tlperl\site\lib\URI\_userpass.pm
+C:\tlperl\site\lib\URI\data.pm
+C:\tlperl\site\lib\URI\file.pm
+C:\tlperl\site\lib\URI\file\Base.pm
+C:\tlperl\site\lib\URI\file\FAT.pm
+C:\tlperl\site\lib\URI\file\Mac.pm
+C:\tlperl\site\lib\URI\file\OS2.pm
+C:\tlperl\site\lib\URI\file\QNX.pm
+C:\tlperl\site\lib\URI\file\Unix.pm
+C:\tlperl\site\lib\URI\file\Win32.pm
+C:\tlperl\site\lib\URI\ftp.pm
+C:\tlperl\site\lib\URI\gopher.pm
+C:\tlperl\site\lib\URI\http.pm
+C:\tlperl\site\lib\URI\https.pm
+C:\tlperl\site\lib\URI\ldap.pm
+C:\tlperl\site\lib\URI\ldapi.pm
+C:\tlperl\site\lib\URI\ldaps.pm
+C:\tlperl\site\lib\URI\mailto.pm
+C:\tlperl\site\lib\URI\mms.pm
+C:\tlperl\site\lib\URI\news.pm
+C:\tlperl\site\lib\URI\nntp.pm
+C:\tlperl\site\lib\URI\pop.pm
+C:\tlperl\site\lib\URI\rlogin.pm
+C:\tlperl\site\lib\URI\rsync.pm
+C:\tlperl\site\lib\URI\rtsp.pm
+C:\tlperl\site\lib\URI\rtspu.pm
+C:\tlperl\site\lib\URI\sftp.pm
+C:\tlperl\site\lib\URI\sip.pm
+C:\tlperl\site\lib\URI\sips.pm
+C:\tlperl\site\lib\URI\snews.pm
+C:\tlperl\site\lib\URI\ssh.pm
+C:\tlperl\site\lib\URI\telnet.pm
+C:\tlperl\site\lib\URI\tn3270.pm
+C:\tlperl\site\lib\URI\urn.pm
+C:\tlperl\site\lib\URI\urn\isbn.pm
+C:\tlperl\site\lib\URI\urn\oid.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/WWW/RobotRules/.packlist b/Master/tlpkg/tlperl/site/lib/auto/WWW/RobotRules/.packlist
index 60260cec685..854d05abe32 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/WWW/RobotRules/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/WWW/RobotRules/.packlist
@@ -1,2 +1,2 @@
-C:\tlperl526\site\lib\WWW\RobotRules.pm
-C:\tlperl526\site\lib\WWW\RobotRules\AnyDBM_File.pm
+C:\tlperl\site\lib\WWW\RobotRules.pm
+C:\tlperl\site\lib\WWW\RobotRules\AnyDBM_File.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Win32/API/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Win32/API/.packlist
index f2a1d060af9..1cba447ccf8 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Win32/API/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Win32/API/.packlist
@@ -1,7 +1,7 @@
-C:\tlperl526\site\lib\Win32\API.pm
-C:\tlperl526\site\lib\Win32\API\Callback.pm
-C:\tlperl526\site\lib\Win32\API\Callback\IATPatch.pod
-C:\tlperl526\site\lib\Win32\API\Struct.pm
-C:\tlperl526\site\lib\Win32\API\Type.pm
-C:\tlperl526\site\lib\auto\Win32\API\API.dll
-C:\tlperl526\site\lib\auto\Win32\API\Callback\Callback.dll
+C:\tlperl\site\lib\Win32\API.pm
+C:\tlperl\site\lib\Win32\API\Callback.pm
+C:\tlperl\site\lib\Win32\API\Callback\IATPatch.pod
+C:\tlperl\site\lib\Win32\API\Struct.pm
+C:\tlperl\site\lib\Win32\API\Type.pm
+C:\tlperl\site\lib\auto\Win32\API\API.dll
+C:\tlperl\site\lib\auto\Win32\API\Callback\Callback.dll
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Win32/API/API.dll b/Master/tlpkg/tlperl/site/lib/auto/Win32/API/API.dll
index 14c1c55329b..787e19fed9f 100755
--- a/Master/tlpkg/tlperl/site/lib/auto/Win32/API/API.dll
+++ b/Master/tlpkg/tlperl/site/lib/auto/Win32/API/API.dll
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Win32/API/Callback/Callback.dll b/Master/tlpkg/tlperl/site/lib/auto/Win32/API/Callback/Callback.dll
index c0cef779fd2..9877a24466e 100755
--- a/Master/tlpkg/tlperl/site/lib/auto/Win32/API/Callback/Callback.dll
+++ b/Master/tlpkg/tlperl/site/lib/auto/Win32/API/Callback/Callback.dll
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Win32/Console/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Win32/Console/.packlist
index 557fa6b8d0e..1a443fac382 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Win32/Console/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Win32/Console/.packlist
@@ -1,2 +1,2 @@
-C:\tlperl526\site\lib\Win32\Console.pm
-C:\tlperl526\site\lib\auto\Win32\Console\Console.dll
+C:\tlperl\site\lib\Win32\Console.pm
+C:\tlperl\site\lib\auto\Win32\Console\Console.dll
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Win32/Console/Console.dll b/Master/tlpkg/tlperl/site/lib/auto/Win32/Console/Console.dll
index 40131300a4b..fe0cbf1d2e2 100755
--- a/Master/tlpkg/tlperl/site/lib/auto/Win32/Console/Console.dll
+++ b/Master/tlpkg/tlperl/site/lib/auto/Win32/Console/Console.dll
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Win32/OLE/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Win32/OLE/.packlist
index 9192cb0d0f0..eb21a2a013b 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Win32/OLE/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Win32/OLE/.packlist
@@ -1,11 +1,11 @@
-C:\tlperl526\site\lib\OLE.pm
-C:\tlperl526\site\lib\Win32\OLE.pm
-C:\tlperl526\site\lib\Win32\OLE\Const.pm
-C:\tlperl526\site\lib\Win32\OLE\Enum.pm
-C:\tlperl526\site\lib\Win32\OLE\Lite.pm
-C:\tlperl526\site\lib\Win32\OLE\NEWS.pod
-C:\tlperl526\site\lib\Win32\OLE\NLS.pm
-C:\tlperl526\site\lib\Win32\OLE\TPJ.pod
-C:\tlperl526\site\lib\Win32\OLE\TypeInfo.pm
-C:\tlperl526\site\lib\Win32\OLE\Variant.pm
-C:\tlperl526\site\lib\auto\Win32\OLE\OLE.dll
+C:\tlperl\site\lib\OLE.pm
+C:\tlperl\site\lib\Win32\OLE.pm
+C:\tlperl\site\lib\Win32\OLE\Const.pm
+C:\tlperl\site\lib\Win32\OLE\Enum.pm
+C:\tlperl\site\lib\Win32\OLE\Lite.pm
+C:\tlperl\site\lib\Win32\OLE\NEWS.pod
+C:\tlperl\site\lib\Win32\OLE\NLS.pm
+C:\tlperl\site\lib\Win32\OLE\TPJ.pod
+C:\tlperl\site\lib\Win32\OLE\TypeInfo.pm
+C:\tlperl\site\lib\Win32\OLE\Variant.pm
+C:\tlperl\site\lib\auto\Win32\OLE\OLE.dll
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Win32/OLE/OLE.dll b/Master/tlpkg/tlperl/site/lib/auto/Win32/OLE/OLE.dll
index bcd715bbcd9..0b0103be055 100755
--- a/Master/tlpkg/tlperl/site/lib/auto/Win32/OLE/OLE.dll
+++ b/Master/tlpkg/tlperl/site/lib/auto/Win32/OLE/OLE.dll
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Win32/Shortcut/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Win32/Shortcut/.packlist
index d8e989c07c0..2969a834652 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Win32/Shortcut/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Win32/Shortcut/.packlist
@@ -1,2 +1,2 @@
-C:\tlperl526\site\lib\Win32\Shortcut.pm
-C:\tlperl526\site\lib\auto\Win32\Shortcut\Shortcut.dll
+C:\tlperl\site\lib\Win32\Shortcut.pm
+C:\tlperl\site\lib\auto\Win32\Shortcut\Shortcut.dll
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Win32/Shortcut/Shortcut.dll b/Master/tlpkg/tlperl/site/lib/auto/Win32/Shortcut/Shortcut.dll
index 4f20afefc29..42eeda695d4 100755
--- a/Master/tlpkg/tlperl/site/lib/auto/Win32/Shortcut/Shortcut.dll
+++ b/Master/tlpkg/tlperl/site/lib/auto/Win32/Shortcut/Shortcut.dll
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Win32/TieRegistry/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Win32/TieRegistry/.packlist
index b62494f253e..090c67dccf3 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Win32/TieRegistry/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Win32/TieRegistry/.packlist
@@ -1,2 +1,2 @@
-C:\tlperl526\site\lib\Tie\Registry.pm
-C:\tlperl526\site\lib\Win32\TieRegistry.pm
+C:\tlperl\site\lib\Tie\Registry.pm
+C:\tlperl\site\lib\Win32\TieRegistry.pm
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Win32API/Registry/.packlist b/Master/tlpkg/tlperl/site/lib/auto/Win32API/Registry/.packlist
index 0b36b63c563..f86d8016410 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/Win32API/Registry/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/Win32API/Registry/.packlist
@@ -1,3 +1,3 @@
-C:\tlperl526\site\lib\Win32API\Registry.pm
-C:\tlperl526\site\lib\Win32API\Registry\cRegistry.pc
-C:\tlperl526\site\lib\auto\Win32API\Registry\Registry.dll
+C:\tlperl\site\lib\Win32API\Registry.pm
+C:\tlperl\site\lib\Win32API\Registry\cRegistry.pc
+C:\tlperl\site\lib\auto\Win32API\Registry\Registry.dll
diff --git a/Master/tlpkg/tlperl/site/lib/auto/Win32API/Registry/Registry.dll b/Master/tlpkg/tlperl/site/lib/auto/Win32API/Registry/Registry.dll
index 3a6f095a769..f2dd358c533 100755
--- a/Master/tlpkg/tlperl/site/lib/auto/Win32API/Registry/Registry.dll
+++ b/Master/tlpkg/tlperl/site/lib/auto/Win32API/Registry/Registry.dll
Binary files differ
diff --git a/Master/tlpkg/tlperl/site/lib/auto/libwww/perl/.packlist b/Master/tlpkg/tlperl/site/lib/auto/libwww/perl/.packlist
index 17702f0880c..156f09f720f 100644
--- a/Master/tlpkg/tlperl/site/lib/auto/libwww/perl/.packlist
+++ b/Master/tlpkg/tlperl/site/lib/auto/libwww/perl/.packlist
@@ -1,33 +1,33 @@
-C:\tlperl526\bin\lwp-download
-C:\tlperl526\bin\lwp-download.bat
-C:\tlperl526\bin\lwp-dump
-C:\tlperl526\bin\lwp-dump.bat
-C:\tlperl526\bin\lwp-mirror
-C:\tlperl526\bin\lwp-mirror.bat
-C:\tlperl526\bin\lwp-request
-C:\tlperl526\bin\lwp-request.bat
-C:\tlperl526\site\lib\LWP.pm
-C:\tlperl526\site\lib\LWP\Authen\Basic.pm
-C:\tlperl526\site\lib\LWP\Authen\Digest.pm
-C:\tlperl526\site\lib\LWP\Authen\Ntlm.pm
-C:\tlperl526\site\lib\LWP\ConnCache.pm
-C:\tlperl526\site\lib\LWP\Debug.pm
-C:\tlperl526\site\lib\LWP\DebugFile.pm
-C:\tlperl526\site\lib\LWP\Debug\TraceHTTP.pm
-C:\tlperl526\site\lib\LWP\MemberMixin.pm
-C:\tlperl526\site\lib\LWP\Protocol.pm
-C:\tlperl526\site\lib\LWP\Protocol\cpan.pm
-C:\tlperl526\site\lib\LWP\Protocol\data.pm
-C:\tlperl526\site\lib\LWP\Protocol\file.pm
-C:\tlperl526\site\lib\LWP\Protocol\ftp.pm
-C:\tlperl526\site\lib\LWP\Protocol\gopher.pm
-C:\tlperl526\site\lib\LWP\Protocol\http.pm
-C:\tlperl526\site\lib\LWP\Protocol\loopback.pm
-C:\tlperl526\site\lib\LWP\Protocol\mailto.pm
-C:\tlperl526\site\lib\LWP\Protocol\nntp.pm
-C:\tlperl526\site\lib\LWP\Protocol\nogo.pm
-C:\tlperl526\site\lib\LWP\RobotUA.pm
-C:\tlperl526\site\lib\LWP\Simple.pm
-C:\tlperl526\site\lib\LWP\UserAgent.pm
-C:\tlperl526\site\lib\libwww\lwpcook.pod
-C:\tlperl526\site\lib\libwww\lwptut.pod
+C:\tlperl\bin\lwp-download
+C:\tlperl\bin\lwp-download.bat
+C:\tlperl\bin\lwp-dump
+C:\tlperl\bin\lwp-dump.bat
+C:\tlperl\bin\lwp-mirror
+C:\tlperl\bin\lwp-mirror.bat
+C:\tlperl\bin\lwp-request
+C:\tlperl\bin\lwp-request.bat
+C:\tlperl\site\lib\LWP.pm
+C:\tlperl\site\lib\LWP\Authen\Basic.pm
+C:\tlperl\site\lib\LWP\Authen\Digest.pm
+C:\tlperl\site\lib\LWP\Authen\Ntlm.pm
+C:\tlperl\site\lib\LWP\ConnCache.pm
+C:\tlperl\site\lib\LWP\Debug.pm
+C:\tlperl\site\lib\LWP\DebugFile.pm
+C:\tlperl\site\lib\LWP\Debug\TraceHTTP.pm
+C:\tlperl\site\lib\LWP\MemberMixin.pm
+C:\tlperl\site\lib\LWP\Protocol.pm
+C:\tlperl\site\lib\LWP\Protocol\cpan.pm
+C:\tlperl\site\lib\LWP\Protocol\data.pm
+C:\tlperl\site\lib\LWP\Protocol\file.pm
+C:\tlperl\site\lib\LWP\Protocol\ftp.pm
+C:\tlperl\site\lib\LWP\Protocol\gopher.pm
+C:\tlperl\site\lib\LWP\Protocol\http.pm
+C:\tlperl\site\lib\LWP\Protocol\loopback.pm
+C:\tlperl\site\lib\LWP\Protocol\mailto.pm
+C:\tlperl\site\lib\LWP\Protocol\nntp.pm
+C:\tlperl\site\lib\LWP\Protocol\nogo.pm
+C:\tlperl\site\lib\LWP\RobotUA.pm
+C:\tlperl\site\lib\LWP\Simple.pm
+C:\tlperl\site\lib\LWP\UserAgent.pm
+C:\tlperl\site\lib\libwww\lwpcook.pod
+C:\tlperl\site\lib\libwww\lwptut.pod