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
|
#!@SH_EXECUTABLE@
# Run plserver example for standard examples.
# Drop examples 14 and 31 because querying for devices does not
# seem to work in this context.
# 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 "@plserver_LOCATION@" -f "$0" "$@"
source tkdemos.tcl
#
# Turn off pausing - Note in the current plserver case, the plxframe
# uses a visual clue and bindings to key press events so a different
# method must be used to disable pausing than in the wish case.
# Note that the widget in question is .plw, not $plwin
#
plw::set_pause .plw 0
#
# Now run the examples one by one
#
0
1
2
3
4
5
6
7
8
9
10
11
12
13
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
33
exit
|
