]>
Commit | Line | Data |
---|---|---|
8586ce88 | 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 | |
4 | @@ -1,4 +1,4 @@ | |
5 | -#!/usr/local/bin/perl | |
6 | +#!/usr/bin/perl | |
7 | ||
8 | =head1 NAME | |
9 | ||
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 | |
e98aaa03 | 13 | @@ -1,4 +1,4 @@ |
14 | -#!/usr/local/bin/perl -w | |
15 | +#!/usr/bin/perl -w | |
16 | ||
17 | # | |
18 | # Figure 15.5, p153 | |
8586ce88 | 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 | |
e98aaa03 | 22 | @@ -1,4 +1,4 @@ |
23 | -#!/usr/local/bin/perl -w | |
24 | +#!/usr/bin/perl -w | |
25 | ||
26 | # | |
27 | # Figure 16.1, p159 | |
8586ce88 | 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 | |
e98aaa03 | 31 | @@ -1,4 +1,4 @@ |
32 | -#!/usr/local/bin/perl -w | |
33 | +#!/usr/bin/perl -w | |
34 | ||
35 | # | |
36 | # Figure 16.8, p166 | |
8586ce88 | 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 | |
e98aaa03 | 40 | @@ -1,4 +1,4 @@ |
41 | -#!/usr/local/bin/perl -w | |
42 | +#!/usr/bin/perl -w | |
43 | ||
44 | # | |
45 | # Figure 16.2, p161 | |
8586ce88 | 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 | |
e98aaa03 | 49 | @@ -1,4 +1,4 @@ |
50 | -#!/usr/local/bin/perl -w | |
51 | +#!/usr/bin/perl -w | |
52 | ||
53 | # | |
54 | # Figure 16.3, p162 | |
8586ce88 | 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 | |
e98aaa03 | 58 | @@ -1,4 +1,4 @@ |
59 | -#!/usr/local/bin/perl -w | |
60 | +#!/usr/bin/perl -w | |
61 | ||
62 | # | |
63 | # Figure 16.6, p165 | |
8586ce88 | 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 | |
e98aaa03 | 67 | @@ -1,4 +1,4 @@ |
68 | -#!/usr/local/bin/perl -w | |
69 | +#!/usr/bin/perl -w | |
70 | ||
71 | # | |
72 | # Figure 16.7, p166 | |
8586ce88 | 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 | |
e98aaa03 | 76 | @@ -1,4 +1,4 @@ |
77 | -#!/usr/local/bin/perl -w | |
78 | +#!/usr/bin/perl -w | |
79 | ||
80 | # | |
81 | # Figure 16.8, p166 | |
8586ce88 | 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 | |
e98aaa03 | 85 | @@ -1,4 +1,4 @@ |
86 | -#!/usr/local/bin/perl -w | |
87 | +#!/usr/bin/perl -w | |
88 | ||
89 | # | |
90 | # Figure 16.8, p166 | |
8586ce88 | 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 | |
e98aaa03 | 94 | @@ -1,4 +1,4 @@ |
95 | -#!/usr/local/bin/perl -w | |
96 | +#!/usr/bin/perl -w | |
97 | ||
98 | use Tk; | |
99 | require Tk::FileDialog; | |
8586ce88 | 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 | |
e98aaa03 | 103 | @@ -1,4 +1,4 @@ |
104 | -#!/usr/local/bin/perl | |
105 | +#!/usr/bin/perl | |
106 | use Tk; | |
107 | use Tk::TiedListbox; | |
108 | ||
8586ce88 | 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 | |
e98aaa03 | 112 | @@ -1,4 +1,4 @@ |
113 | -#!/usr/local/bin/perl -w | |
114 | +#!/usr/bin/perl -w | |
115 | use Tk; | |
116 | use strict; | |
117 | use Tk::DragDrop qw(Sun); | |
8586ce88 | 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 | |
e98aaa03 | 121 | @@ -1,4 +1,4 @@ |
122 | -#!/usr/local/bin/perl -w | |
123 | +#!/usr/bin/perl -w | |
124 | use Tk; | |
125 | ||
126 | my $mw = MainWindow->new; | |
8586ce88 | 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 | |
e98aaa03 | 130 | @@ -1,4 +1,4 @@ |
131 | -#!/usr/local/bin/perl -w | |
132 | +#!/usr/bin/perl -w | |
133 | use Tk; | |
134 | use strict; | |
135 | use Tk::DragDrop; | |
8586ce88 | 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 | |
e98aaa03 | 139 | @@ -1,4 +1,4 @@ |
140 | -#!/usr/local/bin/perl -w | |
141 | +#!/usr/bin/perl -w | |
142 | use Tk; | |
143 | use strict; | |
144 | use Tk::DragDrop; | |
8586ce88 | 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 | |
e98aaa03 | 148 | @@ -1,4 +1,4 @@ |
149 | -#!/usr/local/bin/perl -w | |
150 | +#!/usr/bin/perl -w | |
151 | use Tk; | |
152 | use strict; | |
153 | ||
8586ce88 | 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 | |
e98aaa03 | 157 | @@ -1,4 +1,4 @@ |
158 | -#!/usr/local/bin/perl -w | |
159 | +#!/usr/bin/perl -w | |
160 | use Tk; | |
161 | use strict; | |
162 | use Tk::DropSite; | |
8586ce88 | 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 | |
e98aaa03 | 166 | @@ -1,4 +1,4 @@ |
167 | -#!/usr/local/bin/perl -w | |
168 | +#!/usr/bin/perl -w | |
169 | use Tk; | |
170 | use Tk::ImageBack; | |
171 | use Tk::Photo; | |
8586ce88 | 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 | |
e98aaa03 | 175 | @@ -1,4 +1,4 @@ |
176 | -#!/usr/local/bin/perl -w | |
177 | +#!/usr/bin/perl -w | |
178 | ||
179 | use Tk::Pretty; | |
180 | ||
8586ce88 | 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 | |
e98aaa03 | 184 | @@ -1,4 +1,4 @@ |
185 | -#!/usr/local/bin/perl -w | |
186 | +#!/usr/bin/perl -w | |
187 | # tixgrid demo | |
188 | # standalone or sourceable in ptksh | |
189 | ||
8586ce88 | 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 | |
e98aaa03 | 193 | @@ -1,4 +1,4 @@ |
194 | -#!/usr/local/bin/perl -w | |
195 | +#!/usr/bin/perl -w | |
196 | use Tk; | |
197 | use Tk::WinPhoto; | |
198 | use Cwd; | |
8586ce88 | 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 | |
e98aaa03 | 202 | @@ -1,4 +1,4 @@ |
203 | -#!/usr/local/bin/perl | |
204 | +#!/usr/bin/perl | |
205 | ||
206 | ||
207 | use Tk; | |
8586ce88 | 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 | |
e98aaa03 | 211 | @@ -1,4 +1,4 @@ |
212 | -#!/usr/local/bin/perl -w | |
213 | +#!/usr/bin/perl -w | |
214 | use strict; | |
215 | use Tk; | |
216 | use Tk::Xlib; | |
8586ce88 | 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 | |
e98aaa03 | 220 | @@ -1,4 +1,4 @@ |
221 | -#!/usr/local/bin/perl -w | |
222 | +#!/usr/bin/perl -w | |
223 | use Tk; | |
224 | use Tk::Xlib; | |
225 | use Data::Dumper; | |
8586ce88 | 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 | |
e98aaa03 | 229 | @@ -1,4 +1,4 @@ |
230 | -#!/usr/local/bin/perl -w | |
231 | +#!/usr/bin/perl -w | |
232 | use Tk; | |
233 | use Tk::Xlib; | |
234 | use Tk::HList; | |
8586ce88 | 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 | |
8cfb8b61 | 238 | @@ -1,4 +1,4 @@ |
8586ce88 | 239 | -#!/tools/local/perl -w |
e98aaa03 | 240 | +#!/usr/bin/perl -w |
241 | use strict; | |
242 | use File::Find; | |
8586ce88 | 243 | use Getopt::Std; |
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 | |
e98aaa03 | 247 | @@ -1,4 +1,4 @@ |
8586ce88 | 248 | -#!/usr/local/bin/perl -w |
249 | +#!/usr/bin/perl -w | |
250 | use Tk; | |
251 | require Tk::TextUndo; | |
e98aaa03 | 252 | |
8586ce88 | 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 | |
8cfb8b61 AF |
256 | @@ -1,4 +1,4 @@ |
257 | -#!/usr/local/bin/perl -w | |
258 | +#!/usr/bin/perl -w | |
e98aaa03 | 259 | |
8586ce88 | 260 | use Tk; |
261 | use strict; | |
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 | |
8cfb8b61 AF |
265 | @@ -1,4 +1,4 @@ |
266 | -#!/usr/local/bin/perl -w | |
267 | +#!/usr/bin/perl -w | |
e98aaa03 | 268 | |
8586ce88 | 269 | use Tk; |
270 | use Devel::Leak; | |
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 | |
8cfb8b61 | 274 | @@ -1,4 +1,4 @@ |
8586ce88 | 275 | -#!/usr/local/bin/nperl -w |
8cfb8b61 | 276 | +#!/usr/bin/perl -w |
e98aaa03 | 277 | |
8586ce88 | 278 | use Tk; |
279 | use Tk::Table; | |
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 | |
e98aaa03 | 283 | @@ -1,4 +1,4 @@ |
284 | -#!/usr/local/bin/perl -w | |
285 | +#!/usr/bin/perl -w | |
8586ce88 | 286 | use Tk; |
8cfb8b61 | 287 | |
8586ce88 | 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 | |
e98aaa03 | 292 | @@ -1,4 +1,4 @@ |
293 | -#!/usr/local/bin/perl -w | |
294 | +#!/usr/bin/perl -w | |
295 | ||
8586ce88 | 296 | use Tk; |
8cfb8b61 | 297 | |
8586ce88 | 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 | |
8cfb8b61 | 301 | @@ -1,4 +1,4 @@ |
8586ce88 | 302 | -#!/usr/local/bin/perl |
303 | +#!/usr/bin/perl | |
e98aaa03 | 304 | |
8586ce88 | 305 | # use Memory (2440); |
e98aaa03 | 306 | |
8586ce88 | 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 | |
e98aaa03 | 310 | @@ -1,4 +1,4 @@ |
8586ce88 | 311 | -#!/usr/local/bin/perl |
312 | +#!/usr/bin/perl | |
e98aaa03 | 313 | |
8586ce88 | 314 | %def = (); |
315 | %need = (); | |
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 | |
8cfb8b61 AF |
319 | @@ -1,4 +1,4 @@ |
320 | -#!/usr/local/bin/perl | |
321 | +#!/usr/bin/perl | |
322 | ||
8586ce88 | 323 | while (<>) |
324 | { | |
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 | |
e98aaa03 | 328 | @@ -1,4 +1,4 @@ |
8586ce88 | 329 | -#!/usr/local/bin/perl |
330 | +#!/usr/bin/perl | |
8cfb8b61 | 331 | |
8586ce88 | 332 | @files = @ARGV; |
8cfb8b61 | 333 | |
8586ce88 | 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 | |
e98aaa03 | 337 | @@ -1,4 +1,4 @@ |
338 | -#!/usr/local/bin/perl -w | |
339 | +#!/usr/bin/perl -w | |
8586ce88 | 340 | use strict; |
341 | use File::Find; | |
8cfb8b61 | 342 | |
8586ce88 | 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 | |
e98aaa03 | 346 | @@ -1,4 +1,4 @@ |
347 | -#!/usr/local/bin/perl -w | |
348 | +#!/usr/bin/perl -w | |
349 | ||
8586ce88 | 350 | %done = (); |
351 | %defs = (); | |
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 | |
e98aaa03 | 355 | @@ -1,4 +1,4 @@ |
8586ce88 | 356 | -#!/usr/local/bin/perl |
357 | +#!/usr/bin/perl | |
e98aaa03 | 358 | |
8cfb8b61 | 359 | use File::Find; |
e98aaa03 | 360 | |
8586ce88 | 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 | |
e98aaa03 | 364 | @@ -1,4 +1,4 @@ |
365 | -#!/usr/local/bin/perl -w | |
366 | +#!/usr/bin/perl -w | |
8586ce88 | 367 | use Tk; |
368 | use Tk::Menubar; | |
8cfb8b61 | 369 | |
8586ce88 | 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 | |
e98aaa03 | 373 | @@ -1,4 +1,4 @@ |
374 | -#!/usr/local/bin/perl -w | |
375 | +#!/usr/bin/perl -w | |
8586ce88 | 376 | use Config; |
377 | my $make = $Config{'make'}; | |
378 | my @para; | |
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 | |
e98aaa03 | 382 | @@ -1,4 +1,4 @@ |
383 | -#!/usr/local/bin/perl -w | |
384 | +#!/usr/bin/perl -w | |
385 | use strict; | |
8586ce88 | 386 | use Tk; |
387 | use Tk::LabEntry; | |
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 | |
e98aaa03 | 391 | @@ -1,4 +1,4 @@ |
392 | -#!/usr/local/bin/perl -w | |
393 | +#!/usr/bin/perl -w | |
e98aaa03 | 394 | |
8586ce88 | 395 | use Tk; |
8cfb8b61 | 396 | |
8586ce88 | 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 | |
e98aaa03 | 400 | @@ -1,4 +1,4 @@ |
401 | -#!/usr/local/bin/perl -w | |
402 | +#!/usr/bin/perl -w | |
8cfb8b61 | 403 | |
8586ce88 | 404 | use Tk; |
8cfb8b61 | 405 | |
8586ce88 | 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 | |
409 | @@ -1,4 +1,4 @@ | |
410 | -#!/usr/local/bin/perl | |
411 | +#!/usr/bin/perl | |
8cfb8b61 | 412 | |
8586ce88 | 413 | use Tk; |
414 | use Tk::Pretty; | |
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 | |
e98aaa03 | 418 | @@ -1,4 +1,4 @@ |
419 | -#!/usr/local/bin/perl -w | |
420 | +#!/usr/bin/perl -w | |
8586ce88 | 421 | use File::Find; |
422 | use Config; | |
423 | my @libs; | |
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 | |
8cfb8b61 AF |
427 | @@ -1,4 +1,4 @@ |
428 | -#!/usr/local/bin/perl -w | |
429 | +#!/usr/bin/perl -w | |
8586ce88 | 430 | |
431 | use ExtUtils::Manifest "/mani/"; | |
432 | ||
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 | |
8cfb8b61 AF |
436 | @@ -1,4 +1,4 @@ |
437 | -#!/usr/local/bin/perl -w | |
438 | +#!/usr/bin/perl -w | |
8cfb8b61 | 439 | use strict; |
8586ce88 | 440 | use Tk; |
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 | |
8cfb8b61 AF |
445 | @@ -1,4 +1,4 @@ |
446 | -#!/usr/local/bin/perl -w | |
447 | +#!/usr/bin/perl -w | |
8cfb8b61 | 448 | use File::Find; |
8586ce88 | 449 | find(\&wanted,'.'); |
e98aaa03 | 450 | |
8586ce88 | 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 | |
e98aaa03 | 454 | @@ -1,4 +1,4 @@ |
8cfb8b61 AF |
455 | -#!/usr/local/bin/perl -w |
456 | +#!/usr/bin/perl -w | |
8586ce88 | 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 | |
8cfb8b61 AF |
463 | @@ -1,4 +1,4 @@ |
464 | -#!/usr/local/bin/perl -w | |
465 | +#!/usr/bin/perl -w | |
8586ce88 | 466 | use Config; |
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 | |
e98aaa03 | 472 | @@ -1,4 +1,4 @@ |
473 | -#!/usr/local/bin/perl -w | |
474 | +#!/usr/bin/perl -w | |
8586ce88 | 475 | use IO::File; |
e98aaa03 | 476 | |
8586ce88 | 477 | while (<>) |
8586ce88 | 478 | diff -Nru Tk800.023/cursor_demo Tk800.023.new/cursor_demo |
479 | --- Tk800.023/cursor_demo Sat Dec 30 17:12:37 2000 | |
480 | +++ Tk800.023.new/cursor_demo Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 481 | @@ -1,4 +1,4 @@ |
482 | -#!/usr/local/bin/perl -w | |
483 | +#!/usr/bin/perl -w | |
8cfb8b61 AF |
484 | use Tk; |
485 | ||
8586ce88 | 486 | my $mw = MainWindow->new; |
487 | diff -Nru Tk800.023/demos/browse Tk800.023.new/demos/browse | |
488 | --- Tk800.023/demos/browse Sat Dec 30 17:12:37 2000 | |
489 | +++ Tk800.023.new/demos/browse Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 490 | @@ -1,4 +1,4 @@ |
491 | -#!/usr/local/bin/perl -w | |
492 | +#!/usr/bin/perl -w | |
8586ce88 | 493 | # |
494 | # This script generates a directory browser, which lists the working directory and allows you to open files or subdirectories | |
495 | # by double-clicking. | |
496 | diff -Nru Tk800.023/demos/color_editor Tk800.023.new/demos/color_editor | |
497 | --- Tk800.023/demos/color_editor Sat Dec 30 17:12:37 2000 | |
498 | +++ Tk800.023.new/demos/color_editor Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 499 | @@ -1,4 +1,4 @@ |
500 | -#!/usr/local/bin/perl -w | |
501 | +#!/usr/bin/perl -w | |
8586ce88 | 502 | # |
503 | # ColorEditor demonstration. | |
504 | ||
505 | diff -Nru Tk800.023/demos/composite Tk800.023.new/demos/composite | |
506 | --- Tk800.023/demos/composite Sat Dec 30 17:12:37 2000 | |
507 | +++ Tk800.023.new/demos/composite Sat Sep 1 07:05:34 2001 | |
8cfb8b61 AF |
508 | @@ -1,4 +1,4 @@ |
509 | -#!/usr/local/bin/perl -w | |
510 | +#!/usr/bin/perl -w | |
8586ce88 | 511 | |
512 | ||
513 | use English; | |
514 | diff -Nru Tk800.023/demos/dialog Tk800.023.new/demos/dialog | |
515 | --- Tk800.023/demos/dialog Sat Dec 30 17:12:37 2000 | |
516 | +++ Tk800.023.new/demos/dialog Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 517 | @@ -1,4 +1,4 @@ |
518 | -#!/usr/local/bin/perl -w | |
519 | +#!/usr/bin/perl -w | |
520 | ||
8586ce88 | 521 | # Demonstrate how to use Dialog to create and manipulate dialog objects. |
522 | # lusol@Lehigh.EDU 95/06/14 | |
523 | diff -Nru Tk800.023/demos/hello Tk800.023.new/demos/hello | |
524 | --- Tk800.023/demos/hello Sat Dec 30 17:12:37 2000 | |
525 | +++ Tk800.023.new/demos/hello Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 526 | @@ -1,4 +1,4 @@ |
527 | -#!/usr/local/bin/perl -w | |
528 | +#!/usr/bin/perl -w | |
8586ce88 | 529 | # |
530 | # Simple Tk script to create a button that prints "Hello, world". Click on | |
531 | # the button to terminate the program. | |
532 | diff -Nru Tk800.023/demos/ixset Tk800.023.new/demos/ixset | |
533 | --- Tk800.023/demos/ixset Sat Dec 30 17:12:37 2000 | |
534 | +++ Tk800.023.new/demos/ixset Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 535 | @@ -1,4 +1,4 @@ |
536 | -#!/usr/local/bin/perl | |
537 | +#!/usr/bin/perl | |
538 | ||
8586ce88 | 539 | # A nice interface to "xset" to change X server settings |
540 | # | |
541 | diff -Nru Tk800.023/demos/rmt Tk800.023.new/demos/rmt | |
542 | --- Tk800.023/demos/rmt Sat Dec 30 17:12:37 2000 | |
543 | +++ Tk800.023.new/demos/rmt Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 544 | @@ -1,4 +1,4 @@ |
8586ce88 | 545 | -#!/usr/local/bin/perl -wT |
546 | +#!/usr/bin/perl -wT | |
547 | # | |
548 | # This script implements a simple remote-control mechanism for Tk | |
549 | # applications. It allows you to select an application and then type | |
550 | diff -Nru Tk800.023/demos/rolodex Tk800.023.new/demos/rolodex | |
551 | --- Tk800.023/demos/rolodex Sat Dec 30 17:12:37 2000 | |
552 | +++ Tk800.023.new/demos/rolodex Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 553 | @@ -1,4 +1,4 @@ |
554 | -#!/usr/local/bin/perl -w | |
555 | +#!/usr/bin/perl -w | |
8586ce88 | 556 | # |
557 | # This script was written as an entry in Tom LaStrange's rolodex benchmark. | |
558 | # 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. | |
559 | diff -Nru Tk800.023/demos/timer Tk800.023.new/demos/timer | |
560 | --- Tk800.023/demos/timer Sat Dec 30 17:12:37 2000 | |
561 | +++ Tk800.023.new/demos/timer Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 562 | @@ -1,4 +1,4 @@ |
563 | -#!/usr/local/bin/perl -w | |
564 | +#!/usr/bin/perl -w | |
8586ce88 | 565 | # |
566 | # This script generates a counter with start and stop buttons. Exit with | |
567 | # Ctrl/c or Ctrl/q. | |
568 | diff -Nru Tk800.023/demos/tom Tk800.023.new/demos/tom | |
569 | --- Tk800.023/demos/tom Sat Dec 30 17:12:37 2000 | |
570 | +++ Tk800.023.new/demos/tom Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 571 | @@ -1,4 +1,4 @@ |
572 | -#!/usr/local/bin/perl -w | |
573 | +#!/usr/bin/perl -w | |
8586ce88 | 574 | # |
575 | # Sample program to get Tom Christiansen going with Perl/Tk. | |
e98aaa03 | 576 | |
8586ce88 | 577 | diff -Nru Tk800.023/demos/widget Tk800.023.new/demos/widget |
578 | --- Tk800.023/demos/widget Sat Dec 30 17:12:37 2000 | |
579 | +++ Tk800.023.new/demos/widget Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 580 | @@ -1,4 +1,4 @@ |
581 | -#!/usr/local/bin/perl -w | |
582 | +#!/usr/bin/perl -w | |
583 | ||
8586ce88 | 584 | require 5.004; |
585 | ||
586 | diff -Nru Tk800.023/demos/widget_old Tk800.023.new/demos/widget_old | |
587 | --- Tk800.023/demos/widget_old Sat Dec 30 17:12:37 2000 | |
588 | +++ Tk800.023.new/demos/widget_old Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 589 | @@ -1,4 +1,4 @@ |
590 | -#!/usr/local/bin/perl -w | |
591 | +#!/usr/bin/perl -w | |
8586ce88 | 592 | # |
593 | # This script demonstrates the various widgets provided by Tk, along with many of the features of the Tk toolkit. This file | |
594 | # only contains code to generate the main window for the application, which invokes individual demonstrations. The code for | |
595 | diff -Nru Tk800.023/derived_test Tk800.023.new/derived_test | |
596 | --- Tk800.023/derived_test Sat Dec 30 17:12:37 2000 | |
597 | +++ Tk800.023.new/derived_test Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 598 | @@ -1,4 +1,4 @@ |
599 | -#!/usr/local/bin/perl -w | |
600 | +#!/usr/bin/perl -w | |
601 | use Tk; | |
602 | require Tk::Text; | |
603 | ||
8586ce88 | 604 | diff -Nru Tk800.023/destroy_test Tk800.023.new/destroy_test |
605 | --- Tk800.023/destroy_test Sat Dec 30 17:12:37 2000 | |
606 | +++ Tk800.023.new/destroy_test Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 607 | @@ -1,4 +1,4 @@ |
608 | -#!/usr/local/bin/perl -w | |
609 | +#!/usr/bin/perl -w | |
610 | ||
611 | ||
612 | use Tk; | |
8586ce88 | 613 | diff -Nru Tk800.023/dfpy Tk800.023.new/dfpy |
614 | --- Tk800.023/dfpy Sat Dec 30 17:12:37 2000 | |
615 | +++ Tk800.023.new/dfpy Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 616 | @@ -1,4 +1,4 @@ |
617 | -#!/usr/local/bin/perl | |
618 | +#!/usr/bin/perl | |
619 | ||
620 | use ExtUtils::Manifest "/mani/"; | |
621 | use Cwd; | |
8586ce88 | 622 | diff -Nru Tk800.023/disbutton Tk800.023.new/disbutton |
623 | --- Tk800.023/disbutton Sat Dec 30 17:12:37 2000 | |
624 | +++ Tk800.023.new/disbutton Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 625 | @@ -1,4 +1,4 @@ |
626 | -#!/usr/local/bin/perl -w | |
627 | +#!/usr/bin/perl -w | |
628 | ||
629 | package StickyButton; | |
630 | require Tk::Widget; | |
8586ce88 | 631 | diff -Nru Tk800.023/dnd_demo Tk800.023.new/dnd_demo |
632 | --- Tk800.023/dnd_demo Sat Dec 30 17:12:37 2000 | |
633 | +++ Tk800.023.new/dnd_demo Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 634 | @@ -1,4 +1,4 @@ |
635 | -#!/usr/local/bin/perl -w | |
636 | +#!/usr/bin/perl -w | |
637 | # | |
638 | # Demo code to exhibit features of dynamic construction and destruction of | |
639 | # local (within app.) Drag and Drop sources and sinks. Written for and tested | |
8586ce88 | 640 | diff -Nru Tk800.023/dump_test Tk800.023.new/dump_test |
641 | --- Tk800.023/dump_test Sat Dec 30 17:12:37 2000 | |
642 | +++ Tk800.023.new/dump_test Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 643 | @@ -1,4 +1,4 @@ |
644 | -#!/usr/local/bin/perl -w | |
645 | +#!/usr/bin/perl -w | |
646 | use Tk; | |
647 | my $top = MainWindow->new; | |
648 | my $i = $top->Photo(-file => Tk->findINC('icon.gif')); | |
8586ce88 | 649 | diff -Nru Tk800.023/embed Tk800.023.new/embed |
650 | --- Tk800.023/embed Sat Dec 30 17:12:37 2000 | |
651 | +++ Tk800.023.new/embed Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 652 | @@ -1,4 +1,4 @@ |
653 | -#!/usr/local/bin/perl -w | |
654 | +#!/usr/bin/perl -w | |
655 | ||
656 | use Tk; | |
657 | use IO::File; | |
8586ce88 | 658 | diff -Nru Tk800.023/error_prop Tk800.023.new/error_prop |
659 | --- Tk800.023/error_prop Sat Dec 30 17:12:37 2000 | |
660 | +++ Tk800.023.new/error_prop Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 661 | @@ -1,4 +1,4 @@ |
662 | -#!/usr/local/bin/perl -w | |
663 | +#!/usr/bin/perl -w | |
664 | ||
665 | use Tk; | |
666 | use Tk::ErrorDialog; | |
8586ce88 | 667 | diff -Nru Tk800.023/ewidth_demo Tk800.023.new/ewidth_demo |
668 | --- Tk800.023/ewidth_demo Sat Dec 30 17:12:37 2000 | |
669 | +++ Tk800.023.new/ewidth_demo Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 670 | @@ -1,4 +1,4 @@ |
671 | -#!/usr/local/bin/perl -w | |
672 | +#!/usr/bin/perl -w | |
673 | use Tk; | |
674 | use strict; | |
675 | ||
8586ce88 | 676 | diff -Nru Tk800.023/exetype Tk800.023.new/exetype |
677 | --- Tk800.023/exetype Sat Dec 30 17:12:37 2000 | |
678 | +++ Tk800.023.new/exetype Sat Sep 1 07:16:19 2001 | |
679 | @@ -1,4 +1,4 @@ | |
680 | -#!perl -w | |
681 | +#!/usr/bin/perl -w | |
682 | use strict; | |
683 | unless (@ARGV == 2) { | |
684 | print "Usage: $0 exefile [CONSOLE|WINDOWS]\n"; | |
685 | diff -Nru Tk800.023/fedemo Tk800.023.new/fedemo | |
686 | --- Tk800.023/fedemo Sat Dec 30 17:12:37 2000 | |
687 | +++ Tk800.023.new/fedemo Sat Sep 1 07:16:28 2001 | |
688 | @@ -1,4 +1,4 @@ | |
689 | -#!/usr/local/bin/new/perl -w | |
690 | +#!/usr/bin/perl -w | |
691 | use strict; | |
692 | my $FILE_LOG = (@ARGV) ? shift : 'README'; | |
693 | ||
694 | diff -Nru Tk800.023/fetail Tk800.023.new/fetail | |
695 | --- Tk800.023/fetail Sat Dec 30 17:12:37 2000 | |
696 | +++ Tk800.023.new/fetail Sat Sep 1 07:16:18 2001 | |
697 | @@ -1,4 +1,4 @@ | |
698 | -#!/usr/local/bin/perl -w | |
699 | +#!/usr/bin/perl -w | |
700 | use strict; | |
701 | my $file = (@ARGV) ? shift : 'README'; | |
702 | ||
703 | diff -Nru Tk800.023/findbase Tk800.023.new/findbase | |
704 | --- Tk800.023/findbase Sat Dec 30 17:12:37 2000 | |
705 | +++ Tk800.023.new/findbase Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 706 | @@ -1,4 +1,4 @@ |
707 | -#!/usr/local/bin/perl -w | |
708 | +#!/usr/bin/perl -w | |
709 | ||
710 | use File::Find; | |
711 | ||
8586ce88 | 712 | diff -Nru Tk800.023/floppy Tk800.023.new/floppy |
713 | --- Tk800.023/floppy Sat Dec 30 17:12:37 2000 | |
714 | +++ Tk800.023.new/floppy Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 715 | @@ -1,4 +1,4 @@ |
716 | -#!/usr/local/bin/perl | |
717 | +#!/usr/bin/perl | |
718 | ||
719 | use ExtUtils::Manifest "/mani/"; | |
720 | use Cwd; | |
8586ce88 | 721 | diff -Nru Tk800.023/font_demo Tk800.023.new/font_demo |
722 | --- Tk800.023/font_demo Sat Dec 30 17:12:37 2000 | |
723 | +++ Tk800.023.new/font_demo Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 724 | @@ -1,4 +1,4 @@ |
725 | -#!/usr/local/bin/perl -w | |
726 | +#!/usr/bin/perl -w | |
727 | use Tk; | |
8cfb8b61 | 728 | use Tk::X11Font; |
e98aaa03 | 729 | use Tk::ROText; |
8586ce88 | 730 | diff -Nru Tk800.023/font_test Tk800.023.new/font_test |
731 | --- Tk800.023/font_test Sat Dec 30 17:12:37 2000 | |
732 | +++ Tk800.023.new/font_test Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 733 | @@ -1,4 +1,4 @@ |
734 | -#!/usr/local/bin/perl -w | |
735 | +#!/usr/bin/perl -w | |
736 | ||
737 | ||
738 | ||
8586ce88 | 739 | diff -Nru Tk800.023/fonts Tk800.023.new/fonts |
740 | --- Tk800.023/fonts Sat Dec 30 17:12:37 2000 | |
741 | +++ Tk800.023.new/fonts Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 742 | @@ -1,4 +1,4 @@ |
743 | -#!/usr/local/bin/perl -w | |
744 | +#!/usr/bin/perl -w | |
745 | use strict; | |
746 | use Tk; | |
747 | use Data::Dumper; | |
8586ce88 | 748 | diff -Nru Tk800.023/forward_test Tk800.023.new/forward_test |
749 | --- Tk800.023/forward_test Sat Dec 30 17:12:37 2000 | |
750 | +++ Tk800.023.new/forward_test Sat Sep 1 07:16:27 2001 | |
751 | @@ -1,4 +1,4 @@ | |
752 | -#!/usr/local/bin/nperl -w | |
753 | +#!/usr/bin/perl -w | |
754 | use strict; | |
755 | use Tk; | |
756 | ||
757 | diff -Nru Tk800.023/gdb.plx Tk800.023.new/gdb.plx | |
758 | --- Tk800.023/gdb.plx Sat Dec 30 17:12:37 2000 | |
759 | +++ Tk800.023.new/gdb.plx Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 760 | @@ -1,4 +1,4 @@ |
761 | -#!/usr/local/bin/perl -w | |
762 | +#!/usr/bin/perl -w | |
763 | use Config; | |
764 | open(INIT,">.gdbinit") || die; | |
765 | my $perl = $^X; | |
8586ce88 | 766 | diff -Nru Tk800.023/gedi Tk800.023.new/gedi |
767 | --- Tk800.023/gedi Sat Dec 30 17:12:37 2000 | |
768 | +++ Tk800.023.new/gedi Sat Sep 1 07:16:16 2001 | |
769 | @@ -1,4 +1,4 @@ | |
770 | -#!/usr/local/bin/perl -w | |
771 | +#!/usr/bin/perl -w | |
772 | ||
773 | ############################################################################### | |
774 | # Copyright (c) 1999 Greg London | |
775 | diff -Nru Tk800.023/geo_mgr Tk800.023.new/geo_mgr | |
776 | --- Tk800.023/geo_mgr Sat Dec 30 17:12:37 2000 | |
777 | +++ Tk800.023.new/geo_mgr Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 778 | @@ -1,4 +1,4 @@ |
779 | -#!/usr/local/bin/perl -w | |
780 | +#!/usr/bin/perl -w | |
781 | ||
782 | use Tk; | |
783 | ||
8586ce88 | 784 | diff -Nru Tk800.023/geom Tk800.023.new/geom |
785 | --- Tk800.023/geom Sat Dec 30 17:12:37 2000 | |
786 | +++ Tk800.023.new/geom Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 787 | @@ -1,4 +1,4 @@ |
788 | -#!/usr/local/bin/perl -w | |
789 | +#!/usr/bin/perl -w | |
790 | ||
791 | use Tk; | |
792 | ||
8586ce88 | 793 | diff -Nru Tk800.023/grid_adj Tk800.023.new/grid_adj |
794 | --- Tk800.023/grid_adj Sat Dec 30 17:12:37 2000 | |
795 | +++ Tk800.023.new/grid_adj Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 796 | @@ -1,4 +1,4 @@ |
797 | -#!/usr/local/bin/perl -w | |
798 | +#!/usr/bin/perl -w | |
799 | use Tk; | |
800 | require Tk::TextUndo; | |
801 | require Tk::Adjuster; | |
8586ce88 | 802 | diff -Nru Tk800.023/grid_test Tk800.023.new/grid_test |
803 | --- Tk800.023/grid_test Sat Dec 30 17:12:37 2000 | |
804 | +++ Tk800.023.new/grid_test Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 805 | @@ -1,4 +1,4 @@ |
806 | -#!/usr/local/bin/perl -w | |
807 | +#!/usr/bin/perl -w | |
808 | use Tk; | |
809 | my $mw = MainWindow->new; | |
810 | open(FILE,__FILE__); | |
8586ce88 | 811 | diff -Nru Tk800.023/gridbug Tk800.023.new/gridbug |
812 | --- Tk800.023/gridbug Sat Dec 30 17:12:37 2000 | |
813 | +++ Tk800.023.new/gridbug Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 814 | @@ -1,4 +1,4 @@ |
815 | -#!/usr/local/bin/perl -w | |
816 | +#!/usr/bin/perl -w | |
817 | use Tk; | |
818 | use Carp; | |
819 | $top = MainWindow->new(); | |
8586ce88 | 820 | diff -Nru Tk800.023/hackMM Tk800.023.new/hackMM |
821 | --- Tk800.023/hackMM Sat Dec 30 17:12:37 2000 | |
822 | +++ Tk800.023.new/hackMM Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 823 | @@ -1,4 +1,4 @@ |
824 | -#!/usr/local/bin/perl -w | |
825 | +#!/usr/bin/perl -w | |
826 | ||
827 | use File::Find; | |
828 | ||
8586ce88 | 829 | diff -Nru Tk800.023/hlfm Tk800.023.new/hlfm |
830 | --- Tk800.023/hlfm Sat Dec 30 17:12:37 2000 | |
831 | +++ Tk800.023.new/hlfm Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 832 | @@ -1,4 +1,4 @@ |
833 | -#!/usr/local/bin/perl -w | |
834 | +#!/usr/bin/perl -w | |
835 | use strict; | |
836 | use Tk; | |
837 | require Tk::Dirlist; | |
8586ce88 | 838 | diff -Nru Tk800.023/hlist_bg Tk800.023.new/hlist_bg |
839 | --- Tk800.023/hlist_bg Sat Dec 30 17:12:37 2000 | |
840 | +++ Tk800.023.new/hlist_bg Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 841 | @@ -1,4 +1,4 @@ |
842 | -#!/usr/local/bin/perl -w | |
843 | +#!/usr/bin/perl -w | |
844 | use Tk; | |
845 | require Tk::HList; | |
846 | ||
8586ce88 | 847 | diff -Nru Tk800.023/hlist_demo Tk800.023.new/hlist_demo |
848 | --- Tk800.023/hlist_demo Sat Dec 30 17:12:37 2000 | |
849 | +++ Tk800.023.new/hlist_demo Sat Sep 1 07:16:26 2001 | |
850 | @@ -1,4 +1,4 @@ | |
851 | -#!/usr/local/bin/nperl -w | |
852 | +#!/usr/bin/perl -w | |
853 | ||
854 | use lib qw(blib .); | |
855 | use Tk; | |
856 | diff -Nru Tk800.023/icon Tk800.023.new/icon | |
857 | --- Tk800.023/icon Sat Dec 30 17:12:37 2000 | |
858 | +++ Tk800.023.new/icon Sat Sep 1 07:16:13 2001 | |
859 | @@ -1,4 +1,4 @@ | |
860 | -#!/tools/local/perl -w | |
861 | +#!/usr/bin/perl -w | |
862 | use Tk; | |
863 | my $mw = MainWindow->new; | |
864 | my $image = $mw->Photo('-file' => Tk->findINC("icon.gif")); | |
865 | diff -Nru Tk800.023/iconimg Tk800.023.new/iconimg | |
866 | --- Tk800.023/iconimg Sat Dec 30 17:12:37 2000 | |
867 | +++ Tk800.023.new/iconimg Sat Sep 1 07:16:25 2001 | |
868 | @@ -1,4 +1,4 @@ | |
869 | -#!/usr/local/bin/perl -w | |
870 | +#!/usr/bin/perl -w | |
871 | ||
872 | use Tk; | |
873 | ||
874 | diff -Nru Tk800.023/iconwin Tk800.023.new/iconwin | |
875 | --- Tk800.023/iconwin Sat Dec 30 17:12:37 2000 | |
876 | +++ Tk800.023.new/iconwin Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 877 | @@ -1,4 +1,4 @@ |
878 | -#!/usr/local/bin/perl -w | |
879 | +#!/usr/bin/perl -w | |
880 | ||
881 | use Tk; | |
882 | ||
8586ce88 | 883 | diff -Nru Tk800.023/image_test Tk800.023.new/image_test |
884 | --- Tk800.023/image_test Sat Dec 30 17:12:37 2000 | |
885 | +++ Tk800.023.new/image_test Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 886 | @@ -1,4 +1,4 @@ |
887 | -#!/usr/local/bin/perl -w | |
888 | +#!/usr/bin/perl -w | |
889 | ||
890 | use Tk; | |
891 | ||
8586ce88 | 892 | diff -Nru Tk800.023/inline_bitmap Tk800.023.new/inline_bitmap |
893 | --- Tk800.023/inline_bitmap Sat Dec 30 17:12:37 2000 | |
894 | +++ Tk800.023.new/inline_bitmap Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 895 | @@ -1,4 +1,4 @@ |
896 | -#!/usr/local/bin/perl -w | |
897 | +#!/usr/bin/perl -w | |
898 | use strict; | |
899 | use Tk; | |
900 | ||
8586ce88 | 901 | diff -Nru Tk800.023/keyWords Tk800.023.new/keyWords |
902 | --- Tk800.023/keyWords Sat Dec 30 17:12:37 2000 | |
903 | +++ Tk800.023.new/keyWords Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 904 | @@ -1,4 +1,4 @@ |
905 | -#!/usr/local/bin/perl -w | |
906 | +#!/usr/bin/perl -w | |
907 | ||
908 | use File::Find; | |
909 | ||
8586ce88 | 910 | diff -Nru Tk800.023/labelpack Tk800.023.new/labelpack |
911 | --- Tk800.023/labelpack Sat Dec 30 17:12:37 2000 | |
912 | +++ Tk800.023.new/labelpack Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 913 | @@ -1,4 +1,4 @@ |
914 | -#!/usr/local/bin/perl -w | |
915 | +#!/usr/bin/perl -w | |
916 | ||
917 | use Tk; | |
918 | require Tk::LabEntry; | |
8586ce88 | 919 | diff -Nru Tk800.023/lbformat_demo Tk800.023.new/lbformat_demo |
920 | --- Tk800.023/lbformat_demo Sat Dec 30 17:12:37 2000 | |
921 | +++ Tk800.023.new/lbformat_demo Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 922 | @@ -1,4 +1,4 @@ |
923 | -#!/usr/local/bin/perl -w | |
924 | +#!/usr/bin/perl -w | |
925 | use strict; | |
926 | use Tk; | |
927 | use Tk::Font; | |
8586ce88 | 928 | diff -Nru Tk800.023/leak_test Tk800.023.new/leak_test |
929 | --- Tk800.023/leak_test Sat Dec 30 17:12:37 2000 | |
930 | +++ Tk800.023.new/leak_test Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 931 | @@ -1,4 +1,4 @@ |
932 | -#!/usr/local/bin/perl -w | |
933 | +#!/usr/bin/perl -w | |
934 | ||
935 | use Tk; | |
8cfb8b61 | 936 | use Devel::Leak; |
8586ce88 | 937 | diff -Nru Tk800.023/lentry Tk800.023.new/lentry |
938 | --- Tk800.023/lentry Sat Dec 30 17:12:37 2000 | |
939 | +++ Tk800.023.new/lentry Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 940 | @@ -1,4 +1,4 @@ |
941 | -#!/usr/local/bin/perl -w | |
942 | +#!/usr/bin/perl -w | |
943 | ||
944 | use Tk; | |
945 | ||
8586ce88 | 946 | diff -Nru Tk800.023/linux-progbar-toy Tk800.023.new/linux-progbar-toy |
947 | --- Tk800.023/linux-progbar-toy Sat Dec 30 17:12:37 2000 | |
948 | +++ Tk800.023.new/linux-progbar-toy Sat Sep 1 07:16:00 2001 | |
949 | @@ -1,4 +1,4 @@ | |
950 | -#!/usr/local/bin/perl -w | |
951 | +#!/usr/bin/perl -w | |
952 | use Tk; | |
953 | use Tk::widgets qw(ProgressBar); | |
954 | ||
955 | diff -Nru Tk800.023/local_demo Tk800.023.new/local_demo | |
956 | --- Tk800.023/local_demo Sat Dec 30 17:12:37 2000 | |
957 | +++ Tk800.023.new/local_demo Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 958 | @@ -1,4 +1,4 @@ |
959 | -#!/usr/local/bin/perl -w | |
960 | +#!/usr/bin/perl -w | |
961 | use strict; | |
962 | use Tk qw(MainLoop *widget); | |
963 | use Carp; | |
8586ce88 | 964 | diff -Nru Tk800.023/ls_table Tk800.023.new/ls_table |
965 | --- Tk800.023/ls_table Sat Dec 30 17:12:37 2000 | |
966 | +++ Tk800.023.new/ls_table Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 967 | @@ -1,4 +1,4 @@ |
968 | -#!/usr/local/bin/perl -w | |
969 | +#!/usr/bin/perl -w | |
970 | ||
971 | use Tk; | |
972 | use Tk::Table; | |
8586ce88 | 973 | diff -Nru Tk800.023/lsfonts Tk800.023.new/lsfonts |
974 | --- Tk800.023/lsfonts Sat Dec 30 17:12:37 2000 | |
975 | +++ Tk800.023.new/lsfonts Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 976 | @@ -1,4 +1,4 @@ |
977 | -#!/usr/local/bin/perl -w | |
978 | +#!/usr/bin/perl -w | |
979 | ||
980 | use Tk; | |
981 | use Tk::Xlib; | |
8586ce88 | 982 | diff -Nru Tk800.023/menubar Tk800.023.new/menubar |
983 | --- Tk800.023/menubar Sat Dec 30 17:12:37 2000 | |
984 | +++ Tk800.023.new/menubar Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 985 | @@ -1,4 +1,4 @@ |
986 | -#!/usr/local/bin/perl -w | |
987 | +#!/usr/bin/perl -w | |
988 | ||
989 | use Tk; | |
990 | ||
8586ce88 | 991 | diff -Nru Tk800.023/menubug Tk800.023.new/menubug |
992 | --- Tk800.023/menubug Sat Dec 30 17:12:37 2000 | |
993 | +++ Tk800.023.new/menubug Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 994 | @@ -1,4 +1,4 @@ |
995 | -#!/usr/local/bin/perl -w | |
996 | +#!/usr/bin/perl -w | |
997 | use Tk; | |
998 | use strict; | |
999 | ||
8586ce88 | 1000 | diff -Nru Tk800.023/mitem_test Tk800.023.new/mitem_test |
1001 | --- Tk800.023/mitem_test Sat Dec 30 17:12:37 2000 | |
1002 | +++ Tk800.023.new/mitem_test Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1003 | @@ -1,4 +1,4 @@ |
1004 | -#!/usr/local/bin/perl -w | |
1005 | +#!/usr/bin/perl -w | |
1006 | ||
1007 | require 5.003; | |
1008 | use English; | |
8586ce88 | 1009 | diff -Nru Tk800.023/mkExt Tk800.023.new/mkExt |
1010 | --- Tk800.023/mkExt Sat Dec 30 17:12:37 2000 | |
1011 | +++ Tk800.023.new/mkExt Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1012 | @@ -1,4 +1,4 @@ |
1013 | -#!/usr/local/bin/perl -w | |
1014 | +#!/usr/bin/perl -w | |
1015 | ||
1016 | sub translate | |
1017 | { | |
8586ce88 | 1018 | diff -Nru Tk800.023/mkdist Tk800.023.new/mkdist |
1019 | --- Tk800.023/mkdist Sat Dec 30 17:12:37 2000 | |
1020 | +++ Tk800.023.new/mkdist Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1021 | @@ -1,4 +1,4 @@ |
1022 | -#!/usr/local/bin/perl -w | |
1023 | +#!/usr/bin/perl -w | |
1024 | use strict; | |
1025 | ||
1026 | use ExtUtils::Manifest "/mani/"; | |
8586ce88 | 1027 | diff -Nru Tk800.023/motif_hack Tk800.023.new/motif_hack |
1028 | --- Tk800.023/motif_hack Sat Dec 30 17:12:37 2000 | |
1029 | +++ Tk800.023.new/motif_hack Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1030 | @@ -1,4 +1,4 @@ |
1031 | -#!/usr/local/bin/perl -w | |
1032 | +#!/usr/bin/perl -w | |
1033 | use Data::Dumper; | |
1034 | use strict; | |
1035 | use Tk; | |
8586ce88 | 1036 | diff -Nru Tk800.023/nested_dialog Tk800.023.new/nested_dialog |
1037 | --- Tk800.023/nested_dialog Sat Dec 30 17:12:37 2000 | |
1038 | +++ Tk800.023.new/nested_dialog Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1039 | @@ -1,4 +1,4 @@ |
1040 | -#!/usr/local/bin/perl -w | |
1041 | +#!/usr/bin/perl -w | |
1042 | ||
1043 | use Tk; | |
1044 | use Tk::Dialog; | |
8586ce88 | 1045 | diff -Nru Tk800.023/oddmenu_demo Tk800.023.new/oddmenu_demo |
1046 | --- Tk800.023/oddmenu_demo Sat Dec 30 17:12:37 2000 | |
1047 | +++ Tk800.023.new/oddmenu_demo Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1048 | @@ -1,4 +1,4 @@ |
1049 | -#!/usr/local/bin/perl -w | |
1050 | +#!/usr/bin/perl -w | |
1051 | use strict; | |
1052 | use Tk; | |
1053 | ||
8586ce88 | 1054 | diff -Nru Tk800.023/pTk/LangIO.h.PL Tk800.023.new/pTk/LangIO.h.PL |
1055 | --- Tk800.023/pTk/LangIO.h.PL Sun Feb 4 20:16:51 2001 | |
1056 | +++ Tk800.023.new/pTk/LangIO.h.PL Sat Sep 1 07:05:34 2001 | |
1057 | @@ -1,4 +1,4 @@ | |
1058 | -#!/usr/local/bin/perl -w | |
1059 | +#!/usr/bin/perl -w | |
1060 | use Config; | |
1061 | my @gard = qw( | |
1062 | STDIO_H | |
1063 | diff -Nru Tk800.023/pTk/Tcl-pTk Tk800.023.new/pTk/Tcl-pTk | |
1064 | --- Tk800.023/pTk/Tcl-pTk Sat Dec 30 17:12:37 2000 | |
1065 | +++ Tk800.023.new/pTk/Tcl-pTk Sat Sep 1 07:05:34 2001 | |
1066 | @@ -1,4 +1,4 @@ | |
1067 | -#!/usr/local/bin/perl -w | |
1068 | +#!/usr/bin/perl -w | |
1069 | ||
1070 | use Carp; | |
1071 | ||
1072 | diff -Nru Tk800.023/pTk/chext Tk800.023.new/pTk/chext | |
1073 | --- Tk800.023/pTk/chext Sat Dec 30 17:12:37 2000 | |
1074 | +++ Tk800.023.new/pTk/chext Sat Sep 1 07:05:34 2001 | |
1075 | @@ -1,4 +1,4 @@ | |
1076 | -#!/usr/local/bin/perl -w | |
1077 | +#!/usr/bin/perl -w | |
1078 | ||
1079 | open(NEED,"<need") || die; | |
1080 | while (<NEED>) | |
1081 | diff -Nru Tk800.023/pTk/counts Tk800.023.new/pTk/counts | |
1082 | --- Tk800.023/pTk/counts Sat Dec 30 17:12:37 2000 | |
1083 | +++ Tk800.023.new/pTk/counts Sat Sep 1 07:05:34 2001 | |
1084 | @@ -1,4 +1,4 @@ | |
1085 | -#!/usr/local/bin/perl | |
1086 | +#!/usr/bin/perl | |
1087 | ||
1088 | sub count | |
1089 | { | |
1090 | diff -Nru Tk800.023/pTk/findX Tk800.023.new/pTk/findX | |
1091 | --- Tk800.023/pTk/findX Sat Dec 30 17:12:37 2000 | |
1092 | +++ Tk800.023.new/pTk/findX Sat Sep 1 07:05:34 2001 | |
1093 | @@ -1,4 +1,4 @@ | |
1094 | -#!/usr/local/bin/perl -w | |
1095 | +#!/usr/bin/perl -w | |
1096 | ||
1097 | BEGIN { require Exporter }; | |
1098 | ||
1099 | diff -Nru Tk800.023/pTk/findcore Tk800.023.new/pTk/findcore | |
1100 | --- Tk800.023/pTk/findcore Sat Dec 30 17:12:37 2000 | |
1101 | +++ Tk800.023.new/pTk/findcore Sat Sep 1 07:05:34 2001 | |
1102 | @@ -1,4 +1,4 @@ | |
1103 | -#!/usr/local/bin/perl -w | |
1104 | +#!/usr/bin/perl -w | |
1105 | ||
1106 | BEGIN { require Exporter }; | |
1107 | ||
1108 | diff -Nru Tk800.023/pTk/findstrings Tk800.023.new/pTk/findstrings | |
1109 | --- Tk800.023/pTk/findstrings Sat Dec 30 17:12:37 2000 | |
1110 | +++ Tk800.023.new/pTk/findstrings Sat Sep 1 07:05:34 2001 | |
1111 | @@ -1,4 +1,4 @@ | |
1112 | -#!/usr/local/bin/perl -w | |
1113 | +#!/usr/bin/perl -w | |
1114 | ||
1115 | ||
1116 | %table = (); | |
1117 | diff -Nru Tk800.023/pTk/from Tk800.023.new/pTk/from | |
1118 | --- Tk800.023/pTk/from Sat Dec 30 17:12:37 2000 | |
1119 | +++ Tk800.023.new/pTk/from Sat Sep 1 07:05:34 2001 | |
1120 | @@ -1,4 +1,4 @@ | |
1121 | -#!/usr/local/bin/perl -w | |
1122 | +#!/usr/bin/perl -w | |
1123 | use strict; | |
1124 | ||
1125 | use File::Find; | |
1126 | diff -Nru Tk800.023/pTk/genexc Tk800.023.new/pTk/genexc | |
1127 | --- Tk800.023/pTk/genexc Sat Dec 30 17:12:37 2000 | |
1128 | +++ Tk800.023.new/pTk/genexc Sat Sep 1 07:05:34 2001 | |
1129 | @@ -1,4 +1,4 @@ | |
1130 | -#!/usr/local/bin/perl -w | |
1131 | +#!/usr/bin/perl -w | |
1132 | ||
1133 | my %mTk; | |
1134 | my $dir; | |
1135 | diff -Nru Tk800.023/pTk/mTk/tclmerge Tk800.023.new/pTk/mTk/tclmerge | |
1136 | --- Tk800.023/pTk/mTk/tclmerge Sat Dec 30 17:12:37 2000 | |
1137 | +++ Tk800.023.new/pTk/mTk/tclmerge Sat Sep 1 07:05:34 2001 | |
1138 | @@ -1,4 +1,4 @@ | |
1139 | -#!/usr/local/bin/perl -w | |
1140 | +#!/usr/bin/perl -w | |
1141 | ||
1142 | use strict; | |
1143 | ||
1144 | diff -Nru Tk800.023/pTk/mTk/tixmerge Tk800.023.new/pTk/mTk/tixmerge | |
1145 | --- Tk800.023/pTk/mTk/tixmerge Sat Dec 30 17:12:37 2000 | |
1146 | +++ Tk800.023.new/pTk/mTk/tixmerge Sat Sep 1 07:05:34 2001 | |
1147 | @@ -1,4 +1,4 @@ | |
1148 | -#!/usr/local/bin/perl -w | |
1149 | +#!/usr/bin/perl -w | |
1150 | ||
1151 | use strict; | |
1152 | ||
1153 | diff -Nru Tk800.023/pTk/makeenglish Tk800.023.new/pTk/makeenglish | |
1154 | --- Tk800.023/pTk/makeenglish Sat Dec 30 17:12:37 2000 | |
1155 | +++ Tk800.023.new/pTk/makeenglish Sat Sep 1 07:05:34 2001 | |
1156 | @@ -1,4 +1,4 @@ | |
1157 | -#!/usr/local/bin/perl -w | |
1158 | +#!/usr/bin/perl -w | |
1159 | # BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)) } | |
1160 | ||
1161 | die "Must be executed from Tk/pTk distribution directory\n" unless -f "Lang.h"; | |
1162 | diff -Nru Tk800.023/pTk/mkVFunc Tk800.023.new/pTk/mkVFunc | |
1163 | --- Tk800.023/pTk/mkVFunc Sat Dec 30 17:12:37 2000 | |
1164 | +++ Tk800.023.new/pTk/mkVFunc Sat Sep 1 07:05:34 2001 | |
1165 | @@ -1,4 +1,4 @@ | |
1166 | -#!/usr/local/bin/perl -w | |
1167 | +#!/usr/bin/perl -w | |
1168 | use strict; | |
1169 | ||
1170 | my %Ignore; | |
1171 | diff -Nru Tk800.023/pTk/mkXinfo Tk800.023.new/pTk/mkXinfo | |
1172 | --- Tk800.023/pTk/mkXinfo Sat Dec 30 17:12:37 2000 | |
1173 | +++ Tk800.023.new/pTk/mkXinfo Sat Sep 1 07:05:34 2001 | |
1174 | @@ -1,4 +1,4 @@ | |
1175 | -#!/usr/local/bin/perl -w | |
1176 | +#!/usr/bin/perl -w | |
1177 | ||
1178 | $file = shift; | |
1179 | ||
1180 | diff -Nru Tk800.023/pTk/mkexc Tk800.023.new/pTk/mkexc | |
1181 | --- Tk800.023/pTk/mkexc Sat Dec 30 17:12:37 2000 | |
1182 | +++ Tk800.023.new/pTk/mkexc Sat Sep 1 07:05:34 2001 | |
1183 | @@ -1,4 +1,4 @@ | |
1184 | -#!/usr/local/bin/perl -w | |
1185 | +#!/usr/bin/perl -w | |
1186 | use strict; | |
1187 | use vars qw(%ref %def); | |
1188 | require "process_object"; | |
1189 | diff -Nru Tk800.023/pTk/mkmethods Tk800.023.new/pTk/mkmethods | |
1190 | --- Tk800.023/pTk/mkmethods Sat Dec 30 17:12:37 2000 | |
1191 | +++ Tk800.023.new/pTk/mkmethods Sat Sep 1 07:05:34 2001 | |
1192 | @@ -1,4 +1,4 @@ | |
1193 | -#!/usr/local/bin/perl -w | |
1194 | +#!/usr/bin/perl -w | |
1195 | ||
1196 | $dst = shift; | |
1197 | ||
1198 | diff -Nru Tk800.023/pTk/tdiff Tk800.023.new/pTk/tdiff | |
1199 | --- Tk800.023/pTk/tdiff Sat Dec 30 17:12:37 2000 | |
1200 | +++ Tk800.023.new/pTk/tdiff Sat Sep 1 07:05:34 2001 | |
1201 | @@ -1,4 +1,4 @@ | |
1202 | -#!/usr/local/bin/perl -w | |
1203 | +#!/usr/bin/perl -w | |
1204 | ||
1205 | sub fail | |
1206 | { | |
1207 | diff -Nru Tk800.023/pTk/why Tk800.023.new/pTk/why | |
1208 | --- Tk800.023/pTk/why Sat Dec 30 17:12:37 2000 | |
1209 | +++ Tk800.023.new/pTk/why Sat Sep 1 07:05:34 2001 | |
1210 | @@ -1,4 +1,4 @@ | |
1211 | -#!/usr/local/bin/perl -w | |
1212 | +#!/usr/bin/perl -w | |
1213 | ||
1214 | use strict; | |
1215 | ||
1216 | diff -Nru Tk800.023/pfm Tk800.023.new/pfm | |
1217 | --- Tk800.023/pfm Sat Dec 30 17:12:37 2000 | |
1218 | +++ Tk800.023.new/pfm Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1219 | @@ -1,4 +1,4 @@ |
1220 | -#!/usr/local/bin/perl -w | |
1221 | +#!/usr/bin/perl -w | |
1222 | use POSIX qw(getcwd); | |
1223 | ||
1224 | use Tk; | |
8586ce88 | 1225 | diff -Nru Tk800.023/pictgrid Tk800.023.new/pictgrid |
1226 | --- Tk800.023/pictgrid Sat Dec 30 17:12:37 2000 | |
1227 | +++ Tk800.023.new/pictgrid Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1228 | @@ -1,4 +1,4 @@ |
1229 | -#!/usr/local/bin/perl -w | |
1230 | +#!/usr/bin/perl -w | |
1231 | use strict; | |
1232 | use Tk; | |
1233 | ||
8586ce88 | 1234 | diff -Nru Tk800.023/pipe_test Tk800.023.new/pipe_test |
1235 | --- Tk800.023/pipe_test Sat Dec 30 17:12:37 2000 | |
1236 | +++ Tk800.023.new/pipe_test Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1237 | @@ -1,4 +1,4 @@ |
1238 | -#!/usr/local/bin/perl -w | |
1239 | +#!/usr/bin/perl -w | |
1240 | use Tk; | |
1241 | ||
1242 | require Tk::IO; | |
8586ce88 | 1243 | diff -Nru Tk800.023/pixels-points Tk800.023.new/pixels-points |
1244 | --- Tk800.023/pixels-points Sat Dec 30 17:12:37 2000 | |
1245 | +++ Tk800.023.new/pixels-points Sat Sep 1 07:16:24 2001 | |
1246 | @@ -1,4 +1,4 @@ | |
1247 | -#!/usr/local/bin/new/perl -w | |
1248 | +#!/usr/bin/perl -w | |
1249 | use strict; | |
1250 | use Tk; | |
1251 | use Tk::Xlib; | |
1252 | diff -Nru Tk800.023/pixmap_test Tk800.023.new/pixmap_test | |
1253 | --- Tk800.023/pixmap_test Sat Dec 30 17:12:37 2000 | |
1254 | +++ Tk800.023.new/pixmap_test Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1255 | @@ -1,4 +1,4 @@ |
1256 | -#!/usr/local/bin/perl -w | |
1257 | +#!/usr/bin/perl -w | |
1258 | use strict; | |
1259 | use Tk; | |
1260 | require Tk::Pixmap; | |
8586ce88 | 1261 | diff -Nru Tk800.023/pod/extract/extpod Tk800.023.new/pod/extract/extpod |
1262 | --- Tk800.023/pod/extract/extpod Sat Dec 30 17:12:37 2000 | |
1263 | +++ Tk800.023.new/pod/extract/extpod Sat Sep 1 07:05:34 2001 | |
1264 | @@ -1,4 +1,4 @@ | |
1265 | -#!/usr/local/bin/perl -w | |
1266 | +#!/usr/bin/perl -w | |
1267 | use strict; | |
1268 | use Getopt::Std; | |
1269 | use ExtUtils::Manifest "/mani/"; | |
1270 | diff -Nru Tk800.023/pod/recat Tk800.023.new/pod/recat | |
1271 | --- Tk800.023/pod/recat Sat Dec 30 17:12:37 2000 | |
1272 | +++ Tk800.023.new/pod/recat Sat Sep 1 07:05:34 2001 | |
1273 | @@ -1,4 +1,4 @@ | |
1274 | -#!/usr/local/bin/perl -w | |
1275 | +#!/usr/bin/perl -w | |
1276 | use strict; | |
1277 | my $sec; | |
1278 | my %cat; | |
1279 | diff -Nru Tk800.023/pod/subs Tk800.023.new/pod/subs | |
1280 | --- Tk800.023/pod/subs Sat Dec 30 17:12:37 2000 | |
1281 | +++ Tk800.023.new/pod/subs Sat Sep 1 07:05:34 2001 | |
1282 | @@ -1,4 +1,4 @@ | |
1283 | -#!/usr/local/bin/perl -w | |
1284 | +#!/usr/bin/perl -w | |
1285 | use blib; | |
1286 | use Tk; | |
1287 | use strict; | |
1288 | diff -Nru Tk800.023/point_test Tk800.023.new/point_test | |
1289 | --- Tk800.023/point_test Sat Dec 30 17:12:37 2000 | |
1290 | +++ Tk800.023.new/point_test Sat Sep 1 07:15:55 2001 | |
1291 | @@ -1,4 +1,4 @@ | |
1292 | -#!/usr/local/bin/perl -w | |
1293 | +#!/usr/bin/perl -w | |
1294 | use strict; | |
1295 | use Tk; | |
1296 | ||
1297 | diff -Nru Tk800.023/popup Tk800.023.new/popup | |
1298 | --- Tk800.023/popup Sat Dec 30 17:12:37 2000 | |
1299 | +++ Tk800.023.new/popup Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1300 | @@ -1,4 +1,4 @@ |
1301 | -#!/usr/local/bin/perl -w | |
1302 | +#!/usr/bin/perl -w | |
1303 | ||
1304 | ||
1305 | use Tk; | |
8586ce88 | 1306 | diff -Nru Tk800.023/popup_menu Tk800.023.new/popup_menu |
1307 | --- Tk800.023/popup_menu Sat Dec 30 17:12:37 2000 | |
1308 | +++ Tk800.023.new/popup_menu Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1309 | @@ -1,4 +1,4 @@ |
1310 | -#!/usr/local/bin/perl -w | |
1311 | +#!/usr/bin/perl -w | |
1312 | use strict; | |
1313 | ||
1314 | use Tk; | |
8586ce88 | 1315 | diff -Nru Tk800.023/prop_demo Tk800.023.new/prop_demo |
1316 | --- Tk800.023/prop_demo Sat Dec 30 17:12:37 2000 | |
1317 | +++ Tk800.023.new/prop_demo Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1318 | @@ -1,4 +1,4 @@ |
1319 | -#!/usr/local/bin/perl -w | |
1320 | +#!/usr/bin/perl -w | |
1321 | ||
1322 | use Tk; | |
1323 | ||
8586ce88 | 1324 | diff -Nru Tk800.023/ptked Tk800.023.new/ptked |
1325 | --- Tk800.023/ptked Sat Dec 30 17:12:37 2000 | |
1326 | +++ Tk800.023.new/ptked Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1327 | @@ -1,4 +1,4 @@ |
1328 | -#!/usr/local/bin/perl -w | |
1329 | +#!/usr/bin/perl -w | |
8cfb8b61 AF |
1330 | use strict; |
1331 | use IO; | |
1332 | use Socket; | |
8586ce88 | 1333 | diff -Nru Tk800.023/ptknews Tk800.023.new/ptknews |
1334 | --- Tk800.023/ptknews Sat Dec 30 17:12:37 2000 | |
1335 | +++ Tk800.023.new/ptknews Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1336 | @@ -1,4 +1,4 @@ |
1337 | -#!/usr/local/bin/perl -w | |
1338 | +#!/usr/bin/perl -w | |
1339 | ||
1340 | use strict; | |
1341 | use Tk; | |
8586ce88 | 1342 | diff -Nru Tk800.023/ptksh Tk800.023.new/ptksh |
1343 | --- Tk800.023/ptksh Sat Dec 30 17:12:37 2000 | |
1344 | +++ Tk800.023.new/ptksh Sat Sep 1 07:16:23 2001 | |
1345 | @@ -1,4 +1,4 @@ | |
1346 | -#!perl -w | |
1347 | +#!/usr/bin/perl -w | |
1348 | # | |
1349 | # PTKSH 2.0 | |
1350 | # | |
1351 | diff -Nru Tk800.023/rebuild Tk800.023.new/rebuild | |
1352 | --- Tk800.023/rebuild Sat Dec 30 17:12:37 2000 | |
1353 | +++ Tk800.023.new/rebuild Sat Sep 1 07:15:54 2001 | |
1354 | @@ -1,4 +1,4 @@ | |
1355 | -#!/usr/local/bin/new/perl -w | |
1356 | +#!/usr/bin/perl -w | |
1357 | open(STDERR,">&STDOUT") || die "Cannot redirect STDERR"; | |
1358 | $| = 1; | |
1359 | use Cwd; | |
1360 | diff -Nru Tk800.023/scale_test Tk800.023.new/scale_test | |
1361 | --- Tk800.023/scale_test Sat Dec 30 17:12:37 2000 | |
1362 | +++ Tk800.023.new/scale_test Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1363 | @@ -1,4 +1,4 @@ |
1364 | -#!/usr/local/bin/perl -w | |
1365 | +#!/usr/bin/perl -w | |
1366 | ||
1367 | use Tk; | |
1368 | ||
8586ce88 | 1369 | diff -Nru Tk800.023/scrolled_demo Tk800.023.new/scrolled_demo |
1370 | --- Tk800.023/scrolled_demo Sat Dec 30 17:12:37 2000 | |
1371 | +++ Tk800.023.new/scrolled_demo Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1372 | @@ -1,4 +1,4 @@ |
1373 | -#!/usr/local/bin/perl -w | |
1374 | +#!/usr/bin/perl -w | |
1375 | ||
1376 | use Tk; | |
1377 | use strict; | |
8586ce88 | 1378 | diff -Nru Tk800.023/sillymenu Tk800.023.new/sillymenu |
1379 | --- Tk800.023/sillymenu Sat Dec 30 17:12:37 2000 | |
1380 | +++ Tk800.023.new/sillymenu Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1381 | @@ -1,4 +1,4 @@ |
1382 | -#!/usr/local/bin/perl -w | |
1383 | +#!/usr/bin/perl -w | |
1384 | use strict; | |
1385 | use Tk; | |
1386 | ||
8586ce88 | 1387 | diff -Nru Tk800.023/sockets Tk800.023.new/sockets |
1388 | --- Tk800.023/sockets Sat Dec 30 17:12:37 2000 | |
1389 | +++ Tk800.023.new/sockets Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1390 | @@ -1,4 +1,4 @@ |
1391 | -#!/usr/local/bin/perl -w | |
1392 | +#!/usr/bin/perl -w | |
1393 | ||
1394 | use IO::Socket; | |
1395 | use Tk::IO; | |
8586ce88 | 1396 | diff -Nru Tk800.023/stripblib Tk800.023.new/stripblib |
1397 | --- Tk800.023/stripblib Sat Dec 30 17:12:37 2000 | |
1398 | +++ Tk800.023.new/stripblib Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1399 | @@ -1,4 +1,4 @@ |
1400 | -#!/usr/local/bin/perl -w | |
1401 | +#!/usr/bin/perl -w | |
1402 | use File::Find; | |
1403 | find(\&strip,'blib/arch'); | |
1404 | ||
8586ce88 | 1405 | diff -Nru Tk800.023/style_test Tk800.023.new/style_test |
1406 | --- Tk800.023/style_test Sat Dec 30 17:12:37 2000 | |
1407 | +++ Tk800.023.new/style_test Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1408 | @@ -1,4 +1,4 @@ |
1409 | -#!/usr/local/bin/perl -w | |
1410 | +#!/usr/bin/perl -w | |
1411 | ||
1412 | use Tk; | |
1413 | use Tk::HList; | |
8586ce88 | 1414 | diff -Nru Tk800.023/submethods Tk800.023.new/submethods |
1415 | --- Tk800.023/submethods Sat Dec 30 17:12:37 2000 | |
1416 | +++ Tk800.023.new/submethods Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1417 | @@ -1,4 +1,4 @@ |
1418 | -#!/usr/local/bin/perl -w | |
1419 | +#!/usr/bin/perl -w | |
1420 | $meth = "pTk/Methods.def"; | |
1421 | ||
1422 | %sub = (); | |
8586ce88 | 1423 | diff -Nru Tk800.023/symbols Tk800.023.new/symbols |
1424 | --- Tk800.023/symbols Sat Dec 30 17:12:37 2000 | |
1425 | +++ Tk800.023.new/symbols Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1426 | @@ -1,4 +1,4 @@ |
1427 | -#!/usr/local/bin/perl -w | |
1428 | +#!/usr/bin/perl -w | |
1429 | ||
1430 | use Config; | |
1431 | ||
8586ce88 | 1432 | diff -Nru Tk800.023/table_demo Tk800.023.new/table_demo |
1433 | --- Tk800.023/table_demo Sat Dec 30 17:12:37 2000 | |
1434 | +++ Tk800.023.new/table_demo Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1435 | @@ -1,4 +1,4 @@ |
1436 | -#!/usr/local/bin/perl -w | |
1437 | +#!/usr/bin/perl -w | |
1438 | ||
1439 | use Tk; | |
1440 | use Tk::Table; | |
8586ce88 | 1441 | diff -Nru Tk800.023/tainted Tk800.023.new/tainted |
1442 | --- Tk800.023/tainted Sat Dec 30 17:12:37 2000 | |
1443 | +++ Tk800.023.new/tainted Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1444 | @@ -1,4 +1,4 @@ |
1445 | -#!/usr/local/bin/perl -T | |
1446 | +#!/usr/bin/perl -T | |
1447 | ||
1448 | use Tk; | |
1449 | ||
8586ce88 | 1450 | diff -Nru Tk800.023/tcl2perl Tk800.023.new/tcl2perl |
1451 | --- Tk800.023/tcl2perl Sat Dec 30 17:12:37 2000 | |
1452 | +++ Tk800.023.new/tcl2perl Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1453 | @@ -1,4 +1,4 @@ |
1454 | -#!/usr/local/bin/perl -w | |
1455 | +#!/usr/bin/perl -w | |
1456 | ||
1457 | # Highly experimental tcl -> perl converter, aimed at eventually | |
1458 | # completeing Tix merge | |
8586ce88 | 1459 | diff -Nru Tk800.023/tcolour Tk800.023.new/tcolour |
1460 | --- Tk800.023/tcolour Sat Dec 30 17:12:37 2000 | |
1461 | +++ Tk800.023.new/tcolour Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1462 | @@ -1,4 +1,4 @@ |
1463 | -#!/usr/local/bin/perl -w | |
1464 | +#!/usr/bin/perl -w | |
1465 | ||
1466 | use Tk; | |
1467 | ||
8586ce88 | 1468 | diff -Nru Tk800.023/text_demo Tk800.023.new/text_demo |
1469 | --- Tk800.023/text_demo Sat Dec 30 17:12:37 2000 | |
1470 | +++ Tk800.023.new/text_demo Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1471 | @@ -1,4 +1,4 @@ |
1472 | -#!/usr/local/bin/perl -w | |
1473 | +#!/usr/bin/perl -w | |
1474 | ||
1475 | use Tk; | |
1476 | require Tk::Text; | |
8586ce88 | 1477 | diff -Nru Tk800.023/tie_basic Tk800.023.new/tie_basic |
1478 | --- Tk800.023/tie_basic Sat Dec 30 17:12:37 2000 | |
1479 | +++ Tk800.023.new/tie_basic Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1480 | @@ -1,4 +1,4 @@ |
1481 | -#!/usr/local/bin/perl | |
1482 | +#!/usr/bin/perl | |
1483 | ||
1484 | # use Memory (2440); | |
1485 | ||
8586ce88 | 1486 | diff -Nru Tk800.023/tiehandle Tk800.023.new/tiehandle |
1487 | --- Tk800.023/tiehandle Sat Dec 30 17:12:37 2000 | |
1488 | +++ Tk800.023.new/tiehandle Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1489 | @@ -1,4 +1,4 @@ |
1490 | -#!/usr/local/bin/perl -w | |
1491 | +#!/usr/bin/perl -w | |
1492 | ||
1493 | use Tk; | |
1494 | ||
8586ce88 | 1495 | diff -Nru Tk800.023/tietext Tk800.023.new/tietext |
1496 | --- Tk800.023/tietext Sat Dec 30 17:12:37 2000 | |
1497 | +++ Tk800.023.new/tietext Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1498 | @@ -1,4 +1,4 @@ |
1499 | -#!/usr/local/bin/perl -w | |
1500 | +#!/usr/bin/perl -w | |
1501 | use Tk; | |
1502 | ||
1503 | {package Tk::Text::Contents; | |
8586ce88 | 1504 | diff -Nru Tk800.023/time Tk800.023.new/time |
1505 | --- Tk800.023/time Sat Dec 30 17:12:37 2000 | |
1506 | +++ Tk800.023.new/time Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1507 | @@ -1,4 +1,4 @@ |
1508 | -#!/usr/local/bin/perl -w | |
1509 | +#!/usr/bin/perl -w | |
1510 | use Tk::Stats 'Start'; | |
1511 | use strict; | |
1512 | use Tk; | |
8586ce88 | 1513 | diff -Nru Tk800.023/tiny Tk800.023.new/tiny |
1514 | --- Tk800.023/tiny Sat Dec 30 17:12:37 2000 | |
1515 | +++ Tk800.023.new/tiny Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1516 | @@ -1,4 +1,4 @@ |
1517 | -#!/usr/local/bin/perl -w | |
1518 | +#!/usr/bin/perl -w | |
1519 | use strict; | |
1520 | use Tk; | |
1521 | use Tk::widgets qw(Button); | |
8586ce88 | 1522 | diff -Nru Tk800.023/tixwm_demo Tk800.023.new/tixwm_demo |
1523 | --- Tk800.023/tixwm_demo Sat Dec 30 17:12:37 2000 | |
1524 | +++ Tk800.023.new/tixwm_demo Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1525 | @@ -1,4 +1,4 @@ |
1526 | -#!/usr/local/bin/perl -w | |
1527 | +#!/usr/bin/perl -w | |
1528 | ||
1529 | use Tk; | |
1530 | use Tk::Dialog; | |
8586ce88 | 1531 | diff -Nru Tk800.023/tkperldoc Tk800.023.new/tkperldoc |
1532 | --- Tk800.023/tkperldoc Sat Dec 30 17:12:37 2000 | |
1533 | +++ Tk800.023.new/tkperldoc Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1534 | @@ -1,4 +1,4 @@ |
1535 | -#!/usr/local/bin/perl -w | |
1536 | +#!/usr/bin/perl -w | |
1537 | ||
1538 | use strict; | |
1539 | use Tk; | |
8586ce88 | 1540 | diff -Nru Tk800.023/tkpsh Tk800.023.new/tkpsh |
1541 | --- Tk800.023/tkpsh Sat Dec 30 17:12:37 2000 | |
1542 | +++ Tk800.023.new/tkpsh Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1543 | @@ -1,4 +1,4 @@ |
1544 | -#!/usr/local/bin/perl -w | |
1545 | +#!/usr/bin/perl -w | |
1546 | ||
1547 | require 5.001; | |
1548 | use IO::Handle; | |
8586ce88 | 1549 | diff -Nru Tk800.023/tktail Tk800.023.new/tktail |
1550 | --- Tk800.023/tktail Sat Dec 30 17:12:37 2000 | |
1551 | +++ Tk800.023.new/tktail Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1552 | @@ -1,4 +1,4 @@ |
1553 | -#!/usr/local/bin/perl -w | |
1554 | +#!/usr/bin/perl -w | |
1555 | use strict; | |
1556 | use Tk; | |
1557 | use IO::File; | |
8586ce88 | 1558 | diff -Nru Tk800.023/two_main Tk800.023.new/two_main |
1559 | --- Tk800.023/two_main Sat Dec 30 17:12:37 2000 | |
1560 | +++ Tk800.023.new/two_main Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1561 | @@ -1,4 +1,4 @@ |
1562 | -#!/usr/local/bin/perl -w | |
1563 | +#!/usr/bin/perl -w | |
1564 | ||
1565 | use Tk; | |
8cfb8b61 | 1566 | use Tk::Xrm; |
8586ce88 | 1567 | diff -Nru Tk800.023/uninstall Tk800.023.new/uninstall |
1568 | --- Tk800.023/uninstall Sat Dec 30 17:12:37 2000 | |
1569 | +++ Tk800.023.new/uninstall Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1570 | @@ -1,4 +1,4 @@ |
1571 | -#!/usr/local/bin/perl -w | |
1572 | +#!/usr/bin/perl -w | |
1573 | BEGIN {exec('perl5.002',$0,@ARGV) unless ($] >= 5.002)} | |
1574 | use Config; | |
1575 | use Getopt::Long; | |
8586ce88 | 1576 | diff -Nru Tk800.023/ventry_demo Tk800.023.new/ventry_demo |
1577 | --- Tk800.023/ventry_demo Sat Dec 30 17:12:37 2000 | |
1578 | +++ Tk800.023.new/ventry_demo Sat Sep 1 07:16:22 2001 | |
1579 | @@ -1,4 +1,4 @@ | |
1580 | -#!/usr/local/bin/perl -w | |
1581 | +#!/usr/bin/perl -w | |
1582 | use strict; | |
1583 | use Tk; | |
1584 | ||
1585 | diff -Nru Tk800.023/xlib_demo Tk800.023.new/xlib_demo | |
1586 | --- Tk800.023/xlib_demo Sat Dec 30 17:12:37 2000 | |
1587 | +++ Tk800.023.new/xlib_demo Sat Sep 1 07:05:34 2001 | |
e98aaa03 | 1588 | @@ -1,4 +1,4 @@ |
1589 | -#!/usr/local/bin/perl -w | |
1590 | +#!/usr/bin/perl -w | |
1591 | ||
1592 | use Tk; | |
1593 |