1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#!@SH_EXECUTABLE@
# Run standard examples using wish TEA-based approach.
# Drop examples 14 and 31 because querying for devices does not
# seem to work in this context.
# We use of the wish -colormap new option since it cannot hurt,
# but this does not solve color issues
# for both examples 2 ("Couldn't parse color 76") and 24 ("illegal number of colors in cmap0: red") so we comment out those examples for now.
# N.B. recently that example 2 and example 24 error message has been
# replaced by a segfault. So presumably the issue all along has been
# a memory management issue that (as typical with such issues)
# manifests in a variety of ways depending on subtle details.
# Example 20 enables plspause so comment out for now.
# The following exec command reexecutes the script under wish. This
# is possible because all comment lines are ignored by wish including
# continued ones with a trailing backslash like this one \
exec @TK_WISH@ "$0" "$@"
lappend auto_path @pkgIndex_LOCATION@
package require Pltk
source tkdemos.tcl
# Note wish currently disables pauses so no special method is
# required to do that (unlike the plserver case).
0
1
#2
3
4
5
6
7
8
9
10
11
12
13
#14
15
16
17
18
19
#20
21
22
23
#24
25
26
27
28
29
30
#31
33
exit
|
