blob: f8218da2f32e205b1fbc51c15137c75667ea2d8a (
plain)
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
|
--- tkseti.orig Sun Oct 31 10:12:05 1999
+++ tkseti Thu Nov 18 18:48:20 1999
@@ -1,6 +1,6 @@
#!/bin/sh
# the next line restarts using wish \
-exec wish "$0" ${1+"$@"}
+exec wish8.0 "$0" ${1+"$@"}
#############################################################################
# Visual Tcl v1.20 Project
#
@@ -181,11 +181,11 @@
TkSETI can be started if the client is already running, or it can start
the client manually or automatically for you. This is explained in the
Setup section that follows.
-
- TkSETI will look for the client files in the directory ~/setiathome. If
- you've run the client elsewhere, or run more than one client, just
- specify the setiathome client directory on the tkseti command line. For
- example:
+
+ TkSETI will look for the client files in the directory
+ /var/db/setiathome . If you've run the client elsewhere, or run more
+ than one client, just specify the setiathome client directory on the
+ tkseti command line. For example:
tkseti ~/setiathome
@@ -554,7 +554,7 @@
if {[catch {info nameofexecutable} nameofexecutable]} {
set nameofexecutable wish
}
- set seti(usage) " TkSETI version $seti(tksetiVersion) by Rick Macdonald <rickm@vsl.com>\n\nYou are running $nameofexecutable patchlevel [info patchlevel].\n\nUsage: tkseti \[--help\] \[user_setiathome_directory\]\n user_setiathome_directory defaults to ~/setiathome"
+ set seti(usage) " TkSETI version $seti(tksetiVersion) by Rick Macdonald <rickm@vsl.com>\n\nYou are running $nameofexecutable patchlevel [info patchlevel].\n\nUsage: tkseti \[--help\] \[user_setiathome_directory\]\n user_setiathome_directory defaults to /var/db/setiathome"
if {[lsearch $argv "--help"] >= 0} {
puts \n$seti(usage)
@@ -569,7 +569,7 @@
option add *highlightBackground grey85 user
if {$argc == 0} {
- set seti(setidir) [glob ~]/setiathome
+ set seti(setidir) /var/db/setiathome
} {
set seti(setidir) [lindex $argv 0]
}
|
