From 2acf4c9396e980e00adbdc02f5a70eefc7122b55 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Thu, 17 Feb 2011 15:53:26 +0000 Subject: New tlperl part VI git-svn-id: svn://tug.org/texlive/trunk@21428 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlperl/lib/auto/Tk/.packlist | 662 +++++++++++++++++++++ Master/tlpkg/tlperl/lib/auto/Tk/CancelRepeat.al | 15 + Master/tlpkg/tlperl/lib/auto/Tk/Canvas/Canvas.bs | 0 Master/tlpkg/tlperl/lib/auto/Tk/Canvas/Canvas.dll | Bin 0 -> 177152 bytes .../tlperl/lib/auto/Tk/Clipboard/autosplit.ix | 6 + .../tlperl/lib/auto/Tk/Clipboard/getSelected.al | 15 + .../tlpkg/tlperl/lib/auto/Tk/Compound/Compound.bs | 0 .../tlpkg/tlperl/lib/auto/Tk/Compound/Compound.dll | Bin 0 -> 23552 bytes .../lib/auto/Tk/DragDrop/Win32Site/Win32Site.bs | 0 .../lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll | Bin 0 -> 14848 bytes Master/tlpkg/tlperl/lib/auto/Tk/EnterFocus.al | 27 + Master/tlpkg/tlperl/lib/auto/Tk/Entry/Entry.bs | 0 Master/tlpkg/tlperl/lib/auto/Tk/Entry/Entry.dll | Bin 0 -> 44544 bytes Master/tlpkg/tlperl/lib/auto/Tk/Error.al | 20 + Master/tlpkg/tlperl/lib/auto/Tk/Event/Event.bs | 0 Master/tlpkg/tlperl/lib/auto/Tk/Event/Event.dll | Bin 0 -> 55296 bytes Master/tlpkg/tlperl/lib/auto/Tk/FirstMenu.al | 21 + Master/tlpkg/tlperl/lib/auto/Tk/FocusChildren.al | 35 ++ Master/tlpkg/tlperl/lib/auto/Tk/FocusOK.al | 36 ++ .../tlperl/lib/auto/Tk/Frame/AddScrollbars.al | 52 ++ Master/tlpkg/tlperl/lib/auto/Tk/Frame/FindMenu.al | 22 + Master/tlpkg/tlperl/lib/auto/Tk/Frame/autosplit.ix | 24 + .../tlperl/lib/auto/Tk/Frame/freeze_on_map.al | 18 + Master/tlpkg/tlperl/lib/auto/Tk/Frame/label.al | 24 + Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelPack.al | 50 ++ .../tlperl/lib/auto/Tk/Frame/labelVariable.al | 27 + .../tlperl/lib/auto/Tk/Frame/packscrollbars.al | 86 +++ Master/tlpkg/tlperl/lib/auto/Tk/Frame/queuePack.al | 18 + Master/tlpkg/tlperl/lib/auto/Tk/Frame/sbset.al | 15 + .../tlpkg/tlperl/lib/auto/Tk/Frame/scrollbars.al | 24 + Master/tlpkg/tlperl/lib/auto/Tk/HList/HList.bs | 0 Master/tlpkg/tlperl/lib/auto/Tk/HList/HList.dll | Bin 0 -> 57856 bytes Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.bs | 0 Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.dll | Bin 0 -> 12800 bytes Master/tlpkg/tlperl/lib/auto/Tk/ImageNames.al | 13 + Master/tlpkg/tlperl/lib/auto/Tk/ImageTypes.al | 13 + Master/tlpkg/tlperl/lib/auto/Tk/JPEG/JPEG.bs | 0 Master/tlpkg/tlperl/lib/auto/Tk/JPEG/JPEG.dll | Bin 0 -> 119808 bytes .../tlpkg/tlperl/lib/auto/Tk/Listbox/AutoScan.al | 49 ++ .../tlperl/lib/auto/Tk/Listbox/BeginExtend.al | 34 ++ .../tlperl/lib/auto/Tk/Listbox/BeginSelect.al | 46 ++ .../tlperl/lib/auto/Tk/Listbox/BeginToggle.al | 40 ++ .../tlperl/lib/auto/Tk/Listbox/ButtonRelease_1.al | 16 + Master/tlpkg/tlperl/lib/auto/Tk/Listbox/CLEAR.al | 16 + Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cancel.al | 42 ++ .../tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_End.al | 19 + .../tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_Home.al | 19 + .../tlperl/lib/auto/Tk/Listbox/Cntrl_backslash.al | 19 + Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DELETE.al | 19 + .../tlpkg/tlperl/lib/auto/Tk/Listbox/DataExtend.al | 39 ++ Master/tlpkg/tlperl/lib/auto/Tk/Listbox/EXISTS.al | 16 + Master/tlpkg/tlperl/lib/auto/Tk/Listbox/EXTEND.al | 16 + .../tlperl/lib/auto/Tk/Listbox/ExtendUpDown.al | 36 ++ Master/tlpkg/tlperl/lib/auto/Tk/Listbox/FETCH.al | 56 ++ .../tlpkg/tlperl/lib/auto/Tk/Listbox/FETCHSIZE.al | 16 + Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Listbox.bs | 0 .../tlpkg/tlperl/lib/auto/Tk/Listbox/Listbox.dll | Bin 0 -> 35328 bytes Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Motion.al | 77 +++ Master/tlpkg/tlperl/lib/auto/Tk/Listbox/POP.al | 19 + Master/tlpkg/tlperl/lib/auto/Tk/Listbox/PUSH.al | 13 + Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SHIFT.al | 19 + Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SPLICE.al | 84 +++ Master/tlpkg/tlperl/lib/auto/Tk/Listbox/STORE.al | 80 +++ .../tlpkg/tlperl/lib/auto/Tk/Listbox/SelectAll.al | 32 + Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SetList.al | 16 + .../tlpkg/tlperl/lib/auto/Tk/Listbox/TIEARRAY.al | 15 + .../tlpkg/tlperl/lib/auto/Tk/Listbox/TIESCALAR.al | 15 + Master/tlpkg/tlperl/lib/auto/Tk/Listbox/UNSHIFT.al | 16 + Master/tlpkg/tlperl/lib/auto/Tk/Listbox/UpDown.al | 41 ++ .../tlpkg/tlperl/lib/auto/Tk/Listbox/autosplit.ix | 56 ++ .../tlperl/lib/auto/Tk/Listbox/clipboardPaste.al | 21 + .../tlperl/lib/auto/Tk/Listbox/deleteSelected.al | 18 + .../tlperl/lib/auto/Tk/Listbox/getSelected.al | 24 + Master/tlpkg/tlperl/lib/auto/Tk/Listbox/xyIndex.al | 29 + .../tlperl/lib/auto/Tk/Menubutton/Menubutton.bs | 0 .../tlperl/lib/auto/Tk/Menubutton/Menubutton.dll | Bin 0 -> 24576 bytes Master/tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.bs | 0 .../tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.dll | Bin 0 -> 25600 bytes Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.bs | 0 Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.dll | Bin 0 -> 194048 bytes Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.bs | 0 Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.dll | Bin 0 -> 29184 bytes Master/tlpkg/tlperl/lib/auto/Tk/Receive.al | 23 + Master/tlpkg/tlperl/lib/auto/Tk/RepeatId.al | 16 + Master/tlpkg/tlperl/lib/auto/Tk/Scale/Activate.al | 33 + .../tlpkg/tlperl/lib/auto/Tk/Scale/ButtonDown.al | 40 ++ Master/tlpkg/tlperl/lib/auto/Tk/Scale/ButtonUp.al | 16 + .../tlpkg/tlperl/lib/auto/Tk/Scale/ControlPress.al | 31 + Master/tlpkg/tlperl/lib/auto/Tk/Scale/Drag.al | 29 + Master/tlpkg/tlperl/lib/auto/Tk/Scale/EndDrag.al | 23 + Master/tlpkg/tlperl/lib/auto/Tk/Scale/Enter.al | 19 + Master/tlpkg/tlperl/lib/auto/Tk/Scale/Increment.al | 61 ++ Master/tlpkg/tlperl/lib/auto/Tk/Scale/Leave.al | 15 + Master/tlpkg/tlperl/lib/auto/Tk/Scale/Scale.bs | 0 Master/tlpkg/tlperl/lib/auto/Tk/Scale/Scale.dll | Bin 0 -> 28160 bytes Master/tlpkg/tlperl/lib/auto/Tk/Scale/autosplit.ix | 22 + .../tlperl/lib/auto/Tk/Scrollbar/ButtonDown.al | 55 ++ .../tlpkg/tlperl/lib/auto/Tk/Scrollbar/ButtonUp.al | 26 + Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Drag.al | 43 ++ .../tlpkg/tlperl/lib/auto/Tk/Scrollbar/EndDrag.al | 28 + Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Enter.al | 21 + Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Leave.al | 18 + .../tlpkg/tlperl/lib/auto/Tk/Scrollbar/Motion.al | 15 + .../tlperl/lib/auto/Tk/Scrollbar/ScrlByPages.al | 38 ++ .../tlperl/lib/auto/Tk/Scrollbar/ScrlByUnits.al | 37 ++ .../tlperl/lib/auto/Tk/Scrollbar/ScrlToPos.al | 35 ++ .../tlperl/lib/auto/Tk/Scrollbar/ScrlTopBottom.al | 32 + .../tlperl/lib/auto/Tk/Scrollbar/Scrollbar.bs | 0 .../tlperl/lib/auto/Tk/Scrollbar/Scrollbar.dll | Bin 0 -> 24064 bytes .../tlpkg/tlperl/lib/auto/Tk/Scrollbar/Select.al | 59 ++ .../tlperl/lib/auto/Tk/Scrollbar/StartDrag.al | 38 ++ .../tlperl/lib/auto/Tk/Scrollbar/autosplit.ix | 30 + Master/tlpkg/tlperl/lib/auto/Tk/Selection.al | 18 + Master/tlpkg/tlperl/lib/auto/Tk/TList/TList.bs | 0 Master/tlpkg/tlperl/lib/auto/Tk/TList/TList.dll | Bin 0 -> 32256 bytes Master/tlpkg/tlperl/lib/auto/Tk/Table/Create.al | 17 + Master/tlpkg/tlperl/lib/auto/Tk/Table/Posn.al | 15 + Master/tlpkg/tlperl/lib/auto/Tk/Table/autosplit.ix | 14 + Master/tlpkg/tlperl/lib/auto/Tk/Table/see.al | 46 ++ .../tlpkg/tlperl/lib/auto/Tk/Table/totalColumns.al | 13 + Master/tlpkg/tlperl/lib/auto/Tk/Table/totalRows.al | 13 + Master/tlpkg/tlperl/lib/auto/Tk/Text/Text.bs | 0 Master/tlpkg/tlperl/lib/auto/Tk/Text/Text.dll | Bin 0 -> 114688 bytes Master/tlpkg/tlperl/lib/auto/Tk/Text/autosplit.ix | 3 + .../tlpkg/tlperl/lib/auto/Tk/TextEdit/autosplit.ix | 3 + .../tlpkg/tlperl/lib/auto/Tk/TextUndo/autosplit.ix | 3 + Master/tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.bs | 0 .../tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.dll | Bin 0 -> 71680 bytes Master/tlpkg/tlperl/lib/auto/Tk/Tk.bs | 0 Master/tlpkg/tlperl/lib/auto/Tk/Tk.dll | Bin 0 -> 801280 bytes .../tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_BindIn.al | 19 + .../tlperl/lib/auto/Tk/Toplevel/FG_BindOut.al | 20 + .../tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Create.al | 56 ++ .../tlperl/lib/auto/Tk/Toplevel/FG_Destroy.al | 29 + Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_In.al | 24 + Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Out.al | 32 + .../tlpkg/tlperl/lib/auto/Tk/Toplevel/autosplit.ix | 10 + Master/tlpkg/tlperl/lib/auto/Tk/TraverseToMenu.al | 27 + Master/tlpkg/tlperl/lib/auto/Tk/Widget/ASkludge.al | 30 + .../tlperl/lib/auto/Tk/Widget/AltKeyInDialog.al | 20 + .../tlpkg/tlperl/lib/auto/Tk/Widget/AmpWidget.al | 36 ++ .../tlperl/lib/auto/Tk/Widget/FindAltKeyTarget.al | 38 ++ .../tlpkg/tlperl/lib/auto/Tk/Widget/MasterMenu.al | 14 + .../tlperl/lib/auto/Tk/Widget/RestoreFocusGrab.al | 59 ++ .../tlpkg/tlperl/lib/auto/Tk/Widget/SetAmpText.al | 19 + .../tlperl/lib/auto/Tk/Widget/SetFocusGrab.al | 38 ++ .../lib/auto/Tk/Widget/UnderlineAmpersand.al | 29 + .../tlpkg/tlperl/lib/auto/Tk/Widget/autosplit.ix | 27 + Master/tlpkg/tlperl/lib/auto/Tk/Widget/bindDump.al | 87 +++ .../tlperl/lib/auto/Tk/Widget/clipboardKeysyms.al | 51 ++ Master/tlpkg/tlperl/lib/auto/Tk/Widget/pathname.al | 15 + Master/tlpkg/tlperl/lib/auto/Tk/Wm/AnchorAdjust.al | 17 + Master/tlpkg/tlperl/lib/auto/Tk/Wm/FullScreen.al | 29 + Master/tlpkg/tlperl/lib/auto/Tk/Wm/Popup.al | 50 ++ Master/tlpkg/tlperl/lib/auto/Tk/Wm/Post.al | 20 + Master/tlpkg/tlperl/lib/auto/Tk/Wm/autosplit.ix | 14 + Master/tlpkg/tlperl/lib/auto/Tk/Wm/iconposition.al | 24 + Master/tlpkg/tlperl/lib/auto/Tk/X/X.bs | 0 Master/tlpkg/tlperl/lib/auto/Tk/X/X.dll | Bin 0 -> 30208 bytes Master/tlpkg/tlperl/lib/auto/Tk/X/autosplit.ix | 3 + Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.bs | 0 Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.dll | Bin 0 -> 33280 bytes Master/tlpkg/tlperl/lib/auto/Tk/autosplit.ix | 49 ++ Master/tlpkg/tlperl/lib/auto/Tk/break.al | 13 + .../tlpkg/tlperl/lib/auto/Tk/focusFollowsMouse.al | 14 + Master/tlpkg/tlperl/lib/auto/Tk/focusNext.al | 18 + Master/tlpkg/tlperl/lib/auto/Tk/focusPrev.al | 28 + Master/tlpkg/tlperl/lib/auto/Tk/getEncoding.al | 43 ++ Master/tlpkg/tlperl/lib/auto/Tk/getNextFocus.al | 44 ++ Master/tlpkg/tlperl/lib/auto/Tk/getPrevFocus.al | 54 ++ Master/tlpkg/tlperl/lib/auto/Tk/interps.al | 14 + Master/tlpkg/tlperl/lib/auto/Tk/lsearch.al | 19 + Master/tlpkg/tlperl/lib/auto/Tk/pTk/extralibs.ld | 1 + Master/tlpkg/tlperl/lib/auto/Tk/tabFocus.al | 13 + Master/tlpkg/tlperl/lib/auto/Tk/updateWidgets.al | 17 + 175 files changed, 4408 insertions(+) create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/.packlist create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/CancelRepeat.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Canvas/Canvas.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/Canvas/Canvas.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Clipboard/autosplit.ix create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Clipboard/getSelected.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Compound/Compound.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/Compound/Compound.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/DragDrop/Win32Site/Win32Site.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/EnterFocus.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Entry/Entry.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/Entry/Entry.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Error.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Event/Event.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/Event/Event.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/FirstMenu.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/FocusChildren.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/FocusOK.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Frame/AddScrollbars.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Frame/FindMenu.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Frame/autosplit.ix create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Frame/freeze_on_map.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Frame/label.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelPack.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelVariable.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Frame/packscrollbars.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Frame/queuePack.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Frame/sbset.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Frame/scrollbars.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/HList/HList.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/HList/HList.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/ImageNames.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/ImageTypes.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/JPEG/JPEG.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/JPEG/JPEG.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/AutoScan.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginExtend.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginSelect.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginToggle.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/ButtonRelease_1.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/CLEAR.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cancel.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_End.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_Home.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_backslash.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DELETE.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DataExtend.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/EXISTS.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/EXTEND.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/ExtendUpDown.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/FETCH.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/FETCHSIZE.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Listbox.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Listbox.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Motion.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/POP.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/PUSH.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SHIFT.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SPLICE.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/STORE.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SelectAll.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SetList.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/TIEARRAY.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/TIESCALAR.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/UNSHIFT.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/UpDown.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/autosplit.ix create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/clipboardPaste.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/deleteSelected.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/getSelected.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Listbox/xyIndex.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Menubutton/Menubutton.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/Menubutton/Menubutton.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Receive.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/RepeatId.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scale/Activate.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scale/ButtonDown.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scale/ButtonUp.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scale/ControlPress.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scale/Drag.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scale/EndDrag.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scale/Enter.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scale/Increment.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scale/Leave.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scale/Scale.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/Scale/Scale.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scale/autosplit.ix create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ButtonDown.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ButtonUp.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Drag.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/EndDrag.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Enter.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Leave.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Motion.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlByPages.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlByUnits.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlToPos.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlTopBottom.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Scrollbar.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Scrollbar.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Select.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/StartDrag.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/autosplit.ix create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Selection.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/TList/TList.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/TList/TList.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Table/Create.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Table/Posn.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Table/autosplit.ix create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Table/see.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Table/totalColumns.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Table/totalRows.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Text/Text.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/Text/Text.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Text/autosplit.ix create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/TextEdit/autosplit.ix create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/TextUndo/autosplit.ix create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Tk.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/Tk.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_BindIn.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_BindOut.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Create.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Destroy.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_In.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Out.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/autosplit.ix create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/TraverseToMenu.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Widget/ASkludge.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Widget/AltKeyInDialog.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Widget/AmpWidget.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Widget/FindAltKeyTarget.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Widget/MasterMenu.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Widget/RestoreFocusGrab.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Widget/SetAmpText.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Widget/SetFocusGrab.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Widget/UnderlineAmpersand.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Widget/autosplit.ix create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Widget/bindDump.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Widget/clipboardKeysyms.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Widget/pathname.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Wm/AnchorAdjust.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Wm/FullScreen.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Wm/Popup.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Wm/Post.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Wm/autosplit.ix create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Wm/iconposition.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/X/X.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/X/X.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/X/autosplit.ix create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.bs create mode 100755 Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.dll create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/autosplit.ix create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/break.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/focusFollowsMouse.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/focusNext.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/focusPrev.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/getEncoding.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/getNextFocus.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/getPrevFocus.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/interps.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/lsearch.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/pTk/extralibs.ld create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/tabFocus.al create mode 100644 Master/tlpkg/tlperl/lib/auto/Tk/updateWidgets.al (limited to 'Master/tlpkg') diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/.packlist b/Master/tlpkg/tlperl/lib/auto/Tk/.packlist new file mode 100644 index 00000000000..3331ba843a5 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/.packlist @@ -0,0 +1,662 @@ +X:\perlnew\bin\gedi +X:\perlnew\bin\gedi.bat +X:\perlnew\bin\ptked +X:\perlnew\bin\ptked.bat +X:\perlnew\bin\ptksh +X:\perlnew\bin\ptksh.bat +X:\perlnew\bin\tkjpeg +X:\perlnew\bin\tkjpeg.bat +X:\perlnew\bin\widget +X:\perlnew\bin\widget.bat +X:\perlnew\site\lib\Tie\Watch.pm +X:\perlnew\site\lib\Tk.pm +X:\perlnew\site\lib\Tk.pod +X:\perlnew\site\lib\Tk\804delta.pod +X:\perlnew\site\lib\Tk\Adjuster.pm +X:\perlnew\site\lib\Tk\Adjuster.pod +X:\perlnew\site\lib\Tk\After.pm +X:\perlnew\site\lib\Tk\Animation.pm +X:\perlnew\site\lib\Tk\Animation.pod +X:\perlnew\site\lib\Tk\Balloon.pm +X:\perlnew\site\lib\Tk\Balloon.pod +X:\perlnew\site\lib\Tk\Bitmap.pm +X:\perlnew\site\lib\Tk\Bitmap.pod +X:\perlnew\site\lib\Tk\BrowseEntry.pm +X:\perlnew\site\lib\Tk\BrowseEntry.pod +X:\perlnew\site\lib\Tk\Button.pm +X:\perlnew\site\lib\Tk\Button.pod +X:\perlnew\site\lib\Tk\Camel.xpm +X:\perlnew\site\lib\Tk\Canvas.pm +X:\perlnew\site\lib\Tk\Canvas.pod +X:\perlnew\site\lib\Tk\Checkbutton.pm +X:\perlnew\site\lib\Tk\Checkbutton.pod +X:\perlnew\site\lib\Tk\Clipboard.pm +X:\perlnew\site\lib\Tk\Clipboard.pod +X:\perlnew\site\lib\Tk\CmdLine.pm +X:\perlnew\site\lib\Tk\CmdLine.pod +X:\perlnew\site\lib\Tk\ColorEdit.xpm +X:\perlnew\site\lib\Tk\ColorEditor.pm +X:\perlnew\site\lib\Tk\ColorEditor.pod +X:\perlnew\site\lib\Tk\Common.pod +X:\perlnew\site\lib\Tk\Compound.pm +X:\perlnew\site\lib\Tk\Compound.pod +X:\perlnew\site\lib\Tk\Config.pm +X:\perlnew\site\lib\Tk\ConfigSpecs.pod +X:\perlnew\site\lib\Tk\Configure.pm +X:\perlnew\site\lib\Tk\Credits +X:\perlnew\site\lib\Tk\DItem.pod +X:\perlnew\site\lib\Tk\Derived.pm +X:\perlnew\site\lib\Tk\Derived.pod +X:\perlnew\site\lib\Tk\Dialog.pm +X:\perlnew\site\lib\Tk\Dialog.pod +X:\perlnew\site\lib\Tk\DialogBox.pm +X:\perlnew\site\lib\Tk\DialogBox.pod +X:\perlnew\site\lib\Tk\DirTree.pm +X:\perlnew\site\lib\Tk\DirTree.pod +X:\perlnew\site\lib\Tk\Dirlist.pm +X:\perlnew\site\lib\Tk\DragDrop.pm +X:\perlnew\site\lib\Tk\DragDrop\Common.pm +X:\perlnew\site\lib\Tk\DragDrop\LocalDrop.pm +X:\perlnew\site\lib\Tk\DragDrop\Rect.pm +X:\perlnew\site\lib\Tk\DragDrop\SunConst.pm +X:\perlnew\site\lib\Tk\DragDrop\SunDrop.pm +X:\perlnew\site\lib\Tk\DragDrop\SunSite.pm +X:\perlnew\site\lib\Tk\DragDrop\Win32Drop.pm +X:\perlnew\site\lib\Tk\DragDrop\Win32Site.pm +X:\perlnew\site\lib\Tk\DragDrop\XDNDDrop.pm +X:\perlnew\site\lib\Tk\DragDrop\XDNDSite.pm +X:\perlnew\site\lib\Tk\DropSite.pm +X:\perlnew\site\lib\Tk\DropSite.pod +X:\perlnew\site\lib\Tk\DummyEncode.pm +X:\perlnew\site\lib\Tk\English.pm +X:\perlnew\site\lib\Tk\Entry.pm +X:\perlnew\site\lib\Tk\Entry.pod +X:\perlnew\site\lib\Tk\Error.pod +X:\perlnew\site\lib\Tk\ErrorDialog.pm +X:\perlnew\site\lib\Tk\Event.pm +X:\perlnew\site\lib\Tk\Event\IO.pm +X:\perlnew\site\lib\Tk\Eventloop.pod +X:\perlnew\site\lib\Tk\FBox.pm +X:\perlnew\site\lib\Tk\FBox.pod +X:\perlnew\site\lib\Tk\FileSelect.pm +X:\perlnew\site\lib\Tk\FileSelect.pod +X:\perlnew\site\lib\Tk\FloatEntry.pm +X:\perlnew\site\lib\Tk\Font.pm +X:\perlnew\site\lib\Tk\Font.pod +X:\perlnew\site\lib\Tk\Frame.pm +X:\perlnew\site\lib\Tk\Frame.pod +X:\perlnew\site\lib\Tk\HList.pm +X:\perlnew\site\lib\Tk\HList.pod +X:\perlnew\site\lib\Tk\IO.pm +X:\perlnew\site\lib\Tk\IO.pod +X:\perlnew\site\lib\Tk\IconList.pm +X:\perlnew\site\lib\Tk\IconList.pod +X:\perlnew\site\lib\Tk\Image.pm +X:\perlnew\site\lib\Tk\Image.pod +X:\perlnew\site\lib\Tk\InputO.pod +X:\perlnew\site\lib\Tk\Internals.pod +X:\perlnew\site\lib\Tk\ItemStyle.pm +X:\perlnew\site\lib\Tk\JPEG.pm +X:\perlnew\site\lib\Tk\LabEntry.pm +X:\perlnew\site\lib\Tk\LabFrame.pm +X:\perlnew\site\lib\Tk\LabFrame.pod +X:\perlnew\site\lib\Tk\LabRadio.pm +X:\perlnew\site\lib\Tk\Label.pm +X:\perlnew\site\lib\Tk\Label.pod +X:\perlnew\site\lib\Tk\Labelframe.pm +X:\perlnew\site\lib\Tk\Labelframe.pod +X:\perlnew\site\lib\Tk\Listbox.pm +X:\perlnew\site\lib\Tk\Listbox.pod +X:\perlnew\site\lib\Tk\MMtry.pm +X:\perlnew\site\lib\Tk\MMutil.pm +X:\perlnew\site\lib\Tk\MainWindow.pm +X:\perlnew\site\lib\Tk\MainWindow.pod +X:\perlnew\site\lib\Tk\MakeDepend.pm +X:\perlnew\site\lib\Tk\Menu.pm +X:\perlnew\site\lib\Tk\Menu.pod +X:\perlnew\site\lib\Tk\Menu\Item.pm +X:\perlnew\site\lib\Tk\Menu\Item.pod +X:\perlnew\site\lib\Tk\Menubar.pm +X:\perlnew\site\lib\Tk\Menubutton.pm +X:\perlnew\site\lib\Tk\Menubutton.pod +X:\perlnew\site\lib\Tk\Message.pm +X:\perlnew\site\lib\Tk\Message.pod +X:\perlnew\site\lib\Tk\MsgBox.pm +X:\perlnew\site\lib\Tk\MsgBox.pod +X:\perlnew\site\lib\Tk\Mwm.pod +X:\perlnew\site\lib\Tk\NBFrame.pm +X:\perlnew\site\lib\Tk\NoteBook.pm +X:\perlnew\site\lib\Tk\NoteBook.pod +X:\perlnew\site\lib\Tk\Optionmenu.pm +X:\perlnew\site\lib\Tk\Optionmenu.pod +X:\perlnew\site\lib\Tk\PNG.pm +X:\perlnew\site\lib\Tk\Pane.pm +X:\perlnew\site\lib\Tk\Panedwindow.pm +X:\perlnew\site\lib\Tk\Panedwindow.pod +X:\perlnew\site\lib\Tk\Photo.pm +X:\perlnew\site\lib\Tk\Photo.pod +X:\perlnew\site\lib\Tk\Pixmap.pm +X:\perlnew\site\lib\Tk\Pixmap.pod +X:\perlnew\site\lib\Tk\Popup.pod +X:\perlnew\site\lib\Tk\Pretty.pm +X:\perlnew\site\lib\Tk\ProgressBar.pm +X:\perlnew\site\lib\Tk\README.Adjust +X:\perlnew\site\lib\Tk\ROText.pm +X:\perlnew\site\lib\Tk\ROText.pod +X:\perlnew\site\lib\Tk\Radiobutton.pm +X:\perlnew\site\lib\Tk\Radiobutton.pod +X:\perlnew\site\lib\Tk\Region.pm +X:\perlnew\site\lib\Tk\Reindex.pm +X:\perlnew\site\lib\Tk\ReindexedROText.pm +X:\perlnew\site\lib\Tk\ReindexedText.pm +X:\perlnew\site\lib\Tk\Scale.pm +X:\perlnew\site\lib\Tk\Scale.pod +X:\perlnew\site\lib\Tk\Scrollbar.pm +X:\perlnew\site\lib\Tk\Scrollbar.pod +X:\perlnew\site\lib\Tk\Scrolled.pod +X:\perlnew\site\lib\Tk\Spinbox.pm +X:\perlnew\site\lib\Tk\Spinbox.pod +X:\perlnew\site\lib\Tk\Stats.pm +X:\perlnew\site\lib\Tk\Submethods.pm +X:\perlnew\site\lib\Tk\Submethods.pod +X:\perlnew\site\lib\Tk\SunConst.pod +X:\perlnew\site\lib\Tk\TList.pm +X:\perlnew\site\lib\Tk\TList.pod +X:\perlnew\site\lib\Tk\Table.pm +X:\perlnew\site\lib\Tk\Table.pod +X:\perlnew\site\lib\Tk\Tcl-perl.pod +X:\perlnew\site\lib\Tk\Text.pm +X:\perlnew\site\lib\Tk\Text.pod +X:\perlnew\site\lib\Tk\TextEdit.pm +X:\perlnew\site\lib\Tk\TextList.pm +X:\perlnew\site\lib\Tk\TextUndo.pm +X:\perlnew\site\lib\Tk\TextUndo.pod +X:\perlnew\site\lib\Tk\Text\Tag.pm +X:\perlnew\site\lib\Tk\Tiler.pm +X:\perlnew\site\lib\Tk\Tiler.pod +X:\perlnew\site\lib\Tk\TixGrid.pm +X:\perlnew\site\lib\Tk\TixGrid.pod +X:\perlnew\site\lib\Tk\Tk.xbm +X:\perlnew\site\lib\Tk\Tk.xpm +X:\perlnew\site\lib\Tk\TkXSUB.def +X:\perlnew\site\lib\Tk\Toplevel.pm +X:\perlnew\site\lib\Tk\Toplevel.pod +X:\perlnew\site\lib\Tk\Trace.pm +X:\perlnew\site\lib\Tk\Tree.pm +X:\perlnew\site\lib\Tk\Tree.pod +X:\perlnew\site\lib\Tk\UserGuide.pod +X:\perlnew\site\lib\Tk\Widget.pm +X:\perlnew\site\lib\Tk\Widget.pod +X:\perlnew\site\lib\Tk\WidgetDemo.pod +X:\perlnew\site\lib\Tk\Wm.pm +X:\perlnew\site\lib\Tk\Wm.pod +X:\perlnew\site\lib\Tk\X.pm +X:\perlnew\site\lib\Tk\X.pod +X:\perlnew\site\lib\Tk\X11Font.pm +X:\perlnew\site\lib\Tk\X11Font.pod +X:\perlnew\site\lib\Tk\X11\X.h +X:\perlnew\site\lib\Tk\X11\Xatom.h +X:\perlnew\site\lib\Tk\X11\Xfuncproto.h +X:\perlnew\site\lib\Tk\X11\Xlib.h +X:\perlnew\site\lib\Tk\X11\Xutil.h +X:\perlnew\site\lib\Tk\X11\cursorfont.h +X:\perlnew\site\lib\Tk\X11\keysym.h +X:\perlnew\site\lib\Tk\X11\keysymdef.h +X:\perlnew\site\lib\Tk\X11\license.terms +X:\perlnew\site\lib\Tk\Xcamel.gif +X:\perlnew\site\lib\Tk\Xlib.pm +X:\perlnew\site\lib\Tk\Xrm.pm +X:\perlnew\site\lib\Tk\Xrm.pod +X:\perlnew\site\lib\Tk\act_folder.xbm +X:\perlnew\site\lib\Tk\act_folder.xpm +X:\perlnew\site\lib\Tk\after.pod +X:\perlnew\site\lib\Tk\anim.gif +X:\perlnew\site\lib\Tk\arrowdownwin.xbm +X:\perlnew\site\lib\Tk\balArrow.xbm +X:\perlnew\site\lib\Tk\bind.pod +X:\perlnew\site\lib\Tk\bindtags.pod +X:\perlnew\site\lib\Tk\callbacks.pod +X:\perlnew\site\lib\Tk\cbxarrow.xbm +X:\perlnew\site\lib\Tk\chooseColor.pod +X:\perlnew\site\lib\Tk\chooseDirectory.pod +X:\perlnew\site\lib\Tk\composite.pod +X:\perlnew\site\lib\Tk\demos\LabEnLabRad.pm +X:\perlnew\site\lib\Tk\demos\images\QuitPB.xpm +X:\perlnew\site\lib\Tk\demos\images\QuitPBa.xpm +X:\perlnew\site\lib\Tk\demos\images\c.icon +X:\perlnew\site\lib\Tk\demos\images\cursor.cur +X:\perlnew\site\lib\Tk\demos\images\cursor.mask +X:\perlnew\site\lib\Tk\demos\images\cursor.xbm +X:\perlnew\site\lib\Tk\demos\images\dir.icon +X:\perlnew\site\lib\Tk\demos\images\dir.mask +X:\perlnew\site\lib\Tk\demos\images\earth.gif +X:\perlnew\site\lib\Tk\demos\images\earthris.gif +X:\perlnew\site\lib\Tk\demos\images\face +X:\perlnew\site\lib\Tk\demos\images\flagdown +X:\perlnew\site\lib\Tk\demos\images\flagup +X:\perlnew\site\lib\Tk\demos\images\grey.25 +X:\perlnew\site\lib\Tk\demos\images\grey.5 +X:\perlnew\site\lib\Tk\demos\images\letters +X:\perlnew\site\lib\Tk\demos\images\mickey.gif +X:\perlnew\site\lib\Tk\demos\images\ned.xpm +X:\perlnew\site\lib\Tk\demos\images\noletters +X:\perlnew\site\lib\Tk\demos\images\page.icon +X:\perlnew\site\lib\Tk\demos\images\page.mask +X:\perlnew\site\lib\Tk\demos\images\pattern +X:\perlnew\site\lib\Tk\demos\images\teapot.ppm +X:\perlnew\site\lib\Tk\demos\widget_lib\Ball.pm +X:\perlnew\site\lib\Tk\demos\widget_lib\HList.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\HList2.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\Plot.pm +X:\perlnew\site\lib\Tk\demos\widget_lib\WidgetDemo.pm +X:\perlnew\site\lib\Tk\demos\widget_lib\arrows.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\balloon.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\bind.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\bitmaps.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\bounce.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\browseentry.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\browseentry2.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\button.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\check.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\choosedir.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\clrpick.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\colors.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\cscroll.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\ctext.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\dialog1.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\dialog2.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\dirtree.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\entry1.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\entry2.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\entry3.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\filebox.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\floor.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\form.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\form_mgr.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\hello.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\hscale.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\icon.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\image1.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\image2.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\items.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\keysyms.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\labelframe.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\labels.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\labframe.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\mega.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\menbut.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\menus.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\menus2.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\msgBox.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\notebook.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\paned1.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\paned2.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\photo1.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\photo2.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\plot.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\progress.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\puzzle.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\radio.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\ruler.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\sayings.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\search.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\showVars.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\slide.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\spin.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\states.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\style.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\texts.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\trace1.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\trace2.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\transtile.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\twind.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\unicodeout.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\virtevents1.pl +X:\perlnew\site\lib\Tk\demos\widget_lib\vscale.pl +X:\perlnew\site\lib\Tk\demos\widtrib\Gedi.pl +X:\perlnew\site\lib\Tk\demos\widtrib\TEMPLATE.pl +X:\perlnew\site\lib\Tk\demos\widtrib\Tiler.pl +X:\perlnew\site\lib\Tk\demos\widtrib\all.pl +X:\perlnew\site\lib\Tk\demos\widtrib\cursor.pl +X:\perlnew\site\lib\Tk\demos\widtrib\lib\npuz\Xcamel.npuz +X:\perlnew\site\lib\Tk\demos\widtrib\npuz.pl +X:\perlnew\site\lib\Tk\demos\widtrib\plop.pl +X:\perlnew\site\lib\Tk\event.pod +X:\perlnew\site\lib\Tk\exit.pod +X:\perlnew\site\lib\Tk\file.xbm +X:\perlnew\site\lib\Tk\file.xpm +X:\perlnew\site\lib\Tk\fileevent.pod +X:\perlnew\site\lib\Tk\focus.pod +X:\perlnew\site\lib\Tk\folder.xbm +X:\perlnew\site\lib\Tk\folder.xpm +X:\perlnew\site\lib\Tk\form.pod +X:\perlnew\site\lib\Tk\getOpenFile.pod +X:\perlnew\site\lib\Tk\grab.pod +X:\perlnew\site\lib\Tk\grid.pod +X:\perlnew\site\lib\Tk\icon.gif +X:\perlnew\site\lib\Tk\install.pm +X:\perlnew\site\lib\Tk\license.terms +X:\perlnew\site\lib\Tk\mega.pod +X:\perlnew\site\lib\Tk\messageBox.pod +X:\perlnew\site\lib\Tk\openfile.xbm +X:\perlnew\site\lib\Tk\openfolder.xbm +X:\perlnew\site\lib\Tk\openfolder.xpm +X:\perlnew\site\lib\Tk\option.pod +X:\perlnew\site\lib\Tk\options.pod +X:\perlnew\site\lib\Tk\overview.pod +X:\perlnew\site\lib\Tk\pTk.pod +X:\perlnew\site\lib\Tk\pTk\Lang.h +X:\perlnew\site\lib\Tk\pTk\Lang.m +X:\perlnew\site\lib\Tk\pTk\Lang.t +X:\perlnew\site\lib\Tk\pTk\Lang_f.h +X:\perlnew\site\lib\Tk\pTk\Tcl-pTk +X:\perlnew\site\lib\Tk\pTk\Xlib.h +X:\perlnew\site\lib\Tk\pTk\Xlib.m +X:\perlnew\site\lib\Tk\pTk\Xlib.t +X:\perlnew\site\lib\Tk\pTk\Xlib_f.h +X:\perlnew\site\lib\Tk\pTk\compat\limits.h +X:\perlnew\site\lib\Tk\pTk\compat\stdlib.h +X:\perlnew\site\lib\Tk\pTk\compat\unistd.h +X:\perlnew\site\lib\Tk\pTk\default.h +X:\perlnew\site\lib\Tk\pTk\img.h +X:\perlnew\site\lib\Tk\pTk\imgInt.h +X:\perlnew\site\lib\Tk\pTk\imgInt.m +X:\perlnew\site\lib\Tk\pTk\imgInt.t +X:\perlnew\site\lib\Tk\pTk\imgInt_f.h +X:\perlnew\site\lib\Tk\pTk\ks_names.h +X:\perlnew\site\lib\Tk\pTk\mkVFunc +X:\perlnew\site\lib\Tk\pTk\moredefs.h +X:\perlnew\site\lib\Tk\pTk\port.h +X:\perlnew\site\lib\Tk\pTk\tcl.h +X:\perlnew\site\lib\Tk\pTk\tclDecls.h +X:\perlnew\site\lib\Tk\pTk\tclDecls.m +X:\perlnew\site\lib\Tk\pTk\tclDecls.t +X:\perlnew\site\lib\Tk\pTk\tclDecls_f.h +X:\perlnew\site\lib\Tk\pTk\tclIntDecls.h +X:\perlnew\site\lib\Tk\pTk\tclIntPlatDecls.h +X:\perlnew\site\lib\Tk\pTk\tclMath.h +X:\perlnew\site\lib\Tk\pTk\tclPlatDecls.h +X:\perlnew\site\lib\Tk\pTk\tclWinInt.h +X:\perlnew\site\lib\Tk\pTk\tix.h +X:\perlnew\site\lib\Tk\pTk\tix.m +X:\perlnew\site\lib\Tk\pTk\tix.t +X:\perlnew\site\lib\Tk\pTk\tixBitmaps.h +X:\perlnew\site\lib\Tk\pTk\tixDef.h +X:\perlnew\site\lib\Tk\pTk\tixForm.h +X:\perlnew\site\lib\Tk\pTk\tixGrData.h +X:\perlnew\site\lib\Tk\pTk\tixGrid.h +X:\perlnew\site\lib\Tk\pTk\tixHList.h +X:\perlnew\site\lib\Tk\pTk\tixImgXpm.h +X:\perlnew\site\lib\Tk\pTk\tixImgXpm.m +X:\perlnew\site\lib\Tk\pTk\tixImgXpm.t +X:\perlnew\site\lib\Tk\pTk\tixImgXpm_f.h +X:\perlnew\site\lib\Tk\pTk\tixInt.h +X:\perlnew\site\lib\Tk\pTk\tixInt.m +X:\perlnew\site\lib\Tk\pTk\tixInt.t +X:\perlnew\site\lib\Tk\pTk\tixInt_f.h +X:\perlnew\site\lib\Tk\pTk\tixPort.h +X:\perlnew\site\lib\Tk\pTk\tixTList.h +X:\perlnew\site\lib\Tk\pTk\tixWinInt.h +X:\perlnew\site\lib\Tk\pTk\tixWinPort.h +X:\perlnew\site\lib\Tk\pTk\tix_f.h +X:\perlnew\site\lib\Tk\pTk\tk.h +X:\perlnew\site\lib\Tk\pTk\tk.m +X:\perlnew\site\lib\Tk\pTk\tk.t +X:\perlnew\site\lib\Tk\pTk\tk3d.h +X:\perlnew\site\lib\Tk\pTk\tkButton.h +X:\perlnew\site\lib\Tk\pTk\tkCanvas.h +X:\perlnew\site\lib\Tk\pTk\tkCanvases.h +X:\perlnew\site\lib\Tk\pTk\tkColor.h +X:\perlnew\site\lib\Tk\pTk\tkConfig.h +X:\perlnew\site\lib\Tk\pTk\tkDecls.h +X:\perlnew\site\lib\Tk\pTk\tkDecls.m +X:\perlnew\site\lib\Tk\pTk\tkDecls.t +X:\perlnew\site\lib\Tk\pTk\tkDecls_f.h +X:\perlnew\site\lib\Tk\pTk\tkEvent.h +X:\perlnew\site\lib\Tk\pTk\tkEvent.m +X:\perlnew\site\lib\Tk\pTk\tkEvent.t +X:\perlnew\site\lib\Tk\pTk\tkEvent_f.h +X:\perlnew\site\lib\Tk\pTk\tkFileFilter.h +X:\perlnew\site\lib\Tk\pTk\tkFont.h +X:\perlnew\site\lib\Tk\pTk\tkImgPhoto.h +X:\perlnew\site\lib\Tk\pTk\tkImgPhoto.m +X:\perlnew\site\lib\Tk\pTk\tkImgPhoto.t +X:\perlnew\site\lib\Tk\pTk\tkImgPhoto_f.h +X:\perlnew\site\lib\Tk\pTk\tkInitScript.h +X:\perlnew\site\lib\Tk\pTk\tkInt.h +X:\perlnew\site\lib\Tk\pTk\tkInt.m +X:\perlnew\site\lib\Tk\pTk\tkInt.t +X:\perlnew\site\lib\Tk\pTk\tkIntDecls.h +X:\perlnew\site\lib\Tk\pTk\tkIntDecls.m +X:\perlnew\site\lib\Tk\pTk\tkIntDecls.t +X:\perlnew\site\lib\Tk\pTk\tkIntDecls_f.h +X:\perlnew\site\lib\Tk\pTk\tkIntPlatDecls.h +X:\perlnew\site\lib\Tk\pTk\tkIntPlatDecls.m +X:\perlnew\site\lib\Tk\pTk\tkIntPlatDecls.t +X:\perlnew\site\lib\Tk\pTk\tkIntPlatDecls_f.h +X:\perlnew\site\lib\Tk\pTk\tkIntXlibDecls.h +X:\perlnew\site\lib\Tk\pTk\tkIntXlibDecls.m +X:\perlnew\site\lib\Tk\pTk\tkIntXlibDecls.t +X:\perlnew\site\lib\Tk\pTk\tkIntXlibDecls_f.h +X:\perlnew\site\lib\Tk\pTk\tkInt_f.h +X:\perlnew\site\lib\Tk\pTk\tkMenu.h +X:\perlnew\site\lib\Tk\pTk\tkMenubutton.h +X:\perlnew\site\lib\Tk\pTk\tkOption.h +X:\perlnew\site\lib\Tk\pTk\tkOption.m +X:\perlnew\site\lib\Tk\pTk\tkOption.t +X:\perlnew\site\lib\Tk\pTk\tkOption_f.h +X:\perlnew\site\lib\Tk\pTk\tkPlatDecls.h +X:\perlnew\site\lib\Tk\pTk\tkPlatDecls.m +X:\perlnew\site\lib\Tk\pTk\tkPlatDecls.t +X:\perlnew\site\lib\Tk\pTk\tkPlatDecls_f.h +X:\perlnew\site\lib\Tk\pTk\tkPort.h +X:\perlnew\site\lib\Tk\pTk\tkScale.h +X:\perlnew\site\lib\Tk\pTk\tkScrollbar.h +X:\perlnew\site\lib\Tk\pTk\tkSelect.h +X:\perlnew\site\lib\Tk\pTk\tkText.h +X:\perlnew\site\lib\Tk\pTk\tkUndo.h +X:\perlnew\site\lib\Tk\pTk\tkVMacro.h +X:\perlnew\site\lib\Tk\pTk\tkWin.h +X:\perlnew\site\lib\Tk\pTk\tkWinDefault.h +X:\perlnew\site\lib\Tk\pTk\tkWinInt.h +X:\perlnew\site\lib\Tk\pTk\tkWinPort.h +X:\perlnew\site\lib\Tk\pTk\tkXrm.h +X:\perlnew\site\lib\Tk\pTk\tk_f.h +X:\perlnew\site\lib\Tk\pTk\xbytes.h +X:\perlnew\site\lib\Tk\pack.pod +X:\perlnew\site\lib\Tk\palette.pod +X:\perlnew\site\lib\Tk\place.pod +X:\perlnew\site\lib\Tk\prolog.ps +X:\perlnew\site\lib\Tk\selection.pod +X:\perlnew\site\lib\Tk\send.pod +X:\perlnew\site\lib\Tk\srcfile.xpm +X:\perlnew\site\lib\Tk\textfile.xpm +X:\perlnew\site\lib\Tk\tixWm.pod +X:\perlnew\site\lib\Tk\tkGlue.def +X:\perlnew\site\lib\Tk\tkGlue.h +X:\perlnew\site\lib\Tk\tkGlue.m +X:\perlnew\site\lib\Tk\tkGlue.t +X:\perlnew\site\lib\Tk\tkGlue_f.h +X:\perlnew\site\lib\Tk\tkvars.pod +X:\perlnew\site\lib\Tk\tranicon.gif +X:\perlnew\site\lib\Tk\typemap +X:\perlnew\site\lib\Tk\vtab.def +X:\perlnew\site\lib\Tk\widgets.pm +X:\perlnew\site\lib\Tk\widgets.pod +X:\perlnew\site\lib\Tk\win.xbm +X:\perlnew\site\lib\Tk\winfolder.xpm +X:\perlnew\site\lib\Tk\wintext.xpm +X:\perlnew\site\lib\auto\Tk\CancelRepeat.al +X:\perlnew\site\lib\auto\Tk\Canvas\Canvas.bs +X:\perlnew\site\lib\auto\Tk\Canvas\Canvas.dll +X:\perlnew\site\lib\auto\Tk\Clipboard\autosplit.ix +X:\perlnew\site\lib\auto\Tk\Clipboard\getSelected.al +X:\perlnew\site\lib\auto\Tk\Compound\Compound.bs +X:\perlnew\site\lib\auto\Tk\Compound\Compound.dll +X:\perlnew\site\lib\auto\Tk\DragDrop\Win32Site\Win32Site.bs +X:\perlnew\site\lib\auto\Tk\DragDrop\Win32Site\Win32Site.dll +X:\perlnew\site\lib\auto\Tk\EnterFocus.al +X:\perlnew\site\lib\auto\Tk\Entry\Entry.bs +X:\perlnew\site\lib\auto\Tk\Entry\Entry.dll +X:\perlnew\site\lib\auto\Tk\Error.al +X:\perlnew\site\lib\auto\Tk\Event\Event.bs +X:\perlnew\site\lib\auto\Tk\Event\Event.dll +X:\perlnew\site\lib\auto\Tk\FirstMenu.al +X:\perlnew\site\lib\auto\Tk\FocusChildren.al +X:\perlnew\site\lib\auto\Tk\FocusOK.al +X:\perlnew\site\lib\auto\Tk\Frame\AddScrollbars.al +X:\perlnew\site\lib\auto\Tk\Frame\FindMenu.al +X:\perlnew\site\lib\auto\Tk\Frame\autosplit.ix +X:\perlnew\site\lib\auto\Tk\Frame\freeze_on_map.al +X:\perlnew\site\lib\auto\Tk\Frame\label.al +X:\perlnew\site\lib\auto\Tk\Frame\labelPack.al +X:\perlnew\site\lib\auto\Tk\Frame\labelVariable.al +X:\perlnew\site\lib\auto\Tk\Frame\packscrollbars.al +X:\perlnew\site\lib\auto\Tk\Frame\queuePack.al +X:\perlnew\site\lib\auto\Tk\Frame\sbset.al +X:\perlnew\site\lib\auto\Tk\Frame\scrollbars.al +X:\perlnew\site\lib\auto\Tk\HList\HList.bs +X:\perlnew\site\lib\auto\Tk\HList\HList.dll +X:\perlnew\site\lib\auto\Tk\IO\IO.bs +X:\perlnew\site\lib\auto\Tk\IO\IO.dll +X:\perlnew\site\lib\auto\Tk\ImageNames.al +X:\perlnew\site\lib\auto\Tk\ImageTypes.al +X:\perlnew\site\lib\auto\Tk\JPEG\JPEG.bs +X:\perlnew\site\lib\auto\Tk\JPEG\JPEG.dll +X:\perlnew\site\lib\auto\Tk\Listbox\AutoScan.al +X:\perlnew\site\lib\auto\Tk\Listbox\BeginExtend.al +X:\perlnew\site\lib\auto\Tk\Listbox\BeginSelect.al +X:\perlnew\site\lib\auto\Tk\Listbox\BeginToggle.al +X:\perlnew\site\lib\auto\Tk\Listbox\ButtonRelease_1.al +X:\perlnew\site\lib\auto\Tk\Listbox\CLEAR.al +X:\perlnew\site\lib\auto\Tk\Listbox\Cancel.al +X:\perlnew\site\lib\auto\Tk\Listbox\Cntrl_End.al +X:\perlnew\site\lib\auto\Tk\Listbox\Cntrl_Home.al +X:\perlnew\site\lib\auto\Tk\Listbox\Cntrl_backslash.al +X:\perlnew\site\lib\auto\Tk\Listbox\DELETE.al +X:\perlnew\site\lib\auto\Tk\Listbox\DataExtend.al +X:\perlnew\site\lib\auto\Tk\Listbox\EXISTS.al +X:\perlnew\site\lib\auto\Tk\Listbox\EXTEND.al +X:\perlnew\site\lib\auto\Tk\Listbox\ExtendUpDown.al +X:\perlnew\site\lib\auto\Tk\Listbox\FETCH.al +X:\perlnew\site\lib\auto\Tk\Listbox\FETCHSIZE.al +X:\perlnew\site\lib\auto\Tk\Listbox\Listbox.bs +X:\perlnew\site\lib\auto\Tk\Listbox\Listbox.dll +X:\perlnew\site\lib\auto\Tk\Listbox\Motion.al +X:\perlnew\site\lib\auto\Tk\Listbox\POP.al +X:\perlnew\site\lib\auto\Tk\Listbox\PUSH.al +X:\perlnew\site\lib\auto\Tk\Listbox\SHIFT.al +X:\perlnew\site\lib\auto\Tk\Listbox\SPLICE.al +X:\perlnew\site\lib\auto\Tk\Listbox\STORE.al +X:\perlnew\site\lib\auto\Tk\Listbox\SelectAll.al +X:\perlnew\site\lib\auto\Tk\Listbox\SetList.al +X:\perlnew\site\lib\auto\Tk\Listbox\TIEARRAY.al +X:\perlnew\site\lib\auto\Tk\Listbox\TIESCALAR.al +X:\perlnew\site\lib\auto\Tk\Listbox\UNSHIFT.al +X:\perlnew\site\lib\auto\Tk\Listbox\UpDown.al +X:\perlnew\site\lib\auto\Tk\Listbox\autosplit.ix +X:\perlnew\site\lib\auto\Tk\Listbox\clipboardPaste.al +X:\perlnew\site\lib\auto\Tk\Listbox\deleteSelected.al +X:\perlnew\site\lib\auto\Tk\Listbox\getSelected.al +X:\perlnew\site\lib\auto\Tk\Listbox\xyIndex.al +X:\perlnew\site\lib\auto\Tk\Menubutton\Menubutton.bs +X:\perlnew\site\lib\auto\Tk\Menubutton\Menubutton.dll +X:\perlnew\site\lib\auto\Tk\NBFrame\NBFrame.bs +X:\perlnew\site\lib\auto\Tk\NBFrame\NBFrame.dll +X:\perlnew\site\lib\auto\Tk\PNG\PNG.bs +X:\perlnew\site\lib\auto\Tk\PNG\PNG.dll +X:\perlnew\site\lib\auto\Tk\Pixmap\Pixmap.bs +X:\perlnew\site\lib\auto\Tk\Pixmap\Pixmap.dll +X:\perlnew\site\lib\auto\Tk\Receive.al +X:\perlnew\site\lib\auto\Tk\RepeatId.al +X:\perlnew\site\lib\auto\Tk\Scale\Activate.al +X:\perlnew\site\lib\auto\Tk\Scale\ButtonDown.al +X:\perlnew\site\lib\auto\Tk\Scale\ButtonUp.al +X:\perlnew\site\lib\auto\Tk\Scale\ControlPress.al +X:\perlnew\site\lib\auto\Tk\Scale\Drag.al +X:\perlnew\site\lib\auto\Tk\Scale\EndDrag.al +X:\perlnew\site\lib\auto\Tk\Scale\Enter.al +X:\perlnew\site\lib\auto\Tk\Scale\Increment.al +X:\perlnew\site\lib\auto\Tk\Scale\Leave.al +X:\perlnew\site\lib\auto\Tk\Scale\Scale.bs +X:\perlnew\site\lib\auto\Tk\Scale\Scale.dll +X:\perlnew\site\lib\auto\Tk\Scale\autosplit.ix +X:\perlnew\site\lib\auto\Tk\Scrollbar\ButtonDown.al +X:\perlnew\site\lib\auto\Tk\Scrollbar\ButtonUp.al +X:\perlnew\site\lib\auto\Tk\Scrollbar\Drag.al +X:\perlnew\site\lib\auto\Tk\Scrollbar\EndDrag.al +X:\perlnew\site\lib\auto\Tk\Scrollbar\Enter.al +X:\perlnew\site\lib\auto\Tk\Scrollbar\Leave.al +X:\perlnew\site\lib\auto\Tk\Scrollbar\Motion.al +X:\perlnew\site\lib\auto\Tk\Scrollbar\ScrlByPages.al +X:\perlnew\site\lib\auto\Tk\Scrollbar\ScrlByUnits.al +X:\perlnew\site\lib\auto\Tk\Scrollbar\ScrlToPos.al +X:\perlnew\site\lib\auto\Tk\Scrollbar\ScrlTopBottom.al +X:\perlnew\site\lib\auto\Tk\Scrollbar\Scrollbar.bs +X:\perlnew\site\lib\auto\Tk\Scrollbar\Scrollbar.dll +X:\perlnew\site\lib\auto\Tk\Scrollbar\Select.al +X:\perlnew\site\lib\auto\Tk\Scrollbar\StartDrag.al +X:\perlnew\site\lib\auto\Tk\Scrollbar\autosplit.ix +X:\perlnew\site\lib\auto\Tk\Selection.al +X:\perlnew\site\lib\auto\Tk\TList\TList.bs +X:\perlnew\site\lib\auto\Tk\TList\TList.dll +X:\perlnew\site\lib\auto\Tk\Table\Create.al +X:\perlnew\site\lib\auto\Tk\Table\Posn.al +X:\perlnew\site\lib\auto\Tk\Table\autosplit.ix +X:\perlnew\site\lib\auto\Tk\Table\see.al +X:\perlnew\site\lib\auto\Tk\Table\totalColumns.al +X:\perlnew\site\lib\auto\Tk\Table\totalRows.al +X:\perlnew\site\lib\auto\Tk\TextEdit\autosplit.ix +X:\perlnew\site\lib\auto\Tk\TextUndo\autosplit.ix +X:\perlnew\site\lib\auto\Tk\Text\Text.bs +X:\perlnew\site\lib\auto\Tk\Text\Text.dll +X:\perlnew\site\lib\auto\Tk\Text\autosplit.ix +X:\perlnew\site\lib\auto\Tk\TixGrid\TixGrid.bs +X:\perlnew\site\lib\auto\Tk\TixGrid\TixGrid.dll +X:\perlnew\site\lib\auto\Tk\Tk.bs +X:\perlnew\site\lib\auto\Tk\Tk.dll +X:\perlnew\site\lib\auto\Tk\Toplevel\FG_BindIn.al +X:\perlnew\site\lib\auto\Tk\Toplevel\FG_BindOut.al +X:\perlnew\site\lib\auto\Tk\Toplevel\FG_Create.al +X:\perlnew\site\lib\auto\Tk\Toplevel\FG_Destroy.al +X:\perlnew\site\lib\auto\Tk\Toplevel\FG_In.al +X:\perlnew\site\lib\auto\Tk\Toplevel\FG_Out.al +X:\perlnew\site\lib\auto\Tk\Toplevel\autosplit.ix +X:\perlnew\site\lib\auto\Tk\TraverseToMenu.al +X:\perlnew\site\lib\auto\Tk\Widget\ASkludge.al +X:\perlnew\site\lib\auto\Tk\Widget\AltKeyInDialog.al +X:\perlnew\site\lib\auto\Tk\Widget\AmpWidget.al +X:\perlnew\site\lib\auto\Tk\Widget\FindAltKeyTarget.al +X:\perlnew\site\lib\auto\Tk\Widget\MasterMenu.al +X:\perlnew\site\lib\auto\Tk\Widget\RestoreFocusGrab.al +X:\perlnew\site\lib\auto\Tk\Widget\SetAmpText.al +X:\perlnew\site\lib\auto\Tk\Widget\SetFocusGrab.al +X:\perlnew\site\lib\auto\Tk\Widget\UnderlineAmpersand.al +X:\perlnew\site\lib\auto\Tk\Widget\autosplit.ix +X:\perlnew\site\lib\auto\Tk\Widget\bindDump.al +X:\perlnew\site\lib\auto\Tk\Widget\clipboardKeysyms.al +X:\perlnew\site\lib\auto\Tk\Widget\pathname.al +X:\perlnew\site\lib\auto\Tk\Wm\AnchorAdjust.al +X:\perlnew\site\lib\auto\Tk\Wm\FullScreen.al +X:\perlnew\site\lib\auto\Tk\Wm\Popup.al +X:\perlnew\site\lib\auto\Tk\Wm\Post.al +X:\perlnew\site\lib\auto\Tk\Wm\autosplit.ix +X:\perlnew\site\lib\auto\Tk\Wm\iconposition.al +X:\perlnew\site\lib\auto\Tk\X\X.bs +X:\perlnew\site\lib\auto\Tk\X\X.dll +X:\perlnew\site\lib\auto\Tk\X\autosplit.ix +X:\perlnew\site\lib\auto\Tk\Xlib\Xlib.bs +X:\perlnew\site\lib\auto\Tk\Xlib\Xlib.dll +X:\perlnew\site\lib\auto\Tk\autosplit.ix +X:\perlnew\site\lib\auto\Tk\break.al +X:\perlnew\site\lib\auto\Tk\focusFollowsMouse.al +X:\perlnew\site\lib\auto\Tk\focusNext.al +X:\perlnew\site\lib\auto\Tk\focusPrev.al +X:\perlnew\site\lib\auto\Tk\getEncoding.al +X:\perlnew\site\lib\auto\Tk\getNextFocus.al +X:\perlnew\site\lib\auto\Tk\getPrevFocus.al +X:\perlnew\site\lib\auto\Tk\interps.al +X:\perlnew\site\lib\auto\Tk\lsearch.al +X:\perlnew\site\lib\auto\Tk\pTk\extralibs.ld +X:\perlnew\site\lib\auto\Tk\tabFocus.al +X:\perlnew\site\lib\auto\Tk\updateWidgets.al diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/CancelRepeat.al b/Master/tlpkg/tlperl/lib/auto/Tk/CancelRepeat.al new file mode 100644 index 00000000000..ca82516a200 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/CancelRepeat.al @@ -0,0 +1,15 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 508 "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/lib/auto/Tk/Canvas/Canvas.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Canvas/Canvas.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Canvas/Canvas.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Canvas/Canvas.dll new file mode 100755 index 00000000000..234961b5042 Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/Canvas/Canvas.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Clipboard/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Clipboard/autosplit.ix new file mode 100644 index 00000000000..9831f74facb --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Clipboard/autosplit.ix @@ -0,0 +1,6 @@ +# 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/lib/auto/Tk/Clipboard/getSelected.al b/Master/tlpkg/tlperl/lib/auto/Tk/Clipboard/getSelected.al new file mode 100644 index 00000000000..44ba7b74bf0 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Clipboard/getSelected.al @@ -0,0 +1,15 @@ +# 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/lib/auto/Tk/Compound/Compound.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Compound/Compound.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Compound/Compound.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Compound/Compound.dll new file mode 100755 index 00000000000..f742d3049cc Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/Compound/Compound.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/DragDrop/Win32Site/Win32Site.bs b/Master/tlpkg/tlperl/lib/auto/Tk/DragDrop/Win32Site/Win32Site.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll b/Master/tlpkg/tlperl/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll new file mode 100755 index 00000000000..150851f0032 Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/EnterFocus.al b/Master/tlpkg/tlperl/lib/auto/Tk/EnterFocus.al new file mode 100644 index 00000000000..e5a09f65466 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/EnterFocus.al @@ -0,0 +1,27 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 692 "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/lib/auto/Tk/Entry/Entry.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Entry/Entry.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Entry/Entry.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Entry/Entry.dll new file mode 100755 index 00000000000..f72ddda5c9e Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/Entry/Entry.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Error.al b/Master/tlpkg/tlperl/lib/auto/Tk/Error.al new file mode 100644 index 00000000000..0c1d8218ced --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Error.al @@ -0,0 +1,20 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 496 "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/lib/auto/Tk/Event/Event.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Event/Event.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Event/Event.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Event/Event.dll new file mode 100755 index 00000000000..83a49d1b818 Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/Event/Event.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/FirstMenu.al b/Master/tlpkg/tlperl/lib/auto/Tk/FirstMenu.al new file mode 100644 index 00000000000..c2cee5e9f4e --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/FirstMenu.al @@ -0,0 +1,21 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 740 "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/lib/auto/Tk/FocusChildren.al b/Master/tlpkg/tlperl/lib/auto/Tk/FocusChildren.al new file mode 100644 index 00000000000..1c3c6b83bbd --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/FocusChildren.al @@ -0,0 +1,35 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 525 "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/lib/auto/Tk/FocusOK.al b/Master/tlpkg/tlperl/lib/auto/Tk/FocusOK.al new file mode 100644 index 00000000000..32da7b795b3 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/FocusOK.al @@ -0,0 +1,36 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 663 "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/lib/auto/Tk/Frame/AddScrollbars.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/AddScrollbars.al new file mode 100644 index 00000000000..aa12259f675 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/AddScrollbars.al @@ -0,0 +1,52 @@ +# 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/lib/auto/Tk/Frame/FindMenu.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/FindMenu.al new file mode 100644 index 00000000000..66e71c29b21 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/FindMenu.al @@ -0,0 +1,22 @@ +# 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/lib/auto/Tk/Frame/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/autosplit.ix new file mode 100644 index 00000000000..6e5b939fce1 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/autosplit.ix @@ -0,0 +1,24 @@ +# 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/lib/auto/Tk/Frame/freeze_on_map.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/freeze_on_map.al new file mode 100644 index 00000000000..6a8b8a4f96e --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/freeze_on_map.al @@ -0,0 +1,18 @@ +# 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/lib/auto/Tk/Frame/label.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/label.al new file mode 100644 index 00000000000..83ec70ed803 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/label.al @@ -0,0 +1,24 @@ +# 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/lib/auto/Tk/Frame/labelPack.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelPack.al new file mode 100644 index 00000000000..0cfa8631c24 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelPack.al @@ -0,0 +1,50 @@ +# 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/lib/auto/Tk/Frame/labelVariable.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelVariable.al new file mode 100644 index 00000000000..ca60cff1288 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelVariable.al @@ -0,0 +1,27 @@ +# 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/lib/auto/Tk/Frame/packscrollbars.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/packscrollbars.al new file mode 100644 index 00000000000..9990eb67b13 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/packscrollbars.al @@ -0,0 +1,86 @@ +# 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/lib/auto/Tk/Frame/queuePack.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/queuePack.al new file mode 100644 index 00000000000..59fe3ee4de0 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/queuePack.al @@ -0,0 +1,18 @@ +# 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/lib/auto/Tk/Frame/sbset.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/sbset.al new file mode 100644 index 00000000000..cca4f0d642a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/sbset.al @@ -0,0 +1,15 @@ +# 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/lib/auto/Tk/Frame/scrollbars.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/scrollbars.al new file mode 100644 index 00000000000..21eeb53d2b9 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/scrollbars.al @@ -0,0 +1,24 @@ +# 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/lib/auto/Tk/HList/HList.bs b/Master/tlpkg/tlperl/lib/auto/Tk/HList/HList.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/HList/HList.dll b/Master/tlpkg/tlperl/lib/auto/Tk/HList/HList.dll new file mode 100755 index 00000000000..7fb270c0737 Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/HList/HList.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.bs b/Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.dll b/Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.dll new file mode 100755 index 00000000000..ecab85232ec Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/ImageNames.al b/Master/tlpkg/tlperl/lib/auto/Tk/ImageNames.al new file mode 100644 index 00000000000..9e9a7a00d29 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/ImageNames.al @@ -0,0 +1,13 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 792 "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/lib/auto/Tk/ImageTypes.al b/Master/tlpkg/tlperl/lib/auto/Tk/ImageTypes.al new file mode 100644 index 00000000000..2ab5a66b0de --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/ImageTypes.al @@ -0,0 +1,13 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 797 "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/lib/auto/Tk/JPEG/JPEG.bs b/Master/tlpkg/tlperl/lib/auto/Tk/JPEG/JPEG.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/JPEG/JPEG.dll b/Master/tlpkg/tlperl/lib/auto/Tk/JPEG/JPEG.dll new file mode 100755 index 00000000000..11df6ed5ed9 Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/JPEG/JPEG.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/AutoScan.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/AutoScan.al new file mode 100644 index 00000000000..89bda0179c6 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/AutoScan.al @@ -0,0 +1,49 @@ +# 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/lib/auto/Tk/Listbox/BeginExtend.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginExtend.al new file mode 100644 index 00000000000..afd8f0e9fda --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginExtend.al @@ -0,0 +1,34 @@ +# 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/lib/auto/Tk/Listbox/BeginSelect.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginSelect.al new file mode 100644 index 00000000000..304a0afe1e1 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginSelect.al @@ -0,0 +1,46 @@ +# 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/lib/auto/Tk/Listbox/BeginToggle.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginToggle.al new file mode 100644 index 00000000000..6c70e35d75a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/BeginToggle.al @@ -0,0 +1,40 @@ +# 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/lib/auto/Tk/Listbox/ButtonRelease_1.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/ButtonRelease_1.al new file mode 100644 index 00000000000..ec8fa789fb9 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/ButtonRelease_1.al @@ -0,0 +1,16 @@ +# 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/lib/auto/Tk/Listbox/CLEAR.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/CLEAR.al new file mode 100644 index 00000000000..8ed6feba4b5 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/CLEAR.al @@ -0,0 +1,16 @@ +# 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/lib/auto/Tk/Listbox/Cancel.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cancel.al new file mode 100644 index 00000000000..7ff924756f8 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cancel.al @@ -0,0 +1,42 @@ +# 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/lib/auto/Tk/Listbox/Cntrl_End.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_End.al new file mode 100644 index 00000000000..dad5a4bc0d1 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_End.al @@ -0,0 +1,19 @@ +# 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/lib/auto/Tk/Listbox/Cntrl_Home.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_Home.al new file mode 100644 index 00000000000..08131896da1 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_Home.al @@ -0,0 +1,19 @@ +# 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/lib/auto/Tk/Listbox/Cntrl_backslash.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_backslash.al new file mode 100644 index 00000000000..402426261a7 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Cntrl_backslash.al @@ -0,0 +1,19 @@ +# 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/lib/auto/Tk/Listbox/DELETE.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DELETE.al new file mode 100644 index 00000000000..3dd81ad40fd --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DELETE.al @@ -0,0 +1,19 @@ +# 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/lib/auto/Tk/Listbox/DataExtend.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DataExtend.al new file mode 100644 index 00000000000..4240300aa68 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/DataExtend.al @@ -0,0 +1,39 @@ +# 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/lib/auto/Tk/Listbox/EXISTS.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/EXISTS.al new file mode 100644 index 00000000000..ae1ed1bc5e6 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/EXISTS.al @@ -0,0 +1,16 @@ +# 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/lib/auto/Tk/Listbox/EXTEND.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/EXTEND.al new file mode 100644 index 00000000000..2a483ea08c1 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/EXTEND.al @@ -0,0 +1,16 @@ +# 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/lib/auto/Tk/Listbox/ExtendUpDown.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/ExtendUpDown.al new file mode 100644 index 00000000000..9b72250ea41 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/ExtendUpDown.al @@ -0,0 +1,36 @@ +# 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/lib/auto/Tk/Listbox/FETCH.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/FETCH.al new file mode 100644 index 00000000000..fbbe7a3ce9a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/FETCH.al @@ -0,0 +1,56 @@ +# 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/lib/auto/Tk/Listbox/FETCHSIZE.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/FETCHSIZE.al new file mode 100644 index 00000000000..13b612a26f5 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/FETCHSIZE.al @@ -0,0 +1,16 @@ +# 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/lib/auto/Tk/Listbox/Listbox.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Listbox.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Listbox.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Listbox.dll new file mode 100755 index 00000000000..878d0f22787 Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Listbox.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Motion.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Motion.al new file mode 100644 index 00000000000..c1c3cbd978b --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Motion.al @@ -0,0 +1,77 @@ +# 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/lib/auto/Tk/Listbox/POP.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/POP.al new file mode 100644 index 00000000000..db469652447 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/POP.al @@ -0,0 +1,19 @@ +# 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/lib/auto/Tk/Listbox/PUSH.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/PUSH.al new file mode 100644 index 00000000000..f2168ef46d9 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/PUSH.al @@ -0,0 +1,13 @@ +# 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/lib/auto/Tk/Listbox/SHIFT.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SHIFT.al new file mode 100644 index 00000000000..96a41f7d79c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SHIFT.al @@ -0,0 +1,19 @@ +# 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/lib/auto/Tk/Listbox/SPLICE.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SPLICE.al new file mode 100644 index 00000000000..aeddea8196a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SPLICE.al @@ -0,0 +1,84 @@ +# 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/lib/auto/Tk/Listbox/STORE.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/STORE.al new file mode 100644 index 00000000000..492c32ccc1e --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/STORE.al @@ -0,0 +1,80 @@ +# 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/lib/auto/Tk/Listbox/SelectAll.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SelectAll.al new file mode 100644 index 00000000000..50569afbe50 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SelectAll.al @@ -0,0 +1,32 @@ +# 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/lib/auto/Tk/Listbox/SetList.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SetList.al new file mode 100644 index 00000000000..25e4f596592 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/SetList.al @@ -0,0 +1,16 @@ +# 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/lib/auto/Tk/Listbox/TIEARRAY.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/TIEARRAY.al new file mode 100644 index 00000000000..8c147e8eac8 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/TIEARRAY.al @@ -0,0 +1,15 @@ +# 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/lib/auto/Tk/Listbox/TIESCALAR.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/TIESCALAR.al new file mode 100644 index 00000000000..9cedf047c7f --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/TIESCALAR.al @@ -0,0 +1,15 @@ +# 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/lib/auto/Tk/Listbox/UNSHIFT.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/UNSHIFT.al new file mode 100644 index 00000000000..10d6bae86ec --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/UNSHIFT.al @@ -0,0 +1,16 @@ +# 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/lib/auto/Tk/Listbox/UpDown.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/UpDown.al new file mode 100644 index 00000000000..7ffbfebf4e1 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/UpDown.al @@ -0,0 +1,41 @@ +# 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/lib/auto/Tk/Listbox/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/autosplit.ix new file mode 100644 index 00000000000..0cd2e67037c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/autosplit.ix @@ -0,0 +1,56 @@ +# 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/lib/auto/Tk/Listbox/clipboardPaste.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/clipboardPaste.al new file mode 100644 index 00000000000..28f0bd731de --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/clipboardPaste.al @@ -0,0 +1,21 @@ +# 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/lib/auto/Tk/Listbox/deleteSelected.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/deleteSelected.al new file mode 100644 index 00000000000..45bdfe73221 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/deleteSelected.al @@ -0,0 +1,18 @@ +# 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/lib/auto/Tk/Listbox/getSelected.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/getSelected.al new file mode 100644 index 00000000000..a729a713d3e --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/getSelected.al @@ -0,0 +1,24 @@ +# 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/lib/auto/Tk/Listbox/xyIndex.al b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/xyIndex.al new file mode 100644 index 00000000000..5689afdb6ef --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/xyIndex.al @@ -0,0 +1,29 @@ +# 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/lib/auto/Tk/Menubutton/Menubutton.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Menubutton/Menubutton.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Menubutton/Menubutton.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Menubutton/Menubutton.dll new file mode 100755 index 00000000000..27ebe0db489 Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/Menubutton/Menubutton.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.bs b/Master/tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.dll b/Master/tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.dll new file mode 100755 index 00000000000..b8bb5cdec93 Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.bs b/Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.dll b/Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.dll new file mode 100755 index 00000000000..27375e5c852 Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.dll new file mode 100755 index 00000000000..0e15a425b57 Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Receive.al b/Master/tlpkg/tlperl/lib/auto/Tk/Receive.al new file mode 100644 index 00000000000..b4551cb8ee4 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Receive.al @@ -0,0 +1,23 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 763 "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/lib/auto/Tk/RepeatId.al b/Master/tlpkg/tlperl/lib/auto/Tk/RepeatId.al new file mode 100644 index 00000000000..2f13fee43a1 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/RepeatId.al @@ -0,0 +1,16 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 515 "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/lib/auto/Tk/Scale/Activate.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Activate.al new file mode 100644 index 00000000000..500358c8e0e --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Activate.al @@ -0,0 +1,33 @@ +# 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/lib/auto/Tk/Scale/ButtonDown.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/ButtonDown.al new file mode 100644 index 00000000000..61ed6f32c11 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/ButtonDown.al @@ -0,0 +1,40 @@ +# 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/lib/auto/Tk/Scale/ButtonUp.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/ButtonUp.al new file mode 100644 index 00000000000..d5a22a77a46 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/ButtonUp.al @@ -0,0 +1,16 @@ +# 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/lib/auto/Tk/Scale/ControlPress.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/ControlPress.al new file mode 100644 index 00000000000..50d7ad8b447 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/ControlPress.al @@ -0,0 +1,31 @@ +# 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/lib/auto/Tk/Scale/Drag.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Drag.al new file mode 100644 index 00000000000..0bc63b12879 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Drag.al @@ -0,0 +1,29 @@ +# 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/lib/auto/Tk/Scale/EndDrag.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/EndDrag.al new file mode 100644 index 00000000000..86037b86d92 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/EndDrag.al @@ -0,0 +1,23 @@ +# 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/lib/auto/Tk/Scale/Enter.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Enter.al new file mode 100644 index 00000000000..1326a5ed9a0 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Enter.al @@ -0,0 +1,19 @@ +# 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/lib/auto/Tk/Scale/Increment.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Increment.al new file mode 100644 index 00000000000..76432eeaf40 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Increment.al @@ -0,0 +1,61 @@ +# 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/lib/auto/Tk/Scale/Leave.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Leave.al new file mode 100644 index 00000000000..eb6f7b69f89 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Leave.al @@ -0,0 +1,15 @@ +# 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/lib/auto/Tk/Scale/Scale.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Scale.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Scale.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Scale.dll new file mode 100755 index 00000000000..77d1daf56ee Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Scale.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scale/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/autosplit.ix new file mode 100644 index 00000000000..a5c5d2292f2 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/autosplit.ix @@ -0,0 +1,22 @@ +# 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/lib/auto/Tk/Scrollbar/ButtonDown.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ButtonDown.al new file mode 100644 index 00000000000..d80e2217abc --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ButtonDown.al @@ -0,0 +1,55 @@ +# 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/lib/auto/Tk/Scrollbar/ButtonUp.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ButtonUp.al new file mode 100644 index 00000000000..68857548755 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ButtonUp.al @@ -0,0 +1,26 @@ +# 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/lib/auto/Tk/Scrollbar/Drag.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Drag.al new file mode 100644 index 00000000000..988f9d4a3ef --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Drag.al @@ -0,0 +1,43 @@ +# 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/lib/auto/Tk/Scrollbar/EndDrag.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/EndDrag.al new file mode 100644 index 00000000000..8c401b6fc31 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/EndDrag.al @@ -0,0 +1,28 @@ +# 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/lib/auto/Tk/Scrollbar/Enter.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Enter.al new file mode 100644 index 00000000000..9584a7fa34c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Enter.al @@ -0,0 +1,21 @@ +# 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/lib/auto/Tk/Scrollbar/Leave.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Leave.al new file mode 100644 index 00000000000..a6c5e89d91e --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Leave.al @@ -0,0 +1,18 @@ +# 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/lib/auto/Tk/Scrollbar/Motion.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Motion.al new file mode 100644 index 00000000000..46aac656c70 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Motion.al @@ -0,0 +1,15 @@ +# 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/lib/auto/Tk/Scrollbar/ScrlByPages.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlByPages.al new file mode 100644 index 00000000000..9d4018e9128 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlByPages.al @@ -0,0 +1,38 @@ +# 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/lib/auto/Tk/Scrollbar/ScrlByUnits.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlByUnits.al new file mode 100644 index 00000000000..a364b3e52ce --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlByUnits.al @@ -0,0 +1,37 @@ +# 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/lib/auto/Tk/Scrollbar/ScrlToPos.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlToPos.al new file mode 100644 index 00000000000..e277237953e --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlToPos.al @@ -0,0 +1,35 @@ +# 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/lib/auto/Tk/Scrollbar/ScrlTopBottom.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlTopBottom.al new file mode 100644 index 00000000000..7a00efe616f --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/ScrlTopBottom.al @@ -0,0 +1,32 @@ +# 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/lib/auto/Tk/Scrollbar/Scrollbar.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Scrollbar.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Scrollbar.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Scrollbar.dll new file mode 100755 index 00000000000..d773eb14ef0 Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Scrollbar.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Select.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Select.al new file mode 100644 index 00000000000..0da50da443b --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Select.al @@ -0,0 +1,59 @@ +# 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/lib/auto/Tk/Scrollbar/StartDrag.al b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/StartDrag.al new file mode 100644 index 00000000000..32edbfdef24 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/StartDrag.al @@ -0,0 +1,38 @@ +# 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/lib/auto/Tk/Scrollbar/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/autosplit.ix new file mode 100644 index 00000000000..293d1322dd4 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/autosplit.ix @@ -0,0 +1,30 @@ +# 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/lib/auto/Tk/Selection.al b/Master/tlpkg/tlperl/lib/auto/Tk/Selection.al new file mode 100644 index 00000000000..d9be0b224bd --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Selection.al @@ -0,0 +1,18 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 753 "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/lib/auto/Tk/TList/TList.bs b/Master/tlpkg/tlperl/lib/auto/Tk/TList/TList.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/TList/TList.dll b/Master/tlpkg/tlperl/lib/auto/Tk/TList/TList.dll new file mode 100755 index 00000000000..ba69473f674 Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/TList/TList.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Table/Create.al b/Master/tlpkg/tlperl/lib/auto/Tk/Table/Create.al new file mode 100644 index 00000000000..5194f7be680 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Table/Create.al @@ -0,0 +1,17 @@ +# 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/lib/auto/Tk/Table/Posn.al b/Master/tlpkg/tlperl/lib/auto/Tk/Table/Posn.al new file mode 100644 index 00000000000..8646adcb9fb --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Table/Posn.al @@ -0,0 +1,15 @@ +# 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/lib/auto/Tk/Table/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Table/autosplit.ix new file mode 100644 index 00000000000..1616ae28e83 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Table/autosplit.ix @@ -0,0 +1,14 @@ +# 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/lib/auto/Tk/Table/see.al b/Master/tlpkg/tlperl/lib/auto/Tk/Table/see.al new file mode 100644 index 00000000000..c00ae9e9597 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Table/see.al @@ -0,0 +1,46 @@ +# 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/lib/auto/Tk/Table/totalColumns.al b/Master/tlpkg/tlperl/lib/auto/Tk/Table/totalColumns.al new file mode 100644 index 00000000000..a93512dc367 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Table/totalColumns.al @@ -0,0 +1,13 @@ +# 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/lib/auto/Tk/Table/totalRows.al b/Master/tlpkg/tlperl/lib/auto/Tk/Table/totalRows.al new file mode 100644 index 00000000000..04db7b55ac5 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Table/totalRows.al @@ -0,0 +1,13 @@ +# 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/lib/auto/Tk/Text/Text.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Text/Text.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Text/Text.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Text/Text.dll new file mode 100755 index 00000000000..29f58d4485f Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/Text/Text.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Text/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Text/autosplit.ix new file mode 100644 index 00000000000..48a5455c34a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Text/autosplit.ix @@ -0,0 +1,3 @@ +# Index created by AutoSplit for ..\blib\lib\Tk\Text.pm +# (file acts as timestamp) +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/TextEdit/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/TextEdit/autosplit.ix new file mode 100644 index 00000000000..d7c2cbff9ec --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/TextEdit/autosplit.ix @@ -0,0 +1,3 @@ +# Index created by AutoSplit for blib\lib\Tk\TextEdit.pm +# (file acts as timestamp) +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/TextUndo/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/TextUndo/autosplit.ix new file mode 100644 index 00000000000..3aef3c081a4 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/TextUndo/autosplit.ix @@ -0,0 +1,3 @@ +# Index created by AutoSplit for blib\lib\Tk\TextUndo.pm +# (file acts as timestamp) +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.bs b/Master/tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.dll b/Master/tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.dll new file mode 100755 index 00000000000..d0e4bb44b01 Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Tk.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Tk.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Tk.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Tk.dll new file mode 100755 index 00000000000..39460f86ef5 Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/Tk.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_BindIn.al b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_BindIn.al new file mode 100644 index 00000000000..8a0a0a6c911 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_BindIn.al @@ -0,0 +1,19 @@ +# 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/lib/auto/Tk/Toplevel/FG_BindOut.al b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_BindOut.al new file mode 100644 index 00000000000..d7fb14d40dc --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_BindOut.al @@ -0,0 +1,20 @@ +# 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/lib/auto/Tk/Toplevel/FG_Create.al b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Create.al new file mode 100644 index 00000000000..34bb933cfa0 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Create.al @@ -0,0 +1,56 @@ +# 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/lib/auto/Tk/Toplevel/FG_Destroy.al b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Destroy.al new file mode 100644 index 00000000000..e0af457799f --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Destroy.al @@ -0,0 +1,29 @@ +# 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/lib/auto/Tk/Toplevel/FG_In.al b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_In.al new file mode 100644 index 00000000000..74cf18b9b9d --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_In.al @@ -0,0 +1,24 @@ +# 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/lib/auto/Tk/Toplevel/FG_Out.al b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Out.al new file mode 100644 index 00000000000..9dfaffe9d2e --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_Out.al @@ -0,0 +1,32 @@ +# 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/lib/auto/Tk/Toplevel/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/autosplit.ix new file mode 100644 index 00000000000..859b90d9a40 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/autosplit.ix @@ -0,0 +1,10 @@ +# 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/lib/auto/Tk/TraverseToMenu.al b/Master/tlpkg/tlperl/lib/auto/Tk/TraverseToMenu.al new file mode 100644 index 00000000000..73412e5dc58 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/TraverseToMenu.al @@ -0,0 +1,27 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 722 "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/lib/auto/Tk/Widget/ASkludge.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/ASkludge.al new file mode 100644 index 00000000000..2b1cc332a3d --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/ASkludge.al @@ -0,0 +1,30 @@ +# 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/lib/auto/Tk/Widget/AltKeyInDialog.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/AltKeyInDialog.al new file mode 100644 index 00000000000..9ee32f44a40 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/AltKeyInDialog.al @@ -0,0 +1,20 @@ +# 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/lib/auto/Tk/Widget/AmpWidget.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/AmpWidget.al new file mode 100644 index 00000000000..7874078b30e --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/AmpWidget.al @@ -0,0 +1,36 @@ +# 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/lib/auto/Tk/Widget/FindAltKeyTarget.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/FindAltKeyTarget.al new file mode 100644 index 00000000000..74f7fbd1659 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/FindAltKeyTarget.al @@ -0,0 +1,38 @@ +# 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/lib/auto/Tk/Widget/MasterMenu.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/MasterMenu.al new file mode 100644 index 00000000000..a6293493638 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/MasterMenu.al @@ -0,0 +1,14 @@ +# 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/lib/auto/Tk/Widget/RestoreFocusGrab.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/RestoreFocusGrab.al new file mode 100644 index 00000000000..e295862b042 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/RestoreFocusGrab.al @@ -0,0 +1,59 @@ +# 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/lib/auto/Tk/Widget/SetAmpText.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/SetAmpText.al new file mode 100644 index 00000000000..dae7755b9e6 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/SetAmpText.al @@ -0,0 +1,19 @@ +# 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/lib/auto/Tk/Widget/SetFocusGrab.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/SetFocusGrab.al new file mode 100644 index 00000000000..53730834513 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/SetFocusGrab.al @@ -0,0 +1,38 @@ +# 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/lib/auto/Tk/Widget/UnderlineAmpersand.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/UnderlineAmpersand.al new file mode 100644 index 00000000000..c9bf220c2b6 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/UnderlineAmpersand.al @@ -0,0 +1,29 @@ +# 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], "\n" ); + } else { + push @out, sprintf( "%s '%s'\n", ' ' x $spc1, $callback->[0], "\n" ); + } + 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/lib/auto/Tk/Widget/clipboardKeysyms.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/clipboardKeysyms.al new file mode 100644 index 00000000000..eabc32f2a8d --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/clipboardKeysyms.al @@ -0,0 +1,51 @@ +# 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/lib/auto/Tk/Widget/pathname.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/pathname.al new file mode 100644 index 00000000000..29f7e4cffca --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/pathname.al @@ -0,0 +1,15 @@ +# 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/lib/auto/Tk/Wm/AnchorAdjust.al b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/AnchorAdjust.al new file mode 100644 index 00000000000..538612878ed --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/AnchorAdjust.al @@ -0,0 +1,17 @@ +# 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/lib/auto/Tk/Wm/FullScreen.al b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/FullScreen.al new file mode 100644 index 00000000000..4d5702cc60d --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/FullScreen.al @@ -0,0 +1,29 @@ +# 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/lib/auto/Tk/Wm/Popup.al b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/Popup.al new file mode 100644 index 00000000000..3f460c5bac6 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/Popup.al @@ -0,0 +1,50 @@ +# 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/lib/auto/Tk/Wm/Post.al b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/Post.al new file mode 100644 index 00000000000..f3f5c8e3e08 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/Post.al @@ -0,0 +1,20 @@ +# 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/lib/auto/Tk/Wm/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/autosplit.ix new file mode 100644 index 00000000000..201dbe8ba99 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/autosplit.ix @@ -0,0 +1,14 @@ +# 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/lib/auto/Tk/Wm/iconposition.al b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/iconposition.al new file mode 100644 index 00000000000..9254968f61c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Wm/iconposition.al @@ -0,0 +1,24 @@ +# 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/lib/auto/Tk/X/X.bs b/Master/tlpkg/tlperl/lib/auto/Tk/X/X.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/X/X.dll b/Master/tlpkg/tlperl/lib/auto/Tk/X/X.dll new file mode 100755 index 00000000000..2ff9e0b957f Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/X/X.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/X/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/X/autosplit.ix new file mode 100644 index 00000000000..e63dbf19b00 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/X/autosplit.ix @@ -0,0 +1,3 @@ +# Index created by AutoSplit for ..\..\blib\lib\Tk\X.pm +# (file acts as timestamp) +1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.bs b/Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.bs new file mode 100644 index 00000000000..e69de29bb2d diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.dll b/Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.dll new file mode 100755 index 00000000000..d57993e0199 Binary files /dev/null and b/Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.dll differ diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/autosplit.ix new file mode 100644 index 00000000000..8fb1449e58f --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/autosplit.ix @@ -0,0 +1,49 @@ +# 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/lib/auto/Tk/break.al b/Master/tlpkg/tlperl/lib/auto/Tk/break.al new file mode 100644 index 00000000000..4aa6c220d97 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/break.al @@ -0,0 +1,13 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 778 "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/lib/auto/Tk/focusFollowsMouse.al b/Master/tlpkg/tlperl/lib/auto/Tk/focusFollowsMouse.al new file mode 100644 index 00000000000..48f2d2552cc --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/focusFollowsMouse.al @@ -0,0 +1,14 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 716 "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/lib/auto/Tk/focusNext.al b/Master/tlpkg/tlperl/lib/auto/Tk/focusNext.al new file mode 100644 index 00000000000..a8eeb5fc55f --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/focusNext.al @@ -0,0 +1,18 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 552 "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/lib/auto/Tk/focusPrev.al b/Master/tlpkg/tlperl/lib/auto/Tk/focusPrev.al new file mode 100644 index 00000000000..effc8f75110 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/focusPrev.al @@ -0,0 +1,28 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 597 "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/lib/auto/Tk/getEncoding.al b/Master/tlpkg/tlperl/lib/auto/Tk/getEncoding.al new file mode 100644 index 00000000000..1ac20ba8d7d --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/getEncoding.al @@ -0,0 +1,43 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 820 "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/lib/auto/Tk/getNextFocus.al b/Master/tlpkg/tlperl/lib/auto/Tk/getNextFocus.al new file mode 100644 index 00000000000..456c393b3c2 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/getNextFocus.al @@ -0,0 +1,44 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 562 "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/lib/auto/Tk/getPrevFocus.al b/Master/tlpkg/tlperl/lib/auto/Tk/getPrevFocus.al new file mode 100644 index 00000000000..85912416379 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/getPrevFocus.al @@ -0,0 +1,54 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 617 "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/lib/auto/Tk/interps.al b/Master/tlpkg/tlperl/lib/auto/Tk/interps.al new file mode 100644 index 00000000000..507c66037fd --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/interps.al @@ -0,0 +1,14 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 802 "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/lib/auto/Tk/lsearch.al b/Master/tlpkg/tlperl/lib/auto/Tk/lsearch.al new file mode 100644 index 00000000000..61c82143f7b --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/lsearch.al @@ -0,0 +1,19 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 808 "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/lib/auto/Tk/pTk/extralibs.ld b/Master/tlpkg/tlperl/lib/auto/Tk/pTk/extralibs.ld new file mode 100644 index 00000000000..d58b659790a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/pTk/extralibs.ld @@ -0,0 +1 @@ +X:\mingw32\lib\libimm32.a X:\mingw32\lib\libcomctl32.a X:\mingw32\lib\libcomdlg32.a X:\mingw32\lib\libgdi32.a X:\mingw32\lib\libmoldname.a X:\mingw32\lib\libkernel32.a X:\mingw32\lib\libuser32.a X:\mingw32\lib\libgdi32.a X:\mingw32\lib\libwinspool.a X:\mingw32\lib\libcomdlg32.a X:\mingw32\lib\libadvapi32.a X:\mingw32\lib\libshell32.a X:\mingw32\lib\libole32.a X:\mingw32\lib\liboleaut32.a X:\mingw32\lib\libnetapi32.a X:\mingw32\lib\libuuid.a X:\mingw32\lib\libws2_32.a X:\mingw32\lib\libmpr.a X:\mingw32\lib\libwinmm.a X:\mingw32\lib\libversion.a X:\mingw32\lib\libodbc32.a X:\mingw32\lib\libodbccp32.a X:\mingw32\lib\libcomctl32.a diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/tabFocus.al b/Master/tlpkg/tlperl/lib/auto/Tk/tabFocus.al new file mode 100644 index 00000000000..c01d6940cf4 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/tabFocus.al @@ -0,0 +1,13 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 711 "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/lib/auto/Tk/updateWidgets.al b/Master/tlpkg/tlperl/lib/auto/Tk/updateWidgets.al new file mode 100644 index 00000000000..980a6bbc632 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/updateWidgets.al @@ -0,0 +1,17 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 783 "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; -- cgit v1.2.3