From e0a2a718e89f9700d627f1e6a8eea8f21d2fbeb8 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 10 Mar 2019 21:56:14 +0000 Subject: tl19 perl 5.28.1 for Windows, from Siep git-svn-id: svn://tug.org/texlive/trunk@50322 c570f23f-e606-0410-a88d-b1316a301751 --- .../tlperl/site/lib/auto/Cpanel/JSON/XS/.packlist | 12 +- .../tlperl/site/lib/auto/Cpanel/JSON/XS/XS.dll | Bin 82944 -> 83456 bytes .../tlperl/site/lib/auto/Date/Parse/.packlist | 74 +-- .../tlperl/site/lib/auto/Digest/SHA1/.packlist | 4 +- .../tlperl/site/lib/auto/Digest/SHA1/SHA1.dll | Bin 26112 -> 24064 bytes .../tlperl/site/lib/auto/Encode/Locale/.packlist | 2 +- .../tlperl/site/lib/auto/Encode/compat/.packlist | 8 +- .../tlperl/site/lib/auto/File/Listing/.packlist | 2 +- .../tlperl/site/lib/auto/File/Which/.packlist | 2 +- .../tlperl/site/lib/auto/HTML/Parser/.packlist | 16 +- .../tlperl/site/lib/auto/HTML/Parser/Parser.dll | Bin 54784 -> 52736 bytes .../tlperl/site/lib/auto/HTML/Tagset/.packlist | 2 +- .../tlperl/site/lib/auto/HTTP/Cookies/.packlist | 6 +- .../tlperl/site/lib/auto/HTTP/Daemon/.packlist | 2 +- .../tlpkg/tlperl/site/lib/auto/HTTP/Date/.packlist | 2 +- .../tlperl/site/lib/auto/HTTP/Message/.packlist | 20 +- .../tlperl/site/lib/auto/HTTP/Negotiate/.packlist | 2 +- .../tlpkg/tlperl/site/lib/auto/IO/HTML/.packlist | 2 +- .../tlpkg/tlperl/site/lib/auto/IO/String/.packlist | 2 +- .../tlperl/site/lib/auto/JSON/MaybeXS/.packlist | 2 +- .../tlperl/site/lib/auto/LWP/MediaTypes/.packlist | 4 +- .../tlperl/site/lib/auto/Math/Int64/.packlist | 10 +- .../tlperl/site/lib/auto/Math/Int64/Int64.dll | Bin 73216 -> 70656 bytes .../tlperl/site/lib/auto/Mozilla/CA/.packlist | 6 +- .../tlpkg/tlperl/site/lib/auto/Net/HTTP/.packlist | 8 +- Master/tlpkg/tlperl/site/lib/auto/Socket/.packlist | 4 +- .../tlpkg/tlperl/site/lib/auto/Socket/Socket.dll | Bin 43008 -> 40448 bytes .../tlperl/site/lib/auto/Test/Fatal/.packlist | 2 +- .../tlperl/site/lib/auto/Test/Needs/.packlist | 2 +- .../site/lib/auto/Test/RequiresInternet/.packlist | 2 +- Master/tlpkg/tlperl/site/lib/auto/Tk/.packlist | 645 --------------------- .../tlpkg/tlperl/site/lib/auto/Tk/CancelRepeat.al | 15 - .../tlperl/site/lib/auto/Tk/Canvas/Canvas.dll | Bin 204800 -> 0 bytes .../tlperl/site/lib/auto/Tk/Clipboard/autosplit.ix | 6 - .../site/lib/auto/Tk/Clipboard/getSelected.al | 15 - .../tlperl/site/lib/auto/Tk/Compound/Compound.dll | Bin 30208 -> 0 bytes .../tlperl/site/lib/auto/Tk/DirSelect/.packlist | 1 - .../lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll | Bin 20480 -> 0 bytes Master/tlpkg/tlperl/site/lib/auto/Tk/EnterFocus.al | 27 - .../tlpkg/tlperl/site/lib/auto/Tk/Entry/Entry.dll | Bin 52736 -> 0 bytes Master/tlpkg/tlperl/site/lib/auto/Tk/Error.al | 20 - .../tlpkg/tlperl/site/lib/auto/Tk/Event/Event.dll | Bin 65024 -> 0 bytes Master/tlpkg/tlperl/site/lib/auto/Tk/FirstMenu.al | 21 - .../tlpkg/tlperl/site/lib/auto/Tk/FocusChildren.al | 35 -- Master/tlpkg/tlperl/site/lib/auto/Tk/FocusOK.al | 36 -- .../tlperl/site/lib/auto/Tk/Frame/AddScrollbars.al | 52 -- .../tlperl/site/lib/auto/Tk/Frame/FindMenu.al | 22 - .../tlperl/site/lib/auto/Tk/Frame/autosplit.ix | 24 - .../tlperl/site/lib/auto/Tk/Frame/freeze_on_map.al | 18 - .../tlpkg/tlperl/site/lib/auto/Tk/Frame/label.al | 24 - .../tlperl/site/lib/auto/Tk/Frame/labelPack.al | 50 -- .../tlperl/site/lib/auto/Tk/Frame/labelVariable.al | 27 - .../site/lib/auto/Tk/Frame/packscrollbars.al | 86 --- .../tlperl/site/lib/auto/Tk/Frame/queuePack.al | 18 - .../tlpkg/tlperl/site/lib/auto/Tk/Frame/sbset.al | 15 - .../tlperl/site/lib/auto/Tk/Frame/scrollbars.al | 24 - .../tlpkg/tlperl/site/lib/auto/Tk/HList/HList.dll | Bin 68096 -> 0 bytes Master/tlpkg/tlperl/site/lib/auto/Tk/IO/IO.dll | Bin 18432 -> 0 bytes Master/tlpkg/tlperl/site/lib/auto/Tk/ImageNames.al | 13 - Master/tlpkg/tlperl/site/lib/auto/Tk/ImageTypes.al | 13 - Master/tlpkg/tlperl/site/lib/auto/Tk/JPEG/JPEG.dll | Bin 144384 -> 0 bytes .../tlperl/site/lib/auto/Tk/Listbox/AutoScan.al | 49 -- .../tlperl/site/lib/auto/Tk/Listbox/BeginExtend.al | 34 -- .../tlperl/site/lib/auto/Tk/Listbox/BeginSelect.al | 46 -- .../tlperl/site/lib/auto/Tk/Listbox/BeginToggle.al | 40 -- .../site/lib/auto/Tk/Listbox/ButtonRelease_1.al | 16 - .../tlpkg/tlperl/site/lib/auto/Tk/Listbox/CLEAR.al | 16 - .../tlperl/site/lib/auto/Tk/Listbox/Cancel.al | 42 -- .../tlperl/site/lib/auto/Tk/Listbox/Cntrl_End.al | 19 - .../tlperl/site/lib/auto/Tk/Listbox/Cntrl_Home.al | 19 - .../site/lib/auto/Tk/Listbox/Cntrl_backslash.al | 19 - .../tlperl/site/lib/auto/Tk/Listbox/DELETE.al | 19 - .../tlperl/site/lib/auto/Tk/Listbox/DataExtend.al | 39 -- .../tlperl/site/lib/auto/Tk/Listbox/EXISTS.al | 16 - .../tlperl/site/lib/auto/Tk/Listbox/EXTEND.al | 16 - .../site/lib/auto/Tk/Listbox/ExtendUpDown.al | 36 -- .../tlpkg/tlperl/site/lib/auto/Tk/Listbox/FETCH.al | 56 -- .../tlperl/site/lib/auto/Tk/Listbox/FETCHSIZE.al | 16 - .../tlperl/site/lib/auto/Tk/Listbox/Listbox.dll | Bin 40448 -> 0 bytes .../tlperl/site/lib/auto/Tk/Listbox/Motion.al | 77 --- .../tlpkg/tlperl/site/lib/auto/Tk/Listbox/POP.al | 19 - .../tlpkg/tlperl/site/lib/auto/Tk/Listbox/PUSH.al | 13 - .../tlpkg/tlperl/site/lib/auto/Tk/Listbox/SHIFT.al | 19 - .../tlperl/site/lib/auto/Tk/Listbox/SPLICE.al | 84 --- .../tlpkg/tlperl/site/lib/auto/Tk/Listbox/STORE.al | 80 --- .../tlperl/site/lib/auto/Tk/Listbox/SelectAll.al | 32 - .../tlperl/site/lib/auto/Tk/Listbox/SetList.al | 16 - .../tlperl/site/lib/auto/Tk/Listbox/TIEARRAY.al | 15 - .../tlperl/site/lib/auto/Tk/Listbox/TIESCALAR.al | 15 - .../tlperl/site/lib/auto/Tk/Listbox/UNSHIFT.al | 16 - .../tlperl/site/lib/auto/Tk/Listbox/UpDown.al | 41 -- .../tlperl/site/lib/auto/Tk/Listbox/autosplit.ix | 56 -- .../site/lib/auto/Tk/Listbox/clipboardPaste.al | 21 - .../site/lib/auto/Tk/Listbox/deleteSelected.al | 18 - .../tlperl/site/lib/auto/Tk/Listbox/getSelected.al | 24 - .../tlperl/site/lib/auto/Tk/Listbox/xyIndex.al | 29 - .../site/lib/auto/Tk/Menubutton/Menubutton.dll | Bin 30720 -> 0 bytes .../tlperl/site/lib/auto/Tk/NBFrame/NBFrame.dll | Bin 31232 -> 0 bytes Master/tlpkg/tlperl/site/lib/auto/Tk/PNG/PNG.dll | Bin 242688 -> 0 bytes .../tlperl/site/lib/auto/Tk/Pixmap/Pixmap.dll | Bin 35840 -> 0 bytes Master/tlpkg/tlperl/site/lib/auto/Tk/Receive.al | 23 - Master/tlpkg/tlperl/site/lib/auto/Tk/RepeatId.al | 16 - .../tlperl/site/lib/auto/Tk/Scale/Activate.al | 33 -- .../tlperl/site/lib/auto/Tk/Scale/ButtonDown.al | 40 -- .../tlperl/site/lib/auto/Tk/Scale/ButtonUp.al | 16 - .../tlperl/site/lib/auto/Tk/Scale/ControlPress.al | 31 - Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Drag.al | 29 - .../tlpkg/tlperl/site/lib/auto/Tk/Scale/EndDrag.al | 23 - .../tlpkg/tlperl/site/lib/auto/Tk/Scale/Enter.al | 19 - .../tlperl/site/lib/auto/Tk/Scale/Increment.al | 61 -- .../tlpkg/tlperl/site/lib/auto/Tk/Scale/Leave.al | 15 - .../tlpkg/tlperl/site/lib/auto/Tk/Scale/Scale.dll | Bin 34304 -> 0 bytes .../tlperl/site/lib/auto/Tk/Scale/autosplit.ix | 22 - .../site/lib/auto/Tk/Scrollbar/ButtonDown.al | 55 -- .../tlperl/site/lib/auto/Tk/Scrollbar/ButtonUp.al | 26 - .../tlperl/site/lib/auto/Tk/Scrollbar/Drag.al | 43 -- .../tlperl/site/lib/auto/Tk/Scrollbar/EndDrag.al | 28 - .../tlperl/site/lib/auto/Tk/Scrollbar/Enter.al | 21 - .../tlperl/site/lib/auto/Tk/Scrollbar/Leave.al | 18 - .../tlperl/site/lib/auto/Tk/Scrollbar/Motion.al | 15 - .../site/lib/auto/Tk/Scrollbar/ScrlByPages.al | 38 -- .../site/lib/auto/Tk/Scrollbar/ScrlByUnits.al | 37 -- .../tlperl/site/lib/auto/Tk/Scrollbar/ScrlToPos.al | 35 -- .../site/lib/auto/Tk/Scrollbar/ScrlTopBottom.al | 32 - .../site/lib/auto/Tk/Scrollbar/Scrollbar.dll | Bin 31232 -> 0 bytes .../tlperl/site/lib/auto/Tk/Scrollbar/Select.al | 59 -- .../tlperl/site/lib/auto/Tk/Scrollbar/StartDrag.al | 38 -- .../tlperl/site/lib/auto/Tk/Scrollbar/autosplit.ix | 30 - Master/tlpkg/tlperl/site/lib/auto/Tk/Selection.al | 18 - .../tlpkg/tlperl/site/lib/auto/Tk/TList/TList.dll | Bin 40448 -> 0 bytes .../tlpkg/tlperl/site/lib/auto/Tk/Table/Create.al | 17 - Master/tlpkg/tlperl/site/lib/auto/Tk/Table/Posn.al | 15 - .../tlperl/site/lib/auto/Tk/Table/autosplit.ix | 14 - Master/tlpkg/tlperl/site/lib/auto/Tk/Table/see.al | 46 -- .../tlperl/site/lib/auto/Tk/Table/totalColumns.al | 13 - .../tlperl/site/lib/auto/Tk/Table/totalRows.al | 13 - Master/tlpkg/tlperl/site/lib/auto/Tk/Text/Text.dll | Bin 132096 -> 0 bytes .../tlperl/site/lib/auto/Tk/Text/autosplit.ix | 3 - .../tlperl/site/lib/auto/Tk/TextEdit/autosplit.ix | 3 - .../tlperl/site/lib/auto/Tk/TextUndo/autosplit.ix | 3 - .../tlperl/site/lib/auto/Tk/TixGrid/TixGrid.dll | Bin 87552 -> 0 bytes Master/tlpkg/tlperl/site/lib/auto/Tk/Tk.dll | Bin 937472 -> 0 bytes .../tlperl/site/lib/auto/Tk/Toplevel/FG_BindIn.al | 19 - .../tlperl/site/lib/auto/Tk/Toplevel/FG_BindOut.al | 20 - .../tlperl/site/lib/auto/Tk/Toplevel/FG_Create.al | 56 -- .../tlperl/site/lib/auto/Tk/Toplevel/FG_Destroy.al | 29 - .../tlperl/site/lib/auto/Tk/Toplevel/FG_In.al | 24 - .../tlperl/site/lib/auto/Tk/Toplevel/FG_Out.al | 32 - .../tlperl/site/lib/auto/Tk/Toplevel/autosplit.ix | 10 - .../tlperl/site/lib/auto/Tk/TraverseToMenu.al | 27 - .../tlperl/site/lib/auto/Tk/Widget/ASkludge.al | 30 - .../site/lib/auto/Tk/Widget/AltKeyInDialog.al | 20 - .../tlperl/site/lib/auto/Tk/Widget/AmpWidget.al | 36 -- .../site/lib/auto/Tk/Widget/FindAltKeyTarget.al | 38 -- .../tlperl/site/lib/auto/Tk/Widget/MasterMenu.al | 14 - .../site/lib/auto/Tk/Widget/RestoreFocusGrab.al | 59 -- .../tlperl/site/lib/auto/Tk/Widget/SetAmpText.al | 19 - .../tlperl/site/lib/auto/Tk/Widget/SetFocusGrab.al | 38 -- .../site/lib/auto/Tk/Widget/UnderlineAmpersand.al | 29 - .../tlperl/site/lib/auto/Tk/Widget/autosplit.ix | 27 - .../tlperl/site/lib/auto/Tk/Widget/bindDump.al | 87 --- .../site/lib/auto/Tk/Widget/clipboardKeysyms.al | 51 -- .../tlperl/site/lib/auto/Tk/Widget/pathname.al | 15 - .../tlperl/site/lib/auto/Tk/Wm/AnchorAdjust.al | 17 - .../tlpkg/tlperl/site/lib/auto/Tk/Wm/FullScreen.al | 29 - Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/Popup.al | 50 -- Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/Post.al | 20 - .../tlpkg/tlperl/site/lib/auto/Tk/Wm/autosplit.ix | 14 - .../tlperl/site/lib/auto/Tk/Wm/iconposition.al | 24 - Master/tlpkg/tlperl/site/lib/auto/Tk/X/X.dll | Bin 35840 -> 0 bytes .../tlpkg/tlperl/site/lib/auto/Tk/X/autosplit.ix | 3 - Master/tlpkg/tlperl/site/lib/auto/Tk/Xlib/Xlib.dll | Bin 35840 -> 0 bytes Master/tlpkg/tlperl/site/lib/auto/Tk/autosplit.ix | 49 -- Master/tlpkg/tlperl/site/lib/auto/Tk/break.al | 13 - .../tlperl/site/lib/auto/Tk/focusFollowsMouse.al | 14 - Master/tlpkg/tlperl/site/lib/auto/Tk/focusNext.al | 18 - Master/tlpkg/tlperl/site/lib/auto/Tk/focusPrev.al | 28 - .../tlpkg/tlperl/site/lib/auto/Tk/getEncoding.al | 43 -- .../tlpkg/tlperl/site/lib/auto/Tk/getNextFocus.al | 44 -- .../tlpkg/tlperl/site/lib/auto/Tk/getPrevFocus.al | 54 -- Master/tlpkg/tlperl/site/lib/auto/Tk/interps.al | 14 - Master/tlpkg/tlperl/site/lib/auto/Tk/lsearch.al | 19 - .../tlpkg/tlperl/site/lib/auto/Tk/pTk/extralibs.ld | 1 - Master/tlpkg/tlperl/site/lib/auto/Tk/tabFocus.al | 13 - .../tlpkg/tlperl/site/lib/auto/Tk/updateWidgets.al | 17 - .../tlpkg/tlperl/site/lib/auto/Try/Tiny/.packlist | 2 +- Master/tlpkg/tlperl/site/lib/auto/URI/.packlist | 106 ++-- .../tlperl/site/lib/auto/WWW/RobotRules/.packlist | 4 +- .../tlpkg/tlperl/site/lib/auto/Win32/API/.packlist | 14 +- .../tlpkg/tlperl/site/lib/auto/Win32/API/API.dll | Bin 33792 -> 31744 bytes .../site/lib/auto/Win32/API/Callback/Callback.dll | Bin 28160 -> 25600 bytes .../tlperl/site/lib/auto/Win32/Console/.packlist | 4 +- .../tlperl/site/lib/auto/Win32/Console/Console.dll | Bin 51712 -> 50176 bytes .../tlpkg/tlperl/site/lib/auto/Win32/OLE/.packlist | 22 +- .../tlpkg/tlperl/site/lib/auto/Win32/OLE/OLE.dll | Bin 137728 -> 135680 bytes .../tlperl/site/lib/auto/Win32/Shortcut/.packlist | 4 +- .../site/lib/auto/Win32/Shortcut/Shortcut.dll | Bin 54784 -> 52224 bytes .../site/lib/auto/Win32/TieRegistry/.packlist | 4 +- .../site/lib/auto/Win32API/Registry/.packlist | 6 +- .../site/lib/auto/Win32API/Registry/Registry.dll | Bin 168448 -> 157184 bytes .../tlperl/site/lib/auto/libwww/perl/.packlist | 66 +-- 201 files changed, 215 insertions(+), 4607 deletions(-) delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/.packlist delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/CancelRepeat.al delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/Canvas/Canvas.dll delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Clipboard/autosplit.ix delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Clipboard/getSelected.al delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/Compound/Compound.dll delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/DirSelect/.packlist delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/EnterFocus.al delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/Entry/Entry.dll delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Error.al delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/Event/Event.dll delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/FirstMenu.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/FocusChildren.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/FocusOK.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/AddScrollbars.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/FindMenu.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/autosplit.ix delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/freeze_on_map.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/label.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/labelPack.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/labelVariable.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/packscrollbars.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/queuePack.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/sbset.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Frame/scrollbars.al delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/HList/HList.dll delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/IO/IO.dll delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/ImageNames.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/ImageTypes.al delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/JPEG/JPEG.dll delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/AutoScan.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/BeginExtend.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/BeginSelect.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/BeginToggle.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/ButtonRelease_1.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/CLEAR.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cancel.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cntrl_End.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cntrl_Home.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Cntrl_backslash.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/DELETE.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/DataExtend.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/EXISTS.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/EXTEND.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/ExtendUpDown.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/FETCH.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/FETCHSIZE.al delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Listbox.dll delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Motion.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/POP.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/PUSH.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SHIFT.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SPLICE.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/STORE.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SelectAll.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/SetList.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/TIEARRAY.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/TIESCALAR.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/UNSHIFT.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/UpDown.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/autosplit.ix delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/clipboardPaste.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/deleteSelected.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/getSelected.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/xyIndex.al delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/Menubutton/Menubutton.dll delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/NBFrame/NBFrame.dll delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/PNG/PNG.dll delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/Pixmap/Pixmap.dll delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Receive.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/RepeatId.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Activate.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/ButtonDown.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/ButtonUp.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/ControlPress.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Drag.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/EndDrag.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Enter.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Increment.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Leave.al delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Scale.dll delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/autosplit.ix delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ButtonDown.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ButtonUp.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Drag.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/EndDrag.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Enter.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Leave.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Motion.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlByPages.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlByUnits.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlToPos.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/ScrlTopBottom.al delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Scrollbar.dll delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Select.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/StartDrag.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/autosplit.ix delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Selection.al delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/TList/TList.dll delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Table/Create.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Table/Posn.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Table/autosplit.ix delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Table/see.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Table/totalColumns.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Table/totalRows.al delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/Text/Text.dll delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Text/autosplit.ix delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/TextEdit/autosplit.ix delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/TextUndo/autosplit.ix delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/TixGrid/TixGrid.dll delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/Tk.dll delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_BindIn.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_BindOut.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_Create.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_Destroy.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_In.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/FG_Out.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Toplevel/autosplit.ix delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/TraverseToMenu.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/ASkludge.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/AltKeyInDialog.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/AmpWidget.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/FindAltKeyTarget.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/MasterMenu.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/RestoreFocusGrab.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/SetAmpText.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/SetFocusGrab.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/UnderlineAmpersand.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/autosplit.ix delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/bindDump.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/clipboardKeysyms.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Widget/pathname.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/AnchorAdjust.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/FullScreen.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/Popup.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/Post.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/autosplit.ix delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/Wm/iconposition.al delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/X/X.dll delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/X/autosplit.ix delete mode 100755 Master/tlpkg/tlperl/site/lib/auto/Tk/Xlib/Xlib.dll delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/autosplit.ix delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/break.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/focusFollowsMouse.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/focusNext.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/focusPrev.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/getEncoding.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/getNextFocus.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/getPrevFocus.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/interps.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/lsearch.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/pTk/extralibs.ld delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/tabFocus.al delete mode 100644 Master/tlpkg/tlperl/site/lib/auto/Tk/updateWidgets.al (limited to 'Master/tlpkg/tlperl/site/lib/auto') 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Cpanel/JSON/XS/XS.dll and b/Master/tlpkg/tlperl/site/lib/auto/Cpanel/JSON/XS/XS.dll 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Digest/SHA1/SHA1.dll and b/Master/tlpkg/tlperl/site/lib/auto/Digest/SHA1/SHA1.dll 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/HTML/Parser/Parser.dll and b/Master/tlpkg/tlperl/site/lib/auto/HTML/Parser/Parser.dll 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Math/Int64/Int64.dll and b/Master/tlpkg/tlperl/site/lib/auto/Math/Int64/Int64.dll 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Socket/Socket.dll and b/Master/tlpkg/tlperl/site/lib/auto/Socket/Socket.dll 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/Canvas/Canvas.dll and /dev/null 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/Compound/Compound.dll and /dev/null 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll and /dev/null 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/Entry/Entry.dll and /dev/null 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/Event/Event.dll and /dev/null 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','')) - { - $w->Tk::bind('Freeze','',['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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/HList/HList.dll and /dev/null 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/IO/IO.dll and /dev/null 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/JPEG/JPEG.dll and /dev/null 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("<>"); -} - -# 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("<>"); - } -} - -# 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("<>"); -} - -# 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("<>"); -} - -# 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("<>"); -} - -# 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("<>"); - } -} - -# 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/Listbox/Listbox.dll and /dev/null 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("<>"); - } - 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("<>"); - } -} - -# 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("<>"); -} - -# 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("<>"); - } - elsif ($mode eq 'extended') - { - $w->selectionClear(0,'end'); - $w->selectionSet('active'); - $w->selectionAnchor('active'); - $Prev = $w->index('active'); - @Selection = (); - $w->eventGenerate("<>"); - } -} - -# 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/Menubutton/Menubutton.dll and /dev/null 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/NBFrame/NBFrame.dll and /dev/null 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/PNG/PNG.dll and /dev/null 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/Pixmap/Pixmap.dll and /dev/null 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scale/Scale.dll and /dev/null 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/Scrollbar/Scrollbar.dll and /dev/null 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/TList/TList.dll and /dev/null 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/Text/Text.dll and /dev/null 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/TixGrid/TixGrid.dll and /dev/null 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/Tk.dll and /dev/null 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('', sub { - my $w = shift; - my $Ev = $w->XEvent; - $t->FG_In($w, $Ev->d); - } - ); - $t->bind('', sub { - my $w = shift; - my $Ev = $w->XEvent; - $t->FG_Out($w, $Ev->d); - } - ); - $t->bind('', sub { - my $w = shift; - my $Ev = $w->XEvent; - $t->FG_Destroy($w); - } - ); - # 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 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 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 -- -# event handler for standard dialogs. Sends <> -# to button or label which has appropriate underlined character -# -sub AltKeyInDialog -{ - my ($w, $key) = @_; - my $target = $w->FindAltKeyTarget($key); - return if !$target; - $target->eventGenerate('<>'); -} - -# 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{(?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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/X/X.dll and /dev/null 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Tk/Xlib/Xlib.dll and /dev/null 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','','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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Win32/API/API.dll and b/Master/tlpkg/tlperl/site/lib/auto/Win32/API/API.dll 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Win32/API/Callback/Callback.dll and b/Master/tlpkg/tlperl/site/lib/auto/Win32/API/Callback/Callback.dll 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Win32/Console/Console.dll and b/Master/tlpkg/tlperl/site/lib/auto/Win32/Console/Console.dll 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Win32/OLE/OLE.dll and b/Master/tlpkg/tlperl/site/lib/auto/Win32/OLE/OLE.dll 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Win32/Shortcut/Shortcut.dll and b/Master/tlpkg/tlperl/site/lib/auto/Win32/Shortcut/Shortcut.dll 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 Binary files a/Master/tlpkg/tlperl/site/lib/auto/Win32API/Registry/Registry.dll and b/Master/tlpkg/tlperl/site/lib/auto/Win32API/Registry/Registry.dll 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 -- cgit v1.2.3