1 diff -Nru Tk800.023/Contrib/TickerTape Tk800.023.new/Contrib/TickerTape
2 --- Tk800.023/Contrib/TickerTape Sat Dec 30 17:12:37 2000
3 +++ Tk800.023.new/Contrib/TickerTape Sat Sep 1 07:05:34 2001
10 diff -Nru Tk800.023/Contrib/book-examples/f-15.5.pl Tk800.023.new/Contrib/book-examples/f-15.5.pl
11 --- Tk800.023/Contrib/book-examples/f-15.5.pl Sat Dec 30 17:12:37 2000
12 +++ Tk800.023.new/Contrib/book-examples/f-15.5.pl Sat Sep 1 07:05:34 2001
14 -#!/usr/local/bin/perl -w
19 diff -Nru Tk800.023/Contrib/book-examples/f-16.1.pl Tk800.023.new/Contrib/book-examples/f-16.1.pl
20 --- Tk800.023/Contrib/book-examples/f-16.1.pl Sat Dec 30 17:12:37 2000
21 +++ Tk800.023.new/Contrib/book-examples/f-16.1.pl Sat Sep 1 07:05:34 2001
23 -#!/usr/local/bin/perl -w
28 diff -Nru Tk800.023/Contrib/book-examples/f-16.10.pl Tk800.023.new/Contrib/book-examples/f-16.10.pl
29 --- Tk800.023/Contrib/book-examples/f-16.10.pl Sat Dec 30 17:12:37 2000
30 +++ Tk800.023.new/Contrib/book-examples/f-16.10.pl Sat Sep 1 07:05:34 2001
32 -#!/usr/local/bin/perl -w
37 diff -Nru Tk800.023/Contrib/book-examples/f-16.2.pl Tk800.023.new/Contrib/book-examples/f-16.2.pl
38 --- Tk800.023/Contrib/book-examples/f-16.2.pl Sat Dec 30 17:12:37 2000
39 +++ Tk800.023.new/Contrib/book-examples/f-16.2.pl Sat Sep 1 07:05:34 2001
41 -#!/usr/local/bin/perl -w
46 diff -Nru Tk800.023/Contrib/book-examples/f-16.3.pl Tk800.023.new/Contrib/book-examples/f-16.3.pl
47 --- Tk800.023/Contrib/book-examples/f-16.3.pl Sat Dec 30 17:12:37 2000
48 +++ Tk800.023.new/Contrib/book-examples/f-16.3.pl Sat Sep 1 07:05:34 2001
50 -#!/usr/local/bin/perl -w
55 diff -Nru Tk800.023/Contrib/book-examples/f-16.6.pl Tk800.023.new/Contrib/book-examples/f-16.6.pl
56 --- Tk800.023/Contrib/book-examples/f-16.6.pl Sat Dec 30 17:12:37 2000
57 +++ Tk800.023.new/Contrib/book-examples/f-16.6.pl Sat Sep 1 07:05:34 2001
59 -#!/usr/local/bin/perl -w
64 diff -Nru Tk800.023/Contrib/book-examples/f-16.7.pl Tk800.023.new/Contrib/book-examples/f-16.7.pl
65 --- Tk800.023/Contrib/book-examples/f-16.7.pl Sat Dec 30 17:12:37 2000
66 +++ Tk800.023.new/Contrib/book-examples/f-16.7.pl Sat Sep 1 07:05:34 2001
68 -#!/usr/local/bin/perl -w
73 diff -Nru Tk800.023/Contrib/book-examples/f-16.8.pl Tk800.023.new/Contrib/book-examples/f-16.8.pl
74 --- Tk800.023/Contrib/book-examples/f-16.8.pl Sat Dec 30 17:12:37 2000
75 +++ Tk800.023.new/Contrib/book-examples/f-16.8.pl Sat Sep 1 07:05:34 2001
77 -#!/usr/local/bin/perl -w
82 diff -Nru Tk800.023/Contrib/book-examples/f-16.9.pl Tk800.023.new/Contrib/book-examples/f-16.9.pl
83 --- Tk800.023/Contrib/book-examples/f-16.9.pl Sat Dec 30 17:12:37 2000
84 +++ Tk800.023.new/Contrib/book-examples/f-16.9.pl Sat Sep 1 07:05:34 2001
86 -#!/usr/local/bin/perl -w
91 diff -Nru Tk800.023/Contrib/fd_demo Tk800.023.new/Contrib/fd_demo
92 --- Tk800.023/Contrib/fd_demo Sat Dec 30 17:12:37 2000
93 +++ Tk800.023.new/Contrib/fd_demo Sat Sep 1 07:05:34 2001
95 -#!/usr/local/bin/perl -w
99 require Tk::FileDialog;
100 diff -Nru Tk800.023/Contrib/testlistbox Tk800.023.new/Contrib/testlistbox
101 --- Tk800.023/Contrib/testlistbox Sat Dec 30 17:12:37 2000
102 +++ Tk800.023.new/Contrib/testlistbox Sat Sep 1 07:05:34 2001
104 -#!/usr/local/bin/perl
109 diff -Nru Tk800.023/DragDrop/drag_test Tk800.023.new/DragDrop/drag_test
110 --- Tk800.023/DragDrop/drag_test Sat Dec 30 17:12:37 2000
111 +++ Tk800.023.new/DragDrop/drag_test Sat Sep 1 07:05:34 2001
113 -#!/usr/local/bin/perl -w
117 use Tk::DragDrop qw(Sun);
118 diff -Nru Tk800.023/DragDrop/has_sun Tk800.023.new/DragDrop/has_sun
119 --- Tk800.023/DragDrop/has_sun Sat Dec 30 17:12:37 2000
120 +++ Tk800.023.new/DragDrop/has_sun Sat Sep 1 07:05:34 2001
122 -#!/usr/local/bin/perl -w
126 my $mw = MainWindow->new;
127 diff -Nru Tk800.023/DragDrop/local_test Tk800.023.new/DragDrop/local_test
128 --- Tk800.023/DragDrop/local_test Sat Dec 30 17:12:37 2000
129 +++ Tk800.023.new/DragDrop/local_test Sat Sep 1 07:05:34 2001
131 -#!/usr/local/bin/perl -w
136 diff -Nru Tk800.023/DragDrop/motion_test Tk800.023.new/DragDrop/motion_test
137 --- Tk800.023/DragDrop/motion_test Sat Dec 30 17:12:37 2000
138 +++ Tk800.023.new/DragDrop/motion_test Sat Sep 1 07:05:34 2001
140 -#!/usr/local/bin/perl -w
145 diff -Nru Tk800.023/DragDrop/selection Tk800.023.new/DragDrop/selection
146 --- Tk800.023/DragDrop/selection Sat Dec 30 17:12:37 2000
147 +++ Tk800.023.new/DragDrop/selection Sat Sep 1 07:05:34 2001
149 -#!/usr/local/bin/perl -w
154 diff -Nru Tk800.023/DragDrop/site_test Tk800.023.new/DragDrop/site_test
155 --- Tk800.023/DragDrop/site_test Sat Dec 30 17:12:37 2000
156 +++ Tk800.023.new/DragDrop/site_test Sat Sep 1 07:05:34 2001
158 -#!/usr/local/bin/perl -w
163 diff -Nru Tk800.023/Extensions/ImageBack/background Tk800.023.new/Extensions/ImageBack/background
164 --- Tk800.023/Extensions/ImageBack/background Sat Dec 30 17:12:37 2000
165 +++ Tk800.023.new/Extensions/ImageBack/background Sat Sep 1 07:05:34 2001
167 -#!/usr/local/bin/perl -w
172 diff -Nru Tk800.023/HList/Tix2perl Tk800.023.new/HList/Tix2perl
173 --- Tk800.023/HList/Tix2perl Sat Dec 30 17:12:37 2000
174 +++ Tk800.023.new/HList/Tix2perl Sat Sep 1 07:05:34 2001
176 -#!/usr/local/bin/perl -w
181 diff -Nru Tk800.023/TixGrid/tgdemo_config Tk800.023.new/TixGrid/tgdemo_config
182 --- Tk800.023/TixGrid/tgdemo_config Sat Dec 30 17:12:37 2000
183 +++ Tk800.023.new/TixGrid/tgdemo_config Sat Sep 1 07:05:34 2001
185 -#!/usr/local/bin/perl -w
188 # standalone or sourceable in ptksh
190 diff -Nru Tk800.023/WinPhoto/try Tk800.023.new/WinPhoto/try
191 --- Tk800.023/WinPhoto/try Sat Dec 30 17:12:37 2000
192 +++ Tk800.023.new/WinPhoto/try Sat Sep 1 07:05:34 2001
194 -#!/usr/local/bin/perl -w
199 diff -Nru Tk800.023/Xlib/drops Tk800.023.new/Xlib/drops
200 --- Tk800.023/Xlib/drops Sat Dec 30 17:12:37 2000
201 +++ Tk800.023.new/Xlib/drops Sat Sep 1 07:05:34 2001
203 -#!/usr/local/bin/perl
208 diff -Nru Tk800.023/Xlib/load Tk800.023.new/Xlib/load
209 --- Tk800.023/Xlib/load Sat Dec 30 17:12:37 2000
210 +++ Tk800.023.new/Xlib/load Sat Sep 1 07:05:34 2001
212 -#!/usr/local/bin/perl -w
217 diff -Nru Tk800.023/Xlib/motif_site Tk800.023.new/Xlib/motif_site
218 --- Tk800.023/Xlib/motif_site Sat Dec 30 17:12:37 2000
219 +++ Tk800.023.new/Xlib/motif_site Sat Sep 1 07:05:34 2001
221 -#!/usr/local/bin/perl -w
226 diff -Nru Tk800.023/Xlib/tree_demo Tk800.023.new/Xlib/tree_demo
227 --- Tk800.023/Xlib/tree_demo Sat Dec 30 17:12:37 2000
228 +++ Tk800.023.new/Xlib/tree_demo Sat Sep 1 07:05:34 2001
230 -#!/usr/local/bin/perl -w
235 diff -Nru Tk800.023/add_version Tk800.023.new/add_version
236 --- Tk800.023/add_version Sat Dec 30 17:12:37 2000
237 +++ Tk800.023.new/add_version Sat Sep 1 07:16:21 2001
239 -#!/tools/local/perl -w
244 diff -Nru Tk800.023/adj_demo Tk800.023.new/adj_demo
245 --- Tk800.023/adj_demo Sat Dec 30 17:12:37 2000
246 +++ Tk800.023.new/adj_demo Sat Sep 1 07:05:34 2001
248 -#!/usr/local/bin/perl -w
251 require Tk::TextUndo;
253 diff -Nru Tk800.023/after_demo Tk800.023.new/after_demo
254 --- Tk800.023/after_demo Sat Dec 30 17:12:37 2000
255 +++ Tk800.023.new/after_demo Sat Sep 1 07:05:34 2001
257 -#!/usr/local/bin/perl -w
262 diff -Nru Tk800.023/after_leak Tk800.023.new/after_leak
263 --- Tk800.023/after_leak Sat Dec 30 17:12:37 2000
264 +++ Tk800.023.new/after_leak Sat Sep 1 07:05:34 2001
266 -#!/usr/local/bin/perl -w
271 diff -Nru Tk800.023/al_bug Tk800.023.new/al_bug
272 --- Tk800.023/al_bug Sat Dec 30 17:12:37 2000
273 +++ Tk800.023.new/al_bug Sat Sep 1 07:16:29 2001
275 -#!/usr/local/bin/nperl -w
280 diff -Nru Tk800.023/animate Tk800.023.new/animate
281 --- Tk800.023/animate Sat Dec 30 17:12:37 2000
282 +++ Tk800.023.new/animate Sat Sep 1 07:05:34 2001
284 -#!/usr/local/bin/perl -w
288 my $mw = MainWindow->new;
289 diff -Nru Tk800.023/autoraise Tk800.023.new/autoraise
290 --- Tk800.023/autoraise Sat Dec 30 17:12:37 2000
291 +++ Tk800.023.new/autoraise Sat Sep 1 07:05:34 2001
293 -#!/usr/local/bin/perl -w
298 diff -Nru Tk800.023/basic_demo Tk800.023.new/basic_demo
299 --- Tk800.023/basic_demo Sat Dec 30 17:12:37 2000
300 +++ Tk800.023.new/basic_demo Sat Sep 1 07:05:34 2001
302 -#!/usr/local/bin/perl
307 diff -Nru Tk800.023/bin/defs Tk800.023.new/bin/defs
308 --- Tk800.023/bin/defs Sat Dec 30 17:12:37 2000
309 +++ Tk800.023.new/bin/defs Sat Sep 1 07:05:34 2001
311 -#!/usr/local/bin/perl
316 diff -Nru Tk800.023/bin/defunc Tk800.023.new/bin/defunc
317 --- Tk800.023/bin/defunc Sat Dec 30 17:12:37 2000
318 +++ Tk800.023.new/bin/defunc Sat Sep 1 07:05:34 2001
320 -#!/usr/local/bin/perl
325 diff -Nru Tk800.023/bin/newstyle Tk800.023.new/bin/newstyle
326 --- Tk800.023/bin/newstyle Sat Dec 30 17:12:37 2000
327 +++ Tk800.023.new/bin/newstyle Sat Sep 1 07:05:34 2001
329 -#!/usr/local/bin/perl
334 diff -Nru Tk800.023/bin/perms Tk800.023.new/bin/perms
335 --- Tk800.023/bin/perms Sat Dec 30 17:12:37 2000
336 +++ Tk800.023.new/bin/perms Sat Sep 1 07:05:34 2001
338 -#!/usr/local/bin/perl -w
343 diff -Nru Tk800.023/bin/unres Tk800.023.new/bin/unres
344 --- Tk800.023/bin/unres Sat Dec 30 17:12:37 2000
345 +++ Tk800.023.new/bin/unres Sat Sep 1 07:05:34 2001
347 -#!/usr/local/bin/perl -w
352 diff -Nru Tk800.023/bin/uselib Tk800.023.new/bin/uselib
353 --- Tk800.023/bin/uselib Sat Dec 30 17:12:37 2000
354 +++ Tk800.023.new/bin/uselib Sat Sep 1 07:05:34 2001
356 -#!/usr/local/bin/perl
361 diff -Nru Tk800.023/bindtest Tk800.023.new/bindtest
362 --- Tk800.023/bindtest Sat Dec 30 17:12:37 2000
363 +++ Tk800.023.new/bindtest Sat Sep 1 07:05:34 2001
365 -#!/usr/local/bin/perl -w
370 diff -Nru Tk800.023/build Tk800.023.new/build
371 --- Tk800.023/build Sat Dec 30 17:12:37 2000
372 +++ Tk800.023.new/build Sat Sep 1 07:05:34 2001
374 -#!/usr/local/bin/perl -w
377 my $make = $Config{'make'};
379 diff -Nru Tk800.023/bulkedit Tk800.023.new/bulkedit
380 --- Tk800.023/bulkedit Sat Dec 30 17:12:37 2000
381 +++ Tk800.023.new/bulkedit Sat Sep 1 07:05:34 2001
383 -#!/usr/local/bin/perl -w
388 diff -Nru Tk800.023/canvas_ps Tk800.023.new/canvas_ps
389 --- Tk800.023/canvas_ps Sat Dec 30 17:12:37 2000
390 +++ Tk800.023.new/canvas_ps Sat Sep 1 07:05:34 2001
392 -#!/usr/local/bin/perl -w
397 diff -Nru Tk800.023/canvas_scroll Tk800.023.new/canvas_scroll
398 --- Tk800.023/canvas_scroll Sat Dec 30 17:12:37 2000
399 +++ Tk800.023.new/canvas_scroll Sat Sep 1 07:05:34 2001
401 -#!/usr/local/bin/perl -w
406 diff -Nru Tk800.023/cbtest Tk800.023.new/cbtest
407 --- Tk800.023/cbtest Sat Dec 30 17:12:37 2000
408 +++ Tk800.023.new/cbtest Sat Sep 1 07:05:34 2001
410 -#!/usr/local/bin/perl
415 diff -Nru Tk800.023/check_syms Tk800.023.new/check_syms
416 --- Tk800.023/check_syms Sat Dec 30 17:12:37 2000
417 +++ Tk800.023.new/check_syms Sat Sep 1 07:05:34 2001
419 -#!/usr/local/bin/perl -w
424 diff -Nru Tk800.023/checklen Tk800.023.new/checklen
425 --- Tk800.023/checklen Sat Dec 30 17:12:37 2000
426 +++ Tk800.023.new/checklen Sat Sep 1 07:05:34 2001
428 -#!/usr/local/bin/perl -w
431 use ExtUtils::Manifest "/mani/";
433 diff -Nru Tk800.023/classtree Tk800.023.new/classtree
434 --- Tk800.023/classtree Sat Dec 30 17:12:37 2000
435 +++ Tk800.023.new/classtree Sat Sep 1 07:05:34 2001
437 -#!/usr/local/bin/perl -w
441 use Tk::widgets qw(Tree Menubar);
442 diff -Nru Tk800.023/cleanup Tk800.023.new/cleanup
443 --- Tk800.023/cleanup Wed Feb 21 19:27:16 2001
444 +++ Tk800.023.new/cleanup Sat Sep 1 07:05:34 2001
446 -#!/usr/local/bin/perl -w
451 diff -Nru Tk800.023/clip_bug Tk800.023.new/clip_bug
452 --- Tk800.023/clip_bug Sat Dec 30 17:12:37 2000
453 +++ Tk800.023.new/clip_bug Sat Sep 1 07:05:34 2001
455 -#!/usr/local/bin/perl -w
457 # Show a Tk canvas bug:
458 # when scrolling a canvas, clipping for embedded windows
459 # uses the embedded windows parent, not the canvas.
460 diff -Nru Tk800.023/compile/findloader Tk800.023.new/compile/findloader
461 --- Tk800.023/compile/findloader Sat Dec 30 17:12:37 2000
462 +++ Tk800.023.new/compile/findloader Sat Sep 1 07:05:34 2001
464 -#!/usr/local/bin/perl -w
467 my $sfx = $Config{'lib_ext'};
468 foreach my $dir (@INC)
469 diff -Nru Tk800.023/compile/splitfunc Tk800.023.new/compile/splitfunc
470 --- Tk800.023/compile/splitfunc Sat Dec 30 17:12:37 2000
471 +++ Tk800.023.new/compile/splitfunc Sat Sep 1 07:05:34 2001
473 -#!/usr/local/bin/perl -w
478 diff -Nru Tk800.023/copydate Tk800.023.new/copydate
479 --- Tk800.023/copydate Sat Dec 30 17:12:37 2000
480 +++ Tk800.023.new/copydate Sat Sep 1 07:05:34 2001
482 -#!/usr/local/bin/perl
487 diff -Nru Tk800.023/cursor_demo Tk800.023.new/cursor_demo
488 --- Tk800.023/cursor_demo Sat Dec 30 17:12:37 2000
489 +++ Tk800.023.new/cursor_demo Sat Sep 1 07:05:34 2001
491 -#!/usr/local/bin/perl -w
495 my $mw = MainWindow->new;
496 diff -Nru Tk800.023/demos/browse Tk800.023.new/demos/browse
497 --- Tk800.023/demos/browse Sat Dec 30 17:12:37 2000
498 +++ Tk800.023.new/demos/browse Sat Sep 1 07:05:34 2001
500 -#!/usr/local/bin/perl -w
503 # This script generates a directory browser, which lists the working directory and allows you to open files or subdirectories
504 # by double-clicking.
505 diff -Nru Tk800.023/demos/color_editor Tk800.023.new/demos/color_editor
506 --- Tk800.023/demos/color_editor Sat Dec 30 17:12:37 2000
507 +++ Tk800.023.new/demos/color_editor Sat Sep 1 07:05:34 2001
509 -#!/usr/local/bin/perl -w
512 # ColorEditor demonstration.
514 diff -Nru Tk800.023/demos/composite Tk800.023.new/demos/composite
515 --- Tk800.023/demos/composite Sat Dec 30 17:12:37 2000
516 +++ Tk800.023.new/demos/composite Sat Sep 1 07:05:34 2001
518 -#!/usr/local/bin/perl -w
523 diff -Nru Tk800.023/demos/dialog Tk800.023.new/demos/dialog
524 --- Tk800.023/demos/dialog Sat Dec 30 17:12:37 2000
525 +++ Tk800.023.new/demos/dialog Sat Sep 1 07:05:34 2001
527 -#!/usr/local/bin/perl -w
530 # Demonstrate how to use Dialog to create and manipulate dialog objects.
531 # lusol@Lehigh.EDU 95/06/14
532 diff -Nru Tk800.023/demos/hello Tk800.023.new/demos/hello
533 --- Tk800.023/demos/hello Sat Dec 30 17:12:37 2000
534 +++ Tk800.023.new/demos/hello Sat Sep 1 07:05:34 2001
536 -#!/usr/local/bin/perl -w
539 # Simple Tk script to create a button that prints "Hello, world". Click on
540 # the button to terminate the program.
541 diff -Nru Tk800.023/demos/ixset Tk800.023.new/demos/ixset
542 --- Tk800.023/demos/ixset Sat Dec 30 17:12:37 2000
543 +++ Tk800.023.new/demos/ixset Sat Sep 1 07:05:34 2001
545 -#!/usr/local/bin/perl
548 # A nice interface to "xset" to change X server settings
550 diff -Nru Tk800.023/demos/rmt Tk800.023.new/demos/rmt
551 --- Tk800.023/demos/rmt Sat Dec 30 17:12:37 2000
552 +++ Tk800.023.new/demos/rmt Sat Sep 1 07:05:34 2001
554 -#!/usr/local/bin/perl -wT
557 # This script implements a simple remote-control mechanism for Tk
558 # applications. It allows you to select an application and then type
559 diff -Nru Tk800.023/demos/rolodex Tk800.023.new/demos/rolodex
560 --- Tk800.023/demos/rolodex Sat Dec 30 17:12:37 2000
561 +++ Tk800.023.new/demos/rolodex Sat Sep 1 07:05:34 2001
563 -#!/usr/local/bin/perl -w
566 # This script was written as an entry in Tom LaStrange's rolodex benchmark.
567 # It creates something that has some of the look and feel of a rolodex program,# although it's lifeless and doesn't actually do the rolodex application.
568 diff -Nru Tk800.023/demos/timer Tk800.023.new/demos/timer
569 --- Tk800.023/demos/timer Sat Dec 30 17:12:37 2000
570 +++ Tk800.023.new/demos/timer Sat Sep 1 07:05:34 2001
572 -#!/usr/local/bin/perl -w
575 # This script generates a counter with start and stop buttons. Exit with
577 diff -Nru Tk800.023/demos/tom Tk800.023.new/demos/tom
578 --- Tk800.023/demos/tom Sat Dec 30 17:12:37 2000
579 +++ Tk800.023.new/demos/tom Sat Sep 1 07:05:34 2001
581 -#!/usr/local/bin/perl -w
584 # Sample program to get Tom Christiansen going with Perl/Tk.
586 diff -Nru Tk800.023/demos/widget Tk800.023.new/demos/widget
587 --- Tk800.023/demos/widget Sat Dec 30 17:12:37 2000
588 +++ Tk800.023.new/demos/widget Sat Sep 1 07:05:34 2001
590 -#!/usr/local/bin/perl -w
595 diff -Nru Tk800.023/demos/widget_old Tk800.023.new/demos/widget_old
596 --- Tk800.023/demos/widget_old Sat Dec 30 17:12:37 2000
597 +++ Tk800.023.new/demos/widget_old Sat Sep 1 07:05:34 2001
599 -#!/usr/local/bin/perl -w
602 # This script demonstrates the various widgets provided by Tk, along with many of the features of the Tk toolkit. This file
603 # only contains code to generate the main window for the application, which invokes individual demonstrations. The code for
604 diff -Nru Tk800.023/derived_test Tk800.023.new/derived_test
605 --- Tk800.023/derived_test Sat Dec 30 17:12:37 2000
606 +++ Tk800.023.new/derived_test Sat Sep 1 07:05:34 2001
608 -#!/usr/local/bin/perl -w
613 diff -Nru Tk800.023/destroy_test Tk800.023.new/destroy_test
614 --- Tk800.023/destroy_test Sat Dec 30 17:12:37 2000
615 +++ Tk800.023.new/destroy_test Sat Sep 1 07:05:34 2001
617 -#!/usr/local/bin/perl -w
622 diff -Nru Tk800.023/dfpy Tk800.023.new/dfpy
623 --- Tk800.023/dfpy Sat Dec 30 17:12:37 2000
624 +++ Tk800.023.new/dfpy Sat Sep 1 07:05:34 2001
626 -#!/usr/local/bin/perl
629 use ExtUtils::Manifest "/mani/";
631 diff -Nru Tk800.023/disbutton Tk800.023.new/disbutton
632 --- Tk800.023/disbutton Sat Dec 30 17:12:37 2000
633 +++ Tk800.023.new/disbutton Sat Sep 1 07:05:34 2001
635 -#!/usr/local/bin/perl -w
638 package StickyButton;
640 diff -Nru Tk800.023/dnd_demo Tk800.023.new/dnd_demo
641 --- Tk800.023/dnd_demo Sat Dec 30 17:12:37 2000
642 +++ Tk800.023.new/dnd_demo Sat Sep 1 07:05:34 2001
644 -#!/usr/local/bin/perl -w
647 # Demo code to exhibit features of dynamic construction and destruction of
648 # local (within app.) Drag and Drop sources and sinks. Written for and tested
649 diff -Nru Tk800.023/dump_test Tk800.023.new/dump_test
650 --- Tk800.023/dump_test Sat Dec 30 17:12:37 2000
651 +++ Tk800.023.new/dump_test Sat Sep 1 07:05:34 2001
653 -#!/usr/local/bin/perl -w
656 my $top = MainWindow->new;
657 my $i = $top->Photo(-file => Tk->findINC('icon.gif'));
658 diff -Nru Tk800.023/embed Tk800.023.new/embed
659 --- Tk800.023/embed Sat Dec 30 17:12:37 2000
660 +++ Tk800.023.new/embed Sat Sep 1 07:05:34 2001
662 -#!/usr/local/bin/perl -w
667 diff -Nru Tk800.023/error_prop Tk800.023.new/error_prop
668 --- Tk800.023/error_prop Sat Dec 30 17:12:37 2000
669 +++ Tk800.023.new/error_prop Sat Sep 1 07:05:34 2001
671 -#!/usr/local/bin/perl -w
676 diff -Nru Tk800.023/ewidth_demo Tk800.023.new/ewidth_demo
677 --- Tk800.023/ewidth_demo Sat Dec 30 17:12:37 2000
678 +++ Tk800.023.new/ewidth_demo Sat Sep 1 07:05:34 2001
680 -#!/usr/local/bin/perl -w
685 diff -Nru Tk800.023/exetype Tk800.023.new/exetype
686 --- Tk800.023/exetype Sat Dec 30 17:12:37 2000
687 +++ Tk800.023.new/exetype Sat Sep 1 07:16:19 2001
692 unless (@ARGV == 2) {
693 print "Usage: $0 exefile [CONSOLE|WINDOWS]\n";
694 diff -Nru Tk800.023/fedemo Tk800.023.new/fedemo
695 --- Tk800.023/fedemo Sat Dec 30 17:12:37 2000
696 +++ Tk800.023.new/fedemo Sat Sep 1 07:16:28 2001
698 -#!/usr/local/bin/new/perl -w
701 my $FILE_LOG = (@ARGV) ? shift : 'README';
703 diff -Nru Tk800.023/fetail Tk800.023.new/fetail
704 --- Tk800.023/fetail Sat Dec 30 17:12:37 2000
705 +++ Tk800.023.new/fetail Sat Sep 1 07:16:18 2001
707 -#!/usr/local/bin/perl -w
710 my $file = (@ARGV) ? shift : 'README';
712 diff -Nru Tk800.023/findbase Tk800.023.new/findbase
713 --- Tk800.023/findbase Sat Dec 30 17:12:37 2000
714 +++ Tk800.023.new/findbase Sat Sep 1 07:05:34 2001
716 -#!/usr/local/bin/perl -w
721 diff -Nru Tk800.023/floppy Tk800.023.new/floppy
722 --- Tk800.023/floppy Sat Dec 30 17:12:37 2000
723 +++ Tk800.023.new/floppy Sat Sep 1 07:05:34 2001
725 -#!/usr/local/bin/perl
728 use ExtUtils::Manifest "/mani/";
730 diff -Nru Tk800.023/font_demo Tk800.023.new/font_demo
731 --- Tk800.023/font_demo Sat Dec 30 17:12:37 2000
732 +++ Tk800.023.new/font_demo Sat Sep 1 07:05:34 2001
734 -#!/usr/local/bin/perl -w
739 diff -Nru Tk800.023/font_test Tk800.023.new/font_test
740 --- Tk800.023/font_test Sat Dec 30 17:12:37 2000
741 +++ Tk800.023.new/font_test Sat Sep 1 07:05:34 2001
743 -#!/usr/local/bin/perl -w
748 diff -Nru Tk800.023/fonts Tk800.023.new/fonts
749 --- Tk800.023/fonts Sat Dec 30 17:12:37 2000
750 +++ Tk800.023.new/fonts Sat Sep 1 07:05:34 2001
752 -#!/usr/local/bin/perl -w
757 diff -Nru Tk800.023/forward_test Tk800.023.new/forward_test
758 --- Tk800.023/forward_test Sat Dec 30 17:12:37 2000
759 +++ Tk800.023.new/forward_test Sat Sep 1 07:16:27 2001
761 -#!/usr/local/bin/nperl -w
766 diff -Nru Tk800.023/gdb.plx Tk800.023.new/gdb.plx
767 --- Tk800.023/gdb.plx Sat Dec 30 17:12:37 2000
768 +++ Tk800.023.new/gdb.plx Sat Sep 1 07:05:34 2001
770 -#!/usr/local/bin/perl -w
773 open(INIT,">.gdbinit") || die;
775 diff -Nru Tk800.023/gedi Tk800.023.new/gedi
776 --- Tk800.023/gedi Sat Dec 30 17:12:37 2000
777 +++ Tk800.023.new/gedi Sat Sep 1 07:16:16 2001
779 -#!/usr/local/bin/perl -w
782 ###############################################################################
783 # Copyright (c) 1999 Greg London
784 diff -Nru Tk800.023/geo_mgr Tk800.023.new/geo_mgr
785 --- Tk800.023/geo_mgr Sat Dec 30 17:12:37 2000
786 +++ Tk800.023.new/geo_mgr Sat Sep 1 07:05:34 2001
788 -#!/usr/local/bin/perl -w
793 diff -Nru Tk800.023/geom Tk800.023.new/geom
794 --- Tk800.023/geom Sat Dec 30 17:12:37 2000
795 +++ Tk800.023.new/geom Sat Sep 1 07:05:34 2001
797 -#!/usr/local/bin/perl -w
802 diff -Nru Tk800.023/grepc Tk800.023.new/grepc
803 --- Tk800.023/grepc Sat Dec 30 13:16:02 2000
804 +++ Tk800.023.new/grepc Sat Sep 1 07:05:34 2001
806 -#!/tools/local/perl -w
811 diff -Nru Tk800.023/grepperl Tk800.023.new/grepperl
812 --- Tk800.023/grepperl Thu Mar 29 10:42:59 2001
813 +++ Tk800.023.new/grepperl Sat Sep 1 07:08:10 2001
815 -#!/tools/local/perl -w
820 diff -Nru Tk800.023/grid_adj Tk800.023.new/grid_adj
821 --- Tk800.023/grid_adj Sat Dec 30 17:12:37 2000
822 +++ Tk800.023.new/grid_adj Sat Sep 1 07:05:34 2001
824 -#!/usr/local/bin/perl -w
827 require Tk::TextUndo;
828 require Tk::Adjuster;
829 diff -Nru Tk800.023/grid_test Tk800.023.new/grid_test
830 --- Tk800.023/grid_test Sat Dec 30 17:12:37 2000
831 +++ Tk800.023.new/grid_test Sat Sep 1 07:05:34 2001
833 -#!/usr/local/bin/perl -w
836 my $mw = MainWindow->new;
838 diff -Nru Tk800.023/gridbug Tk800.023.new/gridbug
839 --- Tk800.023/gridbug Sat Dec 30 17:12:37 2000
840 +++ Tk800.023.new/gridbug Sat Sep 1 07:05:34 2001
842 -#!/usr/local/bin/perl -w
846 $top = MainWindow->new();
847 diff -Nru Tk800.023/hackMM Tk800.023.new/hackMM
848 --- Tk800.023/hackMM Sat Dec 30 17:12:37 2000
849 +++ Tk800.023.new/hackMM Sat Sep 1 07:05:34 2001
851 -#!/usr/local/bin/perl -w
856 diff -Nru Tk800.023/hlfm Tk800.023.new/hlfm
857 --- Tk800.023/hlfm Sat Dec 30 17:12:37 2000
858 +++ Tk800.023.new/hlfm Sat Sep 1 07:05:34 2001
860 -#!/usr/local/bin/perl -w
865 diff -Nru Tk800.023/hlist_bg Tk800.023.new/hlist_bg
866 --- Tk800.023/hlist_bg Sat Dec 30 17:12:37 2000
867 +++ Tk800.023.new/hlist_bg Sat Sep 1 07:05:34 2001
869 -#!/usr/local/bin/perl -w
874 diff -Nru Tk800.023/hlist_demo Tk800.023.new/hlist_demo
875 --- Tk800.023/hlist_demo Sat Dec 30 17:12:37 2000
876 +++ Tk800.023.new/hlist_demo Sat Sep 1 07:16:26 2001
878 -#!/usr/local/bin/nperl -w
883 diff -Nru Tk800.023/icon Tk800.023.new/icon
884 --- Tk800.023/icon Sat Dec 30 17:12:37 2000
885 +++ Tk800.023.new/icon Sat Sep 1 07:16:13 2001
887 -#!/tools/local/perl -w
890 my $mw = MainWindow->new;
891 my $image = $mw->Photo('-file' => Tk->findINC("icon.gif"));
892 diff -Nru Tk800.023/iconimg Tk800.023.new/iconimg
893 --- Tk800.023/iconimg Sat Dec 30 17:12:37 2000
894 +++ Tk800.023.new/iconimg Sat Sep 1 07:16:25 2001
896 -#!/usr/local/bin/perl -w
901 diff -Nru Tk800.023/iconwin Tk800.023.new/iconwin
902 --- Tk800.023/iconwin Sat Dec 30 17:12:37 2000
903 +++ Tk800.023.new/iconwin Sat Sep 1 07:05:34 2001
905 -#!/usr/local/bin/perl -w
910 diff -Nru Tk800.023/image_test Tk800.023.new/image_test
911 --- Tk800.023/image_test Sat Dec 30 17:12:37 2000
912 +++ Tk800.023.new/image_test Sat Sep 1 07:05:34 2001
914 -#!/usr/local/bin/perl -w
919 diff -Nru Tk800.023/inline_bitmap Tk800.023.new/inline_bitmap
920 --- Tk800.023/inline_bitmap Sat Dec 30 17:12:37 2000
921 +++ Tk800.023.new/inline_bitmap Sat Sep 1 07:05:34 2001
923 -#!/usr/local/bin/perl -w
928 diff -Nru Tk800.023/keyWords Tk800.023.new/keyWords
929 --- Tk800.023/keyWords Sat Dec 30 17:12:37 2000
930 +++ Tk800.023.new/keyWords Sat Sep 1 07:05:34 2001
932 -#!/usr/local/bin/perl -w
937 diff -Nru Tk800.023/labelpack Tk800.023.new/labelpack
938 --- Tk800.023/labelpack Sat Dec 30 17:12:37 2000
939 +++ Tk800.023.new/labelpack Sat Sep 1 07:05:34 2001
941 -#!/usr/local/bin/perl -w
945 require Tk::LabEntry;
946 diff -Nru Tk800.023/lbformat_demo Tk800.023.new/lbformat_demo
947 --- Tk800.023/lbformat_demo Sat Dec 30 17:12:37 2000
948 +++ Tk800.023.new/lbformat_demo Sat Sep 1 07:05:34 2001
950 -#!/usr/local/bin/perl -w
955 diff -Nru Tk800.023/leak_test Tk800.023.new/leak_test
956 --- Tk800.023/leak_test Sat Dec 30 17:12:37 2000
957 +++ Tk800.023.new/leak_test Sat Sep 1 07:05:34 2001
959 -#!/usr/local/bin/perl -w
964 diff -Nru Tk800.023/lentry Tk800.023.new/lentry
965 --- Tk800.023/lentry Sat Dec 30 17:12:37 2000
966 +++ Tk800.023.new/lentry Sat Sep 1 07:05:34 2001
968 -#!/usr/local/bin/perl -w
973 diff -Nru Tk800.023/linux-progbar-toy Tk800.023.new/linux-progbar-toy
974 --- Tk800.023/linux-progbar-toy Sat Dec 30 17:12:37 2000
975 +++ Tk800.023.new/linux-progbar-toy Sat Sep 1 07:16:00 2001
977 -#!/usr/local/bin/perl -w
980 use Tk::widgets qw(ProgressBar);
982 diff -Nru Tk800.023/local_demo Tk800.023.new/local_demo
983 --- Tk800.023/local_demo Sat Dec 30 17:12:37 2000
984 +++ Tk800.023.new/local_demo Sat Sep 1 07:05:34 2001
986 -#!/usr/local/bin/perl -w
989 use Tk qw(MainLoop *widget);
991 diff -Nru Tk800.023/ls_table Tk800.023.new/ls_table
992 --- Tk800.023/ls_table Sat Dec 30 17:12:37 2000
993 +++ Tk800.023.new/ls_table Sat Sep 1 07:05:34 2001
995 -#!/usr/local/bin/perl -w
1000 diff -Nru Tk800.023/lsfonts Tk800.023.new/lsfonts
1001 --- Tk800.023/lsfonts Sat Dec 30 17:12:37 2000
1002 +++ Tk800.023.new/lsfonts Sat Sep 1 07:05:34 2001
1004 -#!/usr/local/bin/perl -w
1009 diff -Nru Tk800.023/menubar Tk800.023.new/menubar
1010 --- Tk800.023/menubar Sat Dec 30 17:12:37 2000
1011 +++ Tk800.023.new/menubar Sat Sep 1 07:05:34 2001
1013 -#!/usr/local/bin/perl -w
1018 diff -Nru Tk800.023/menubug Tk800.023.new/menubug
1019 --- Tk800.023/menubug Sat Dec 30 17:12:37 2000
1020 +++ Tk800.023.new/menubug Sat Sep 1 07:05:34 2001
1022 -#!/usr/local/bin/perl -w
1027 diff -Nru Tk800.023/mitem_test Tk800.023.new/mitem_test
1028 --- Tk800.023/mitem_test Sat Dec 30 17:12:37 2000
1029 +++ Tk800.023.new/mitem_test Sat Sep 1 07:05:34 2001
1031 -#!/usr/local/bin/perl -w
1036 diff -Nru Tk800.023/mkExt Tk800.023.new/mkExt
1037 --- Tk800.023/mkExt Sat Dec 30 17:12:37 2000
1038 +++ Tk800.023.new/mkExt Sat Sep 1 07:05:34 2001
1040 -#!/usr/local/bin/perl -w
1045 diff -Nru Tk800.023/mkdist Tk800.023.new/mkdist
1046 --- Tk800.023/mkdist Sat Dec 30 17:12:37 2000
1047 +++ Tk800.023.new/mkdist Sat Sep 1 07:05:34 2001
1049 -#!/usr/local/bin/perl -w
1053 use ExtUtils::Manifest "/mani/";
1054 diff -Nru Tk800.023/motif_hack Tk800.023.new/motif_hack
1055 --- Tk800.023/motif_hack Sat Dec 30 17:12:37 2000
1056 +++ Tk800.023.new/motif_hack Sat Sep 1 07:05:34 2001
1058 -#!/usr/local/bin/perl -w
1063 diff -Nru Tk800.023/nested_dialog Tk800.023.new/nested_dialog
1064 --- Tk800.023/nested_dialog Sat Dec 30 17:12:37 2000
1065 +++ Tk800.023.new/nested_dialog Sat Sep 1 07:05:34 2001
1067 -#!/usr/local/bin/perl -w
1072 diff -Nru Tk800.023/oddmenu_demo Tk800.023.new/oddmenu_demo
1073 --- Tk800.023/oddmenu_demo Sat Dec 30 17:12:37 2000
1074 +++ Tk800.023.new/oddmenu_demo Sat Sep 1 07:05:34 2001
1076 -#!/usr/local/bin/perl -w
1081 diff -Nru Tk800.023/pTk/LangIO.h.PL Tk800.023.new/pTk/LangIO.h.PL
1082 --- Tk800.023/pTk/LangIO.h.PL Sun Feb 4 20:16:51 2001
1083 +++ Tk800.023.new/pTk/LangIO.h.PL Sat Sep 1 07:05:34 2001
1085 -#!/usr/local/bin/perl -w
1090 diff -Nru Tk800.023/pTk/Tcl-pTk Tk800.023.new/pTk/Tcl-pTk
1091 --- Tk800.023/pTk/Tcl-pTk Sat Dec 30 17:12:37 2000
1092 +++ Tk800.023.new/pTk/Tcl-pTk Sat Sep 1 07:05:34 2001
1094 -#!/usr/local/bin/perl -w
1099 diff -Nru Tk800.023/pTk/chext Tk800.023.new/pTk/chext
1100 --- Tk800.023/pTk/chext Sat Dec 30 17:12:37 2000
1101 +++ Tk800.023.new/pTk/chext Sat Sep 1 07:05:34 2001
1103 -#!/usr/local/bin/perl -w
1106 open(NEED,"<need") || die;
1108 diff -Nru Tk800.023/pTk/counts Tk800.023.new/pTk/counts
1109 --- Tk800.023/pTk/counts Sat Dec 30 17:12:37 2000
1110 +++ Tk800.023.new/pTk/counts Sat Sep 1 07:05:34 2001
1112 -#!/usr/local/bin/perl
1117 diff -Nru Tk800.023/pTk/findX Tk800.023.new/pTk/findX
1118 --- Tk800.023/pTk/findX Sat Dec 30 17:12:37 2000
1119 +++ Tk800.023.new/pTk/findX Sat Sep 1 07:05:34 2001
1121 -#!/usr/local/bin/perl -w
1124 BEGIN { require Exporter };
1126 diff -Nru Tk800.023/pTk/findcore Tk800.023.new/pTk/findcore
1127 --- Tk800.023/pTk/findcore Sat Dec 30 17:12:37 2000
1128 +++ Tk800.023.new/pTk/findcore Sat Sep 1 07:05:34 2001
1130 -#!/usr/local/bin/perl -w
1133 BEGIN { require Exporter };
1135 diff -Nru Tk800.023/pTk/findstrings Tk800.023.new/pTk/findstrings
1136 --- Tk800.023/pTk/findstrings Sat Dec 30 17:12:37 2000
1137 +++ Tk800.023.new/pTk/findstrings Sat Sep 1 07:05:34 2001
1139 -#!/usr/local/bin/perl -w
1144 diff -Nru Tk800.023/pTk/from Tk800.023.new/pTk/from
1145 --- Tk800.023/pTk/from Sat Dec 30 17:12:37 2000
1146 +++ Tk800.023.new/pTk/from Sat Sep 1 07:05:34 2001
1148 -#!/usr/local/bin/perl -w
1153 diff -Nru Tk800.023/pTk/genexc Tk800.023.new/pTk/genexc
1154 --- Tk800.023/pTk/genexc Sat Dec 30 17:12:37 2000
1155 +++ Tk800.023.new/pTk/genexc Sat Sep 1 07:05:34 2001
1157 -#!/usr/local/bin/perl -w
1162 diff -Nru Tk800.023/pTk/mTk/tclmerge Tk800.023.new/pTk/mTk/tclmerge
1163 --- Tk800.023/pTk/mTk/tclmerge Sat Dec 30 17:12:37 2000
1164 +++ Tk800.023.new/pTk/mTk/tclmerge Sat Sep 1 07:05:34 2001
1166 -#!/usr/local/bin/perl -w
1171 diff -Nru Tk800.023/pTk/mTk/tixmerge Tk800.023.new/pTk/mTk/tixmerge
1172 --- Tk800.023/pTk/mTk/tixmerge Sat Dec 30 17:12:37 2000
1173 +++ Tk800.023.new/pTk/mTk/tixmerge Sat Sep 1 07:05:34 2001
1175 -#!/usr/local/bin/perl -w
1180 diff -Nru Tk800.023/pTk/makeenglish Tk800.023.new/pTk/makeenglish
1181 --- Tk800.023/pTk/makeenglish Sat Dec 30 17:12:37 2000
1182 +++ Tk800.023.new/pTk/makeenglish Sat Sep 1 07:05:34 2001
1184 -#!/usr/local/bin/perl -w
1186 # BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)) }
1188 die "Must be executed from Tk/pTk distribution directory\n" unless -f "Lang.h";
1189 diff -Nru Tk800.023/pTk/mkVFunc Tk800.023.new/pTk/mkVFunc
1190 --- Tk800.023/pTk/mkVFunc Sat Dec 30 17:12:37 2000
1191 +++ Tk800.023.new/pTk/mkVFunc Sat Sep 1 07:05:34 2001
1193 -#!/usr/local/bin/perl -w
1198 diff -Nru Tk800.023/pTk/mkXinfo Tk800.023.new/pTk/mkXinfo
1199 --- Tk800.023/pTk/mkXinfo Sat Dec 30 17:12:37 2000
1200 +++ Tk800.023.new/pTk/mkXinfo Sat Sep 1 07:05:34 2001
1202 -#!/usr/local/bin/perl -w
1207 diff -Nru Tk800.023/pTk/mkexc Tk800.023.new/pTk/mkexc
1208 --- Tk800.023/pTk/mkexc Sat Dec 30 17:12:37 2000
1209 +++ Tk800.023.new/pTk/mkexc Sat Sep 1 07:05:34 2001
1211 -#!/usr/local/bin/perl -w
1214 use vars qw(%ref %def);
1215 require "process_object";
1216 diff -Nru Tk800.023/pTk/mkmethods Tk800.023.new/pTk/mkmethods
1217 --- Tk800.023/pTk/mkmethods Sat Dec 30 17:12:37 2000
1218 +++ Tk800.023.new/pTk/mkmethods Sat Sep 1 07:05:34 2001
1220 -#!/usr/local/bin/perl -w
1225 diff -Nru Tk800.023/pTk/tdiff Tk800.023.new/pTk/tdiff
1226 --- Tk800.023/pTk/tdiff Sat Dec 30 17:12:37 2000
1227 +++ Tk800.023.new/pTk/tdiff Sat Sep 1 07:05:34 2001
1229 -#!/usr/local/bin/perl -w
1234 diff -Nru Tk800.023/pTk/why Tk800.023.new/pTk/why
1235 --- Tk800.023/pTk/why Sat Dec 30 17:12:37 2000
1236 +++ Tk800.023.new/pTk/why Sat Sep 1 07:05:34 2001
1238 -#!/usr/local/bin/perl -w
1243 diff -Nru Tk800.023/pfm Tk800.023.new/pfm
1244 --- Tk800.023/pfm Sat Dec 30 17:12:37 2000
1245 +++ Tk800.023.new/pfm Sat Sep 1 07:05:34 2001
1247 -#!/usr/local/bin/perl -w
1249 use POSIX qw(getcwd);
1252 diff -Nru Tk800.023/pictgrid Tk800.023.new/pictgrid
1253 --- Tk800.023/pictgrid Sat Dec 30 17:12:37 2000
1254 +++ Tk800.023.new/pictgrid Sat Sep 1 07:05:34 2001
1256 -#!/usr/local/bin/perl -w
1261 diff -Nru Tk800.023/pipe_test Tk800.023.new/pipe_test
1262 --- Tk800.023/pipe_test Sat Dec 30 17:12:37 2000
1263 +++ Tk800.023.new/pipe_test Sat Sep 1 07:05:34 2001
1265 -#!/usr/local/bin/perl -w
1270 diff -Nru Tk800.023/pixels-points Tk800.023.new/pixels-points
1271 --- Tk800.023/pixels-points Sat Dec 30 17:12:37 2000
1272 +++ Tk800.023.new/pixels-points Sat Sep 1 07:16:24 2001
1274 -#!/usr/local/bin/new/perl -w
1279 diff -Nru Tk800.023/pixmap_test Tk800.023.new/pixmap_test
1280 --- Tk800.023/pixmap_test Sat Dec 30 17:12:37 2000
1281 +++ Tk800.023.new/pixmap_test Sat Sep 1 07:05:34 2001
1283 -#!/usr/local/bin/perl -w
1288 diff -Nru Tk800.023/pod/extract/extpod Tk800.023.new/pod/extract/extpod
1289 --- Tk800.023/pod/extract/extpod Sat Dec 30 17:12:37 2000
1290 +++ Tk800.023.new/pod/extract/extpod Sat Sep 1 07:05:34 2001
1292 -#!/usr/local/bin/perl -w
1296 use ExtUtils::Manifest "/mani/";
1297 diff -Nru Tk800.023/pod/recat Tk800.023.new/pod/recat
1298 --- Tk800.023/pod/recat Sat Dec 30 17:12:37 2000
1299 +++ Tk800.023.new/pod/recat Sat Sep 1 07:05:34 2001
1301 -#!/usr/local/bin/perl -w
1306 diff -Nru Tk800.023/pod/subs Tk800.023.new/pod/subs
1307 --- Tk800.023/pod/subs Sat Dec 30 17:12:37 2000
1308 +++ Tk800.023.new/pod/subs Sat Sep 1 07:05:34 2001
1310 -#!/usr/local/bin/perl -w
1315 diff -Nru Tk800.023/point_test Tk800.023.new/point_test
1316 --- Tk800.023/point_test Sat Dec 30 17:12:37 2000
1317 +++ Tk800.023.new/point_test Sat Sep 1 07:15:55 2001
1319 -#!/usr/local/bin/perl -w
1324 diff -Nru Tk800.023/popup Tk800.023.new/popup
1325 --- Tk800.023/popup Sat Dec 30 17:12:37 2000
1326 +++ Tk800.023.new/popup Sat Sep 1 07:05:34 2001
1328 -#!/usr/local/bin/perl -w
1333 diff -Nru Tk800.023/popup_menu Tk800.023.new/popup_menu
1334 --- Tk800.023/popup_menu Sat Dec 30 17:12:37 2000
1335 +++ Tk800.023.new/popup_menu Sat Sep 1 07:05:34 2001
1337 -#!/usr/local/bin/perl -w
1342 diff -Nru Tk800.023/prop_demo Tk800.023.new/prop_demo
1343 --- Tk800.023/prop_demo Sat Dec 30 17:12:37 2000
1344 +++ Tk800.023.new/prop_demo Sat Sep 1 07:05:34 2001
1346 -#!/usr/local/bin/perl -w
1351 diff -Nru Tk800.023/ptked Tk800.023.new/ptked
1352 --- Tk800.023/ptked Sat Dec 30 17:12:37 2000
1353 +++ Tk800.023.new/ptked Sat Sep 1 07:05:34 2001
1355 -#!/usr/local/bin/perl -w
1360 diff -Nru Tk800.023/ptknews Tk800.023.new/ptknews
1361 --- Tk800.023/ptknews Sat Dec 30 17:12:37 2000
1362 +++ Tk800.023.new/ptknews Sat Sep 1 07:05:34 2001
1364 -#!/usr/local/bin/perl -w
1369 diff -Nru Tk800.023/ptksh Tk800.023.new/ptksh
1370 --- Tk800.023/ptksh Sat Dec 30 17:12:37 2000
1371 +++ Tk800.023.new/ptksh Sat Sep 1 07:16:23 2001
1378 diff -Nru Tk800.023/rebuild Tk800.023.new/rebuild
1379 --- Tk800.023/rebuild Sat Dec 30 17:12:37 2000
1380 +++ Tk800.023.new/rebuild Sat Sep 1 07:15:54 2001
1382 -#!/usr/local/bin/new/perl -w
1384 open(STDERR,">&STDOUT") || die "Cannot redirect STDERR";
1387 diff -Nru Tk800.023/scale_test Tk800.023.new/scale_test
1388 --- Tk800.023/scale_test Sat Dec 30 17:12:37 2000
1389 +++ Tk800.023.new/scale_test Sat Sep 1 07:05:34 2001
1391 -#!/usr/local/bin/perl -w
1396 diff -Nru Tk800.023/scrolled_demo Tk800.023.new/scrolled_demo
1397 --- Tk800.023/scrolled_demo Sat Dec 30 17:12:37 2000
1398 +++ Tk800.023.new/scrolled_demo Sat Sep 1 07:05:34 2001
1400 -#!/usr/local/bin/perl -w
1405 diff -Nru Tk800.023/sillymenu Tk800.023.new/sillymenu
1406 --- Tk800.023/sillymenu Sat Dec 30 17:12:37 2000
1407 +++ Tk800.023.new/sillymenu Sat Sep 1 07:05:34 2001
1409 -#!/usr/local/bin/perl -w
1414 diff -Nru Tk800.023/sockets Tk800.023.new/sockets
1415 --- Tk800.023/sockets Sat Dec 30 17:12:37 2000
1416 +++ Tk800.023.new/sockets Sat Sep 1 07:05:34 2001
1418 -#!/usr/local/bin/perl -w
1423 diff -Nru Tk800.023/stripblib Tk800.023.new/stripblib
1424 --- Tk800.023/stripblib Sat Dec 30 17:12:37 2000
1425 +++ Tk800.023.new/stripblib Sat Sep 1 07:05:34 2001
1427 -#!/usr/local/bin/perl -w
1430 find(\&strip,'blib/arch');
1432 diff -Nru Tk800.023/style_test Tk800.023.new/style_test
1433 --- Tk800.023/style_test Sat Dec 30 17:12:37 2000
1434 +++ Tk800.023.new/style_test Sat Sep 1 07:05:34 2001
1436 -#!/usr/local/bin/perl -w
1441 diff -Nru Tk800.023/submethods Tk800.023.new/submethods
1442 --- Tk800.023/submethods Sat Dec 30 17:12:37 2000
1443 +++ Tk800.023.new/submethods Sat Sep 1 07:05:34 2001
1445 -#!/usr/local/bin/perl -w
1447 $meth = "pTk/Methods.def";
1450 diff -Nru Tk800.023/symbols Tk800.023.new/symbols
1451 --- Tk800.023/symbols Sat Dec 30 17:12:37 2000
1452 +++ Tk800.023.new/symbols Sat Sep 1 07:05:34 2001
1454 -#!/usr/local/bin/perl -w
1459 diff -Nru Tk800.023/table_demo Tk800.023.new/table_demo
1460 --- Tk800.023/table_demo Sat Dec 30 17:12:37 2000
1461 +++ Tk800.023.new/table_demo Sat Sep 1 07:05:34 2001
1463 -#!/usr/local/bin/perl -w
1468 diff -Nru Tk800.023/tainted Tk800.023.new/tainted
1469 --- Tk800.023/tainted Sat Dec 30 17:12:37 2000
1470 +++ Tk800.023.new/tainted Sat Sep 1 07:05:34 2001
1472 -#!/usr/local/bin/perl -T
1477 diff -Nru Tk800.023/tcl2perl Tk800.023.new/tcl2perl
1478 --- Tk800.023/tcl2perl Sat Dec 30 17:12:37 2000
1479 +++ Tk800.023.new/tcl2perl Sat Sep 1 07:05:34 2001
1481 -#!/usr/local/bin/perl -w
1484 # Highly experimental tcl -> perl converter, aimed at eventually
1485 # completeing Tix merge
1486 diff -Nru Tk800.023/tcolour Tk800.023.new/tcolour
1487 --- Tk800.023/tcolour Sat Dec 30 17:12:37 2000
1488 +++ Tk800.023.new/tcolour Sat Sep 1 07:05:34 2001
1490 -#!/usr/local/bin/perl -w
1495 diff -Nru Tk800.023/text_demo Tk800.023.new/text_demo
1496 --- Tk800.023/text_demo Sat Dec 30 17:12:37 2000
1497 +++ Tk800.023.new/text_demo Sat Sep 1 07:05:34 2001
1499 -#!/usr/local/bin/perl -w
1504 diff -Nru Tk800.023/tie_basic Tk800.023.new/tie_basic
1505 --- Tk800.023/tie_basic Sat Dec 30 17:12:37 2000
1506 +++ Tk800.023.new/tie_basic Sat Sep 1 07:05:34 2001
1508 -#!/usr/local/bin/perl
1511 # use Memory (2440);
1513 diff -Nru Tk800.023/tiehandle Tk800.023.new/tiehandle
1514 --- Tk800.023/tiehandle Sat Dec 30 17:12:37 2000
1515 +++ Tk800.023.new/tiehandle Sat Sep 1 07:05:34 2001
1517 -#!/usr/local/bin/perl -w
1522 diff -Nru Tk800.023/tietext Tk800.023.new/tietext
1523 --- Tk800.023/tietext Sat Dec 30 17:12:37 2000
1524 +++ Tk800.023.new/tietext Sat Sep 1 07:05:34 2001
1526 -#!/usr/local/bin/perl -w
1530 {package Tk::Text::Contents;
1531 diff -Nru Tk800.023/time Tk800.023.new/time
1532 --- Tk800.023/time Sat Dec 30 17:12:37 2000
1533 +++ Tk800.023.new/time Sat Sep 1 07:05:34 2001
1535 -#!/usr/local/bin/perl -w
1537 use Tk::Stats 'Start';
1540 diff -Nru Tk800.023/tiny Tk800.023.new/tiny
1541 --- Tk800.023/tiny Sat Dec 30 17:12:37 2000
1542 +++ Tk800.023.new/tiny Sat Sep 1 07:05:34 2001
1544 -#!/usr/local/bin/perl -w
1548 use Tk::widgets qw(Button);
1549 diff -Nru Tk800.023/tixwm_demo Tk800.023.new/tixwm_demo
1550 --- Tk800.023/tixwm_demo Sat Dec 30 17:12:37 2000
1551 +++ Tk800.023.new/tixwm_demo Sat Sep 1 07:05:34 2001
1553 -#!/usr/local/bin/perl -w
1558 diff -Nru Tk800.023/tkperldoc Tk800.023.new/tkperldoc
1559 --- Tk800.023/tkperldoc Sat Dec 30 17:12:37 2000
1560 +++ Tk800.023.new/tkperldoc Sat Sep 1 07:05:34 2001
1562 -#!/usr/local/bin/perl -w
1567 diff -Nru Tk800.023/tkpsh Tk800.023.new/tkpsh
1568 --- Tk800.023/tkpsh Sat Dec 30 17:12:37 2000
1569 +++ Tk800.023.new/tkpsh Sat Sep 1 07:05:34 2001
1571 -#!/usr/local/bin/perl -w
1576 diff -Nru Tk800.023/tktail Tk800.023.new/tktail
1577 --- Tk800.023/tktail Sat Dec 30 17:12:37 2000
1578 +++ Tk800.023.new/tktail Sat Sep 1 07:05:34 2001
1580 -#!/usr/local/bin/perl -w
1585 diff -Nru Tk800.023/two_main Tk800.023.new/two_main
1586 --- Tk800.023/two_main Sat Dec 30 17:12:37 2000
1587 +++ Tk800.023.new/two_main Sat Sep 1 07:05:34 2001
1589 -#!/usr/local/bin/perl -w
1594 diff -Nru Tk800.023/uninstall Tk800.023.new/uninstall
1595 --- Tk800.023/uninstall Sat Dec 30 17:12:37 2000
1596 +++ Tk800.023.new/uninstall Sat Sep 1 07:05:34 2001
1598 -#!/usr/local/bin/perl -w
1600 BEGIN {exec('perl5.002',$0,@ARGV) unless ($] >= 5.002)}
1603 diff -Nru Tk800.023/ventry_demo Tk800.023.new/ventry_demo
1604 --- Tk800.023/ventry_demo Sat Dec 30 17:12:37 2000
1605 +++ Tk800.023.new/ventry_demo Sat Sep 1 07:16:22 2001
1607 -#!/usr/local/bin/perl -w
1612 diff -Nru Tk800.023/xlib_demo Tk800.023.new/xlib_demo
1613 --- Tk800.023/xlib_demo Sat Dec 30 17:12:37 2000
1614 +++ Tk800.023.new/xlib_demo Sat Sep 1 07:05:34 2001
1616 -#!/usr/local/bin/perl -w