blob: 423420b9ba6aefaaf0d792576bf40d1f628f6dcd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
--- polypuzzle.orig 2008-10-26 00:53:04 UTC
+++ polypuzzle
@@ -1,8 +1,8 @@
#!/bin/sh
# the next line restarts using tclsh \
-exec wish "$0" "$@"
+exec %%WISH%% "$0" "$@"
-if {[file isdirectory /usr/local/lib/polypuzzle]} {cd /usr/local/lib/polypuzzle}
+if {[file isdirectory %%DATADIR%%]} {cd %%DATADIR%%}
# wish8.5.2 still occasionally has problems for polypuzzle without this hack:
set tcl_precision 12
@@ -380,7 +380,7 @@ proc DrawPiece {n xpos ypos} {
# Place this piece on top (but underneath text, which is our ceiling)
# in windows tcl 8.2 this generates an error on initiation
# as text is not defined - ooh noo (but is ok in tcl832)
- .c lower piece$n text
+ # .c lower piece$n text
.c move piece$n $xpos $ypos
|
