From 316ee97c621496b0fe3267f57cce81bee44ca1e6 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Thu, 17 Feb 2011 12:20:49 +0000 Subject: Moving old tlperl prior to committing new one git-svn-id: svn://tug.org/texlive/trunk@21422 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlperl/lib/Tk/804delta.pod | 110 - Master/tlpkg/tlperl/lib/Tk/Adjuster.pm | 438 --- Master/tlpkg/tlperl/lib/Tk/Adjuster.pod | 223 -- Master/tlpkg/tlperl/lib/Tk/After.pm | 104 - Master/tlpkg/tlperl/lib/Tk/Animation.pm | 230 -- Master/tlpkg/tlperl/lib/Tk/Animation.pod | 92 - Master/tlpkg/tlperl/lib/Tk/Balloon.pm | 633 --- Master/tlpkg/tlperl/lib/Tk/Balloon.pod | 282 -- Master/tlpkg/tlperl/lib/Tk/Bitmap.pm | 10 - Master/tlpkg/tlperl/lib/Tk/Bitmap.pod | 103 - Master/tlpkg/tlperl/lib/Tk/BrowseEntry.pm | 522 --- Master/tlpkg/tlperl/lib/Tk/BrowseEntry.pod | 210 - Master/tlpkg/tlperl/lib/Tk/Button.pm | 247 -- Master/tlpkg/tlperl/lib/Tk/Button.pod | 255 -- Master/tlpkg/tlperl/lib/Tk/Camel.xpm | 41 - Master/tlpkg/tlperl/lib/Tk/Canvas.pm | 1436 ------- Master/tlpkg/tlperl/lib/Tk/Canvas.pod | 2393 ----------- Master/tlpkg/tlperl/lib/Tk/Checkbutton.pm | 42 - Master/tlpkg/tlperl/lib/Tk/Checkbutton.pod | 347 -- Master/tlpkg/tlperl/lib/Tk/Clipboard.pm | 122 - Master/tlpkg/tlperl/lib/Tk/Clipboard.pod | 89 - Master/tlpkg/tlperl/lib/Tk/CmdLine.pm | 497 --- Master/tlpkg/tlperl/lib/Tk/CmdLine.pod | 454 --- Master/tlpkg/tlperl/lib/Tk/ColorEdit.xpm | 58 - Master/tlpkg/tlperl/lib/Tk/ColorEditor.pm | 768 ---- Master/tlpkg/tlperl/lib/Tk/ColorEditor.pod | 120 - Master/tlpkg/tlperl/lib/Tk/Common.pod | 16 - Master/tlpkg/tlperl/lib/Tk/Compound.pm | 40 - Master/tlpkg/tlperl/lib/Tk/Compound.pod | 298 -- Master/tlpkg/tlperl/lib/Tk/Config.pm | 13 - Master/tlpkg/tlperl/lib/Tk/ConfigSpecs.pod | 262 -- Master/tlpkg/tlperl/lib/Tk/Configure.pm | 69 - Master/tlpkg/tlperl/lib/Tk/Credits | 7 - Master/tlpkg/tlperl/lib/Tk/DItem.pod | 439 --- Master/tlpkg/tlperl/lib/Tk/Derived.pm | 512 --- Master/tlpkg/tlperl/lib/Tk/Derived.pod | 89 - Master/tlpkg/tlperl/lib/Tk/Dialog.pm | 68 - Master/tlpkg/tlperl/lib/Tk/Dialog.pod | 107 - Master/tlpkg/tlperl/lib/Tk/DialogBox.pm | 146 - Master/tlpkg/tlperl/lib/Tk/DialogBox.pod | 156 - Master/tlpkg/tlperl/lib/Tk/DirTree.pm | 259 -- Master/tlpkg/tlperl/lib/Tk/DirTree.pod | 172 - Master/tlpkg/tlperl/lib/Tk/Dirlist.pm | 113 - Master/tlpkg/tlperl/lib/Tk/DragDrop.pm | 332 -- Master/tlpkg/tlperl/lib/Tk/DragDrop/Common.pm | 61 - Master/tlpkg/tlperl/lib/Tk/DragDrop/LocalDrop.pm | 61 - Master/tlpkg/tlperl/lib/Tk/DragDrop/Rect.pm | 110 - Master/tlpkg/tlperl/lib/Tk/DragDrop/SunConst.pm | 34 - Master/tlpkg/tlperl/lib/Tk/DragDrop/SunDrop.pm | 200 - Master/tlpkg/tlperl/lib/Tk/DragDrop/SunSite.pm | 107 - Master/tlpkg/tlperl/lib/Tk/DragDrop/Win32Drop.pm | 8 - Master/tlpkg/tlperl/lib/Tk/DragDrop/Win32Site.pm | 50 - Master/tlpkg/tlperl/lib/Tk/DragDrop/XDNDDrop.pm | 145 - Master/tlpkg/tlperl/lib/Tk/DragDrop/XDNDSite.pm | 159 - Master/tlpkg/tlperl/lib/Tk/DropSite.pm | 257 -- Master/tlpkg/tlperl/lib/Tk/DropSite.pod | 33 - Master/tlpkg/tlperl/lib/Tk/DummyEncode.pm | 46 - Master/tlpkg/tlperl/lib/Tk/English.pm | 307 -- Master/tlpkg/tlperl/lib/Tk/Entry.pm | 615 --- Master/tlpkg/tlperl/lib/Tk/Entry.pod | 693 ---- Master/tlpkg/tlperl/lib/Tk/Error.pod | 145 - Master/tlpkg/tlperl/lib/Tk/ErrorDialog.pm | 125 - Master/tlpkg/tlperl/lib/Tk/Event.pm | 14 - Master/tlpkg/tlperl/lib/Tk/Event/IO.pm | 132 - Master/tlpkg/tlperl/lib/Tk/Eventloop.pod | 62 - Master/tlpkg/tlperl/lib/Tk/FBox.pm | 1063 ----- Master/tlpkg/tlperl/lib/Tk/FBox.pod | 67 - Master/tlpkg/tlperl/lib/Tk/FileSelect.pm | 577 --- Master/tlpkg/tlperl/lib/Tk/FileSelect.pod | 146 - Master/tlpkg/tlperl/lib/Tk/FloatEntry.pm | 109 - Master/tlpkg/tlperl/lib/Tk/Font.pm | 163 - Master/tlpkg/tlperl/lib/Tk/Font.pod | 407 -- Master/tlpkg/tlperl/lib/Tk/Frame.pm | 378 -- Master/tlpkg/tlperl/lib/Tk/Frame.pod | 146 - Master/tlpkg/tlperl/lib/Tk/HList.pm | 685 ---- Master/tlpkg/tlperl/lib/Tk/HList.pod | 1050 ----- Master/tlpkg/tlperl/lib/Tk/IO.pm | 182 - Master/tlpkg/tlperl/lib/Tk/IO.pod | 51 - Master/tlpkg/tlperl/lib/Tk/IconList.pm | 712 ---- Master/tlpkg/tlperl/lib/Tk/IconList.pod | 82 - Master/tlpkg/tlperl/lib/Tk/Image.pm | 74 - Master/tlpkg/tlperl/lib/Tk/Image.pod | 145 - Master/tlpkg/tlperl/lib/Tk/InputO.pod | 50 - Master/tlpkg/tlperl/lib/Tk/Internals.pod | 142 - Master/tlpkg/tlperl/lib/Tk/ItemStyle.pm | 38 - Master/tlpkg/tlperl/lib/Tk/JPEG.pm | 57 - Master/tlpkg/tlperl/lib/Tk/LabEntry.pm | 31 - Master/tlpkg/tlperl/lib/Tk/LabFrame.pm | 138 - Master/tlpkg/tlperl/lib/Tk/LabFrame.pod | 110 - Master/tlpkg/tlperl/lib/Tk/LabRadio.pm | 63 - Master/tlpkg/tlperl/lib/Tk/Label.pm | 21 - Master/tlpkg/tlperl/lib/Tk/Label.pod | 133 - Master/tlpkg/tlperl/lib/Tk/Labelframe.pm | 16 - Master/tlpkg/tlperl/lib/Tk/Labelframe.pod | 206 - Master/tlpkg/tlperl/lib/Tk/Listbox.pm | 910 ----- Master/tlpkg/tlperl/lib/Tk/Listbox.pod | 794 ---- Master/tlpkg/tlperl/lib/Tk/MMtry.pm | 58 - Master/tlpkg/tlperl/lib/Tk/MMutil.pm | 602 --- Master/tlpkg/tlperl/lib/Tk/MainWindow.pm | 212 - Master/tlpkg/tlperl/lib/Tk/MainWindow.pod | 85 - Master/tlpkg/tlperl/lib/Tk/MakeDepend.pm | 292 -- Master/tlpkg/tlperl/lib/Tk/Menu.pm | 1201 ------ Master/tlpkg/tlperl/lib/Tk/Menu.pod | 876 ----- Master/tlpkg/tlperl/lib/Tk/Menu/Item.pm | 178 - Master/tlpkg/tlperl/lib/Tk/Menu/Item.pod | 96 - Master/tlpkg/tlperl/lib/Tk/Menubar.pm | 15 - Master/tlpkg/tlperl/lib/Tk/Menubutton.pm | 401 -- Master/tlpkg/tlperl/lib/Tk/Menubutton.pod | 249 -- Master/tlpkg/tlperl/lib/Tk/Message.pm | 20 - Master/tlpkg/tlperl/lib/Tk/Message.pod | 151 - Master/tlpkg/tlperl/lib/Tk/MsgBox.pm | 505 --- Master/tlpkg/tlperl/lib/Tk/MsgBox.pod | 83 - Master/tlpkg/tlperl/lib/Tk/Mwm.pod | 109 - Master/tlpkg/tlperl/lib/Tk/NBFrame.pm | 20 - Master/tlpkg/tlperl/lib/Tk/NoteBook.pm | 480 --- Master/tlpkg/tlperl/lib/Tk/NoteBook.pod | 231 -- Master/tlpkg/tlperl/lib/Tk/Optionmenu.pm | 128 - Master/tlpkg/tlperl/lib/Tk/Optionmenu.pod | 100 - Master/tlpkg/tlperl/lib/Tk/PNG.pm | 50 - Master/tlpkg/tlperl/lib/Tk/Pane.pm | 544 --- Master/tlpkg/tlperl/lib/Tk/Panedwindow.pm | 221 -- Master/tlpkg/tlperl/lib/Tk/Panedwindow.pod | 326 -- Master/tlpkg/tlperl/lib/Tk/Photo.pm | 22 - Master/tlpkg/tlperl/lib/Tk/Photo.pod | 475 --- Master/tlpkg/tlperl/lib/Tk/Pixmap.pm | 19 - Master/tlpkg/tlperl/lib/Tk/Pixmap.pod | 64 - Master/tlpkg/tlperl/lib/Tk/Popup.pod | 89 - Master/tlpkg/tlperl/lib/Tk/Pretty.pm | 93 - Master/tlpkg/tlperl/lib/Tk/ProgressBar.pm | 498 --- Master/tlpkg/tlperl/lib/Tk/README.Adjust | 77 - Master/tlpkg/tlperl/lib/Tk/ROText.pm | 43 - Master/tlpkg/tlperl/lib/Tk/ROText.pod | 31 - Master/tlpkg/tlperl/lib/Tk/Radiobutton.pm | 45 - Master/tlpkg/tlperl/lib/Tk/Radiobutton.pod | 333 -- Master/tlpkg/tlperl/lib/Tk/Region.pm | 182 - Master/tlpkg/tlperl/lib/Tk/Reindex.pm | 233 -- Master/tlpkg/tlperl/lib/Tk/ReindexedROText.pm | 13 - Master/tlpkg/tlperl/lib/Tk/ReindexedText.pm | 13 - Master/tlpkg/tlperl/lib/Tk/Scale.pm | 278 -- Master/tlpkg/tlperl/lib/Tk/Scale.pod | 356 -- Master/tlpkg/tlperl/lib/Tk/Scrollbar.pm | 429 -- Master/tlpkg/tlperl/lib/Tk/Scrollbar.pod | 429 -- Master/tlpkg/tlperl/lib/Tk/Scrolled.pod | 86 - Master/tlpkg/tlperl/lib/Tk/Spinbox.pm | 115 - Master/tlpkg/tlperl/lib/Tk/Spinbox.pod | 819 ---- Master/tlpkg/tlperl/lib/Tk/Stats.pm | 26 - Master/tlpkg/tlperl/lib/Tk/Submethods.pm | 45 - Master/tlpkg/tlperl/lib/Tk/Submethods.pod | 27 - Master/tlpkg/tlperl/lib/Tk/SunConst.pod | 18 - Master/tlpkg/tlperl/lib/Tk/TList.pm | 416 -- Master/tlpkg/tlperl/lib/Tk/TList.pod | 597 --- Master/tlpkg/tlperl/lib/Tk/Table.pm | 598 --- Master/tlpkg/tlperl/lib/Tk/Table.pod | 97 - Master/tlpkg/tlperl/lib/Tk/Tcl-perl.pod | 200 - Master/tlpkg/tlperl/lib/Tk/Text.pm | 1662 -------- Master/tlpkg/tlperl/lib/Tk/Text.pod | 2215 ----------- Master/tlpkg/tlperl/lib/Tk/Text/Tag.pm | 46 - Master/tlpkg/tlperl/lib/Tk/TextEdit.pm | 509 --- Master/tlpkg/tlperl/lib/Tk/TextList.pm | 982 ----- Master/tlpkg/tlperl/lib/Tk/TextUndo.pm | 1022 ----- Master/tlpkg/tlperl/lib/Tk/TextUndo.pod | 73 - Master/tlpkg/tlperl/lib/Tk/Tiler.pm | 203 - Master/tlpkg/tlperl/lib/Tk/Tiler.pod | 32 - Master/tlpkg/tlperl/lib/Tk/TixGrid.pm | 1597 -------- Master/tlpkg/tlperl/lib/Tk/TixGrid.pod | 539 --- Master/tlpkg/tlperl/lib/Tk/Tk.xbm | 44 - Master/tlpkg/tlperl/lib/Tk/Tk.xpm | 41 - Master/tlpkg/tlperl/lib/Tk/TkXSUB.def | 62 - Master/tlpkg/tlperl/lib/Tk/Toplevel.pm | 211 - Master/tlpkg/tlperl/lib/Tk/Toplevel.pod | 199 - Master/tlpkg/tlperl/lib/Tk/Trace.pm | 405 -- Master/tlpkg/tlperl/lib/Tk/Tree.pm | 313 -- Master/tlpkg/tlperl/lib/Tk/Tree.pod | 274 -- Master/tlpkg/tlperl/lib/Tk/UserGuide.pod | 493 --- Master/tlpkg/tlperl/lib/Tk/Widget.pm | 1770 --------- Master/tlpkg/tlperl/lib/Tk/Widget.pod | 678 ---- Master/tlpkg/tlperl/lib/Tk/WidgetDemo.pod | 59 - Master/tlpkg/tlperl/lib/Tk/Wm.pm | 174 - Master/tlpkg/tlperl/lib/Tk/Wm.pod | 668 ---- Master/tlpkg/tlperl/lib/Tk/X.pm | 391 -- Master/tlpkg/tlperl/lib/Tk/X.pod | 373 -- Master/tlpkg/tlperl/lib/Tk/X11/X.h | 677 ---- Master/tlpkg/tlperl/lib/Tk/X11/Xatom.h | 79 - Master/tlpkg/tlperl/lib/Tk/X11/Xfuncproto.h | 60 - Master/tlpkg/tlperl/lib/Tk/X11/Xlib.h | 1214 ------ Master/tlpkg/tlperl/lib/Tk/X11/Xutil.h | 855 ---- Master/tlpkg/tlperl/lib/Tk/X11/cursorfont.h | 79 - Master/tlpkg/tlperl/lib/Tk/X11/keysym.h | 39 - Master/tlpkg/tlperl/lib/Tk/X11/keysymdef.h | 1169 ------ Master/tlpkg/tlperl/lib/Tk/X11/license.terms | 39 - Master/tlpkg/tlperl/lib/Tk/X11Font.pm | 184 - Master/tlpkg/tlperl/lib/Tk/X11Font.pod | 88 - Master/tlpkg/tlperl/lib/Tk/Xcamel.gif | Bin 4193 -> 0 bytes Master/tlpkg/tlperl/lib/Tk/Xlib.pm | 15 - Master/tlpkg/tlperl/lib/Tk/Xrm.pm | 9 - Master/tlpkg/tlperl/lib/Tk/Xrm.pod | 45 - Master/tlpkg/tlperl/lib/Tk/act_folder.xbm | 5 - Master/tlpkg/tlperl/lib/Tk/act_folder.xpm | 22 - Master/tlpkg/tlperl/lib/Tk/after.pod | 168 - Master/tlpkg/tlperl/lib/Tk/anim.gif | Bin 2533 -> 0 bytes Master/tlpkg/tlperl/lib/Tk/arrowdownwin.xbm | 5 - Master/tlpkg/tlperl/lib/Tk/balArrow.xbm | 4 - Master/tlpkg/tlperl/lib/Tk/bind.pod | 583 --- Master/tlpkg/tlperl/lib/Tk/bindtags.pod | 107 - Master/tlpkg/tlperl/lib/Tk/callbacks.pod | 104 - Master/tlpkg/tlperl/lib/Tk/cbxarrow.xbm | 6 - Master/tlpkg/tlperl/lib/Tk/chooseColor.pod | 64 - Master/tlpkg/tlperl/lib/Tk/chooseDirectory.pod | 85 - Master/tlpkg/tlperl/lib/Tk/composite.pod | 171 - Master/tlpkg/tlperl/lib/Tk/demos/LabEnLabRad.pm | 41 - Master/tlpkg/tlperl/lib/Tk/demos/images/QuitPB.xpm | 48 - .../tlpkg/tlperl/lib/Tk/demos/images/QuitPBa.xpm | 48 - Master/tlpkg/tlperl/lib/Tk/demos/images/c.icon | 16 - Master/tlpkg/tlperl/lib/Tk/demos/images/cursor.cur | Bin 326 -> 0 bytes .../tlpkg/tlperl/lib/Tk/demos/images/cursor.mask | 6 - Master/tlpkg/tlperl/lib/Tk/demos/images/cursor.xbm | 8 - Master/tlpkg/tlperl/lib/Tk/demos/images/dir.icon | 16 - Master/tlpkg/tlperl/lib/Tk/demos/images/dir.mask | 16 - Master/tlpkg/tlperl/lib/Tk/demos/images/earth.gif | Bin 51712 -> 0 bytes .../tlpkg/tlperl/lib/Tk/demos/images/earthris.gif | Bin 6343 -> 0 bytes Master/tlpkg/tlperl/lib/Tk/demos/images/face | 173 - Master/tlpkg/tlperl/lib/Tk/demos/images/flagdown | 27 - Master/tlpkg/tlperl/lib/Tk/demos/images/flagup | 27 - Master/tlpkg/tlperl/lib/Tk/demos/images/grey.25 | 6 - Master/tlpkg/tlperl/lib/Tk/demos/images/grey.5 | 6 - Master/tlpkg/tlperl/lib/Tk/demos/images/letters | 27 - Master/tlpkg/tlperl/lib/Tk/demos/images/mickey.gif | Bin 9344 -> 0 bytes Master/tlpkg/tlperl/lib/Tk/demos/images/ned.xpm | 69 - Master/tlpkg/tlperl/lib/Tk/demos/images/noletters | 27 - Master/tlpkg/tlperl/lib/Tk/demos/images/page.icon | 16 - Master/tlpkg/tlperl/lib/Tk/demos/images/page.mask | 16 - Master/tlpkg/tlperl/lib/Tk/demos/images/pattern | 6 - Master/tlpkg/tlperl/lib/Tk/demos/images/teapot.ppm | 31 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/Ball.pm | 143 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/HList.pl | 65 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/HList2.pl | 124 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/Plot.pm | 198 - .../tlperl/lib/Tk/demos/widget_lib/WidgetDemo.pm | 130 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/arrows.pl | 242 -- .../tlperl/lib/Tk/demos/widget_lib/balloon.pl | 168 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/bind.pl | 65 - .../tlperl/lib/Tk/demos/widget_lib/bitmaps.pl | 44 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/bounce.pl | 274 -- .../tlperl/lib/Tk/demos/widget_lib/browseentry.pl | 34 - .../tlperl/lib/Tk/demos/widget_lib/browseentry2.pl | 39 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/button.pl | 28 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/check.pl | 44 - .../tlperl/lib/Tk/demos/widget_lib/choosedir.pl | 39 - .../tlperl/lib/Tk/demos/widget_lib/clrpick.pl | 45 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/colors.pl | 85 - .../tlperl/lib/Tk/demos/widget_lib/cscroll.pl | 86 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/ctext.pl | 170 - .../tlperl/lib/Tk/demos/widget_lib/dialog1.pl | 33 - .../tlperl/lib/Tk/demos/widget_lib/dialog2.pl | 33 - .../tlperl/lib/Tk/demos/widget_lib/dirtree.pl | 7 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/entry1.pl | 28 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/entry2.pl | 33 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/entry3.pl | 199 - .../tlperl/lib/Tk/demos/widget_lib/filebox.pl | 106 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/floor.pl | 1324 ------- .../tlpkg/tlperl/lib/Tk/demos/widget_lib/form.pl | 31 - .../tlperl/lib/Tk/demos/widget_lib/form_mgr.pl | 21 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/hello.pl | 51 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/hscale.pl | 48 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/icon.pl | 64 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/image1.pl | 28 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/image2.pl | 104 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/items.pl | 358 -- .../tlperl/lib/Tk/demos/widget_lib/keysyms.pl | 20 - .../tlperl/lib/Tk/demos/widget_lib/labelframe.pl | 74 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/labels.pl | 43 - .../tlperl/lib/Tk/demos/widget_lib/labframe.pl | 13 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/mega.pl | 135 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/menbut.pl | 122 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/menus.pl | 196 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/menus2.pl | 216 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/msgBox.pl | 82 - .../tlperl/lib/Tk/demos/widget_lib/notebook.pl | 59 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/paned1.pl | 26 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/paned2.pl | 65 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/photo1.pl | 30 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/photo2.pl | 156 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/plot.pl | 28 - .../tlperl/lib/Tk/demos/widget_lib/progress.pl | 46 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/puzzle.pl | 86 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/radio.pl | 78 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/ruler.pl | 146 - .../tlperl/lib/Tk/demos/widget_lib/sayings.pl | 48 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/search.pl | 177 - .../tlperl/lib/Tk/demos/widget_lib/showVars.pl | 37 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/slide.pl | 178 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/spin.pl | 36 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/states.pl | 28 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/style.pl | 154 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/texts.pl | 71 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/trace1.pl | 49 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/trace2.pl | 188 - .../tlperl/lib/Tk/demos/widget_lib/transtile.pl | 113 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/twind.pl | 186 - .../tlperl/lib/Tk/demos/widget_lib/unicodeout.pl | 64 - .../tlperl/lib/Tk/demos/widget_lib/virtevents1.pl | 59 - .../tlpkg/tlperl/lib/Tk/demos/widget_lib/vscale.pl | 48 - Master/tlpkg/tlperl/lib/Tk/demos/widtrib/Gedi.pl | 429 -- .../tlpkg/tlperl/lib/Tk/demos/widtrib/TEMPLATE.pl | 92 - Master/tlpkg/tlperl/lib/Tk/demos/widtrib/Tiler.pl | 15 - Master/tlpkg/tlperl/lib/Tk/demos/widtrib/all.pl | 315 -- Master/tlpkg/tlperl/lib/Tk/demos/widtrib/cursor.pl | 61 - .../lib/Tk/demos/widtrib/lib/npuz/Xcamel.npuz | Bin 26699 -> 0 bytes Master/tlpkg/tlperl/lib/Tk/demos/widtrib/npuz.pl | 226 -- Master/tlpkg/tlperl/lib/Tk/demos/widtrib/plop.pl | 381 -- Master/tlpkg/tlperl/lib/Tk/event.pod | 417 -- Master/tlpkg/tlperl/lib/Tk/exit.pod | 42 - Master/tlpkg/tlperl/lib/Tk/file.xbm | 5 - Master/tlpkg/tlperl/lib/Tk/file.xpm | 18 - Master/tlpkg/tlperl/lib/Tk/fileevent.pod | 112 - Master/tlpkg/tlperl/lib/Tk/focus.pod | 166 - Master/tlpkg/tlperl/lib/Tk/folder.xbm | 5 - Master/tlpkg/tlperl/lib/Tk/folder.xpm | 21 - Master/tlpkg/tlperl/lib/Tk/form.pod | 397 -- Master/tlpkg/tlperl/lib/Tk/getOpenFile.pod | 182 - Master/tlpkg/tlperl/lib/Tk/grab.pod | 140 - Master/tlpkg/tlperl/lib/Tk/grid.pod | 409 -- Master/tlpkg/tlperl/lib/Tk/icon.gif | Bin 1924 -> 0 bytes Master/tlpkg/tlperl/lib/Tk/install.pm | 37 - Master/tlpkg/tlperl/lib/Tk/license.terms | 35 - Master/tlpkg/tlperl/lib/Tk/mega.pod | 423 -- Master/tlpkg/tlperl/lib/Tk/messageBox.pod | 67 - Master/tlpkg/tlperl/lib/Tk/openfile.xbm | 5 - Master/tlpkg/tlperl/lib/Tk/openfolder.xbm | 5 - Master/tlpkg/tlperl/lib/Tk/openfolder.xpm | 21 - Master/tlpkg/tlperl/lib/Tk/option.pod | 217 - Master/tlpkg/tlperl/lib/Tk/options.pod | 787 ---- Master/tlpkg/tlperl/lib/Tk/overview.pod | 138 - Master/tlpkg/tlperl/lib/Tk/pTk.pod | 550 --- Master/tlpkg/tlperl/lib/Tk/pTk/Lang.h | 206 - Master/tlpkg/tlperl/lib/Tk/pTk/Lang.m | 192 - Master/tlpkg/tlperl/lib/Tk/pTk/Lang.t | 217 - Master/tlpkg/tlperl/lib/Tk/pTk/Lang_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/pTk/Tcl-pTk | 260 -- Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.h | 149 - Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.m | 661 ---- Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.t | 657 ---- Master/tlpkg/tlperl/lib/Tk/pTk/Xlib_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/pTk/compat/limits.h | 22 - Master/tlpkg/tlperl/lib/Tk/pTk/compat/stdlib.h | 45 - Master/tlpkg/tlperl/lib/Tk/pTk/compat/unistd.h | 87 - Master/tlpkg/tlperl/lib/Tk/pTk/default.h | 36 - Master/tlpkg/tlperl/lib/Tk/pTk/img.h | 41 - Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.h | 75 - Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.m | 62 - Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.t | 93 - Master/tlpkg/tlperl/lib/Tk/pTk/imgInt_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/pTk/ks_names.h | 925 ----- Master/tlpkg/tlperl/lib/Tk/pTk/mkVFunc | 427 -- Master/tlpkg/tlperl/lib/Tk/pTk/moredefs.h | 131 - Master/tlpkg/tlperl/lib/Tk/pTk/port.h | 32 - Master/tlpkg/tlperl/lib/Tk/pTk/tcl.h | 2411 ------------ Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.h | 4143 -------------------- Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.m | 538 --- Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.t | 675 ---- Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/pTk/tclIntDecls.h | 1324 ------- Master/tlpkg/tlperl/lib/Tk/pTk/tclIntPlatDecls.h | 585 --- Master/tlpkg/tlperl/lib/Tk/pTk/tclMath.h | 27 - Master/tlpkg/tlperl/lib/Tk/pTk/tclPlatDecls.h | 197 - Master/tlpkg/tlperl/lib/Tk/pTk/tclWinInt.h | 145 - Master/tlpkg/tlperl/lib/Tk/pTk/tix.h | 512 --- Master/tlpkg/tlperl/lib/Tk/pTk/tix.m | 126 - Master/tlpkg/tlperl/lib/Tk/pTk/tix.t | 170 - Master/tlpkg/tlperl/lib/Tk/pTk/tixBitmaps.h | 618 --- Master/tlpkg/tlperl/lib/Tk/pTk/tixDef.h | 173 - Master/tlpkg/tlperl/lib/Tk/pTk/tixForm.h | 143 - Master/tlpkg/tlperl/lib/Tk/pTk/tixGrData.h | 88 - Master/tlpkg/tlperl/lib/Tk/pTk/tixGrid.h | 458 --- Master/tlpkg/tlperl/lib/Tk/pTk/tixHList.h | 323 -- Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.h | 134 - Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.m | 34 - Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.t | 49 - Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.h | 886 ----- Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.m | 171 - Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.t | 249 -- Master/tlpkg/tlperl/lib/Tk/pTk/tixInt_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/pTk/tixPort.h | 110 - Master/tlpkg/tlperl/lib/Tk/pTk/tixTList.h | 148 - Master/tlpkg/tlperl/lib/Tk/pTk/tixWinInt.h | 23 - Master/tlpkg/tlperl/lib/Tk/pTk/tixWinPort.h | 40 - Master/tlpkg/tlperl/lib/Tk/pTk/tix_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/pTk/tk.h | 1859 --------- Master/tlpkg/tlperl/lib/Tk/pTk/tk.m | 94 - Master/tlpkg/tlperl/lib/Tk/pTk/tk.t | 151 - Master/tlpkg/tlperl/lib/Tk/pTk/tk3d.h | 102 - Master/tlpkg/tlperl/lib/Tk/pTk/tkButton.h | 320 -- Master/tlpkg/tlperl/lib/Tk/pTk/tkCanvas.h | 334 -- Master/tlpkg/tlperl/lib/Tk/pTk/tkCanvases.h | 81 - Master/tlpkg/tlperl/lib/Tk/pTk/tkColor.h | 89 - Master/tlpkg/tlperl/lib/Tk/pTk/tkConfig.h | 11 - Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.h | 2277 ----------- Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.m | 870 ---- Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.t | 1158 ------ Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.h | 122 - Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.m | 274 -- Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.t | 304 -- Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/pTk/tkFileFilter.h | 92 - Master/tlpkg/tlperl/lib/Tk/pTk/tkFont.h | 226 -- Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.h | 36 - Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.m | 55 - Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.t | 66 - Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/pTk/tkInitScript.h | 58 - Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.h | 1200 ------ Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.m | 125 - Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.t | 182 - Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.h | 1572 -------- Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.m | 466 --- Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.t | 642 --- Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.h | 1227 ------ Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.m | 474 --- Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.t | 845 ---- Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.h | 2436 ------------ Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.m | 446 --- Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.t | 1521 ------- Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/pTk/tkInt_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/pTk/tkMenu.h | 588 --- Master/tlpkg/tlperl/lib/Tk/pTk/tkMenubutton.h | 240 -- Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.h | 17 - Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.m | 26 - Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.t | 26 - Master/tlpkg/tlperl/lib/Tk/pTk/tkOption_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.h | 300 -- Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.m | 114 - Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.t | 190 - Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls_f.h | 15 - Master/tlpkg/tlperl/lib/Tk/pTk/tkPort.h | 49 - Master/tlpkg/tlperl/lib/Tk/pTk/tkScale.h | 257 -- Master/tlpkg/tlperl/lib/Tk/pTk/tkScrollbar.h | 209 - Master/tlpkg/tlperl/lib/Tk/pTk/tkSelect.h | 187 - Master/tlpkg/tlperl/lib/Tk/pTk/tkText.h | 927 ----- Master/tlpkg/tlperl/lib/Tk/pTk/tkUndo.h | 90 - Master/tlpkg/tlperl/lib/Tk/pTk/tkVMacro.h | 69 - Master/tlpkg/tlperl/lib/Tk/pTk/tkWin.h | 60 - Master/tlpkg/tlperl/lib/Tk/pTk/tkWinDefault.h | 525 --- Master/tlpkg/tlperl/lib/Tk/pTk/tkWinInt.h | 209 - Master/tlpkg/tlperl/lib/Tk/pTk/tkWinPort.h | 156 - Master/tlpkg/tlperl/lib/Tk/pTk/tkXrm.h | 12 - Master/tlpkg/tlperl/lib/Tk/pTk/tk_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/pTk/xbytes.h | 58 - Master/tlpkg/tlperl/lib/Tk/pack.pod | 324 -- Master/tlpkg/tlperl/lib/Tk/palette.pod | 89 - Master/tlpkg/tlperl/lib/Tk/place.pod | 271 -- Master/tlpkg/tlperl/lib/Tk/prolog.ps | 284 -- Master/tlpkg/tlperl/lib/Tk/reindex.pl | 33 - Master/tlpkg/tlperl/lib/Tk/selection.pod | 159 - Master/tlpkg/tlperl/lib/Tk/send.pod | 118 - Master/tlpkg/tlperl/lib/Tk/srcfile.xpm | 18 - Master/tlpkg/tlperl/lib/Tk/textfile.xpm | 18 - Master/tlpkg/tlperl/lib/Tk/tixWm.pod | 73 - Master/tlpkg/tlperl/lib/Tk/tkGlue.def | 130 - Master/tlpkg/tlperl/lib/Tk/tkGlue.h | 79 - Master/tlpkg/tlperl/lib/Tk/tkGlue.m | 74 - Master/tlpkg/tlperl/lib/Tk/tkGlue.t | 70 - Master/tlpkg/tlperl/lib/Tk/tkGlue_f.h | 14 - Master/tlpkg/tlperl/lib/Tk/tkvars.pod | 107 - Master/tlpkg/tlperl/lib/Tk/tranicon.gif | Bin 1718 -> 0 bytes Master/tlpkg/tlperl/lib/Tk/typemap | 96 - Master/tlpkg/tlperl/lib/Tk/vtab.def | 90 - Master/tlpkg/tlperl/lib/Tk/widgets.pm | 20 - Master/tlpkg/tlperl/lib/Tk/widgets.pod | 20 - Master/tlpkg/tlperl/lib/Tk/win.xbm | 6 - Master/tlpkg/tlperl/lib/Tk/winfolder.xpm | 39 - Master/tlpkg/tlperl/lib/Tk/wintext.xpm | 42 - 476 files changed, 119095 deletions(-) delete mode 100755 Master/tlpkg/tlperl/lib/Tk/804delta.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Adjuster.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Adjuster.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/After.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Animation.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Animation.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Balloon.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Balloon.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Bitmap.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Bitmap.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/BrowseEntry.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/BrowseEntry.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Button.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Button.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Camel.xpm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Canvas.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Canvas.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Checkbutton.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Checkbutton.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Clipboard.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Clipboard.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/CmdLine.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/CmdLine.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/ColorEdit.xpm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/ColorEditor.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/ColorEditor.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Common.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Compound.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Compound.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Config.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/ConfigSpecs.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Configure.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Credits delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DItem.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Derived.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Derived.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Dialog.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Dialog.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DialogBox.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DialogBox.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DirTree.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DirTree.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Dirlist.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DragDrop.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DragDrop/Common.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DragDrop/LocalDrop.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DragDrop/Rect.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DragDrop/SunConst.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DragDrop/SunDrop.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DragDrop/SunSite.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DragDrop/Win32Drop.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DragDrop/Win32Site.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DragDrop/XDNDDrop.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DragDrop/XDNDSite.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DropSite.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DropSite.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/DummyEncode.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/English.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Entry.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Entry.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Error.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/ErrorDialog.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Event.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Event/IO.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Eventloop.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/FBox.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/FBox.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/FileSelect.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/FileSelect.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/FloatEntry.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Font.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Font.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Frame.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Frame.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/HList.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/HList.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/IO.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/IO.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/IconList.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/IconList.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Image.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Image.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/InputO.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Internals.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/ItemStyle.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/JPEG.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/LabEntry.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/LabFrame.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/LabFrame.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/LabRadio.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Label.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Label.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Labelframe.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Labelframe.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Listbox.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Listbox.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/MMtry.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/MMutil.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/MainWindow.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/MainWindow.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/MakeDepend.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Menu.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Menu.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Menu/Item.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Menu/Item.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Menubar.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Menubutton.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Menubutton.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Message.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Message.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/MsgBox.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/MsgBox.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Mwm.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/NBFrame.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/NoteBook.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/NoteBook.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Optionmenu.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Optionmenu.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/PNG.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Pane.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Panedwindow.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Panedwindow.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Photo.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Photo.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Pixmap.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Pixmap.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Popup.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Pretty.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/ProgressBar.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/README.Adjust delete mode 100755 Master/tlpkg/tlperl/lib/Tk/ROText.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/ROText.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Radiobutton.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Radiobutton.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Region.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Reindex.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/ReindexedROText.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/ReindexedText.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Scale.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Scale.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Scrollbar.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Scrollbar.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Scrolled.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Spinbox.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Spinbox.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Stats.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Submethods.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Submethods.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/SunConst.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/TList.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/TList.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Table.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Table.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Tcl-perl.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Text.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Text.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Text/Tag.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/TextEdit.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/TextList.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/TextUndo.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/TextUndo.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Tiler.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Tiler.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/TixGrid.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/TixGrid.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Tk.xbm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Tk.xpm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/TkXSUB.def delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Toplevel.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Toplevel.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Trace.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Tree.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Tree.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/UserGuide.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Widget.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Widget.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/WidgetDemo.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Wm.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Wm.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/X.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/X.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/X11/X.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/X11/Xatom.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/X11/Xfuncproto.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/X11/Xlib.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/X11/Xutil.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/X11/cursorfont.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/X11/keysym.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/X11/keysymdef.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/X11/license.terms delete mode 100755 Master/tlpkg/tlperl/lib/Tk/X11Font.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/X11Font.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Xcamel.gif delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Xlib.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Xrm.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/Xrm.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/act_folder.xbm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/act_folder.xpm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/after.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/anim.gif delete mode 100755 Master/tlpkg/tlperl/lib/Tk/arrowdownwin.xbm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/balArrow.xbm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/bind.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/bindtags.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/callbacks.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/cbxarrow.xbm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/chooseColor.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/chooseDirectory.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/composite.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/LabEnLabRad.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/QuitPB.xpm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/QuitPBa.xpm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/c.icon delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/cursor.cur delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/cursor.mask delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/cursor.xbm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/dir.icon delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/dir.mask delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/earth.gif delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/earthris.gif delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/face delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/flagdown delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/flagup delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/grey.25 delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/grey.5 delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/letters delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/mickey.gif delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/ned.xpm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/noletters delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/page.icon delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/page.mask delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/pattern delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/images/teapot.ppm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/Ball.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/HList.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/HList2.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/Plot.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/WidgetDemo.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/arrows.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/balloon.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/bind.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/bitmaps.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/bounce.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/browseentry.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/browseentry2.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/button.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/check.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/choosedir.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/clrpick.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/colors.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/cscroll.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/ctext.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/dialog1.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/dialog2.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/dirtree.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/entry1.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/entry2.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/entry3.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/filebox.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/floor.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/form.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/form_mgr.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/hello.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/hscale.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/icon.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/image1.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/image2.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/items.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/keysyms.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/labelframe.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/labels.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/labframe.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/mega.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/menbut.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/menus.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/menus2.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/msgBox.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/notebook.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/paned1.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/paned2.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/photo1.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/photo2.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/plot.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/progress.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/puzzle.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/radio.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/ruler.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/sayings.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/search.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/showVars.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/slide.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/spin.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/states.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/style.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/texts.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/trace1.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/trace2.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/transtile.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/twind.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/unicodeout.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/virtevents1.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/vscale.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widtrib/Gedi.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widtrib/TEMPLATE.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widtrib/Tiler.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widtrib/all.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widtrib/cursor.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widtrib/lib/npuz/Xcamel.npuz delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widtrib/npuz.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/demos/widtrib/plop.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/event.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/exit.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/file.xbm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/file.xpm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/fileevent.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/focus.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/folder.xbm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/folder.xpm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/form.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/getOpenFile.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/grab.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/grid.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/icon.gif delete mode 100755 Master/tlpkg/tlperl/lib/Tk/install.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/license.terms delete mode 100755 Master/tlpkg/tlperl/lib/Tk/mega.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/messageBox.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/openfile.xbm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/openfolder.xbm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/openfolder.xpm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/option.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/options.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/overview.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/Lang.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/Lang.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/Lang.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/Lang_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/Tcl-pTk delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/Xlib_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/compat/limits.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/compat/stdlib.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/compat/unistd.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/default.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/img.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/imgInt_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/ks_names.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/mkVFunc delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/moredefs.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/port.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tcl.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tclIntDecls.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tclIntPlatDecls.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tclMath.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tclPlatDecls.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tclWinInt.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tix.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tix.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tix.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixBitmaps.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixDef.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixForm.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixGrData.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixGrid.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixHList.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixInt_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixPort.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixTList.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixWinInt.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tixWinPort.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tix_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tk.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tk.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tk.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tk3d.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkButton.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkCanvas.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkCanvases.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkColor.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkConfig.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkFileFilter.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkFont.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkInitScript.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkInt_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkMenu.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkMenubutton.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkOption_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkPort.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkScale.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkScrollbar.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkSelect.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkText.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkUndo.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkVMacro.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkWin.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkWinDefault.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkWinInt.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkWinPort.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tkXrm.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/tk_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pTk/xbytes.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/pack.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/palette.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/place.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/prolog.ps delete mode 100755 Master/tlpkg/tlperl/lib/Tk/reindex.pl delete mode 100755 Master/tlpkg/tlperl/lib/Tk/selection.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/send.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/srcfile.xpm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/textfile.xpm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/tixWm.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/tkGlue.def delete mode 100755 Master/tlpkg/tlperl/lib/Tk/tkGlue.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/tkGlue.m delete mode 100755 Master/tlpkg/tlperl/lib/Tk/tkGlue.t delete mode 100755 Master/tlpkg/tlperl/lib/Tk/tkGlue_f.h delete mode 100755 Master/tlpkg/tlperl/lib/Tk/tkvars.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/tranicon.gif delete mode 100755 Master/tlpkg/tlperl/lib/Tk/typemap delete mode 100755 Master/tlpkg/tlperl/lib/Tk/vtab.def delete mode 100755 Master/tlpkg/tlperl/lib/Tk/widgets.pm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/widgets.pod delete mode 100755 Master/tlpkg/tlperl/lib/Tk/win.xbm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/winfolder.xpm delete mode 100755 Master/tlpkg/tlperl/lib/Tk/wintext.xpm (limited to 'Master/tlpkg/tlperl/lib/Tk') diff --git a/Master/tlpkg/tlperl/lib/Tk/804delta.pod b/Master/tlpkg/tlperl/lib/Tk/804delta.pod deleted file mode 100755 index 1472f38c86b..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/804delta.pod +++ /dev/null @@ -1,110 +0,0 @@ -=head1 NAME - -Tk::804delta - what is new for perl/Tk 804 - -=head1 DESCRIPTION - -This document describes differences between the Tk800 series and the -Tk804 series. - -=head1 Incompatible Changes - -In Tk804.028, there are some additional incompatible changes: - -Return values of some B methods (e.g. B, B, -B, B ...) were changed from returning tclish -lists (e.g. "1 2 3 4") to perlish lists (1,2,3,4). - -B needs argument for setting on/off, without argument -just return the current value. - -All Tk804 releases have the following incompatible changes: - -Tk804 will only work with perl 5.8.0 and above. For older perl -versions look for Tk800.025. - -B of B now returns an array reference in -scalar context. This means you have to write - - my(@selected) = $listbox->curselection - -or - - my(@selected) = @{ $listbox->curselection } - -now. - -The B method now returns the pixel value instead of the -point value for B<-size>. Pixel values are expressed as negative -numbers. - -Some enhancements from the EdashE patches are lost for now -(i.e. B<-tile>, B<-troughtile> ...). - -The B<-state> option is not available anymore for B tags. -Use B<-elide> instead. - -=head1 Enhancements - -Tk804 is Unicode-aware. - -It is possible to build Tk with Xft support on X11. This is strongly -recommened if you are planning to make use of Unicode rendering -capabilities of Tk. It also gives anti-aliased fonts for regular text -(if you have TrueType or Type1 fonts and they are in your fontconfig -config file). - -The new method B is available as a standard directory -selector. - -B and B are bundled now with the perl/Tk -distribution, providing support for the image formats B and -B. - -Improvements to B: new option B<-activestyle>, new -methods B and B, new virtual event B<<< -<> >>>. - -More tests. - -=head1 New Widgets - -=over - -=item Tk::Labelframe - -An alternative to B. - -=item Tk::Panedwindow - -An alternative to B. - -=item Tk::Spinbox - -An alternative to the CPAN module B. - -=back - -=head1 Selected Bug Fixes - -=head1 Changed Internals - -=head1 Platform Specific Problems - -=head1 Future Directions - -=head1 Reporting Bugs - -If you find what you think is a bug, you might check the articles -recently posted to the comp.lang.perl.tk newsgroup. - -If you believe you have an unreported bug, please send a mail to and/or . Be sure to trim your bug down -to a tiny but sufficient test case. - -=head1 SEE ALSO - -L, C file in the Perl/Tk distribution. - -=cut - - diff --git a/Master/tlpkg/tlperl/lib/Tk/Adjuster.pm b/Master/tlpkg/tlperl/lib/Tk/Adjuster.pm deleted file mode 100755 index bbe44f33dc8..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/Adjuster.pm +++ /dev/null @@ -1,438 +0,0 @@ -package Tk::Adjuster; - -use vars qw($VERSION); -$VERSION = '4.008'; # $Id: //depot/Tkutf8/Tk/Adjuster.pm#7 $ - -use base qw(Tk::Frame); - -# We cannot do this : - -# Construct Tk::Widget 'packAdjust'; - -# because if managed object is Derived (e.g. a Scrolled) then our 'new' -# will be delegated and hierachy gets turned inside-out -# So packAdjust is autoloaded in Widget.pm - - -Construct Tk::Widget qw(Adjuster); - -{package Tk::Adjuster::Item; - -use strict; -use base qw(Tk::Frame); - -sub ClassInit -{ - my ($class,$mw) = @_; - $mw->bind($class,'<1>',['BDown', 1]); - $mw->bind($class,'',['BDown', 0]); - $mw->bind($class,'',['Motion',1]); - $mw->bind($class,'',['Motion',0]); - $mw->bind($class,'',['Motion',0]); - return $class; -} - -sub BDown -{ - my($w, $delay_mask) = @_; - $w->{'start_x'} = $w->XEvent->x; - $w->{'start_y'} = $w->XEvent->y; - my $adj = $w->Parent; - delete $adj->{'lin_info'}; - my $delay = $delay_mask && $adj->cget('-delay'); - if ($delay) - { - $adj->vert ? $adj->delta_width_bar(0) : $adj->delta_height_bar(0); - } -} - -sub Motion -{ - my($w, $delay_mask) = @_; - my $ev = $w->XEvent; - my $adj = $w->Parent; - - my $delay = $delay_mask && $adj->cget('-delay'); - if ($adj->vert) - { - my $dx = $ev->x - $w->{'start_x'}; - $delay ? $adj->delta_width_bar($dx) : $adj->delta_width($dx); - } - else - { - my $dy = $ev->y - $w->{'start_y'}; - $delay ? $adj->delta_height_bar($dy) : $adj->delta_height($dy); - } -} - -} - - - -sub packAfter -{ - my ($w,$s,%args) = @_; - my $side = $args{'-side'} ? $args{'-side'} : 'top'; - $w->configure(-side => $side, -widget => $s); - $w->packed($s, %args); -} - -sub packForget -{ - my ($w,$forget_slave) = @_; - $w->Tk::Widget::packForget; - $w->slave->packForget if $forget_slave; -} - -# Called by Tk::Widget::packAdjust. It was here before packAfter was added -sub packed -{ - my ($w,$s,%args) = @_; - delete $args{'-before'}; - delete $args{'-in'}; - $args{'-expand'} = 0; - $args{'-after'} = $s; - $args{'-fill'} = (($w->vert) ? 'y' : 'x'); - $w->pack(%args); -} - -sub gridded -{ - my ($w,$s,%args) = @_; - # delete $args{'-before'}; - # $args{'-expand'} = 0; - # $args{'-after'} = $s; - # $args{'-fill'} = (($w->vert) ? 'y' : 'x'); - $w->grid(%args); -} - -sub ClassInit -{ - my ($class,$mw) = @_; - $mw->bind($class,'','SizeChange'); - $mw->bind($class,'','Restore'); - $mw->bind($class,'','Mapped'); - return $class; -} - -sub SizeChange -{ - my $w = shift; - # reqwidth/height of Adjuster is stored here. If it is partially pushed out - # of the window, then $w->width/height returns that of the visible part. - if ($w->vert) - { - my $sx = ($w->Width - $w->{'sep'}->Width)/2; - $w->{'but'}->place('-x' => 0, '-y' => $w->Height-18); - $w->{'sep'}->place('-x' => $sx, '-y' => 0, -relheight => 1); - $w->configure(-width => $w->{'but'}->ReqWidth); - $w->{'reqwidth'} = $w->reqwidth; - } - else - { - my $sy = ($w->Height - $w->{'sep'}->Height)/2; - $w->{'but'}->place('-x' => $w->Width-18, '-y' => 0); - $w->{'sep'}->place('-x' => 0, '-y' => $sy, -relwidth => 1); - $w->configure(-height => $w->{'but'}->ReqHeight); - $w->{'reqheight'} = $w->reqheight; - } - # Turn off geometry propagation in the slave. Do only if necessary, as this - # causes repacking. - my $s = $w->slave; - $s->packPropagate('0') if $s->packSlaves && $s->packPropagate(); - $s->gridPropagate('0') if $s->gridSlaves && $s->gridPropagate(); -} - -sub Mapped -{ - my $w = shift; - $w->idletasks; - my $m = $w->manager; - if ($m =~ /^(?:pack|grid)$/) - { - my %info = $w->$m('info'); - my $master = $info{'-in'}; - $master->$m('propagate',0); - $w->{'master'} = $master; - } - $w->slave_expand_off; -} - -sub Populate -{ - my ($w,$args) = @_; - $w->SUPER::Populate($args); - $w->{'sep'} = Tk::Adjuster::Item->new($w,-bd => 1, -relief => 'sunken'); - $w->{'but'} = Tk::Adjuster::Item->new($w,-bd => 1, -width => 8, -height => 8, -relief => 'raised'); - - # Force creation of Frame in widget's Toplevel. This makes a difference - # where the widget's Toplevel has Delegates('Construct') set. - # Need to explicitly set frame width to 0 for Win32 - my $l = $w->{'lin'} = Tk::Frame->new($w->toplevel, -bd => 0); - # my $l = $w->{'lin'} = $w->toplevel->Frame(-bd => 0); - - my $cs = $w->ConfigSpecs(-widget => ['PASSIVE','widget','Widget',$w->Parent], - -side => ['METHOD','side','Side','top'], - -delay => ['PASSIVE','delay','Delay', 1], - -background => [['SELF',$w->{'sep'},$w->{'but'}],'background','Background',undef], - -foreground => [Tk::Configure->new($w->{'lin'},'-background'),'foreground','Foreground','black'], - -restore => ['PASSIVE','restore', 'Restore', 1], - ); - $w->_OnDestroy(qw(sep but lin master)); -} - -sub side -{ - my ($w,$val) = @_; - if (@_ > 1) - { - $w->{'side'} = $val; - my $cursor; - if ($w->vert) - { - $cursor = 'sb_h_double_arrow'; - $w->{'sep'}->configure(-width => 2, -height => 10000); - } - else - { - $cursor = 'sb_v_double_arrow'; - $w->{'sep'}->configure(-height => 2, -width => 10000); - } - my $x; - foreach $x ($w->{'sep'},$w->{'but'}) - { - $x->configure(-cursor => $cursor); - } - } - return $w->{'side'}; -} - -sub slave -{ - my $w = shift; - my $s = $w->cget('-widget'); - return $s; -} - -sub vert -{ - my $w = shift; - my $side = $w->cget('-side'); - return 1 if $side eq 'left'; - return -1 if $side eq 'right'; - return 0; -} - -# If the Adjuster gets unmapped, it attempts to restore itself. If its -# slave is mapped, then it reduces the size of the slave so that there is -# then room in the master for the Adjuster widget. -sub Restore -{ - my $w = shift; - return if ! $w->toplevel->IsMapped || - ! $w->slave->IsMapped || - ! $w->cget('-restore'); - $w->vert ? $w->delta_width(0) : $w->delta_height(0); -} - -sub delta_width_bar -{ - my ($w,$dx) = @_; - my $l = $w->{'lin'}; - my $r = $w->{'sep'}; - my $t = $w->toplevel; - my $m = $w->{'master'}; - my $s = $w->slave; - my ($min_rootx, $max_rootx, $t_border); - if (! $w->{'lin_info'}) - { - my $m_border = $m->cget('-bd') + $m->cget('-highlightthickness'); - $t_border = $t->cget('-bd') + $t->cget('-highlightthickness'); - if ($w->cget('-side') eq 'right') - { - $min_rootx = $m->rootx + $m_border; - $max_rootx = $s->rootx + $s->width - 1; - } - else - { - $min_rootx = $s->rootx; - $max_rootx = $m->rootx + $m->width - $m_border - 1; - } - $w->{'lin_info'} = [$min_rootx, $max_rootx, $t_border]; - } - else - { - ($min_rootx, $max_rootx, $t_border) = @{$w->{'lin_info'}}; - } - $l->configure(-width => 1, -height => $w->height) unless $l->IsMapped; - - my $new_rootx = $w->rootx + $w->{'reqwidth'}/2 + $dx; - $new_rootx = $min_rootx if $new_rootx < $min_rootx; - $new_rootx = $max_rootx if $new_rootx > $max_rootx; - my $placex = $new_rootx - $t->rootx - $t_border; - my $placey = $w->rooty - $t->rooty - $t_border; - $l->place(-in => $t, -anchor => 'n', '-x' => $placex, '-y' => $placey); - my $this = $w->containing($new_rootx, $w->rooty + 1); - $l->raise($this) if $this && $this ne $t; -} - -sub delta_width -{ - my ($w,$dx) = @_; - my $l = $w->{'lin'}; - $l->placeForget; - my $s = $w->slave; - if ($s) - { - my $m = $w->{'master'}; - my $m_border = $m->cget('-bd') + $m->cget('-highlightthickness'); - my $w_width = $w->{'reqwidth'}; - my $m_width = $m->width; - my $s_width = $s->width; - my $max_width = $m_width - $w_width; - my $max_s_width; - if ($w->cget('-side') eq 'right') - { - $dx = -$dx; - $max_s_width = $max_width - - ($m->rootx + $m_width - ($s->rootx+$s_width)) - $m_border; - } - else - { - $max_s_width = $max_width - ($s->rootx - $m->rootx) - $m_border; - } - my $new_width = $s_width+$dx; - $new_width = $max_s_width if $new_width > $max_s_width; - $new_width = 0 if $new_width < 0; - $s->GeometryRequest($new_width, $s->height); - } -} - -sub delta_height_bar -{ - my ($w,$dy) = @_; - my $l = $w->{'lin'}; - my $r = $w->{'sep'}; - my $t = $w->toplevel; - my $m = $w->{'master'}; - my $s = $w->slave; - my ($min_rooty, $max_rooty, $t_border); - if (! $w->{'lin_info'}) - { - my $m_border = $m->cget('-bd') + $m->cget('-highlightthickness'); - $t_border = $t->cget('-bd') + $t->cget('-highlightthickness'); - if ($w->cget('-side') eq 'bottom') - { - $min_rooty = $m->rooty + $m_border; - $max_rooty = $s->rooty + $s->height - 1; - } - else - { - $min_rooty = $s->rooty; - $max_rooty = $m->rooty + $m->height - $m_border - 1; - } - $w->{'lin_info'} = [$min_rooty, $max_rooty, $t_border]; - } - else - { - ($min_rooty, $max_rooty, $t_border) = @{$w->{'lin_info'}}; - } - $l->configure(-height => 1, -width => $w->width) unless $l->IsMapped; - - my $new_rooty = $w->rooty + $w->{'reqheight'}/2 + $dy; - $new_rooty = $min_rooty if $new_rooty < $min_rooty; - $new_rooty = $max_rooty if $new_rooty > $max_rooty; - my $placey = $new_rooty - $t->rooty - $t_border; - my $placex = $w->rootx - $t->rootx - $t_border; - $l->place(-in => $t, -anchor => 'w', '-x' => $placex, '-y' => $placey); - my $this = $w->containing($w->rootx + 1, $new_rooty); - $l->raise($this) if $this && $this ne $t; -} - -sub delta_height -{ - my ($w,$dy) = @_; - my $l = $w->{'lin'}; - $l->placeForget; - my $s = $w->slave; - if ($s) - { - my $m = $w->{'master'}; - my $m_border = $m->cget('-bd') + $m->cget('-highlightthickness'); - my $w_height = $w->{'reqheight'}; - my $m_height = $m->height; - my $s_height = $s->height; - my $max_height = $m_height - $w_height; - my $max_s_height; - if ($w->cget('-side') eq 'bottom') - { - $dy = -$dy; - $max_s_height = $max_height - - ($m->rooty + $m_height - ($s->rooty+$s_height)) - $m_border; - } - else - { - $max_s_height = $max_height - ($s->rooty - $m->rooty) - $m_border; - } - my $new_height = $s_height+$dy; - - $new_height = $max_s_height if $new_height > $max_s_height; - $new_height = 0 if $new_height < 0; - $s->GeometryRequest($s->width, $new_height); - } -} - -# Turn off expansion in the slave. -# This is done only if necessary, as calls to pack/gridConfigure cause -# repacking. -# Before call to pack/gridConfigure, the reqwidth/reqheight is set to the -# current width/height. This is because the geometry managers use -# the requested values, not the actual, to calculate the new geometry. -sub slave_expand_off -{ - my $w = shift; - my $s = $w->slave; - return if ! $s; - - my $manager = $s->manager; - if ($manager eq 'pack') - { - my %info = $s->packInfo; - my $expand = $info{'-expand'}; - if ($expand) - { - $s->GeometryRequest($s->width, $s->height); - $s->packConfigure(-expand => 0); - } - } - elsif ($manager eq 'grid') - { - my %info = $s->gridInfo; - my $master = $info{'-in'}; - if ($w->vert) - { - my $col = $info{'-column'}; - my $expand = $master->gridColumnconfigure($col, '-weight'); - if ($expand) - { - $s->GeometryRequest($s->width, $s->height); - $master->gridColumnconfigure($col, -weight => 0); - } - } - else - { - my $row = $info{'-row'}; - my $expand = $master->gridRowconfigure($row, '-weight'); - if ($expand) - { - $s->GeometryRequest($s->width, $s->height); - $master->gridRowconfigure($row, -weight => 0); - } - } - } -} - -1; - -__END__ - diff --git a/Master/tlpkg/tlperl/lib/Tk/Adjuster.pod b/Master/tlpkg/tlperl/lib/Tk/Adjuster.pod deleted file mode 100755 index 7d094f4e262..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/Adjuster.pod +++ /dev/null @@ -1,223 +0,0 @@ - -=head1 NAME - -Tk::Adjuster - Allow size of packed widgets to be adjusted by user - -=for pm Tk/Adjuster.pm - -=for category Tk Geometry Management - -=head1 SYNOPSIS - -use Tk::Adjuster; - -I<$adjuster> = I<$widget>->BI<(?options?)>; - -=head1 WIDGET-SPECIFIC OPTIONS - -=over 4 - -=item Name: B - -=item Class: B - -=item Switch: B<-restore> - -Specifies a boolean value that determines whether the Adjuster -should forcibly attempt to make room -for itself (by reducing the size of its managed widget) when it is -unmapped (for example, due to a size change in a top level window). -The default value is 1. - -=item Name: B - -=item Class: B - -=item Switch: B<-side> - -Specifies the side on which the managed widget lies relative to the -Adjuster. In conjunction with the pack geometry manager, this relates to -the side of the master against which the managed widget and the Adjuster -are packed. -Must be B, B, B, or B. Defaults to B. - -=item Name: B - -=item Class: B - -=item Switch: B<-widget> - -Specifies the widget which is to be managed by the Adjuster. - -=back - -=head1 DESCRIPTION - -B is a Frame containing a "line" and a "blob". - -Dragging with Mouse Button-1 results in a line being dragged -to indicate new size. Releasing Button-1 submits GeometryRequests -on behalf of the managed widget which will cause the packer to change the -widget's size. - -If Drag is done with Shift button down, then GeometryRequests are made -in "real time" so that text-flow effects can be seen, but as a lot more -work is done behaviour may be sluggish. - -If widget is packed with -side => left or -side => right then width is -adjusted. If packed -side => top or -side => bottom then height is adjusted. - -B is turned off for the master window to prevent adjustment -changing overall window size. Similarly B is turned off -for the managed widget if it has things packed inside it. This is so that -the GeometryRequests made by B are not overridden by pack. - -In addition, the managed widget is made non-expandable -to prevent the geometry manager reallocating freed space in the master -back to the managed widget. -Note however that expansion is turned off only after the Adjuster is mapped, -which allows the managed widget to expand naturally on window creation. - -The Tk::Widget method, B, calls pack on the widget, then -creates an instance of B, -and packs that "after" the widget. Its use has two disadvantages however: the -Adjuster widget is not made available to the caller, and -options cannot be set on the Adjuster. For these reasons, the Tk::Adjuster -method, B is preferred, but B is retained -for backwards compatibility. - -=head1 WIDGET METHODS - -=over 4 - -=item I<$adjuster>->B(I) - -This command configures the Adjuster's B<-widget> and B<-side> options -respectively to I and the B<-side> value specified in -I (B if not specified). It then packs the Adjuster -after I, with B<-fill> set to B or B as appropriate. - -=item I<$adjuster>->BI - -This command calls B on the Adjuster. -If a parameter is provided and it has a true boolean value, then -B is also called on the managed widget. - -=item I<$adjuster>->B - -This command returns the value I<$adjuster>->I, ie. the -reference to the managed widget. - -=back - -=head1 EXAMPLES - -B - -a) Using packAfter (preferred interface) - - use Tk; - use Tk::Adjuster; - - my $f = MainWindow->new; - my $lst1 = $f->Listbox(); - my $adj1 = $f->Adjuster(); - my $lst2 = $f->Listbox(); - - my $side = 'left'; - $lst1->pack(-side => $side, -fill => 'both', -expand => 1); - $adj1->packAfter($lst1, -side => $side); - $lst2->pack(-side => $side, -fill => 'both', -expand => 1); - MainLoop; - -b) Using packAdjust - - use Tk; - use Tk::Adjuster; - - my $f = MainWindow->new; - my $lst1 = $f->Listbox(); - my $lst2 = $f->Listbox(); - - my $side = 'left'; - $lst1->packAdjust(-side => $side, -fill => 'both'); - $lst2->pack (-side => $side, -fill => 'both', -expand => 1); - MainLoop; - -c) Using the standard Tk::Widget::pack - - use Tk; - use Tk::Adjuster; - - my $f = MainWindow->new; - my $side = 'left'; - my $lst1 = $f->Listbox(); - my $adj = $f->Adjuster(-widget => $lst1, -side => $side); - my $lst2 = $f->Listbox(); - - $lst1->pack(-side => $side, -fill => 'both', -expand => 1); - $adj->pack (-side => $side, -fill => 'y'); - $lst2->pack(-side => $side, -fill => 'both', -expand => 1); - - MainLoop; - -Changing the above examples so that $side has the value 'right' means the -left widget expands to fill space on a window resize. - -Changing the above examples so that $side has the value 'top' -produces a testcase with a horizontal Adjuster. -Here the bottom widget expands to fill space on a window resize. -Packing to the 'bottom' makes the top widget expand to fill space on window -resize. - -B 0 for multiple columns> - -In the case of multiple columns (or rows) the "restore" functionality of the -Adjuster can be inconvenient. When the user adjusts the width of one column -and thereby pushes the Adjuster of another column off the window, this -adjuster tries to restore itself by reducing the size of its managed widget. -This has the effect that column widths shrink; and the original size -is not restored when -the user reverses the originating change. The B<-restore> option can be -used to turn off this functionality. (It makes some sense, however, to -leave B<-restore> -turned on for the first-packed Adjuster, so that at least one Adjuster -always remains visible.) - - use Tk; - use Tk::Adjuster; - my $f = MainWindow->new; - my $lst1 = $f->Listbox(); - my $adj1 = $f->Adjuster(); - my $lst2 = $f->Listbox(); - my $adj2 = $f->Adjuster(-restore => 0); - my $lst3 = $f->Listbox(); - - my $side = 'left'; - $lst1->pack(-side => $side, -fill => 'both', -expand => 1); - $adj1->packAfter($lst1, -side => $side); - $lst2->pack(-side => $side, -fill => 'both', -expand => 1); - $adj2->packAfter($lst2, -side => $side); - $lst3->pack(-side => $side, -fill => 'both', -expand => 1); - - MainLoop; - -=head1 BUGS - -It is currently not possible to configure the appearance of the Adjuster. -It would be nice to be able to set the width and relief of the Adjuster "line" -and the presence/absence of the "blob" on the Adjuster. - -Tk::Adjuster works theoretically with the grid geometry manager but there -are currently some problems which seem to be due to bugs in grid: - - a) There's never an Unmap event for the adjuster, so the "restore" - functionality has no effect. - b) After adjusting, widgets protrude into the border of the master. - c) grid('Propagate', 0) on MainWindow has no effect - window shrinks/grows - when widgets are adjusted. - d) Widgets shuffle to correct position on startup - -=cut - diff --git a/Master/tlpkg/tlperl/lib/Tk/After.pm b/Master/tlpkg/tlperl/lib/Tk/After.pm deleted file mode 100755 index 85a0e406ee5..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/After.pm +++ /dev/null @@ -1,104 +0,0 @@ -# Copyright (c) 1995-2004 Nick Ing-Simmons. All rights reserved. -# This program is free software; you can redistribute it and/or -# modify it under the same terms as Perl itself. -package Tk::After; -use Carp; - -use vars qw($VERSION); -$VERSION = '4.007'; # $Id: //depot/Tkutf8/Tk/After.pm#11 $ - -sub _cancelAll -{ - my $w = shift; - my $h = delete $w->{_After_}; - foreach my $obj (values %$h) - { - # carp "Auto cancel ".$obj->[1]." for ".$obj->[0]->PathName; - $obj->cancel; - bless $obj,"Tk::After::Cancelled"; - } -} - -sub Tk::After::Cancelled::once { } -sub Tk::After::Cancelled::repeat { } - -sub submit -{ - my $obj = shift; - my $w = $obj->[0]; - my $id = $obj->[1]; - my $t = $obj->[2]; - my $method = $obj->[3]; - delete($w->{_After_}{$id}) if (defined $id); - $id = $w->Tk::after($t,[$method => $obj]); - unless (exists $w->{_After_}) - { - $w->{_After_} = {}; - $w->OnDestroy([\&_cancelAll, $w]); - } - $w->{_After_}{$id} = $obj; - $obj->[1] = $id; - return $obj; -} - -sub DESTROY -{ - my $obj = shift; - $obj->cancel; - undef $obj->[0]; - undef $obj->[4]; -} - -sub new -{ - my ($class,$w,$t,$method,@cb) = @_; - my $cb = (@cb == 1) ? shift(@cb) : [@cb]; - my $obj = bless [$w,undef,$t,$method,Tk::Callback->new($cb)],$class; - return $obj->submit; -} - -sub cancel -{ - my $obj = shift; - my $id = $obj->[1]; - my $w = $obj->[0]; - if ($id) - { - $w->Tk::after('cancel'=> $id) if Tk::Exists($w); - delete $w->{_After_}{$id} if exists $w->{_After_}; - $obj->[1] = undef; - } - return $obj; -} - -sub repeat -{ - my $obj = shift; - $obj->submit; - local $Tk::widget = $obj->[0]; - $obj->[4]->Call; -} - -sub once -{ - my $obj = shift; - my $w = $obj->[0]; - my $id = $obj->[1]; - delete $w->{_After_}{$id}; - local $Tk::widget = $w; - $obj->[4]->Call; -} - -sub time { - my $obj = shift; - my $delay = shift; - if (defined $delay) { - $obj->cancel if $delay == 0; - $obj->[2] = $delay; - } - $obj->[2]; -} - -1; -__END__ - diff --git a/Master/tlpkg/tlperl/lib/Tk/Animation.pm b/Master/tlpkg/tlperl/lib/Tk/Animation.pm deleted file mode 100755 index 24cfacb4a7c..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/Animation.pm +++ /dev/null @@ -1,230 +0,0 @@ -package Tk::Animation; - -use vars qw($VERSION); -$VERSION = '4.008'; # $Id: //depot/Tkutf8/Tk/Animation.pm#8 $ - -use Tk::Photo; -use base qw(Tk::Photo); - -Construct Tk::Widget 'Animation'; - -sub MainWindow -{ - return shift->{'_MainWIndow_'}; -} - -sub add_frame -{ - my $obj = shift; - $obj->{'_frames_'} = [] unless exists $obj->{'_frames_'}; - push(@{$obj->{'_frames_'}},@_); -} - -sub new -{ - my ($class,$widget,%args) = @_; - my $obj = $class->SUPER::new($widget,%args); - $obj->{'_MainWIndow_'} = $widget->MainWindow; - if ($args{'-format'} eq 'gif') - { - my @images; - local $@; - while (1) - { - my $index = @images; - $args{'-format'} = "gif -index $index"; - my $img; - eval {local $SIG{'__DIE__'}; $img = $class->SUPER::new($widget,%args) }; - last if $@; - push(@images,$img); - } - if (@images > 1) - { - $obj->add_frame(@images); - $obj->{'_frame_index_'} = 0; - } - } - $obj->set_image( 0 ); - $obj->_get_gif_info; - return $obj; -} - -sub fast_forward { - - my( $self, $delta) = @_; - - $self->{_delta_} = $delta; - if( not exists $self->{_playing_} ) { - my $playing = exists $self->{'_NextId_'}; - $self->{_playing_} = $playing; - $self->resume_animation if not $playing; - } else { - my $playing = delete $self->{_playing_}; - $self->pause_animation if not $playing; - } - -} # end fast_forward - -*fast_reverse = \&fast_forward; - -sub frame_count { - my $frames = shift->{'_frames_'}; - return -1 unless $frames; - return @$frames; -} - -sub set_disposal_method { - my( $self, $blank ) = @_; - $blank = 1 if not defined $blank; - $self->{_blank_} = $blank; - $blank; -} - -sub set_image -{ - my ($obj,$index) = @_; - my $frames = $obj->{'_frames_'}; - return unless $frames && @$frames; - $index = 0 unless $index < @$frames; - $obj->blank if $obj->{_blank_}; # helps some make others worse - $obj->copy($frames->[$index]); - $obj->{'_frame_index_'} = $index; -} - -sub next_image -{ - my ($obj, $delta) = @_; - $obj->_next_image($delta); -} - -sub _next_image -{ - my ($obj, $delta, $in_animation) = @_; - $delta = $obj->{_delta_} unless $delta; - my $frames = $obj->{'_frames_'}; - return unless $frames && @$frames; - my $next_index = (($obj->{'_frame_index_'} || 0) + $delta); - if ($next_index > @$frames && $in_animation && $obj->{'_loop_'} ne 'forever') - { - return 0; # signal to stop animation - } - $next_index %= @$frames; - $obj->set_image($next_index); - 1; -} - -sub prev_image { shift->next_image( -1 ) } - -sub next_image_in_animation -{ - my ($obj, $delta) = @_; - my $continue = $obj->_next_image($delta, 1); - if (!$continue && $self->{'_NextId_'}) - { - $obj->pause_animation; - } -} - -sub pause_animation { - my $self = shift; - my $id = delete $self->{'_NextId_'}; - Tk::catch { $id->cancel } if $id; -} - -sub resume_animation { - my( $self, $period ) = @_; - if( not defined $self->{'_period_'} ) { - $self->{'_period_'} = defined( $period ) ? $period : 100; - } - $period = $self->{'_period_'}; - my $w = $self->MainWindow; - $self->{'_NextId_'} = $w->repeat( $period => [ $self => 'next_image_in_animation' ] ); -} - -sub start_animation -{ - my ($obj,$period) = @_; - my $frames = $obj->{'_frames_'}; - return unless $frames && @$frames; - my $w = $obj->MainWindow; - $obj->stop_animation; - $obj->{'_period_'} = $period if $period; - $obj->{'_NextId_'} = $w->repeat($obj->{'_period_'},[$obj,'next_image_in_animation']); -} - -sub stop_animation -{ - my ($obj) = @_; - my $id = delete $obj->{'_NextId_'}; - Tk::catch { $id->cancel } if $id; - $obj->set_image(0); -} - -sub _get_gif_info -{ - my ($obj) = @_; - my $info; - if (defined(my $file = $obj->cget(-file)) && eval { require Image::Info; 1; }) - { - $info = Image::Info::image_info($file); - } - elsif (defined(my $data = $obj->cget(-data))) - { - if ($data =~ m{^GIF8} && eval { require Image::Info; 1; }) - { - $info = Image::Info::image_info(\$data); - } - elsif (eval { require Image::Info; require MIME::Base64; 1; }) - { - $data = MIME::Base64::decode_base64($data); - $info = Image::Info::image_info(\$data); - } - } - if ($info) - { - $obj->{'_blank_'} = $info->{DisposalMethod} == 2 || $info->{DisposalMethod} == 3; - $obj->{'_period_'} = $info->{Delay}*1000 if defined $info->{Delay}; - $obj->{'_loop_'} = $info->{GIF_Loop}; - } - $obj->{'_blank_'} = 0 if !defined $obj->{'_blank_'}; - $obj->{'_period_'} = 100 if !defined $obj->{'_period_'}; - $obj->{'_loop_'} = 'forever' if !defined $obj->{'_loop_'}; - $obj->{'_delta_'} = 1; -} - -1; - -__END__ - -# -# This almost works for changing the animation on the fly -# but does not resize things correctly -# - -sub gif_sequence -{ - my ($obj,%args) = @_; - my $widget = $obj->MainWindow; - my @images; - local $@; - while (1) - { - my $index = @images; - $args{'-format'} = "gif -index $index"; - my $img; - eval - {local $SIG{'__DIE__'}; - my $img = $widget->Photo(%args); - push(@images,$img); - }; - last if $@; - } - if (@images) - { - delete $obj->{'_frames_'}; - $obj->add_frame(@images); - $obj->configure(-width => 0, -height => 0); - $obj->set_frame(0); - } -} - diff --git a/Master/tlpkg/tlperl/lib/Tk/Animation.pod b/Master/tlpkg/tlperl/lib/Tk/Animation.pod deleted file mode 100755 index 996b035b1c5..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/Animation.pod +++ /dev/null @@ -1,92 +0,0 @@ - -=head1 NAME - -Tk::Animation - Display sequence of Tk::Photo images - -=for pm Tk/Animation.pm - -=for category Tk Image Classes - -=head1 SYNOPSIS - - use Tk::Animation - my $img = $widget->Animation('-format' => 'gif', -file => 'somefile.gif'); - - $img->add_frame(@images); - - $img->start_animation; - $img->start_animation( $period ); - - $img->next_image; - $img->prev_image; - $img->set_image( 0 .. $#frames ); - - $img->pause_animation; - $img->resume_animation( $period ); - - $img->fast_forward( $multiplier ); - $img->fast_reverse( $multiplier ); - - $img->stop_animation; - - $img->set_disposal_method( $boolean ); - -=head1 DESCRIPTION - -In the simple case when C is passed a GIF89 style GIF with -multiple 'frames', it will build an internal array of C images. - -The C method adds images to the sequence. It is provided -to allow animations to be constructed from separate images. -All images must be Cs and should all be the same size. - -C then initiates a C with specified -I<$period> to sequence through these images. As for raw C -I<$period> is in milliseconds, for a 50Hz monitor it should be at -least 20ms. If I<$period> is omitted it is determined from the GIF -metadata (see below), or if this is not possible it defaults to 100 -milliseconds. - -C cancels the C and resets the image to the first -image in the sequence. - -For fine-grained control C and C move one frame forward -or backward. C randomly positions the animation to a particular frame. - -C pauses the movie and C continues from the -pause point. - -C and C speed through the movie either -forwards or backwards. $multiplier specifies how much faster the -animation moves. - -If L is installed, then the repeat period time and -disposal method of GIF animations are determined from the GIF metadata -directly. Otherwise the disposal method must be set manually by using -C (1 for blanking the previous images, 0 for -leaving the previous images as is). The repeat period time may be -given in the C method. - -=head1 NOTES - -C was formerly known as C method, but the -naming of this method was a mistake. - -If the disposal method is not set correctly, either by -C or by determining from the GIF metadata, then -the following may happen: By default Animation leaves the previous -movie frame in the animation photo. Many times overlaying subsequent -frames produces a composite that looks blurred. - -=head1 BUGS - -This module should not depend on a module which is not declared as a -dependency (Image::Info). - -The delays between images may vary in a GIF animation. This cannot be -handled by this module yet. - -The handling of the various disposal methods is not correct. - -=cut - diff --git a/Master/tlpkg/tlperl/lib/Tk/Balloon.pm b/Master/tlpkg/tlperl/lib/Tk/Balloon.pm deleted file mode 100755 index 4771ba37cf9..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/Balloon.pm +++ /dev/null @@ -1,633 +0,0 @@ -# -# The help widget that provides both "balloon" and "status bar" -# types of help messages. -# -# This is a patched version of Balloon 3.037 - it adds support -# for different orientations of the balloon widget, depending -# on wether there's enough space for it. The little arrow now -# should always point directly to the client. -# Added by Gerhard Petrowitsch (gerhard.petrowitsch@philips.com) -# -# Nov 1, 2003 - Jack Dunnigan -# Added support for more than one screen in single logical -# screen mode (i.e. xinerama, dual monitors) - -package Tk::Balloon; - -use vars qw($VERSION); -$VERSION = '4.011'; # was: sprintf '4.%03d', q$Revision: #10 $ =~ /\D(\d+)\s*$/; - -use Tk qw(Ev Exists); -use Carp; -require Tk::Toplevel; - -Tk::Widget->Construct('Balloon'); -use base qw(Tk::Toplevel); - -# use UNIVERSAL; avoid the UNIVERSAL.pm file subs are XS in perl core - -use strict; - -my @balloons; -my $button_up = 0; -my %arrows = ( TL => 'R0lGODlhBgAGAJEAANnZ2QAAAP///////yH5BAEAAAAALAAAAAAGAAYAAAINjA0HAEdwLCwMKIQfBQA7', - TR => 'R0lGODlhBgAGAJEAANnZ2QAAAP///////yH5BAEAAAAALAAAAAAGAAYAAAIRBGMDwAEQkgAIAAoCABEEuwAAOw==', - BR => 'R0lGODlhBgAGAJEAANnZ2QAAAP///////yH5BAEAAAAALAAAAAAGAAYAAAIPDOHHhYVRAIgIAEISQLELADs=', - BL => 'R0lGODlhBgAGAJEAANnZ2QAAAP///////yH5BAEAAAAALAAAAAAGAAYAAAIPhB1xAUFALCIMKAaAWQAVADs=', - NO => 'R0lGODlhAQABAJEAANnZ2f///////////yH5BAEAAAAALAAAAAABAAEAAAICRAEAOw==' - ); - - -sub ClassInit { - my ($class, $mw) = @_; - $mw->bind('all', '', ['Tk::Balloon::Motion', Ev('X'), Ev('Y'), Ev('s')]); - $mw->bind('all', '', ['Tk::Balloon::Motion', Ev('X'), Ev('Y'), Ev('s')]); - $mw->bind('all', '