From 9fc19ef8e2dcd8bcf6a1d034b95c1de2b88e485c Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Thu, 17 Feb 2011 15:05:13 +0000 Subject: New tlperl part II git-svn-id: svn://tug.org/texlive/trunk@21424 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 | 105 + Master/tlpkg/tlperl/lib/Tk/Animation.pm | 230 ++ Master/tlpkg/tlperl/lib/Tk/Animation.pod | 92 + Master/tlpkg/tlperl/lib/Tk/Balloon.pm | 644 +++ 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 | 524 +++ 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 | 2394 +++++++++++ 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 | 781 ++++ 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 | 68 + 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 | 152 + Master/tlpkg/tlperl/lib/Tk/DialogBox.pod | 156 + Master/tlpkg/tlperl/lib/Tk/DirTree.pm | 261 ++ 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 | 129 + 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 | 1061 +++++ Master/tlpkg/tlperl/lib/Tk/FBox.pod | 67 + Master/tlpkg/tlperl/lib/Tk/FileSelect.pm | 578 +++ Master/tlpkg/tlperl/lib/Tk/FileSelect.pod | 150 + 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 | 183 + 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 | 60 + Master/tlpkg/tlperl/lib/Tk/MMutil.pm | 607 +++ Master/tlpkg/tlperl/lib/Tk/MainWindow.pm | 212 + Master/tlpkg/tlperl/lib/Tk/MainWindow.pod | 85 + Master/tlpkg/tlperl/lib/Tk/MakeDepend.pm | 293 ++ 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 | 506 +++ 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 | 235 ++ 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 | 48 + Master/tlpkg/tlperl/lib/Tk/ROText.pod | 48 + 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 | 597 +++ Master/tlpkg/tlperl/lib/Tk/Table.pod | 97 + Master/tlpkg/tlperl/lib/Tk/Tcl-perl.pod | 200 + Master/tlpkg/tlperl/lib/Tk/Text.pm | 1671 ++++++++ Master/tlpkg/tlperl/lib/Tk/Text.pod | 2220 +++++++++++ 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 | 1023 +++++ Master/tlpkg/tlperl/lib/Tk/TextUndo.pod | 73 + Master/tlpkg/tlperl/lib/Tk/Tiler.pm | 202 + 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 | 586 +++ Master/tlpkg/tlperl/lib/Tk/Widget.pm | 1774 +++++++++ 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 | 667 ++++ 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 0 -> 4193 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 0 -> 2533 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 | 95 + 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 0 -> 326 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 0 -> 51552 bytes .../tlpkg/tlperl/lib/Tk/demos/images/earthris.gif | Bin 0 -> 6343 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 0 -> 9344 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 | 65 + .../lib/Tk/demos/widtrib/lib/npuz/Xcamel.npuz | Bin 0 -> 26699 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 0 -> 1924 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 | 433 ++ 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 | 1857 +++++++++ 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 | 12 + 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 | 53 + 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 | 211 + 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 | 283 ++ Master/tlpkg/tlperl/lib/Tk/prolog.ps | 284 ++ 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 0 -> 1718 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 + 475 files changed, 119286 insertions(+) create mode 100644 Master/tlpkg/tlperl/lib/Tk/804delta.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Adjuster.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Adjuster.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/After.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Animation.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Animation.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Balloon.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Balloon.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Bitmap.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Bitmap.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/BrowseEntry.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/BrowseEntry.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Button.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Button.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Camel.xpm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Canvas.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Canvas.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Checkbutton.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Checkbutton.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Clipboard.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Clipboard.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/CmdLine.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/CmdLine.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/ColorEdit.xpm create mode 100644 Master/tlpkg/tlperl/lib/Tk/ColorEditor.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/ColorEditor.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Common.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Compound.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Compound.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Config.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/ConfigSpecs.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Configure.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Credits create mode 100644 Master/tlpkg/tlperl/lib/Tk/DItem.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Derived.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Derived.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Dialog.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Dialog.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/DialogBox.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/DialogBox.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/DirTree.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/DirTree.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Dirlist.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/DragDrop.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/DragDrop/Common.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/DragDrop/LocalDrop.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/DragDrop/Rect.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/DragDrop/SunConst.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/DragDrop/SunDrop.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/DragDrop/SunSite.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/DragDrop/Win32Drop.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/DragDrop/Win32Site.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/DragDrop/XDNDDrop.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/DragDrop/XDNDSite.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/DropSite.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/DropSite.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/DummyEncode.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/English.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Entry.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Entry.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Error.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/ErrorDialog.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Event.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Event/IO.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Eventloop.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/FBox.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/FBox.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/FileSelect.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/FileSelect.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/FloatEntry.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Font.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Font.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Frame.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Frame.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/HList.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/HList.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/IO.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/IO.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/IconList.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/IconList.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Image.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Image.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/InputO.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Internals.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/ItemStyle.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/JPEG.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/LabEntry.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/LabFrame.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/LabFrame.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/LabRadio.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Label.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Label.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Labelframe.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Labelframe.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Listbox.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Listbox.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/MMtry.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/MMutil.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/MainWindow.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/MainWindow.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/MakeDepend.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Menu.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Menu.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Menu/Item.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Menu/Item.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Menubar.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Menubutton.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Menubutton.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Message.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Message.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/MsgBox.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/MsgBox.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Mwm.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/NBFrame.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/NoteBook.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/NoteBook.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Optionmenu.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Optionmenu.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/PNG.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Pane.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Panedwindow.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Panedwindow.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Photo.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Photo.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Pixmap.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Pixmap.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Popup.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Pretty.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/ProgressBar.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/README.Adjust create mode 100644 Master/tlpkg/tlperl/lib/Tk/ROText.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/ROText.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Radiobutton.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Radiobutton.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Region.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Reindex.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/ReindexedROText.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/ReindexedText.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Scale.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Scale.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Scrollbar.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Scrollbar.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Scrolled.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Spinbox.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Spinbox.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Stats.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Submethods.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Submethods.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/SunConst.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/TList.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/TList.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Table.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Table.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Tcl-perl.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Text.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Text.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Text/Tag.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/TextEdit.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/TextList.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/TextUndo.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/TextUndo.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Tiler.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Tiler.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/TixGrid.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/TixGrid.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Tk.xbm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Tk.xpm create mode 100644 Master/tlpkg/tlperl/lib/Tk/TkXSUB.def create mode 100644 Master/tlpkg/tlperl/lib/Tk/Toplevel.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Toplevel.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Trace.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Tree.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Tree.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/UserGuide.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Widget.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Widget.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/WidgetDemo.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Wm.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Wm.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/X.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/X.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/X11/X.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/X11/Xatom.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/X11/Xfuncproto.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/X11/Xlib.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/X11/Xutil.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/X11/cursorfont.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/X11/keysym.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/X11/keysymdef.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/X11/license.terms create mode 100644 Master/tlpkg/tlperl/lib/Tk/X11Font.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/X11Font.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/Xcamel.gif create mode 100644 Master/tlpkg/tlperl/lib/Tk/Xlib.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Xrm.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/Xrm.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/act_folder.xbm create mode 100644 Master/tlpkg/tlperl/lib/Tk/act_folder.xpm create mode 100644 Master/tlpkg/tlperl/lib/Tk/after.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/anim.gif create mode 100644 Master/tlpkg/tlperl/lib/Tk/arrowdownwin.xbm create mode 100644 Master/tlpkg/tlperl/lib/Tk/balArrow.xbm create mode 100644 Master/tlpkg/tlperl/lib/Tk/bind.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/bindtags.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/callbacks.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/cbxarrow.xbm create mode 100644 Master/tlpkg/tlperl/lib/Tk/chooseColor.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/chooseDirectory.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/composite.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/LabEnLabRad.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/QuitPB.xpm create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/QuitPBa.xpm create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/c.icon create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/cursor.cur create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/cursor.mask create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/cursor.xbm create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/dir.icon create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/dir.mask create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/earth.gif create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/earthris.gif create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/face create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/flagdown create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/flagup create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/grey.25 create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/grey.5 create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/letters create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/mickey.gif create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/ned.xpm create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/noletters create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/page.icon create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/page.mask create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/pattern create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/images/teapot.ppm create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/Ball.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/HList.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/HList2.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/Plot.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/WidgetDemo.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/arrows.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/balloon.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/bind.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/bitmaps.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/bounce.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/browseentry.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/browseentry2.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/button.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/check.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/choosedir.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/clrpick.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/colors.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/cscroll.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/ctext.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/dialog1.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/dialog2.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/dirtree.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/entry1.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/entry2.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/entry3.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/filebox.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/floor.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/form.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/form_mgr.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/hello.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/hscale.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/icon.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/image1.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/image2.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/items.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/keysyms.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/labelframe.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/labels.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/labframe.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/mega.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/menbut.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/menus.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/menus2.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/msgBox.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/notebook.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/paned1.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/paned2.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/photo1.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/photo2.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/plot.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/progress.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/puzzle.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/radio.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/ruler.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/sayings.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/search.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/showVars.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/slide.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/spin.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/states.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/style.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/texts.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/trace1.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/trace2.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/transtile.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/twind.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/unicodeout.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/virtevents1.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/vscale.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widtrib/Gedi.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widtrib/TEMPLATE.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widtrib/Tiler.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widtrib/all.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widtrib/cursor.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widtrib/lib/npuz/Xcamel.npuz create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widtrib/npuz.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/demos/widtrib/plop.pl create mode 100644 Master/tlpkg/tlperl/lib/Tk/event.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/exit.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/file.xbm create mode 100644 Master/tlpkg/tlperl/lib/Tk/file.xpm create mode 100644 Master/tlpkg/tlperl/lib/Tk/fileevent.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/focus.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/folder.xbm create mode 100644 Master/tlpkg/tlperl/lib/Tk/folder.xpm create mode 100644 Master/tlpkg/tlperl/lib/Tk/form.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/getOpenFile.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/grab.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/grid.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/icon.gif create mode 100644 Master/tlpkg/tlperl/lib/Tk/install.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/license.terms create mode 100644 Master/tlpkg/tlperl/lib/Tk/mega.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/messageBox.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/openfile.xbm create mode 100644 Master/tlpkg/tlperl/lib/Tk/openfolder.xbm create mode 100644 Master/tlpkg/tlperl/lib/Tk/openfolder.xpm create mode 100644 Master/tlpkg/tlperl/lib/Tk/option.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/options.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/overview.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/Lang.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/Lang.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/Lang.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/Lang_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/Tcl-pTk create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/Xlib.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/Xlib_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/compat/limits.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/compat/stdlib.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/compat/unistd.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/default.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/img.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/imgInt.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/imgInt_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/ks_names.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/mkVFunc create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/moredefs.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/port.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tcl.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tclDecls_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tclIntDecls.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tclIntPlatDecls.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tclMath.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tclPlatDecls.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tclWinInt.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tix.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tix.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tix.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixBitmaps.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixDef.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixForm.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixGrData.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixGrid.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixHList.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixImgXpm_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixInt.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixInt_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixPort.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixTList.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixWinInt.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tixWinPort.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tix_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tk.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tk.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tk.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tk3d.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkButton.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkCanvas.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkCanvases.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkColor.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkConfig.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkDecls_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkEvent_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkFileFilter.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkFont.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkImgPhoto_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkInitScript.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkInt.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntDecls_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntPlatDecls_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkIntXlibDecls_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkInt_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkMenu.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkMenubutton.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkOption.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkOption_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkPlatDecls_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkPort.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkScale.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkScrollbar.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkSelect.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkText.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkUndo.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkVMacro.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkWin.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkWinDefault.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkWinInt.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkWinPort.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tkXrm.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/tk_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pTk/xbytes.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/pack.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/palette.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/place.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/prolog.ps create mode 100644 Master/tlpkg/tlperl/lib/Tk/selection.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/send.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/srcfile.xpm create mode 100644 Master/tlpkg/tlperl/lib/Tk/textfile.xpm create mode 100644 Master/tlpkg/tlperl/lib/Tk/tixWm.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/tkGlue.def create mode 100644 Master/tlpkg/tlperl/lib/Tk/tkGlue.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/tkGlue.m create mode 100644 Master/tlpkg/tlperl/lib/Tk/tkGlue.t create mode 100644 Master/tlpkg/tlperl/lib/Tk/tkGlue_f.h create mode 100644 Master/tlpkg/tlperl/lib/Tk/tkvars.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/tranicon.gif create mode 100644 Master/tlpkg/tlperl/lib/Tk/typemap create mode 100644 Master/tlpkg/tlperl/lib/Tk/vtab.def create mode 100644 Master/tlpkg/tlperl/lib/Tk/widgets.pm create mode 100644 Master/tlpkg/tlperl/lib/Tk/widgets.pod create mode 100644 Master/tlpkg/tlperl/lib/Tk/win.xbm create mode 100644 Master/tlpkg/tlperl/lib/Tk/winfolder.xpm create mode 100644 Master/tlpkg/tlperl/lib/Tk/wintext.xpm (limited to 'Master/tlpkg/tlperl') diff --git a/Master/tlpkg/tlperl/lib/Tk/804delta.pod b/Master/tlpkg/tlperl/lib/Tk/804delta.pod new file mode 100644 index 00000000000..1472f38c86b --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/804delta.pod @@ -0,0 +1,110 @@ +=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 new file mode 100644 index 00000000000..bbe44f33dc8 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/Adjuster.pm @@ -0,0 +1,438 @@ +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 new file mode 100644 index 00000000000..7d094f4e262 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/Adjuster.pod @@ -0,0 +1,223 @@ + +=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 new file mode 100644 index 00000000000..9b36ff24b9c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/After.pm @@ -0,0 +1,105 @@ +# 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.008'; # $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 Tk::After::Cancelled::cancel { } + +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 new file mode 100644 index 00000000000..24cfacb4a7c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/Animation.pm @@ -0,0 +1,230 @@ +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 new file mode 100644 index 00000000000..996b035b1c5 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/Animation.pod @@ -0,0 +1,92 @@ + +=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 new file mode 100644 index 00000000000..4be9f6db9ae --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/Balloon.pm @@ -0,0 +1,644 @@ +# +# 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.012'; # 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', '