├── pTk ├── tkOption.exc ├── tkPlatDecls.exc ├── tkImgPhoto.exc ├── tkWinInt.exc ├── mTk │ ├── unix │ │ ├── pTk.exc │ │ └── aclocal.m4 │ ├── MANIFEST.SKIP │ ├── tclWin │ │ ├── aclocal.m4 │ │ ├── pTk.inc │ │ ├── tclsh.ico │ │ ├── tcl.hpj.in │ │ ├── tclWinThrd.h │ │ └── tcl.dsw │ ├── tixWin │ │ ├── itcl3.2 │ │ │ └── dummy.dir │ │ ├── rc │ │ │ └── tixwish.ico │ │ ├── pTk.exc │ │ ├── tixWinInt.h │ │ └── tixWinWm.c │ ├── win │ │ ├── aclocal.m4 │ │ ├── pTk.exc │ │ ├── lamp.bmp │ │ ├── rc │ │ │ ├── tk.ico │ │ │ ├── wish.ico │ │ │ ├── buttons.bmp │ │ │ ├── cursor00.cur │ │ │ ├── cursor02.cur │ │ │ ├── cursor04.cur │ │ │ ├── cursor06.cur │ │ │ ├── cursor08.cur │ │ │ ├── cursor0a.cur │ │ │ ├── cursor0c.cur │ │ │ ├── cursor0e.cur │ │ │ ├── cursor10.cur │ │ │ ├── cursor12.cur │ │ │ ├── cursor14.cur │ │ │ ├── cursor16.cur │ │ │ ├── cursor18.cur │ │ │ ├── cursor1a.cur │ │ │ ├── cursor1c.cur │ │ │ ├── cursor1e.cur │ │ │ ├── cursor20.cur │ │ │ ├── cursor22.cur │ │ │ ├── cursor24.cur │ │ │ ├── cursor26.cur │ │ │ ├── cursor28.cur │ │ │ ├── cursor2a.cur │ │ │ ├── cursor2c.cur │ │ │ ├── cursor2e.cur │ │ │ ├── cursor30.cur │ │ │ ├── cursor32.cur │ │ │ ├── cursor34.cur │ │ │ ├── cursor36.cur │ │ │ ├── cursor38.cur │ │ │ ├── cursor3a.cur │ │ │ ├── cursor3c.cur │ │ │ ├── cursor3e.cur │ │ │ ├── cursor40.cur │ │ │ ├── cursor42.cur │ │ │ ├── cursor44.cur │ │ │ ├── cursor46.cur │ │ │ ├── cursor48.cur │ │ │ ├── cursor4a.cur │ │ │ ├── cursor4c.cur │ │ │ ├── cursor4e.cur │ │ │ ├── cursor50.cur │ │ │ ├── cursor52.cur │ │ │ ├── cursor54.cur │ │ │ ├── cursor56.cur │ │ │ ├── cursor58.cur │ │ │ ├── cursor5a.cur │ │ │ ├── cursor5c.cur │ │ │ ├── cursor5e.cur │ │ │ ├── cursor60.cur │ │ │ ├── cursor62.cur │ │ │ ├── cursor64.cur │ │ │ ├── cursor66.cur │ │ │ ├── cursor68.cur │ │ │ ├── cursor6a.cur │ │ │ ├── cursor6c.cur │ │ │ ├── cursor6e.cur │ │ │ ├── cursor70.cur │ │ │ ├── cursor72.cur │ │ │ ├── cursor74.cur │ │ │ ├── cursor76.cur │ │ │ ├── cursor78.cur │ │ │ ├── cursor7a.cur │ │ │ ├── cursor7c.cur │ │ │ ├── cursor7e.cur │ │ │ ├── cursor80.cur │ │ │ ├── cursor82.cur │ │ │ ├── cursor84.cur │ │ │ ├── cursor86.cur │ │ │ ├── cursor88.cur │ │ │ ├── cursor8a.cur │ │ │ ├── cursor8c.cur │ │ │ ├── cursor8e.cur │ │ │ ├── cursor90.cur │ │ │ ├── cursor92.cur │ │ │ ├── cursor94.cur │ │ │ ├── cursor96.cur │ │ │ ├── cursor98.cur │ │ │ └── wish.exe.manifest │ │ ├── mkd.bat │ │ └── rmd.bat │ ├── tclUnix │ │ ├── aclocal.m4 │ │ ├── pTk.inc │ │ ├── dltest │ │ │ └── README │ │ └── tclUnixThrd.h │ ├── tixUnix │ │ ├── pTk.exc │ │ ├── aclocal.m4 │ │ ├── itcl3.0 │ │ │ ├── aclocal.m4 │ │ │ └── pkgIndex.tcl.in │ │ ├── itcl3.1 │ │ │ ├── aclocal.m4 │ │ │ └── pkgIndex.tcl.in │ │ ├── itcl3.2 │ │ │ ├── aclocal.m4 │ │ │ └── pkgIndex.tcl.in │ │ ├── tk8.1 │ │ │ ├── aclocal.m4 │ │ │ └── pkgIndex.tcl.in │ │ ├── tk8.2 │ │ │ ├── aclocal.m4 │ │ │ └── pkgIndex.tcl.in │ │ ├── tk8.3 │ │ │ ├── aclocal.m4 │ │ │ └── pkgIndex.tcl.in │ │ ├── tk8.0 │ │ │ └── pkgIndex.tcl.in │ │ ├── tixUnixInt.h │ │ ├── tixUnixWm.c │ │ └── tixUnixPort.h │ ├── xlib │ │ └── pTk.exc │ ├── langmerge │ ├── tixGeneric │ │ └── pTk.exc │ ├── tclGeneric │ │ ├── pTk.inc │ │ └── README │ ├── generic │ │ ├── README │ │ └── pTk.exc │ ├── README │ └── additions │ │ └── pTk.exc ├── tkIntPlatDecls.exc ├── tkIntXlibDecls.exc ├── refs ├── defs ├── pned ├── config │ ├── Xdummy.c │ ├── Hstrcasecmp.c │ ├── Hstrdup.c │ └── Hstrtoul.c ├── tixHList.exc ├── Lang.exc ├── deArg ├── tkWin.qexc ├── imgInt.exc ├── mkneed ├── strdup.c ├── tixVars.c ├── bitmaps │ ├── info.bmp │ ├── warning.bmp │ ├── gray12.bmp │ ├── gray25.bmp │ ├── gray50.bmp │ ├── gray75.bmp │ ├── transpnt.bmp │ ├── error.bmp │ ├── hourglass.bmp │ ├── questhead.bmp │ ├── question.bmp │ └── tk.bmp ├── tix.exc ├── tk_f.h ├── tix_f.h ├── tk_f.c ├── Lang_f.h ├── Xlib_f.h ├── tix_f.c ├── tkInt_f.h ├── Lang_f.c ├── imgInt_f.h ├── tixInt_f.h ├── tkDecls_f.h ├── tkEvent_f.h ├── tkInt_f.c ├── tclDecls_f.h ├── tkOption_f.h ├── imgInt_f.c ├── tixInt_f.c ├── tixImgXpm_f.h ├── tkDecls_f.c ├── tkImgPhoto_f.h ├── tkIntDecls_f.h ├── tclDecls_f.c ├── tk.exc ├── findX ├── Xlib.nexc ├── tkPlatDecls_f.h ├── tkIntPlatDecls_f.h ├── tkIntXlibDecls_f.h ├── tkEvent_f.c ├── tkIntDecls.exc ├── tkOption_f.c ├── tkIntDecls_f.c ├── tixImgXpm_f.c ├── tkImgPhoto_f.c ├── tkPlatDecls_f.c ├── tkXrm.h ├── tixInt.exc ├── tkIntPlatDecls_f.c ├── Xlib_f.c ├── findcore ├── tkIntXlibDecls_f.c ├── prune_vtab ├── from ├── tkOption.h ├── vexc ├── tkOption.m └── Xlib.excwin ├── PNG ├── zlib │ ├── contrib │ │ ├── blast │ │ │ ├── test.txt │ │ │ ├── test.pk │ │ │ ├── README │ │ │ └── Makefile │ │ ├── infback9 │ │ │ └── README │ │ ├── README.contrib │ │ ├── puff │ │ │ ├── zeros.raw │ │ │ └── Makefile │ │ ├── dotzlib │ │ │ ├── DotZLib.chm │ │ │ └── DotZLib │ │ │ │ ├── Deflater.cs │ │ │ │ ├── DotZLib.cs │ │ │ │ ├── Inflater.cs │ │ │ │ ├── CodecBase.cs │ │ │ │ ├── GZipStream.cs │ │ │ │ ├── UnitTests.cs │ │ │ │ ├── ChecksumImpl.cs │ │ │ │ └── CircularBuffer.cs │ │ ├── masmx64 │ │ │ ├── gvmat64.obj │ │ │ ├── inffasx64.obj │ │ │ └── bld_ml64.bat │ │ ├── masmx86 │ │ │ ├── gvmat32.asm │ │ │ ├── gvmat32.obj │ │ │ ├── inffas32.obj │ │ │ ├── bld_ml32.bat │ │ │ ├── mkasm.bat │ │ │ └── readme.txt │ │ ├── delphi │ │ │ └── ZLibConst.pas │ │ ├── testzlib │ │ │ └── testzlib.txt │ │ ├── untgz │ │ │ ├── Makefile │ │ │ └── Makefile.msc │ │ ├── minizip │ │ │ ├── iowin32.h │ │ │ └── Makefile │ │ ├── iostream3 │ │ │ └── TODO │ │ ├── ada │ │ │ └── zlib.gpr │ │ └── iostream │ │ │ └── test.cpp │ ├── ChangeLog │ ├── old │ │ ├── zlib.html │ │ └── README │ ├── win32 │ │ └── VisualC.txt │ └── inffast.h ├── libpng │ ├── test-pngtest.sh │ ├── pngbar.jpg │ ├── pngbar.png │ ├── pngnow.png │ ├── pngtest.png │ ├── contrib │ │ ├── pngminus │ │ │ ├── pngminus.bat │ │ │ └── pngminus.sh │ │ ├── gregbook │ │ │ └── toucan.png │ │ ├── pngsuite │ │ │ ├── basn0g01.png │ │ │ ├── basn0g02.png │ │ │ ├── basn0g04.png │ │ │ ├── basn0g08.png │ │ │ ├── basn0g16.png │ │ │ ├── basn2c08.png │ │ │ ├── basn2c16.png │ │ │ ├── basn3p01.png │ │ │ ├── basn3p02.png │ │ │ ├── basn3p04.png │ │ │ ├── basn3p08.png │ │ │ ├── basn4a08.png │ │ │ ├── basn4a16.png │ │ │ ├── basn6a08.png │ │ │ └── basn6a16.png │ │ └── visupng │ │ │ ├── VisualPng.ico │ │ │ ├── VisualPng.png │ │ │ └── VisualPng.dsw │ ├── projects │ │ ├── beos │ │ │ ├── x86-shared.proj │ │ │ └── x86-static.proj │ │ ├── wince.txt │ │ ├── netware.txt │ │ ├── visualc71 │ │ │ └── PRJ0041.mak │ │ └── cbuilder5 │ │ │ ├── libpngstat.bpf │ │ │ └── zlib.readme.txt │ ├── scripts │ │ ├── SCOPTIONS.ppc │ │ ├── libpng.pc.in │ │ └── libpng-config-head.in │ └── autogen.sh ├── pngtest.png └── config │ └── has_png.c ├── bin ├── tkman ├── defunc └── perms ├── tkGlue.exc ├── ptked ├── InputO ├── NotWin.exc ├── Makefile.PL └── InputO.pm ├── WinPhoto ├── NotWin.exc └── Makefile.PL ├── Change.log ├── DragDrop ├── Win32Site │ ├── NotUnix.exc │ ├── Makefile.PL │ └── Win32Drop.pm ├── Makefile.PL ├── DragDrop │ ├── Common.pod │ └── SunConst.pod └── has_sun ├── Tk ├── anim.gif ├── icon.gif ├── Xcamel.gif ├── tranicon.gif ├── Xrm.pm ├── Credits ├── folder.xbm ├── act_folder.xbm ├── file.xbm ├── openfolder.xbm ├── arrowdownwin.xbm ├── openfile.xbm ├── Bitmap.pm ├── cbxarrow.xbm ├── win.xbm ├── Labelframe.pm ├── file.xpm ├── srcfile.xpm ├── textfile.xpm ├── widgets.pm ├── Menubar.pm ├── Label.pm ├── Message.pm ├── folder.xpm ├── Photo.pm ├── openfolder.xpm ├── Stats.pm └── act_folder.xpm ├── t ├── unicode.t ├── pod.t ├── magic.t ├── iso8859-1.t ├── list.t ├── autoload.t ├── slaves.t ├── Require.t └── X.t ├── Event ├── t │ └── basic.t ├── tclEvent.c ├── tclNotify.c ├── tclTimer.c ├── tclAsync.c ├── tclPlatEvent.c ├── tclPlatTime.c ├── typemap ├── Event.pm ├── Makefile.PL └── event_demo ├── JPEG ├── Nick.jpg ├── jpeg │ ├── testimg.bmp │ ├── testimg.jpg │ ├── testimg.ppm │ ├── testimgp.jpg │ ├── testorig.jpg │ ├── testprog.jpg │ ├── makvms.opt │ └── jversion.h └── config │ └── has_jpeg.c ├── examples ├── tent ├── fonthook ├── geom ├── icon ├── lsfonts ├── hlfm ├── tiny ├── tainted ├── try ├── tiehandle ├── tmenu ├── labelpack ├── taint_test2 ├── iso8859-1 ├── leak_test ├── tixwm_demo ├── tcolour ├── error_prop ├── grid_test ├── cbtest ├── prop_demo ├── destroy_test ├── scale_test ├── spinbox ├── font_test ├── nested_dialog ├── lbformat_demo ├── forward_test ├── motif_hack ├── two_main ├── canvastile ├── dump_test ├── fetail ├── oddmenu_demo ├── after_demo ├── time ├── local_demo ├── dialog_test ├── ewidth_demo ├── tktail ├── iconwin ├── style_test ├── animate ├── pixmap_test ├── adj_demo └── pixels-points ├── config ├── signedchar.c ├── copstashset.c ├── pregcomp2.c ├── perlrx.c ├── pmop.c ├── regexp511.c ├── svtrv.c ├── unsigned.c ├── xft.c └── Ksprintf.c ├── Compound ├── Makefile.PL └── compound_demo ├── Scrollbar └── Makefile.PL ├── demos ├── MANIFEST.SKIP ├── demos │ ├── images │ │ ├── cursor.cur │ │ ├── earth.gif │ │ ├── mickey.gif │ │ ├── teapot.ppm │ │ ├── earthris.gif │ │ ├── pattern │ │ ├── grey.25 │ │ ├── grey.5 │ │ ├── cursor.mask │ │ └── cursor.xbm │ ├── widtrib │ │ ├── lib │ │ │ └── npuz │ │ │ │ └── Xcamel.npuz │ │ └── Tiler.pl │ └── widget_lib │ │ ├── dirtree.pl │ │ ├── labframe.pl │ │ └── keysyms.pl ├── Makefile.PL └── hello ├── fixfunc ├── Extensions └── ImageBack │ ├── MANIFEST.SKIP │ ├── MANIFEST │ ├── Makefile.PL │ ├── background │ ├── ImageBack.pm │ └── README ├── generate ├── IO └── Makefile.PL ├── Mwm ├── NotWin.exc ├── Makefile.PL └── Mwm.pm ├── Entry └── Makefile.PL ├── HList └── Makefile.PL ├── Listbox ├── Makefile.PL └── Listbox.xs ├── NBFrame ├── Makefile.PL └── NBFrame.pm ├── TList └── Makefile.PL ├── Text ├── Makefile.PL ├── README └── Text.xs ├── TixGrid ├── Makefile.PL └── fedemo ├── Xlib ├── Makefile.PL ├── X │ └── Makefile.PL ├── README ├── load └── Xlib.pm ├── Menubutton ├── Makefile.PL └── Menubutton.xs ├── wal ├── vg ├── TixPixmap ├── Makefile.PL └── Pixmap.pm ├── Tixish ├── lib │ └── Tk │ │ ├── balArrow.xbm │ │ ├── arrowdownwin.xbm │ │ └── cbxarrow.xbm └── Makefile.PL ├── .whitesource ├── xt ├── skip_all_font.t ├── skip_all_mw.t └── rt7474.t ├── Scale ├── Makefile.PL └── Scale.xs ├── Canvas └── Makefile.PL ├── TextList ├── README ├── ReindexedText.pm ├── ReindexedROText.pm └── Makefile.PL ├── check_source ├── pod ├── getSaveFile.pod ├── README ├── Makefile.PL └── widgets.pod ├── db57 ├── debug ├── compile └── findloader ├── Contrib ├── README └── book-examples │ ├── f-15.5.pl │ ├── f-16.2.pl │ ├── f-16.10.pl │ ├── f-16.9.pl │ ├── f-16.3.pl │ ├── f-16.1.pl │ ├── f-16.6.pl │ └── f-16.7.pl ├── README-Strawberry.txt ├── checklen ├── stripblib ├── cleanup ├── tkGlue_f.h ├── hackMM ├── appveyor.yml ├── debug.bat ├── r ├── README.AIX ├── mkppm.bat ├── VERSIONS ├── README.OSF ├── tkGlue_f.c └── perlfiles /pTk/tkOption.exc: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /pTk/tkPlatDecls.exc: -------------------------------------------------------------------------------- 1 | tkPlatStubsPtr -------------------------------------------------------------------------------- /pTk/tkImgPhoto.exc: -------------------------------------------------------------------------------- 1 | tkImgFmtGIF 2 | -------------------------------------------------------------------------------- /pTk/tkWinInt.exc: -------------------------------------------------------------------------------- 1 | TkWinChildProc 2 | -------------------------------------------------------------------------------- /pTk/mTk/unix/pTk.exc: -------------------------------------------------------------------------------- 1 | tkAppInit.c 2 | 3 | -------------------------------------------------------------------------------- /pTk/tkIntPlatDecls.exc: -------------------------------------------------------------------------------- 1 | tkIntPlatStubsPtr -------------------------------------------------------------------------------- /PNG/zlib/contrib/blast/test.txt: -------------------------------------------------------------------------------- 1 | AIAIAIAIAIAIA -------------------------------------------------------------------------------- /pTk/mTk/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | %$ 2 | \.(bak|old)$ 3 | -------------------------------------------------------------------------------- /pTk/tkIntXlibDecls.exc: -------------------------------------------------------------------------------- 1 | tkIntXlibStubsPtr 2 | -------------------------------------------------------------------------------- /pTk/mTk/tclWin/aclocal.m4: -------------------------------------------------------------------------------- 1 | builtin(include,tcl.m4) 2 | -------------------------------------------------------------------------------- /pTk/mTk/tixWin/itcl3.2/dummy.dir: -------------------------------------------------------------------------------- 1 | # nothing here 2 | -------------------------------------------------------------------------------- /pTk/mTk/unix/aclocal.m4: -------------------------------------------------------------------------------- 1 | builtin(include,tcl.m4) 2 | -------------------------------------------------------------------------------- /pTk/mTk/win/aclocal.m4: -------------------------------------------------------------------------------- 1 | builtin(include,tcl.m4) 2 | -------------------------------------------------------------------------------- /pTk/refs: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | nm -Ap "$@" | grep ' U ' 3 | -------------------------------------------------------------------------------- /bin/tkman: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | man -M $HOME/Tk/blib/man "$@" 3 | -------------------------------------------------------------------------------- /pTk/defs: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | nm -p "$@" | grep ' [A-TV-Z] ' 3 | -------------------------------------------------------------------------------- /pTk/mTk/tclUnix/aclocal.m4: -------------------------------------------------------------------------------- 1 | builtin(include,tcl.m4) 2 | -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/pTk.exc: -------------------------------------------------------------------------------- 1 | tixUnixSam.c 2 | samAppInit.c 3 | -------------------------------------------------------------------------------- /pTk/pned: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | p4 edit $1 3 | ned $1 4 | 5 | 6 | -------------------------------------------------------------------------------- /tkGlue.exc: -------------------------------------------------------------------------------- 1 | ClearErrorInfo 2 | DumpStack 3 | mainWindow 4 | -------------------------------------------------------------------------------- /ptked: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/ptked -------------------------------------------------------------------------------- /InputO/NotWin.exc: -------------------------------------------------------------------------------- 1 | # This module does not build on Win32 2 | # 3 | -------------------------------------------------------------------------------- /WinPhoto/NotWin.exc: -------------------------------------------------------------------------------- 1 | # This module does not build on Win32 2 | # 3 | -------------------------------------------------------------------------------- /pTk/config/Xdummy.c: -------------------------------------------------------------------------------- 1 | #include "tkPort.h" 2 | #include "tk.h" 3 | 4 | -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/aclocal.m4: -------------------------------------------------------------------------------- 1 | "sinclude(../config/acinclude.m4)" 2 | -------------------------------------------------------------------------------- /pTk/mTk/win/pTk.exc: -------------------------------------------------------------------------------- 1 | tkWin32Dll.c 2 | winMain.c 3 | nmakehlp.c 4 | -------------------------------------------------------------------------------- /Change.log: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/Change.log -------------------------------------------------------------------------------- /DragDrop/Win32Site/NotUnix.exc: -------------------------------------------------------------------------------- 1 | # This directory not needed on UNIX 2 | -------------------------------------------------------------------------------- /Tk/anim.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/Tk/anim.gif -------------------------------------------------------------------------------- /Tk/icon.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/Tk/icon.gif -------------------------------------------------------------------------------- /pTk/mTk/tclWin/pTk.inc: -------------------------------------------------------------------------------- 1 | tclWinNotify.c 2 | tclWinTime.c 3 | tclWinInt.h -------------------------------------------------------------------------------- /t/unicode.t: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/t/unicode.t -------------------------------------------------------------------------------- /Event/t/basic.t: -------------------------------------------------------------------------------- 1 | use Test::More (tests => 1); 2 | 3 | use_ok('Tk::Event'); 4 | -------------------------------------------------------------------------------- /JPEG/Nick.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/JPEG/Nick.jpg -------------------------------------------------------------------------------- /Tk/Xcamel.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/Tk/Xcamel.gif -------------------------------------------------------------------------------- /examples/tent: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/examples/tent -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/itcl3.0/aclocal.m4: -------------------------------------------------------------------------------- 1 | "sinclude(../../config/acinclude.m4)" 2 | -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/itcl3.1/aclocal.m4: -------------------------------------------------------------------------------- 1 | "sinclude(../../config/acinclude.m4)" 2 | -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/itcl3.2/aclocal.m4: -------------------------------------------------------------------------------- 1 | "sinclude(../../config/acinclude.m4)" 2 | -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/tk8.1/aclocal.m4: -------------------------------------------------------------------------------- 1 | "sinclude(../../config/acinclude.m4)" 2 | -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/tk8.2/aclocal.m4: -------------------------------------------------------------------------------- 1 | "sinclude(../../config/acinclude.m4)" 2 | -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/tk8.3/aclocal.m4: -------------------------------------------------------------------------------- 1 | "sinclude(../../config/acinclude.m4)" 2 | -------------------------------------------------------------------------------- /Event/tclEvent.c: -------------------------------------------------------------------------------- 1 | #define TCL_EVENT_IMPLEMENT 2 | #include "../pTk/tclEvent.c" 3 | -------------------------------------------------------------------------------- /Event/tclNotify.c: -------------------------------------------------------------------------------- 1 | #define TCL_EVENT_IMPLEMENT 2 | #include "../pTk/tclNotify.c" 3 | -------------------------------------------------------------------------------- /Event/tclTimer.c: -------------------------------------------------------------------------------- 1 | #define TCL_EVENT_IMPLEMENT 2 | #include "../pTk/tclTimer.c" 3 | -------------------------------------------------------------------------------- /PNG/libpng/test-pngtest.sh: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | ./pngtest ${srcdir}/pngtest.png 4 | -------------------------------------------------------------------------------- /PNG/pngtest.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/pngtest.png -------------------------------------------------------------------------------- /Tk/tranicon.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/Tk/tranicon.gif -------------------------------------------------------------------------------- /examples/fonthook: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/examples/fonthook -------------------------------------------------------------------------------- /pTk/tixHList.exc: -------------------------------------------------------------------------------- 1 | Tix_HLColumn 2 | Tix_HLFreeMappedWindow 3 | Tix_HLItem 4 | 5 | -------------------------------------------------------------------------------- /Event/tclAsync.c: -------------------------------------------------------------------------------- 1 | #define TCL_EVENT_IMPLEMENT 2 | #include "../pTk/tclAsync.c" 3 | 4 | -------------------------------------------------------------------------------- /PNG/zlib/ChangeLog: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/ChangeLog -------------------------------------------------------------------------------- /PNG/zlib/contrib/infback9/README: -------------------------------------------------------------------------------- 1 | See infback9.h for what this is and how to use it. 2 | -------------------------------------------------------------------------------- /pTk/mTk/tclUnix/pTk.inc: -------------------------------------------------------------------------------- 1 | tclUnixEvent.c 2 | tclUnixNotfy.c 3 | tclUnixTime.c 4 | 5 | -------------------------------------------------------------------------------- /JPEG/jpeg/testimg.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/JPEG/jpeg/testimg.bmp -------------------------------------------------------------------------------- /JPEG/jpeg/testimg.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/JPEG/jpeg/testimg.jpg -------------------------------------------------------------------------------- /JPEG/jpeg/testimg.ppm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/JPEG/jpeg/testimg.ppm -------------------------------------------------------------------------------- /JPEG/jpeg/testimgp.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/JPEG/jpeg/testimgp.jpg -------------------------------------------------------------------------------- /JPEG/jpeg/testorig.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/JPEG/jpeg/testorig.jpg -------------------------------------------------------------------------------- /JPEG/jpeg/testprog.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/JPEG/jpeg/testprog.jpg -------------------------------------------------------------------------------- /PNG/libpng/pngbar.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/pngbar.jpg -------------------------------------------------------------------------------- /PNG/libpng/pngbar.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/pngbar.png -------------------------------------------------------------------------------- /PNG/libpng/pngnow.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/pngnow.png -------------------------------------------------------------------------------- /PNG/libpng/pngtest.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/pngtest.png -------------------------------------------------------------------------------- /PNG/zlib/old/zlib.html: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/old/zlib.html -------------------------------------------------------------------------------- /config/signedchar.c: -------------------------------------------------------------------------------- 1 | main() 2 | { 3 | signed char x = 'a'; 4 | return (x - 'a'); 5 | } 6 | -------------------------------------------------------------------------------- /pTk/Lang.exc: -------------------------------------------------------------------------------- 1 | LangDebug 2 | Lang_OSHandle 3 | TclCalloc 4 | TclpAsyncMark 5 | TclpGetTime 6 | -------------------------------------------------------------------------------- /pTk/mTk/win/lamp.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/lamp.bmp -------------------------------------------------------------------------------- /pTk/mTk/win/rc/tk.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/tk.ico -------------------------------------------------------------------------------- /Compound/Makefile.PL: -------------------------------------------------------------------------------- 1 | use Tk::MMutil; 2 | Tk::MMutil::TkExtMakefile('dynamic_ptk' => 1); 3 | 4 | -------------------------------------------------------------------------------- /pTk/mTk/tclWin/tclsh.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/tclWin/tclsh.ico -------------------------------------------------------------------------------- /pTk/mTk/win/rc/wish.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/wish.ico -------------------------------------------------------------------------------- /pTk/mTk/tclWin/tcl.hpj.in: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/tclWin/tcl.hpj.in -------------------------------------------------------------------------------- /pTk/mTk/win/rc/buttons.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/buttons.bmp -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor00.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor00.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor02.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor02.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor04.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor04.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor06.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor06.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor08.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor08.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor0a.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor0a.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor0c.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor0c.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor0e.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor0e.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor10.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor10.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor12.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor12.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor14.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor14.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor16.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor16.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor18.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor18.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor1a.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor1a.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor1c.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor1c.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor1e.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor1e.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor20.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor20.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor22.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor22.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor24.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor24.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor26.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor26.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor28.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor28.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor2a.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor2a.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor2c.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor2c.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor2e.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor2e.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor30.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor30.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor32.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor32.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor34.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor34.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor36.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor36.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor38.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor38.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor3a.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor3a.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor3c.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor3c.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor3e.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor3e.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor40.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor40.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor42.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor42.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor44.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor44.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor46.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor46.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor48.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor48.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor4a.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor4a.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor4c.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor4c.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor4e.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor4e.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor50.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor50.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor52.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor52.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor54.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor54.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor56.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor56.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor58.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor58.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor5a.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor5a.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor5c.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor5c.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor5e.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor5e.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor60.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor60.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor62.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor62.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor64.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor64.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor66.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor66.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor68.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor68.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor6a.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor6a.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor6c.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor6c.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor6e.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor6e.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor70.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor70.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor72.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor72.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor74.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor74.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor76.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor76.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor78.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor78.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor7a.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor7a.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor7c.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor7c.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor7e.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor7e.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor80.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor80.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor82.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor82.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor84.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor84.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor86.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor86.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor88.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor88.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor8a.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor8a.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor8c.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor8c.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor8e.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor8e.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor90.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor90.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor92.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor92.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor94.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor94.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor96.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor96.cur -------------------------------------------------------------------------------- /pTk/mTk/win/rc/cursor98.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/win/rc/cursor98.cur -------------------------------------------------------------------------------- /Scrollbar/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | use Tk::MMutil; 3 | Tk::MMutil::TkExtMakefile('dynamic_ptk' => 1); 4 | 5 | 6 | -------------------------------------------------------------------------------- /WinPhoto/Makefile.PL: -------------------------------------------------------------------------------- 1 | use Tk::MMutil; 2 | Tk::MMutil::TkExtMakefile( 'dynamic_ptk' => 1 ); 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /demos/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \.(bso?|old|bak|out|hide)$ 2 | \.(exists|gdbinit|mirror)$ 3 | Makefile$ 4 | %$ 5 | 6 | -------------------------------------------------------------------------------- /demos/demos/images/cursor.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/demos/demos/images/cursor.cur -------------------------------------------------------------------------------- /demos/demos/images/earth.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/demos/demos/images/earth.gif -------------------------------------------------------------------------------- /demos/demos/images/mickey.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/demos/demos/images/mickey.gif -------------------------------------------------------------------------------- /demos/demos/images/teapot.ppm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/demos/demos/images/teapot.ppm -------------------------------------------------------------------------------- /fixfunc: -------------------------------------------------------------------------------- 1 | while (<>) 2 | { 3 | s/__FUNCTION__\s+"\s*(.*?)"/"%s $1",__FUNCTION__/; 4 | print; 5 | } 6 | -------------------------------------------------------------------------------- /pTk/mTk/tixWin/rc/tixwish.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/pTk/mTk/tixWin/rc/tixwish.ico -------------------------------------------------------------------------------- /Extensions/ImageBack/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bblib/ 2 | %$ 3 | \.(o|bs|bak|old)$ 4 | ImageBack\.c$ 5 | \bMakefile$ 6 | -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngminus/pngminus.bat: -------------------------------------------------------------------------------- 1 | make -f makefile.tc3 2 | call png2pnm.bat 3 | call pnm2png.bat 4 | 5 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/README.contrib: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/README.contrib -------------------------------------------------------------------------------- /PNG/zlib/contrib/blast/test.pk: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/blast/test.pk -------------------------------------------------------------------------------- /PNG/zlib/contrib/puff/zeros.raw: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/puff/zeros.raw -------------------------------------------------------------------------------- /demos/demos/images/earthris.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/demos/demos/images/earthris.gif -------------------------------------------------------------------------------- /generate: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | while true 4 | do 5 | echo "Something to..\n\tSay?" 6 | sleep 1 7 | done 8 | -------------------------------------------------------------------------------- /IO/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | use Tk::MMutil; 3 | Tk::MMutil::TkExtMakefile( 4 | 'dynamic_ptk' => 0 5 | ); 6 | 7 | -------------------------------------------------------------------------------- /Mwm/NotWin.exc: -------------------------------------------------------------------------------- 1 | # This module builds, but is pointless on Win32 2 | # as Motif Window Manager does not exist there 3 | -------------------------------------------------------------------------------- /pTk/config/Hstrcasecmp.c: -------------------------------------------------------------------------------- 1 | #include 2 | 3 | int main() 4 | { 5 | return strcasecmp("", ""); 6 | } 7 | 8 | -------------------------------------------------------------------------------- /pTk/mTk/xlib/pTk.exc: -------------------------------------------------------------------------------- 1 | # Don't exclude any files from this directory 2 | # If it is needed at all we need the lot. 3 | -------------------------------------------------------------------------------- /Mwm/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | use Tk::MMutil; 3 | Tk::MMutil::TkExtMakefile( 4 | 'dynamic_ptk' => 1 5 | ); 6 | 7 | 8 | -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngminus/pngminus.sh: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | make -f makefile.std 3 | sh png2pnm.sh 4 | sh pnm2png.sh 5 | 6 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/blast/README: -------------------------------------------------------------------------------- 1 | Read blast.h for purpose and usage. 2 | 3 | Mark Adler 4 | madler@alumni.caltech.edu 5 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/dotzlib/DotZLib.chm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/dotzlib/DotZLib.chm -------------------------------------------------------------------------------- /PNG/zlib/contrib/masmx64/gvmat64.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/masmx64/gvmat64.obj -------------------------------------------------------------------------------- /PNG/zlib/contrib/masmx86/gvmat32.asm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/masmx86/gvmat32.asm -------------------------------------------------------------------------------- /PNG/zlib/contrib/masmx86/gvmat32.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/masmx86/gvmat32.obj -------------------------------------------------------------------------------- /PNG/zlib/contrib/masmx86/inffas32.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/masmx86/inffas32.obj -------------------------------------------------------------------------------- /Entry/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | use Tk::MMutil; 3 | Tk::MMutil::TkExtMakefile( 4 | 'dynamic_ptk' => 1 5 | ); 6 | 7 | 8 | -------------------------------------------------------------------------------- /HList/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | use Tk::MMutil; 3 | Tk::MMutil::TkExtMakefile( 4 | 'dynamic_ptk' => 1 5 | ); 6 | 7 | 8 | -------------------------------------------------------------------------------- /Listbox/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | use Tk::MMutil; 3 | Tk::MMutil::TkExtMakefile( 4 | 'dynamic_ptk' => 1 5 | ); 6 | 7 | 8 | -------------------------------------------------------------------------------- /NBFrame/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | use Tk::MMutil; 3 | Tk::MMutil::TkExtMakefile( 4 | 'dynamic_ptk' => 1 5 | ); 6 | 7 | 8 | -------------------------------------------------------------------------------- /PNG/libpng/contrib/gregbook/toucan.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/gregbook/toucan.png -------------------------------------------------------------------------------- /PNG/zlib/contrib/masmx64/inffasx64.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/masmx64/inffasx64.obj -------------------------------------------------------------------------------- /TList/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | use Tk::MMutil; 3 | Tk::MMutil::TkExtMakefile( 4 | 'dynamic_ptk' => 1 5 | ); 6 | 7 | 8 | -------------------------------------------------------------------------------- /Text/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | use Tk::MMutil; 3 | Tk::MMutil::TkExtMakefile( 4 | 'dynamic_ptk' => 1 5 | ); 6 | 7 | 8 | -------------------------------------------------------------------------------- /TixGrid/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | use Tk::MMutil; 3 | Tk::MMutil::TkExtMakefile( 4 | 'dynamic_ptk' => 1 5 | ); 6 | 7 | 8 | -------------------------------------------------------------------------------- /Xlib/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | use Tk::MMutil; 3 | Tk::MMutil::TkExtMakefile( 4 | 'dynamic_ptk' => 0 5 | ); 6 | 7 | 8 | -------------------------------------------------------------------------------- /pTk/deArg: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | $^I='.bak'; 3 | while (<>) 4 | { 5 | s/\b(Arg)\b/Tcl_Obj */g; 6 | print; 7 | } 8 | -------------------------------------------------------------------------------- /InputO/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | 3 | use Tk::MMutil; 4 | Tk::MMutil::TkExtMakefile( 5 | 'dynamic_ptk' => 1 6 | ); 7 | 8 | 9 | -------------------------------------------------------------------------------- /Menubutton/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | use Tk::MMutil; 3 | Tk::MMutil::TkExtMakefile( 4 | 'dynamic_ptk' => 1 5 | ); 6 | 7 | 8 | -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngsuite/basn0g01.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/pngsuite/basn0g01.png -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngsuite/basn0g02.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/pngsuite/basn0g02.png -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngsuite/basn0g04.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/pngsuite/basn0g04.png -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngsuite/basn0g08.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/pngsuite/basn0g08.png -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngsuite/basn0g16.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/pngsuite/basn0g16.png -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngsuite/basn2c08.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/pngsuite/basn2c08.png -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngsuite/basn2c16.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/pngsuite/basn2c16.png -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngsuite/basn3p01.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/pngsuite/basn3p01.png -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngsuite/basn3p02.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/pngsuite/basn3p02.png -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngsuite/basn3p04.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/pngsuite/basn3p04.png -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngsuite/basn3p08.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/pngsuite/basn3p08.png -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngsuite/basn4a08.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/pngsuite/basn4a08.png -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngsuite/basn4a16.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/pngsuite/basn4a16.png -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngsuite/basn6a08.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/pngsuite/basn6a08.png -------------------------------------------------------------------------------- /PNG/libpng/contrib/pngsuite/basn6a16.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/pngsuite/basn6a16.png -------------------------------------------------------------------------------- /PNG/libpng/contrib/visupng/VisualPng.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/visupng/VisualPng.ico -------------------------------------------------------------------------------- /PNG/libpng/contrib/visupng/VisualPng.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/contrib/visupng/VisualPng.png -------------------------------------------------------------------------------- /PNG/libpng/projects/beos/x86-shared.proj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/projects/beos/x86-shared.proj -------------------------------------------------------------------------------- /PNG/libpng/projects/beos/x86-static.proj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/libpng/projects/beos/x86-static.proj -------------------------------------------------------------------------------- /PNG/zlib/contrib/masmx64/bld_ml64.bat: -------------------------------------------------------------------------------- 1 | ml64.exe /Flinffasx64 /c /Zi inffasx64.asm 2 | ml64.exe /Flgvmat64 /c /Zi gvmat64.asm 3 | -------------------------------------------------------------------------------- /demos/demos/widtrib/lib/npuz/Xcamel.npuz: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/demos/demos/widtrib/lib/npuz/Xcamel.npuz -------------------------------------------------------------------------------- /PNG/zlib/contrib/dotzlib/DotZLib/Deflater.cs: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/dotzlib/DotZLib/Deflater.cs -------------------------------------------------------------------------------- /PNG/zlib/contrib/dotzlib/DotZLib/DotZLib.cs: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/dotzlib/DotZLib/DotZLib.cs -------------------------------------------------------------------------------- /PNG/zlib/contrib/dotzlib/DotZLib/Inflater.cs: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/dotzlib/DotZLib/Inflater.cs -------------------------------------------------------------------------------- /PNG/zlib/contrib/masmx86/bld_ml32.bat: -------------------------------------------------------------------------------- 1 | ml /coff /Zi /c /Flgvmat32.lst gvmat32.asm 2 | ml /coff /Zi /c /Flinffas32.lst inffas32.asm 3 | -------------------------------------------------------------------------------- /examples/geom: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | use Tk; 4 | 5 | $mw = MainWindow->new(); 6 | $mw->geometry('-0-0'); 7 | MainLoop; 8 | -------------------------------------------------------------------------------- /wal: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | truss -topen -o /tmp/wal perl -Mblib "$@" 3 | perl -ne 'print "$1\n" if (m#(Tk/.*)\.al.*=\s+\d+#)' /tmp/wal 4 | 5 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/dotzlib/DotZLib/CodecBase.cs: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/dotzlib/DotZLib/CodecBase.cs -------------------------------------------------------------------------------- /PNG/zlib/contrib/dotzlib/DotZLib/GZipStream.cs: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/dotzlib/DotZLib/GZipStream.cs -------------------------------------------------------------------------------- /PNG/zlib/contrib/dotzlib/DotZLib/UnitTests.cs: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/dotzlib/DotZLib/UnitTests.cs -------------------------------------------------------------------------------- /Xlib/X/Makefile.PL: -------------------------------------------------------------------------------- 1 | use Tk::MMutil; 2 | Tk::MMutil::TkExtMakefile( 3 | NAME => 'Tk::X', 4 | 'dynamic_ptk' => 0 5 | ); 6 | 7 | -------------------------------------------------------------------------------- /DragDrop/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | use Tk::MMutil; 3 | 4 | Tk::MMutil::TkExtMakefile( 5 | 'linkext' => { LINKTYPE => ''} 6 | ); 7 | 8 | 9 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/dotzlib/DotZLib/ChecksumImpl.cs: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/dotzlib/DotZLib/ChecksumImpl.cs -------------------------------------------------------------------------------- /vg: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | PERL_DESTRUCT_LEVEL=2 valgrind --num-callers=8 --leak-resolution=high \ 3 | --leak-check=yes --show-reachable=yes "$@" 4 | 5 | -------------------------------------------------------------------------------- /Extensions/ImageBack/MANIFEST: -------------------------------------------------------------------------------- 1 | ImageBack.d 2 | ImageBack.pm 3 | ImageBack.xs 4 | MANIFEST 5 | MANIFEST.SKIP 6 | Makefile.PL 7 | README 8 | background 9 | -------------------------------------------------------------------------------- /PNG/libpng/scripts/SCOPTIONS.ppc: -------------------------------------------------------------------------------- 1 | OPTIMIZE 2 | OPTPEEP 3 | OPTTIME 4 | OPTSCHED 5 | AUTOREGISTER 6 | PARMS=REGISTERS 7 | INCLUDEDIR=hlp:ppc/include 8 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/dotzlib/DotZLib/CircularBuffer.cs: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tux/perl-tk/master/PNG/zlib/contrib/dotzlib/DotZLib/CircularBuffer.cs -------------------------------------------------------------------------------- /pTk/tkWin.qexc: -------------------------------------------------------------------------------- 1 | Lang_WinEvent 2 | Tk_AttachHWND 3 | Tk_GetHINSTANCE 4 | Tk_GetHWND 5 | Tk_HWNDToWindow 6 | Tk_PointerEvent 7 | Tk_TranslateWinEvent 8 | -------------------------------------------------------------------------------- /PNG/zlib/win32/VisualC.txt: -------------------------------------------------------------------------------- 1 | 2 | To build zlib using the Microsoft Visual C++ environment, 3 | use the appropriate project from the projects/ directory. 4 | -------------------------------------------------------------------------------- /config/copstashset.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include 3 | #include 4 | 5 | int main() { 6 | CopSTASH_set(PL_curcop, NULL); 7 | } 8 | -------------------------------------------------------------------------------- /pTk/imgInt.exc: -------------------------------------------------------------------------------- 1 | ImgGetStringFromObj 2 | ImgInitTIFFjpeg 3 | ImgInitTIFFpixar 4 | ImgInitTIFFzip 5 | ImgLoadFailed 6 | ImgLoadJpegLibrary 7 | ImgLoadLib 8 | -------------------------------------------------------------------------------- /Event/tclPlatEvent.c: -------------------------------------------------------------------------------- 1 | #define TCL_EVENT_IMPLEMENT 2 | #ifdef WIN32 3 | #include "../pTk/exWinHandle.c" 4 | #else 5 | #include "../pTk/tclUnixEvent.c" 6 | #endif 7 | -------------------------------------------------------------------------------- /Event/tclPlatTime.c: -------------------------------------------------------------------------------- 1 | #define TCL_EVENT_IMPLEMENT 2 | #ifdef WIN32 3 | #include "../pTk/tclWinTime.c" 4 | #else 5 | #include "../pTk/tclUnixTime.c" 6 | #endif 7 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/puff/Makefile: -------------------------------------------------------------------------------- 1 | puff: puff.c puff.h 2 | cc -DTEST -o puff puff.c 3 | 4 | test: puff 5 | puff zeros.raw 6 | 7 | clean: 8 | rm -f puff puff.o 9 | -------------------------------------------------------------------------------- /TixPixmap/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | use Tk::MMutil; 3 | Tk::MMutil::TkExtMakefile( 4 | 'NAME' => 'Tk::Pixmap', 5 | 'dynamic_ptk' => 1 6 | ); 7 | 8 | 9 | -------------------------------------------------------------------------------- /PNG/zlib/old/README: -------------------------------------------------------------------------------- 1 | This directory contains files that have not been updated for zlib 1.2.x 2 | 3 | (Volunteers are encouraged to help clean this up. Thanks.) 4 | -------------------------------------------------------------------------------- /Tixish/lib/Tk/balArrow.xbm: -------------------------------------------------------------------------------- 1 | #define balArrow_width 6 2 | #define balArrow_height 6 3 | static char balArrow_bits[] = { 4 | 0x1f, 0x07, 0x07, 0x09, 0x11, 0x20}; 5 | -------------------------------------------------------------------------------- /pTk/mTk/langmerge: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | tcl=${HOME}/tcl 3 | cp ../Lang.h . 4 | chmod +w Lang.h 5 | merge Lang.h $tcl/tcl7.6p2/generic/tcl.h $tcl/tcl8.0b2/generic/tcl.h 6 | -------------------------------------------------------------------------------- /DragDrop/Win32Site/Makefile.PL: -------------------------------------------------------------------------------- 1 | use Tk::MMutil; 2 | Tk::MMutil::TkExtMakefile( 3 | NAME => 'Tk::DragDrop::Win32Site', 4 | 'dynamic_ptk' => 1 5 | ); 6 | 7 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/masmx86/mkasm.bat: -------------------------------------------------------------------------------- 1 | cl /DASMV /I..\.. /O2 /c gvmat32c.c 2 | ml /coff /Zi /c /Flgvmat32.lst gvmat32.asm 3 | ml /coff /Zi /c /Flinffas32.lst inffas32.asm 4 | -------------------------------------------------------------------------------- /.whitesource: -------------------------------------------------------------------------------- 1 | { 2 | "generalSettings": { 3 | "shouldScanRepo": true 4 | }, 5 | "checkRunSettings": { 6 | "vulnerableCheckRunConclusionLevel": "failure" 7 | } 8 | } -------------------------------------------------------------------------------- /Tk/Xrm.pm: -------------------------------------------------------------------------------- 1 | package Tk::Xrm; 2 | 3 | use vars qw($VERSION); 4 | $VERSION = '4.005'; # $Id: //depot/Tkutf8/Tk/Xrm.pm#4 $ 5 | 6 | use Tk (); 7 | 1; 8 | __END__ 9 | 10 | -------------------------------------------------------------------------------- /xt/skip_all_font.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl -w 2 | # -*- perl -*- 3 | 4 | print "1..0 # SKIP Cannot create Label widget (maybe no fonts are available at all?)\n"; 5 | 6 | __END__ 7 | -------------------------------------------------------------------------------- /config/pregcomp2.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include 3 | #include 4 | 5 | int main() { 6 | SV* sv = newSViv(0); 7 | regexp* rx = pregcomp(sv, 0); 8 | } 9 | -------------------------------------------------------------------------------- /pTk/mTk/tixGeneric/pTk.exc: -------------------------------------------------------------------------------- 1 | tixClass.c 2 | tixCmds.c 3 | tixGeometry.c 4 | tixInit.c 5 | tixMethod.c 6 | tixOption.c 7 | tixItcl.c 8 | tixItcl.h 9 | tixWidget.c 10 | 11 | -------------------------------------------------------------------------------- /t/pod.t: -------------------------------------------------------------------------------- 1 | # -*- coding:utf-8; -*- 2 | use Test::More; 3 | eval "use Test::Pod 1.00"; 4 | plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; 5 | all_pod_files_ok(); 6 | -------------------------------------------------------------------------------- /Tk/Credits: -------------------------------------------------------------------------------- 1 | The two Camel/X 'logo' GIFs were produced by : 2 | 3 | Grafix, Sussex, UK, +44-1293-886725 4 | 5 | For a very reasonable fee. We have rights to distribute them. 6 | 7 | 8 | -------------------------------------------------------------------------------- /xt/skip_all_mw.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl -w 2 | # -*- perl -*- 3 | 4 | print "1..0 # SKIP Cannot create MainWindow (maybe no X11 server is running or DISPLAY is not set?)\n"; 5 | 6 | __END__ 7 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/blast/Makefile: -------------------------------------------------------------------------------- 1 | blast: blast.c blast.h 2 | cc -DTEST -o blast blast.c 3 | 4 | test: blast 5 | blast < test.pk | cmp - test.txt 6 | 7 | clean: 8 | rm -f blast blast.o 9 | -------------------------------------------------------------------------------- /Scale/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | use Tk::MMutil; 3 | Tk::MMutil::TkExtMakefile( 4 | ($^O eq 'MSWin32' ? () : ('LIBS' => ["-lm"])), 5 | 'dynamic_ptk' => 1 6 | ); 7 | 8 | 9 | -------------------------------------------------------------------------------- /demos/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | 3 | use Tk::MMutil; 4 | Tk::MMutil::TkExtMakefile( 5 | 'EXE_FILES' => ['widget'], 6 | 'linkext' => { LINKTYPE => ''} 7 | ); 8 | 9 | 10 | -------------------------------------------------------------------------------- /pTk/mkneed: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | files=`ls *.o | grep -v '_f\.o$'` 3 | ld -r -o /tmp/junk $files ../*Glue.o -lX11 -lm -lc 4 | nm -p /tmp/junk | grep ' U ' | grep -v 'Perl_' > rneed 5 | ned rneed 6 | -------------------------------------------------------------------------------- /Tixish/Makefile.PL: -------------------------------------------------------------------------------- 1 | use Tk::MMutil; 2 | 3 | Tk::MMutil::TkExtMakefile( 4 | DISTNAME => "Tixish", 5 | VERSION => '1.1', 6 | 'dist' => { COMPRESS => 'gzip', SUFFIX => 'gz' } 7 | ); 8 | -------------------------------------------------------------------------------- /config/perlrx.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include 3 | #include 4 | 5 | int main() { 6 | regexp re; 7 | void *p; 8 | p = re.offs; 9 | return 0; 10 | } 11 | -------------------------------------------------------------------------------- /pTk/strdup.c: -------------------------------------------------------------------------------- 1 | #include "tkPort.h" 2 | char * 3 | strdup(s) 4 | const char *s; 5 | { 6 | char *p = (char *) malloc(strlen(s)+1); 7 | if (p) 8 | strcpy(p,s); 9 | return p; 10 | } 11 | 12 | -------------------------------------------------------------------------------- /Canvas/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | 3 | use Tk::MMutil; 4 | Tk::MMutil::TkExtMakefile( 5 | ($^O eq 'MSWin32' ? () : ('LIBS' => ["-lm"])), 6 | 'dynamic_ptk' => 1 7 | ); 8 | 9 | 10 | -------------------------------------------------------------------------------- /Extensions/ImageBack/Makefile.PL: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | use Tk::MMutil; 5 | Tk::MMutil::TkExtMakefile( 6 | 'XS_VERSION' => $Tk::Config::VERSION, 7 | # 'dynamic_ptk' => 1 8 | ); 9 | 10 | -------------------------------------------------------------------------------- /config/pmop.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include 3 | #include 4 | 5 | int main() { 6 | struct pmop op; 7 | op.op_pmdynflags = 0; 8 | op.op_pmpermflags = 0; 9 | } 10 | -------------------------------------------------------------------------------- /examples/icon: -------------------------------------------------------------------------------- 1 | #!/tools/local/perl -w 2 | use Tk; 3 | my $mw = MainWindow->new; 4 | my $image = $mw->Photo('-file' => Tk->findINC("icon.gif")); 5 | $mw->iconimage($image); 6 | $mw->iconify; 7 | MainLoop; 8 | -------------------------------------------------------------------------------- /pTk/mTk/tixWin/pTk.exc: -------------------------------------------------------------------------------- 1 | tixWCmpt.c 2 | tixWinMain.c 3 | tixWinWm.c 4 | tkConsole41.c 5 | tkConsole42.c 6 | tkConsole80.c 7 | tkConsole80a1.c 8 | tkConsole80b1.c 9 | tkConsole80b2.c 10 | winDumpExts.c -------------------------------------------------------------------------------- /Xlib/README: -------------------------------------------------------------------------------- 1 | 2 | This module will is designed to be "loaded" after its parent nTk. 3 | 4 | It should be regared as very experimental. 5 | 6 | It works a bit under Solaris2.3, it is broken under SunOS4.1.3... 7 | -------------------------------------------------------------------------------- /Text/README: -------------------------------------------------------------------------------- 1 | This directory is an example of how I hope Widgets can be made loadable. 2 | 3 | This builds Text widget again as DynaLoader loadable version. 4 | 5 | It is disabled by default as testing is incomplete. 6 | -------------------------------------------------------------------------------- /TextList/README: -------------------------------------------------------------------------------- 1 | TextList.pm is a package that implements a listbox using ROText. 2 | This allows tags to be placed on individual characters in the listbox, 3 | rather than being limited to an entire line entry. 4 | 5 | -------------------------------------------------------------------------------- /check_source: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | for mod in blib/lib/Tk/*.pm; do 3 | echo "********* $mod **************************" 4 | perl -Mblib -Mstrict -w $mod 2>&1 | grep -v '^Using /' 5 | echo 6 | done 7 | 8 | -------------------------------------------------------------------------------- /pTk/mTk/tclGeneric/pTk.inc: -------------------------------------------------------------------------------- 1 | tclAsync.c 2 | tclEvent.c 3 | tclHash.c 4 | tclNotify.c 5 | tclPreserve.c 6 | tclMath.h 7 | tclTimer.c 8 | tclDecls.h 9 | tclIntDecls.h 10 | tclIntPlatDecls.h 11 | tclPlatDecls.h 12 | -------------------------------------------------------------------------------- /pTk/config/Hstrdup.c: -------------------------------------------------------------------------------- 1 | #include 2 | 3 | #define STRING "Whatever" 4 | 5 | int main() 6 | {char *e; 7 | char *p = strdup(STRING); 8 | if (!p || strcmp(p,STRING)) 9 | exit(1); 10 | return 0; 11 | } 12 | 13 | -------------------------------------------------------------------------------- /demos/demos/widget_lib/dirtree.pl: -------------------------------------------------------------------------------- 1 | # DirTree, display directory tree. 2 | 3 | use Tk; 4 | use Tk::DirTree; 5 | my $top = MainWindow->new; 6 | my $dl = $top->Scrolled('DirTree')->pack(-expand => 1 , -fill => 'both'); 7 | MainLoop; 8 | -------------------------------------------------------------------------------- /examples/lsfonts: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | use Tk; 4 | use Tk::Xlib; 5 | 6 | my $mw = MainWindow->new; 7 | 8 | foreach ($mw->Display->XListFonts('-*-Times-*',32768)) 9 | { 10 | print "$_\n"; 11 | } 12 | 13 | 14 | -------------------------------------------------------------------------------- /pTk/config/Hstrtoul.c: -------------------------------------------------------------------------------- 1 | #include 2 | 3 | int main() 4 | {char *e; 5 | unsigned long v = strtoul("DEADFACEgibberish",&e,16); 6 | if (v != 0xDEADFACEL || strcmp(e,"gibberish")) 7 | exit(1); 8 | return 0; 9 | } 10 | -------------------------------------------------------------------------------- /DragDrop/Win32Site/Win32Drop.pm: -------------------------------------------------------------------------------- 1 | package Tk::DragDrop::Win32Drop; 2 | # Dummy placeholder for symetry 3 | 4 | use vars qw($VERSION); 5 | $VERSION = '4.004'; # $Id: //depot/Tkutf8/DragDrop/Win32Site/Win32Drop.pm#4 $ 6 | 7 | use Tk (); 8 | 1; 9 | -------------------------------------------------------------------------------- /JPEG/jpeg/makvms.opt: -------------------------------------------------------------------------------- 1 | ! A pointer to the VAX/VMS C Run-Time Shareable Library. 2 | ! This file is needed by makefile.mms and makefile.vms, 3 | ! but only for the older VAX C compiler. DEC C does not need it. 4 | Sys$Library:VAXCRTL.EXE /Share 5 | -------------------------------------------------------------------------------- /Tk/folder.xbm: -------------------------------------------------------------------------------- 1 | #define folder_width 16 2 | #define folder_height 10 3 | static unsigned char folder_bits[] = { 4 | 0xfc, 0x00, 0x02, 0x07, 0x01, 0x08, 0x01, 0x08, 0x01, 0x08, 0x01, 0x08, 5 | 0x01, 0x08, 0x01, 0x08, 0x01, 0x08, 0xff, 0x07}; 6 | -------------------------------------------------------------------------------- /Xlib/load: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use strict; 3 | use Tk; 4 | use Tk::Xlib; 5 | use Tk::X; 6 | 7 | my $mw = MainWindow->new; 8 | 9 | 10 | $mw->Button(-text => 'Quit', -command => [destroy => $mw])->pack; 11 | MainLoop; 12 | 13 | -------------------------------------------------------------------------------- /config/regexp511.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include 3 | #include 4 | 5 | int main() { 6 | SV* sv = newSViv(0); 7 | REGEXP* rx = pregcomp(sv, 0); 8 | regexp *const re = (struct regexp *)SvANY(rx); 9 | } 10 | -------------------------------------------------------------------------------- /config/svtrv.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include 3 | #include 4 | 5 | int main() { 6 | int i = 0; 7 | switch (i) { 8 | case SVt_RV: 9 | case SVt_IV: 10 | /* something */ 11 | break; 12 | } 13 | } 14 | -------------------------------------------------------------------------------- /pTk/tixVars.c: -------------------------------------------------------------------------------- 1 | #include "tixInt.h" 2 | Tk_Uid tixNormalUid = (Tk_Uid)NULL; 3 | Tk_Uid tixCellUid = (Tk_Uid)NULL; 4 | Tk_Uid tixRowUid = (Tk_Uid)NULL; 5 | Tk_Uid tixColumnUid = (Tk_Uid)NULL; 6 | Tk_Uid tixDisabledUid = (Tk_Uid)NULL; 7 | 8 | -------------------------------------------------------------------------------- /pod/getSaveFile.pod: -------------------------------------------------------------------------------- 1 | =head1 NAME 2 | 3 | Tk::getSaveFile - pop up a dialog box for the user to select a file to save. 4 | 5 | =for category Popups and Dialogs 6 | 7 | =head1 DESCRIPTION 8 | 9 | See L. 10 | 11 | =cut 12 | -------------------------------------------------------------------------------- /pTk/bitmaps/info.bmp: -------------------------------------------------------------------------------- 1 | #define info_width 8 2 | #define info_height 21 3 | static unsigned char info_bits[] = { 4 | 0x3c, 0x2a, 0x16, 0x2a, 0x14, 0x00, 0x00, 0x3f, 0x15, 0x2e, 0x14, 0x2c, 5 | 0x14, 0x2c, 0x14, 0x2c, 0x14, 0x2c, 0xd7, 0xab, 0x55}; 6 | -------------------------------------------------------------------------------- /pTk/bitmaps/warning.bmp: -------------------------------------------------------------------------------- 1 | #define warning_width 6 2 | #define warning_height 19 3 | static unsigned char warning_bits[] = { 4 | 0x0c, 0x16, 0x2b, 0x15, 0x2b, 0x15, 0x2b, 0x16, 0x0a, 0x16, 0x0a, 0x16, 5 | 0x0a, 0x00, 0x00, 0x1e, 0x0a, 0x16, 0x0a}; 6 | -------------------------------------------------------------------------------- /pod/README: -------------------------------------------------------------------------------- 1 | Naming convention: 2 | 3 | Widgets have initial upper case letter to match their class name 4 | e.g. Button.pod 5 | 6 | Methods when documented away from a class also match their names 7 | which should start with lower case e.g. focus.pod 8 | -------------------------------------------------------------------------------- /t/magic.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | # -*- perl -*- 3 | use strict; 4 | use Test; 5 | use Tk; 6 | 7 | plan tests => 1; 8 | 9 | my $mw = MainWindow->new; 10 | my $foo = "\260"; 11 | $mw->Label(-textvariable => \$foo); 12 | ok($foo, "\260"); 13 | 14 | -------------------------------------------------------------------------------- /pTk/mTk/win/mkd.bat: -------------------------------------------------------------------------------- 1 | @echo off 2 | rem RCS: @(#) $Id: mkd.bat,v 1.5 2001/11/13 02:46:23 davygrvy Exp $ 3 | 4 | if exist %1\nul goto end 5 | 6 | md %1 7 | if errorlevel 1 goto end 8 | 9 | echo Created directory %1 10 | 11 | :end 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /Tk/act_folder.xbm: -------------------------------------------------------------------------------- 1 | #define act_folder_width 16 2 | #define act_folder_height 10 3 | static unsigned char act_folder_bits[] = { 4 | 0xfc, 0x00, 0xaa, 0x0f, 0x55, 0x15, 0xeb, 0xff, 0x15, 0x80, 0x0b, 0x40, 5 | 0x05, 0x20, 0x03, 0x10, 0x01, 0x08, 0xff, 0x07}; 6 | -------------------------------------------------------------------------------- /Tk/file.xbm: -------------------------------------------------------------------------------- 1 | #define file_width 12 2 | #define file_height 12 3 | static unsigned char file_bits[] = { 4 | 0xfe, 0x00, 0x02, 0x03, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 5 | 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0xfe, 0x03}; 6 | -------------------------------------------------------------------------------- /Tk/openfolder.xbm: -------------------------------------------------------------------------------- 1 | #define openfolder_width 16 2 | #define openfolder_height 10 3 | static unsigned char openfolder_bits[] = { 4 | 0xfc, 0x00, 0x02, 0x07, 0x01, 0x08, 0xc1, 0xff, 0x21, 0x80, 0x11, 0x40, 5 | 0x09, 0x20, 0x05, 0x10, 0x03, 0x08, 0xff, 0x07}; 6 | -------------------------------------------------------------------------------- /config/unsigned.c: -------------------------------------------------------------------------------- 1 | int main() 2 | { 3 | char x[] = "\377"; 4 | if (x[0] > 0) 5 | { 6 | printf("char is unsigned type\n"); 7 | exit(0); 8 | } 9 | else 10 | { 11 | printf("char is signed type\n"); 12 | exit(1); 13 | } 14 | } 15 | 16 | -------------------------------------------------------------------------------- /Tk/arrowdownwin.xbm: -------------------------------------------------------------------------------- 1 | #define arrowdownwin2_width 9 2 | #define arrowdownwin2_height 13 3 | static char arrowdownwin2_bits[] = { 4 | 0x00,0xfe,0x00,0xfe,0x00,0xfe,0x00,0xfe,0x00,0xfe,0x7c,0xfe,0x38,0xfe,0x10, 5 | 0xfe,0x00,0xfe,0x00,0xfe,0x00,0xfe,0x00,0xfe,0x00,0xfe}; 6 | -------------------------------------------------------------------------------- /db57: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | cat < .gdbinit 3 | handle SIGWINCH pass nostop noprint 4 | break XS_DynaLoader_dl_find_symbol 5 | run -Mblib $* 6 | shared 7 | break Perl_vcroak 8 | break Perl_vwarn 9 | break Perl_warner 10 | break Perl_vdie 11 | ! 12 | gdb perl5.7.0 13 | -------------------------------------------------------------------------------- /pTk/tix.exc: -------------------------------------------------------------------------------- 1 | Tix_CreateCommands 2 | Tix_DefinePixmap 3 | Tix_EvalArgv 4 | Tix_ExistMethod 5 | Tix_Exit 6 | Tix_Init 7 | Tix_LoadTclLibrary 8 | Tix_OpenStdin 9 | Tix_SetArgv 10 | Tix_SetRcFileName 11 | tixConfigItemStyle 12 | tixConfigItemType 13 | tixConfigRelief 14 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/delphi/ZLibConst.pas: -------------------------------------------------------------------------------- 1 | unit ZLibConst; 2 | 3 | interface 4 | 5 | resourcestring 6 | sTargetBufferTooSmall = 'ZLib error: target buffer may be too small'; 7 | sInvalidStreamOp = 'Invalid stream operation'; 8 | 9 | implementation 10 | 11 | end. 12 | -------------------------------------------------------------------------------- /Tk/openfile.xbm: -------------------------------------------------------------------------------- 1 | #define openfile_width 16 2 | #define openfile_height 12 3 | static unsigned char openfile_bits[] = { 4 | 0x00, 0x00, 0xfc, 0x00, 0x02, 0x07, 0x01, 0x08, 0xc1, 0xff, 0xa1, 0xaa, 5 | 0x51, 0x55, 0xa9, 0x2a, 0x55, 0x15, 0xab, 0x0a, 0xff, 0x07, 0x00, 0x00}; 6 | -------------------------------------------------------------------------------- /Tixish/lib/Tk/arrowdownwin.xbm: -------------------------------------------------------------------------------- 1 | #define arrowdownwin2_width 9 2 | #define arrowdownwin2_height 13 3 | static char arrowdownwin2_bits[] = { 4 | 0x00,0xfe,0x00,0xfe,0x00,0xfe,0x00,0xfe,0x00,0xfe,0x7c,0xfe,0x38,0xfe,0x10, 5 | 0xfe,0x00,0xfe,0x00,0xfe,0x00,0xfe,0x00,0xfe,0x00,0xfe}; 6 | -------------------------------------------------------------------------------- /Tk/Bitmap.pm: -------------------------------------------------------------------------------- 1 | package Tk::Bitmap; 2 | require Tk; 3 | require Tk::Image; 4 | use vars qw($VERSION); 5 | $VERSION = '4.004'; # $Id: //depot/Tkutf8/Tk/Bitmap.pm#4 $ 6 | use base qw(Tk::Image); 7 | Construct Tk::Image 'Bitmap'; 8 | sub Tk_image { 'bitmap' } 9 | 1; 10 | __END__ 11 | -------------------------------------------------------------------------------- /debug: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | cat < .gdbinit 3 | handle SIGWINCH pass nostop noprint 4 | break XS_DynaLoader_dl_find_symbol 5 | run -Mblib $* 6 | shared 7 | break Perl_warn 8 | break Perl_vcroak 9 | break Perl_vwarn 10 | break Perl_warner 11 | break Perl_vdie 12 | ! 13 | gdb perl 14 | -------------------------------------------------------------------------------- /PNG/libpng/scripts/libpng.pc.in: -------------------------------------------------------------------------------- 1 | prefix=@prefix@ 2 | exec_prefix=@exec_prefix@ 3 | libdir=@libdir@ 4 | includedir=@includedir@/libpng12 5 | 6 | Name: libpng 7 | Description: Loads and saves PNG files 8 | Version: 1.2.12 9 | Libs: -L${libdir} -lpng12 10 | Cflags: -I${includedir} 11 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/testzlib/testzlib.txt: -------------------------------------------------------------------------------- 1 | To build testzLib with Visual Studio 2005: 2 | 3 | copy to a directory file from : 4 | - root of zLib tree 5 | - contrib/testzlib 6 | - contrib/masmx86 7 | - contrib/masmx64 8 | - contrib/vstudio/vc7 9 | 10 | and open testzlib8.sln -------------------------------------------------------------------------------- /pod/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | 3 | WriteMakefile( 4 | NAME => 'Tk::pod', 5 | # DIR => [ 'pTk' ], 6 | PMLIBDIRS => [ 'pod', 'Menu' ], 7 | ); 8 | 9 | sub MY::postamble { 10 | ' 11 | html :: 12 | @echo "Sorry no HTML building yet" 13 | ' 14 | } 15 | 16 | 17 | -------------------------------------------------------------------------------- /TixGrid/fedemo: -------------------------------------------------------------------------------- 1 | use strict; 2 | use Tk; 3 | use Tk::Button; 4 | use Tk::FloatEntry; 5 | 6 | my $mw = MainWindow->new(); 7 | my $fe = $mw->FloatEntry(); 8 | 9 | my $ex = $mw->Button(-text=>'exit', -command=>[$mw,'destroy'])->grid; 10 | $fe->post(10,10); 11 | 12 | Tk::MainLoop; 13 | 14 | -------------------------------------------------------------------------------- /Tk/cbxarrow.xbm: -------------------------------------------------------------------------------- 1 | #define cbxarrow_width 11 2 | #define cbxarrow_height 14 3 | static char cbxarrow_bits[] = { 4 | 0x00, 0x00, 0x70, 0x00, 0x70, 0x00, 0x70, 0x00, 0x70, 0x00, 0x70, 0x00, 5 | 0xfe, 0x03, 0xfc, 0x01, 0xf8, 0x00, 0x70, 0x00, 0x20, 0x00, 0x00, 0x00, 6 | 0xfe, 0x03, 0xfe, 0x03}; 7 | -------------------------------------------------------------------------------- /compile/findloader: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use Config; 3 | my $sfx = $Config{'lib_ext'}; 4 | foreach my $dir (@INC) 5 | { 6 | my $path = "$dir/auto/DynaLoader/DynaLoader$sfx"; 7 | if (-f $path) 8 | { 9 | print $path,"\n"; 10 | exit(0); 11 | } 12 | } 13 | exit(1); 14 | -------------------------------------------------------------------------------- /PNG/libpng/projects/wince.txt: -------------------------------------------------------------------------------- 1 | A set of project files is available for WinCE. Get 2 | libpng-1.2.5-project-wince.zip from a libpng distribution 3 | site such as http://libpng.sourceforge.net 4 | 5 | Put the zip file in this directory (projects) and then run 6 | "unzip -a libpng-1.2.5-project-wince.zip" 7 | -------------------------------------------------------------------------------- /pTk/mTk/generic/README: -------------------------------------------------------------------------------- 1 | This directory contains Tk source files that work on all the platforms 2 | where Tk runs (e.g. UNIX, PCs, and Macintoshes). Platform-specific 3 | sources are in the directories ../unix, ../win, and ../mac. 4 | 5 | RCS ID: @(#) $Id: README,v 1.2 1998/09/14 18:23:02 stanton Exp $ 6 | -------------------------------------------------------------------------------- /Tixish/lib/Tk/cbxarrow.xbm: -------------------------------------------------------------------------------- 1 | #define cbxarrow_width 11 2 | #define cbxarrow_height 14 3 | static char cbxarrow_bits[] = { 4 | 0x00, 0x00, 0x70, 0x00, 0x70, 0x00, 0x70, 0x00, 0x70, 0x00, 0x70, 0x00, 5 | 0xfe, 0x03, 0xfc, 0x01, 0xf8, 0x00, 0x70, 0x00, 0x20, 0x00, 0x00, 0x00, 6 | 0xfe, 0x03, 0xfe, 0x03}; 7 | -------------------------------------------------------------------------------- /pTk/mTk/tclGeneric/README: -------------------------------------------------------------------------------- 1 | This directory contains Tcl source files that work on all the platforms 2 | where Tcl runs (e.g. UNIX, PCs, and Macintoshes). Platform-specific 3 | sources are in the directories ../unix, ../win, and ../mac. 4 | 5 | RCS: @(#) $Id: README,v 1.2 1998/09/14 18:39:56 stanton Exp $ 6 | -------------------------------------------------------------------------------- /PNG/libpng/projects/netware.txt: -------------------------------------------------------------------------------- 1 | A set of project files is available for Netware. Get 2 | libpng-1.2.5-project-netware.zip from a libpng distribution 3 | site such as http://libpng.sourceforge.net 4 | 5 | Put the zip file in this directory (projects) and then run 6 | "unzip -a libpng-1.2.5-project-netware.zip" 7 | -------------------------------------------------------------------------------- /Tk/win.xbm: -------------------------------------------------------------------------------- 1 | #define win.xbm_width 16 2 | #define win.xbm_height 16 3 | static char win.xbm_bits[] = { 4 | 0xff, 0xff, 0x0d, 0xb0, 0xff, 0xff, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 5 | 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 6 | 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0xff, 0xff}; 7 | -------------------------------------------------------------------------------- /demos/demos/images/pattern: -------------------------------------------------------------------------------- 1 | #define foo_width 16 2 | #define foo_height 16 3 | static char foo_bits[] = { 4 | 0x60, 0x06, 0x90, 0x09, 0x90, 0x09, 0xb0, 0x0d, 0x4e, 0x72, 0x49, 0x92, 5 | 0x71, 0x8e, 0x8e, 0x71, 0x8e, 0x71, 0x71, 0x8e, 0x49, 0x92, 0x4e, 0x72, 6 | 0xb0, 0x0d, 0x90, 0x09, 0x90, 0x09, 0x60, 0x06}; 7 | -------------------------------------------------------------------------------- /Contrib/README: -------------------------------------------------------------------------------- 1 | Files in Tk*/Contrib have been contributed by various people at 2 | various times. No attempt has been made by perl/Tk's author to 3 | verify that they work with this release of perl/Tk. 4 | 5 | Authors are encoraged to make them into finished add-on modules and 6 | maintain them in CPAN themselves. 7 | 8 | -------------------------------------------------------------------------------- /demos/demos/images/grey.25: -------------------------------------------------------------------------------- 1 | #define grey_width 16 2 | #define grey_height 16 3 | static char grey_bits[] = { 4 | 0x11, 0x11, 0x44, 0x44, 0x11, 0x11, 0x44, 0x44, 0x11, 0x11, 0x44, 0x44, 5 | 0x11, 0x11, 0x44, 0x44, 0x11, 0x11, 0x44, 0x44, 0x11, 0x11, 0x44, 0x44, 6 | 0x11, 0x11, 0x44, 0x44, 0x11, 0x11, 0x44, 0x44}; 7 | -------------------------------------------------------------------------------- /demos/demos/images/grey.5: -------------------------------------------------------------------------------- 1 | #define grey_width 16 2 | #define grey_height 16 3 | static char grey_bits[] = { 4 | 0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa, 5 | 0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa, 6 | 0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa}; 7 | -------------------------------------------------------------------------------- /bin/defunc: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl 2 | 3 | while (<>) 4 | { 5 | if (defined $func) 6 | { 7 | if (/__FUNCTION__/) 8 | { 9 | s/__FUNCTION__/"$func"/g; 10 | } 11 | undef $func if (/^}/); 12 | } 13 | else 14 | { 15 | $func = $1 if (/^(\w+)\s*\(/); 16 | } 17 | print; 18 | } 19 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/untgz/Makefile: -------------------------------------------------------------------------------- 1 | CC=cc 2 | CFLAGS=-g 3 | 4 | untgz: untgz.o ../../libz.a 5 | $(CC) $(CFLAGS) -o untgz untgz.o -L../.. -lz 6 | 7 | untgz.o: untgz.c ../../zlib.h 8 | $(CC) $(CFLAGS) -c -I../.. untgz.c 9 | 10 | ../../libz.a: 11 | cd ../..; ./configure; make 12 | 13 | clean: 14 | rm -f untgz untgz.o *~ 15 | -------------------------------------------------------------------------------- /TextList/ReindexedText.pm: -------------------------------------------------------------------------------- 1 | use strict; 2 | package Tk::ReindexedText; 3 | 4 | use vars qw($VERSION); 5 | $VERSION = '4.004'; # $Id: //depot/Tkutf8/TextList/ReindexedText.pm#4 $ 6 | 7 | use Tk::Reindex qw(Tk::Text); 8 | use base qw(Tk::Reindex Tk::Text); 9 | Construct Tk::Widget 'ReindexedText'; 10 | 11 | 1; 12 | 13 | 14 | -------------------------------------------------------------------------------- /pTk/bitmaps/gray12.bmp: -------------------------------------------------------------------------------- 1 | #define gray12_width 16 2 | #define gray12_height 16 3 | static unsigned char gray12_bits[] = { 4 | 0x00, 0x00, 0x22, 0x22, 0x00, 0x00, 0x88, 0x88, 0x00, 0x00, 0x22, 0x22, 5 | 0x00, 0x00, 0x88, 0x88, 0x00, 0x00, 0x22, 0x22, 0x00, 0x00, 0x88, 0x88, 6 | 0x00, 0x00, 0x22, 0x22, 0x00, 0x00, 0x88, 0x88}; 7 | -------------------------------------------------------------------------------- /pTk/bitmaps/gray25.bmp: -------------------------------------------------------------------------------- 1 | #define gray25_width 16 2 | #define gray25_height 16 3 | static unsigned char gray25_bits[] = { 4 | 0x00, 0x00, 0x22, 0x22, 0x00, 0x00, 0x88, 0x88, 0x00, 0x00, 0x22, 0x22, 5 | 0x00, 0x00, 0x88, 0x88, 0x00, 0x00, 0x22, 0x22, 0x00, 0x00, 0x88, 0x88, 6 | 0x00, 0x00, 0x22, 0x22, 0x00, 0x00, 0x88, 0x88}; 7 | -------------------------------------------------------------------------------- /pTk/bitmaps/gray50.bmp: -------------------------------------------------------------------------------- 1 | #define gray50_width 16 2 | #define gray50_height 16 3 | static unsigned char gray50_bits[] = { 4 | 0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa, 5 | 0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa, 6 | 0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa}; 7 | -------------------------------------------------------------------------------- /pTk/bitmaps/gray75.bmp: -------------------------------------------------------------------------------- 1 | #define gray75_width 16 2 | #define gray75_height 16 3 | static unsigned char gray75_bits[] = { 4 | 0x77, 0x77, 0xdd, 0xdd, 0x77, 0x77, 0xdd, 0xdd, 0x77, 0x77, 0xdd, 0xdd, 5 | 0x77, 0x77, 0xdd, 0xdd, 0x77, 0x77, 0xdd, 0xdd, 0x77, 0x77, 0xdd, 0xdd, 6 | 0x77, 0x77, 0xdd, 0xdd, 0x77, 0x77, 0xdd, 0xdd}; 7 | -------------------------------------------------------------------------------- /Contrib/book-examples/f-15.5.pl: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | # 4 | # Figure 15.5, p153 5 | # 6 | 7 | use Tk; 8 | 9 | my $mw = MainWindow->new; 10 | my $top = $mw->Button(-text => 'Top button'); 11 | $top->pack; 12 | my $bottom = $mw->Button(-text => 'Bottom button'); 13 | $bottom->pack; 14 | 15 | MainLoop; 16 | 17 | 18 | -------------------------------------------------------------------------------- /Contrib/book-examples/f-16.2.pl: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | # 4 | # Figure 16.2, p161 5 | # 6 | 7 | use Tk; 8 | 9 | my $bitmaps = Tk->findINC("demos/images"); 10 | my $mw = MainWindow->new; 11 | $mw->Label(-bitmap => "\@$ {bitmaps}/flagdown")->pack; 12 | $mw->Label(-text => 'No new mail')->pack; 13 | 14 | MainLoop; 15 | -------------------------------------------------------------------------------- /examples/hlfm: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use strict; 3 | use Tk; 4 | require Tk::Dirlist; 5 | require Tk::Menubar; 6 | 7 | my $mw = MainWindow->new; 8 | my $mb = $mw->Menubar(); 9 | my $dl = $mw->Scrolled('Dirlist',-directory => '.', -width => 40, -height => 40); 10 | $dl->pack(-expand => 1, -fill => 'both'); 11 | MainLoop; 12 | -------------------------------------------------------------------------------- /Extensions/ImageBack/background: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use Tk; 3 | use Tk::ImageBack; 4 | use Tk::Photo; 5 | 6 | my $mw = MainWindow->new; 7 | my $image = $mw->Photo('back', -file => Tk->findINC('icon.gif')); 8 | my $t = $mw->Frame(-width => '4i', -height => '2i')->pack; 9 | $t->ImageBackground('back'); 10 | MainLoop; 11 | -------------------------------------------------------------------------------- /PNG/config/has_png.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include 3 | #include 4 | #include 5 | 6 | int 7 | main(int argc,char *argv[]) 8 | { 9 | png_uint_32 pver = png_access_version_number(); 10 | const char *zver = zlibVersion(); 11 | if (pver > 10200 && zver[0] == '1') 12 | return 0; 13 | return 1; 14 | } 15 | -------------------------------------------------------------------------------- /TextList/ReindexedROText.pm: -------------------------------------------------------------------------------- 1 | use strict; 2 | package Tk::ReindexedROText; 3 | 4 | use vars qw($VERSION); 5 | $VERSION = '4.004'; # $Id: //depot/Tkutf8/TextList/ReindexedROText.pm#4 $ 6 | 7 | use Tk::Reindex qw(Tk::ROText); 8 | use base qw(Tk::Reindex Tk::ROText); 9 | Construct Tk::Widget 'ReindexedROText'; 10 | 11 | 1; 12 | 13 | 14 | -------------------------------------------------------------------------------- /README-Strawberry.txt: -------------------------------------------------------------------------------- 1 | Tk804.031_501 should work with 32bit and 64bit standard and portable 2 | Strawberry Perl 5.18.1.1 3 | 4 | The *portable* Strawberry Perl 5.12.3.0 has some problems with the 5 | bundled Config.pm which prevents a successful compilation of Tk. A fix 6 | is proposed in http://rt.cpan.org/Public/Bug/Display.html?id=68937 7 | 8 | -------------------------------------------------------------------------------- /pTk/bitmaps/transpnt.bmp: -------------------------------------------------------------------------------- 1 | #define transparent_width 16 2 | #define transparent_height 16 3 | static unsigned char transparent_bits[] = { 4 | 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 5 | 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 6 | 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; 7 | -------------------------------------------------------------------------------- /pTk/mTk/tclUnix/dltest/README: -------------------------------------------------------------------------------- 1 | This directory contains several files for testing Tcl's dynamic 2 | loading capabilities. If shared libraries are supported then 3 | the build system in the parent directory will create 4 | the shared libs and load them into the tcltest executable. 5 | 6 | RCS: @(#) $Id: README,v 1.3 2001/12/19 11:03:20 mdejong Exp $ 7 | -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/tk8.2/pkgIndex.tcl.in: -------------------------------------------------------------------------------- 1 | # Tcl package index file, version 1.0 2 | # 3 | # $Id: pkgIndex.tcl.in,v 1.1.2.1 2001/11/04 05:00:43 idiscovery Exp $ 4 | # 5 | package ifneeded Tix @TIX_VERSION_PKG@ [list load "@TIX_PKG_FILE@" Tix] 6 | @TIX_SAM_PACKAGE_IFNEEDED@ 7 | package ifneeded wm_default 1.0 [list source [file join $dir pref WmDefault.tcl]] 8 | -------------------------------------------------------------------------------- /TextList/Makefile.PL: -------------------------------------------------------------------------------- 1 | use Tk::MMutil; 2 | 3 | Tk::MMutil::TkExtMakefile( 4 | DISTNAME => "Tixish", 5 | VERSION => '1.1', 6 | 'dist' => { COMPRESS => 'gzip', SUFFIX => 'gz' } 7 | ); 8 | 9 | package MY; 10 | sub init_PM { 11 | my $self = shift; 12 | $self->SUPER::init_PM(@_); 13 | delete $self->{PM}->{"reindex.pl"}; 14 | } 15 | -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/tk8.0/pkgIndex.tcl.in: -------------------------------------------------------------------------------- 1 | # Tcl package index file, version 1.0 2 | # 3 | # $Id: pkgIndex.tcl.in,v 1.2.2.1 2001/11/04 05:00:43 idiscovery Exp $ 4 | # 5 | 6 | package ifneeded Tix @TIX_VERSION_PKG@ [list load "@TIX_PKG_FILE@" Tix] 7 | @TIX_SAM_PACKAGE_IFNEEDED@ 8 | package ifneeded wm_default 1.0 [list source [file join $dir pref WmDefault.tcl]] 9 | -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/tk8.1/pkgIndex.tcl.in: -------------------------------------------------------------------------------- 1 | # Tcl package index file, version 1.0 2 | # 3 | # $Id: pkgIndex.tcl.in,v 1.1.2.1 2001/11/04 05:00:43 idiscovery Exp $ 4 | # 5 | 6 | package ifneeded Tix @TIX_VERSION_PKG@ [list load "@TIX_PKG_FILE@" Tix] 7 | @TIX_SAM_PACKAGE_IFNEEDED@ 8 | package ifneeded wm_default 1.0 [list source [file join $dir pref WmDefault.tcl]] 9 | -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/tk8.3/pkgIndex.tcl.in: -------------------------------------------------------------------------------- 1 | # Tcl package index file, version 1.0 2 | # 3 | # $Id: pkgIndex.tcl.in,v 1.1.2.1 2001/11/04 05:00:43 idiscovery Exp $ 4 | # 5 | 6 | package ifneeded Tix @TIX_VERSION_PKG@ [list load "@TIX_PKG_FILE@" Tix] 7 | @TIX_SAM_PACKAGE_IFNEEDED@ 8 | package ifneeded wm_default 1.0 [list source [file join $dir pref WmDefault.tcl]] 9 | -------------------------------------------------------------------------------- /Xlib/Xlib.pm: -------------------------------------------------------------------------------- 1 | package Tk::Xlib; 2 | require DynaLoader; 3 | 4 | use vars qw($VERSION); 5 | $VERSION = '4.004'; # $Id: //depot/Tkutf8/Xlib/Xlib.pm#4 $ 6 | 7 | use Tk qw($XS_VERSION); 8 | use Exporter; 9 | 10 | use base qw(DynaLoader Exporter); 11 | @EXPORT_OK = qw(XDrawString XLoadFont XDrawRectangle); 12 | 13 | bootstrap Tk::Xlib; 14 | 15 | 1; 16 | -------------------------------------------------------------------------------- /examples/tiny: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use strict; 3 | use Tk; 4 | use Tk::widgets qw(Button); 5 | #use Carp (); 6 | #$SIG{'__DIE__'} = \&Carp::confess; 7 | 8 | my $mw = MainWindow->new(); 9 | $mw->Button(-text => 'Quit', -command => [destroy => $mw])->pack; 10 | $mw->Button(-text => 'Exit', -command => sub { exit } )->pack; 11 | MainLoop; 12 | 13 | -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/itcl3.0/pkgIndex.tcl.in: -------------------------------------------------------------------------------- 1 | # Tcl package index file, version 1.0 2 | # 3 | # $Id: pkgIndex.tcl.in,v 1.1.2.1 2001/11/04 05:00:42 idiscovery Exp $ 4 | # 5 | 6 | package ifneeded Tix @TIX_VERSION_PKG@ [list load "@TIX_PKG_FILE@" Tix] 7 | @TIX_SAM_PACKAGE_IFNEEDED@ 8 | package ifneeded wm_default 1.0 [list source [file join $dir pref WmDefault.tcl]] 9 | -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/itcl3.1/pkgIndex.tcl.in: -------------------------------------------------------------------------------- 1 | # Tcl package index file, version 1.0 2 | # 3 | # $Id: pkgIndex.tcl.in,v 1.1.2.1 2001/11/04 05:00:42 idiscovery Exp $ 4 | # 5 | 6 | package ifneeded Tix @TIX_VERSION_PKG@ [list load "@TIX_PKG_FILE@" Tix] 7 | @TIX_SAM_PACKAGE_IFNEEDED@ 8 | package ifneeded wm_default 1.0 [list source [file join $dir pref WmDefault.tcl]] 9 | -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/itcl3.2/pkgIndex.tcl.in: -------------------------------------------------------------------------------- 1 | # Tcl package index file, version 1.0 2 | # 3 | # $Id: pkgIndex.tcl.in,v 1.1.2.1 2001/11/04 05:00:42 idiscovery Exp $ 4 | # 5 | 6 | package ifneeded Tix @TIX_VERSION_PKG@ [list load "@TIX_PKG_FILE@" Tix] 7 | @TIX_SAM_PACKAGE_IFNEEDED@ 8 | package ifneeded wm_default 1.0 [list source [file join $dir pref WmDefault.tcl]] 9 | -------------------------------------------------------------------------------- /Extensions/ImageBack/ImageBack.pm: -------------------------------------------------------------------------------- 1 | package # hide from CPAN indexer 2 | Tk::ImageBack; 3 | require DynaLoader; 4 | 5 | use vars qw($VERSION); 6 | $VERSION = '4.005'; # $Id: //depot/Tkutf8/Extensions/ImageBack/ImageBack.pm#4 $ 7 | 8 | use Tk qw($XS_VERSION); 9 | use base qw(DynaLoader); 10 | 11 | bootstrap Tk::ImageBack; 12 | 13 | 1; 14 | __END__ 15 | -------------------------------------------------------------------------------- /DragDrop/DragDrop/Common.pod: -------------------------------------------------------------------------------- 1 | 2 | =head1 NAME 3 | 4 | Tk::DragDrop::Common - private class used by Drag&Drop 5 | 6 | =for pm DragDrop/DragDrop/Common.pm 7 | 8 | =for category Experimental Modules 9 | 10 | =head1 DESCRIPTION 11 | 12 | This class provides methods to automate the the loading and declaring 13 | of Drop and Site 'types'. 14 | 15 | =cut 16 | 17 | -------------------------------------------------------------------------------- /demos/demos/images/cursor.mask: -------------------------------------------------------------------------------- 1 | #define cursor_mask_width 17 2 | #define cursor_mask_height 12 3 | static char cursor_mask_bits[] = { 4 | 0x20, 0x00, 0x00, 0x90, 0x20, 0x00, 0x40, 0x40, 0x00, 0x0c, 0x40, 0x00, 5 | 0x1c, 0x8f, 0x00, 0x9c, 0xbf, 0x00, 0xfc, 0x3f, 0x01, 0xfc, 0x7f, 0x01, 6 | 0xfe, 0x7f, 0x01, 0xfe, 0xff, 0x00, 0xff, 0xff, 0x00, 0xff, 0x7f, 0x00}; 7 | -------------------------------------------------------------------------------- /Event/typemap: -------------------------------------------------------------------------------- 1 | Tcl_TimerProc * T_PTR 2 | Tcl_IdleProc * T_PTR 3 | Tcl_ExitProc * T_PTR 4 | Tcl_FileProc * T_PTR 5 | Tcl_EventProc * T_PTR 6 | ClientData T_PTR 7 | Tcl_QueuePosition T_PTR 8 | Tcl_Event * T_PTR 9 | Tcl_TimerToken T_PTR 10 | PerlIOHandler * T_TK_IOHANDLER 11 | 12 | INPUT 13 | T_TK_IOHANDLER 14 | $var = SVtoPerlIOHandler($arg) 15 | 16 | -------------------------------------------------------------------------------- /TixPixmap/Pixmap.pm: -------------------------------------------------------------------------------- 1 | package Tk::Pixmap; 2 | 3 | use vars qw($VERSION); 4 | $VERSION = '4.004'; # $Id: //depot/Tkutf8/TixPixmap/Pixmap.pm#4 $ 5 | 6 | use Tk qw($XS_VERSION); 7 | 8 | use Tk::Image (); 9 | 10 | use base qw(Tk::Image); 11 | 12 | Construct Tk::Image 'Pixmap'; 13 | 14 | bootstrap Tk::Pixmap; 15 | 16 | sub Tk_image { 'pixmap' } 17 | 18 | 1; 19 | 20 | -------------------------------------------------------------------------------- /checklen: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | use ExtUtils::Manifest "/mani/"; 4 | 5 | $files = maniread(); 6 | 7 | foreach $file (keys %$files) 8 | { 9 | my $elm; 10 | foreach $elm (split(m,/,,$file)) 11 | { 12 | my $l = length($elm); 13 | if (length($elm) > 14) 14 | { 15 | print "$l > 14 for $elm of $file\n"; 16 | } 17 | } 18 | } 19 | -------------------------------------------------------------------------------- /pTk/tk_f.h: -------------------------------------------------------------------------------- 1 | #ifndef TK_VT 2 | #define TK_VT 3 | typedef struct TkVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "tk.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } TkVtab; 12 | extern TkVtab *TkVptr; 13 | extern TkVtab *TkVGet(void); 14 | #endif /* TK_VT */ 15 | -------------------------------------------------------------------------------- /stripblib: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use File::Find; 3 | find(\&strip,'blib/arch'); 4 | 5 | sub strip 6 | { 7 | my $sz; 8 | if (-f $_ && ($sz = -s _) && -B _) 9 | { 10 | if (system("strip",$_) != 0) 11 | { 12 | warn "Cannot strip $File::Find::name\n"; 13 | } 14 | my $ns = -s $_; 15 | print "$ns $sz $File::Find::name\n"; 16 | } 17 | } 18 | -------------------------------------------------------------------------------- /InputO/InputO.pm: -------------------------------------------------------------------------------- 1 | package Tk::InputO; 2 | 3 | use vars qw($VERSION); 4 | $VERSION = '4.004'; # $Id: //depot/Tkutf8/InputO/InputO.pm#4 $ 5 | 6 | use Tk qw($XS_VERSION); 7 | 8 | use base qw(Tk::Widget); 9 | 10 | Construct Tk::Widget 'InputO'; 11 | 12 | bootstrap Tk::InputO; 13 | 14 | sub Tk_cmd { \&Tk::inputo } 15 | 16 | #Tk::Methods qw(add ...); 17 | 18 | 1; 19 | 20 | -------------------------------------------------------------------------------- /examples/tainted: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -T 2 | 3 | use Tk; 4 | 5 | print join(':',@INC),"\n"; 6 | 7 | my $command = shift; 8 | 9 | my $mw = MainWindow->new; 10 | my $b = $mw->Button(-text => 'Quit', -command => [destroy => $mw]); 11 | $b->pack; 12 | my $b = $mw->Button(-text => 'Do It', -command => sub { unlink $command } ); 13 | $b->pack; 14 | 15 | MainLoop; 16 | 17 | -------------------------------------------------------------------------------- /Tk/Labelframe.pm: -------------------------------------------------------------------------------- 1 | package Tk::Labelframe; 2 | use strict; 3 | 4 | use vars qw($VERSION); 5 | $VERSION = '4.003'; # sprintf '4.%03d', q$Revision: #2 $ =~ /#(\d+)/; 6 | 7 | # New widget which is a kind of Frame with a label ... 8 | 9 | use base qw(Tk::Frame); 10 | 11 | Construct Tk::Widget 'Labelframe'; 12 | 13 | sub Tk_cmd { \&Tk::labelframe } 14 | 15 | 1; 16 | __END__ 17 | -------------------------------------------------------------------------------- /cleanup: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use File::Find; 3 | find(\&wanted,'.'); 4 | 5 | sub wanted 6 | { 7 | return unless -f $_; 8 | if ($_ eq 'core' || /(%|~|\.(bak|bck|old|undone|orig))$/) 9 | { 10 | warn "$File::Find::name\n"; 11 | chmod(0666,$_) unless -w _; 12 | unlink($_) || warn "Cannot delete $File::Find::name\n"; 13 | } 14 | } 15 | 16 | __END__ 17 | 18 | -------------------------------------------------------------------------------- /pTk/tix_f.h: -------------------------------------------------------------------------------- 1 | #ifndef TIX_VT 2 | #define TIX_VT 3 | typedef struct TixVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "tix.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } TixVtab; 12 | extern TixVtab *TixVptr; 13 | extern TixVtab *TixVGet(void); 14 | #endif /* TIX_VT */ 15 | -------------------------------------------------------------------------------- /pTk/tk_f.c: -------------------------------------------------------------------------------- 1 | #include "tk.h" 2 | #include "tk_f.h" 3 | static unsigned TkVSize(void) { return sizeof(TkVtab);} 4 | static TkVtab TkVtable = 5 | { 6 | TkVSize, 7 | #define VFUNC(type,name,mem,args) name, 8 | #define VVAR(type,name,mem) &name, 9 | #include "tk.t" 10 | #undef VFUNC 11 | #undef VVAR 12 | }; 13 | TkVtab *TkVptr; 14 | TkVtab *TkVGet() { return TkVptr = &TkVtable;} 15 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/untgz/Makefile.msc: -------------------------------------------------------------------------------- 1 | CC=cl 2 | CFLAGS=-MD 3 | 4 | untgz.exe: untgz.obj ..\..\zlib.lib 5 | $(CC) $(CFLAGS) untgz.obj ..\..\zlib.lib 6 | 7 | untgz.obj: untgz.c ..\..\zlib.h 8 | $(CC) $(CFLAGS) -c -I..\.. untgz.c 9 | 10 | ..\..\zlib.lib: 11 | cd ..\.. 12 | $(MAKE) -f win32\makefile.msc 13 | cd contrib\untgz 14 | 15 | clean: 16 | -del untgz.obj 17 | -del untgz.exe 18 | -------------------------------------------------------------------------------- /Tk/file.xpm: -------------------------------------------------------------------------------- 1 | /* XPM */ 2 | static char * file_xpm[] = { 3 | "12 12 3 1", 4 | " s None c None", 5 | ". c #000000000000", 6 | "X c white", 7 | " ........ ", 8 | " .XXXXXX. ", 9 | " .XXXXXX... ", 10 | " .XXXXXXXX. ", 11 | " .XXXXXXXX. ", 12 | " .XXXXXXXX. ", 13 | " .XXXXXXXX. ", 14 | " .XXXXXXXX. ", 15 | " .XXXXXXXX. ", 16 | " .XXXXXXXX. ", 17 | " .XXXXXXXX. ", 18 | " .......... "}; 19 | -------------------------------------------------------------------------------- /demos/demos/widget_lib/labframe.pl: -------------------------------------------------------------------------------- 1 | # LabFrame, frame with embedded label. 2 | 3 | use Tk; 4 | use Tk::LabFrame; 5 | use Tk::LabEntry; 6 | 7 | my $test = 'Test this'; 8 | 9 | my $top = MainWindow->new; 10 | my $f = $top->LabFrame(-label => "This is a label", -labelside => "acrosstop"); 11 | $f->LabEntry(-label => "Testing", -textvariable => \$test)->pack; 12 | $f->pack; 13 | MainLoop; 14 | -------------------------------------------------------------------------------- /examples/try: -------------------------------------------------------------------------------- 1 | use blib; 2 | use Tk; 3 | my $mw = MainWindow->new; 4 | my $kind = shift; 5 | die "usage: $0 widgetclass" if !$kind; 6 | require "Tk/$kind.pm"; 7 | my $w = $mw->$kind(); 8 | if ($w->isa('Tk::Wm')) 9 | { 10 | $w->deiconify; 11 | } 12 | else 13 | { 14 | $w->pack; 15 | } 16 | $mw->update; 17 | $mw->after(1000); 18 | $mw->after(5000,[destroy => $mw]); 19 | MainLoop; 20 | -------------------------------------------------------------------------------- /pod/widgets.pod: -------------------------------------------------------------------------------- 1 | 2 | =head1 NAME 3 | 4 | Tk::widgets - preload widget classes 5 | 6 | =for pm Tk/widgets.pm 7 | 8 | =for category Implementation 9 | 10 | =head1 SYNOPSIS 11 | 12 | use Tk::widgets qw(Button Label Frame); 13 | 14 | =head1 DESCRIPTION 15 | 16 | Does a 'require Tk::Foo' for each 'Foo' in the list. 17 | May speed startup by avoiding AUTOLOADs. 18 | 19 | =cut 20 | 21 | -------------------------------------------------------------------------------- /Tk/srcfile.xpm: -------------------------------------------------------------------------------- 1 | /* XPM */ 2 | static char * srcfile_xpm[] = { 3 | "12 12 3 1", 4 | " s None c None", 5 | ". c #000000000000", 6 | "X c gray91", 7 | " ........ ", 8 | " .XXXXXX. ", 9 | " .XXXXXX... ", 10 | " .XXXXXXXX. ", 11 | " .XX...XXX. ", 12 | " .X.XXX.XX. ", 13 | " .X.XXXXXX. ", 14 | " .X.XXXXXX. ", 15 | " .XX....XX. ", 16 | " .XXXXXXXX. ", 17 | " .XXXXXXXX. ", 18 | " .......... "}; 19 | -------------------------------------------------------------------------------- /pTk/Lang_f.h: -------------------------------------------------------------------------------- 1 | #ifndef LANG_VT 2 | #define LANG_VT 3 | typedef struct LangVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "Lang.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } LangVtab; 12 | extern LangVtab *LangVptr; 13 | extern LangVtab *LangVGet(void); 14 | #endif /* LANG_VT */ 15 | -------------------------------------------------------------------------------- /pTk/Xlib_f.h: -------------------------------------------------------------------------------- 1 | #ifndef XLIB_VT 2 | #define XLIB_VT 3 | typedef struct XlibVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "Xlib.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } XlibVtab; 12 | extern XlibVtab *XlibVptr; 13 | extern XlibVtab *XlibVGet(void); 14 | #endif /* XLIB_VT */ 15 | -------------------------------------------------------------------------------- /pTk/mTk/generic/pTk.exc: -------------------------------------------------------------------------------- 1 | # This file is read by pTk/Makefile.PL 2 | # The generic tk C sources mentioned here are 3 | # NOT used by perl/Tk 4 | tkArgv.c # perl does our command line 5 | tkConsole.c 6 | tkMain.c # perl is our main 7 | tkTest.c 8 | # tkImgGIF.c 9 | tkStubInit.c # we have our own nested loadable scheme 10 | tkStubLib.c # we have our own nested loadable scheme 11 | -------------------------------------------------------------------------------- /Mwm/Mwm.pm: -------------------------------------------------------------------------------- 1 | package Tk::Mwm; 2 | 3 | use vars qw($VERSION); 4 | $VERSION = '4.004'; # $Id: //depot/Tkutf8/Mwm/Mwm.pm#4 $ 5 | 6 | use Tk qw($XS_VERSION); 7 | require DynaLoader; 8 | 9 | use base qw(DynaLoader); 10 | 11 | bootstrap Tk::Mwm; 12 | 13 | package Tk; 14 | use Tk::Submethods ( 'mwm' => [qw(decorations ismwmrunning protocol transientfor)] ); 15 | package Tk::Mwm; 16 | 17 | 1; 18 | 19 | -------------------------------------------------------------------------------- /bin/perms: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use strict; 3 | use File::Find; 4 | 5 | sub perms 6 | { 7 | my $perm = (stat($_))[2]; 8 | $perm &= 0777; 9 | my $u = $perm >> 6; 10 | my $o = $u & 5; 11 | my $n = ($u << 6) | ($u << 3) | $o; 12 | if ($perm != $n) 13 | { 14 | printf "$File::Find::dir/$_ is %3o not %3o\n",$perm,$n; 15 | chmod($n,$_); 16 | } 17 | } 18 | 19 | find(\&perms,'.'); 20 | -------------------------------------------------------------------------------- /demos/demos/images/cursor.xbm: -------------------------------------------------------------------------------- 1 | #define cursor_width 17 2 | #define cursor_height 12 3 | #define cursor_x_hot 8 4 | #define cursor_y_hot 7 5 | static char cursor_bits[] = { 6 | 0x20, 0x00, 0x00, 0x90, 0x20, 0x00, 0x40, 0x40, 0x00, 0x0c, 0x40, 0x00, 7 | 0x14, 0x8f, 0x00, 0x94, 0xb0, 0x00, 0x7c, 0x20, 0x01, 0x0c, 0x4c, 0x01, 8 | 0x0a, 0x42, 0x01, 0x42, 0x82, 0x00, 0x3b, 0x87, 0x00, 0xff, 0x7f, 0x00}; 9 | -------------------------------------------------------------------------------- /examples/tiehandle: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | use Tk; 4 | 5 | my $mw = MainWindow->new; 6 | my $t = $mw->Scrolled('Text'); 7 | $t->pack(-expand => 1, -fill => 'both'); 8 | 9 | tie *TEXT,Tk::Text,$t->Subwidget('text'); 10 | 11 | print TEXT "Hi there\n"; 12 | 13 | seek(DATA,0,0); 14 | while () 15 | { 16 | print TEXT; 17 | } 18 | 19 | MainLoop; 20 | 21 | __DATA__ 22 | 23 | 24 | -------------------------------------------------------------------------------- /pTk/tix_f.c: -------------------------------------------------------------------------------- 1 | #include "tix.h" 2 | #include "tix_f.h" 3 | static unsigned TixVSize(void) { return sizeof(TixVtab);} 4 | static TixVtab TixVtable = 5 | { 6 | TixVSize, 7 | #define VFUNC(type,name,mem,args) name, 8 | #define VVAR(type,name,mem) &name, 9 | #include "tix.t" 10 | #undef VFUNC 11 | #undef VVAR 12 | }; 13 | TixVtab *TixVptr; 14 | TixVtab *TixVGet() { return TixVptr = &TixVtable;} 15 | -------------------------------------------------------------------------------- /Extensions/ImageBack/README: -------------------------------------------------------------------------------- 1 | A pretty pointless extension which makes 2 | ->ImageBackground method available. 3 | 4 | As nearly all Tk widgets draw in off-screen Pixmap 5 | about only use is for bits of Frames not obscured by sub-windows. 6 | 7 | (I had hoped to use it for HTML3's background attribute...) 8 | 9 | It serves as an example of how an Extension can be built after Tk 10 | is installed. 11 | -------------------------------------------------------------------------------- /Tk/textfile.xpm: -------------------------------------------------------------------------------- 1 | /* XPM */ 2 | static char * textfile_xpm[] = { 3 | "12 12 3 1", 4 | " s None c None", 5 | ". c #000000000000", 6 | "X c #E0E0FFFFE0E0", 7 | " ........ ", 8 | " .XXXXXX. ", 9 | " .XXXXXX... ", 10 | " .X....XXX. ", 11 | " .XXXXXXXX. ", 12 | " .X...XXXX. ", 13 | " .XXXXXXXX. ", 14 | " .X.....XX. ", 15 | " .XXXXXXXX. ", 16 | " .X.....XX. ", 17 | " .XXXXXXXX. ", 18 | " .......... "}; 19 | -------------------------------------------------------------------------------- /pTk/tkInt_f.h: -------------------------------------------------------------------------------- 1 | #ifndef TKINT_VT 2 | #define TKINT_VT 3 | typedef struct TkintVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "tkInt.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } TkintVtab; 12 | extern TkintVtab *TkintVptr; 13 | extern TkintVtab *TkintVGet(void); 14 | #endif /* TKINT_VT */ 15 | -------------------------------------------------------------------------------- /Tk/widgets.pm: -------------------------------------------------------------------------------- 1 | package Tk::widgets; 2 | use Carp; 3 | 4 | use vars qw($VERSION); 5 | $VERSION = '4.005'; # $Id: //depot/Tkutf8/Tk/widgets.pm#4 $ 6 | 7 | sub import 8 | { 9 | my $class = shift; 10 | foreach (@_) 11 | { 12 | local $SIG{__DIE__} = \&Carp::croak; 13 | # carp "$_ already loaded" if (exists $INC{"Tk/$_.pm"}); 14 | require "Tk/$_.pm"; 15 | } 16 | } 17 | 18 | 1; 19 | __END__ 20 | 21 | -------------------------------------------------------------------------------- /tkGlue_f.h: -------------------------------------------------------------------------------- 1 | #ifndef TKGLUE_VT 2 | #define TKGLUE_VT 3 | typedef struct TkglueVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "tkGlue.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } TkglueVtab; 12 | extern TkglueVtab *TkglueVptr; 13 | extern TkglueVtab *TkglueVGet(void); 14 | #endif /* TKGLUE_VT */ 15 | -------------------------------------------------------------------------------- /pTk/Lang_f.c: -------------------------------------------------------------------------------- 1 | #include "Lang.h" 2 | #include "Lang_f.h" 3 | static unsigned LangVSize(void) { return sizeof(LangVtab);} 4 | static LangVtab LangVtable = 5 | { 6 | LangVSize, 7 | #define VFUNC(type,name,mem,args) name, 8 | #define VVAR(type,name,mem) &name, 9 | #include "Lang.t" 10 | #undef VFUNC 11 | #undef VVAR 12 | }; 13 | LangVtab *LangVptr; 14 | LangVtab *LangVGet() { return LangVptr = &LangVtable;} 15 | -------------------------------------------------------------------------------- /pTk/imgInt_f.h: -------------------------------------------------------------------------------- 1 | #ifndef IMGINT_VT 2 | #define IMGINT_VT 3 | typedef struct ImgintVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "imgInt.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } ImgintVtab; 12 | extern ImgintVtab *ImgintVptr; 13 | extern ImgintVtab *ImgintVGet(void); 14 | #endif /* IMGINT_VT */ 15 | -------------------------------------------------------------------------------- /pTk/tixInt_f.h: -------------------------------------------------------------------------------- 1 | #ifndef TIXINT_VT 2 | #define TIXINT_VT 3 | typedef struct TixintVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "tixInt.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } TixintVtab; 12 | extern TixintVtab *TixintVptr; 13 | extern TixintVtab *TixintVGet(void); 14 | #endif /* TIXINT_VT */ 15 | -------------------------------------------------------------------------------- /pTk/tkDecls_f.h: -------------------------------------------------------------------------------- 1 | #ifndef TKDECLS_VT 2 | #define TKDECLS_VT 3 | typedef struct TkdeclsVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "tkDecls.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } TkdeclsVtab; 12 | extern TkdeclsVtab *TkdeclsVptr; 13 | extern TkdeclsVtab *TkdeclsVGet(void); 14 | #endif /* TKDECLS_VT */ 15 | -------------------------------------------------------------------------------- /pTk/tkEvent_f.h: -------------------------------------------------------------------------------- 1 | #ifndef TKEVENT_VT 2 | #define TKEVENT_VT 3 | typedef struct TkeventVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "tkEvent.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } TkeventVtab; 12 | extern TkeventVtab *TkeventVptr; 13 | extern TkeventVtab *TkeventVGet(void); 14 | #endif /* TKEVENT_VT */ 15 | -------------------------------------------------------------------------------- /examples/tmenu: -------------------------------------------------------------------------------- 1 | #!perl -w 2 | use strict; 3 | use Tk; 4 | my $mw = MainWindow->new; 5 | my $menu = $mw->menu; 6 | $menu->cascade(-label => "Added",-underline => 0, -menuitems => [ 7 | [Button => 'Exit', -underline => 1, -command => [destroy => $mw]], 8 | ]); 9 | $mw->Button(-text => "Press this button to Quit\nthe Appliation", 10 | -command => [destroy => $mw])->pack; 11 | MainLoop; 12 | -------------------------------------------------------------------------------- /pTk/mTk/README: -------------------------------------------------------------------------------- 1 | As of release based on tk4.1 this 'mTk' directory 2 | contains _complete_ sources of Tk and Tix in their minimally modified 3 | forms. 4 | 5 | This is because 'munging' to pTk directory from either modified form 6 | or original Tk becomes very complex now Tk is split unix/generic. 7 | 8 | It should also makes merging changes less error prone. 9 | 10 | The mac, win and xlib directories may need attention too. 11 | -------------------------------------------------------------------------------- /pTk/tkInt_f.c: -------------------------------------------------------------------------------- 1 | #include "tkInt.h" 2 | #include "tkInt_f.h" 3 | static unsigned TkintVSize(void) { return sizeof(TkintVtab);} 4 | static TkintVtab TkintVtable = 5 | { 6 | TkintVSize, 7 | #define VFUNC(type,name,mem,args) name, 8 | #define VVAR(type,name,mem) &name, 9 | #include "tkInt.t" 10 | #undef VFUNC 11 | #undef VVAR 12 | }; 13 | TkintVtab *TkintVptr; 14 | TkintVtab *TkintVGet() { return TkintVptr = &TkintVtable;} 15 | -------------------------------------------------------------------------------- /JPEG/config/has_jpeg.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include 3 | #include 4 | #include 5 | #include 6 | #include 7 | 8 | int 9 | main(int argc,char *argv[]) 10 | { 11 | struct jpeg_decompress_struct cinfo; 12 | struct jpeg_error_mgr jerr; 13 | cinfo.err = jpeg_std_error(&jerr); 14 | jpeg_create_decompress(&cinfo); 15 | jpeg_destroy_decompress(&cinfo); 16 | return 0; 17 | } 18 | -------------------------------------------------------------------------------- /pTk/mTk/win/rmd.bat: -------------------------------------------------------------------------------- 1 | @echo off 2 | rem RCS: @(#) $Id: rmd.bat,v 1.5 2001/11/13 02:46:23 davygrvy Exp $ 3 | 4 | if not exist %1\nul goto end 5 | 6 | echo Removing directory %1 7 | 8 | if "%OS%" == "Windows_NT" goto winnt 9 | 10 | deltree /y %1 11 | if errorlevel 1 goto end 12 | goto success 13 | 14 | :winnt 15 | rmdir /s /q %1 16 | if errorlevel 1 goto end 17 | 18 | :success 19 | echo Deleted directory %1 20 | 21 | :end 22 | 23 | -------------------------------------------------------------------------------- /pTk/tclDecls_f.h: -------------------------------------------------------------------------------- 1 | #ifndef TCLDECLS_VT 2 | #define TCLDECLS_VT 3 | typedef struct TcldeclsVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "tclDecls.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } TcldeclsVtab; 12 | extern TcldeclsVtab *TcldeclsVptr; 13 | extern TcldeclsVtab *TcldeclsVGet(void); 14 | #endif /* TCLDECLS_VT */ 15 | -------------------------------------------------------------------------------- /pTk/tkOption_f.h: -------------------------------------------------------------------------------- 1 | #ifndef TKOPTION_VT 2 | #define TKOPTION_VT 3 | typedef struct TkoptionVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "tkOption.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } TkoptionVtab; 12 | extern TkoptionVtab *TkoptionVptr; 13 | extern TkoptionVtab *TkoptionVGet(void); 14 | #endif /* TKOPTION_VT */ 15 | -------------------------------------------------------------------------------- /JPEG/jpeg/jversion.h: -------------------------------------------------------------------------------- 1 | /* 2 | * jversion.h 3 | * 4 | * Copyright (C) 1991-1998, Thomas G. Lane. 5 | * This file is part of the Independent JPEG Group's software. 6 | * For conditions of distribution and use, see the accompanying README file. 7 | * 8 | * This file contains software version identification. 9 | */ 10 | 11 | 12 | #define JVERSION "6b 27-Mar-1998" 13 | 14 | #define JCOPYRIGHT "Copyright (C) 1998, Thomas G. Lane" 15 | -------------------------------------------------------------------------------- /examples/labelpack: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | use Tk; 4 | require Tk::LabEntry; 5 | 6 | my $mw = MainWindow->new; 7 | 8 | my $canvas_total = 'Entry Text'; 9 | my $le_t_text = 'The Label'; 10 | 11 | $le = $mw->LabEntry(-textvariable =>\$canvas_total, 12 | -labelVariable => \$le_t_text, 13 | -labelPack => [-side => 'left']); 14 | 15 | $le->pack(-expand => 1, -fill => 'x'); 16 | 17 | MainLoop; 18 | -------------------------------------------------------------------------------- /examples/taint_test2: -------------------------------------------------------------------------------- 1 | use Tk (); 2 | my $mw = Tk::MainWindow->new(); 3 | my $l = $mw->Label(-text=>'see the error')->grid; 4 | if (@ARGV) 5 | { 6 | # trigger a error to see how a 'normal' error looks like 7 | $l->afterIdle([$l, 'configurex', '-text', 'no error found']); 8 | } 9 | else 10 | { 11 | # Fails with -T 12 | $l->afterIdle([$l, 'configurex', '-text', 'no error found']); 13 | } 14 | Tk::MainLoop; 15 | 16 | -------------------------------------------------------------------------------- /hackMM: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | use File::Find; 4 | 5 | @files = (); 6 | 7 | sub wanted 8 | { 9 | if (/^Makefile.PL$/) 10 | { 11 | push(@files,"$File::Find::dir/$_"); 12 | } 13 | } 14 | 15 | find(\&wanted,"."); 16 | 17 | @ARGV = @files; 18 | 19 | 20 | $^I = ".old"; 21 | 22 | while (<>) 23 | { 24 | if (s/\$Version\b/\$myVersion/g) 25 | { 26 | print STDERR "$ARGV:$.:$_"; 27 | } 28 | print; 29 | } 30 | -------------------------------------------------------------------------------- /pTk/imgInt_f.c: -------------------------------------------------------------------------------- 1 | #include "imgInt.h" 2 | #include "imgInt_f.h" 3 | static unsigned ImgintVSize(void) { return sizeof(ImgintVtab);} 4 | static ImgintVtab ImgintVtable = 5 | { 6 | ImgintVSize, 7 | #define VFUNC(type,name,mem,args) name, 8 | #define VVAR(type,name,mem) &name, 9 | #include "imgInt.t" 10 | #undef VFUNC 11 | #undef VVAR 12 | }; 13 | ImgintVtab *ImgintVptr; 14 | ImgintVtab *ImgintVGet() { return ImgintVptr = &ImgintVtable;} 15 | -------------------------------------------------------------------------------- /pTk/tixInt_f.c: -------------------------------------------------------------------------------- 1 | #include "tixInt.h" 2 | #include "tixInt_f.h" 3 | static unsigned TixintVSize(void) { return sizeof(TixintVtab);} 4 | static TixintVtab TixintVtable = 5 | { 6 | TixintVSize, 7 | #define VFUNC(type,name,mem,args) name, 8 | #define VVAR(type,name,mem) &name, 9 | #include "tixInt.t" 10 | #undef VFUNC 11 | #undef VVAR 12 | }; 13 | TixintVtab *TixintVptr; 14 | TixintVtab *TixintVGet() { return TixintVptr = &TixintVtable;} 15 | -------------------------------------------------------------------------------- /pTk/bitmaps/error.bmp: -------------------------------------------------------------------------------- 1 | #define error_width 17 2 | #define error_height 17 3 | static unsigned char error_bits[] = { 4 | 0xf0, 0x0f, 0x00, 0x58, 0x15, 0x00, 0xac, 0x2a, 0x00, 0x16, 0x50, 0x00, 5 | 0x2b, 0xa0, 0x00, 0x55, 0x40, 0x01, 0xa3, 0xc0, 0x00, 0x45, 0x41, 0x01, 6 | 0x83, 0xc2, 0x00, 0x05, 0x45, 0x01, 0x03, 0xca, 0x00, 0x05, 0x74, 0x01, 7 | 0x0a, 0xa8, 0x00, 0x14, 0x58, 0x00, 0xe8, 0x2f, 0x00, 0x50, 0x15, 0x00, 8 | 0xa0, 0x0a, 0x00}; 9 | -------------------------------------------------------------------------------- /pTk/tixImgXpm_f.h: -------------------------------------------------------------------------------- 1 | #ifndef TIXIMGXPM_VT 2 | #define TIXIMGXPM_VT 3 | typedef struct TiximgxpmVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "tixImgXpm.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } TiximgxpmVtab; 12 | extern TiximgxpmVtab *TiximgxpmVptr; 13 | extern TiximgxpmVtab *TiximgxpmVGet(void); 14 | #endif /* TIXIMGXPM_VT */ 15 | -------------------------------------------------------------------------------- /pTk/tkDecls_f.c: -------------------------------------------------------------------------------- 1 | #include "tk.h" 2 | #include "tkDecls_f.h" 3 | static unsigned TkdeclsVSize(void) { return sizeof(TkdeclsVtab);} 4 | static TkdeclsVtab TkdeclsVtable = 5 | { 6 | TkdeclsVSize, 7 | #define VFUNC(type,name,mem,args) name, 8 | #define VVAR(type,name,mem) &name, 9 | #include "tkDecls.t" 10 | #undef VFUNC 11 | #undef VVAR 12 | }; 13 | TkdeclsVtab *TkdeclsVptr; 14 | TkdeclsVtab *TkdeclsVGet() { return TkdeclsVptr = &TkdeclsVtable;} 15 | -------------------------------------------------------------------------------- /Event/Event.pm: -------------------------------------------------------------------------------- 1 | package Tk::Event; 2 | use vars qw($VERSION $XS_VERSION @EXPORT_OK); 3 | END { CleanupGlue() } 4 | $VERSION = '4.033'; 5 | $XS_VERSION = '804.033'; 6 | $XS_VERSION =~ s{_}{}; 7 | use base qw(Exporter); 8 | use XSLoader; 9 | @EXPORT_OK = qw($XS_VERSION DONT_WAIT WINDOW_EVENTS FILE_EVENTS 10 | TIMER_EVENTS IDLE_EVENTS ALL_EVENTS); 11 | XSLoader::load 'Tk::Event',$XS_VERSION; 12 | require Tk::Event::IO; 13 | 1; 14 | __END__ 15 | -------------------------------------------------------------------------------- /PNG/libpng/scripts/libpng-config-head.in: -------------------------------------------------------------------------------- 1 | #! /bin/sh 2 | 3 | # libpng-config 4 | # provides configuration info for libpng. 5 | 6 | # Copyright (C) 2002 Glenn Randers-Pehrson 7 | # For conditions of distribution and use, see copyright notice in png.h 8 | 9 | # Modeled after libxml-config. 10 | 11 | version=1.2.12 12 | prefix="" 13 | libdir="" 14 | libs="" 15 | I_opts="" 16 | L_opts="" 17 | R_opts="" 18 | cppflags="" 19 | ccopts="" 20 | ldopts="" 21 | 22 | -------------------------------------------------------------------------------- /Tk/Menubar.pm: -------------------------------------------------------------------------------- 1 | # Copyright (c) 1995-2003 Nick Ing-Simmons. All rights reserved. 2 | # This program is free software; you can redistribute it and/or 3 | # modify it under the same terms as Perl itself. 4 | package Tk::Menubar; 5 | use strict; 6 | 7 | use vars qw($VERSION); 8 | $VERSION = '4.006'; # $Id: //depot/Tkutf8/Tk/Menubar.pm#6 $ 9 | 10 | use Tk::Frame; 11 | use Tk::Menu; 12 | # use Carp; 13 | # carp "Tk::Menubar is obsolete" if $^W; 14 | 15 | 1; 16 | -------------------------------------------------------------------------------- /pTk/tkImgPhoto_f.h: -------------------------------------------------------------------------------- 1 | #ifndef TKIMGPHOTO_VT 2 | #define TKIMGPHOTO_VT 3 | typedef struct TkimgphotoVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "tkImgPhoto.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } TkimgphotoVtab; 12 | extern TkimgphotoVtab *TkimgphotoVptr; 13 | extern TkimgphotoVtab *TkimgphotoVGet(void); 14 | #endif /* TKIMGPHOTO_VT */ 15 | -------------------------------------------------------------------------------- /pTk/tkIntDecls_f.h: -------------------------------------------------------------------------------- 1 | #ifndef TKINTDECLS_VT 2 | #define TKINTDECLS_VT 3 | typedef struct TkintdeclsVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "tkIntDecls.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } TkintdeclsVtab; 12 | extern TkintdeclsVtab *TkintdeclsVptr; 13 | extern TkintdeclsVtab *TkintdeclsVGet(void); 14 | #endif /* TKINTDECLS_VT */ 15 | -------------------------------------------------------------------------------- /DragDrop/has_sun: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use Tk; 3 | 4 | my $mw = MainWindow->new; 5 | $mw->withdraw; 6 | my $sun = $mw->SelectionExists('-selection'=>"_SUN_DRAGDROP_DSDM"); 7 | if ($sun) 8 | { 9 | printf "%x\n",$sun; 10 | foreach ($mw->SelectionGet('-selection'=>"_SUN_DRAGDROP_DSDM",'TARGETS')) 11 | { 12 | print " target:$_\n"; 13 | } 14 | foreach ($mw->property('list',$sun)) 15 | { 16 | print " prop:$_\n"; 17 | } 18 | } 19 | 20 | -------------------------------------------------------------------------------- /PNG/zlib/inffast.h: -------------------------------------------------------------------------------- 1 | /* inffast.h -- header to use inffast.c 2 | * Copyright (C) 1995-2003 Mark Adler 3 | * For conditions of distribution and use, see copyright notice in zlib.h 4 | */ 5 | 6 | /* WARNING: this file should *not* be used by applications. It is 7 | part of the implementation of the compression library and is 8 | subject to change. Applications should only use zlib.h. 9 | */ 10 | 11 | void inflate_fast OF((z_streamp strm, unsigned start)); 12 | -------------------------------------------------------------------------------- /pTk/tclDecls_f.c: -------------------------------------------------------------------------------- 1 | #include "Lang.h" 2 | #include "tclDecls_f.h" 3 | static unsigned TcldeclsVSize(void) { return sizeof(TcldeclsVtab);} 4 | static TcldeclsVtab TcldeclsVtable = 5 | { 6 | TcldeclsVSize, 7 | #define VFUNC(type,name,mem,args) name, 8 | #define VVAR(type,name,mem) &name, 9 | #include "tclDecls.t" 10 | #undef VFUNC 11 | #undef VVAR 12 | }; 13 | TcldeclsVtab *TcldeclsVptr; 14 | TcldeclsVtab *TcldeclsVGet() { return TcldeclsVptr = &TcldeclsVtable;} 15 | -------------------------------------------------------------------------------- /pTk/tk.exc: -------------------------------------------------------------------------------- 1 | LangClientMessage 2 | LangDeadWindow 3 | Lang_DeadMainWindow 4 | Lang_NewMainWindow 5 | Tk_CanvasPsOutline 6 | Tk_ChangeOutlineGC 7 | Tk_ConfigOutlineGC 8 | Tk_CreateOldPhotoImageFormat 9 | Tk_CreateOutline 10 | Tk_DeleteOutline 11 | Tk_InitStubs 12 | Tk_OffsetParseProc 13 | Tk_OffsetPrintProc 14 | Tk_OrientParseProc 15 | Tk_OrientPrintProc 16 | Tk_PixelParseProc 17 | Tk_PixelPrintProc 18 | Tk_ResetOutlineGC 19 | Tk_TileParseProc 20 | Tk_TilePrintProc 21 | -------------------------------------------------------------------------------- /NBFrame/NBFrame.pm: -------------------------------------------------------------------------------- 1 | package Tk::NBFrame; 2 | 3 | use vars qw($VERSION); 4 | $VERSION = '4.004'; # $Id: //depot/Tkutf8/NBFrame/NBFrame.pm#4 $ 5 | 6 | use Tk qw($XS_VERSION); 7 | 8 | use base qw(Tk::Widget); 9 | 10 | Construct Tk::Widget 'NBFrame'; 11 | 12 | bootstrap Tk::NBFrame; 13 | 14 | sub Tk_cmd { \&Tk::nbframe } 15 | 16 | Tk::Methods qw(activate add delete focus info geometryinfo identify 17 | move pagecget pageconfigure); 18 | 19 | 1; 20 | 21 | -------------------------------------------------------------------------------- /demos/demos/widtrib/Tiler.pl: -------------------------------------------------------------------------------- 1 | # Tiler, arrange widgets in rows. 2 | 3 | use strict; 4 | use Tk; 5 | use Tk::Tiler; 6 | 7 | my $mw = MainWindow->new(); 8 | my $tiler = $mw->Scrolled('Tiler'); 9 | my $num = $tiler->cget('-rows') * $tiler->cget('-columns'); 10 | $mw->Label(-text => "Tiler with $num widgets")->pack; 11 | foreach (1 .. $num) { 12 | $tiler->Manage( $tiler->Label(-text => "**$_**") ); 13 | } 14 | $tiler->pack(qw/-expand yes -fill both/); 15 | MainLoop; 16 | -------------------------------------------------------------------------------- /examples/iso8859-1: -------------------------------------------------------------------------------- 1 | use Tk; 2 | use Test; 3 | #use utf8; 4 | plan tests => (0x100-0xa0)*2; 5 | my $mw = MainWindow->new; 6 | my @but; 7 | 8 | for my $i (0xa0..0xff) 9 | { 10 | my $s = chr($i); 11 | push(@but,$mw->Button(-text => $s)); 12 | my $x = $but[-1]->cget('-text'); 13 | ok(ord($x),$i,"Number not equal"); 14 | ok($x,$s,"Text not equal"); 15 | if ($i % 16 == 15) 16 | { 17 | Tk::grid(splice(@but,0,16)); 18 | } 19 | } 20 | MainLoop; 21 | 22 | -------------------------------------------------------------------------------- /config/xft.c: -------------------------------------------------------------------------------- 1 | #ifdef NEED_FT2BUILD_H 2 | #include 3 | #endif 4 | #include 5 | #include 6 | 7 | const char *name = "-*-fixed-medium-r-*-*-*-120-*-*-*-*-iso8859-1"; 8 | 9 | int main(int argc,char *argv[]) 10 | { 11 | FcPattern *pattern = XftXlfdParse (name, FcFalse, FcTrue); 12 | char *family; 13 | if (XftPatternGetString (pattern, XFT_FAMILY, 0, &family) != XftResultMatch) 14 | { 15 | return 1; 16 | } 17 | return 0; 18 | } 19 | -------------------------------------------------------------------------------- /examples/leak_test: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | use Tk; 4 | use Devel::Leak; 5 | use Tk::widgets qw(Button); 6 | print STDERR "Before ",$start = Devel::Leak::NoteSV($hook),"\n"; 7 | { 8 | my $top = MainWindow->new(); 9 | my $w = $top->Button(-text => 'Quit',-command => ['destroy',$top])->pack; 10 | MainLoop; 11 | } 12 | 13 | END 14 | { 15 | print STDERR "After ",$end = Devel::Leak::CheckSV($hook),"\n"; 16 | print "Delta ",($end-$start),"\n"; 17 | } 18 | 19 | 20 | -------------------------------------------------------------------------------- /examples/tixwm_demo: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | # XXX Does not work anymore: 4 | # "can't pack ".dialog": it's a top-level window" 5 | 6 | use Tk; 7 | use Tk::Dialog; 8 | my $mw = MainWindow->new; 9 | 10 | my $b = $mw->Button(-text => 'A button', -command => sub { print "A button\n"}); 11 | my $t = $mw->Dialog(-title => 'A Dialog', -text => 'A dialog has text'); 12 | $t->withdraw; 13 | $t->idletasks; 14 | $t->wmCapture; 15 | $t->pack; 16 | $b->wmRelease; 17 | MainLoop; 18 | -------------------------------------------------------------------------------- /pTk/mTk/additions/pTk.exc: -------------------------------------------------------------------------------- 1 | # This file is read by pTk/Makefile.PL 2 | # The C sources mentioned here (from img extension) are 3 | # NOT used by perl/Tk 4 | imgPmap.c 5 | imgPmap.h 6 | imgUnixPmap.c 7 | imgWinPmap.c 8 | imgPS.c 9 | imgJPEG.c # Separate loadable 10 | tkMacInt.h 11 | imgDllEntry.c 12 | imgTIFFjpeg.c 13 | imgTIFF.c 14 | imgTIFFzip.c 15 | imgTIFFpixar.c 16 | imgPNG.c # Separate loadable 17 | tkAppInit.c 18 | imgGIF.c # Using core tk version 19 | -------------------------------------------------------------------------------- /Tk/Label.pm: -------------------------------------------------------------------------------- 1 | # Copyright (c) 1995-2003 Nick Ing-Simmons. All rights reserved. 2 | # This program is free software; you can redistribute it and/or 3 | # modify it under the same terms as Perl itself. 4 | 5 | package Tk::Label; 6 | require Tk; 7 | 8 | 9 | use vars qw($VERSION); 10 | $VERSION = '4.006'; # $Id: //depot/Tkutf8/Tk/Label.pm#6 $ 11 | 12 | use base qw(Tk::Widget); 13 | 14 | Construct Tk::Widget 'Label'; 15 | 16 | sub Tk_cmd { \&Tk::label } 17 | 18 | 1; 19 | 20 | 21 | 22 | -------------------------------------------------------------------------------- /appveyor.yml: -------------------------------------------------------------------------------- 1 | branches: 2 | except: 3 | - /travis/ 4 | skip_tags: true 5 | shallow_clone: true 6 | 7 | cache: 8 | - C:\strawberry 9 | 10 | install: 11 | - if not exist "C:\strawberry" cinst strawberryperl 12 | - set PATH=C:\strawberry\perl\bin;C:\strawberry\perl\site\bin;C:\strawberry\c\bin;%PATH% 13 | - cd C:\projects\%APPVEYOR_PROJECT_NAME% 14 | - cpanm --installdeps . 15 | 16 | build_script: 17 | - perl Makefile.PL 18 | - set HARNESS_TIMER=1 19 | - dmake test 20 | -------------------------------------------------------------------------------- /pTk/findX: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | BEGIN { require Exporter }; 4 | 5 | use Tk::Pretty; 6 | 7 | # %depth = (); 8 | 9 | require 'process_object'; 10 | 11 | 12 | foreach $obj (<*.o>) 13 | { 14 | do_nm($obj); 15 | } 16 | 17 | 18 | foreach $obj (<*.o>) 19 | { 20 | do_need($obj,0,"ARGV"); 21 | } 22 | 23 | foreach $name (sort keys %unres) 24 | { 25 | if ($name =~ /^X[A-Z]/) 26 | { 27 | print "$name : ",Pretty($unres{$name}),"\n"; 28 | } 29 | } 30 | 31 | 32 | -------------------------------------------------------------------------------- /pTk/Xlib.nexc: -------------------------------------------------------------------------------- 1 | XChangeGC 2 | XCheckIfEvent 3 | XCheckWindowEvent 4 | XClearWindow 5 | XClipBox 6 | XCreateRegion 7 | XDefaultColormap 8 | XDefaultDepth 9 | XDefaultScreen 10 | XDefaultVisual 11 | XDestroyRegion 12 | XDrawArc 13 | XDrawImageString 14 | XDrawLines 15 | XFillArc 16 | XGetImage 17 | XInitImageFuncPtrs 18 | XIntersectRegion 19 | XLowerWindow 20 | XPutBackEvent 21 | XSetBackground 22 | XSetClipMask 23 | XSetRegion 24 | XSetTSOrigin 25 | XTextExtents 26 | XWarpPointer 27 | XWindowEvent 28 | -------------------------------------------------------------------------------- /pTk/tkPlatDecls_f.h: -------------------------------------------------------------------------------- 1 | #ifndef TKPLATDECLS_VT 2 | #define TKPLATDECLS_VT 3 | #include "tkPlatDecls.h" 4 | typedef struct TkplatdeclsVtab 5 | { 6 | unsigned (*tabSize)(void); 7 | #define VFUNC(type,name,mem,args) type (*mem) args; 8 | #define VVAR(type,name,mem) type (*mem); 9 | #include "tkPlatDecls.t" 10 | #undef VFUNC 11 | #undef VVAR 12 | } TkplatdeclsVtab; 13 | extern TkplatdeclsVtab *TkplatdeclsVptr; 14 | extern TkplatdeclsVtab *TkplatdeclsVGet(void); 15 | #endif /* TKPLATDECLS_VT */ 16 | -------------------------------------------------------------------------------- /Contrib/book-examples/f-16.10.pl: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | # 4 | # Figure 16.8, p166 5 | # 6 | 7 | 8 | use Tk; 9 | 10 | my $mw = MainWindow->new; 11 | my $colors = $mw->Listbox->pack; 12 | open (F, "/usr/lib/X11/rgb.txt") || die "Can't open rgb.txt"; 13 | while () { 14 | next if /^!/; 15 | $colors->insert('end',(split)[3]); 16 | } 17 | $colors->bind('', sub { 18 | $colors->configure(-background => $colors->get($colors->curselection))}); 19 | 20 | MainLoop; 21 | -------------------------------------------------------------------------------- /debug.bat: -------------------------------------------------------------------------------- 1 | @perl -Sx %0.bat %* 2 | @goto end_of_perl 3 | #!perl -w 4 | my $perl = $^X; 5 | $perl .= '.exe' unless $perl =~ /\.exe$/i; 6 | unless (-x $^X) 7 | { 8 | my $leaf = $perl; 9 | foreach my $dir (split(/;/,$ENV{'Path'})) 10 | { 11 | my $try = "$dir/$leaf"; 12 | if (-x $try) 13 | { 14 | $perl = $try; 15 | $perl =~ tr,\\,/,; 16 | last; 17 | } 18 | } 19 | } 20 | print join(' ',$perl,$0,@ARGV),"\n"; 21 | system("gdb $perl"); 22 | __END__ 23 | :end_of_perl -------------------------------------------------------------------------------- /examples/tcolour: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | use Tk; 4 | 5 | my $mw = MainWindow->new; 6 | 7 | my $t = $mw->Text(-background => 'yellow', -width => 30, -height => 10); 8 | $t->pack(-expand => 1, -fill => 'both'); 9 | 10 | $t->insert('1.0','This is Text','Atag'); 11 | $t->tagConfigure('Atag',-background => 'green'); 12 | 13 | $mw->Button(-text => "Change Colour", 14 | -command => sub { $t->tagConfigure('Atag',-background => undef) } 15 | )->pack; 16 | 17 | MainLoop; 18 | -------------------------------------------------------------------------------- /pTk/tkIntPlatDecls_f.h: -------------------------------------------------------------------------------- 1 | #ifndef TKINTPLATDECLS_VT 2 | #define TKINTPLATDECLS_VT 3 | typedef struct TkintplatdeclsVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "tkIntPlatDecls.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } TkintplatdeclsVtab; 12 | extern TkintplatdeclsVtab *TkintplatdeclsVptr; 13 | extern TkintplatdeclsVtab *TkintplatdeclsVGet(void); 14 | #endif /* TKINTPLATDECLS_VT */ 15 | -------------------------------------------------------------------------------- /pTk/tkIntXlibDecls_f.h: -------------------------------------------------------------------------------- 1 | #ifndef TKINTXLIBDECLS_VT 2 | #define TKINTXLIBDECLS_VT 3 | typedef struct TkintxlibdeclsVtab 4 | { 5 | unsigned (*tabSize)(void); 6 | #define VFUNC(type,name,mem,args) type (*mem) args; 7 | #define VVAR(type,name,mem) type (*mem); 8 | #include "tkIntXlibDecls.t" 9 | #undef VFUNC 10 | #undef VVAR 11 | } TkintxlibdeclsVtab; 12 | extern TkintxlibdeclsVtab *TkintxlibdeclsVptr; 13 | extern TkintxlibdeclsVtab *TkintxlibdeclsVGet(void); 14 | #endif /* TKINTXLIBDECLS_VT */ 15 | -------------------------------------------------------------------------------- /examples/error_prop: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | use Tk; 4 | use Tk::ErrorDialog; 5 | 6 | # $SIG{__DIE__} = sub { print "die(",join(',',@_),")\n" }; 7 | 8 | sub one 9 | { 10 | shift->BackTrace("dying"); 11 | } 12 | 13 | sub two 14 | { 15 | my $w = shift; 16 | eval { one($w) }; 17 | $w->BackTrace($@) if ($@); 18 | } 19 | 20 | my $mw = MainWindow->new; 21 | my $b = $mw->Button(-text => 'Moan', 22 | -command => sub { after(1000, \&two, $mw) })->pack(-expand => 0); 23 | MainLoop; 24 | -------------------------------------------------------------------------------- /DragDrop/DragDrop/SunConst.pod: -------------------------------------------------------------------------------- 1 | 2 | =head1 NAME 3 | 4 | Tk::DragDrop::SunConst - Constants for Sun's Drag&Drop protocol 5 | 6 | =for pm DragDrop/DragDrop/SunConst.pm 7 | 8 | =for category Experimental Modules 9 | 10 | =head1 DESCRIPTION 11 | 12 | This module defines symbolic name subs for the numeric constants that 13 | make up Sun's Drag&Drop protocol. They are in this module with Exporter 14 | as they are shared between the two halves (Dropper and Receiver) of 15 | the protocol. 16 | 17 | =cut 18 | 19 | -------------------------------------------------------------------------------- /pTk/tkEvent_f.c: -------------------------------------------------------------------------------- 1 | #define TCL_EVENT_IMPLEMENT 2 | #include "Lang.h" 3 | #include "tkEvent.h" 4 | #include "tkEvent_f.h" 5 | static unsigned TkeventVSize(void) { return sizeof(TkeventVtab);} 6 | static TkeventVtab TkeventVtable = 7 | { 8 | TkeventVSize, 9 | #define VFUNC(type,name,mem,args) name, 10 | #define VVAR(type,name,mem) &name, 11 | #include "tkEvent.t" 12 | #undef VFUNC 13 | #undef VVAR 14 | }; 15 | TkeventVtab *TkeventVptr; 16 | TkeventVtab *TkeventVGet() { return TkeventVptr = &TkeventVtable;} 17 | -------------------------------------------------------------------------------- /pTk/tkIntDecls.exc: -------------------------------------------------------------------------------- 1 | TkBezierPoints 2 | TkBezierScreenPoints 3 | TkFillPolygon 4 | TkGetButtPoints 5 | TkGetMiterPoints 6 | TkIncludePoint 7 | TkLineToArea 8 | TkLineToPoint 9 | TkMakeBezierCurve 10 | TkMakeBezierPostscript 11 | TkOptionClassChanged 12 | TkOptionDeadWindow 13 | TkOvalToArea 14 | TkOvalToPoint 15 | TkPolygonToArea 16 | TkPolygonToPoint 17 | TkThickPolyLineToArea 18 | tkIntStubsPtr 19 | TkpCreateNativeBitmap 20 | TkpDefineNativeBitmaps 21 | TkpGetNativeAppBitmap 22 | TkpInit 23 | TkpGetAppName 24 | -------------------------------------------------------------------------------- /Contrib/book-examples/f-16.9.pl: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | # 4 | # Figure 16.8, p166 5 | # 6 | 7 | 8 | use Tk; 9 | 10 | my $mw = MainWindow->new; 11 | my $msg = $mw->Message ( 12 | -width => '8c', -justify => 'left', 13 | -relief => 'raised', -bd => 2, 14 | -font => '-Adobe-Helvetica-Bold-R-Normal--*-180-*-*-*-*-*-*', 15 | -text => 'You have made changes to this document since the last time it was saved. Is it OK to discard the changes?', 16 | ); 17 | $msg->pack; 18 | 19 | MainLoop; 20 | -------------------------------------------------------------------------------- /Event/Makefile.PL: -------------------------------------------------------------------------------- 1 | # -*- cperl -*- 2 | 3 | use Tk::MMutil; 4 | Tk::MMutil::TkExtMakefile( 5 | ($^O eq 'MSWin32' ? () : ('LIBS' => ["-lm"])), 6 | OBJECT => '$(O_FILES)', 7 | TYPEMAPS => ['typemap'], 8 | # 'dynamic_ptk' => 1 9 | ); 10 | 11 | 12 | sub MY::test_via_harness 13 | { 14 | my($self, $perl, $tests) = @_; 15 | qq{\t$perl "-I../t" "-MTkTest" }. 16 | qq{"-e" "checked_test_harness('\$(TKDIR)/xt', \$(TEST_VERBOSE), '\$(INST_LIB)', '\$(INST_ARCHLIB)')" $tests\n}; 17 | } 18 | -------------------------------------------------------------------------------- /Tk/Message.pm: -------------------------------------------------------------------------------- 1 | # Copyright (c) 1995-2003 Nick Ing-Simmons. All rights reserved. 2 | # This program is free software; you can redistribute it and/or 3 | # modify it under the same terms as Perl itself. 4 | package Tk::Message; 5 | use strict; 6 | 7 | use vars qw($VERSION); 8 | $VERSION = '4.006'; # $Id: //depot/Tkutf8/Tk/Message.pm#6 $ 9 | 10 | require Tk::Widget; 11 | 12 | use base qw(Tk::Widget); 13 | 14 | Construct Tk::Widget 'Message'; 15 | 16 | sub Tk_cmd { \&Tk::message } 17 | 18 | 1; 19 | __END__ 20 | 21 | -------------------------------------------------------------------------------- /Tk/folder.xpm: -------------------------------------------------------------------------------- 1 | /* XPM */ 2 | static char * folder_xpm[] = { 3 | /* width height num_colors chars_per_pixel */ 4 | "16 12 3 1", 5 | /* colors */ 6 | " s None c None", 7 | ". c black", 8 | "X c #f0ff80", 9 | /* pixels */ 10 | " .... ", 11 | " .XXXX. ", 12 | " .XXXXXX. ", 13 | "............. ", 14 | ".XXXXXXXXXXX. ", 15 | ".XXXXXXXXXXX. ", 16 | ".XXXXXXXXXXX. ", 17 | ".XXXXXXXXXXX. ", 18 | ".XXXXXXXXXXX. ", 19 | ".XXXXXXXXXXX. ", 20 | ".XXXXXXXXXXX. ", 21 | "............. "}; 22 | -------------------------------------------------------------------------------- /examples/grid_test: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use Tk; 3 | my $mw = MainWindow->new; 4 | open(FILE,__FILE__); 5 | 6 | my $f = $mw->Frame->pack(-expand => 1, -fill => 'both'); 7 | my $t = $f->Text; 8 | my $y = $f->Scrollbar(-orient => 'vertical'); 9 | my $x = $f->Scrollbar(-orient => 'horizontal'); 10 | $t->grid(-row => 0, -sticky => 'nsew'); 11 | $y->grid(-row => 0, -column => 1, -sticky => 'nsew'); 12 | $x->grid(-row => 1, -sticky => 'nsew'); 13 | $t->insert('end',join('',)); 14 | MainLoop; 15 | -------------------------------------------------------------------------------- /pTk/tkOption_f.c: -------------------------------------------------------------------------------- 1 | #include "tk.h" 2 | #include "tkInt.h" 3 | #include "tkOption.h" 4 | #include "tkOption_f.h" 5 | static unsigned TkoptionVSize(void) { return sizeof(TkoptionVtab);} 6 | static TkoptionVtab TkoptionVtable = 7 | { 8 | TkoptionVSize, 9 | #define VFUNC(type,name,mem,args) name, 10 | #define VVAR(type,name,mem) &name, 11 | #include "tkOption.t" 12 | #undef VFUNC 13 | #undef VVAR 14 | }; 15 | TkoptionVtab *TkoptionVptr; 16 | TkoptionVtab *TkoptionVGet() { return TkoptionVptr = &TkoptionVtable;} 17 | -------------------------------------------------------------------------------- /Tk/Photo.pm: -------------------------------------------------------------------------------- 1 | package Tk::Photo; 2 | 3 | use vars qw($VERSION); 4 | $VERSION = '4.006'; # sprintf '4.%03d', 4+q$Revision: #4 $ =~ /\D(\d+)\s*$/; 5 | 6 | use Tk qw($XS_VERSION); 7 | 8 | use base qw(Tk::Image); 9 | 10 | Construct Tk::Image 'Photo'; 11 | 12 | sub Tk_image { 'photo' } 13 | 14 | Tk::Methods('blank','copy','data','formats','get','put','read', 15 | 'redither','transparency','write'); 16 | 17 | use Tk::Submethods ( 18 | 'transparency' => [qw/get set/], 19 | ); 20 | 21 | 1; 22 | __END__ 23 | -------------------------------------------------------------------------------- /Tk/openfolder.xpm: -------------------------------------------------------------------------------- 1 | /* XPM */ 2 | static char * openfolder_xpm[] = { 3 | /* width height num_colors chars_per_pixel */ 4 | "16 12 3 1", 5 | /* colors */ 6 | " s None c None", 7 | ". c black", 8 | "X c #f0ff80", 9 | /* pixels */ 10 | " .... ", 11 | " .XXXX. ", 12 | " .XXXXXX. ", 13 | "............. ", 14 | ".XXXXXXXXXXX. ", 15 | ".XXX............", 16 | ".XX.XXXXXXXXXXX.", 17 | ".XX.XXXXXXXXXX. ", 18 | ".X.XXXXXXXXXXX. ", 19 | ".X.XXXXXXXXXXX. ", 20 | "..XXXXXXXXXX.. ", 21 | "............. "}; 22 | -------------------------------------------------------------------------------- /pTk/mTk/tclUnix/tclUnixThrd.h: -------------------------------------------------------------------------------- 1 | /* 2 | * tclUnixThrd.h -- 3 | * 4 | * This header file defines things for thread support. 5 | * 6 | * Copyright (c) 1998 Sun Microsystems, Inc. 7 | * 8 | * See the file "license.terms" for information on usage and redistribution 9 | * of this file, and for a DISCLAIMER OF ALL WARRANTIES. 10 | * 11 | * SCCS: @(#) 12 | */ 13 | 14 | #ifndef _TCLUNIXTHRD 15 | #define _TCLUNIXTHRD 16 | 17 | #ifdef TCL_THREADS 18 | 19 | 20 | #endif /* TCL_THREADS */ 21 | #endif /* _TCLUNIXTHRD */ 22 | -------------------------------------------------------------------------------- /pTk/tkIntDecls_f.c: -------------------------------------------------------------------------------- 1 | #include "tkInt.h" 2 | #include "tkIntDecls.h" 3 | #include "tkIntDecls_f.h" 4 | static unsigned TkintdeclsVSize(void) { return sizeof(TkintdeclsVtab);} 5 | static TkintdeclsVtab TkintdeclsVtable = 6 | { 7 | TkintdeclsVSize, 8 | #define VFUNC(type,name,mem,args) name, 9 | #define VVAR(type,name,mem) &name, 10 | #include "tkIntDecls.t" 11 | #undef VFUNC 12 | #undef VVAR 13 | }; 14 | TkintdeclsVtab *TkintdeclsVptr; 15 | TkintdeclsVtab *TkintdeclsVGet() { return TkintdeclsVptr = &TkintdeclsVtable;} 16 | -------------------------------------------------------------------------------- /Tk/Stats.pm: -------------------------------------------------------------------------------- 1 | package Tk::Stats; 2 | 3 | ($lu,$ls) = times; 4 | 5 | 6 | use vars qw($VERSION); 7 | $VERSION = '4.004'; # $Id: //depot/Tkutf8/Tk/Stats.pm#4 $ 8 | 9 | sub stats 10 | { 11 | my ($u,$s) = times; 12 | my $du = $u-$lu; 13 | my $ds = $s-$ls; 14 | $ls = $s; 15 | $lu = $u; 16 | print sprintf(' dt=%4.2f du=%4.2f ds=%4.2f',$du+$ds,$du,$ds); 17 | print sprintf(' t=%4.2f u=%4.2f s=%4.2f',$u+$s,$u,$s); 18 | print ' ',shift,"\n"; 19 | } 20 | 21 | sub import 22 | { 23 | stats($_[1]); 24 | } 25 | 26 | 1; 27 | -------------------------------------------------------------------------------- /pTk/tixImgXpm_f.c: -------------------------------------------------------------------------------- 1 | #include "tixPort.h" 2 | #include "tixInt.h" 3 | #include "tixImgXpm.h" 4 | #include "tixImgXpm_f.h" 5 | static unsigned TiximgxpmVSize(void) { return sizeof(TiximgxpmVtab);} 6 | static TiximgxpmVtab TiximgxpmVtable = 7 | { 8 | TiximgxpmVSize, 9 | #define VFUNC(type,name,mem,args) name, 10 | #define VVAR(type,name,mem) &name, 11 | #include "tixImgXpm.t" 12 | #undef VFUNC 13 | #undef VVAR 14 | }; 15 | TiximgxpmVtab *TiximgxpmVptr; 16 | TiximgxpmVtab *TiximgxpmVGet() { return TiximgxpmVptr = &TiximgxpmVtable;} 17 | -------------------------------------------------------------------------------- /t/iso8859-1.t: -------------------------------------------------------------------------------- 1 | use Tk; 2 | use Test; 3 | #use utf8; 4 | plan tests => (0x100-0xa0)*1; 5 | my $mw = MainWindow->new; 6 | my @but; 7 | 8 | for my $i (0xa0..0xff) 9 | { 10 | my $s = chr($i); 11 | push(@but,$mw->Button(-text => $s)); 12 | my $x = $but[-1]->cget('-text'); 13 | ok(ord($x),$i,"Number not equal"); 14 | # ok($x,$s,"Text not equal"); 15 | if ($i % 16 == 15) 16 | { 17 | Tk::grid(splice(@but,0,16)); 18 | } 19 | } 20 | $mw->geometry("+20+20"); 21 | $mw->after(2000,[destroy => $mw]); 22 | MainLoop; 23 | 24 | -------------------------------------------------------------------------------- /Contrib/book-examples/f-16.3.pl: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | # 4 | # Figure 16.3, p162 5 | # 6 | 7 | 8 | # how to do this ? 9 | 10 | use Tk; 11 | 12 | $mw = MainWindow->new; 13 | $country = "Japan"; 14 | &watch($country); 15 | $country = "Great Britain"; 16 | 17 | sub watch { 18 | my ($name) = @_; 19 | my $watch = $mw->Toplevel; 20 | $watch->Label(-text => 'Value of $name: ')->pack (-side => 'left'); 21 | $watch->Label(-textvariable => $name)->pack(-side => 'left'); 22 | # $watch->update; 23 | } 24 | 25 | MainLoop; 26 | -------------------------------------------------------------------------------- /examples/cbtest: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl 2 | 3 | use Tk; 4 | use Tk::Pretty; 5 | 6 | sub lots 7 | { 8 | &Tk::Pretty::PrintArgs; 9 | return (0..10); 10 | } 11 | 12 | sub one 13 | { 14 | &Tk::Pretty::PrintArgs; 15 | return "Something"; 16 | } 17 | 18 | print Pretty(Tk::Callback->new(\&lots)->Call('a'..'d')),"\n"; 19 | print Pretty(Tk::Callback->new([\&lots,'A'..'F'])->Call('a'..'d')),"\n"; 20 | print Pretty(Tk::Callback->new(\&one)->Call('a'..'d')),"\n"; 21 | print Pretty(Tk::Callback->new([\&one,'A'..'F'])->Call('a'..'d')),"\n"; 22 | 23 | -------------------------------------------------------------------------------- /examples/prop_demo: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | use Tk; 4 | 5 | sub show_props 6 | {my $w = shift; 7 | print "Props $w:\n"; 8 | foreach ($w->property("list",@_)) 9 | { 10 | print " $_:",join(',',$w->property("get",$_,@_)),"\n"; 11 | } 12 | } 13 | 14 | $top = MainWindow->new(); 15 | $top->withdraw; 16 | 17 | $top->property("set",MYPROP,AREA,32,[1,2,3,4,5]); 18 | 19 | $top->command([$0,@ARGV]); 20 | 21 | print "Command:",join(' ',@{$top->command}),"\n"; 22 | 23 | $top->idletasks; 24 | 25 | &show_props($top); 26 | 27 | 28 | -------------------------------------------------------------------------------- /Compound/compound_demo: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use Tk; 3 | use Tk::Compound; 4 | my $mw = MainWindow->new; 5 | my $b = $mw->Button(-command => [destroy => $mw])->pack; 6 | my $i = $b->Compound; 7 | $i->Line; 8 | $i->Text(-text => 'Line'); 9 | $i->Space(-width => '3m'); 10 | $i->Text(-text => 'one'); 11 | $i->Line; 12 | $i->Bitmap(-bitmap => 'warning'); 13 | $i->Line; 14 | $i->Text(-text => 'Line2'); 15 | $b->configure(-image => $i); 16 | 17 | my $b2 = $mw->Button(-command => [destroy => $mw], -image => $i)->pack; 18 | 19 | MainLoop; 20 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/minizip/iowin32.h: -------------------------------------------------------------------------------- 1 | /* iowin32.h -- IO base function header for compress/uncompress .zip 2 | files using zlib + zip or unzip API 3 | This IO API version uses the Win32 API (for Microsoft Windows) 4 | 5 | Version 1.01e, February 12th, 2005 6 | 7 | Copyright (C) 1998-2005 Gilles Vollant 8 | */ 9 | 10 | #include 11 | 12 | 13 | #ifdef __cplusplus 14 | extern "C" { 15 | #endif 16 | 17 | void fill_win32_filefunc OF((zlib_filefunc_def* pzlib_filefunc_def)); 18 | 19 | #ifdef __cplusplus 20 | } 21 | #endif 22 | -------------------------------------------------------------------------------- /examples/destroy_test: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | 4 | use Tk; 5 | 6 | require Tk::Pretty ; 7 | 8 | $top = MainWindow->new(); 9 | 10 | $label = $top->Label("-text" => "Something" ); 11 | 12 | $label->bind('' , sub { printf "RIP %s\n", shift->PathName }); 13 | $top->bind('' , sub { printf "top RIP %s\n", shift->PathName }); 14 | 15 | $label->pack; 16 | 17 | $quit = $top->Button("-text" => "Quit", "-command" => ["destroy",$top]); 18 | 19 | $quit->pack; 20 | 21 | $top->update(); 22 | 23 | Tk::MainLoop(); 24 | 25 | -------------------------------------------------------------------------------- /examples/scale_test: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | use Tk; 4 | 5 | $top = MainWindow->new(); 6 | 7 | $top->title("scale tests"); 8 | 9 | $f = $top->Frame(-relief => 'ridge', -borderwidth => 3); 10 | 11 | $s = $top->Scale("-orient"=>"vertical", 12 | "-length" => 280, 13 | "-from" => 0, 14 | "-to" => 250, 15 | "-tickinterval" => 50, 16 | "-command" => sub { $f->configure('-width'=> $s->get) } 17 | ); 18 | 19 | $s->pack(-side =>'left', -fill => 'y'); 20 | $f->pack(-side =>'right', -fill => 'y'); 21 | 22 | Tk::MainLoop; 23 | 24 | -------------------------------------------------------------------------------- /Tk/act_folder.xpm: -------------------------------------------------------------------------------- 1 | /* XPM */ 2 | static char * act_folder_xpm[] = { 3 | /* width height num_colors chars_per_pixel */ 4 | "16 12 4 1", 5 | /* colors */ 6 | " s None c None", 7 | ". c black", 8 | "X c yellow", 9 | "o c #5B5B57574646", 10 | /* pixels */ 11 | " .... ", 12 | " .XXXX. ", 13 | " .XXXXXX. ", 14 | "............. ", 15 | ".oXoXoXoXoXo. ", 16 | ".XoX............", 17 | ".oX.XXXXXXXXXXX.", 18 | ".Xo.XXXXXXXXXX. ", 19 | ".o.XXXXXXXXXXX. ", 20 | ".X.XXXXXXXXXXX. ", 21 | "..XXXXXXXXXX.. ", 22 | "............. "}; 23 | -------------------------------------------------------------------------------- /pTk/bitmaps/hourglass.bmp: -------------------------------------------------------------------------------- 1 | #define hourglass_width 19 2 | #define hourglass_height 21 3 | static unsigned char hourglass_bits[] = { 4 | 0xff, 0xff, 0x07, 0x55, 0x55, 0x05, 0xa2, 0x2a, 0x03, 0x66, 0x15, 0x01, 5 | 0xa2, 0x2a, 0x03, 0x66, 0x15, 0x01, 0xc2, 0x0a, 0x03, 0x46, 0x05, 0x01, 6 | 0x82, 0x0a, 0x03, 0x06, 0x05, 0x01, 0x02, 0x03, 0x03, 0x86, 0x05, 0x01, 7 | 0xc2, 0x0a, 0x03, 0x66, 0x15, 0x01, 0xa2, 0x2a, 0x03, 0x66, 0x15, 0x01, 8 | 0xa2, 0x2a, 0x03, 0x66, 0x15, 0x01, 0xa2, 0x2a, 0x03, 0xff, 0xff, 0x07, 9 | 0xab, 0xaa, 0x02}; 10 | -------------------------------------------------------------------------------- /pTk/tkImgPhoto_f.c: -------------------------------------------------------------------------------- 1 | #include "tkPort.h" 2 | #include "tkInt.h" 3 | #include "tkImgPhoto.h" 4 | #include "tkImgPhoto_f.h" 5 | static unsigned TkimgphotoVSize(void) { return sizeof(TkimgphotoVtab);} 6 | static TkimgphotoVtab TkimgphotoVtable = 7 | { 8 | TkimgphotoVSize, 9 | #define VFUNC(type,name,mem,args) name, 10 | #define VVAR(type,name,mem) &name, 11 | #include "tkImgPhoto.t" 12 | #undef VFUNC 13 | #undef VVAR 14 | }; 15 | TkimgphotoVtab *TkimgphotoVptr; 16 | TkimgphotoVtab *TkimgphotoVGet() { return TkimgphotoVptr = &TkimgphotoVtable;} 17 | -------------------------------------------------------------------------------- /examples/spinbox: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use strict; 3 | use Tk; 4 | use Tk::widgets qw(Button Spinbox); 5 | #use Carp (); 6 | #$SIG{'__DIE__'} = \&Carp::confess; 7 | 8 | print "Spinbox:$Tk::Spinbox::VERSION\n"; 9 | 10 | my $mw = MainWindow->new(); 11 | my $sb = $mw->Spinbox(-from => 1, -to => 100)->pack; 12 | 13 | #use Data::Dumper; 14 | #print Dumper([$sb->configure]); 15 | 16 | $sb = $mw->Spinbox(-values => [qw[one two three four]])->pack; 17 | 18 | 19 | $mw->Button(-text => 'Quit', -command => [destroy => $mw])->pack; 20 | MainLoop; 21 | 22 | -------------------------------------------------------------------------------- /pTk/mTk/tclWin/tclWinThrd.h: -------------------------------------------------------------------------------- 1 | /* 2 | * tclWinThrd.h -- 3 | * 4 | * This header file defines things for thread support. 5 | * 6 | * Copyright (c) 1998 Sun Microsystems, Inc. 7 | * 8 | * See the file "license.terms" for information on usage and redistribution 9 | * of this file, and for a DISCLAIMER OF ALL WARRANTIES. 10 | * 11 | * SCCS: @(#) tclWinThrd.h 1.2 98/01/27 11:48:05 12 | */ 13 | 14 | #ifndef _TCLWINTHRD 15 | #define _TCLWINTHRD 16 | 17 | #ifdef TCL_THREADS 18 | 19 | #endif /* TCL_THREADS */ 20 | 21 | #endif /* _TCLWINTHRD */ 22 | -------------------------------------------------------------------------------- /t/list.t: -------------------------------------------------------------------------------- 1 | BEGIN { $^W = 1; $| = 1;} 2 | use strict; 3 | use Test; 4 | use Tk; 5 | use Tk::Font; 6 | my $mw = new MainWindow; 7 | my $l1 = $mw->Label( -text => " 6 point font", -font => ['Helvetica',6,'bold']); 8 | my $f = $l1->cget('-font'); 9 | my %expect = $f->actual; 10 | my @k = keys(%expect); 11 | my $l2 = $mw->Label( -text => " 6 point font", -font => '{Helvetica} 6 {bold}'); 12 | plan tests => scalar(@k); 13 | my $f2 = $l2->cget('-font'); 14 | my %a = $f2->actual; 15 | foreach my $k (@k) 16 | { 17 | ok($a{$k},$expect{$k},"Wrong $k"); 18 | } 19 | -------------------------------------------------------------------------------- /examples/font_test: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | 4 | 5 | use Tk ; 6 | $top = MainWindow->new; 7 | 8 | chomp(@fonts = `xlsfonts`) ; 9 | 10 | $list = $top->ScrlListbox(-scrollbars => 'e', -width => 70) ; 11 | $list->pack(qw(-fill both -expand 1)) ; 12 | $list->bind('<1>' => [sub {&changeFont} ] ) ; 13 | 14 | grep ($list->insert('end',$_), @fonts) ; 15 | 16 | MainLoop ; 17 | 18 | sub changeFont { 19 | local($w) = shift ; 20 | local($fontName) ; 21 | $fontName = $w->get($w->curselection) ; 22 | $w->configure(-font => $fontName ) ; 23 | } 24 | 25 | -------------------------------------------------------------------------------- /pTk/tkPlatDecls_f.c: -------------------------------------------------------------------------------- 1 | #include "Lang.h" 2 | #ifdef WIN32 3 | #include "tkWin.h" 4 | #include "tkPlatDecls_f.h" 5 | static unsigned TkplatdeclsVSize(void) { return sizeof(TkplatdeclsVtab);} 6 | static TkplatdeclsVtab TkplatdeclsVtable = 7 | { 8 | TkplatdeclsVSize, 9 | #define VFUNC(type,name,mem,args) name, 10 | #define VVAR(type,name,mem) &name, 11 | #include "tkPlatDecls.t" 12 | #undef VFUNC 13 | #undef VVAR 14 | }; 15 | TkplatdeclsVtab *TkplatdeclsVptr; 16 | TkplatdeclsVtab *TkplatdeclsVGet() { return TkplatdeclsVptr = &TkplatdeclsVtable;} 17 | #endif 18 | -------------------------------------------------------------------------------- /r: -------------------------------------------------------------------------------- 1 | #!/tools/local/perl -w 2 | use strict; 3 | my $class = (@ARGV) ? shift : 'Tk'; 4 | my @elem = split(/::/,$class); 5 | my $path = 'blib/arch/auto/'.join('/',@elem,$elem[-1].'.so'); 6 | warn "Reading $path\n"; 7 | open(F,"nm -p $path |"); 8 | my @syms; 9 | while () 10 | { 11 | if (/ U / && /\b((?:[Tt]cl|Lang)\w+)/) 12 | { 13 | push(@syms,$1); 14 | } 15 | if (/ f / && /\b(\w+\.c)/) 16 | { 17 | push(@syms,$1); 18 | } 19 | } 20 | close(F); 21 | 22 | foreach my $sym (sort @syms) 23 | { 24 | print $sym,"\n"; 25 | } 26 | 27 | 28 | -------------------------------------------------------------------------------- /pTk/bitmaps/questhead.bmp: -------------------------------------------------------------------------------- 1 | #define questhead_width 20 2 | #define questhead_height 22 3 | static unsigned char questhead_bits[] = { 4 | 0xf8, 0x1f, 0x00, 0xac, 0x2a, 0x00, 0x56, 0x55, 0x00, 0xeb, 0xaf, 0x00, 5 | 0xf5, 0x5f, 0x01, 0xfb, 0xbf, 0x00, 0x75, 0x5d, 0x01, 0xfb, 0xbe, 0x02, 6 | 0x75, 0x5d, 0x05, 0xab, 0xbe, 0x0a, 0x55, 0x5f, 0x07, 0xab, 0xaf, 0x00, 7 | 0xd6, 0x57, 0x01, 0xac, 0xab, 0x00, 0xd8, 0x57, 0x00, 0xb0, 0xaa, 0x00, 8 | 0x50, 0x55, 0x00, 0xb0, 0x0b, 0x00, 0xd0, 0x17, 0x00, 0xb0, 0x0b, 0x00, 9 | 0x58, 0x15, 0x00, 0xa8, 0x2a, 0x00}; 10 | -------------------------------------------------------------------------------- /Contrib/book-examples/f-16.1.pl: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | # 4 | # Figure 16.1, p159 5 | # 6 | 7 | use Tk; 8 | 9 | my $mw = MainWindow->new; 10 | for $relief('raised','sunken','flat','groove','ridge') { 11 | print "$relief"; 12 | $$relief = $mw->Frame( 13 | -width => '15m', 14 | -height => '10m', 15 | -relief => $relief, 16 | -borderwidth => 4, 17 | ); 18 | $$relief->pack(-side => 'left', -padx => '2m', -pady => '2m'); 19 | } 20 | $flat->configure(-background => 'black'); #perl complains here 21 | 22 | MainLoop; 23 | -------------------------------------------------------------------------------- /PNG/libpng/projects/visualc71/PRJ0041.mak: -------------------------------------------------------------------------------- 1 | # Prevent "Cannot find missing dependency..." warnings while compiling 2 | # pngw32.rc (PRJ0041). 3 | 4 | all: $(IntDir)\alloc.h \ 5 | $(IntDir)\fp.h \ 6 | $(IntDir)\m68881.h \ 7 | $(IntDir)\mem.h \ 8 | $(IntDir)\pngusr.h \ 9 | $(IntDir)\strings.h \ 10 | $(IntDir)\unistd.h \ 11 | $(IntDir)\unixio.h 12 | 13 | $(IntDir)\alloc.h \ 14 | $(IntDir)\fp.h \ 15 | $(IntDir)\m68881.h \ 16 | $(IntDir)\mem.h \ 17 | $(IntDir)\pngusr.h \ 18 | $(IntDir)\strings.h \ 19 | $(IntDir)\unistd.h \ 20 | $(IntDir)\unixio.h: 21 | @!echo.>$@ 22 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/iostream3/TODO: -------------------------------------------------------------------------------- 1 | Possible upgrades to gzfilebuf: 2 | 3 | - The ability to do putback (e.g. putbackfail) 4 | 5 | - The ability to seek (zlib supports this, but could be slow/tricky) 6 | 7 | - Simultaneous read/write access (does it make sense?) 8 | 9 | - Support for ios_base::ate open mode 10 | 11 | - Locale support? 12 | 13 | - Check public interface to see which calls give problems 14 | (due to dependence on library internals) 15 | 16 | - Override operator<<(ostream&, gzfilebuf*) to allow direct copying 17 | of stream buffer to stream ( i.e. os << is.rdbuf(); ) 18 | -------------------------------------------------------------------------------- /xt/rt7474.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl -w 2 | # -*- perl -*- 3 | 4 | # See https://rt.cpan.org/Ticket/Display.html?id=7474 5 | # Marked as unimportant 6 | 7 | use strict; 8 | 9 | use Tk; 10 | 11 | BEGIN { 12 | if (!eval q{ 13 | use Test::More; 14 | 1; 15 | }) { 16 | print "1..0 # skip no Test::More module\n"; 17 | exit; 18 | } 19 | } 20 | 21 | plan tests => 1; 22 | 23 | my $mw = MainWindow->new; 24 | my $button = $mw->Button->grid; 25 | $button->destroy; 26 | # segfaults: 27 | $button->grid; 28 | pass 'No segfault if placing a destroyed widget with grid()'; 29 | 30 | __END__ 31 | -------------------------------------------------------------------------------- /config/Ksprintf.c: -------------------------------------------------------------------------------- 1 | #include 2 | #undef _ANSI_ARGS_ 3 | #if defined(USE_PROTOTYPE) || ((defined(__STDC__) || defined(SABER)) && !defined(NO_PROTOTYPE)) || defined(__cplusplus) 4 | # define _USING_PROTOTYPES_ 1 5 | # define _ANSI_ARGS_(x) x 6 | #else 7 | # define _ANSI_ARGS_(x) () 8 | #endif 9 | 10 | #ifdef SPRINTF_RETURN_CHAR 11 | extern char *sprintf _ANSI_ARGS_((char *,const char *, ...)); 12 | #else 13 | extern int sprintf _ANSI_ARGS_((char *,const char *, ...)); 14 | #endif 15 | 16 | int main() 17 | { 18 | char buf[16]; 19 | sprintf(buf,"%d",0); 20 | return 0; 21 | } 22 | -------------------------------------------------------------------------------- /pTk/tkXrm.h: -------------------------------------------------------------------------------- 1 | EXTERN void Xrm_AddOption _ANSI_ARGS_((Tk_Window tkwin, CONST char *name, 2 | CONST char *value, int priority)); 3 | EXTERN Tk_Uid Xrm_GetOption _ANSI_ARGS_((Tk_Window tkwin, CONST char *name, 4 | CONST char *className)); 5 | EXTERN int Xrm_OptionCmd _ANSI_ARGS_((ClientData clientData, 6 | Tcl_Interp *interp, int argc, Tcl_Obj *CONST args[])); 7 | EXTERN void XrmOptionClassChanged _ANSI_ARGS_((TkWindow *winPtr)); 8 | EXTERN void XrmOptionDeadWindow _ANSI_ARGS_((TkWindow *winPtr)); 9 | EXTERN void Xrm_import _ANSI_ARGS_((char *class)); 10 | 11 | 12 | 13 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/minizip/Makefile: -------------------------------------------------------------------------------- 1 | CC=cc 2 | CFLAGS=-O -I../.. 3 | 4 | UNZ_OBJS = miniunz.o unzip.o ioapi.o ../../libz.a 5 | ZIP_OBJS = minizip.o zip.o ioapi.o ../../libz.a 6 | 7 | .c.o: 8 | $(CC) -c $(CFLAGS) $*.c 9 | 10 | all: miniunz minizip 11 | 12 | miniunz: $(UNZ_OBJS) 13 | $(CC) $(CFLAGS) -o $@ $(UNZ_OBJS) 14 | 15 | minizip: $(ZIP_OBJS) 16 | $(CC) $(CFLAGS) -o $@ $(ZIP_OBJS) 17 | 18 | test: miniunz minizip 19 | ./minizip test readme.txt 20 | ./miniunz -l test.zip 21 | mv readme.txt readme.old 22 | ./miniunz test.zip 23 | 24 | clean: 25 | /bin/rm -f *.o *~ minizip miniunz 26 | -------------------------------------------------------------------------------- /examples/nested_dialog: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | use Tk; 4 | use Tk::Dialog; 5 | 6 | my $mw = MainWindow->new; 7 | my $d1 = $mw->Dialog(-text => 'First Dialog', 8 | -popover => $mw, 9 | -overanchor => 's',-popanchor => 'n'); 10 | my $d2 = $mw->Dialog(-text => 'Second Dialog', 11 | -popover => $d1, 12 | -overanchor => 'e',-popanchor => 'w'); 13 | $d1->Button(-text => 'Again',-command => [$d2,'Show'])->pack; 14 | 15 | $mw->Button(-text => 'Popup',-command => [$d1,'Show'])->pack; 16 | 17 | MainLoop; 18 | -------------------------------------------------------------------------------- /pTk/mTk/tixWin/tixWinInt.h: -------------------------------------------------------------------------------- 1 | 2 | /* $Id: tixWinInt.h,v 1.1.1.1 2000/05/17 11:08:55 idiscovery Exp $ */ 3 | 4 | /* 5 | * tixWinInt.h 6 | * 7 | * Internal header file for Tix on the Windows platform. 8 | * 9 | * Copyright (c) 1996, Expert Interface Technologies 10 | * 11 | * See the file "license.terms" for information on usage and redistribution 12 | * of this file, and for a DISCLAIMER OF ALL WARRANTIES. 13 | * 14 | */ 15 | 16 | #ifndef _TIX_WIN_INT_H_ 17 | #define _TIX_WIN_INT_H_ 18 | 19 | #ifndef _TIX_INT_H_ 20 | #include "tixInt.h" 21 | #endif 22 | 23 | #endif /* _TIX_WIN_INT_H_ */ 24 | -------------------------------------------------------------------------------- /examples/lbformat_demo: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use strict; 3 | use Tk; 4 | use Tk::Font; 5 | 6 | my $mw = MainWindow->new; 7 | my $font = $mw->Font(family => 'courier', point => 140, weight => 'bold', slant => 'r'); 8 | my $lb = $mw->Scrolled('Listbox', -font => $font)->pack(-expand => 1, -fill => 'both');; 9 | $mw->Button(-text => 'Quit', -command => [destroy => $mw])->pack; 10 | 11 | opendir(DIR,".") || die "Cannot opendir '.':$!"; 12 | foreach (sort readdir(DIR)) 13 | { 14 | my $size = (stat($_))[7]; 15 | $lb->insert('end',sprintf("%6d $_",$size)); 16 | } 17 | 18 | MainLoop; 19 | 20 | -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/tixUnixInt.h: -------------------------------------------------------------------------------- 1 | 2 | /* $Id: tixUnixInt.h,v 1.1.1.1 2000/05/17 11:08:54 idiscovery Exp $ */ 3 | 4 | /* 5 | * tixUnixInt.h 6 | * 7 | * Internal header file for Tix on the Unix platform. 8 | * 9 | * Copyright (c) 1996, Expert Interface Technologies 10 | * 11 | * See the file "license.terms" for information on usage and redistribution 12 | * of this file, and for a DISCLAIMER OF ALL WARRANTIES. 13 | * 14 | */ 15 | 16 | #ifndef _TIX_UNIX_INT_H_ 17 | #define _TIX_UNIX_INT_H_ 18 | 19 | #ifndef _TIX_INT_H_ 20 | #include "tixInt.h" 21 | #endif 22 | 23 | #endif /* _TIX_UNIX_INT_H_ */ 24 | -------------------------------------------------------------------------------- /pTk/tixInt.exc: -------------------------------------------------------------------------------- 1 | TixInitSam 2 | TixLoadLibrary 3 | TixRestoreInterpState 4 | TixSaveInterpState 5 | Tix_CallConfigMethod 6 | Tix_CallMethod 7 | Tix_ChangeOneOption 8 | Tix_ChangeOptions 9 | Tix_FindConfigSpecByName 10 | Tix_FindMethod 11 | Tix_FindPublicMethod 12 | Tix_GetChars 13 | Tix_GetConfigSpecFullName 14 | Tix_GetContext 15 | Tix_GetMethodFullName 16 | Tix_GetPublicMethods 17 | Tix_GetVar 18 | Tix_GetWidgetOption 19 | Tix_QueryAllOptions 20 | Tix_QueryOneOption 21 | Tix_SuperClass 22 | Tix_UnknownPublicMethodError 23 | Tix_ValueMissingError 24 | TixpSetWindowParent 25 | TkConsoleCreate 26 | TkConsoleInit 27 | -------------------------------------------------------------------------------- /README.AIX: -------------------------------------------------------------------------------- 1 | 2 | As of perl5.002b1f the MakeMaker shipped with perl moans a lot 3 | building dynamic loaded extension on AIX. They have been reported to work. 4 | 5 | There may be 'make install' problems too. 6 | 7 | Getting latest MakeMaker from CPAN may help. 8 | 9 | Tk800.018 was giving core dumps with some compilers: 10 | 11 | James Walden 12 | Reports: 13 | 14 | I fixed the problem by upgrading to from VAC 4.4.0.0 to 4.4.0.2. 15 | This might be worth adding to the README for AIX. 16 | 17 | > lslpp -L | grep -i vac 18 | vac.C 4.4.0.2 A C for AIX Compiler 19 | -------------------------------------------------------------------------------- /demos/demos/widget_lib/keysyms.pl: -------------------------------------------------------------------------------- 1 | use strict; 2 | 3 | sub keysyms { 4 | 5 | my( $demo ) = @_; 6 | 7 | my $mw = $MW->WidgetDemo( 8 | -name => $demo, 9 | -text => 'This demonstration displays the keysym for any keyboard character.', 10 | -title => 'Display Keysyms', 11 | -iconname => 'keysyms', 12 | ); 13 | 14 | $mw->Label( qw/ -relief solid -width 20 /, -textvariable => \my $k )->pack; 15 | 16 | $mw->bind( '' => sub { 17 | $k = sprintf( "%s", $Tk::event->K ); 18 | }); 19 | 20 | } # end keysyms 21 | -------------------------------------------------------------------------------- /examples/forward_test: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/nperl -w 2 | use strict; 3 | use Tk; 4 | 5 | my $mw = MainWindow->new; 6 | 7 | $mw->Button(-text => 'Quit', -command => [destroy => $mw])->pack; 8 | 9 | my $fr = $mw->Frame->pack; 10 | 11 | $fr->bind('', 'Whatever'); 12 | 13 | my $lab = $fr->Label(-bg => 'Yellow', -width => 50, -height => 17)->pack; 14 | 15 | $lab->bind('',[ForwardEvent => Ev(['Parent'])]); 16 | 17 | sub Tk::Frame::Whatever 18 | { 19 | my $w = shift; 20 | print "Whatever $w ",$w->XEvent->A,"\n"; 21 | } 22 | 23 | $mw->update; 24 | $lab->focus; 25 | 26 | MainLoop; 27 | 28 | __END__ 29 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/ada/zlib.gpr: -------------------------------------------------------------------------------- 1 | project Zlib is 2 | 3 | for Languages use ("Ada"); 4 | for Source_Dirs use ("."); 5 | for Object_Dir use "."; 6 | for Main use ("test.adb", "mtest.adb", "read.adb", "buffer_demo"); 7 | 8 | package Compiler is 9 | for Default_Switches ("ada") use ("-gnatwcfilopru", "-gnatVcdfimorst", "-gnatyabcefhiklmnoprst"); 10 | end Compiler; 11 | 12 | package Linker is 13 | for Default_Switches ("ada") use ("-lz"); 14 | end Linker; 15 | 16 | package Builder is 17 | for Default_Switches ("ada") use ("-s", "-gnatQ"); 18 | end Builder; 19 | 20 | end Zlib; 21 | -------------------------------------------------------------------------------- /examples/motif_hack: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use Data::Dumper; 3 | use strict; 4 | use Tk; 5 | 6 | my $mw = MainWindow->new; 7 | 8 | my @info = $mw->property('get','_MOTIF_DRAG_WINDOW','root'); 9 | if (@info == 2 && $info[0] eq 'WINDOW') 10 | { 11 | my $dw = $info[1]; 12 | my @list = $mw->property('list',$dw); 13 | my $name; 14 | foreach $name (@list) 15 | { 16 | my $val = $mw->property('get',$name,$dw); 17 | print "$name length is ",length($val),"\n"; 18 | my @val = map(sprintf("%02X",$_),unpack('C*',$val)); 19 | print join(' ',@val),"\n"; 20 | print "\n"; 21 | } 22 | } 23 | 24 | 25 | -------------------------------------------------------------------------------- /examples/two_main: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | use Tk; 4 | use Tk::Xrm; 5 | use Tk::widgets qw(DirTree Button); 6 | 7 | # This does not work properly yet 8 | 9 | use strict qw(subs); 10 | 11 | use Tk::Pretty; 12 | 13 | sub top 14 | { 15 | my $name = shift; 16 | my $top = MainWindow->new(); 17 | $top->Button('-text'=>"Quit",'-command'=>['destroy',$top])->pack; 18 | $top->Button('-textvariable'=>\$name, 19 | '-command'=> [ sub { my $name = shift; print "$name\n"},$name])->pack; 20 | $top->DirTree()->pack; 21 | $top->title($name); 22 | } 23 | 24 | &top("One"); 25 | &top("Two"); 26 | 27 | MainLoop; 28 | -------------------------------------------------------------------------------- /examples/canvastile: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl 2 | use Tk; 3 | use Tk::widgets qw(Canvas); 4 | my $mw = MainWindow->new(); 5 | my $tile = $mw->Photo(-file =>Tk->findINC('Camel.xpm')); 6 | my $c = $mw->Canvas( 7 | -background => 'yellow', 8 | -width => 300, 9 | -height => 250, 10 | -relief => 'raised', 11 | -borderwidth => 3, 12 | # -tile => $tile, 13 | -offset => [-30,-30], 14 | )->pack; 15 | 16 | $c->createImage(30,30, -image => $tile); 17 | 18 | $c->update; 19 | $c->after(1000); 20 | $c->configure(-tile => $tile); 21 | MainLoop; 22 | -------------------------------------------------------------------------------- /mkppm.bat: -------------------------------------------------------------------------------- 1 | @perl -Sx %0 "%*" 2 | @goto endofperl 3 | #!perl -w 4 | open(PPD,"Tk.ppd") || die "Cannot open Tk.ppd:$!"; 5 | my $tar; 6 | while () 7 | { 8 | if (/new; 4 | my $i = $top->Photo(-file => Tk->findINC('icon.gif')); 5 | my $t = $top->Text->grid; 6 | my $l = $top->Label(-text => 'Frog'); 7 | $t->insert('end',"A Label '"); 8 | $t->windowCreate('end', -window => $l); 9 | $t->insert('end',"'\n"); 10 | $t->insert('end',"An Image '"); 11 | $t->imageCreate('end', -image => $i); 12 | $t->insert('end',"'\n"); 13 | print join(',', $t->dump('1.0', 'end')), "\n"; 14 | $t->dump(-command => \&dump, '1.0', 'end'); 15 | MainLoop; 16 | 17 | sub dump 18 | { 19 | print join(',',@_),"\n"; 20 | } 21 | 22 | __END__ 23 | 24 | 25 | -------------------------------------------------------------------------------- /pTk/Xlib_f.c: -------------------------------------------------------------------------------- 1 | /* Pull in system's real include files if possible */ 2 | #include "Lang.h" 3 | #include 4 | #include 5 | #if !defined(_TKINTXLIBDECLS) 6 | #include 7 | #ifndef _XLIB 8 | #include "Xlib.h" 9 | #endif 10 | #include "Xlib_f.h" 11 | static unsigned XlibVSize(void) { return sizeof(XlibVtab);} 12 | static XlibVtab XlibVtable = 13 | { 14 | XlibVSize, 15 | #define VFUNC(type,name,mem,args) name, 16 | #define VVAR(type,name,mem) &name, 17 | #include "Xlib.t" 18 | #undef VFUNC 19 | #undef VVAR 20 | }; 21 | XlibVtab *XlibVptr; 22 | XlibVtab *XlibVGet() { return XlibVptr = &XlibVtable;} 23 | #endif 24 | -------------------------------------------------------------------------------- /pTk/findcore: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | BEGIN { require Exporter }; 4 | 5 | use Tk::Pretty; 6 | 7 | %depth = (); 8 | 9 | require 'process_object'; 10 | 11 | foreach (<*.o>) 12 | { 13 | do_nm($_); 14 | } 15 | 16 | 17 | @ARGV = <*_f.o> unless(@ARGV); 18 | 19 | foreach (@ARGV) 20 | { 21 | do_need($_,0,"ARGV"); 22 | } 23 | 24 | foreach $file (sort keys %need) 25 | { 26 | my $src = $file; 27 | $src =~ s/\.o$/.c/; 28 | print "$src ($depth{$file}) : ",Pretty($need{$file}),"\n"; 29 | } 30 | 31 | print "\n"; 32 | 33 | foreach $name (sort keys %unres) 34 | { 35 | print "$name : ",Pretty($unres{$name}),"\n"; 36 | } 37 | 38 | -------------------------------------------------------------------------------- /pTk/tkIntXlibDecls_f.c: -------------------------------------------------------------------------------- 1 | #include 2 | #ifdef _TKINTXLIBDECLS 3 | #include "Lang.h" 4 | #include "tkIntXlibDecls.h" 5 | #include "tkIntXlibDecls_f.h" 6 | static unsigned TkintxlibdeclsVSize(void) { return sizeof(TkintxlibdeclsVtab);} 7 | static TkintxlibdeclsVtab TkintxlibdeclsVtable = 8 | { 9 | TkintxlibdeclsVSize, 10 | #define VFUNC(type,name,mem,args) name, 11 | #define VVAR(type,name,mem) &name, 12 | #include "tkIntXlibDecls.t" 13 | #undef VFUNC 14 | #undef VVAR 15 | }; 16 | TkintxlibdeclsVtab *TkintxlibdeclsVptr; 17 | TkintxlibdeclsVtab *TkintxlibdeclsVGet() { return TkintxlibdeclsVptr = &TkintxlibdeclsVtable;} 18 | #endif 19 | -------------------------------------------------------------------------------- /examples/fetail: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use strict; 3 | my $file = (@ARGV) ? shift : 'README'; 4 | 5 | use Tk; 6 | 7 | my $top = MainWindow->new; 8 | init_check(); 9 | MainLoop; 10 | 11 | sub init_check { 12 | my $cmd = "/usr/bin/tail +0f $file"; 13 | 14 | my $open_pid = open (TAIL, "$cmd|") || die "Can't open $cmd: $!"; 15 | 16 | select (TAIL); $| = 1; 17 | select (STDOUT); $| = 1; 18 | 19 | $top->fileevent(\*TAIL, 'readable', 20 | sub { 21 | $_ = ; 22 | print "debug : $_"; 23 | }); 24 | } 25 | 26 | -------------------------------------------------------------------------------- /examples/oddmenu_demo: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use strict; 3 | use Tk; 4 | 5 | my $mw = MainWindow->new; 6 | 7 | my $mb = $mw->Menubutton(-text => "Strange Menu")->pack; 8 | 9 | my $menu = $mb->menu; 10 | my $lb = $menu->Scrolled('Listbox')->pack; 11 | $menu->configure(-takefocus => 1); 12 | $lb->insert('end',grep(-T $_,<*>)); 13 | 14 | $mw->Message(-text => qq( 15 | Example of (ab)use of Menu. Creates a list box as a child of Menu and packs it. 16 | Interaction is tricky. should unpost, if menu as a whole has 'focus'. 17 | ))->pack; 18 | 19 | 20 | $mw->Button(-text => 'Quit', -command => [destroy => $mw])->pack; 21 | MainLoop; 22 | 23 | -------------------------------------------------------------------------------- /pTk/bitmaps/question.bmp: -------------------------------------------------------------------------------- 1 | #define question_width 17 2 | #define question_height 27 3 | static unsigned char question_bits[] = { 4 | 0xf0, 0x0f, 0x00, 0x58, 0x15, 0x00, 0xac, 0x2a, 0x00, 0x56, 0x55, 0x00, 5 | 0x2b, 0xa8, 0x00, 0x15, 0x50, 0x01, 0x0b, 0xa0, 0x00, 0x05, 0x60, 0x01, 6 | 0x0b, 0xa0, 0x00, 0x05, 0x60, 0x01, 0x0b, 0xb0, 0x00, 0x00, 0x58, 0x01, 7 | 0x00, 0xaf, 0x00, 0x80, 0x55, 0x00, 0xc0, 0x2a, 0x00, 0x40, 0x15, 0x00, 8 | 0xc0, 0x02, 0x00, 0x40, 0x01, 0x00, 0xc0, 0x02, 0x00, 0x40, 0x01, 0x00, 9 | 0xc0, 0x02, 0x00, 0x00, 0x00, 0x00, 0x80, 0x01, 0x00, 0xc0, 0x02, 0x00, 10 | 0x40, 0x01, 0x00, 0xc0, 0x02, 0x00, 0x00, 0x01, 0x00}; 11 | -------------------------------------------------------------------------------- /pTk/mTk/tclWin/tcl.dsw: -------------------------------------------------------------------------------- 1 | Microsoft Developer Studio Workspace File, Format Version 6.00 2 | # WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE! 3 | 4 | ############################################################################### 5 | 6 | Project: "tcl"=.\tcl.dsp - Package Owner=<4> 7 | 8 | Package=<5> 9 | {{{ 10 | }}} 11 | 12 | Package=<4> 13 | {{{ 14 | }}} 15 | 16 | ############################################################################### 17 | 18 | Global: 19 | 20 | Package=<5> 21 | {{{ 22 | }}} 23 | 24 | Package=<3> 25 | {{{ 26 | }}} 27 | 28 | ############################################################################### 29 | 30 | 31 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/iostream/test.cpp: -------------------------------------------------------------------------------- 1 | 2 | #include "zfstream.h" 3 | 4 | int main() { 5 | 6 | // Construct a stream object with this filebuffer. Anything sent 7 | // to this stream will go to standard out. 8 | gzofstream os( 1, ios::out ); 9 | 10 | // This text is getting compressed and sent to stdout. 11 | // To prove this, run 'test | zcat'. 12 | os << "Hello, Mommy" << endl; 13 | 14 | os << setcompressionlevel( Z_NO_COMPRESSION ); 15 | os << "hello, hello, hi, ho!" << endl; 16 | 17 | setcompressionlevel( os, Z_DEFAULT_COMPRESSION ) 18 | << "I'm compressing again" << endl; 19 | 20 | os.close(); 21 | 22 | return 0; 23 | 24 | } 25 | -------------------------------------------------------------------------------- /t/autoload.t: -------------------------------------------------------------------------------- 1 | BEGIN { $^W = 1; $| = 1;} 2 | use Test; 3 | plan tests => 5; 4 | use Tk; 5 | my $method; 6 | 7 | sub warn_handler 8 | { 9 | local $_ = shift; 10 | ok($_ =~ /^Assuming 'require Tk::$method;/,1,"Wrong warning:$_"); 11 | } 12 | 13 | $SIG{'__WARN__'} = \&warn_handler; 14 | 15 | my $mw = MainWindow->new; 16 | $method = 'Nonwidget'; 17 | Tk::catch { $mw->$method() }; 18 | ok($@ =~ /Can't locate/,1,"Wrong error:$@"); 19 | $method = 'BrowseEntry'; 20 | $mw->$method(); 21 | ok(defined(&Tk::Widget::BrowseEntry),1,"Autoload failed"); 22 | $method = 'Entry'; 23 | $mw->$method(); 24 | ok(defined(&Tk::Widget::Entry),1,"Autoload failed"); 25 | 26 | 27 | 28 | -------------------------------------------------------------------------------- /examples/after_demo: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | use Tk; 4 | use strict; 5 | require Tk::Label; 6 | 7 | my $fred = 'Something'; 8 | 9 | sub toggle 10 | { 11 | use vars qw($callback); 12 | my $w = shift; 13 | my $r = $w->configure("-relief"); 14 | $w->configure("-relief" => ($r eq "raised") ? "sunken" : "raised"); 15 | $fred = reverse($fred); 16 | $callback = [\&toggle,$w] unless defined $callback; 17 | $w->after(1000,$callback); 18 | } 19 | 20 | 21 | my $top = MainWindow->new(); 22 | 23 | 24 | my $l = $top->Label('-textvariable'=> \$fred); 25 | 26 | $l->pack(); 27 | 28 | &toggle($l); 29 | 30 | $top->update(); 31 | 32 | Tk::MainLoop(); 33 | 34 | -------------------------------------------------------------------------------- /examples/time: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use Tk::Stats 'Start'; 3 | use strict; 4 | use Tk; 5 | use Tk::Stats 'useTk'; 6 | use Tk::Button; 7 | use Tk::Stats 'useButton'; 8 | 9 | Tk::Stats::stats('start'); 10 | my $mw = MainWindow->new; 11 | Tk::Stats::stats('Mw'); 12 | withdraw $mw; 13 | Tk::Stats::stats('withdraw'); 14 | $mw->bind('', \&Tk::Stats::stats ); 15 | Tk::Stats::stats('bind'); 16 | $mw->Button(-text => 'Quit', -command => [destroy => $mw])->pack; 17 | Tk::Stats::stats('Button'); 18 | $mw->idletasks; 19 | Tk::Stats::stats('idletasks'); 20 | deiconify $mw; 21 | Tk::Stats::stats('deconify'); 22 | $mw->update; 23 | Tk::Stats::stats('update'); 24 | 25 | -------------------------------------------------------------------------------- /pTk/prune_vtab: -------------------------------------------------------------------------------- 1 | #!/tools/local/perl -w 2 | use strict; 3 | 4 | my $file = (@ARGV) ? shift : 'tclDecls.m'; 5 | 6 | use vars qw(%ref); 7 | my %mac; 8 | 9 | require 'process_object'; 10 | 11 | my @n = grep(!/_f\.n/,glob('*.n')); 12 | 13 | warn "Scanning object\n"; 14 | foreach my $obj (grep(!/_f\.n/,glob('*.n'))) 15 | { 16 | do_nm($obj); 17 | } 18 | 19 | 20 | open(TCL,"$file") || die "Cannot open $file:$!"; 21 | warn "Reading $file\n"; 22 | while () 23 | { 24 | if (/^\s*#\s*define\s+(\w+)\b/o) 25 | { 26 | $mac{$1} = $file; 27 | } 28 | } 29 | 30 | foreach my $name (keys %mac) 31 | { 32 | print "$name\n" unless exists $ref{$name}; 33 | } 34 | -------------------------------------------------------------------------------- /examples/local_demo: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use strict; 3 | use Tk qw(MainLoop *widget); 4 | use Carp; 5 | 6 | my $mw = MainWindow->new; 7 | 8 | $mw->Button(-text => 'Button_1', -command => \&callback)->pack; 9 | my $w = $mw->Button(-text => 'Button_2', -command => \&callback)->pack; 10 | 11 | $mw->Button(-text => 'Quit', -command => [destroy => $mw])->pack; 12 | 13 | $w->after(1000,\&callback); 14 | 15 | MainLoop; 16 | 17 | sub callback 18 | { 19 | print $widget->PathName,"\n"; 20 | my $w = $Tk::widget; 21 | if (defined $w) 22 | { 23 | print "Callback for ",$w->cget('-text'),"\n"; 24 | } 25 | else 26 | { 27 | carp "No widget!"; 28 | } 29 | } 30 | -------------------------------------------------------------------------------- /pTk/mTk/win/rc/wish.exe.manifest: -------------------------------------------------------------------------------- 1 | 2 | 3 | 9 | Tcl/Tk windowing shell (wish) 10 | 11 | 12 | 20 | 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /VERSIONS: -------------------------------------------------------------------------------- 1 | This is Tk402.001 2 | 3 | The name by the way is Tcl/Tk's 4.2 with three digits for me to mess with. 4 | 5 | I hope Sun don't get through more than 100 revisions so two sub-version digits 6 | will be enough for them. 7 | 8 | I will subsume Sun's 'patch' stuff (e.g. '3' in 4.2p2) into my digits as we have 9 | tended to be 'ahead' of them on some fixes and behind on others so we don't 10 | map exactly at that level. 11 | 12 | For my digits I will use the 'even'=stable, 'odd'='experimental' 13 | scheme that linux uses: 14 | 15 | .0xx - inherently 'alpha' 16 | .1xx - experimental 'beta' 17 | .2xx - stable 18 | .3xx - experimental 19 | .4xx - stable 20 | 21 | -------------------------------------------------------------------------------- /examples/dialog_test: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use Tk; 3 | my $mw = MainWindow->new; 4 | my $dialog = $mw->Dialog(-text => 'Hello There'); 5 | warn <Button(-text => "\u$meth", -command => [$meth => $dialog])->pack(-side => 'left'); 14 | } 15 | $| = 1; 16 | select STDERR; 17 | $| = 1; 18 | select STDOUT; 19 | # $^D = 8; 20 | MainLoop; -------------------------------------------------------------------------------- /examples/ewidth_demo: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use Tk; 3 | use strict; 4 | 5 | { 6 | package Tk::LimitEntry; 7 | require Tk::Entry; 8 | @Tk::LimitEntry::ISA = qw(Tk::Entry); 9 | 10 | Construct Tk::Widget 'LimitEntry'; 11 | 12 | sub Insert 13 | { 14 | my ($w,$char) = @_; 15 | my $width = $w->cget('-width'); 16 | my $len = $w->index('end'); 17 | if ($len >= $width) 18 | { 19 | $w->bell; 20 | } 21 | else 22 | { 23 | $w->SUPER::Insert($char); 24 | } 25 | } 26 | 27 | 28 | } 29 | 30 | 31 | my $mw = MainWindow->new; 32 | my $var = ""; 33 | my $e = $mw->LimitEntry(-width => 8, -textvariable => \$var)->pack; 34 | $mw->update; 35 | $e->focus; 36 | MainLoop; 37 | -------------------------------------------------------------------------------- /pTk/from: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use strict; 3 | 4 | use File::Find; 5 | 6 | my %mTk; 7 | 8 | sub scan 9 | { 10 | if (/\.[ch]$/) 11 | { 12 | my $name = $File::Find::name; 13 | if (exists $mTk{$_}) 14 | { 15 | warn "$_ = $mTk{$_} and $name\n"; 16 | } 17 | $mTk{$_} = $name; 18 | } 19 | } 20 | 21 | find(\&scan,"mTk"); 22 | 23 | opendir(DIR,".") || die; 24 | foreach (sort readdir(DIR)) 25 | { 26 | if (/\.[ch]$/) 27 | { 28 | if (exists $mTk{$_}) 29 | { 30 | my $path = $mTk{$_}; 31 | print "$path => $_\n"; 32 | } 33 | else 34 | { 35 | warn "$_ is orphan\n"; 36 | } 37 | } 38 | } 39 | close(DIR); 40 | -------------------------------------------------------------------------------- /pTk/tkOption.h: -------------------------------------------------------------------------------- 1 | #ifndef _TKOPTION 2 | #define _TKOPTION 3 | EXTERN void Tk_AddOption _ANSI_ARGS_((Tk_Window tkwin, 4 | CONST char * name, CONST char * value, 5 | int priority)); 6 | EXTERN Tk_Uid Tk_GetOption _ANSI_ARGS_((Tk_Window tkwin, CONST char *name, 7 | CONST char *className)); 8 | EXTERN int Tk_OptionObjCmd _ANSI_ARGS_((ClientData clientData, 9 | Tcl_Interp *interp, int argc, Tcl_Obj *CONST *args)); 10 | #ifndef _TKINT 11 | struct TkWindow; 12 | #endif 13 | EXTERN void TkOptionClassChanged _ANSI_ARGS_((struct TkWindow *winPtr)); 14 | EXTERN void TkOptionDeadWindow _ANSI_ARGS_((struct TkWindow *winPtr)); 15 | #endif /* _TKOPTION */ 16 | 17 | 18 | -------------------------------------------------------------------------------- /t/slaves.t: -------------------------------------------------------------------------------- 1 | BEGIN { $|=1; $^W=1; } 2 | use Test; 3 | use Tk; 4 | 5 | plan test => 12; 6 | 7 | my $mw = MainWindow->new; 8 | 9 | $x=$y=0; 10 | foreach $geom ( qw/ pack place grid form / ) { 11 | $f=$mw->Toplevel(qw/-bd 4 -relief solid /); 12 | $f->title($geom); 13 | foreach ( 1 .. 3 ) { 14 | @p = (); 15 | if ($geom eq 'place') { 16 | $x+=20; 17 | $y=$x; 18 | @p=('-x', $x, '-y', $y); 19 | } 20 | $f->Label(-text => $_)->$geom(@p); 21 | } 22 | $s="${geom}Slaves"; 23 | #print "$geom slaves=", join(' ', $f->$s), "!\n"; 24 | foreach $s ($f->$s) { 25 | ok( sub { return ( ref( $s ) ) ? 1 : 0 }, 1, "$geom slave '$s' not a reference."); 26 | } 27 | } 28 | -------------------------------------------------------------------------------- /t/Require.t: -------------------------------------------------------------------------------- 1 | #!perl -w 2 | use strict; 3 | BEGIN { $ENV{'PERL_DL_NONLAZY'} = 1 } 4 | 5 | require Tk; 6 | # $SIG{__WARN__} = sub { die shift }; 7 | my ($dir) = $INC{'Tk.pm'} =~ /^(.*)\.pm$/; 8 | opendir(TK,$dir) || die "Cannot opendir $dir:$!"; 9 | my @files = grep(/\.pm$/,readdir(TK)); 10 | closedir(TK); 11 | my $file; 12 | $Test::ntest = @files; 13 | print "1..",$Test::ntest,"\n"; 14 | my $count = 1; 15 | foreach $file (@files) 16 | { 17 | if ($file =~ /\.pm$/) 18 | { 19 | # print "Tk/$file\n"; 20 | eval { require "Tk/$file" }; 21 | if ($@) 22 | { 23 | warn "Tk/$file: $@"; 24 | print "not "; 25 | } 26 | print "ok ",$count++,"\n"; 27 | } 28 | } 29 | 30 | -------------------------------------------------------------------------------- /PNG/libpng/contrib/visupng/VisualPng.dsw: -------------------------------------------------------------------------------- 1 | Microsoft Developer Studio Workspace File, Format Version 6.00 2 | # WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE! 3 | 4 | ############################################################################### 5 | 6 | Project: "VisualPng"=.\VisualPng.dsp - Package Owner=<4> 7 | 8 | Package=<5> 9 | {{{ 10 | }}} 11 | 12 | Package=<4> 13 | {{{ 14 | }}} 15 | 16 | ############################################################################### 17 | 18 | Global: 19 | 20 | Package=<5> 21 | {{{ 22 | }}} 23 | 24 | Package=<3> 25 | {{{ 26 | }}} 27 | 28 | ############################################################################### 29 | 30 | -------------------------------------------------------------------------------- /examples/tktail: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use strict; 3 | use Tk; 4 | use IO::File; 5 | 6 | sub readfile 7 | { 8 | my ($t,$fh) = @_; 9 | my $size = (stat($fh))[7]; 10 | my $len = $size - $t->{'posn'}; 11 | if ($len > 0) 12 | { 13 | my $buffer = ""; 14 | my $got = sysread($fh,$buffer,$len); 15 | $t->insert('end',$buffer); 16 | $t->{posn} += $got; 17 | $t->see('end'); 18 | } 19 | } 20 | 21 | my $mw = MainWindow->new; 22 | 23 | my $fh = IO::File->new("<$ARGV[0]"); 24 | 25 | my $t = $mw->Scrolled('Text',-scrollbars => 'w'); 26 | 27 | $t->pack(-expand => 1, -fill => 'both'); 28 | 29 | $t->{posn} = 0; 30 | 31 | $t->repeat(5000,sub { readfile($t,$fh) } ); 32 | 33 | MainLoop; 34 | -------------------------------------------------------------------------------- /Contrib/book-examples/f-16.6.pl: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | # 4 | # Figure 16.6, p165 5 | # 6 | 7 | 8 | use Tk; 9 | 10 | my $mw = MainWindow->new; 11 | $mw->Button(-text => 'OK', -command => \&ok)->pack(-side => 'left'); 12 | $mw->Button(-text => 'Apply', -command => \&apply)->pack(-side => 'left'); 13 | $mw->Button(-text => 'Cancel', -command => \&cancel)->pack(-side => 'left'); 14 | $mw->Button(-text => 'Help', -command => \&help)->pack(-side => 'left'); 15 | 16 | sub ok { 17 | print STDOUT "in OK\n"; 18 | } 19 | sub apply { 20 | print STDOUT "in apply\n"; 21 | } 22 | sub cancel { 23 | print STDOUT "in cancel\n"; 24 | } 25 | sub help { 26 | print STDOUT "in help\n"; 27 | } 28 | 29 | MainLoop; 30 | -------------------------------------------------------------------------------- /PNG/zlib/contrib/masmx86/readme.txt: -------------------------------------------------------------------------------- 1 | 2 | Summary 3 | ------- 4 | This directory contains ASM implementations of the functions 5 | longest_match() and inflate_fast(). 6 | 7 | 8 | Use instructions 9 | ---------------- 10 | Copy these files into the zlib source directory, then run the 11 | appropriate makefile, as suggested below. 12 | 13 | 14 | Build instructions 15 | ------------------ 16 | * With Microsoft C and MASM: 17 | nmake -f win32/Makefile.msc LOC="-DASMV -DASMINF" OBJA="gvmat32c.obj gvmat32.obj inffas32.obj" 18 | 19 | * With Borland C and TASM: 20 | make -f win32/Makefile.bor LOCAL_ZLIB="-DASMV -DASMINF" OBJA="gvmat32c.obj gvmat32.obj inffas32.obj" OBJPA="+gvmat32c.obj+gvmat32.obj+inffas32.obj" 21 | 22 | -------------------------------------------------------------------------------- /pTk/mTk/tixWin/tixWinWm.c: -------------------------------------------------------------------------------- 1 | 2 | /* $Id: tixWinWm.c,v 1.1.1.1 2000/05/17 11:08:55 idiscovery Exp $ */ 3 | 4 | /* 5 | * tixWinWm.c -- 6 | * 7 | * Functions related to window management that are specific to 8 | * the Windows platform 9 | * 10 | * Copyright (c) 1996, Expert Interface Technologies 11 | * 12 | * See the file "license.terms" for information on usage and redistribution 13 | * of this file, and for a DISCLAIMER OF ALL WARRANTIES. 14 | * 15 | */ 16 | 17 | #include "tixWinInt.h" 18 | 19 | int 20 | TixpSetWindowParent(interp, tkwin, newParent, parentId) 21 | Tcl_Interp * interp; 22 | Tk_Window tkwin; 23 | Tk_Window newParent; 24 | int parentId; 25 | { 26 | return TCL_OK; 27 | } 28 | -------------------------------------------------------------------------------- /pTk/vexc: -------------------------------------------------------------------------------- 1 | #!/tools/local/perl5.7.0 -w 2 | use strict; 3 | my $pat = join('|',@ARGV); 4 | 5 | my @m = glob('*.m'); 6 | my %e; 7 | 8 | foreach my $m (glob('*.m')) 9 | { 10 | my ($what) = $m =~ /^(.*)\.m$/; 11 | open(M,"$what.m") || die "Cannot open $what.m:$!"; 12 | while () 13 | { 14 | if (/^\s*#\s*define\s+(\w*(?:$pat)\w*)\b/o) 15 | { 16 | warn "$what: $1\n"; 17 | my $f = $e{$what}; 18 | unless (defined $f) 19 | { 20 | open($f,">>$what.exc") || die "Cannot open $what.exc:$!"; 21 | $e{$what} = $f; 22 | } 23 | print $f "$1\n"; 24 | } 25 | } 26 | close(M); 27 | } 28 | 29 | foreach my $f (values %e) 30 | { 31 | close($f); 32 | } 33 | 34 | -------------------------------------------------------------------------------- /examples/iconwin: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | use Tk; 4 | 5 | my $top = MainWindow->new(); 6 | # $top->CreateGenericHandler(\&handler); 7 | # $top->wmTracing(1); 8 | 9 | my $img = $top->Pixmap('-file' => Tk->findINC("demos/images/QuitPB.xpm")); 10 | 11 | # $top->iconify; 12 | 13 | $top->Icon('-image' => $img); 14 | $top->iconname("Foo"); 15 | $top->title("Mail : Trial"); 16 | 17 | #$top->after(3000, [ 'Icon', $top, '-background' => 'green' ]); 18 | 19 | $top->after(3000, [ iconify => $top ]); 20 | $top->after(6000, [ deiconify => $top ]); 21 | 22 | MainLoop(); 23 | 24 | sub handler 25 | { 26 | my ($e,$w) = @_; 27 | 28 | print $e->T,' ',($w->isa('Tk::Widget') ? $w->PathName : $w),"\n"; 29 | return 0; 30 | } 31 | 32 | -------------------------------------------------------------------------------- /pTk/mTk/tixUnix/tixUnixWm.c: -------------------------------------------------------------------------------- 1 | 2 | /* $Id: tixUnixWm.c,v 1.1.1.1 2000/05/17 11:08:54 idiscovery Exp $ */ 3 | 4 | /* 5 | * tixUnixWm.c -- 6 | * 7 | * Implement the Windows specific function calls for window management. 8 | * 9 | * Copyright (c) 1996, Expert Interface Technologies 10 | * 11 | * See the file "license.terms" for information on usage and redistribution 12 | * of this file, and for a DISCLAIMER OF ALL WARRANTIES. 13 | * 14 | */ 15 | 16 | #include "tixPort.h" 17 | #include "tixUnixInt.h" 18 | 19 | int 20 | TixpSetWindowParent(interp, tkwin, newParent, parentId) 21 | Tcl_Interp * interp; 22 | Tk_Window tkwin; 23 | Tk_Window newParent; 24 | int parentId; 25 | { 26 | return TCL_OK; 27 | } 28 | -------------------------------------------------------------------------------- /pTk/tkOption.m: -------------------------------------------------------------------------------- 1 | #ifndef _TKOPTION_VM 2 | #define _TKOPTION_VM 3 | #include "tkOption_f.h" 4 | #ifndef NO_VTABLES 5 | #ifndef TkOptionClassChanged 6 | # define TkOptionClassChanged (*TkoptionVptr->V_TkOptionClassChanged) 7 | #endif 8 | 9 | #ifndef TkOptionDeadWindow 10 | # define TkOptionDeadWindow (*TkoptionVptr->V_TkOptionDeadWindow) 11 | #endif 12 | 13 | #ifndef Tk_AddOption 14 | # define Tk_AddOption (*TkoptionVptr->V_Tk_AddOption) 15 | #endif 16 | 17 | #ifndef Tk_GetOption 18 | # define Tk_GetOption (*TkoptionVptr->V_Tk_GetOption) 19 | #endif 20 | 21 | #ifndef Tk_OptionObjCmd 22 | # define Tk_OptionObjCmd (*TkoptionVptr->V_Tk_OptionObjCmd) 23 | #endif 24 | 25 | #endif /* NO_VTABLES */ 26 | #endif /* _TKOPTION_VM */ 27 | -------------------------------------------------------------------------------- /t/X.t: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Tk::X; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /Event/event_demo: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use strict; 3 | use Tk::Event; 4 | Tk::Event::HandleSignals; 5 | my $done = 0; 6 | 7 | $SIG{'INT'} = sub { print "Interrupt\n"; $done = 1 }; 8 | $SIG{'ALRM'} = sub { print "Alarm\n"; alarm(3) }; 9 | 10 | print "Loaded ",join(' ',sort keys %INC),"\n"; 11 | 12 | 13 | Tk::Event::IO->fileevent(\*STDIN,'readable',\&read_it); 14 | $| = 1; 15 | 16 | my $h = Tk::Event::IO->fileevent(\*STDIN,'readable'); 17 | print "Callback is $h\n"; 18 | 19 | 20 | alarm(3); 21 | Tk::Event::DoOneEvent(0) while (!$done); 22 | 23 | sub read_it 24 | { 25 | my $line = ; 26 | if (defined $line) 27 | { 28 | print $line; 29 | } 30 | else 31 | { 32 | $done = 1; 33 | } 34 | } 35 | 36 | 37 | 38 | -------------------------------------------------------------------------------- /PNG/libpng/autogen.sh: -------------------------------------------------------------------------------- 1 | #! /bin/sh 2 | # a quick hack script to generate necessary files from 3 | # auto* tools. 4 | # 5 | # WARNING: if you run this you will change the versions 6 | # of the tools which are used and, maybe, required! 7 | touch Makefile.am configure.ac 8 | { 9 | echo "running libtoolize" >&2 10 | libtoolize --copy --automake 11 | } && { 12 | echo "running aclocal" >&2 13 | aclocal 14 | } && { 15 | echo "running autoheader [ignore the warnings]" >&2 16 | autoheader 17 | } && { 18 | echo "running automake" >&2 19 | automake --foreign -a -c 20 | } && { 21 | echo "running autoconf" >&2 22 | autoconf 23 | } && 24 | echo "autogen complete" >&2 || 25 | echo "ERROR: autogen.sh failed, autogen is incomplete" >&2 26 | -------------------------------------------------------------------------------- /examples/style_test: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | use Tk; 4 | use Tk::HList; 5 | use Tk::ItemStyle; 6 | 7 | $top = new MainWindow; 8 | $hl = $top->HList->pack; 9 | $redstyle = $top->ItemStyle('text', 10 | -foreground => 'red', 11 | -font => '10x20', 12 | -background => 'green'); 13 | 14 | print $redstyle,"\n"; 15 | 16 | $bluestyle = $top->ItemStyle('text', 17 | -foreground => 'blue', 18 | -background => 'white', 19 | ); 20 | 21 | $hl->add(0, -itemtype => 'text', -text => 'red', -style => $redstyle); 22 | $hl->add(1, -itemtype => 'text', -text => 'blue', -style => $bluestyle); 23 | 24 | $top->after(5000, [ configure => $redstyle, -background => 'cyan' ]); 25 | 26 | MainLoop; 27 | 28 | -------------------------------------------------------------------------------- /README.OSF: -------------------------------------------------------------------------------- 1 | 2 | OSF's 'make' has problems with the Makefiles constructed by MakeMaker 3 | before MakeMaker-4.18 4 | 5 | make 6 | just says: 7 | `Makefile' is up to date. 8 | 9 | Using GNU make solves this. 10 | 11 | Otherwise type: 12 | 13 | make all 14 | 15 | and do 'install' by hand: 16 | 17 | make all 18 | 19 | perl ./basic_demo 20 | 21 | cp -r blib /usr/local/lib/perl5 22 | 23 | Note that the cp -r does *not* do quite the same as a make install, 24 | in particular the binaries are not separated from the scripts. 25 | 26 | On Alpha if you get something like: 27 | 28 | GC already registered in Tk_GetGC 29 | Tcl_Panic at ... 30 | 31 | Then it has been reported that reducing optimize from -O4 to -O3 32 | fixes the problem. 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /Text/Text.xs: -------------------------------------------------------------------------------- 1 | /* 2 | Copyright (c) 1995-2003 Nick Ing-Simmons. All rights reserved. 3 | This program is free software; you can redistribute it and/or 4 | modify it under the same terms as Perl itself. 5 | */ 6 | #define PERL_NO_GET_CONTEXT 7 | #include 8 | #include 9 | #include 10 | 11 | #include "tkGlue.def" 12 | 13 | #include "pTk/tkPort.h" 14 | #include "pTk/tkInt.h" 15 | #include "tkGlue.h" 16 | #include "tkGlue.m" 17 | #include "pTk/tkVMacro.h" 18 | 19 | DECLARE_VTABLES; 20 | 21 | MODULE = Tk::Text PACKAGE = Tk 22 | 23 | PROTOTYPES: DISABLE 24 | 25 | void 26 | text(...) 27 | CODE: 28 | { 29 | TKXSRETURN(XSTkCommand(cv,1,Tk_TextCmd,items,&ST(0))); 30 | } 31 | 32 | BOOT: 33 | { 34 | IMPORT_VTABLES; 35 | } 36 | -------------------------------------------------------------------------------- /demos/hello: -------------------------------------------------------------------------------- 1 | #!/usr/bin/env perl 2 | # 3 | # Simple Tk script to create a button that prints "Hello, world". Click on 4 | # the button to terminate the program. 5 | # 6 | # The first line below imports the Tk objects into the application, the second 7 | # line creates the main window, the third through sixth lines create the button 8 | # and defines the code to execute when the button is pressed, the seventh line 9 | # asks the packer to shrink-wrap the application's main window around the 10 | # button, and the eight line starts the event loop. 11 | 12 | use Tk; 13 | $MW = MainWindow->new; 14 | $hello = $MW->Button( 15 | -text => 'Hello, world', 16 | -command => sub {print STDOUT "Hello, world\n"; exit;}, 17 | ); 18 | $hello->pack; 19 | MainLoop; 20 | -------------------------------------------------------------------------------- /tkGlue_f.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include 3 | #include 4 | #include "tkGlue.def" 5 | #include "pTk/tkPort.h" 6 | #include "pTk/tkInt.h" 7 | #include "pTk/tkImgPhoto.h" 8 | #include "pTk/Lang_f.h" 9 | #include "pTk/Xlib.h" 10 | #include "pTk/tk_f.h" 11 | #include "pTk/tkInt_f.h" 12 | #include "pTk/Xlib_f.h" 13 | #include "tkGlue.h" 14 | #include "tkGlue_f.h" 15 | static unsigned TkglueVSize(void) { return sizeof(TkglueVtab);} 16 | static TkglueVtab TkglueVtable = 17 | { 18 | TkglueVSize, 19 | #define VFUNC(type,name,mem,args) name, 20 | #define VVAR(type,name,mem) &name, 21 | #include "tkGlue.t" 22 | #undef VFUNC 23 | #undef VVAR 24 | }; 25 | TkglueVtab *TkglueVptr; 26 | TkglueVtab *TkglueVGet() { return TkglueVptr = &TkglueVtable;} 27 | -------------------------------------------------------------------------------- /Contrib/book-examples/f-16.7.pl: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | 3 | # 4 | # Figure 16.7, p166 5 | # 6 | 7 | # not -w clean (how to do ?) 8 | 9 | use Tk; 10 | 11 | my $mw = MainWindow->new; 12 | my $bold = $mw->Checkbutton(-text => 'Bold', 13 | -variable => $bold, 14 | -anchor => 'w', 15 | ); 16 | my $italic = $mw->Checkbutton(-text => 'Italic', 17 | -variable => $italic, 18 | -anchor => 'w', 19 | ); 20 | my $underline = $mw->Checkbutton(-text => 'Underline', 21 | -variable => $underline, 22 | -anchor => 'w', 23 | ); 24 | $bold->pack(-side => 'top', -fill => 'x'); 25 | $italic->pack(-side => 'top', -fill => 'x'); 26 | $underline->pack(-side => 'top', -fill => 'x'); 27 | 28 | MainLoop; 29 | -------------------------------------------------------------------------------- /Scale/Scale.xs: -------------------------------------------------------------------------------- 1 | /* 2 | Copyright (c) 1995-2003 Nick Ing-Simmons. All rights reserved. 3 | This program is free software; you can redistribute it and/or 4 | modify it under the same terms as Perl itself. 5 | */ 6 | #define PERL_NO_GET_CONTEXT 7 | #include 8 | #include 9 | #include 10 | 11 | #include "tkGlue.def" 12 | 13 | #include "pTk/tkPort.h" 14 | #include "pTk/tkInt.h" 15 | #include "tkGlue.h" 16 | #include "tkGlue.m" 17 | #include "pTk/tkVMacro.h" 18 | 19 | DECLARE_VTABLES; 20 | 21 | MODULE = Tk::Scale PACKAGE = Tk 22 | 23 | PROTOTYPES: DISABLE 24 | 25 | void 26 | scale(...) 27 | CODE: 28 | { 29 | TKXSRETURN(XSTkCommand(cv,0,Tk_ScaleObjCmd,items,&ST(0))); 30 | } 31 | 32 | BOOT: 33 | { 34 | IMPORT_VTABLES; 35 | } 36 | -------------------------------------------------------------------------------- /examples/animate: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use Tk; 3 | 4 | my $mw = MainWindow->new; 5 | 6 | use strict; 7 | 8 | use Tk::widgets qw(Photo Animation); 9 | 10 | my $file = (@ARGV) ? shift : Tk->findINC('anim.gif'); 11 | 12 | my $img = $mw->Animation('-format' => 'gif',-file => $file); 13 | 14 | my $lab = $mw->Label(-image => $img); 15 | 16 | my $start = $mw->Button(-text => 'Start', -command => ['start_animation' => $img]); 17 | my $stop = $mw->Button(-text => 'Stop', -command => ['stop_animation' => $img]); 18 | my $quit = $mw->Button(-text => 'Quit', -command => [destroy => $mw]); 19 | Tk::grid($lab,'-','-',-sticky => 'nsew'); 20 | Tk::grid($start, $stop, $quit,-sticky => 'ew'); 21 | $mw->gridRowconfigure(0,-weight => 1); 22 | MainLoop; 23 | 24 | 25 | -------------------------------------------------------------------------------- /examples/pixmap_test: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use strict; 3 | use Tk; 4 | require Tk::Pixmap; 5 | 6 | my $mw = MainWindow->new; 7 | 8 | my $file = Tk->findINC("demos/images/QuitPB.xpm"); 9 | 10 | die "No file" unless defined($file); 11 | 12 | print "Loading $file\n"; 13 | 14 | my $QuitPB = $mw->Pixmap('-file' => $file); 15 | 16 | print "Pixmap is $QuitPB\n"; 17 | 18 | my $QuitPBa = $mw->Pixmap('-file' => Tk->findINC("demos/images/QuitPBa.xpm")); 19 | 20 | $mw->Label(-background => 'yellow', -image => $QuitPB)->pack; 21 | 22 | 23 | $mw->Button(-image => $QuitPB, #-activeimage => $QuitPBa, 24 | -background => 'green', 25 | -activebackground => 'green', 26 | -command => [destroy => $mw])->pack; 27 | MainLoop; 28 | 29 | -------------------------------------------------------------------------------- /PNG/libpng/projects/cbuilder5/libpngstat.bpf: -------------------------------------------------------------------------------- 1 | USEUNIT("..\..\png.c"); 2 | USEUNIT("..\..\pngerror.c"); 3 | USEUNIT("..\..\pngget.c"); 4 | USEUNIT("..\..\pngmem.c"); 5 | USEUNIT("..\..\pngpread.c"); 6 | USEUNIT("..\..\pngread.c"); 7 | USEUNIT("..\..\pngrio.c"); 8 | USEUNIT("..\..\pngrtran.c"); 9 | USEUNIT("..\..\pngrutil.c"); 10 | USEUNIT("..\..\pngset.c"); 11 | USEUNIT("..\..\pngtrans.c"); 12 | USEUNIT("..\..\pngwio.c"); 13 | USEUNIT("..\..\pngwrite.c"); 14 | USEUNIT("..\..\pngwtran.c"); 15 | USEUNIT("..\..\pngwutil.c"); 16 | USELIB("..\..\..\zlib\zlib.lib"); 17 | //--------------------------------------------------------------------------- 18 | #define Library 19 | 20 | // To add a file to the library use the Project menu 'Add to Project'. 21 | 22 | -------------------------------------------------------------------------------- /PNG/libpng/projects/cbuilder5/zlib.readme.txt: -------------------------------------------------------------------------------- 1 | The project that builds libpng under Borland C++ Builder does not 2 | explicitly build zlib. By taking this decision, there is no need 3 | to update the libpng project each time when there is a change in 4 | the list of zlib source files. After all, this list is private to 5 | zlib, and applications (such as libpng) should not assume anything 6 | about it. 7 | 8 | If you wish to contribute a project that builds zlib under Borland 9 | C++ Builder, please submit it to the zlib developers, not to the 10 | libpng developers. 11 | 12 | By default, the libpng project uses zlib as a static library. If 13 | you wish to use zlib as a DLL, please read the important notes from 14 | the zlib DLL FAQ, found inside the zlib distribution. 15 | -------------------------------------------------------------------------------- /examples/adj_demo: -------------------------------------------------------------------------------- 1 | #!/usr/local/bin/perl -w 2 | use Tk; 3 | require Tk::TextUndo; 4 | 5 | use Carp; 6 | 7 | $SIG{__DIE__} = \&Carp::confess; 8 | 9 | my $mw = MainWindow->new; 10 | 11 | 12 | # Uncomment next line to avoid the warning - this a test of the warning 13 | # use Tk::TextUndo; 14 | my $t1 = $mw->Scrolled('TextUndo', -wrap => 'none'); 15 | my $lb = $mw->Scrolled('Listbox'); 16 | $lb->packAdjust(-side => 'left', -fill => 'both', -delay => 1); 17 | $lb->bind('',sub { $t1->Load($lb->getSelected) }); 18 | 19 | $t1->pack(-side => 'right', -fill => 'both', -expand => 1); 20 | 21 | opendir(DIR,'.'); 22 | my $name; 23 | foreach $name (readdir(DIR)) 24 | { 25 | $lb->insert('end',$name) if (-T $name); 26 | } 27 | closedir(DIR); 28 | MainLoop; 29 | -------------------------------------------------------------------------------- /pTk/Xlib.excwin: -------------------------------------------------------------------------------- 1 | XUnionRectWithRegion 2 | XSetWMHints 3 | XWarpPointer 4 | XCheckIfEvent 5 | XSetClassHint 6 | XCreateRegion 7 | XDefaultDepth 8 | XEventsQueued 9 | XDefaultScreen 10 | XDestroyRegion 11 | XFreeFontNames 12 | XDefaultVisual 13 | XDefaultColormap 14 | XAllocClassHint 15 | XAllocSizeHints 16 | XListProperties 17 | XDrawImageString 18 | XIntersectRegion 19 | XSetWMNormalHints 20 | XCheckWindowEvent 21 | XConvertSelection 22 | XGetSelectionOwner 23 | XClipBox 24 | XPutImage 25 | XSetRegion 26 | XSetWMName 27 | XListFonts 28 | XLoadFont 29 | XFreeFont 30 | XDrawString 31 | XAllocNamedColor 32 | XGetFontProperty 33 | XTextWidth 34 | XTextExtents 35 | XSetWMColormapWindows 36 | XSetTransientForHint 37 | XReadBitmapFile 38 | XOpenDisplay 39 | XLoadQueryFont 40 | XCreateWindow -------------------------------------------------------------------------------- /perlfiles: -------------------------------------------------------------------------------- 1 | package Perlfiles; 2 | 3 | use File::Find; 4 | 5 | @wanted = (); 6 | 7 | sub perlscript 8 | { 9 | my ($file) = @_; 10 | open(SCRIPT,"<$file") || die "Cannot open $file:$!"; 11 | my $line =