New tlperl part VI

git-svn-id: svn://tug.org/texlive/trunk@21428 c570f23f-e606-0410-a88d-b1316a301751
author: Siep Kroonenberg <siepo@cybercomm.nl> 2011-02-17 15:53:26 +0000
committer: Siep Kroonenberg <siepo@cybercomm.nl> 2011-02-17 15:53:26 +0000
commit: 2acf4c9396e980e00adbdc02f5a70eefc7122b55 (patch)
tree: f0dd76ad4357b54e9b97cf618554cefadea99d48 /Master/tlpkg/tlperl/lib/auto
parent: 2de20e5e6fe9f53f36acef44253e9e0b19a4bdb8 (diff)
175 files changed, 4408 insertions, 0 deletions
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Canvas/Canvas.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Canvas/Canvas.dll
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Compound/Compound.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Compound/Compound.dll
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/DragDrop/Win32Site/Win32Site.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/DragDrop/Win32Site/Win32Site.dll
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Entry/Entry.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Entry/Entry.dll
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Event/Event.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Event/Event.dll
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','<Map>'))
+  {
+   $w->Tk::bind('Freeze','<Map>',['packPropagate' => 0])
+  }
+ $w->AddBindTag('Freeze');
+}
+
+# end of Tk::Frame::freeze_on_map
+1;
diff --git a/Master/tlpkg/tlperl/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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/HList/HList.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/HList/HList.dll
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/IO/IO.dll
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/JPEG/JPEG.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/JPEG/JPEG.dll
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("<<ListboxSelect>>");
+}
+
+# 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("<<ListboxSelect>>");
+  }
+}
+
+# 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("<<ListboxSelect>>");
+}
+
+# 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("<<ListboxSelect>>");
+}
+
+# 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("<<ListboxSelect>>");
+}
+
+# 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("<<ListboxSelect>>");
+ }
+}
+
+# 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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Listbox.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Listbox/Listbox.dll
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("<<ListboxSelect>>");
+  }
+ elsif ($mode eq 'extended')
+  {
+   my $i = $Prev;
+   if (!defined $i || $i eq '')
+    {
+     $i = $el;
+     $w->selectionSet($el);
+    }
+   if ($w->selectionIncludes('anchor'))
+    {
+     $w->selectionClear($i,$el);
+     $w->selectionSet('anchor',$el)
+    }
+   else
+    {
+     $w->selectionClear($i,$el);
+     $w->selectionClear('anchor',$el)
+    }
+   if (!@Selection)
+    {
+     @Selection = $w->curselection;
+    }
+   while ($i < $el && $i < $anchor)
+    {
+     if (Tk::lsearch(\@Selection,$i) >= 0)
+      {
+       $w->selectionSet($i)
+      }
+     $i++
+    }
+   while ($i > $el && $i > $anchor)
+    {
+     if (Tk::lsearch(\@Selection,$i) >= 0)
+      {
+       $w->selectionSet($i)
+      }
+     $i--
+    }
+   $Prev = $el;
+   $w->eventGenerate("<<ListboxSelect>>");
+  }
+}
+
+# end of Tk::Listbox::Motion
+1;
diff --git a/Master/tlpkg/tlperl/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("<<ListboxSelect>>");
+}
+
+# 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("<<ListboxSelect>>");
+  }
+ elsif ($mode eq 'extended')
+  {
+   $w->selectionClear(0,'end');
+   $w->selectionSet('active');
+   $w->selectionAnchor('active');
+   $Prev = $w->index('active');
+   @Selection = ();
+   $w->eventGenerate("<<ListboxSelect>>");
+  }
+}
+
+# end of Tk::Listbox::UpDown
+1;
diff --git a/Master/tlpkg/tlperl/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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Menubutton/Menubutton.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Menubutton/Menubutton.dll
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/NBFrame/NBFrame.dll
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/PNG/PNG.dll
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Pixmap/Pixmap.dll
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Scale.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scale/Scale.dll
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Scrollbar.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Scrollbar/Scrollbar.dll
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/TList/TList.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/TList/TList.dll
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Text/Text.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Text/Text.dll
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/TixGrid/TixGrid.dll
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Tk.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Tk.dll
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('<FocusIn>', sub {
+		     my $w = shift;
+		     my $Ev = $w->XEvent;
+		     $t->FG_In($w, $Ev->d);
+		 }
+		);
+	$t->bind('<FocusOut>', sub {
+		     my $w = shift;
+		     my $Ev = $w->XEvent;
+		     $t->FG_Out($w, $Ev->d);
+		 }
+		);
+	$t->bind('<Destroy>', sub {
+		     my $w = shift;
+		     my $Ev = $w->XEvent;
+		     $t->FG_Destroy($w);
+		 }
+		);
+	# <Destroy> is not sufficient to break loops if never mapped.
+	$t->OnDestroy([$t,'FG_Destroy']);
+    }
+}
+
+# end of Tk::Toplevel::FG_Create
+1;
diff --git a/Master/tlpkg/tlperl/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 <FocusIn> event. Calls the FocusIn command for the newly
+#	focused widget in the focus group.
+#
+sub FG_In {
+    my($t, $w, $detail) = @_;
+    if (defined $t->{'_focus'} and $t->{'_focus'} eq $w) {
+	# This is already in focus
+	return;
+    } else {
+	$t->{'_focus'} = $w;
+        $t->{'_FocusIn'}{$w}->Call if exists $t->{'_FocusIn'}{$w};
+    }
+}
+
+# end of Tk::Toplevel::FG_In
+1;
diff --git a/Master/tlpkg/tlperl/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 <FocusOut> event. Checks if this is really a lose
+#	focus event, not one generated by the mouse moving out of the
+#	toplevel window.  Calls the FocusOut command for the widget
+#	who loses its focus.
+#
+sub FG_Out {
+    my($t, $w, $detail) = @_;
+    if ($detail ne 'NotifyNonlinear' and $detail ne 'NotifyNonlinearVirtual') {
+	# This is caused by mouse moving out of the window
+	return;
+    }
+    unless (exists $t->{'_FocusOut'}{$w}) {
+	return;
+    } else {
+	$t->{'_FocusOut'}{$w}->Call;
+	delete $t->{'_focus'};
+    }
+}
+
+1;
+
+__END__
+1;
+# end of Tk::Toplevel::FG_Out
diff --git a/Master/tlpkg/tlperl/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 --
+# <Alt-Key> event handler for standard dialogs. Sends <<AltUnderlined>>
+# to button or label which has appropriate underlined character
+#
+sub AltKeyInDialog
+{
+ my ($w, $key) = @_;
+ my $target = $w->FindAltKeyTarget($key);
+ return if !$target;
+ $target->eventGenerate('<<AltUnderlined>>');
+}
+
+# end of Tk::Widget::AltKeyInDialog
+1;
diff --git a/Master/tlpkg/tlperl/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{(?<!&)&(?!&)}g)
+  {
+   my $idx = pos $text;
+   $text =~ s{(?<!&)&(?!&)}{};
+   ($text, $idx);
+  }
+ else
+  {
+   ($text, -1);
+  }
+}
+
+# end of Tk::Widget::UnderlineAmpersand
+1;
diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/autosplit.ix
new file mode 100644
index 00000000000..7844cc0b25e
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/autosplit.ix
@@ -0,0 +1,27 @@
+# Index created by AutoSplit for blib\lib\Tk\Widget.pm
+#    (file acts as timestamp)
+package Tk::Widget;
+sub bindDump  ;
+sub ASkludge 
+;
+sub clipboardKeysyms 
+;
+sub pathname 
+;
+sub UnderlineAmpersand 
+;
+sub SetAmpText 
+;
+sub AmpWidget 
+;
+sub FindAltKeyTarget 
+;
+sub AltKeyInDialog 
+;
+sub SetFocusGrab 
+;
+sub RestoreFocusGrab 
+;
+sub MasterMenu 
+;
+1;
diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/bindDump.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/bindDump.al
new file mode 100644
index 00000000000..a11fd56468d
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/bindDump.al
@@ -0,0 +1,87 @@
+# NOTE: Derived from blib\lib\Tk\Widget.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package Tk::Widget;
+
+#line 1432 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\bindDump.al)"
+sub bindDump {
+
+    # Dump lots of good binding information.  This pretty-print subroutine
+    # is, essentially, the following code in disguise:
+    #
+    # print "Binding information for $w\n";
+    # foreach my $tag ($w->bindtags) {
+    #     printf "\n Binding tag '$tag' has these bindings:\n";
+    #     foreach my $binding ($w->Tk::bind($tag)) {
+    #         printf "  $binding\n";
+    #     }
+    # }
+
+    my ($w) = @_;
+
+    my (@bindtags) = $w->bindtags;
+    my $digits = length( scalar @bindtags );
+    my ($spc1, $spc2) = ($digits + 33, $digits + 35);
+    my $format1 = "%${digits}d.";
+    my $format2 = ' ' x ($digits + 2);
+    my $n = 0;
+
+    my @out;
+    push @out, sprintf( "\n## Binding information for '%s', %s ##", $w->PathName, $w );
+
+    foreach my $tag (@bindtags) {
+        my (@bindings) = $w->Tk::bind($tag);
+        $n++;                   # count this bindtag
+
+        if ($#bindings == -1) {
+            push @out, sprintf( "\n$format1 Binding tag '$tag' has no bindings.\n", $n );
+        } else {
+            push @out, sprintf( "\n$format1 Binding tag '$tag' has these bindings:\n", $n );
+
+            foreach my $binding ( @bindings ) {
+                my $callback = $w->Tk::bind($tag, $binding);
+                push @out, sprintf( "$format2%27s : %-40s\n", $binding, $callback );
+
+                if ($callback =~ /SCALAR/) {
+                    if (ref $$callback) {
+                        push @out, sprintf( "%s %s\n", ' ' x $spc1, $$callback );
+                    } else {
+                        push @out, sprintf( "%s '%s'\n", ' ' x $spc1, $$callback );
+                    }
+                } elsif ($callback =~ /ARRAY/) {
+                    if (ref $callback->[0]) {
+                        push @out, sprintf( "%s %s\n", ' ' x $spc1, $callback->[0], "\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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/X/X.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/X/X.dll
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.bs
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
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/auto/Tk/Xlib/Xlib.dll
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','<Enter>','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;
author	Siep Kroonenberg <siepo@cybercomm.nl>	2011-02-17 15:53:26 +0000
committer	Siep Kroonenberg <siepo@cybercomm.nl>	2011-02-17 15:53:26 +0000
commit	2acf4c9396e980e00adbdc02f5a70eefc7122b55 (patch)
tree	f0dd76ad4357b54e9b97cf618554cefadea99d48 /Master/tlpkg/tlperl/lib/auto
parent	2de20e5e6fe9f53f36acef44253e9e0b19a4bdb8 (diff)